[mew-dist 28589] Re: X 使用時の mew-face-header-marginal の色について

[Kazu Yamamoto ( 山本和彦 )]

山本です。

> 調べたところ、どうも [mew-dist 28563] のパッチの影響のようです。
> ほとんど状況報告だけになりましたが、宜しくお願い致します。

どうも、静的なリテラルを変更するとおかしくなる問題のようです。
これで、直りますか？

--かず

Index: mew-vars3.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-vars3.el,v
retrieving revision 1.7
diff -c -r1.7 mew-vars3.el
*** mew-vars3.el	30 Jul 2008 09:46:13 -0000	1.7
--- mew-vars3.el	14 Aug 2008 06:57:06 -0000
***************
*** 18,24 ****
  (defun mew-face-make-spec (bold &rest spec)
    (let (ret key col)
      (if (and bold (not (member :tty spec)))
! 	(setq ret '((((class color) (type tty)) (:bold t)))))
      (while spec
        (setq key  (car spec))
        (setq spec (cdr spec))
--- 18,24 ----
  (defun mew-face-make-spec (bold &rest spec)
    (let (ret key col)
      (if (and bold (not (member :tty spec)))
! 	(setq ret (copy-sequence '((((class color) (type tty)) (:bold t))))))
      (while spec
        (setq key  (car spec))
        (setq spec (cdr spec))