🚀 go-pugleaf

System SunOS 4.0.3/Sun4
GNU Emacs 18.55

When I send mail, and there is a line immediately 
after "--text follows this line--",
this first line is considered part of the mail message.

I must put a blank line after the --text follows this line-- to prevent this.

I have two versions of sendmail.el. I added one patch to fix a problem
we had with SunOS 4.0. Here is the context diff
between the current one and an much older version I still happen to have.


diff -c sendmail.el sendmail.el.orig
*** sendmail.el	Wed May 17 14:27:34 1989
--- sendmail.el.orig	Wed May 11 09:23:07 1988
***************
*** 233,244 ****
  				 "/usr/lib/sendmail")
  			       nil errbuf nil
  			       "-oi" "-t")
! 			 ;; Always specify who from,
! 			 ;; since some systems have broken sendmails.
! 			 (list "-f" (user-login-name))
! ;;;			 ;; Don't say "from root" if running under su.
! ;;;			 (and (equal (user-real-login-name) "root")
! ;;;			      (list "-f" (user-login-name)))
  			 ;; These mean "report errors by mail"
  			 ;; and "deliver in background".
  			 (if (null mail-interactive) '("-oem" "-odb"))))
--- 233,241 ----
  				 "/usr/lib/sendmail")
  			       nil errbuf nil
  			       "-oi" "-t")
! 			 ;; Don't say "from root" if running under su.
! 			 (and (equal (user-real-login-name) "root")
! 			      (list "-f" (user-login-name)))
  			 ;; These mean "report errors by mail"
  			 ;; and "deliver in background".
  			 (if (null mail-interactive) '("-oem" "-odb"))))
***************
*** 288,304 ****
  	  (forward-char -5)
  	  (insert ?>)))
        (while fcc-list
! 	(let ((buffer (get-file-buffer (car fcc-list))))
! 	  (if buffer
! 	      ;; File is present in a buffer => append to that buffer.
! 	      (let ((curbuf (current-buffer))
! 		    (beg (point-min)) (end (point-max)))
! 		(save-excursion
! 		  (set-buffer buffer)
! 		  (goto-char (point-max))
! 		  (insert-buffer-substring curbuf beg end)))
! 	    ;; Else append to the file directly.
! 	    (write-region (point-min) (point-max) (car fcc-list) t)))
  	(setq fcc-list (cdr fcc-list))))
      (kill-buffer tembuf)))
  
--- 285,291 ----
  	  (forward-char -5)
  	  (insert ?>)))
        (while fcc-list
! 	(write-region (point-min) (point-max) (car fcc-list) t)
  	(setq fcc-list (cdr fcc-list))))
      (kill-buffer tembuf)))
  
***************
*** 405,411 ****
  
  (defun mail (&optional noerase to subject in-reply-to cc replybuffer)
    "Edit a message to be sent.  Argument means resume editing (don't erase).
! Returns with message buffer selected; value t if message freshly initialized.
  While editing message, type C-c C-c to send the message and exit.
  
  Various special commands starting with C-c are available in sendmail mode
--- 392,398 ----
  
  (defun mail (&optional noerase to subject in-reply-to cc replybuffer)
    "Edit a message to be sent.  Argument means resume editing (don't erase).
! Returns with message buffer seleted; value t if message freshly initialized.
  While editing message, type C-c C-c to send the message and exit.
  
  Various special commands starting with C-c are available in sendmail mode
***************
*** 443,449 ****
  	      t)))
  
  (defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer)
!   "Like `mail' command, but display mail buffer in another window."
    (interactive "P")
    (let ((pop-up-windows t))
      (pop-to-buffer "*mail*"))
--- 430,436 ----
  	      t)))
  
  (defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer)
!   "Like \"mail\" command, but display mail buffer in another window."
    (interactive "P")
    (let ((pop-up-windows t))
      (pop-to-buffer "*mail*"))