(mail-mailer-swallows-blank-line): Fix regexp typo.

Check for apparent header line as well as for leading whitespace.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 4325ce4..e0fa000 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -137,9 +137,9 @@ so you can edit or delete these lines.")
                   (insert-file-contents "/etc/sendmail.cf")
                   (goto-char (point-min))
                   (let ((case-fold-search nil))
-                    (re-search-forward "^OR\>" nil t)))
+                    (re-search-forward "^OR\\>" nil t)))
               (kill-buffer buffer))))
-      '(looking-at " \t"))
+      '(looking-at " \t\\|[-a-zA-Z]+:"))
   "Set this non-nil if the system's mailer runs the header and body together.
 \(This problem exists on Sunos 4 when sendmail is run in remote mode.)
 The value should be an expression to test whether the problem will