[mew-dist 18567] Re: mew-ask-subject

[Koga Youichirou]

こが:
> mew-ask-send と mew-ask-subject を t にしている場合、送信時に本当に
> 送るけどいいのか？ の後で subject を聞いてきますが、subject を先に
> きいてくれる方が自然じゃないかな、と思っています。
> 
> 使っていても、subject を聞かれているときに C-g で中断した場合に、
> draft バッファに戻ってくれないので、switch-to-buffer して +draft/n
> を選ぶ必要があり、結構面倒です。
> 
> これでよいかどうかはさておき、動作としてはこんな感じになってくれると
> 嬉しいです。

個人的には以下で満足。

mew-header-process-message の 'send で mew-encode が呼ばれているので、
もしかしたらそこで副作用 (そこで mew-ask-subject や mew-ask-newsgroup
が効くべきかどうか、仕様を知らない) があるかもしれません。

Index: mew-draft.el
===================================================================
RCS file: /cvsmew/mew/mew-draft.el,v
retrieving revision 1.25
diff -u -r1.25 mew-draft.el
--- mew-draft.el	2001/07/08 05:00:37	1.25
+++ mew-draft.el	2001/08/21 07:43:42
@@ -776,9 +776,15 @@
 	  (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)
+	  (mew-encode-remove-illegal-fields))
+	(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)
Index: mew-encode.el
===================================================================
RCS file: /cvsmew/mew/mew-encode.el,v
retrieving revision 1.20
diff -u -r1.20 mew-encode.el
--- mew-encode.el	2001/07/08 05:00:37	1.20
+++ mew-encode.el	2001/08/21 07:43:44
@@ -426,7 +426,7 @@
     (goto-char (point-min))
     (setq resentp (re-search-forward "^Resent" (mew-header-end) t))
     (goto-char (point-min))
-    (mew-encode-sanity-check)
+    (mew-encode-remove-illegal-fields)
     ;; Destination check
     (setq recipients (mew-encode-canonicalize-address resentp))
     ;; Bcc: is not included.

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