Mercurial > emacs

changeset 19031:369a8580b08e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-resend): Use user-mail-address.
author Richard M. Stallman <rms@gnu.org>
date Tue, 29 Jul 1997 02:15:28 +0000
parents 469abf255dcb
children 84ae0a03a643
files lisp/mail/rmail.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Jul 29 00:53:09 1997 +0000
+++ b/lisp/mail/rmail.el	Tue Jul 29 02:15:28 1997 +0000
@@ -2636,15 +2636,14 @@
 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)