From 02f21b813f41698f897bfd8796f78b99305c4d99 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Dec 1996 18:49:11 +0000 Subject: [PATCH] (report-emacs-bug): Use compose-mail. --- lisp/mail/emacsbug.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 617df8968d1..6efd33ea05a 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -53,14 +53,14 @@ Prompts for bug subject. Leaves you in a mail buffer." ;; 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 @@ Type SPC to scroll through this section and its subsections."))) (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." -- 2.39.5