Anonymous avatar Anonymous committed ecfc44b


Comments (0)

Files changed (3)

+1998-03-22  Barry A. Warsaw  <>
+	* reporter.el-3.35.
 Thu Mar 19 12:24:19 1998  Barry A. Warsaw  <>
 	* reporter.el:  Released 3.34 to RMS and SLB.
 # This XEmacs package contains independent single file lisp packages
-VERSION = 1.08
+VERSION = 1.09
 MAINTAINER = XEmacs Development Team <>
 PACKAGE = mail-lib
 ;; Author:          1993-1998 Barry A. Warsaw
 ;; Maintainer:
 ;; 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
-(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)))
 	  (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'")
 	    (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'"
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.