From 004051864383fd7e3a1f294852ab54359c2fb05c Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 8 Sep 2004 09:46:49 +0000 Subject: [PATCH] * wl-message.el (wl-message-redisplay): Does not narrow header if disply-type is all-header or as-is. --- wl/ChangeLog | 3 +++ wl/wl-message.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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)) -- 1.7.10.4