[xyzzy:08105] kamail:drop で attach
- Subject: [xyzzy:08105] kamail:drop で attach
- From: OHKUBO KOHEI <kuboon@xxxxxxxxxxxxx>
- X-mailer: KaMail-0.0.2.5[01/11/08] on xyzzy-0.2.2.219 (windows-2000)
- X-yzzy-version: 0.2.2.219
ども、くぼーんです。
kamail で draft にd&dしてattachしたくなったので、こんなの作ってみました。
;;; in .kamail
(defun kamail-draft-mode-drop-and-attach (window files)
(set-window window)
(if (eq (buffer-name (selected-buffer)) *kamail-buffer-draft*)
(progn
(setq filelist (mapcar #'(lambda (x) (list x)) files))
(kamail-add-attachments filelist)
nil)
))
(setq *drag-and-drop-hook* 'kamail-draft-mode-drop-and-attach)
;;; end
しかーし、これ、一度実行されると普通のd&dが出来なくなります。
*drag-and-drop-hook* に対してadd-hookが使えないようなのですが、これはやはり
一度 *drag-and-drop-hook* を退避させといてkamail終了時に元に戻す、という感じ
にすればいいんでしょうか?
/* OHKUBO KOHEI <kuboon@xxxxxxxxxxxxx>
http://fly.to/kuboon/