From: yoichi <yoichi>
Date: Wed, 10 Jul 2002 15:21:28 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-jump-to-parent-message): Keep
X-Git-Tag: elmo-mark-root~62
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd64e2f6e6a10951b21ffbc339a5f922995f4032;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-jump-to-parent-message): Keep
message buffer displaying state.
---

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-summary.el (wl-summary-jump-to-parent-message): Keep
+	message buffer displaying state.
+
 2002-07-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* 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.