[mew-dist 24971] (mew-ask-subject => t) with mew-fake-cdp-sending.el

[Takashi Masuda ( 増田貴士 )]

増田です。

# mew-dist に送っちゃって良かったのかな？

mew-ask-subject => t の時に C-cC-m すると、
未保存のデータが消えてしまうことがあります。

 (1) `w'で新規草稿作成。
 (2) 本文を書いて保存。
 (3) 本文をもうちょっと書く。
 (4) 保存せずに C-cC-m でキューイング。
 (5) Subject が空なので値を聞かれるけど、C-g でキャンセルする。
 (6) (2)の状態に戻ってしまう。((2) と (3) の差分が消えてしまう。)

こんなのでいいのか良く分かりませんが、パッチ送ります。

よろしくお願いします。

--
Takashi Masuda <masutaka at example.com>
-------------- next part --------------
--- mew-fake-cdp-sending.el.orig	Wed Jan 22 14:54:11 2003
+++ mew-fake-cdp-sending.el	Tue Jun  1 00:34:52 2004
@@ -53,7 +53,8 @@
   (let ((mew-cs-text-for-write file-name-coding-system))
     (condition-case data
 	ad-do-it
-      (quit (if (fboundp 'mew-encode-undo)
+      (quit (if (buffer-modified-p) (save-buffer))
+	    (if (fboundp 'mew-encode-undo)
 		(mew-encode-undo)
 	      (mew-draft-undo))
 	    (signal (car data) (cdr data))))))