From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 21 Dec 1995 18:07:18 +0000 (+0000)
Subject: (rmail-make-basic-summary-line):
X-Git-Tag: emacs-19.34~2051
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b55535f3b0e92c9a597ea97d6896bfc35b41a79c;p=emacs.git

(rmail-make-basic-summary-line):
Recognize user-mail-address in From field means msg is from you.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 83ab968a654..a3b2374f658 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -348,9 +348,11 @@ nil for FUNCTION means all messages."
 			       (skip-chars-backward " \t")
 			       (point)))))
                      len mch lo)
-		(if (string-match (concat "^"
+		(if (string-match (concat "^\\("
 					  (regexp-quote (user-login-name))
-					  "\\($\\|@\\)")
+					  "\\($\\|@\\)\\|"
+					  (regexp-quote user-mail-address)
+					  "\\>\\)")
 				  from)
 		    (save-excursion
 		      (goto-char (point-min))