[Mew-dist 06354] Re: How to use mew-field-spec ?

[Fumitoyo ONO]

>>>>> 平成 10 年 9 月 8 日 (火) 14:37:54 に出された 大松さん のメール :
>>>>> <19980908143718W.ohmatsu at example.com> にて…

大松> (setq mew-field-visible '("From:" "To:" "Cc:" "Subject:" "Date:"
大松> 	 "Message-Id:" "Sender:" "Reply-To:" "X-Mailer:"))  
大松> (setq mew-field-invisible '("Return-Path:" "Received:"))  
大松> (setq mew-field-other-visible nil)  
大松> ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
大松> いろいろ調べてみると、これは、
大松> * mew-field-{,in}visible were obsoleted. Use mew-field-spec instead.
大松> のためだと思い、mew-field-visible を mew-field-spec に
大松> 書き換えたりしましたが、うまくいきませんでした。

上のご希望と equivalent な設定は、多分これです。

(setq mew-field-spec
	  (mapcar (function
			   (lambda (x)
				 (cond ((string= (car x) "^Resent-")
						'("^Resent-" nil)))
				 (cond ((string= (car x) "^Apparently-To:$")
						'("^Apparently-To:$" nil)))
				 (cond ((string= (car x) "^Newsgroups:$")
						'("^Newsgroups:$" nil)))
				 (cond ((string= (car x) "^X-Mew:$")
						'("^X-Mew:$" nil)))
				 (cond ((string= (car x) "^Message-Id:$")
						'("^Message-Id:$" t)))
				 (cond ((string= (car x) "^Sender:$")
						'("^Sender:$" t)))
				 (t x)))  mew-field-spec))
(setq mew-field-other-visible nil)

でも、せっとくで全トッカエ、の方が楽ですね。
--------
         _____                    小野  文豊 ( おの  ふみとよ )
         __/_
        __/_/__              住友金属工業株式会社
   /----  ___  /_/_            システム事業部
   --/-- |   |/|-|-              システム研究開発部
    /|   |___| |-|-
           |_   ---          PHONE: (06)220-5171   FAX: (06)220-5114
        /-_|__                   mailto:ono at example.com