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

(rmail-resend): Use user-mail-address.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-07-29 02:15:28 +00:00
parent 249443b691
commit 9a2fe7b204
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/rmail.el
View File

@ -2636,15 +2636,14 @@ ADDRESSES should be a single address, a string consisting of several
addresses separated by commas, or a list of addresses.
Optional FROM is the address to resend the message from, and
defaults to the username of the person redistributing the message.
Optional COMMENT is a string that will be inserted as a comment in the
resent message.
defaults from the value of `user-mail-address'.
Optional COMMENT is a string to insert as a comment in the resent message.
Optional ALIAS-FILE is alternate aliases file to be used by sendmail,
typically for purposes of moderating a list."
(interactive "sResend to: ")
(require 'sendmail)
(require 'mailalias)
(if (not from) (setq from (user-login-name)))
(if (not from) (setq from user-mail-address))
(let ((tembuf (generate-new-buffer " sendmail temp"))
(mail-header-separator "")
(case-fold-search nil)