From 0d4178ee2c52d5cc110c274566333523318be972 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 13 Apr 1995 17:05:39 +0000
Subject: (reporter-mailer): Replace mail with reporter-mail. (reporter-mail):
 New function. (reporter-submit-bug-report): Don't check return value of the
 reporter-mailer function.

---
 lisp/mail/reporter.el | 41 ++++++++++++++++++++++++-----------------
 1 file changed, 24 insertions(+), 17 deletions(-)

(limited to 'lisp/mail/reporter.el')

diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el
index 5bda6c5d49a..6ee7628e112 100644
--- a/lisp/mail/reporter.el
+++ b/lisp/mail/reporter.el
@@ -81,7 +81,7 @@
 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
 ;; user defined variables
 
-(defvar reporter-mailer '(vm-mail mail)
+(defvar reporter-mailer '(vm-mail reporter-mail)
   "*Mail package to use to generate bug report buffer.
 This can either be a function symbol or a list of function symbols.
 If a list, it tries to use each specified mailer in order until an
@@ -301,6 +301,14 @@ composed.")
      'move)				;search for and move
     (buffer-substring (match-beginning 0) (match-end 0))))
 
+;; Serves as an interface to `mail',
+;; but when the user says "no" to discarding an unset message,
+;; it gives an error.
+(defun reporter-mail (&rest args)
+  (interactive "P")
+  (or (apply 'mail args)
+      (error "Bug report aborted")))
+
 ;;;###autoload
 (defun reporter-submit-bug-report
   (address pkgname varlist &optional pre-hooks post-hooks salutation)
@@ -326,22 +334,21 @@ composed.")
 		      (read-string "(Very) brief summary of problem: ")))
 	(mailbuf
 	 (progn
-	   (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"))
+	   (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)))
 	   (current-buffer))))
     (require 'sendmail)
     (pop-to-buffer reporter-eval-buffer)
-- 
cgit v1.2.1