mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(mail-setup): Leave point before signature, not after.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-17 23:18:47 +00:00
parent 1254728338
commit 874bdb5a86
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/sendmail.el
View File

@ -150,7 +150,8 @@ so you can edit or delete these lines.")
(if mail-archive-file-name
(insert "FCC: " mail-archive-file-name "\n"))
(insert mail-header-separator "\n")
;; Insert the signature.
;; Insert the signature. But remember the beginning of the message.
(if to (setq to (point)))
(cond ((eq mail-signature t)
(if (file-exists-p "~/.signature")
(insert-file-contents "~/.signature")))
@ -158,7 +159,7 @@ so you can edit or delete these lines.")
(insert mail-signature)))
(goto-char (point-max))
(or (bolp) (newline)))
(if to (goto-char (point-max)))
(if to (goto-char to))
(or to subject in-reply-to
(set-buffer-modified-p nil))
(run-hooks 'mail-setup-hook))