From: hmurata <hmurata>
Date: Wed, 8 Sep 2004 09:46:49 +0000 (+0000)
Subject: * wl-message.el (wl-message-redisplay): Does not narrow header if
X-Git-Tag: wl-2_11_31~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=004051864383fd7e3a1f294852ab54359c2fb05c;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-redisplay): Does not narrow header if
disply-type is all-header or as-is.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 86cd946..30a0908 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-09-08  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* wl-message.el (wl-message-redisplay): Does not narrow header if
+	disply-type is all-header or as-is.
+
 	* wl-summary.el (wl-summary-enter-handler): Use
 	`wl-thread-jump-to-msg' instead of `wl-summary-jump-to-msg'.
 
diff --git a/wl/wl-message.el b/wl/wl-message.el
index ba764cf..6ada8b0 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -484,7 +484,8 @@ Returns non-nil if bottom of message."
     (when (re-search-forward "^$" nil t)
       (wl-message-add-buttons-to-header (point-min) (point))
       (wl-message-add-buttons-to-body (point) (point-max)))
-    (when wl-message-use-header-narrowing
+    (when (and wl-message-use-header-narrowing
+	       (not (memq display-type '(all-header as-is))))
       (wl-message-header-narrowing))
     (goto-char (point-min))
     (ignore-errors (run-hooks 'wl-message-redisplay-hook))