# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1291780047 28800
# Node ID 33e39f4c2506aaa21e4dde4b77981e9bb699e404
# Parent  20e12bebbbb55f1d2121eee1b65104ec0ee424e0
* mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients.

diff -r 20e12bebbbb5 -r 33e39f4c2506 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Dec 07 19:45:45 2010 -0800
+++ b/lisp/ChangeLog	Tue Dec 07 19:47:27 2010 -0800
@@ -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 -r 20e12bebbbb5 -r 33e39f4c2506 lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Tue Dec 07 19:45:45 2010 -0800
+++ b/lisp/mail/emacsbug.el	Tue Dec 07 19:47:27 2010 -0800
@@ -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")