[mew-dist 18546] mew-ask-subject

[Koga Youichirou]

mew-ask-send と mew-ask-subject を t にしている場合、送信時に本当に
送るけどいいのか？ の後で subject を聞いてきますが、subject を先に
きいてくれる方が自然じゃないかな、と思っています。

使っていても、subject を聞かれているときに C-g で中断した場合に、
draft バッファに戻ってくれないので、switch-to-buffer して +draft/n
を選ぶ必要があり、結構面倒です。

これでよいかどうかはさておき、動作としてはこんな感じになってくれると
嬉しいです。

Index: mew-draft.el
===================================================================
RCS file: /cvsmew/mew/mew-draft.el,v
retrieving revision 1.26
diff -u -r1.26 mew-draft.el
--- mew-draft.el	2001/08/07 08:02:00	1.26
+++ mew-draft.el	2001/08/17 06:35:53
@@ -781,9 +781,14 @@
 	  (mew-highlight-header)
 	  (unless (mew-tinfo-get-hdr-file) (mew-draft-header-keymap)))
 	(save-buffer))
-      (if (and (eq action 'send) mew-ask-send)
-	  (setq sendit (y-or-n-p "Really send this message? "))
-	(setq sendit t))
+      (cond
+       ((eq action 'send)
+	(save-excursion
+	  (goto-char (point-min))
+	  (mew-encode-sanity-check))
+	(if mew-ask-send
+	    (setq sendit (y-or-n-p "Really send this message? "))
+	  (setq sendit t))))
       (when sendit
 	(mew-smtp-set-case pnm case)
 	(mew-smtp-set-server pnm server)

----
こがよういちろう