Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 18568:5f22717861fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Don't assume the exit command is mail-send-and-exit for all user agents.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Jul 1997 02:29:48 +0000
parents 36a661aac20a
children 19f99191b11d
comparison
equal deleted inserted replaced
18567:1ece30a0422b 18568:5f22717861fa
107 ;; This is so the user has to type something 107 ;; This is so the user has to type something
108 ;; in order to send easily. 108 ;; in order to send easily.
109 (use-local-map (nconc (make-sparse-keymap) (current-local-map))) 109 (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
110 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) 110 (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info)
111 (with-output-to-temp-buffer "*Bug Help*" 111 (with-output-to-temp-buffer "*Bug Help*"
112 (princ (substitute-command-keys 112 (if (eq mail-user-agant 'sendmail-user-agent)
113 "Type \\[mail-send-and-exit] to send the bug report.\n")) 113 (princ (substitute-command-keys
114 "Type \\[mail-send-and-exit] to send the bug report.\n")))
114 (princ (substitute-command-keys 115 (princ (substitute-command-keys
115 "Type \\[kill-buffer] RET to cancel (don't send it).\n")) 116 "Type \\[kill-buffer] RET to cancel (don't send it).\n"))
116 (terpri) 117 (terpri)
117 (princ (substitute-command-keys 118 (princ (substitute-command-keys
118 "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section 119 "Type \\[report-emacs-bug-info] to visit in Info the Emacs Manual section