Add section "Parameters for Sending".

[elisp/wanderlust.git] / wl / wl-dnd.el

diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index 1812df4..10a3502 100644 (file)
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -1,4 +1,4 @@
-;;; wl-dnd.el -- dragdrop support on Wanderlust.
+;;; wl-dnd.el --- dragdrop support on Wanderlust.
 
 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
@@ -24,10 +24,10 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 
 (static-cond
  ((featurep 'offix)
@@ -71,7 +71,7 @@
       (set-buffer (wl-summary-get-buffer src-fld))
       (save-match-data
        (wl-summary-jump-to-msg number))
-      (wl-summary-refile target number)
+      (funcall (symbol-function 'wl-summary-refile) number target)
       (select-window (get-buffer-window (current-buffer)))
       ))
   t)
@@ -99,5 +99,5 @@
 
 (require 'product)
 (product-provide (provide 'wl-dnd) (require 'wl-version))
-                                            
+
 ;;; wl-dnd.el ends here