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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6e035ebe97d7b8954620db697fbf145594d0219..ef07e77702236cf2d1926c2d621b734f123b056e 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 5bc6a7edd82545435824919e1d831330847149fd..40a5c081cfd7299e357f5e65592d72fc24bad87a 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")