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 c9596344ccc4b13fb26a08c09ba4f3c7632aeda3..fee11c06aa7b43ebfc05e6b71aa3940594a9beb2 100644 (file)
--- 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