1. xemacs
  2. mail-lib


steveb  committed ecfc44b


  • Participants
  • Parent commits aa1e781
  • Branches default

Comments (0)

Files changed (3)

File ChangeLog

View file
+1998-03-22  Barry A. Warsaw  <bwarsaw@cnri.reston.va.us>
+	* reporter.el-3.35.
 Thu Mar 19 12:24:19 1998  Barry A. Warsaw  <bwarsaw@cnri.reston.va.us>
 	* reporter.el:  Released 3.34 to RMS and SLB.

File Makefile

View file
 # This XEmacs package contains independent single file lisp packages
-VERSION = 1.08
+VERSION = 1.09
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = mail-lib

File reporter.el

View file
 ;; 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
-(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'"