Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 15645:7b2621dc4bea
(rmail-make-basic-summary-line):
If user-mail-address is nil, use alternative.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 11 Jul 1996 23:59:24 +0000 |
| parents | 2066a7282df9 |
| children | 996e272e9192 |
comparison
equal
deleted
inserted
replaced
| 15644:3b4678aa4e9f | 15645:7b2621dc4bea |
|---|---|
| 363 (point))))) | 363 (point))))) |
| 364 len mch lo) | 364 len mch lo) |
| 365 (if (string-match (concat "^\\(" | 365 (if (string-match (concat "^\\(" |
| 366 (regexp-quote (user-login-name)) | 366 (regexp-quote (user-login-name)) |
| 367 "\\($\\|@\\)\\|" | 367 "\\($\\|@\\)\\|" |
| 368 (regexp-quote user-mail-address) | 368 (regexp-quote |
| 369 ;; Don't lose if run from init file | |
| 370 ;; where user-mail-address is not | |
| 371 ;; set yet. | |
| 372 (or user-mail-address | |
| 373 (concat (user-login-name) "@" | |
| 374 (or mail-host-address | |
| 375 (system-name))))) | |
| 369 "\\>\\)") | 376 "\\>\\)") |
| 370 from) | 377 from) |
| 371 (save-excursion | 378 (save-excursion |
| 372 (goto-char (point-min)) | 379 (goto-char (point-min)) |
| 373 (if (not (re-search-forward "^To:[ \t]*" nil t)) | 380 (if (not (re-search-forward "^To:[ \t]*" nil t)) |