From: teranisi <teranisi>
Date: Thu, 16 May 2002 14:17:45 +0000 (+0000)
Subject: 2002-05-16  Tatsuya Kinoshita  <tats@iris.ne.jp>
X-Git-Tag: elmo-mark-root~116
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=63b6546f348b848414a479a934568c64568bfc7b;p=elisp%2Fwanderlust.git

2002-05-16  Tatsuya Kinoshita  <tats@iris.ne.jp>

	* wl-summary.el (wl-summary-target-mark-refile-sub):
	Remove a nuisance funcall.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 39a790d..3178303 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-16  Tatsuya Kinoshita  <tats@iris.ne.jp>
+
+	* wl-summary.el (wl-summary-target-mark-refile-sub):
+	Remove a nuisance funcall.
+
 2002-05-16  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-address.el (wl-complete-field-body): Bind `completion-ignore-case'
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0df8510..96e6f38 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3721,11 +3721,9 @@ If ARG, exit virtual folder."
 		      number (wl-summary-buffer-msgdb)))
 	(if (null entity)
 	    (error "Cannot %s" copy-or-refile))
-	(funcall function
-		 (setq folder (wl-summary-read-folder
-			       (wl-refile-guess entity)
-			       (format "for %s" copy-or-refile)))
-		 number)
+	(setq folder (wl-summary-read-folder
+		      (wl-refile-guess entity)
+		      (format "for %s" copy-or-refile)))
 	(goto-char (point-min))
 	(while (not (eobp))
 	  (when (string= (wl-summary-temp-mark) "*")