[mew-dist 24150] mew-field-spec doesn't work

[ARIGA Seiji]

有賀と申します．

ls，lh があまりにもグッときたので，3.1.50 からバージョンアップしました．

したところ，Message buffer に今まで表示されていたヘッダが表示されなく
なってしまいました．

さらっと grep したのですが，特に変更があったようでもないので，原因が分
かりませんでした．

describe-variable の結果を見てもなんとなくよさそうなのですが，なぜか
お分かりの方はいらっしゃいますでしょうか？

// ARIGA Seiji





■ .mew.el の内容 (どこかで見かけたものを使わせていただいてます)

(setq mew-field-other-visible nil)
(setq mew-field-spec
  (append (delete '("^X-" nil
                    mew-face-header-private
                    mew-face-header-marginal)
                  mew-field-spec)
    '(
      ("^Mail-Followup-To:$" t)
      ("^Mail-Reply-To:$" t)
      ("^User-Agent:$" t)
      ("^X-Bogosity:$" t)
      ("^X-Spamicity:$" t)
      ("^X-UR[LI]:$" t)
      ("^X-" nil
       mew-face-header-private
       mew-face-header-marginal
      ))))

■ describe-variable: mew-field-spec の結果

Value:
(("^Resent-\\(From\\|To\\|Cc\\|Date\\)" t mew-face-header-important mew-face-header-important)
 ("^Subject:$" t mew-face-header-important mew-face-header-subject)
 ("^From:$" t mew-face-header-important mew-face-header-from)
 ("^\\(To\\|Apparently-To\\):$" t mew-face-header-important mew-face-header-to)
 ("^\\(Cc\\|Dcc\\|Bcc\\):$" t mew-face-header-important mew-face-header-to)
 ("^Newsgroups:$" t mew-face-header-important mew-face-header-to)
 ("^Date:$" t mew-face-header-important mew-face-header-date)
 ("^Reply-To:$" t)
 ("^X-Mailer:$" t)
 ("^X-Mew:$" t mew-face-header-important mew-face-header-xmew)
 ("^\\(Received\\|Return-Path\\|Sender\\|Errors-To\\):$" nil)
 ("^\\(Path\\|Distribution\\|Xref\\):$" nil)
 ("^NNTP-Posting-" nil)
 ("^\\(Message-Id\\|Posted\\|In-Reply-To\\|References\\|Precedence\\):$" nil)
 ("^Delivered-" nil)
 ("^List-" nil)
 ("^\\(Mime-Version\\|Lines\\):$" nil)
 ("^From$" nil)
 ("^Status:$" nil)
 ("^Face:$" nil mew-face-header-private mew-face-header-marginal)
 ("^\\(X\\|Original\\)-" nil mew-face-header-private mew-face-header-marginal)
 ("^Mail-Followup-To:$" t)
 ("^Mail-Reply-To:$" t)
 ("^User-Agent:$" t)
 ("^X-Bogosity:$" t)
 ("^X-Spamicity:$" t)
 ("^X-UR[LI]:$" t)
 ("^X-" nil mew-face-header-private mew-face-header-marginal))