Mercurial > emacs
changeset 16775:36a661aac20a
(report-emacs-bug): Use compose-mail.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 29 Dec 1996 18:49:11 +0000 |
| parents | 15bd0a5a287a |
| children | b998fe0016d5 |
| files | lisp/mail/emacsbug.el |
| diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el Sun Dec 29 18:08:04 1996 +0000 +++ b/lisp/mail/emacsbug.el Sun Dec 29 18:49:11 1996 +0000 @@ -53,14 +53,14 @@ ;; This strange form ensures that (recent-keys) is the value before ;; the bug subject string is read. (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) - (if (mail nil - (if (string-match "\\..*\\..*\\." emacs-version) - ;; If there are four numbers in emacs-version, - ;; this is a pretest version. - report-emacs-bug-pretest-address - bug-gnu-emacs) - topic) + (condition-case nil (let (user-point) + (compose-mail (if (string-match "\\..*\\..*\\." emacs-version) + ;; If there are four numbers in emacs-version, + ;; this is a pretest version. + report-emacs-bug-pretest-address + bug-gnu-emacs) + topic) ;; The rest of this does not execute ;; if the user was asked to confirm and said no. (goto-char (point-min)) @@ -127,7 +127,8 @@ (skip-chars-backward " \t\n") (make-local-variable 'report-emacs-bug-orig-text) (setq report-emacs-bug-orig-text (buffer-substring (point-min) (point)))) - (goto-char user-point)))) + (goto-char user-point)) + (error nil))) (defun report-emacs-bug-info () "Go to the Info node on reporting Emacs bugs."