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

[Tomohiro Yamauchi ( 山内 朋浩 )]

山内です。

From: Ninomiya Hideyuki <nin at example.com>
Subject: [Mew-dist 11137] Re: Message bufferの表示
Date: Sun, 31 Oct 1999 22:28:29 +0900
Message-ID: <19991031222457X.nin at example.com>

> かとう> あとは、私ならさらに追加するときのことを考えて append を使う
> かとう> と思います、というくらいかな。
> 
> そですねっ、ちょっと変えてみました。
> ------------------------------------------------------------------
> (setq mew-field-spec
>       (let ((reversed-field-spec (reverse mew-field-spec)))
> 	(reverse
> 	 (cons
> 	  (car reversed-field-spec)
> 	  (append
> 	   '(("^X-\\(URL\\|url\\|URI\\|uri\\|PGP\\|pgp\\)" t
> 	      mew-highlight-header-face-private
> 	      mew-highlight-header-face-marginal)
> 	     ("^X-Dispatcher:$" t))
> 	   (cdr reversed-field-spec))))))
> ------------------------------------------------------------------

とりあえず、このまま.emacsに追加してみたのですが
-debug-init で起動すると

Signaling: (void-variable mew-field-spec)
  (reverse mew-field-spec)
)
  (let ((reversed-field-spec ...)) (reverse (cons ... ...)))
)
  (setq mew-field-spec (let (...) (reverse ...)))
)

appendなどを使わない簡単な形↓ではエラーにはなりませんでしたので、

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

appendとかreverseしているところで、何かいかんところがあるのではないか、
とは思うのですが、何しろemacsはmewとエディタとして使うくらいで、lispは
さっぱりなもので。

すいませんがもう少し教えてください。よろしくお願いします。

--
山内 朋浩		handy at example.com