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 (file)
--- 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 (file)
--- 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) "*")