* 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 (file)
--- 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 (file)
--- 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))