Commit 801ddffa authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-do-fcc): Omit first 2 lines when appending to an RMAIL buffer.

parent 230c6b36
......@@ -414,7 +414,9 @@ the user from the mailer."
(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))))
(set-buffer buffer)
;; Keep the end of the accessible portion at the same place
......@@ -436,7 +438,8 @@ the user from the mailer."
(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-_")
(insert-buffer-substring curbuf beg end)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment