* test-dist.el (test-elmo-modules-trailing-whitespace)

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

diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index 59402d9..cf159f1 100644 (file)
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -28,6 +28,7 @@
 
 ;;; Code:
 ;;
+(eval-when-compile (require 'static))
 
 (static-cond
  ((featurep 'offix)
@@ -48,7 +49,7 @@
   (mouse-set-point event)
   (start-drag event (concat
                     wl-summary-buffer-folder-name " "
-                    (int-to-string (wl-summary-message-number)))))
+                    (number-to-string (wl-summary-message-number)))))
 
 (defun wl-dnd-drop-func (event object text)
   (interactive "@e")
@@ -59,7 +60,7 @@
                       (split-string (nth 2 (car (cdr object)))
                                     " ")))
           (src-fld (nth 0 src-spec))
-          (number  (string-to-int (nth 1 src-spec)))
+          (number  (string-to-number (nth 1 src-spec)))
           target)
       (setq target
            (wl-folder-get-folder-name-by-id (get-text-property
@@ -71,7 +72,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)
@@ -92,7 +93,7 @@
 (defun wl-dnd-set-drag-starter (beg end)
   (let (ext kmap)
     (setq ext (make-extent beg end))
-;;; (set-extent-property ext 'mouse-face 'isearch)
+;;;    (set-extent-property ext 'mouse-face 'isearch)
     (setq kmap (make-keymap))
     (define-key kmap [button1] 'wl-dnd-start-drag)
     (set-extent-property ext 'keymap kmap)))