Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 106516:16c633230547

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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