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

9a2fe7b2 · Richard M. Stallman · 249443b6 · 9a2fe7b2
Commit 9a2fe7b2 authored Jul 29, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 4 deletions

lisp/mail/rmail.el lisp/mail/rmail.el +3 -4

No files found.
--- 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)