[Mew-dist 08363] Re: mew-field-spec & highlight

[Mito]

※ "山" こと kazu at example.com さんの
   『[Mew-dist 08343] Re: mew-field-spec & highlight』より

山> mew-field-spec を見て Content-* の表示／非表示を指定できるようにするこ
山> とは簡単です。しかし、例えば Content-Type: は表示、
山> Content-Transfer-Encoding: は非表示のように設定可能にするのは困難です。

Content-Type: 以外の Content-* は非表示という設定で使ってま
す。

以下のようにするとなにか問題があるのでしょうか？

--- mew-decode.el	1999/03/30 09:48:16	1.1
+++ mew-decode.el	1999/03/31 01:05:24
@@ -111,12 +111,11 @@
 	 (setq N-spec (mew-assoc-match3 key mew-field-spec 0))
 	 (setq N (nth 0 N-spec))
 	 (setq visiblep (nth 2 N-spec))
+         (if (string-match "^Content-" key)
+             (setq contents (cons (buffer-substring beg (point)) contents)))
 	 (cond
 	  ((mew-case-equal key mew-x-mew:)
 	   ;; deleting X-Mew: on the RFC822 header
-	   (delete-region beg (point)))
-	  ((string-match "^Content-" key)
-	   (setq contents (cons (buffer-substring beg (point)) contents))
 	   (delete-region beg (point)))
 	  (t
 	   (mew-header-decode-region (mew-field-type-for-decoding key)
-- 
3/31 10:28頃
NECソフトウェア新潟 水戸
mailto:mit at example.com \n