From: teranisi <teranisi>
Date: Mon, 5 Jun 2000 09:05:37 +0000 (+0000)
Subject: Fix.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2b4d637d536efdda8d9b682469f141ac95b2a0fc;p=elisp%2Fwanderlust.git

Fix.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2358ad0..2a1c07f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-06-05 17:52:20 teranisi>
+;; Time-stamp: <2000-06-05 18:05:53 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -5080,8 +5080,10 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	(message "No message.")
       (when (eq wl-summary-buffer-view 'thread)
 	(cond ((and arg (not (numberp arg)))
-	       (setq msg-num (wl-thread-entity-get-top-entity
-			      (wl-thread-get-entity number))))
+	       (setq msg-num 
+		     (wl-thread-entity-get-number 
+		      (wl-thread-entity-get-top-entity
+		       (wl-thread-get-entity number)))))
 	      ((and arg (numberp arg))
 	       (setq i 0)
 	       (setq msg-num number)