Rev 4077: Support MH-E in EmacsMail, using mml. in http://bazaar.launchpad.net/%7Evila/bzr/bzr.integration

[Vincent Ladeuil]

At http://bazaar.launchpad.net/%7Evila/bzr/bzr.integration

------------------------------------------------------------
revno: 4077
revision-id: v.ladeuil+lp at free.fr-20090304145107-bwpt97k859et5xa7
parent: pqm at pqm.ubuntu.com-20090304144239-ttukklew8lkxslgy
parent: epg at pretzelnet.org-20090226084415-308d4vtpqsa1cqd8
committer: Vincent Ladeuil <v.ladeuil+lp at free.fr>
branch nick: bzr.integration
timestamp: Wed 2009-03-04 15:51:07 +0100
message:
  Support MH-E in EmacsMail, using mml.
modified:
  NEWS                           NEWS-20050323055033-4e00b5db738777ff
  bzrlib/mail_client.py          mail_client.py-20070809192806-vuxt3t19srtpjpdn-1
    ------------------------------------------------------------
    revno: 4056.2.1
    revision-id: epg at pretzelnet.org-20090226084415-308d4vtpqsa1cqd8
    parent: pqm at pqm.ubuntu.com-20090226073908-1fjp24b0llwqc0l7
    committer: epg at pretzelnet.org
    branch nick: mh-e
    timestamp: Thu 2009-02-26 00:44:15 -0800
    message:
      Support MH-E in EmacsMail, using mml.
    modified:
      NEWS                           NEWS-20050323055033-4e00b5db738777ff
      bzrlib/mail_client.py          mail_client.py-20070809192806-vuxt3t19srtpjpdn-1
-------------- next part --------------
=== modified file 'NEWS'
--- a/NEWS	2009-03-03 08:54:13 +0000
+++ b/NEWS	2009-03-04 14:51:07 +0000
@@ -69,6 +69,8 @@
       passed on the command line. This makes ``bzr lp-open lp:foo`` work as
       expected. (Jonathan Lange, #332705)
 
+    * ``bzr send`` now supports MH-E via ``emacsclient``. (Eric Gillespie)
+
   BUG FIXES:
 
     * ``bzr missing`` now uses ``Repository.get_revision_delta()`` rather

=== modified file 'bzrlib/mail_client.py'
--- a/bzrlib/mail_client.py	2009-01-05 17:12:46 +0000
+++ b/bzrlib/mail_client.py	2009-02-26 08:44:15 +0000
@@ -391,7 +391,9 @@
             (if (functionp 'etach-attach)
               (etach-attach file)
               (mail-attach-file file))))
-         ((or (eq agent 'message-user-agent)(eq agent 'gnus-user-agent))
+         ((or (eq agent 'message-user-agent)
+              (eq agent 'gnus-user-agent)
+              (eq agent 'mh-e-user-agent))
           (progn
             (mml-attach-file file "text/x-patch" "BZR merge" "inline")))
          ((eq agent 'mew-user-agent)