# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739162825 0
# Node ID f3052346f0050cf11899f2ce44a2c4d6a4530f74
# Parent  00294579481459115133151aa689a66c4fae174b
(mail-do-fcc): Omit first 2 lines when appending to an RMAIL buffer.

diff -r 002945794814 -r f3052346f005 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Fri Jun 04 02:39:51 1993 +0000
+++ b/lisp/mail/sendmail.el	Fri Jun 04 03:00:25 1993 +0000
@@ -414,7 +414,9 @@
 	  (if buffer
 	      ;; File is present in a buffer => append to that buffer.
 	      (let ((curbuf (current-buffer))
-		    (beg (point-min)) (end (point-max)))
+		    (beg (point-min)) (end (point-max))
+		    (beg2 (save-excursion (goto-char (point-min))
+					  (forward-line 2) (point))))
 		(save-excursion
 		  (set-buffer buffer)
 		  ;; Keep the end of the accessible portion at the same place
@@ -436,7 +438,8 @@
 				(insert "\C-l\n0, unseen,,\n*** EOOH ***\n"
 					"From: " (user-login-name) "\n"
 					"Date: " (current-time-string) "\n")
-				(insert-buffer-substring curbuf beg end)
+				;; Omit the blank line and the Unix From line.
+				(insert-buffer-substring curbuf beg2 end)
 				(insert "\n\C-_")
 				(rmail-set-message-counters))
 			    (insert-buffer-substring curbuf beg end)))