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

[Fumitoyo ONO]

>>>>> "私" == Fumitoyo ONO <ono at example.com> writes:

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

大ウソ入れてました！！

(setq mew-field-spec
      (append
       (cons '("^Apparently-To:$" nil) nil)
       (mapcar (function
                (lambda (x)
                  (cond ((string= (car x)
                                  "^Resent-\\(From\\|To\\|Cc\\|Date\\)")
                         '("^Resent-\\(From\\|To\\|Cc\\|Date\\)" nil
                           mew-highlight-header-face-important
                           mew-highlight-header-face-important))
                          ((string= (car x) "^\\(To\\|Apparently-To\\):$")
                         '("^To:$" t
                           mew-highlight-header-face-important
                           mew-highlight-header-face-to))
                        ((string= (car x) "^Newsgroups:$")
                         '("^Newsgroups:$" nil
                           mew-highlight-header-face-important
                           mew-highlight-header-face-to))
                        ((string= (car x) "^X-Mew:$")
                         '("^X-Mew:$" nil
                           mew-highlight-header-face-important
                           mew-highlight-header-face-xmew))
                        ((string= (car x) "^Message-Id:$")
                         '("^Message-Id:$" t))
                        ((string= (car x) "^Sender:$")
                         '("^Sender:$" t))
                        (t x))))
               mew-field-spec)))
(setq mew-field-other-visible nil)

私> でも、せっとくで全トッカエ、の方が楽ですね。

ということで、あくまで部分トッカエにこだわってみました。:-P
--------
         _____                    小野  文豊 ( おの  ふみとよ )
         __/_
        __/_/__              住友金属工業株式会社
   /----  ___  /_/_            システム事業部
   --/-- |   |/|-|-              システム研究開発部
    /|   |___| |-|-
           |_   ---          PHONE: (06)220-5171   FAX: (06)220-5114
        /-_|__                   mailto:ono at example.com