Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 88264:127c0cb66742
(rmail-summary-get-sender): Narrow to current
message before extracting headers.
author | Henrik Enberg <henrik.enberg@telia.com> |
---|---|
date | Sat, 21 Jan 2006 16:27:59 +0000 |
parents | e7a1851e3fcc |
children | 0be17d16f2ef |
comparison
equal
deleted
inserted
replaced
88263:069a5d0feb9a | 88264:127c0cb66742 |
---|---|
1493 (or mail-host-address | 1493 (or mail-host-address |
1494 (system-name))))) | 1494 (system-name))))) |
1495 "\\>\\)")) | 1495 "\\>\\)")) |
1496 sender)) | 1496 sender)) |
1497 ;; Either no sender known, or it's this user. | 1497 ;; Either no sender known, or it's this user. |
1498 (let ((to (rmail-header-get-header "to"))) | 1498 (save-restriction |
1499 (concat "to: " (mail-strip-quoted-names to))) | 1499 (narrow-to-region (rmail-desc-get-start n) |
1500 (rmail-desc-get-end n)) | |
1501 (concat "to: " (mail-strip-quoted-names | |
1502 (rmail-header-get-header "to")))) | |
1500 sender))) | 1503 sender))) |
1501 | 1504 |
1502 (defun rmail-summary-get-line-count (n) | 1505 (defun rmail-summary-get-line-count (n) |
1503 "Return a string containing the number of lines in message N. | 1506 "Return a string containing the number of lines in message N. |
1504 If `rmail-summary-line-count-flag' is nil, return the empty string." | 1507 If `rmail-summary-line-count-flag' is nil, return the empty string." |