diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-13 17:05:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-13 17:05:39 +0000 |
| commit | 0d4178ee2c52d5cc110c274566333523318be972 (patch) | |
| tree | 5367083fb6f9bda08d38c4a3d49a4b76dbcd957c /lisp/mail/reporter.el | |
| parent | 7be313ea3b46a5877b0f2b2ee6639f1c3d660fef (diff) | |
| download | emacs-0d4178ee2c52d5cc110c274566333523318be972.tar.gz | |
(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.
Diffstat (limited to 'lisp/mail/reporter.el')
| -rw-r--r-- | lisp/mail/reporter.el | 41 |
1 files changed, 24 insertions, 17 deletions
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) |