From: hmurata <hmurata>
Date: Wed, 7 Jan 2004 23:59:23 +0000 (+0000)
Subject: * wl-action.el (wl-summary-refile-prev-destination): Avoid warning.
X-Git-Tag: wl-2_11_23~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1218fa1340af24c4587e6f6012f224a4dce8ca53;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-refile-prev-destination): Avoid warning.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 26cd807..10834c6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-01-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-action.el (wl-summary-refile-prev-destination): Avoid warning.
+
 2004-01-07  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-action.el (wl-summary-set-action-refile): Don't proceed if
diff --git a/wl/wl-action.el b/wl/wl-action.el
index 980be79..e164137 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -784,8 +784,9 @@ Return number if put mark succeed"
 (defun wl-summary-refile-prev-destination ()
   "Refile message to previously refiled destination."
   (interactive)
-  (wl-summary-refile (wl-summary-message-number)
-		     wl-summary-buffer-prev-refile-destination)
+  (funcall (symbol-function 'wl-summary-refile)
+	   (wl-summary-message-number)
+	   wl-summary-buffer-prev-refile-destination)
   (if (and (interactive-p)
 	   (eq wl-summary-move-direction-downward nil))
       (wl-summary-prev)