Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
106515:38ff092d4d00 | 106516:16c633230547 |
---|---|
224 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) | 224 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) |
225 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) | 225 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) |
226 (unless report-emacs-bug-no-explanations | 226 (unless report-emacs-bug-no-explanations |
227 (with-output-to-temp-buffer "*Bug Help*" | 227 (with-output-to-temp-buffer "*Bug Help*" |
228 (princ "While in the mail buffer:\n\n") | 228 (princ "While in the mail buffer:\n\n") |
229 (if (eq mail-user-agent 'sendmail-user-agent) | 229 (let ((send |
230 (princ (substitute-command-keys | 230 (cond ((eq mail-user-agent 'sendmail-user-agent) |
231 " Type \\[mail-send-and-exit] to send the bug report.\n"))) | 231 "mail-send-and-exit") |
232 ((memq mail-user-agent '(message-user-agent | |
233 gnus-user-agent)) | |
234 "message-send-and-exit") | |
235 ((eq mail-user-agent 'mh-e-user-agent) | |
236 "mh-send-letter")))) | |
237 (when send | |
238 (princ (substitute-command-keys | |
239 (format " Type \\[%s] to send the bug report.\n" send))))) | |
232 (princ (substitute-command-keys | 240 (princ (substitute-command-keys |
233 " Type \\[kill-buffer] RET to cancel (don't send it).\n")) | 241 " Type \\[kill-buffer] RET to cancel (don't send it).\n")) |
234 (terpri) | 242 (terpri) |
235 (princ (substitute-command-keys | 243 (princ (substitute-command-keys |
236 " Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section | 244 " Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section |