Mercurial > emacs
changeset 11212:db8f78f3f9a9
(reporter-submit-bug-report): Give up if mailer
command returns nil. Fix error message syntax.
(reporter-bug-hook): Fix error message syntax.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Apr 1995 04:33:59 +0000 |
| parents | 2f9a24a4c9eb |
| children | d0811ba886f8 |
| files | lisp/mail/reporter.el |
| diffstat | 1 files changed, 17 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/reporter.el Thu Apr 06 02:53:19 1995 +0000 +++ b/lisp/mail/reporter.el Thu Apr 06 04:33:59 1995 +0000 @@ -326,21 +326,22 @@ (read-string "(Very) brief summary of problem: "))) (mailbuf (progn - (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))) + (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")) (current-buffer)))) (require 'sendmail) (pop-to-buffer reporter-eval-buffer) @@ -410,7 +411,7 @@ (length reporter-initial-text)) (string= (buffer-substring after-sep-pos (point)) reporter-initial-text)) - (error "Empty bug report cannot be sent.")) + (error "Empty bug report cannot be sent")) )))