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."