* mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6e035e..ef07e77 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-08  Glenn Morris  <rgm@gnu.org>
+
+       * mail/emacsbug.el (report-emacs-bug):
+       Try to handle some other mail clients.
+
 2010-12-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * files.el (dir-locals-collect-variables): Don't let errors stop us.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 5bc6a7e..40a5c08 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -288,7 +288,13 @@ usually do not have translators to read other languages for them.\n\n")
                  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")