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
0d021ccf
Commit
0d021ccf
authored
Jun 03, 1992
by
Eric S. Raymond
Browse files
*** empty log message ***
parent
dd309224
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+6
-4
No files found.
lisp/mail/sendmail.el
View file @
0d021ccf
...
...
@@ -470,14 +470,16 @@ the user from the mailer."
(goto-char (point-min))
(search-forward (concat "
\n
" mail-header-separator "
\n
")))
(defun mail-signature ()
(defun mail-signature (
atpoint
)
"
Sign
letter
with
contents
of
~/.signature
file.
"
(interactive)
(interactive
"
P
"
)
(save-excursion
(goto-char (point-max))
(or atpoint
(goto-char (point-max)))
(skip-chars-backward "
\t\n
")
(end-of-line)
(delete-region (point) (point-max))
(or atpoint
(delete-region (point) (point-max)))
(insert "
\n\n--\n
")
(insert-file-contents (expand-file-name "
~/.signature
"))))
...
...
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