[Mew-dist 11133] Re: Message bufferの表示

[Takashi P.KATOH]

From: Ninomiya Hideyuki <nin at example.com>
Subject: [Mew-dist 11132] Re: Message bufferの表示
Message-ID: <19991029232741K.nin at example.com>
> 	     (setq mew-field-spec
> 		   (let ((reversed-field-spec (reverse mew-field-spec)))
> 		     (reverse
> 		      (cons
> 		       (car reversed-field-spec)
> 		       (cons
> 			'("^X-\\(URL\\|url\\|URI\\|uri\\|PGP\\|pgp\\)" t
> 			  mew-highlight-header-face-private
> 			  mew-highlight-header-face-marginal)
> 			(cdr reversed-field-spec))))))))

> 余りエレガントじゃないかも知れません。
> # エレガントな方法募集中

使ってないのでハズしてるかもしれませんが、

(setq mew-field-spec
      (cons
       '("^X-\\(URL\\|URI\\|PGP\\)" t
	 mew-highlight-header-face-private
	 mew-highlight-header-face-marginal)
       mew-field-spec))

ではだめなんでしょうか?

あとは、私ならさらに追加するときのことを考えて append を使う
と思います、というくらいかな。

-- 
かとぺ / 加藤 貴司