!添付ファイル忘れ

連続して同じ人相手に，二回も添付ファイルをつけそこねてメールを送ってしまったので，
とりあえずの抑止策を．
 (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呼んでるけど，もう少し上品な方法があるのだろうか？
ちゃんと添付してるときには，チェックを回避できるようにしたいな，と思うけど，
とりあえず，それは，今度に．
なんか，もっと，こういう方法があるよ，というのがあれば教えて欲しい．