# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 759455571 0
# Node ID 03c03462bca39e3f1cde09425c7657abae66c2da
# Parent  ceed2e32b303242f77d58245c19037c9b24cf4c6
(mail-mailer-swallows-blank-line): New variable.
(sendmail-send-it): Add extra newline if appropriate.

diff -r ceed2e32b303 -r 03c03462bca3 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Mon Jan 24 17:07:28 1994 +0000
+++ b/lisp/mail/sendmail.el	Mon Jan 24 23:52:51 1994 +0000
@@ -126,6 +126,16 @@
 It is inserted before you edit the message,
 so you can edit or delete these lines.")
 
+;; Note: could use /usr/ucb/mail instead of sendmail;
+;; options -t, and -v if not interactive.
+(defvar mail-mailer-swallows-blank-line
+  (if (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration)
+      '(looking-at " \t")
+  "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
+actually occur.")
+
 (defvar mail-mode-syntax-table nil
   "Syntax table used while in mail mode.")
 
@@ -402,6 +412,11 @@
 	    (goto-char (point-min))
 	    (if (re-search-forward "^Subject:[ \t]*\n" delimline t)
 		(replace-match ""))
+	    ;; Insert an extra newline if we need it to work around
+	    ;; Sun's bug that swallows newlines.
+	    (goto-char (1+ delimline))
+	    (if (eval mail-mailer-swallows-blank-line)
+		(newline))
 	    (if mail-interactive
 		(save-excursion
 		  (set-buffer errbuf)