Source

mail-lib / reporter.el

Diff from to

File reporter.el

 ;; Author:          1993-1998 Barry A. Warsaw
 ;; Maintainer:      tools-help@python.org
 ;; Created:         19-Apr-1993
-;; Version:         3.34
-;; Last Modified:   1998/03/19 17:21:16
+;; Version:         3.35
+;; Last Modified:   1998/03/20 22:52:44
 ;; Keywords: maint mail tools
 
 ;; This file is part of GNU Emacs.
 variables.  Current buffer will always be the mail buffer being
 composed.")
 
-(defconst reporter-version "3.34"
+(defconst reporter-version "3.35"
   "Reporter version number.")
 
 (defvar reporter-initial-text nil
     (buffer-substring (match-beginning 0) (match-end 0))))
 
 
-;; Serves as an interface to `mail' (sendmail.el), but when the user
-;; answers "no" to discarding an unsent message, it gives an error.
-(defun reporter-mail (&rest args)
-  (or (apply 'mail args)
-      (error "Bug report aborted")))
-
 (defun reporter-compose-outgoing ()
   ;; compose the outgoing mail buffer, and return the selected
   ;; paradigm, with the current-buffer tacked onto the beginning of
 	 (compose (get mail-user-agent 'composefunc)))
     ;; Sanity check.  If this fails then we'll try to use the SENDMAIL
     ;; protocol, otherwise we must signal an error.
-    (if (not (and compose (fboundp compose)))
+    (if (not (and compose (functionp compose)))
 	(progn
 	  (setq agent 'sendmail-user-agent
 		compose (get agent 'composefunc))
-	  (if (not (and compose (fboundp compose)))
+	  (if (not (and compose (functionp compose)))
 	      (error "Could not find a valid `mail-user-agent'")
 	    (ding)
 	    (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'"