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

2 files changed, 12 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6e035ebe97..ef07e777022 100644
--- 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 5bc6a7edd82..40a5c081cfd 100644
--- 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")