# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867896988 0
# Node ID 5f22717861fa7e079d90b9264cd8be45e3bfcd80
# Parent  1ece30a0422b4f36a17e41429007e0f0504047bb
(report-emacs-bug): Don't assume the exit command
is mail-send-and-exit for all user agents.

diff -r 1ece30a0422b -r 5f22717861fa lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Thu Jul 03 01:06:11 1997 +0000
+++ b/lisp/mail/emacsbug.el	Thu Jul 03 02:29:48 1997 +0000
@@ -109,8 +109,9 @@
 	(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)