どなたかが書いたものをそのまま使ってます。

;;; ドラフトバッファにドラッグ＆ドロップでファイル添付する
;;;
(defun wl-draft-drag-n-drop (event)
(interactive "e")
(save-excursion
(let* ((files (caddr event)) f)
(while files
(if (and (file-regular-p (setq f (car files)))
(y-or-n-p (concat "Attach \"" f "\" ?")))
(mime-edit-insert-file f t))
(setq files (cdr files))))))
(define-key mime-edit-mode-map [drag-n-drop] 'wl-draft-drag-n-drop)