[Mew-dist 10208] Field-Delete-for-Saving Variable (Re: Mew 1.94b51 + IM 122)

[Xin-Zhi Zheng 鄭心知]

>> [Mew-dist 10199] Re: Mew 1.94b51 + IM 122 で
>> Hideyuki SHIRAI (白井秀行) (白井) <shirai at example.com> 様が書きました:

kazu> Mew 1.94b51 と IM 122 を ftp.Mew.org:/pub/Mew/beta に置きました。

白井> virtual folder の buffer も "Q" で消えた方がいいと思うのだけ
白井> ど、いかがなものでしょう？

後味すっきり，ですね．


前から思っていることで，ついでに，メッセージの "f" (forward) 
や "r" (resend) 時同様，"y" (save) の時も，消したいヘッダを
消してくれる以下のようなコードとかも入れていただけないでしょ
うか．（コードに全然自信がないので，気持ち^^;;が伝わればと思っ
て）

--- mew-summary.el.orig	Wed Aug 18 13:12:19 1999
+++ mew-summary.el	Wed Aug 18 21:18:45 1999
@@ -1728,6 +1728,11 @@
 	      (progn
 		(mew-cs-decode-region (point-min) (point-max) fromcs)
 		(mew-cs-encode-region (point-min) (point-max) tocs)))
+	  (goto-char (point-min))
+	  (if (re-search-forward "^\n" nil t)
+	      (save-restriction
+		(narrow-to-region (point-min) (point))
+		(mew-header-delete-lines mew-field-delete-for-saving)))
 	  (mew-frwlet
 	   mew-cs-dummy
 	   (if textp mew-cs-text-for-write mew-cs-binary)

＃バッファに mew-eoh が残っているかどうかは私にはわからない
＃ので空行で判断しているが，もし残っているものなら，単にこん
＃なんでもいいかもしれませんね．

--- mew-summary.el.orig	Wed Aug 18 13:12:19 1999
+++ mew-summary.el	Wed Aug 18 21:19:37 1999
@@ -1728,6 +1728,8 @@
 	      (progn
 		(mew-cs-decode-region (point-min) (point-max) fromcs)
 		(mew-cs-encode-region (point-min) (point-max) tocs)))
+	  (goto-char (point-min))
+	  (mew-header-delete-lines mew-field-delete-for-saving)
 	  (mew-frwlet
 	   mew-cs-dummy
 	   (if textp mew-cs-text-for-write mew-cs-binary)


変数 mew-field-delete-for-saving は，まず nil でもいいのですが，
もしとりあえず
(defvar mew-field-delete-for-saving mew-field-delete-for-forwarding
  "*A field list to be deleted when saving message to file.")
とかにしていただけるとうれしいんです．


＃ save されるメッセージの MIME ヘッダがデコードされないのは
＃仕様でしょうか．それを選択するオプション変数がありましたで
＃しょうか．


よろしくお願いします．

--
鄭＠東工大