- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!添付ファイル忘れ
連続して同じ人相手に，二回も添付ファイルをつけそこねてメールを送ってしまったので，
とりあえずの抑止策を．
(add-hook 'mew-send-hook
(lambda ()
(let ((mesg (buffer-substring-no-properties (point-min) (point-max))))
(let ((attached (or (string-match "添付" mesg)
(string-match "attached" mesg)
)))
(progn
;;(message "check")
;;(message mesg)
;;(message "attached")
(if attached
(if (y-or-n-p "** Attached file ** OK?")
t
(keyboard-quit))
t))))))
run-hookの先で送信処理を停止したかったので，
keyboard-quit呼んでるけど，もう少し上品な方法があるのだろうか？
ちゃんと添付してるときには，チェックを回避できるようにしたいな，と思うけど，
とりあえず，それは，今度に．
なんか，もっと，こういう方法があるよ，というのがあれば教えて欲しい．