[mhc:00251] Re: mhc on wl (experimental support)

[Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>]

On Mon, 29 Nov 1999 20:03:54 +0900,
	sen_ml@xxxxxxxxxxx said:

> mhc の作者の乃村さんが mhc を Wanderlust 上でも動作する [*] 様にしました。
> (wl は変更していません)
> 
> ＃ 日本語でうまく表現できなくてごめんなさい。 m(__)m
> 
> 冒険 [*] をしたい方は
> 
>   http://www.swlab.csce.kyushu-u.ac.jp/~nom/prj/mhc/mhc-snap19991129-2.tar.gz
> 
> から入手して下さい。

失礼します。早速パッチです。:-)
--
nom

Index: emacs/mhc.el
===================================================================
RCS file: /u/nom/prj/cvsroot/mhc/emacs/mhc.el,v
retrieving revision 1.14
diff -u -r1.14 mhc.el
--- mhc.el      1999/11/29 09:53:46     1.14
+++ mhc.el      1999/11/29 11:03:42
@@ -190,6 +190,11 @@
               from (+ 5 from))))
 
 
+(set-face-foreground (make-face 'secret) "white")
+(set-face-background 'secret "gray")
+(set-face-foreground (make-face 'conf)   "white")
+(set-face-background 'conf "purple")
+
 (defvar mhc-header-string-secret-subject "[SECRET] ")
 (put-text-property 0 (1- (length mhc-header-string-secret-subject))
                   'face 'secret mhc-header-string-secret-subject)
@@ -686,13 +691,14 @@
       (set-window-configuration (car-safe mhc-window-stack)))
   (setq mhc-window-stack (cdr-safe mhc-window-stack)))
 
-
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; (Category . (parent-face fg bg))
 ;;
 
+(set-face-foreground (make-face 'red)    "red")
+(set-face-foreground (make-face 'blue)   "blue")
+
 (defvar mhc-category-face-alist
   '(("Holiday"  . (nil "Red"    nil))
     ("Work"     . (nil "Brown"  nil))
@@ -732,13 +738,6 @@
       (if fg (set-face-foreground face fg))
       (if bg (set-face-background face bg))
       (setq alist (cdr alist)))))
-
-(set-face-foreground (make-face 'red)    "red")
-(set-face-foreground (make-face 'blue)   "blue")
-(set-face-foreground (make-face 'secret) "white")
-(set-face-background 'secret "gray")
-(set-face-foreground (make-face 'conf)   "white")
-(set-face-background 'conf "purple")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; manupulate data from mhc-summary-buffer.