Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
X-Face encoder/decoder/viewer for Emacsen --- IN ATTIC BECAUSE: obsolete
Emacs Lisp
branch: master

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
ChangeLog.ja
METHOD.ja
Makefile
README-Anim.ja
README-Makefile.ja
README.ja
TODO.ja
eval.el.in
x-face-beta-logo.xbm
x-face-beta-logo.xpm
x-face-logo.xbm
x-face-logo.xpm
x-face-xmas.el
x-face.el

README.ja

x-face.el v1.3 �$B<h07$$@bL@=q�(B
                             �$B;32,9nH~�(B                <yamaoka@jpl.org>
                             �$B;T@nC#:H�(B               <ichikawa@jpl.org>
                             �$B1|@>F#OB�(B <fuji0924@mbox.kyoto-inet.or.jp>
                             �$B>.4X5HB'�(B        <kose@yk.netlaputa.or.jp>
                             �$B2,ED7r0l�(B               <okada@opaopa.org>
                             �$B;{@>M50l�(B            <teranisi@gohome.org>
                             �$B9b660j�(B                 <kaoru@kaisei.org>
                             �$B>eLnG55#�(B              <ueno@unixuser.org>
                             �$BLZ2<C#Li�(B            <tats@vega.ocn.ne.jp>
----------------------------------------------------------------------
0. NEWS

  �$B:#$d�(B Emacs 21 �$BMQ$N�(B X-Face utility �$B$,MxMQ2DG=$G$9!#�(B

  ftp://ftp.jpl.org/pub/elisp/x-face-e21.el.gz

  �$B?7$7$$:FIA2h%(%s%8%s$r;}$D�(B Emacs 21 �$B$r;H$C$F$$$k?M$O!"$=$l$r;H$&$3$H�(B
  �$B$r6/$/4+$a$^$9!#�(B

  v1.3.6.14 �$B$+$i�(B XEmacs �$B$GB?3,D4�(B X-Face �$B$rI=<($9$k5!G=$r@9$j9~$_$^$7$?!#�(B
  v1.3.6.14 �$B$H�(B v1.3.6.15 �$B$G$O�(B netpbm �$B%Q%C%1!<%8$,I,?\$G$7$?$,!"�(B
  v1.3.6.16 �$B0J9_$G$O�(B elisp �$B$@$1$G<BAu$7$F$$$k$N$GITMW$G$9!#$?$@$7B.EY�(B
  �$B8~>e$J$I$NL\E*$G!">-Mh$OI|3h$5$;$k$+$b$7$l$^$;$s!#�(B

  Gnus �$B$d�(B T-gnus �$B$O<+A0$GB?3,D4�(B X-Face �$B$rI=<($7$^$9$,!"Be$o$j$K$3$l$r�(B
  �$B;H$$$?$$>l9g$O!"Nc$($P0J2<$N$h$&$J$3$H$r9T$J$C$F2<$5$$!#�(B

  (setq gnus-treat-display-grey-xface nil)

  v1.3.6.13 �$B$+$i!"Bh0l9TL\$K%G!<%?$,L5$$�(B X-Face �$B%U%#!<%k%I$b07$($k$h$&�(B
  �$B$K$J$j$^$7$?!#$^$?�(B x-face-xmas.el �$B$K$*$$$F!"�(Bwl-highlight-x-face-func
  �$B$NCM$r6/@)E*$KJQ99$7$F$7$^$&$N$r$d$a$^$7$?!#�(B

  v1.3.6.12 �$B$+$i�(B XEmacs �$B>e$N�(B Wanderlust �$B$G;H$&4X?t�(B
  `x-face-xmas-wl-display-x-face'
  �$B$r!"0z?tL5$7$G8F$Y$k$h$&$K$7$^$7$?!#�(B

  v1.3.6.4 �$B$+$i�(B XEmacs �$B$G�(B animated X-Face �$B$rI=<($9$k5!G=$r@9$j9~$_$^$7�(B
  �$B$?!#�(B

  v1.3 �$B$+$i�(B XEmacs �$B$@$1$G;H$&%W%m%0%i%`$J$I$rJ,N%$7$F�(B x-face-xmas.el
  �$B$H$$$&%U%!%$%k$KG<$a$^$7$?!#$,!"$^$@J,N%$OIT=<J,$G$9!#�(B

  v1.2.7 �$B$+$i%+%i!<�(B/�$B%^%k%A�(B X-Face �$B$,07$($k$h$&$K$J$C$F$$$^$9!#%+%i!<%$�(B
  �$B%a!<%8$r%U%!%$%k$K%;!<%V$9$k$H$-$H30It�(B viewer �$B$G8+$k$H$-$N%U%)!<%^%C�(B
  �$B%H$O!"�(BXPM �$B$+Hs05=L$N�(B BMP (OS/2 �$B$^$?$O�(B Windoze) �$B$N$I$A$i$+$rA*Br$9$k�(B
  �$B$3$H$,$G$-$^$9!#�(BXEmacs �$B$G%$%s%i%$%sI=<($9$kJ}K!$K$D$$$F$O�(B 6. XEmacs
  �$B$N9`$r!"$=$l0J30$K$D$$$F$O�(B 7. �$B$=$NB>�(B �$B$N9`$r$4Mw2<$5$$!#�(B
  �$B%+%i!<�(B/�$B%^%k%A$N$?$a$K%X%C%@$KJ#?t$N�(B X-Face �$B%U%#!<%k%I$rA^F~$9$k$3$N�(B
  �$BJ}K!$O!"$^$@@$$NCf$GG'CN$5$l$?$b$N$G$O$"$j$^$;$s!#�(B(^^;;)
  �$B$$$A$*$&!"5,3J=q$U$&$NFI$_J*$r�(B METHOD.ja �$B$H$7$FE:IU$7$^$7$?!#�(B
----------------------------------------------------------------------
1. �$BI,MW$J$b$N!#�(B

  �$B30It%3%^%s%I$H$7$F�(B compface �$B$H�(B uncompface �$B$,I,MW$G$9!#Nc$($P�(B

    ftp://ftp.win.ne.jp/pub/misc/compface-1.4.tar.gz

  �$B$J$I$r;}$C$F$-$F%3%s%Q%$%k$7!"E,Ev$J%G%#%l%/%H%j$K%$%s%9%H!<%k$7$F2<�(B
  �$B$5$$!#�(BXEmacs �$B$r�(B --with-xface �$B$G:n$k$H$-$KI,MW$J�(B compface.h �$B$O$3$N%"!<�(B
  �$B%+%$%V$K4^$^$l$F$$$F!"�(Blibcompface.a �$B$b:n$k$3$H$,$G$-$^$9!#�(B
  �$B$=$l$+$i%$%a!<%8%U%!%$%k$r8+$k$3$H$,$G$-$k�(B viewer �$B$H$7$F�(B xv �$B$J$I!"$*�(B
  �$B$h$S�(B gzip �$B$d�(B bzip2 �$B$b@_Dj$K$h$C$F$OI,MW$G$9!#�(B
----------------------------------------------------------------------
2. Install.

  x-face.el �$B$r�(B byte-compile-file �$B$7$F!"�(Bload-path �$B$N%G%#%l%/%H%j$K$G$-�(B
  �$B>e$,$C$?�(B x-face.el �$B$H�(B x-face.elc �$B$r%3%T!<$7$F2<$5$$!#�(B
  XEmacs �$B$G;H$&J}�(B �$B$O$3$N%Q%C%1!<%8$r�(B gunzip | tar �$B$GE83+$7$?%G%#%l%/%H�(B
  �$B%j$G�(B (*) x-face-xmas.el �$B$b�(B byte-compile-file �$B$7$F!"�(Bx-face-xmas.el �$B$H�(B
  x-face-xmas.elc �$B$rF1MM$K%$%s%9%H!<%k$7$F2<$5$$!#�(B
  �$B$=$N:]I,$:�(B .elc �$B%U%!%$%k$N%?%$%`%9%?%s%W$,�(B .el �$B$h$j?7$7$/$J$k$h$&$K�(B
  �$B$7$J$1$l$P$J$j$^$;$s!#�(B
  VM �$B$b$7$/$O�(B Mew �$B$r$*;H$$$N>l9g$K$O�(B VM �$B$b$7$/$O�(B Mew �$B$,%$%s%9%H!<%k$5�(B
  �$B$l$F$$$k%G%#%l%/%H%j$,�(B load-path �$B$K4^$^$l$F$$$k>uBV$G%3%s%Q%$%k$7$F�(B
  �$B2<$5$$!#4JC1$K$O�(B VM �$B$b$7$/$O�(B Mew �$B$r5/F0$7$?8e$G%3%s%Q%$%k$7$F2<$5$$!#�(B

  �$B1?$,NI$1$l$PE:IU$7$?�(B Makefile �$B$,;H$($k$+$b$7$l$^$;$s!#;H$$J}$N@bL@$,�(B
  README-Makefile.ja �$B$K$"$j$^$9$N$G!"$3$A$i$b;n$7$F$_$F2<$5$$!#�(B

  (*) �$B:n6H%G%#%l%/%H%j$K�(B logo �$B$N%$%a!<%8%U%!%$%k$,$"$l$P!"$3$N%G%#%l%/�(B
      �$B%H%j$G$J$/$F$b9=$$$^$;$s!#5U$K�(B *.elc �$B$,�(B load �$B$5$l$k$H$-$KI=<($5�(B
      �$B$l$k�(B splash �$B2hLL$,$&$C$H$*$7$$$J$i$P!"�(Blogo �$B$N%$%a!<%8%U%!%$%k$,�(B
      �$BL5$$>uBV$G�(B byte-compile-file �$B$9$k$+!"�(Bx-face-inhibit-loadup-splash
      �$B$H$$$&JQ?t$NCM$r�(B non-nil �$B$K$7$F2<$5$$!#�(B

  �$B$b$7�(B byte-compile-file �$B$7$?�(B *.elc �$B%U%!%$%k$,@5>o$KF0:n$7$J$$$H$-$O!"�(B
  �$B$9$G$K%$%s%9%H!<%k$5$l$F$$$k8E$$�(B x-face.el �$B$H�(B x-face.elc �$B$r�(B (XEmacs
  �$B$N>l9g$O�(B x-face-xmas.el �$B$H�(B x-face-xmas.elc �$B$b�(B) �$B>C5n$7$F$+$i�(B Emacsen
  �$B$r5/F0$7D>$7$F!":FEY�(B byte-compile-file �$B$7$F$_$F2<$5$$!#�(B
----------------------------------------------------------------------
3. autoload �$B$N@_Dj!#�(B

  ~/.emacs �$B$K<!$N$h$&$K=q$$$F2<$5$$!#�(B

(autoload 'x-face-encode "x-face"
  "Generate X-Face string(s) from xbm file." t)
(autoload 'x-face-insert "x-face"
  "Insert X-Face fields." t)
(autoload 'x-face-save "x-face"
  "Save X-Face fields to files." t)
(autoload 'x-face-view "x-face"
  "View X-Face fields." t)
(autoload 'x-face-ascii-view "x-face"
  "View X-Face fields as ascii pictures." t)

; XEmacs �$B$N>l9g$N$_!#>\:Y$O�(B 6. XEmacs �$B$N9`$r$4Mw2<$5$$!#�(B
(autoload 'x-face-xmas-display-x-face "x-face"
  "Display X-Face fields as XEmacs-glyph." t)
(autoload 'x-face-xmas-force-display-x-face "x-face"
  "Display X-Face fields compulsorily as XEmacs glyph.")
(autoload 'x-face-xmas-remove-x-face-glyph "x-face"
  "Remove X-Face images and some text-properties.")

  �$B:GDc$3$l$@$1=q$$$F$*$1$P�(B GNUS �$B$^$?$O�(B Gnus �$B$H�(B mh-e, RMAIL, VM, cmail
  �$B$*$h$S�(B Mew �$B$G;H$($k$O$:$G$9$,!"B>$N�(B Newsreader/Mailer �$B$r;H$C$?$j4D6-�(B
  �$B$d%f!<%6$N9%$_$K9g$o$;$FJQ$($?$$>l9g!"$"$k$$$O�(B Wanderlust �$B$r�(B XEmacs
  �$B$G;H$&>l9g$K$O!"8e=R$N�(B 5. Customize �$B$d�(B 6. XEmacs �$B$N9`$r�(B �$B;2>H$7$F2<$5�(B
  �$B$$!#�(B
----------------------------------------------------------------------
4. �$B;H$$J}!#�(B

�$B!&�(BDecode and view
  �$B%G%U%)%k%H$N@_Dj$G$O�(B gnus-summary-mode, gnus-Subject-mode,
  wl-summary-mode, cmail-summary-mode, mh-folder-mode, rmail-mode,
  vm-summary-mode, mew-summary-mode, mew-virtual-mode �$B$N3F%P%C%U%!$K%+!<�(B
  �$B%=%k$,$"$k>l9g$H!"Aw?.$9$k%a%C%;!<%8$rJT=8$7$F$$$k%P%C%U%!$N$h$&$K%+�(B
  �$B%l%s%H%P%C%U%!$K�(B X-Face �$B%U%#!<%k%I$,$"$k>l9g$K!"�(B

        M-x x-face-view

  �$B$H%?%$%W$9$k$H�(B xv (�$BJQ?t�(B x-face-viewer-program �$B$G;XDj$5$l$?�(B viewer)
  �$B$G�(B face �$B$rI=<($7$^$9!#�(B

  �$B%-%c%i%/%?C<Kv$G�(B xv �$B$J$I$,;H$($J$$>l9g$G$b!"�(BM-x x-face-ascii-view �$B$H�(B
  �$B%?%$%W$9$k$H!"�(B48�$B7e!_�(B24�$B9T$N�(B ascii picture �$B$G�(B face �$B$rI=<($7$^$9!#�(B
  (�$B$b$A$m$s�(B X �$B$NC<Kv$G$b;H$($^$9!#�(B)

�$B!&�(BDecode and save
  �$B%G%U%)%k%H$N@_Dj$G$O�(B gnus-summary-mode, gnus-Subject-mode,
  wl-summary-mode, cmail-summary-mode, mh-folder-mode, rmail-mode,
  vm-summary-mode, mew-summary-mode, mew-virtual-mode �$B$N3F%P%C%U%!$K�(B
  �$B%+!<%=%k$,$"$k>l9g$H!"Aw?.$9$k%a%C%;!<%8$rJT=8$7$F$$$k%P%C%U%!$N$h$&�(B
  �$B$K%+%l%s%H%P%C%U%!$K�(B X-Face �$B%U%#!<%k%I$,$"$k>l9g$K!"�(B

        M-x x-face-save

  �$B$H%?%$%W$9$k$H=jDj$N%G%#%l%/%H%j$K%$%a!<%8%U%!%$%k$H$7$F%;!<%V$7$^$9!#�(B

�$B!&�(BEncode
  �$BE,Ev$J�(B xbm �$B%U%!%$%k$rMQ0U$7$F$*$$$F�(B

        M-x x-face-encode

  �$B$H%?%$%W$9$k$H%(%s%3!<%I$7$?�(B X-Face �$B%U%#!<%k%I$NJ8;zNs$rI=<($7$^$9!#�(B

        C-u M-x x-face-encode
        ESC 1 M-x x-face-encode

  �$B$J$I$H0z?t$rIU$1$F;H$&$H�(B elisp �$B<0$G%(%s%3!<%I$7$?J8;zNs$rI=<($7$^$9!#�(B
  ( C-u �$B$O�(B universal-argument �$B%3%^%s%I$N%G%U%)%k%H$N%-!<@_Dj$G$9!#�(B)

  �$B%$%a!<%8%5%$%:$OITLd$G$9$,!"�(B48x48 �$B$h$j>.$5$$>l9g$OM>Gr$rIU$1!"Bg$-$$�(B
  �$B>l9g$OI,MW$J$i=D2#$,�(B 48 �$B$N<+A3?tG\$K$J$k$h$&$KM>Gr$rIU$1$F!"$=$l$>$l�(B
  48x48 �$B$N%5%$%:$GJ,3d$7$?J#?t$N%(%s%3!<%I7k2L$rJV$7$^$9!#�(B

�$B!&�(BInsert
  �$BE,Ev$J�(B xbm �$B%U%!%$%k$rMQ0U$7$F$*$$$F�(B

        M-x x-face-insert

  �$B$H%?%$%W$9$k$H%+%l%s%H%P%C%U%!$NE,@Z$J0LCV$K�(B X-Face �$B%U%#!<%k%I$rA^F~�(B
  �$B$7$^$9!#%$%a!<%8%5%$%:$OITLd$G$9!#�(B
  configure �$B%*%W%7%g%s$r�(B --with-xface --with-xpm �$B$K$7$F:n$C$?�(B XEmacs
  �$B$G$O%G%U%)%k%H$G�(B encoded string �$B$r1#$7$FD>@\%$%a!<%8$rI=<($9$k$3$H$,�(B
  �$B$G$-$^$9!#>\$7$$$3$H$O�(B 6. XEmacs �$B$N9`$r$4Mw2<$5$$!#�(B

  �$B$^$?!"0z?t$rIU$1$F�(B M-x x-face-insert �$B$r<B9T$9$k$H!"$9$G$KB8:_$9$k�(B
  X-Face �$B%U%#!<%k%I$r>C$5$:$KA^F~$9$k$3$H$,$G$-$^$9!#6qBNE*$K$O�(B

        C-u M-x x-face-insert
        ESC 1 M-x x-face-insert

  �$B$J$I$H%?%$%W$7$^$9!#�(B

   (�$BCm�(B) gnus-summary-mode, gnus-Subject-mode, wl-summary-mode,
        cmail-summary-mode, mh-folder-mode, rmail-mode, vm-summary-mode,
        mew-summary-mode, mew-virtual-mode
        �$B$N3F%P%C%U%!$H$$$&$N$O$=$l$>$l<!$N$h$&$J$b$N$G$9!#�(B

        gnus-summary-mode (GNUS v3.15 �$B0J9_$H�(B Gnus)
        gnus-Subject-mode (GNUS v3.14.4 �$B0JA0�(B)
                �$B%K%e!<%95-;v$N%5%V%8%'%/%H0lMw$,I=<($5$l$F$$$k%P%C%U%!!#�(B
        wl-summary-mode
        cmail-summary-mode
        mh-folder-mode
        vm-summary-mode
        mew-summary-mode, mew-virtual-mode
                �$B%a!<%k$N%5%V%8%'%/%H0lMw$,I=<($5$l$F$$$k%P%C%U%!!#�(B
        rmail-mode
                �$B%a!<%k$NFbMF$,I=<($5$l$F$$$k%P%C%U%!!#�(B
----------------------------------------------------------------------
5. Customize.

  �$B0J2<$N$h$&$K�(B .emacs �$B$K=q$$$F$*$/$3$H$K$h$C$F%+%9%?%^%$%:$,$G$-$^$9!#�(B
  �$B$^$?!"Hf3SE*?7$7$$�(B custom �$B%Q%C%1!<%8$,$"$l$P!"�(BM-x customize �$B$^$?$O�(B
  M-x customize-group �$B$r;H$C$FJT=8$9$k$3$H$b$G$-$^$9!#�(B

(setq x-face-image-file-directory "~/x-faces")
; �$B%$%a!<%8%U%!%$%k$rDL>oCV$$$F$*$/%G%#%l%/%H%j$N;XDj$G$9!#�(B
; �$B0JA0$NJQ?tL>�(B x-face-xbm-file-directory �$B$O;CDjE*$KM-8z$K$7$F$$$^$9$,!"�(B
; �$B$J$k$Y$/$3$N?7$7$$L>A0$r;H$&$h$&$K$7$F2<$5$$!#�(B

(setq x-face-image-file-directory-for-save "~/x-faces")
; �$B%$%a!<%8%U%!%$%k$r%;!<%V$9$k$?$a$N%G%#%l%/%H%jL>$N;XDj$G$9!#�(B
; �$B%G%U%)%k%HCM$O�(B x-face-image-file-directory �$B$HF1$8$G$9!#�(B

(setq x-face-default-xbm-file "myface.xbm")
; �$B<g$K<+J,$N�(B X-Face �$BMQ$K;H$&�(B xbm �$B%U%!%$%k$NL>A0$r;XDj$7$^$9!#�(B
; �$B$b$7�(B x-face-image-file-directory �$B$G@_Dj$7$?%G%#%l%/%H%j0J30$N>l=j$K�(B
; �$BCV$$$F$*$/>l9g$O!"%G%#%l%/%H%jL>$b4^$a$F5-=R$7$F2<$5$$!#�(B
; �$B$3$NJQ?t$K$O�(B "myface.xbm.gz" �$B$^$?$O�(B "myface.xbm.bz2" �$B$H$$$&$h$&$K�(B
; gzip �$B$d�(B bzip2 �$B$G05=L$5$l$?$b$N$r;XDj$9$k$3$H$,2DG=$G!"�(B"myface.xbm"
; �$B$r@_Dj$7$?>l9g$G$b�(B "myface.xbm.gz" �$B$d�(B "myface.xbm.bz2" �$B$,B8:_$9$k>l�(B
; �$B9g$O$=$l$,;H$o$l$^$9!#5U$K$3$NJQ?t$KNc$($P�(B "myface.xbm.gz" �$B$r@_Dj$7�(B
; �$B$F$b$=$l$,<B:_$G$O$J$/$F!"�(B"myface.xbm.bz2" �$B$d�(B "myface.xbm" �$B$,B8:_$7�(B
; �$B$F$$$k>l9g$K$O$=$l$,;H$o$l$^$9!#�(B

(setq x-face-insert-interactive t)
; �$B4X?t�(B 'x-face-insert �$B$r<jF0$N%3%^%s%I$H$7$F;H$&>l9g0J30$G$b!"$3$NJQ?t�(B
; �$B$r�(B t �$B$K$7$F$*$/$HA^F~$9$k%U%!%$%kL>$r?R$M$k$h$&$K$J$j$^$9!#�(B
; �$B$=$N$H$-$N5$J,$K1~$8$F�(B face �$B$rJQ$($k$h$&$J>l9g$KJXMx$G$7$g$&!#�(B

(setq x-face-compressor 'gzip)
; 'gzip �$B$^$?$O�(B 'bzip2 �$B$r@_Dj$7$F$*$/$H�(B X-Face �$B$r%;!<%V$9$k$H$-$K�(B gzip
; �$B$^$?$O�(B bzip2 �$B$G05=L$7$^$9!#�(Bnil �$B$G$O05=L$7$^$;$s!#�(B

(setq x-face-compressor-program-list
      '((gzip ".gz" "gzip" "-c9" "GZIPping" "gzip" "-cd" "GUNZIPping")
	(bzip2 ".bz2" "bzip2" "-f" "BZIPping" "bzip2" "-d" "BUNZIPping")))
; �$B05=L?-D9J}K!$r;XDj$9$k%j%9%H$G$9!#�(B
; �$B$=$l$>$l$N%(%l%a%s%H$OJQ?t�(B x-face-compressor �$B$G;XDj$9$k%7%s%\%k!"%U%!�(B
; �$B%$%kL>$N%5%U%#%C%/%9!"05=L%W%m%0%i%`!"05=L;~$N0z?t!"05=L;~$N%a%C%;!<�(B
; �$B%8!"?-D9%W%m%0%i%`!"?-D9;~$N0z?t!"?-D9;~$N%a%C%;!<%8$G9=@.$5$l$^$9!#�(B
; �$B%W%m%0%i%`L>$OI,MW$J$i@dBP%Q%9$r;H$C$F2<$5$$!#�(B

(setq x-face-user-x-face-variable-name "x-face-default-encoded-string")
; C-u M-x x-face-encode �$B$N=PNO$G;H$&JQ?tL>$N;XDj$G$9!#�(B
; �$B$^�(B �$B$3$l$O$I$&$G$bNI$$$G$7$g$&!#�(B

(setq x-face-compface-program "compface")
(setq x-face-uncompface-program "uncompface")
(setq x-face-viewer-program "xv")
; �$B%Q%9$,@_Dj$5$l$F$$$J$$%G%#%l%/%H%j$K30It%3%^%s%I$N%U%!%$%k$rCV$$$F$$�(B
; �$B$k>l9g$O!"�(B"/usr/local/bin/X11/xv" �$B$J$I$H%U%k%Q%9$G5-=R$7$F2<$5$$!#�(B
; �$B$J$*�(B x-face-viewer-program �$B$K$O�(B system-type �$B$,�(B OS/2 �$B$^$?$O�(B windows-nt
; �$B$@$C$?>l9g$O$=$l$>$l�(B "pmview" �$B$+�(B "start" �$B$,!"$=$l0J30$N>l9g$O�(B "xv"
; �$B$,%G%U%)%k%H$G@_Dj$5$l$^$9!#�(B

(setq x-face-viewer-options '("-nodecor" "-quit" "-"))
; �$B$3$l$O�(B viewer program �$B$N0z?t$N�(B list �$B$G$9!#�(Bx-face-view-asynchronous
; �$B$H$$$&JQ?t�(B (�$B8e=R�(B) �$B$,�(B t �$B$N>l9g$K$OI,$:;2>H$9$k$b$N$G$O$"$j$^$;$s!#�(B
; xv �$B0J30$N$b$N$d8E!A$$�(B xv �$B$r;H$&>l9g$OE,59=$@5$7$F2<$5$$!#�(B

(setq x-face-icons-to-color-picture-function 'x-face-icons-to-xpm)
; �$B%+%i!<�(B X-Face �$B$r8+$?$j%;!<%V$9$k$H$-$K!"%$%a!<%8%U%)!<%^%C%H$KJQ49$9�(B
; �$B$k$?$a$N4X?t$r;XDj$7$^$9!#8=:_�(B XPM�$B!"�(BOS/2-BMP �$B$*$h$S�(B Windoze-BMP �$B$N3F�(B
; �$B%$%a!<%8$r%(%s%3!<%I$9$k$?$a$N4X?t$,MQ0U$5$l$F$$$F!"%G%U%)%k%HCM$O�(B
; system-type �$B$NCM$K$h$C$F$=$l$>$l0J2<$N$h$&$K@_Dj$5$l$^$9!#�(B
;
;       'OS/2           'x-face-icons-to-os2-bmp
;       'windows-nt     'x-face-icons-to-win-bmp
;       �$B>e5-0J30�(B        'x-face-icons-to-xpm
;
; �$B$$$:$l$b�(B X-Face �$B%U%#!<%k%I$r�(B uncompface �$B$G�(B icon �$B%U%)!<%^%C%H$KJQ49$7�(B
; �$B$?8e$G;H$&$b$N$G$9!#�(B

(setq x-face-view-asynchronous nil)
; t �$B$K$7$F$*$/$H�(B M-x x-face-view �$B$GHsF14|$K�(B viewer �$B$r5/F0$7$^$9!#�(B
; �$B$9$J$o$A!"�(Bnil �$B$N>l9g$K$O�(B viewer �$B$r=*N;$5$;$k$^$G�(B Mule/NEmacs/XEmacs
; �$B$NA`:n$,$G$-$J$/$J$j$^$9$,!"�(Bt �$B$G$O�(B face �$B$r8+$J$,$i%-!<%\!<%IA`:n$,$G�(B
; �$B$-$^$9!#�(B
; OS/2 �$B$N>l9g$O%G%U%)%k%H$G�(B t �$B$K$7$F$"$j$^$9!#$H$$$&$N$O�(B xbm �$B$rI=<($G�(B
; �$B$-$k�(B VIO�$BHG%"%W%j%1!<%7%g%s$,$J$$$N$G�(B PMView �$B$J$I$N�(B PM�$BHG%0%i%U%#%C%/�(B
; �$B%S%e!<%"$r;H$o$6$k$rF@$J$$$N$G$9$,!"�(BPM�$B%"%W%j%1!<%7%g%s$OI8=`F~=PNO$r�(B
; �$B07$($J$$;EMM$H$J$C$F$$$k$?$a$G$9!#JQ?t$,�(B nil �$B$N>l9g$K$OI8=`=PNO$5$l�(B
; �$B$k$N$KBP$7!"�(Bt �$B$N>l9g$O%F%s%]%i%j%U%!%$%k$K=q$-=P$5$l$k$N$G�(B PM�$BHG$G$b�(B
; �$BLdBj$J$/;H$($k$H$$$&$o$1$G$9!#�(BX-Free86 for OS/2 �$B$G�(B xv �$B$,;H$($k$b$N$N!"�(B
; �$B4N?4$N�(B OS/2 Mule �$B$,�(B xterm �$B>e$G$O�(B VIO�$B%b!<%I$G$b$^$H$b$K;H$($^$;$s!#�(B:-)
; PMX �$B$G�(B xv �$B$OF0$/$O$:$G$9$,!"�(BPMMule �$B$+$iF0$+$;$k$+$I$&$+D4$Y$F$^$;$s!#�(B

(setq x-face-view-asynchronous-function {�$B4X?t%7%s%\%k�(B or �$B4X?tDj5A�(B})
; x-face-view-asynchronous �$B$,�(B t �$B$N$H$-$K;H$&4X?t$N@_Dj$G$9!#0z?t$H$7$F�(B
; �$BI=<($9$Y$-%U%!%$%k$N@dBP%Q%9L>$,EO$5$l$^$9!#�(B

(setq x-face-viewer-startup-time 10)
; �$B30It�(B viewer �$B$r5/F0$7$FI=<($9$k%U%!%$%k$rFI$_9~$`$^$G$N:GBg;~4V$rIC?t�(B
; �$B$G@_Dj$7$^$9!#�(Bx-face.el �$B$+$i30It�(B viewer �$B$r5/F0$7$?8e$G$3$N;~4V$,7P2a�(B
; �$B$9$k$H%U%!%$%k$r>C$7$^$9!#�(B

(setq x-face-save-or-view-method-alist
      '(
	(gnus-summary-mode
	 . (gnus-summary-show-article
	    x-face-find-gnus-article-buffer
	    gnus-summary-show-article))
	(gnus-Subject-mode
	 . (gnus-Subject-show-article
	    x-face-find-gnus-article-buffer
	    gnus-Subject-show-article))
	(wl-summary-mode
	 . (x-face-wl-get-article
	    x-face-extracted-headers-buffer))
	(cmail-summary-mode
	 . (x-face-cmail-get-article
	    x-face-extracted-headers-buffer))
	(mh-folder-mode
	 . (x-face-mh-get-article
	    x-face-extracted-headers-buffer))
	(vm-summary-mode
	 . (x-face-vm-get-all-headers
	    x-face-extracted-headers-buffer))
	(mew-summary-mode
	 . (x-face-mew-get-article
	    x-face-extracted-headers-buffer))
	(mew-virtual-mode
	 . (x-face-mew-get-article
	    x-face-extracted-headers-buffer))
	))
; �$B?'!9$J�(B Newsreader/Mailer �$B$G�(B M-x x-face-{save,view} �$B$G$-$k$h$&$K$9$k�(B
; �$B$?$a$NJQ?t$G!"3F�(B cell �$B$O<!$N$h$&$J9=B$$K$7$^$9!#�(B
;
;     (MAJOR-MODE . (PREPARE-FUNCTION BUFFERorFUNCTION POST-FUNCTION))
;
; M-x x-face-{save,view} �$B$7$?$H$-$N%+%l%s%H%P%C%U%!$N�(B major-mode �$B$,�(B
; MAJOR-MODE �$B$@$C$?$i!"$^$:�(B PREPARE-FUNCTION �$B$r<B9T$7!"<B9T$7=*$o$C$?�(B
; �$B$H$-$K�(B X-Face �$B%U%#!<%k%I$,B8:_$9$k$O$:$N%P%C%U%!$r�(B BUFFER �$B$G;XDj$7$^�(B
; �$B$9!#�(B
;
; BUFFER �$B$K4X?t$,;XDj$5$l$F$$$?>l9g$O!"$=$NI>2A7k2L$r:NMQ$7$^$9!#�(B
; x-face-find-gnus-article-buffer �$B$H�(B mew-buffer-message �$B$,$3$l$K3:Ev$7�(B
; �$B$^$9!#�(B
;
; POST-FUNCTION �$B$O�(B {save,view} �$B$7=*$o$C$F$+$i8e;OKv$N$?$a$K<B9T$9$k4X�(B
; �$B?t$N;XDj$G$9!#�(B
;
; �$B%+%l%s%H%P%C%U%!$K�(B X-Face �$B$,B8:_$7$F$$$k$H$-$K�(B M-x x-face-{save,view}
; �$B$9$k$?$a$K$O!"FCJL$J@_Dj$OITMW$G$9!#�(B

  �$BKh2s�(B M-x x-face-{save,view} �$B$H%?%$%W$9$k$N$,LLE]$J$i$P!"0J2<$N$h$&$K�(B
  �$B%-!<$r@_Dj$9$k$3$H$b$G$-$^$9!#�(B

(add-hook 'gnus-summary-mode-hook
	  (function
	   (lambda ()
	     (define-key (current-local-map) "\C-x4s" 'x-face-save)
	     (define-key (current-local-map) "\C-x4v" 'x-face-view)
	     (define-key (current-local-map) "\C-x4a" 'x-face-ascii-view)
	     )))
; Gnus �$B$d�(B GNUS (v3.15 �$B0J>e�(B) �$B0J30$G$O�(B gnus-summary-mode-hook �$B$NBe$o$j$K�(B
; �$B0J2<$N�(B hook �$B$r;H$C$F2<$5$$!#�(B
;       GNUS (v3.14.4 �$B0J2<�(B)             gnus-Subject-mode-hook
;       Wanderlust                      wl-summary-mode-hook
;       cmail                           cmail-summary-mode-hook
;       RMAIL                           rmail-mode-hook
;       mh-e                            mh-folder-mode-hook
;       VM                              vm-summary-mode-hook
;       Mew                             mew-summary-mode-hook
;                                       mew-virtual-mode-hook

; NEmacs �$B$K$O�(B add-hook �$B$,$"$j$^$;$s$+$i!"4X?tDj5A$rDI2C�(B (�$B8e=R�(B) �$B$9$k$+�(B
; �$BDL>o$NJ}K!$r;H$C$F2<$5$$!#0J2<$bF1MM$G$9!#�(B

  �$BAw?.$9$k%a%C%;!<%8$K�(B X-Face �$B%U%#!<%k%I$r<+F0IU2C$9$k$K$O!"Nc$($P<!$N�(B
  �$B$h$&$K$7$F2<$5$$!#�(BXEmacs �$B$N>l9g$O$3$NJ}K!$NBe$o$j$K�(B 6. XEmacs. �$B$N9`�(B
  �$B$G@bL@$9$kJ}K!$r?d>)$7$^$9!#�(B

(add-hook 'gnus-message-setup-hook 'x-face-insert)
; Gnus (v5.4 �$B0J>e�(B) �$B$G$O!"$3$&$9$k$H�(B x-face-default-xbm-file �$B$G;XDj$7$?�(B
; xbm �$B%U%!%$%k$NFbMF$,%(%s%3!<%I$5$l$FA^F~$5$l$^$9!#�(B
; �$B$^$?!"JQ?t�(B x-face-insert-interactive �$B$r�(B t �$B$K$7$F$*$/$HKh2sA^F~$9$k%U%!�(B
; �$B%$%kL>$r?R$M$k$h$&$K$J$j$^$9!#�(B
; �$B%G%U%)%k%H0J30$N%U%!%$%k$r;H$$$?$$>l9g$O<!$N$h$&$K=q$-$^$9!#�(B
(add-hook 'gnus-message-setup-hook
	  (function
	   (lambda ()
	     (x-face-insert "FILENAME"))))
; Gnus (v5.4 �$B0J>e�(B) �$B0J30$G$O�(B gnus-message-setup-hook �$B$NBe$o$j$K0J2<$N�(B
; hook �$B$r;H$C$F2<$5$$!#�(B
;       Gnus (v5.2 �$B0J>e�(B)            message-setup-hook
;       Gnus (v5.1 �$B0J2<�(B) �$B$H�(B GNUS    news-setup-hook
;       Wanderlust                  wl-mail-setup-hook
;       cmail                       cmail-mail-hook or mail-setup-hook
;       MAIL/RMAIL/VM               mail-setup-hook
;       mh-e                        mh-letter-mode-hook
;       Mew                         mew-draft-mode-hook

  �$B$^$?!"0J2<$h$&$J�(B hook �$B$r@_Dj$7$F$*$/$H!"Aw?.%a%C%;!<%8$r=q$-;O$a$k$H�(B
  �$B$-$K�(B X-Face �$B%U%#!<%k%I$rIU2C$9$k$+$I$&$+$r�(B (y or n) �$B$GA*Br$G$-$k$h$&�(B
  �$B$K$J$j$^$9!#�(B(�$B$3$l$O�(B mail-setup-hook �$B$K@_Dj$9$kNc$G$9!#�(B)

(add-hook 'mail-setup-hook
	  (function
	   (lambda ()
	     (and (y-or-n-p "X-Face �$B%X%C%@$rIU$1$^$9$+�(B? ")
		  (call-interactively 'x-face-insert)
		  ))))

  x-face-insert �$B$G�(B X-Face �$B%U%#!<%k%I$rIU2C$7$?D>8e$KI>2A$5$l$k�(B hook �$B$H�(B
  �$B$7$F�(B x-face-insert-hook �$B$,$"$j$^$9!#$3$l$,I>2A$5$l$k$H$-$N�(B (point)
  �$B$O�(B X-Face �$B%U%#!<%k%I$N9TF,$G$9!#�(B
  �$B$=$l$+$i!"�(Bx-face-add-x-face-version-header �$B$H$$$&JQ?t$r�(B t �$B$K$7$F$*$/�(B
  �$B$H!"�(Bx-face-insert �$B$7$?$H$-$K�(B X-Face-Version �$B$H$$$&!"$3$N�(B program �$B$N�(B
  version �$B$rI=$9%U%#!<%k%I$rJ;$;$FIU2C$7$^$9$N$G!"$b$7$h$m$7$1$l$P;H$C�(B
  �$B$F2<$5$$!#�(B

  v1.2.8 �$B$+$i%P!<%8%g%s�(B 19 �$B0J>e$N�(B Emacsen �$B$G%a%K%e!<$,;H$($k$h$&$K$J$C�(B
  �$B$F$$$^$9!#%a%K%e!<$rM-8z$K$9$k$K$O�(B .emacs �$B$K<!$N$h$&$K=q$$$F2<$5$$!#�(B

(autoload 'x-face-define-menu "x-face" "Define menu.")
(add-hook 'HOOK 'x-face-define-menu)

  HOOK �$B$K$ONc$($P0J2<$N$h$&$J$b$N$,;H$($^$9$N$G!"I,MW$K1~$8$FDI2C$7$F�(B
  �$B2<$5$$!#�(B

    MUA         �$B<u?.�(B                        �$BAw?.�(B
  ------------------------------------------------------------------
    Gnus:       gnus-summary-mode-hook      gnus-message-setup-hook
    Wanderlust: wl-summary-mode-hook        wl-mail-setup-hook
    cmail:      cmail-summary-mode-hook     mail-setup-hook
    mh-e:       mh-folder-mode-hook         mh-letter-mode-hook
    RMAIL:      rmail-mode-hook             mail-setup-hook
    VM:         vm-summary-mode-hook        mail-setup-hook
    Mew:        mew-summary-mode-hook       mew-draft-mode-hook
                mew-virtual-mode-hook

  �$B$"$k$$$O!"$3$l$iA4It$r0z$C$/$k$a$F�(B

(mapcar
 (function (lambda (hook) (add-hook hook 'x-face-define-menu)))
 '(gnus-message-setup-hook gnus-summary-mode-hook
   wl-summary-mode-hook wl-mail-setup-hook
   cmail-summary-mode-hook
   mail-setup-hook
   mh-folder-mode-hook mh-letter-mode-hook
   rmail-mode-hook vm-summary-mode-hook
   mew-draft-mode-hook mew-summary-mode-hook mew-virtual-mode-hook))

  �$B$J$I$H=q$$$F$7$^$C$F$b<B32$OL5$$$G$7$g$&!#�(B

  �$B%a%K%e!<$+$i;H$($k%3%^%s%I�(B x-face-menu-insert x-face-menu-encode �$B$r�(B
  �$B<jF0$G�(B M-x �$B$7$?$j�(B hook �$B$J$I$G;H$&>l9g$K$O!"�(B

(require 'x-face)

  �$B$^$?$O�(B

(autoload 'x-face-menu-insert "x-face" "Insert X-Face with menu." t)
(autoload 'x-face-menu-encode "x-face"
  "Generate X-Face string(s) from xbm file with menu." t)

  �$B$H$$$C$?5-=R$rDI2C$7$F2<$5$$!#�(B
----------------------------------------------------------------------
6. XEmacs.

  configure �$B%*%W%7%g%s$r�(B --with-xface --with-xpm �$B$K$7$F:n$C$?�(B XEmacs
  �$B$r;H$&$H!"%a!<%k$d%K%e!<%9$N5-;v$rFI$`$H$-$HAw?.%P%C%U%!$rJT=8$9$k$H�(B
  �$B$-$K!"D>@\%$%a!<%8$rI=<($9$k$3$H$,$G$-$^$9!#�(BXEmacs �$B$GB?MQ$5$l$F$$$k�(B
  highlight-headers.el �$B$NJQ?t�(B highlight-headers-hack-x-face-p �$B$,�(B nil
  �$B$@$C$?>l9g$O�(B highlight-headers �$B$N;EMM$K9g$o$;$F%$%a!<%8$rI=<($7$J$$�(B
  �$B$h$&$K$7$F$$$^$9!#�(B

�$B!Z%a!<%k$d%K%e!<%9$rFI$`$H$-$N%$%s%i%$%sI=<(![�(B
  �$B%$%s%i%$%sI=<($9$k$?$a$K8^$D$NJ}K!$rMQ0U$7$F$$$^$9!#�(B

 (1) highlight-headers.el �$B$N4X?t�(B highlight-headers �$B$NCV$-49$(!#�(BXEmacs
     �$B$GB?$/$N�(B Mailer/Newsreader �$B$r;H$&>e$GI,?\$H$b8@$($k�(B tm �$B$^$?$O�(B
     SEMI�$B!"$*$h$S�(B Mew �$B$N5lHG$G$b$3$l$r;H$C$F$$$^$9!#�(B
     Gnus �$B$,<+?H$G@_Dj$9$k�(B gnus-article-display-hook �$B$rL58z$K$9$kI,MW�(B
     �$B$,$"$j$^$9!#�(B
 (2) Gnus �$B$@$1$O�(B Gnus �$B$,;}$C$F$$$k$5$^$6$^$J%X%C%@$r=$>~$9$k5!G=$r;H$$!"�(B
     �$B$=$l0J30$O�(B tm �$B$^$?$O�(B SEMI �$B$N4X?t�(B
     mime-preview-x-face-function-use-highlight-headers (�$B$3$3$G$b�(B
     highlight-headers �$B$rMxMQ$7$F$$$^$9�(B) �$B$rCV$-49$($^$9!#�(BGnus �$B$NJQ?t�(B
     gnus-article-x-face-command �$B$K�(B x-face-xmas-display-x-face �$B$r@_Dj�(B
     �$B$9$kI,MW$,$"$j$^$9!#�(B
 (3) Gnus �$B$NJQ?t�(B gnus-article-x-face-command �$B$K�(B
     x-face-xmas-display-x-face �$B$r@_Dj!#�(B(2) �$B$HF1$8$G$9$,!"�(Btm �$B$^$?$O�(B
     SEMI �$B$r;H$o$J$$>l9g$O$3$l$@$1$r9T$J$C$F2<$5$$!#�(B
 (4) Pterodactyl Gnus �$B$d$3$l$r%Y!<%9$K$7$?�(B T-gnus �$B$G$O�(B gnus-treat �$B$N5!�(B
     �$BG=$r;H$$$^$9!#�(BT-gnus �$B$G;H$&>l9g$N@_DjNc$r:\$;$^$7$?!#�(B
 (5) Wanderlust 2.7.0 �$B0J9_$G$O�(B wl-highlight-x-face-function �$B$H$$$&JQ?t!"�(B
     Wanderlust 2.6.x �$B0JA0$G$O�(B wl-highlight-x-face-func �$B$H$$$&JQ?t$K�(B
     X-Face �$B$rI=<($9$k$?$a$N4X?t$r@_Dj$9$k$3$H$,$G$-$^$9!#�(B
     samples/{en,ja}/dot.wl �$B$KNc$,$"$j$^$9$,!"$3$3$K$b:\$;$F$*$-$^$9!#�(B
 (6) Mew 1.92 �$B0J9_$G$O�(B highlight-headers �$B$r;H$o$J$/$F$b:Q$`$h$&$K$J$C�(B
     �$B$?$N$G!"�(B(1) �$B$N4X?t$NCV$-49$($OITMW$G$9!#2<5-$K=>$C$F2<$5$$!#�(B

  �$B$=$l$>$l<!$N$h$&$K�(B .emacs �$B$K=q$-F~$l$F2<$5$$!#�(B(1) �$B$+�(B (2) �$B$N@_Dj$r9T�(B
  �$B$J$&>l9g!"B>$N�(B autoload �$B$N@_Dj$O0l@ZI,MW$"$j$^$;$s!#�(B

;(1) �$B4X?t�(B highlight-headers �$B$NCV$-49$(!#�(B
(require 'x-face)
(setq gnus-article-display-hook nil)
(x-face-xmas-replace-highlight-headers)

  gnus-article-display-hook �$B$O�(B gnus.el �$B$NCf$G�(B defcustom �$B$K$h$k@_Dj$,9T�(B
  �$B$J$o$l$k$N$G!"�(Bgnus.el �$B$,�(B load �$B$5$l$kA0$KJQ?t$H$7$FB8:_$7$F$$$l$P�(B Gnus
  �$B$O2?$b$7$^$;$s!#$7$?$,$C$F$3$NNc$N$h$&$K�(B nil �$B$K$9$k0J30$K!"2?$i$+$N�(B
  �$B4X?t$r�(B add-hook �$B$9$k$3$H$b$G$-$^$9!#�(B

;(2)
(require 'x-face)
(setq gnus-article-x-face-command 'x-face-xmas-display-x-face)
(x-face-xmas-replace-highlight-headers)
;    tm �$B$r;H$&>l9g!#�(B
(x-face-xmas-replace-x-face-function-for-tm)
;    SEMI �$B$r;H$&>l9g!#�(B
(x-face-xmas-replace-x-face-function-for-semi)

  (1) �$B$H�(B (2) �$B$K$D$$$F$O�(B (require 'x-face) �$B$9$kBe$o$j$K$9$Y$F�(B autoload
  �$B$K$9$k$3$H$b$G$-$J$$$3$H$O$J$$$N$G$9$,!"B>$N%i%$%V%i%j$,�(B load �$B$5$l$k�(B
  �$B=g=x$K$h$C$F$O$&$^$/$$$+$J$$$N$G!">e5-$N@_Dj$r$H$j$"$($:?d>)$7$F$*$-�(B
  �$B$^$9!#�(B

;(3) tm �$B$^$?$O�(B SEMI �$BL5$7$G�(B Gnus �$B$r;H$&>l9g!#�(B
(setq gnus-article-x-face-command 'x-face-xmas-display-x-face)

;(4) T-gnus �$B$G;H$&>l9g$N@_DjNc!#�(B.gnus �$B%U%!%$%k$K=q$$$F2<$5$$!#�(B
(setq
 gnus-article-treat-types '("text/plain" "text/x-rot13-47-48")
 gnus-cite-minimum-match-count 1
 gnus-treat-highlight-signature '(and mime last)
 gnus-treat-buttonize nil
 gnus-treat-buttonize-head nil
 gnus-treat-emphasize nil
 gnus-treat-highlight-headers '(and mime head)
 gnus-treat-highlight-citation 'mime
 gnus-treat-date-local '(and mime head)
 gnus-treat-display-xface '(and mime head)
 gnus-treat-display-smileys nil
 gnus-treat-display-picons nil
 gnus-treat-decode-article-as-default-mime-charset '(not head)
 gnus-article-x-face-command 'x-face-xmas-display-x-face
 )

;(5) Wanderlust �$B$G;H$&>l9g$N@_DjNc!#�(B.wl �$B%U%!%$%k$K=q$$$F2<$5$$!#�(B
;    �$B$4Cm0U�(B: Wanderlust 2.7.0 �$B0J9_$G$O2<5-$NDL$j$K�(B
;            wl-highlight-x-face-function �$B$r;H$C$F2<$5$$!#�(B
;            Wanderlust 2.6.x �$B0JA0$N$b$N$r;H$&>l9g$O!"Be$o$j$K�(B
;            wl-highlight-x-face-func �$B$r;H$C$F2<$5$$!#�(B
(when window-system
  (cond ((and (featurep 'xemacs)	; for XEmacs
	      (module-installed-p 'x-face))
	 (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
	 (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face))
	;; for Mule (GNU Emacs)
	((module-installed-p 'x-face-mule)
	 ;; for x-face-mule distributed with bitmap-mule 8.0 or later
	 (autoload 'x-face-decode-message-header "x-face-mule")
	 (setq wl-highlight-x-face-function 'x-face-decode-message-header))
	))

  x-face-xmas-wl-display-x-face �$B$H$$$&4X?t$O0JA0$+$iB8:_$7$?�(B
  x-face-xmas-mew-display-x-face �$B$HF1$8FbMF$G$9!#8e<T$,A0<T$N�(B alias �$B$K�(B
  �$B$J$C$F$$$^$9!#�(B

;(6) Mew 1.93 �$B0J9_$G;H$&>l9g!#�(B
(autoload 'x-face-xmas-mew-display-x-face "x-face")
(setq mew-use-highlight-x-face-function 'x-face-xmas-mew-display-x-face)
;    �$B2?$,2?$G$b�(B highlight-headers �$B$r�(B load �$B$7$J$$!#�(B:-p
;(provide 'highlight-headers)

  Mew 1.92 �$B$H�(B 1.93b2 �$B0JA0$G$O�(B mew-use-highlight-x-face-function �$B$NBe$o�(B
  �$B$j$K�(B mew-opt-highlight-x-face-function �$B$r;H$C$F2<$5$$!#�(B

�$B!ZAw?.%P%C%U%!$J$I$G$N%$%s%i%$%sI=<(![�(B
  �$B%3%^%s%I�(B M-x x-face-insert �$B$r;H$C$F<jF0$GA^F~$7$?�(B X-Face �$B%U%#!<%k%I�(B
  �$B$r!"%G%U%)%k%H$G$O�(B encoded string �$B$r1#$7$FD>@\%$%a!<%8$rI=<($9$k$h$&�(B
  �$B$K$J$C$F$$$^$9!#I=<($9$k0LCV$O�(B From �$B%U%#!<%k%I$,$"$k>l9g$O$=$3!"L5$$�(B
  �$B>l9g$O�(B X-Face �$B%U%#!<%k%I$K$J$j$^$9!#�(B
  �$BI=<(�(B/�$BHsI=<($O�(B M-x x-face-xmas-display-x-face �$B$G%H%0%k$K@ZBX$($k$3$H�(B
  �$B$,$G$-$^$9$,!"�(BM-x x-face-insert �$B$r<jF0$G<B9T$7$?D>8e$K%$%a!<%8$rI=<(�(B
  �$B$5$;$?$/L5$$>l9g$O!"�(B.emacs �$B$K�(B

(setq x-face-xmas-auto-image nil)

  �$B$H=q$$$F$*$$$F2<$5$$!#JQ?t�(B highlight-headers-hack-x-face-p �$B$r�(B nil �$B$K�(B
  �$B$7$F$b%$%a!<%8$rI=<($7$J$/$J$j$^$9!#�(B
  �$B%3%^%s%I�(B x-face-xmas-display-x-face �$B$KM?$($k0z?t$,@5$N@0?t$@$C$?>l9g�(B
  �$B$O%$%a!<%8$r6/@)I=<($7!"Ii$N@0?t$@$C$?>l9g$O6/@)HsI=<($K$J$j$^$9!#�(B
  �$B$=$l0J30$N>l9g$K$OI=<(�(B/�$BHsI=<($N%H%0%k@ZBX$($r9T$J$$$^$9!#�(B
  (�$B4X?t�(B x-face-xmas-remove-x-face-glyph �$B$O�(B x-face-xmas-display-x-face
   �$B$KIi$N@0?t$N0z?t$rM?$($?>l9g$HF1$8F0:n$r$7$^$9!#�(B)

  �$B$^$?�(B M-x x-face-xmas-display-x-face �$B$r�(B `ESC t' �$B%-!<$K3d$jEv$F$kJ}K!�(B
  �$B$r2<$K<($7$^$9!#�(B

(add-hook 'HOOK
	  (lambda ()
	    (define-key (current-local-map)
	      "\M-t" 'x-face-xmas-display-x-face)
	    ))
; HOOK �$B$K$O$*;H$$$K$J$k�(B Newsreader/Mailer �$B$K$h$C$F!"$=$l$>$l0J2<$N$b$N�(B
; �$B$r;H$C$F2<$5$$!#�(B
;
;       Gnus                    gnus-message-setup-hook
;       Wanderlust              wl-mail-setup-hook
;       MAIL/RMAIL/VM/cmail     mail-setup-hook
;       mh-e                    mh-letter-mode-hook
;       Mew                     mew-draft-mode-hook


  �$B<jF0$G�(B M-x x-face-insert �$B$9$k0J30$K!"Aw?.%P%C%U%!$rJT=8$7;O$a$k$H$-�(B
  �$B$K�(B X-Face �$B%U%#!<%k%I$r<+F0IU2C$7$F!"$+$D%$%a!<%8$rI=<($5$;$?$$$H$-$O�(B
  �$B<!$N$h$&$K�(B hook �$B$r@_Dj$7$F2<$5$$!#�(B
   **---------------------------------------------------------------**
   ** 5. Customize. �$B$G@bL@$7$?�(B hook �$B$N@_Dj�(B                          **
   ** ...�$BAw?.$9$k%a%C%;!<%8$K�(B X-Face �$B%U%#!<%k%I$r<+F0IU2C$9$k$K$O�(B...**
   **    �$B$NBe$o$j$K;H$C$F2<$5$$!#�(B                                   **
   **                                                               **
   **    �$B$?$@$7�(B Mew 1.91 �$B0JA0$N$b$N$r;H$&>l9g$O�(B 5. Costomize. �$B$N�(B    **
   **    �$B@bL@$N$^$^$GNI$/!"0J2<$N$h$&$K=q$-49$($kI,MW$O$"$j$^$;$s!#�(B **
   **---------------------------------------------------------------**

(add-hook 'HOOK
	  (lambda ()
	    (x-face-insert)
	    (x-face-xmas-force-display-x-face) ; Mew 1.91 �$B0JA0$G$OITMW�(B
	    ))
; x-face-default-xbm-file �$B$G;XDj$7$?�(B xbm �$B%U%!%$%k$NFbMF$,%(%s%3!<%I$5$l!"�(B
; �$B$+$D%$%a!<%8$rI=<($7$^$9!#�(BHOOK �$B$K$O$*;H$$$K$J$k�(B Newsreader/Mailer �$B$K�(B
; �$B$h$C$F!"$=$l$>$l0J2<$N$b$N$r;H$C$F2<$5$$!#�(B
;
;       Gnus                    gnus-message-setup-hook
;       Wanderlust              wl-mail-setup-hook
;       cmail                   cmail-mail-hook or mail-setup-hook
;       mh-e                    mh-letter-mode-hook
;       MAIL/RMAIL/VM           mail-setup-hook
;
; Wanderlust �$B$G$O�(B ~/.xface �$B%U%!%$%k$K�(B X-Face �$B$N�(B encoded string �$B$,$"$l�(B
; �$B$P$=$l$,�(B insert �$B$5$l$^$9$,!"�(Bhook �$B$N4X?t$K�(B (x-face-insert) �$B$,4^$^$l$F�(B
; �$B$$$k$H>e=q$-$7$F$7$^$$$^$9!#�(B~/.xface �$B%U%!%$%k$NJ}$rM-8z$K$9$k$K$O>e�(B
; �$B5-$N�(B hook �$B$O;H$o$:$K�(B
;
;(setq wl-highlight-x-face-func 'x-face-xmas-force-display-x-face)
;
; �$B$J$I$N@_Dj$r9T$J$C$F%$%a!<%8$rI=<($7$F2<$5$$!#�(B

  �$B%G%U%)%k%H0J30$N%U%!%$%k$r;H$$$?$$>l9g$O<!$N$h$&$K=q$-$^$9!#�(B

(add-hook 'HOOK
	  (lambda ()
	    (x-face-insert "FILENAME")
	    (x-face-xmas-force-display-x-face) ; Mew 1.91 �$B0JA0$G$OITMW�(B
	    ))

  �$B$^$?!"0J2<$h$&$J�(B hook �$B$r@_Dj$7$F$*$/$H!"Aw?.%a%C%;!<%8$r=q$-;O$a$k$H�(B
  �$B$-$K�(B X-Face �$B%U%#!<%k%I$rIU2C$9$k$+$I$&$+$r�(B (y or n) �$B$GA*Br$G$-$k$h$&�(B
  �$B$K$J$j$^$9!#�(B

(add-hook 'HOOK
	  (lambda ()
	    (when (y-or-n-p "X-Face �$B%X%C%@$rIU$1$^$9$+�(B? ")
	      (x-face-insert)
	      (x-face-xmas-force-display-x-face) ; Mew 1.91 �$B0JA0$G$OITMW�(B
	      )))

  From �$B%U%#!<%k%I$K%$%a!<%8$rI=<($7$F$$$k$H$-$O�(B X-Face �$B%U%#!<%k%IA4BN�(B
  �$B$r1#$7$F!"�(BFrom �$B%U%#!<%k%I$H�(B X-Face �$B%U%#!<%k%IA4BN$r�(B read-only �$B$K$7$^�(B
  �$B$9!#�(B
  X-Face �$B%U%#!<%k%I$K%$%a!<%8$rI=<($7$F$$$k$H$-$O�(B encoded string �$B$r1#�(B
  �$B$7$F�(B X-Face �$B%U%#!<%k%IA4BN$r�(B read-only �$B$K$7$^$9!#�(B

  �$B$$$:$l$b8+$($J$/$J$C$F$7$^$C$?NN0h$rITMQ0U$K=q$-JQ$($F$7$^$o$J$$$?$a�(B
  �$B$NBP:v$J$N$G$9$,!"�(Bread-only �$B$K$7$?8e$G$5$i$K%X%C%@$r=q$-JQ$($k$h$&$J�(B
  �$B=hM}$,9T$J$o$l$k$H!"$=$N=hM}$N@5$7$$7k2L$,F@$i$l$J$+$C$?$j%(%i!<$G;_�(B
  �$B$^$C$F$7$^$&>l9g$,$"$j$^$9!#�(B
  �$B$b$7$=$N$h$&$J;vBV$,IT9,$K$7$F5/$3$C$F$7$^$&$h$&$G$7$?$i!"4JC1$K$O�(B

(setq x-face-xmas-inhibit-read-only t)

  �$B$H�(B .emacs �$B$K=q$$$F$*$/$H!"8+$($J$$%X%C%@$NNN0h$r�(B read-only �$B$K$7$J$$�(B
  �$B$h$&$K$9$k$3$H$,$G$-$^$9!#�(B
  �$B$b$C$HNI$$$N$O!"%X%C%@$r=q$-JQ$($k%W%m%0%i%`$,<B9T$5$l$k$h$jA0$K�(B

        (x-face-xmas-remove-x-face-glyph)

  �$B$r<B9T$7$F�(B read-only �$B$NB0@-$r>C$7$F$7$^$&$3$H$G$9!#�(B
  �$BNc$($P�(B tm �$B$N�(B mime-editor/preview-message �$B$d�(B SEMI �$B$N�(B mime-edit-preview-
  message �$B%3%^%s%I$r<B9T$7$?$H$-$K!"�(Bread-only �$B$JNN0h$NNY$j$K%U%#!<%k%I�(B
  �$B$rA^F~$9$k:]$K5/$3$k%(%i!<$r2sHr$9$k$K$O!"�(B.emacs �$B$G<!$N$h$&$J�(B hook
  �$B$r@_Dj$7$F$*$/$HNI$$$G$7$g$&!#$I$&$d$i�(B Gnus �$B$G$OI,?\$N$h$&$G$9!#�(B

(add-hook 'mime-editor/translate-hook 'x-face-xmas-remove-x-face-glyph) ; tm
(add-hook 'mime-edit-translate-hook 'x-face-xmas-remove-x-face-glyph) ; SEMI

�$B!ZI=<(%9%?%$%k![�(B
  x-face.el �$B$G$O�(B From: �$B%U%#!<%k%I$K�(B X-Face �$B$rI=<(�(B (*1) �$B$7$?$j!"J#?t$N�(B
  X-Face �$B$rI=<($9$k$H$-$N=g=x�(B (*2) �$B$,!"%G%U%)%k%H$G$O�(B Gnus �$B$U$&$K$J$C�(B
  �$B$F$$$^$9!#$3$l$r�(B highlight-headers �$B$U$&$K$7$?$$>l9g$O�(B .emacs �$B$K<!$N�(B
  �$B$h$&$J5-=R$rDI2C$7$F$/$@$5$$!#�(B

(setq x-face-xmas-like-highlight-headers t)

  �$B$J$*!"�(Bx-face-xmas-replace-highlight-headers �$B$GCV$-49$($i$l$?4X?t�(B
  highlight-headers �$B$OL5>r7o$G%*%j%8%J%k$HF1$8;EMM$K$J$j$^$9!#�(B

  (*1) "From:�$B"#�(B foo@bar" �$B$,�(B Gnus �$B$U$&!"�(B
       "From: �$B"#�(Bfoo@bar" �$B$,�(B highlight-headers �$B$U$&$G$9!#�(B

  (*2) �$B%X%C%@$KB8:_$9$k�(B X-Face �$B$r>e$+$i=g$K%$%a!<%8$KJQ49$7$F!":8$+$i�(B
       �$B$O$8$a$F1&$K8~$+$C$FJB$Y$k$N$,�(B Gnus �$B$U$&!"�(Bhighlight-headers �$B$O�(B
       �$B1&$+$i$O$8$a$F:8$K8~$+$C$FJB$Y$^$9!#�(B

�$B!Z%a%K%e!<![�(B
  �$B%a%K%e!<$+$i�(B Encode �$B$^$?$O�(B Insert �$B$r<B9T$7$?>l9g$K!"�(BXEmacs �$B$G$O�(B
  dialog box �$B$K%$%a!<%8$rI=<($7$^$9!#$3$N�(B dialog box �$B$N%5%$%:$O�(B

(setq x-face-xmas-dialog-frame-alist
      '((width . 48) (height . 16) (left . 0) (top . -1)))

  �$B$N$h$&$K@_Dj$9$k$3$H$,$G$-$^$9!#%G%U%)%k%H$O$3$NDL$j$NCM$G$9!#�(B
  �$B$^$?�(B dialog box �$B$KI=<($9$kJ8;z%U%)%s%H$N9b$5$,�(B 16-dot �$B0J30$N>l9g$K$O�(B

(setq x-face-xmas-font-height-in-dialog-box 14)

  �$B$J$I$H@_Dj$7$F2<$5$$!#�(B
  �$B%a%K%e!<$KI=<($9$k%$%a!<%8$O:G=i$K:n$C$?$H$-$K%-%c%C%7%e$9$k$N$G!"#2�(B
  �$B2sL\0J9_$O�(B dialog box �$B$N5/F0$,B.$/$J$j$^$9!#%$%a!<%8%U%!%$%k$NJQ99;~�(B
  �$B9o$d%5%$%:$,JQ$o$C$?$j?7$7$$%U%!%$%k$,DI2C$5$l$?>l9g!"%-%c%C%7%e$NFb�(B
  �$BMF$O<+F0E*$K99?7$5$l$^$9!#�(B
  �$B$3$N%-%c%C%7%e$ONc$($P0J2<$N$h$&$K�(B .emacs �$B$K=q$$$F$*$/$3$H$K$h$C$F%W�(B
  �$B%j%A%c!<%8$9$k$3$H$b2DG=$G$9!#�(B

;;; x-face.elc �$B$r�(B load �$B$9$k$H$-$K%W%j%A%c!<%8$9$k!#�(B
(add-hook 'x-face-load-hook 'x-face-xmas-image-file-cache-precharge)

;;; XEmacs �$B$r5/F0$9$k$H$-$K%W%j%A%c!<%8$9$k!#�(B
(require 'x-face)
(x-face-xmas-image-file-cache-precharge)

  �$B$b$7�(B x-face-image-file-directory �$B$NCM$,%G%U%)%k%H$H0[$J$k>l9g$O!"�(B
  �$B$3$l$i$NA0$K�(B setq �$B$G@_Dj$7$F$*$+$J$1$l$P$J$j$^$;$s!#�(B

�$B!Z�(BSelect-XFace�$B![�(B
  �$B;{@>M50l$5$s�(B <teranisi@gohome.org> �$B$,$*:n$j$K$J$C$?�(B select-xface �$B$r�(B
  �$B;H$&$H!"A^F~$9$k�(B X-Face �$B$r$=$N%$%a!<%8$r8+$J$,$iA*Br$9$k$3$H$,$G$-�(B
  �$B$^$9!#$3$l$OHs>o$KJXMx$J%D!<%k$J$N$G�(B XEmacs �$B$N%f!<%6$N3'$5$s$K$O$<$R�(B
  �$B$*;H$$$K$J$C$F$4$i$s$K$J$k$3$H$r$*4+$a$7$^$9!#$3$N%W%m%0%i%`$O�(B Mew
  �$B$N%Q%C%1!<%8$K<}$a$i$l$F$$$kB>$K!"�(B
  ftp://ftp.gohome.org/pub/elisp/select-xface/ �$B$^$?$O�(B
  ftp://ftp.jpl.org/pub/elisp/ �$B$J$I$N2<$K�(B select-xface-*.tar.gz
  �$B$H$7$FCV$+$l$F$$$^$9!#�(B
----------------------------------------------------------------------
7. �$B$=$NB>!#�(B

  �$B4X?t�(B x-face-encode �$B$O<jF0$N%3%^%s%I$H$7$F;H$o$l$k$H%(%s%3!<%I7k2L$r�(B
  �$B%]%C%W%"%C%W$7$?%P%C%U%!$KI=<($7$^$9$,!"%W%m%0%i%`$+$i4X?t$H$7$F8F$P�(B
  �$B$l$?>l9g$K$OLa$jCM$H$7$F%(%s%3!<%I7k2L$rJV$9$@$1$NF0:n$K$J$j$^$9!#�(B
  �$BJV$9CM$,J#?t$"$k>l9g$N$?$a$K%j%9%H$K$J$C$F$$$^$9!#�(B

  x-face-insert �$B%3%^%s%I$r;H$C$F�(B xbm �$B%U%!%$%k$+$i%(%s%3!<%I$7$?�(B X-Face
  �$B%U%#!<%k%I$,J#?t$K$J$k>l9g$K$O!"<+F0E*$K�(B X-Face-Type �$B%U%#!<%k%I$bA^�(B
  �$BF~$7$^$9!#$3$3$K=q$+$l$k$N$O85$N%$%a!<%8$NG[CV$rI=$9>pJs$G$9!#�(B
  �$B$^$?FC$K�(B X-Face �$B%U%#!<%k%I$N8D?t$,�(B 3 �$B$N<+A3?tG\$K$J$k>l9g$K$O!"$=$l�(B
  �$B$,�(B RGB �$B3F?'$KJ,2r$5$l$?%+%i!<�(B X-Face �$B$G$"$k$+$I$&$+$r?R$M$^$9!#Kh2s�(B
  �$B?R$M$i$l$k$N$,HQ$o$7$$$J$i$P!"$=$N�(B xbm �$B%U%!%$%k$N@hF,$K0J2<$N$h$&$J�(B
  �$B%3%a%s%H9T$rA^F~$7$F2<$5$$!#�(B

/* X-Face-Type: RGB */
/* Type: MONO */

  (�$B;DG0$J$,$i$3$N$h$&$J9T$,$"$k%U%!%$%k$rI=<($G$-$J$$�(B viewer �$B$,$"$k$h�(B
   �$B$&$G$9$,�(B ...�$B!#�(B:-<)
  �$B;29M$^$G$K!"$3$l$i$r8!CN$9$k$?$a$K%W%m%0%i%`$G;H$C$F$$$k@55,I=8=$O!"�(B
  "type[\t \"]*[:;=]+[\t \"]*rgb" �$B$^$?$O�(B "type[\t \"]*[:;=]+[\t \"]*mono"
  �$B$G!"BgJ8;z�(B/�$B>.J8;z$N6hJL$O$7$F$$$^$;$s!#�(B

  �$B%X%C%@$KJ#?t$N�(B X-Face �$B%U%#!<%k%I$,B8:_$9$k$?$a$K!"�(BMailer/Newsreader
  �$B$K$h$C$F$O<!$N$h$&$J@_Dj$r9T$J$&I,MW$,$"$j$^$9!#�(B

; Gnus �$B$GAw?.$9$k$H$-$KF1L>J#?t$N%U%#!<%k%I$KBP$9$k7Y9p$rM^@)$9$k!#�(B
(setq message-syntax-checks '(
			      (long-lines . disabled)
			      (control-chars . disabled)
			      (multiple-headers . disabled) ; �$B"+$3$l�(B
			      (signature . disabled)
			      ))
; Mew �$B$,07$($k%X%C%@$N>e8BCM$rBg$-$/$9$k!#�(B
(setq mew-header-max-length 100)

  �$B$=$l$+$i!"%+%i!<�(B X-Face �$B$r�(B netpbm �$B$r;H$C$F:n$kJ}K!$r>R2p$7$F$*$-$^$9!#�(B
  �$B$^$:$O$*3(=q$-%D!<%k$J$I$r;H$C$F�(B 48x48 �$B$^$?$O$=$N<+A3?tG\$N%5%$%:$N�(B
  �$B%$%a!<%8%U%!%$%k$r:n$j$^$7$g$&!#$3$3$G?'?t$,B?$+$C$?$jCf4V?'$r;H$C$F�(B
  �$B$$$k$H!"$-$l$$$J�(B face �$B$r:n$k$3$H$,$G$-$J$$$3$H$KCm0U$7$F2<$5$$!#�(B
  �$B%F%l%SJ|Aw$N%F%9%H$G;H$o$l$k%+%i!<%P!<$N?'�(B (�$BGr�(B �$B2+�(B �$B%7%"%s�(B �$BNP�(B �$B%^%<%s%?�(B
  �$B@V�(B �$B@D�(B �$B9u�(B) �$B$@$1$K$J$C$F$$$k$N$,%Y%9%H$G$9!#Nc$($P$3$l$,�(B gif �$B$@$C$?$i!"�(B

% giftoppm FACE.gif > FACE.ppm
% ppmtorgb3 FACE.ppm

  �$B$3$&$9$k$H�(B �$B@V�(B,�$BNP�(B,�$B@D�(B �$B$KJ,2r$5$l$?;0$D$N�(B pgm �$B%U%!%$%k�(B noname.red,
  noname.grn, noname.blu �$B$,@8@.$5$l$k$N$G!"$5$i$K�(B

% pnmcat -tb noname.red noname.grn noname.blu > FACE.pgm

  �$B$3$&$d$C$F=DJ}8~$KO"7k$7$F$+$i�(B xbm �$B$KJQ49$7$^$9!#�(B

% pgmtopbm FACE.pgm > FACE.pbm
% pbmtoxbm FACE.pbm > FACE.xbm

  �$B85$N%+%i!<%$%a!<%8$,�(B 48x48 �$B$h$jBg$-$$>l9g$O!"I,$:�(B *�$B=DJ}8~�(B* �$B$KO"7k$7�(B
  �$B$F2<$5$$!#�(B48x48 �$B$N>l9g$O2#$G$b9=$$$^$;$s!#�(B
  �$B:G8e$K%(%G%#%?$r;H$C$F$G$-$"$,$C$?�(B FACE.xbm �$B$NBh0l9TL\$K�(B

/* X-Face-Type: RGB */

  �$B$H=q$-9~$a$P=*$o$j$G$9!#�(B
  (�$B;DG0$J$,$i$3$N$h$&$J9T$,$"$k%U%!%$%k$rI=<($G$-$J$$�(B viewer �$B$,$"$k$h�(B
   �$B$&$G$9$,�(B ...�$B!#�(B:-<)
----------------------------------------------------------------------
8. add-hook.

  NEmacs �$B$d�(B NEpoch �$B$G�(B add-hook �$B$r;H$&>l9g$O!"0J2<$N4X?tDj5A$r�(B ~/.emacs
  �$B$J$I$N$J$k$Y$/;O$a$NJ}$K=q$-9~$s$G2<$5$$!#�(B

(defun add-hook (hook function &optional append)
  "Add to the value of HOOK the function FUNCTION.
FUNCTION is not added if already present.
FUNCTION is added (if necessary) at the beginning of the hook list
unless the optional argument APPEND is non-nil, in which case
FUNCTION is added at the end.

HOOK should be a symbol, and FUNCTION may be any valid function.  If
HOOK is void, it is first set to nil.  If HOOK's value is a single
function, it is changed to a list of functions."
  (or (boundp hook)
      (set hook nil)
      )
  ;; If the hook value is a single function, turn it into a list.
  (let ((old (symbol-value hook)))
    (if (or (not (listp old))
	    (eq (car old) 'lambda))
	(set hook (list old))
      ))
  (or (if (consp function)
	  ;; Clever way to tell whether a given lambda-expression
	  ;; is equal to anything in the hook.
	  (let ((tail (assoc (cdr function) (symbol-value hook))))
	    (equal function tail)
	    )
	(memq function (symbol-value hook))
	)
      (set hook
	   (if append
	       (nconc (symbol-value hook) (list function))
	     (cons function (symbol-value hook))
	     ))
      ))
Something went wrong with that request. Please try again.