diff options
| -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)) |