From bd64e2f6e6a10951b21ffbc339a5f922995f4032 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 10 Jul 2002 15:21:28 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-jump-to-parent-message): Keep message buffer displaying state. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 10 ++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 1f4ffad..c68d7b8 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-07-10 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-jump-to-parent-message): Keep + message buffer displaying state. + 2002-07-05 Yoichi NAKAYAMA * wl-vars.el (wl-summary-default-view): New variable to specify diff --git a/wl/wl-summary.el b/wl/wl-summary.el index de20232..94878cb 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4778,6 +4778,7 @@ Return t if message exists." (defun wl-summary-jump-to-parent-message (arg) (interactive "P") (let ((cur-buf (current-buffer)) + (disp-msg wl-summary-buffer-disp-msg) (number (wl-summary-message-number)) (regexp "\\(<[^<>]*>\\)[ \t]*$") (i -1) ;; xxx @@ -4831,17 +4832,18 @@ Return t if message exists." (setq msg-id (if (null arg) (nth 0 ref-list) ;; previous (if (<= arg i) (nth (1- arg) ref-list) - (nth i ref-list))))))) - (set-buffer cur-buf) + (nth i ref-list)))))) + (set-buffer cur-buf) + (or disp-msg (wl-summary-toggle-disp-msg 'off))) (cond ((and (null msg-id) (null msg-num)) (message "No parent message!") nil) ((and msg-id (wl-summary-jump-to-msg-by-message-id msg-id)) - (wl-summary-redisplay) + (if wl-summary-buffer-disp-msg (wl-summary-redisplay)) (message "Searching parent message...done") t) ((and msg-num (wl-summary-jump-to-msg msg-num)) - (wl-summary-redisplay) + (if wl-summary-buffer-disp-msg (wl-summary-redisplay)) (message "Searching parent message...done") t) (t ; failed. -- 1.7.10.4