Mercurial > emacs
changeset 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 | 069a5d0feb9a |
| children | defd9948075b |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat Jan 21 16:18:59 2006 +0000 +++ b/lisp/mail/rmailsum.el Sat Jan 21 16:27:59 2006 +0000 @@ -1495,8 +1495,11 @@ "\\>\\)")) sender)) ;; Either no sender known, or it's this user. - (let ((to (rmail-header-get-header "to"))) - (concat "to: " (mail-strip-quoted-names to))) + (save-restriction + (narrow-to-region (rmail-desc-get-start n) + (rmail-desc-get-end n)) + (concat "to: " (mail-strip-quoted-names + (rmail-header-get-header "to")))) sender))) (defun rmail-summary-get-line-count (n)