diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-03 02:29:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-03 02:29:48 +0000 |
| commit | ceaa7fbed13947683579244059655e361e9639c6 (patch) | |
| tree | ad39662d594d3ef4f1e60cc4cf8d534ac3d66a02 /lisp/mail/emacsbug.el | |
| parent | b527f6c26c1141ba706ace3ab5fdcac4ec10798f (diff) | |
| download | emacs-ceaa7fbed13947683579244059655e361e9639c6.tar.gz | |
(report-emacs-bug): Don't assume the exit command
is mail-send-and-exit for all user agents.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 6efd33ea05a..86a81dd893e 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -109,8 +109,9 @@ Prompts for bug subject. Leaves you in a mail buffer." (use-local-map (nconc (make-sparse-keymap) (current-local-map))) (define-key (current-local-map) "\C-c\C-i" 'report-emacs-bug-info) (with-output-to-temp-buffer "*Bug Help*" - (princ (substitute-command-keys - "Type \\[mail-send-and-exit] to send the bug report.\n")) + (if (eq mail-user-agant 'sendmail-user-agent) + (princ (substitute-command-keys + "Type \\[mail-send-and-exit] to send the bug report.\n"))) (princ (substitute-command-keys "Type \\[kill-buffer] RET to cancel (don't send it).\n")) (terpri) |