From 2a056bdca3137046d51878a1c5175a27fa5f913d Mon Sep 17 00:00:00 2001 From: okazaki Date: Thu, 8 Jun 2000 07:09:08 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-redisplay-no-mime): Update buffer-local variables like `wl-summary-redisplay-internal'. (wl-summary-redisplay-all-header): Likewise. Update Summary view too. --- wl/wl-summary.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 2a1c07f..51aa23d 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -5498,6 +5498,8 @@ Reply to author if invoked with argument." (if num (progn (setq wl-summary-buffer-disp-msg t) + (setq wl-summary-buffer-last-displayed-msg + wl-summary-buffer-current-msg) (setq wl-current-summary-buffer (current-buffer)) (wl-normal-message-redisplay fld num 'no-mime msgdb) (wl-summary-mark-as-read nil nil t) @@ -5522,8 +5524,18 @@ Reply to author if invoked with argument." (wl-message-redisplay-func wl-summary-buffer-message-redisplay-func)) (if num (progn + (setq wl-summary-buffer-disp-msg t) + (setq wl-summary-buffer-last-displayed-msg + wl-summary-buffer-current-msg) + (setq wl-current-summary-buffer (current-buffer)) (if (wl-message-redisplay fld num 'all-header msgdb); t if displayed. (wl-summary-mark-as-read nil nil t)) + (setq wl-summary-buffer-current-msg num) + (when wl-summary-recenter + (recenter (/ (- (window-height) 2) 2)) + (if (not wl-summary-width) + (wl-horizontal-recenter))) + (wl-highlight-summary-displaying) (run-hooks 'wl-summary-redisplay-hook)) (message "No message to display.")))) -- 1.7.10.4