X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-dnd.el;h=1812df4ef03d89f33b1f0333330c33099b48db8e;hb=1f17ca3778008a59589a183a9440329055089d01;hp=b4297ca8213c8962abbd1df24bfce4253d9e75dc;hpb=806725e3db0748ddc973ba045053a6681e840287;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
index b4297ca..1812df4 100644
--- a/wl/wl-dnd.el
+++ b/wl/wl-dnd.el
@@ -1,6 +1,6 @@
 ;;; 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
@@ -29,9 +29,6 @@
 ;;; Code:
 ;; 
 
-(require 'product)
-(product-provide (provide 'wl-dnd) (require 'wl-version))
-
 (static-cond
  ((featurep 'offix)
   (defun start-drag (event what &optional typ)
@@ -90,14 +87,17 @@
      ext
      'experimental-dragdrop-drop-functions
      '((wl-dnd-drop-func t t (buffer-substring beg end))))))
-;    (set-extent-property ext 'mouse-face 'highlight)))
+;;; (set-extent-property ext 'mouse-face 'highlight)
 
 (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)))
+
+(require 'product)
+(product-provide (provide 'wl-dnd) (require 'wl-version))
 					     
 ;;; wl-dnd.el ends here