From 3b196641d07a995a6f7c8504ceed33fa9e1e4966 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 29 Jul 1997 02:15:28 +0000 Subject: (rmail-resend): Use user-mail-address. --- lisp/mail/rmail.el | 7 +++---- 1 file 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) -- cgit v1.2.1