diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/emacsbug.el | 8 |
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") |