x-face - 源码 - 源码 - 免费下载 - VerySource

开通博客赚积分

发布资源赚积分

x-face

文件大小： unknow

源码售价： 5 个金币积分规则积分充值

充值1元得10金币

资源说明：X-Face encoder/decoder/viewer for Emacsen

x-face.el v1.3 $B
                             $B;T@nC#:H(B               
                             $B1|@>F#OB(B 
                             $B>.4X5HB'(B        
                             $B2,ED7r0l(B               
                             $B;{@>M50l(B            
                             $B9b660j(B                 
                             $B>eLnG55#(B              
                             $BLZ2
----------------------------------------------------------------------
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$Ge$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=(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$Kl9g$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%/%?Cl9g$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$NCl9g$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$rC$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$>$loCV$$$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")
; $BA0$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$,l9g$K$O$=$l$,;H$o$l$^$9!#(B

(setq x-face-insert-interactive t)
; $B4X?t(B 'x-face-insert $B$rl9g0J30$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$Ol9g$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$Ke(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$($Pl9g$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$Oe(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$Kl9g$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$>$ll9g!"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!#8el9g!#(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@\%$%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$r8e$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


  $Bl9g$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$Ol9g$,$"$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%`$,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$rl9g$O(B .emacs $B$Kr7o$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!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  $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$Ol9g$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$OJ#?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))
	     ))
      ))

部分文件列表（点击文件名可查看文件内容）

					
									本源码包内暂不包含可直接显示的源代码文件，请下载源码包。