From: Richard Stallman <rms@gnu.org>
Date: Wed, 12 May 2021 02:59:12 +0000 (-0400)
Subject: Avoid querying in a noninteractive Emacs.
X-Git-Tag: emacs-28.0.90~2508
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67722ab62f9cd0ce81efd628d5a87b8ef350aacc;p=emacs.git

Avoid querying in a noninteractive Emacs.

* lisp/mail/sendmail.el (mail-send): In noninteractive Emacs,
don't ask about combining header fields.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index c9596344ccc..fee11c06aa7 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -896,8 +896,9 @@ the user from the mailer."
                 (concat "\\(?:[[:space:];,]\\|\\`\\)"
                         (regexp-opt mail-mailing-lists t)
                         "\\(?:[[:space:];,]\\|\\'\\)"))))
-        (mail-combine-fields "To")
-        (mail-combine-fields "Cc")
+        (unless noninteractive
+          (mail-combine-fields "To")
+          (mail-combine-fields "Cc"))
 	;; If there are mailing lists defined
 	(when ml
 	  (save-excursion