]> git.eshelyaron.com Git - emacs.git/commitdiff
Avoid asking redundant question in emacsbug.el
authorEli Zaretskii <eliz@gnu.org>
Sat, 3 Jun 2023 16:20:23 +0000 (19:20 +0300)
committerEli Zaretskii <eliz@gnu.org>
Sat, 3 Jun 2023 16:20:23 +0000 (19:20 +0300)
* lisp/mail/emacsbug.el (report-emacs-bug-hook): Don't ask the
question about saving email setup if we cannot save it anyway.
(Bug#63816)

lisp/mail/emacsbug.el

index f686c04536cb97ef4d4cf272cde6a717f0f4e117..7a66089aec92de87afc180350222d23bde88aea3 100644 (file)
@@ -455,12 +455,16 @@ and send the mail again%s."
     (setq send-mail-function (sendmail-query-user-about-smtp))
     (when (derived-mode-p 'message-mode)
       (setq message-send-mail-function (message-default-send-mail-function))
-      (add-hook 'message-sent-hook
-                (lambda ()
-                  (when (y-or-n-p "Save this mail sending choice?")
-                    (customize-save-variable 'send-mail-function
-                                             send-mail-function)))
-                nil t)))
+      ;; Don't ask the question below if we are going to ignore it in
+      ;; 'customize-save-variable' anyway.
+      (unless (or (null user-init-file)
+                  (and (null custom-file) init-file-had-error))
+        (add-hook 'message-sent-hook
+                  (lambda ()
+                    (when (y-or-n-p "Save this mail sending choice?")
+                      (customize-save-variable 'send-mail-function
+                                               send-mail-function)))
+                  nil t))))
   (or report-emacs-bug-no-confirmation
       ;; mailclient.el does not need a valid From
       (eq send-mail-function 'mailclient-send-it)