<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
;;; こんだけ .emacs に書いとけばとりあえず動くじゃろ設定
;;; autoload してません。

;; せっかくだから load する。
(cond
 ((not window-system))
 ;; XEmacs
 ((featurep 'xemacs)
  (setq x-face-inhibit-loadup-splash t)
  (require 'x-face))
 ;; Standard Emacs 21
 ((and (not (featurep 'xemacs))
       (= emacs-major-version 21)
       (require 'x-face-e21)))
 ;; Standard Emacs 20 & Mule 2.3
 (t
  (require 'x-face-mule)))

;; Mew
(setq mew-use-highlight-x-face (featurep 'x-face))
(when (featurep 'x-face-mule)
  (setq mew-highlight-x-face-function 'x-face-decode-message-header))

;; Semi-gnus
(when (and (featurep 'x-face) (locate-library "mime-image"))
  (require 'mime-view)
  (require 'mime-image)
  (when (featurep 'x-face-mule)
    (add-hook 'mime-display-header-hook 'x-face-decode-message-header)))

;; Wanderlust (2.7.x 以降)
(cond
 ((featurep 'x-face-mule)
  (setq wl-highlight-x-face-function 'x-face-decode-message-header))
 ((featurep 'x-face-xmas)
  (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)))


;; オプション設定。このあたりは好みで。
(setq x-face-add-x-face-version-header nil)
(setq x-face-xmas-auto-image nil)
(setq x-face-compressor nil)
(setq x-face-mule-use-cache-file t
      x-face-mule-force-save-cache-file t)
(setq x-face-mule-uncompface-program "uncompface")
(setq x-face-mule-highlight-x-face-position 'from
      x-face-mule-highlight-x-face-style 'xmas)
(setq x-face-mule-delete-x-face-field 'always)


;; 色の設定。これも好みで。
(cond
 ((featurep 'x-face-mule)
  (set-face-foreground 'x-face-mule-highlight-x-face-face "black")
  (set-face-background 'x-face-mule-highlight-x-face-face "alice blue"))
 ((featurep 'x-face-xmas)
  (set-face-foreground 'x-face-xmas-x-face-face "black")
  (set-face-background 'x-face-xmas-x-face-face "alice blue")))