[Mew-dist 07467] Re: 1.94b5

[Mito]

※ "山" こと kazu at example.com さんの
   『[Mew-dist 07462] Re: 1.94b5』より

山> 大枠は賛成なのですが、明らかに text である Subject: と Comment は fold 
山> したいと思っています。

でも今のままでは、明らかに text かどうかわからないヘッダまで
fold しているのが問題だと思います。

fold に関しても encode や decode と同じように
mew-field-database を問い合わせ、fold する/しないを決定した
ほうがいいのではないかと思いました。

で、添付の diff をあてるとこの機能が利用できます。

ほんとは fold のために mew-field-database の 3番目の要素を加
えればいいのでしょうが、そこまですることもないかと思いまして、
とりあえず encode のタイプを参照するようにしました。

ただし encode の時と違い、 mew-field-database に登録されてい
ないヘッダは fold しないようにしています。

よく挿入するヘッダで && us-ascii だけしか使わない && 自動で 
fold して欲しい場合は mew-field-database に追加する必要があ
りますが、そんなケースは少ないと思いますので、こんなもので十
分なんではないでしょうか？
-- 
2/16 13:16頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n

-------------- next part --------------
--- mew-bq.el	1999/02/16 03:21:31	1.1
+++ mew-bq.el	1999/02/16 03:38:55
@@ -522,8 +522,9 @@
 	  (setq lines (mew-header-goto-next))
 	  (setq last (1- (point)))
 	  (if (or (equal med last)
-		  (and (or (/= lines 0) ;; already folded
-			   (<= flen mew-field-max-length)) ;; no need to fold
+		  (and (or (eq (mew-field-type-for-folding key) 'unstruct)
+                           (/= lines 0) ;; already folded
+                           (<= flen mew-field-max-length)) ;; no need to fold
 		       (equal (list mew-lc-ascii)
 			      (mew-find-cs-region med last))))
 	      () ;; let it be
--- mew-vars.el	1999/02/16 03:21:50	1.1
+++ mew-vars.el	1999/02/16 03:40:15
@@ -126,6 +126,9 @@
 (defmacro mew-field-type-for-decoding (key)
   (` (or (nth 2 (assoc (capitalize (, key)) mew-field-database)) 'text)))
 
+(defmacro mew-field-type-for-folding (key)
+  (` (or (nth 1 (assoc (capitalize (, key)) mew-field-database)) 'unstruct)))
+
 (defconst mew-syntax-magic
   (+ (length [key beg end pri]) (length mew-mime-fields)))