メール送信時に宛先とサブジェクトを確認
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)