(report-emacs-bug): Don't assume the exit command

is mail-send-and-exit for all user agents.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 6efd33ea05ad1be60ef09a70d08315a04050ac4d..86a81dd893e9b3481e9f050281db53a4708cf328 100644 (file)
--- 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)