diff options
| author | Stephen Leake <stephen_leake@stephe-leake.org> | 2019-07-30 11:03:15 -0700 |
|---|---|---|
| committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2019-07-30 11:03:15 -0700 |
| commit | 01739625704aaaea6831cef459a4a53171689513 (patch) | |
| tree | ef9f324b3fa6696647c6e637e436ee6160155b92 /lisp/mail/emacsbug.el | |
| parent | 056cbcb7a959463290bc91c19b909cbf3eb47d0a (diff) | |
| parent | 9b480db6732c6d2e886838f112d9bd46fc8989bf (diff) | |
| download | emacs-01739625704aaaea6831cef459a4a53171689513.tar.gz emacs-01739625704aaaea6831cef459a4a53171689513.tar.bz2 emacs-01739625704aaaea6831cef459a4a53171689513.zip | |
Merge commit '9b480db6732c6d2e886838f112d9bd46fc8989bf'
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index c637e242c42..13219a4b444 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -430,14 +430,10 @@ usually do not have translators for other languages.\n\n"))) report-emacs-bug-orig-text) (error "No text entered in bug report")) ;; Warning for novice users. - (unless (or report-emacs-bug-no-confirmation - (yes-or-no-p - "Send this bug report to the Emacs maintainers? ")) - (goto-char (point-min)) - (if (search-forward "To: ") - (delete-region (point) (line-end-position))) - (if report-emacs-bug-send-hook - (kill-local-variable report-emacs-bug-send-hook)) + (when (and (string-match "bug-gnu-emacs@gnu\\.org" (mail-fetch-field "to")) + (not report-emacs-bug-no-confirmation) + (not (yes-or-no-p + "Send this bug report to the Emacs maintainers? "))) (with-output-to-temp-buffer "*Bug Help*" (princ (substitute-command-keys (format "\ |