From: Henrik Enberg <henrik.enberg@telia.com>
Date: Sat, 21 Jan 2006 16:27:59 +0000 (+0000)
Subject: (rmail-summary-get-sender): Narrow to current
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ce2f91c13e925a8489ef6137ae250701b0242c24;p=emacs.git

(rmail-summary-get-sender): Narrow to current
message before extracting headers.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index bd174be82e5..f066523e506 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -1495,8 +1495,11 @@ If sender matches `rmail-user-mail-address-regexp' or
 			 "\\>\\)"))
 	     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)