aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-12-21 18:07:18 +0000
committerKarl Heuer1995-12-21 18:07:18 +0000
commitb55535f3b0e92c9a597ea97d6896bfc35b41a79c (patch)
tree69114744dfb16cda9cdd4c20bbeb5ffe7b0cb168
parent40e09f88122c5d8a7334e3493579a9a1da9536ed (diff)
downloademacs-b55535f3b0e92c9a597ea97d6896bfc35b41a79c.tar.gz
emacs-b55535f3b0e92c9a597ea97d6896bfc35b41a79c.zip
(rmail-make-basic-summary-line):
Recognize user-mail-address in From field means msg is from you.
-rw-r--r--lisp/mail/rmailsum.el6
1 files changed, 4 insertions, 2 deletions
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."
348 (skip-chars-backward " \t") 348 (skip-chars-backward " \t")
349 (point))))) 349 (point)))))
350 len mch lo) 350 len mch lo)
351 (if (string-match (concat "^" 351 (if (string-match (concat "^\\("
352 (regexp-quote (user-login-name)) 352 (regexp-quote (user-login-name))
353 "\\($\\|@\\)") 353 "\\($\\|@\\)\\|"
354 (regexp-quote user-mail-address)
355 "\\>\\)")
354 from) 356 from)
355 (save-excursion 357 (save-excursion
356 (goto-char (point-min)) 358 (goto-char (point-min))