From 5fe9ebd14e9f41704c0bedb9ea0c6ad4e4501995 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 7 Dec 2010 19:47:27 -0800 Subject: [PATCH] * mail/emacsbug.el (report-emacs-bug): Try to handle some other mail clients. --- lisp/ChangeLog | 5 +++++ lisp/mail/emacsbug.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) 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") -- 2.11.4.GIT