# HG changeset patch
# User Henrik Enberg <henrik.enberg@telia.com>
# Date 1141870553 0
# Node ID 71fab2ef58c1274305019e9baece260dc0e1e130
# Parent  4fdffe8ee49228caf9b178bb50d83fdd6974efc6
(rmail-desc-get-header-display-state): Make sure whole header region is
searched for overlays.

diff -r 4fdffe8ee492 -r 71fab2ef58c1 lisp/mail/rmaildesc.el
--- a/lisp/mail/rmaildesc.el	Thu Mar 09 02:15:21 2006 +0000
+++ b/lisp/mail/rmaildesc.el	Thu Mar 09 02:15:53 2006 +0000
@@ -310,7 +310,10 @@
 
 (defun rmail-desc-get-header-display-state (n)
   "Return t if ignorable headers are being displayed, nil otherwise."
-  (null (overlays-at (rmail-desc-get-start n))))
+  (save-excursion
+    (save-restriction
+      (rmail-narrow-to-header n)
+      (null (overlays-in (point-min) (point-max))))))
 
 (defun rmail-desc-get-keyword (attr-index)
   "Return the keyword string associated with ATTR-INDEX."