From: okazaki <okazaki>
Date: Thu, 8 Jun 2000 07:09:08 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-redisplay-no-mime): Update
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2a056bdca3137046d51878a1c5175a27fa5f913d;p=elisp%2Fwanderlust.git

* 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.
---

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."))))