X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-dnd.el;h=10a3502e1753f2acf7be892456649327ea24a417;hb=57f081e684a5f0a1de02c96bc61ec175784974bb;hp=e242754c44c031aeb4a2f89a904fc615382de037;hpb=a10e1abfc9834048bc0569ca2f61df3dd048669f;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index e242754..10a3502 100644
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -1,6 +1,6 @@
-;;; wl-dnd.el -- dragdrop support on Wanderlust.
+;;; wl-dnd.el --- dragdrop support on Wanderlust.
 
-;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
@@ -24,13 +24,10 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
-
-(require 'product)
-(product-provide (provide 'wl-dnd) (require 'wl-version))
+;;
 
 (static-cond
  ((featurep 'offix)
@@ -74,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 +96,8 @@
     (setq kmap (make-keymap))
     (define-key kmap [button1] 'wl-dnd-start-drag)
     (set-extent-property ext 'keymap kmap)))
-					     
+
+(require 'product)
+(product-provide (provide 'wl-dnd) (require 'wl-version))
+
 ;;; wl-dnd.el ends here