diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-11 23:59:24 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-11 23:59:24 +0000 |
| commit | a3ecd51cc748b7338c15775af249f9682516dd38 (patch) | |
| tree | ba30d88bc18a3c7a3d13af747ead657b6ca44f66 /lisp/mail | |
| parent | d3fa7bbecb1ac414572c6dd8e02de8d5f4b0b990 (diff) | |
| download | emacs-a3ecd51cc748b7338c15775af249f9682516dd38.tar.gz | |
(rmail-make-basic-summary-line):
If user-mail-address is nil, use alternative.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index f2134f99934..f9152447733 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -365,7 +365,14 @@ nil for FUNCTION means all messages." (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 |