From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 Apr 1995 04:33:59 +0000 (+0000)
Subject: (reporter-submit-bug-report): Give up if mailer
X-Git-Tag: emacs-19.34~4646
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39b71e3947ff147afc9c9bff35da81905c0cd69e;p=emacs.git

(reporter-submit-bug-report): Give up if mailer
command returns nil.  Fix error message syntax.
(reporter-bug-hook): Fix error message syntax.
---

diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 9e1481a571b..5bda6c5d49a 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -326,21 +326,22 @@ composed.")
 		      (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 @@ composed.")
 		  (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"))
       )))