[mhc:00392] Re: mhc-snap20000209

[Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>]

On Sun, 13 Feb 2000 16:44:17 +0900,
	Yoshiaki Kasahara <kasahara@xxxxxxxxxxxxxxxxx> said:

> *Alist to rule the catgegory-to-face conversion.
> Each element should have the form
>   (CATEGORY-STRING . (PARENT FG BG FONT BOLD UNDERLINED STIPPLE))
> mhc will define mhc-summary-category-face-(downcase CATEGORY-STRING)
> in setup time.
> 
> と書いてあるんだけど FONT っていう引数は実際には無いですよね。

ほんとだ。抜けていました。

On Sun, 13 Feb 2000 16:48:10 +0900,
	Yoshiaki Kasahara <kasahara@xxxxxxxxxxxxxxxxx> said:

> 一見 mhc-face-setup という対話関数で face の再設定ができるよう
> になっていますが、太字や下線等 t にしてある時だけ処理している
> ので、t から nil に再設定した時それが反映されなくて困っちゃい
> ます。

こっちにも対応してみました。以下のでうまくいくでしょうか。
--
nom

(defun mhc-face-make-face-from-symbol (symbol prop)
  (let ((parent  (nth 0 prop))
	(fg      (nth 1 prop))
	(bg      (nth 2 prop))
	(font    (nth 3 prop))
	(bold    (nth 4 prop))
	(uline   (nth 5 prop))
	(stipple (nth 6 prop))
	(face    nil))
    (setq face (if parent (copy-face parent symbol) (make-face symbol)))
    (if fg      (set-face-foreground  face fg))
    (if bg      (set-face-background  face bg))
    (if font    (set-face-font        face font))
    (if stipple (set-face-stipple     face stipple))

    (set-face-underline-p face uline)
    ;; xemacs doesn't have set-face-bold-p
    (if bold    
	(make-face-bold face nil t)
      (make-face-unbold face nil t))
    face))