>>829
それを単純に真似してみたらこんな感じになりました。
フルパスから ~/ に短くするのはどこでやってるのかわからなかったので
フルパスのままです。

(when (eq window-system 'w32)
(defun howm-w32-dnd-ref-file (event)
"Add ref to drop files."
(interactive "e")
(mapc
#'(lambda (file)
(insert (format howm-template-file-format file) "\n"))
(car (cdr (cdr event)))))
(eval-after-load "howm-mode"
(define-key howm-mode-map [drag-n-drop] 'howm-w32-dnd-ref-file)))