[mew-dist 26388] Re: drag & drop on Meadow

[INOUE Tomohiro]

井上です。

Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:
> > netinstall した Meadow-2.10-dev (ASAGAO) で試したところ、 
> > void-function dnd-get-local-file-name と言われてしまいました。
> 
> とりあえず、直してみたので、試して下さい。

ありがとうございます。
Meadow-3.00-dev でも Meadow 2.10-dev でも動きました。幸せです。

ついでに：
ディレクトリを drop すると変になってしまうようなので、動作を unix の方
と合わせてみました。(cvs へのパッチです)

-- 井上 知洋


-------------- next part --------------
Index: mew-win32.el
===================================================================
RCS file: /cvsmew/mew/mew-win32.el,v
retrieving revision 1.46
diff -u -r1.46 mew-win32.el
--- mew-win32.el        30 May 2005 13:57:24 -0000      1.46
+++ mew-win32.el        30 May 2005 15:02:32 -0000
@@ -199,7 +199,11 @@
          (goto-char (point-max))
          (forward-line -2)
          (mew-attach-next)
-         (mew-attach-copy from to))))))
+         (cond
+          ((file-directory-p from)
+           (message "Directory cannot be attached"))
+          (t
+           (mew-attach-copy from to))))))))
 
 (provide 'mew-win32)