メール送信時に宛先とサブジェクトを確認

Mewでメール送信時に宛先とサブジェクトをミニバッファに表示して、チェックを促すようにした。

(defun my-mew-send-check ()
  (let ((subject (mew-header-get-value mew-subj:))
        (to (mew-header-get-value mew-to:))
        (cc (mew-header-get-value mew-cc:))
        (sendit))
    (setq subject (or subject "-"))
    (setq to (or to "-"))
    (setq cc (or cc "-"))
    (setq sendit (y-or-n-p
               (format "Subject: %s\nTo: %s\nCc: %s\nSend ? " subject to cc)))
    (if (not sendit)
        (keyboard-quit))))
(add-hook 'mew-send-hook 'my-mew-send-check)