[Mew-dist 04826] Re: 1.93b34

[Hideyuki SHIRAI]

白井＠松下電送 です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 04818] 1.93b34
Message-ID: <19980523193454U.kazu at example.com>
Date: Sat, 23 May 1998 19:34:41 +0900

kazu> また、mew-rfc822-fields がなくなり、mew-address-fields を定義しました。
kazu> これに定義されているフィールドには mew-decode-header-address が呼ばれ
kazu> ます。その他のフィールドは、Mime-Version: や Content-* でなければ、
kazu> mew-decode-header-text が呼ばれます。

何も設定しないで X-Mailer などが Decode できて嬉しいのですが、
Decode して欲しくない Fileds も Decode し、CRLF を無視してしまうため、

b33以前は

Received: from rdmg.mgcs.mei.co.jp
	by sugar.rdmg.mgcs.mei.co.jp (8.8.7/3.6Wbeta6) with SMTP id TAA18174;
	Sat, 23 May 1998 19:35:46 +0900 (JST)
References: <wku36jgwt1.fsf at example.com>
	<uemxoura6.fsf at example.com>
	<wkn2ccf8ln.fsf at example.com>
	<uhg2k86px.fsf at example.com>

の様に見えたのが

Received: from rdmg.mgcs.mei.co.jp	by sugar.rdmg.mgcs.mei.co.jp (8.8.7/3.6Wbeta6) with SMTP id KAA23462;	Mon, 25 May 1998 10:13:49 +0900 (JST)
References: <wkaf8887it.fsf at example.com>	<19980524174807.148349.u90121 at example.com>	<wksom06mri.fsf at example.com>	<28u36fdujy.fsf at example.com>

の様に(主観的なものですが)みにくくなってしまいます。

そこで、mew-skip-decode-fields を定義して、list に登録された field
は decode を skip するようにしてみました。

「In-Reply-To はやっぱり decode したくないなぁ」という需要に簡単に
対応するため、
((member key mew-address-fields)
の前で判定しています。

## 実は、X-Pgp-Sig: をdecodeしたくなかっただけの理由なんですが……

--- mew-decode.el.orig	Mon May 25 13:31:53 1998
+++ mew-decode.el	Mon May 25 13:32:38 1998
@@ -82,6 +82,8 @@
 	      ;; MIME-Version:
 	      (setq mimep (string-match mew-mv:-num
 					(buffer-substring beg (point)))))
+	     ((member key mew-skip-decode-fields)
+	      (goto-char (point)))
 	     ((member key mew-address-fields)
 	      (save-restriction
 		(narrow-to-region med (point))
--- mew-vars.el.orig	Mon May 25 13:31:44 1998
+++ mew-vars.el	Mon May 25 13:07:05 1998
@@ -62,6 +62,13 @@
 	(list mew-cid: nil)
 	(list mew-cdp: 'analyze)
 	))
+
+(defvar mew-skip-decode-fields
+  '("Received:" "References:")
+  "*A list of RFC822 fields. If the field key is a member of
+this list, skip decode field. Otherwise, \"mew-header-decode-address\"
+or \"mew-header-decode-text\" is used.")
+
 (defvar mew-address-fields
   '("To:" "Cc:" "From:"
     "Reply-To:" "In-Reply-To:"