Mercurial > emacs
changeset 111849:33e39f4c2506
* mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 07 Dec 2010 19:47:27 -0800 |
| parents | 20e12bebbbb5 |
| children | f2a5b5a7f017 |
| files | lisp/ChangeLog lisp/mail/emacsbug.el |
| diffstat | 2 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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")