[Mew-dist 13032] mew-{,real-}send-hook

[Kazu Yamamoto ( 山本和彦 )]

b35 には mew-{,real-}send-hook がないと言われてはじめて気付きました。

復活させようと思っていますが、どこに入れたらよいか意見がある人はいます
か？

意見がなければ、以下のようになります。

(defun mew-draft-send-message ()
  "Compose a MIME message then send it."
  (interactive)
  (run-hooks 'mew-send-hook)
  (if (or (not mew-ask-send)
	  (y-or-n-p "Really send this message? "))
      (mew-draft-process-message 'send)))

＃ queue の方もね。

--かず