Mercurial > emacs

changeset 15645:7b2621dc4bea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-make-basic-summary-line): If user-mail-address is nil, use alternative.
author Karl Heuer <kwzh@gnu.org>
date Thu, 11 Jul 1996 23:59:24 +0000
parents 3b4678aa4e9f
children 6f12a8d1dad6
files lisp/mail/rmailsum.el
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el	Thu Jul 11 23:55:01 1996 +0000
+++ b/lisp/mail/rmailsum.el	Thu Jul 11 23:59:24 1996 +0000
@@ -365,7 +365,14 @@
 		(if (string-match (concat "^\\("
 					  (regexp-quote (user-login-name))
 					  "\\($\\|@\\)\\|"
-					  (regexp-quote user-mail-address)
+					  (regexp-quote
+					   ;; Don't lose if run from init file
+					   ;; where user-mail-address is not
+					   ;; set yet.
+					   (or user-mail-address
+					       (concat (user-login-name) "@"
+						       (or mail-host-address
+							   (system-name)))))
 					  "\\>\\)")
 				  from)
 		    (save-excursion