[Mew-dist 04921] Re: mew-field-visible -> mew-field-spec ?

[Makoto MATSUSHITA ( まつしたまこと )]

matusita> Emacs20 and (featurep 'bitmap) なら XEmacs と同じようにする，
matusita> というのをやると楽しい気もする(けどううむ)

ごめんなさい．既に動くようになっていたことを知りませんでした _o_

--- contrib/mew-xface-mule.el.dist	Tue Nov  4 12:54:07 1997
+++ contrib/mew-xface-mule.el	Thu May 28 13:17:44 1998
@@ -47,7 +47,7 @@
 ;;; 2. If you want to change hilight color for X-Face,
 ;;;    add like the following in your .emacs
 ;;;    (setq mew-highlight-x-face-color "Red") ;;; foreground color
-;;;    (setq mew-highlight-x-face--bgcolor "Green") ;;; background color
+;;;    (setq mew-highlight-x-face-bgcolor "Green") ;;; background color
 ;;;
 ;;; [USER FUNCTION]
 ;;; (mew-toggle-x-face-type) toggle show method. from->xface->nil->from...
@@ -68,17 +68,17 @@
 
 (defvar mew-prog-uncompface "uncompface")
 
-(defvar mew-opt-highlight-x-face-type 'from
+(defvar mew-use-highlight-x-face-type 'from
   "*Where to show X-Face.
 'from at From: field, 'xface at X-Face: field.")
 
-(setq mew-opt-highlight-x-face-function 
+(setq mew-use-highlight-x-face-function 
 	  (function
 	   (lambda (beg end)
 		 (interactive)
-		 (if (and window-system mew-opt-highlight-x-face)
+		 (if (and window-system mew-use-highlight-x-face)
 		   (cond
-		    ((memq mew-opt-highlight-x-face-type '(from xface))
+		    ((memq mew-use-highlight-x-face-type '(from xface))
 		     (mew-x-face-decode-message-header beg end)))))))
 
 
@@ -102,15 +102,15 @@
 ;;; toggle x-face-type
 (defun mew-toggle-x-face-type ()
   (interactive)
-  (cond ((equal mew-opt-highlight-x-face-type 'from)
+  (cond ((equal mew-use-highlight-x-face-type 'from)
 		 (message "Show X-Face at X-Face:")
-		 (setq mew-opt-highlight-x-face-type 'xface))
-		((equal mew-opt-highlight-x-face-type 'xface)
+		 (setq mew-use-highlight-x-face-type 'xface))
+		((equal mew-use-highlight-x-face-type 'xface)
 		 (message "Don't Show X-Face")
-		 (setq mew-opt-highlight-x-face-type nil))
+		 (setq mew-use-highlight-x-face-type nil))
 		(t
 		 (message "Show X-Face at From:")
-		 (setq mew-opt-highlight-x-face-type 'from)))
+		 (setq mew-use-highlight-x-face-type 'from)))
   (mew-summary-display))
 
 ;;
@@ -198,11 +198,11 @@
       (setq lines (cdr lines)))))
 
 (defun mew-x-face-allocate-lines (beg end height)
-  "allocate new lines according to mew-opt-highlight-x-face-type.
+  "allocate new lines according to mew-use-highlight-x-face-type.
 returns the begin-point of the xface rectangle."
   (let (begin-point n)
     (cond
-     ((eq mew-opt-highlight-x-face-type 'from)
+     ((eq mew-use-highlight-x-face-type 'from)
       (goto-char beg)
       (if (re-search-forward  "^From:" end t)
 	  (progn
@@ -215,7 +215,7 @@
 		  (insert "     \n     \n     \n")
 		  (setq n (1+ n)))
 	    )))
-     ((eq mew-opt-highlight-x-face-type 'xface)
+     ((eq mew-use-highlight-x-face-type 'xface)
       (insert "X-Face: ")
       (setq begin-point (point))
 	  (setq n 0)

-- -
Makoto `MAR' MATSUSHITA