[xyzzy:08105] kamail:drop で attach

[OHKUBO KOHEI <kuboon@xxxxxxxxxxxxx>]

ども、くぼーんです。

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/