From: Glenn Morris Date: Wed, 8 Dec 2010 03:47:27 +0000 (-0800) Subject: * mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~21 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fe9ebd14e9f41704c0bedb9ea0c6ad4e4501995;p=emacs.git * mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients. --- 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 + + * mail/emacsbug.el (report-emacs-bug): + Try to handle some other mail clients. + 2010-12-08 Stefan Monnier * 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")