[Emacs-diffs] /srv/bzr/emacs/trunk r102607: * mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients.

[Glenn Morris]

------------------------------------------------------------
revno: 102607
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2010-12-07 19:47:27 -0800
message:
  * mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-08 02:18:02 +0000
+++ b/lisp/ChangeLog    2010-12-08 03:47:27 +0000
@@ -1,3 +1,8 @@
+2010-12-08  Glenn Morris  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug):
+       Try to handle some other mail clients.
+
 2010-12-08  Stefan Monnier  <address@hidden>
 
        * files.el (dir-locals-collect-variables): Don't let errors stop us.

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2010-12-03 03:03:06 +0000
+++ b/lisp/mail/emacsbug.el     2010-12-08 03:47:27 +0000
@@ -288,7 +288,13 @@
                  report-emacs-bug-send-hook 'mail-send-hook))
           ((eq mail-user-agent 'mh-e-user-agent)
            (setq report-emacs-bug-send-command "mh-send-letter"
-                 report-emacs-bug-send-hook 'mh-before-send-letter-hook)))
+                 report-emacs-bug-send-hook 'mh-before-send-letter-hook))
+         ((eq mail-user-agent 'vm-user-agent)
+          (setq report-emacs-bug-send-command "vm-mail-send-and-exit"
+                report-emacs-bug-send-hook 'vm-mail-send-hook))
+         ((eq mail-user-agent 'wl-user-agent)
+          (setq report-emacs-bug-send-command "wl-draft-send-and-exit"
+                report-emacs-bug-send-hook 'wl-draft-send-hook)))
     (unless report-emacs-bug-no-explanations
       (with-output-to-temp-buffer "*Bug Help*"
        (princ "While in the mail buffer:\n\n")