# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797142839 0
# Node ID db8f78f3f9a9cc2f5f953d7ed6495cb63e2ac813
# Parent  2f9a24a4c9eb2ec7174124387ef9de9365fbf391
(reporter-submit-bug-report): Give up if mailer
command returns nil.  Fix error message syntax.
(reporter-bug-hook): Fix error message syntax.

diff -r 2f9a24a4c9eb -r db8f78f3f9a9 lisp/mail/reporter.el
--- a/lisp/mail/reporter.el	Thu Apr 06 02:53:19 1995 +0000
+++ b/lisp/mail/reporter.el	Thu Apr 06 04:33:59 1995 +0000
@@ -326,21 +326,22 @@
 		      (read-string "(Very) brief summary of problem: ")))
 	(mailbuf
 	 (progn
-	   (call-interactively
-	    (if (nlistp reporter-mailer)
-		reporter-mailer
-	      (let ((mlist reporter-mailer)
-		    (mailer nil))
-		(while mlist
-		  (if (commandp (car mlist))
-		      (setq mailer (car mlist)
-			    mlist nil)
-		    (setq mlist (cdr mlist))))
-		(if (not mailer)
-		    (error
-		     "variable `%s' does not contain a command for mailing."
-		     "reporter-mailer"))
-		mailer)))
+	   (or (call-interactively
+		(if (nlistp reporter-mailer)
+		    reporter-mailer
+		  (let ((mlist reporter-mailer)
+			(mailer nil))
+		    (while mlist
+		      (if (commandp (car mlist))
+			  (setq mailer (car mlist)
+				mlist nil)
+			(setq mlist (cdr mlist))))
+		    (if (not mailer)
+			(error
+			 "Variable `%s' does not contain a command for mailing"
+			 "reporter-mailer"))
+		    mailer)))
+	       (error "Bug report aborted"))
 	   (current-buffer))))
     (require 'sendmail)
     (pop-to-buffer reporter-eval-buffer)
@@ -410,7 +411,7 @@
 		  (length reporter-initial-text))
 	       (string= (buffer-substring after-sep-pos (point))
 			reporter-initial-text))
-	  (error "Empty bug report cannot be sent."))
+	  (error "Empty bug report cannot be sent"))
       )))