Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
801ddffa
Commit
801ddffa
authored
Jun 04, 1993
by
Richard M. Stallman
Browse files
(mail-do-fcc): Omit first 2 lines when appending to an RMAIL buffer.
parent
230c6b36
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
2 deletions
+5
-2
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+5
-2
No files found.
lisp/mail/sendmail.el
View file @
801ddffa
...
...
@@ -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))))
(save-excursion
(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-_")
(rmail-set-message-counters))
(insert-buffer-substring curbuf beg end)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment