Mercurial > emacs
diff lisp/mail/emacsbug.el @ 106516:16c633230547
(report-emacs-bug): Use whichever send command is appropriate for the
mail-user-agent in use.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 10 Dec 2009 08:17:15 +0000 |
parents | 548e316508c5 |
children | e5b7752075ef |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Wed Dec 09 20:15:56 2009 +0000 +++ b/lisp/mail/emacsbug.el Thu Dec 10 08:17:15 2009 +0000 @@ -226,9 +226,17 @@ (unless report-emacs-bug-no-explanations (with-output-to-temp-buffer "*Bug Help*" (princ "While in the mail buffer:\n\n") - (if (eq mail-user-agent 'sendmail-user-agent) - (princ (substitute-command-keys - " Type \\[mail-send-and-exit] to send the bug report.\n"))) + (let ((send + (cond ((eq mail-user-agent 'sendmail-user-agent) + "mail-send-and-exit") + ((memq mail-user-agent '(message-user-agent + gnus-user-agent)) + "message-send-and-exit") + ((eq mail-user-agent 'mh-e-user-agent) + "mh-send-letter")))) + (when send + (princ (substitute-command-keys + (format " Type \\[%s] to send the bug report.\n" send))))) (princ (substitute-command-keys " Type \\[kill-buffer] RET to cancel (don't send it).\n")) (terpri)