diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-29 02:15:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-29 02:15:28 +0000 |
| commit | 3b196641d07a995a6f7c8504ceed33fa9e1e4966 (patch) | |
| tree | 42d9265773ca16764e1835e2afe9c74c2217f38a | |
| parent | 678b60017d38e2e9ab04f5c7f6e6fb2e605efeb5 (diff) | |
| download | emacs-3b196641d07a995a6f7c8504ceed33fa9e1e4966.tar.gz | |
(rmail-resend): Use user-mail-address.
| -rw-r--r-- | lisp/mail/rmail.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 1318c7040f9..2b2e8cac3fe 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -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) |