🚀 go-pugleaf

新村です。およそ成功しました。

>>> Wed, 24 Oct 2001 15:36:32 +0900 の刻に 「新村」、すなわち
>>> GGB03631@nifty.ne.jp(Atsushi Shinmura) 氏曰く

---.mew.el
    147 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    148 ;;編集中にxfaceを表示する
    149 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    150 
    151 (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
    152 (setq highlight-headers-hack-x-face-p t)
    153 (setq x-face-xmas-auto-image t)
    154 (setq x-face-default-xbm-file "~/.neko.xbm")
    155 (add-hook 'mew-draft-mode-hook
    156     (lambda nil
    157 ;;      (x-face-insert)
    158 ;;      (setq x-face-insert-interactive nil)
    159         (x-face-insert x-face-default-xbm-file)
    160         (x-face-xmas-force-display-x-face)))
    161 ;       (x-face-xmas-display-x-face 1)))
    162 
    163 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
---end

---T-gnus
     14 ;;xfaceの設定
     15 (autoload 'x-face-xmas-display-x-face "x-face"
     16     "Display X-Face fields as XEmacs-glyph." t)
     17 ;(defvar gnus-x-face-file (expand-file-name "~/.x-face"))
     18 (defvar gnus-x-face-file (expand-file-name "~/.xface"))
     19 (defun mail-insert-x-face ()
     20     (save-excursion
     21         (goto-char (point-min))
     22         (search-forward mail-header-separator)
     23         (beginning-of-line nil)
     24         (insert "X-Face:")
     25         (insert-file gnus-x-face-file)
     26         (x-face-xmas-display-x-face 1)))
     27 (add-hook 'message-setup-hook 'mail-insert-x-face)
---end

---.wl

    257 ;; X-Face を表示する (要 x-face (and x-face-mule))
    258 
    259 (when window-system
    260   (cond ((and (featurep 'xemacs)    ; for XEmacs
    261           (module-installed-p 'x-face))
    262      (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
    263      (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)
    264      (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
    265      (setq x-face-default-xbm-file "~/.neko.xbm")
    266      (add-hook 'wl-mail-setup-hook
    267         (lambda nil
    268 ;;          (x-face-insert)
    269             (x-face-insert x-face-default-xbm-file)
    270             (x-face-xmas-display-x-face 1))))
    271     ;; for Mule (GNU Emacs)
    272     ((module-installed-p 'x-face-mule)
    273     ;; for x-face-mule distributed with bitmap-mule 8.0 or later
    274     (autoload 'x-face-decode-message-header "x-face-mule")
    275     (setq wl-highlight-x-face-function 'x-face-decode-message-header))
    276 ))
---end

上記で期待どおりに動きました。ご連絡および御礼までに。


-- 
Atsushi Shinmura