diff options
| author | Karl Heuer | 1995-12-21 18:07:18 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-12-21 18:07:18 +0000 |
| commit | b55535f3b0e92c9a597ea97d6896bfc35b41a79c (patch) | |
| tree | 69114744dfb16cda9cdd4c20bbeb5ffe7b0cb168 | |
| parent | 40e09f88122c5d8a7334e3493579a9a1da9536ed (diff) | |
| download | emacs-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.el | 6 |
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)) |