Diary/2018-11-28

添付ファイル忘れ

連続して同じ人相手に，二回も添付ファイルをつけそこねてメールを送ってしまったので，
とりあえずの抑止策を．

(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呼んでるけど，もう少し上品な方法があるのだろうか？
ちゃんと添付してるときには，チェックを回避できるようにしたいな，と思うけど，
とりあえず，それは，今度に．
なんか，もっと，こういう方法があるよ，というのがあれば教えて欲しい．