🚀 go-pugleaf

--Multipart_Tue_Oct_23_15:33:57_2001-1
Content-Type: text/plain; charset=ISO-2022-JP

>>>>> In <m0ofmzrlzt.fsf@maria.issui.co>
>>>>>	Atsushi Shinmura <GGB03631@nifty.ne.jp> wrote:

$B;32,(B> x-face-xmas-auto-image $B$NCM$,%G%U%)%k%H$N(B t $B$G!"(Bx-face-insert $B%3(B
$B;32,(B> $B%^%s%I$rBPOCE*$K(B (M-x $B$G(B) $B;H$C$?>l9g$K%$%s%i%$%sI=<($7$^$9!#(Bhook
$B;32,(B> $B$J$I$G(B x-face-insert $B$r4X?t(B call $B$7$?>l9g$K$b%$%s%i%$%sI=<($5$;(B
$B;32,(B> $B$?$$>l9g$O!"(B

$B?7B<$5$s(B> $B$d$C$F$_$?$N$G$9$,!"!V$=$s$J4X?t$J$$$h!W$H8@$o$l$^$9!#2?8N!)!)(B

$B$"$j$c(B?

M-x load-library
Load library: x-face

$B$G$O%(%i!<$O5/$-$^$;$s$+(B?
$B$"$k$$$O!"(B

(autoload 'x-face-insert "x-face" "Insert X-Face fields." t)

$B$N$h$&$J@_Dj$,$I$3$K$bL5$$$H$+!#(B

$B$H$3$m$G!"$3$N%3%^%s%I(B `x-face-insert' $B$,F~NO$H$7$F07$&$3$H$,$G(B
$B$-$k$N$O(B XBM $B%U%!%$%k$G$7$F!"%X%C%@$K$"$k$h$&$J(B compface $B$G%(%s(B
$B%3!<%I$5$l$?%F%-%9%H$G$O$"$j$^$;$s(B (x-face-e21 $B$O0c$&;EMM(B)$B!#(B
$B?7B<$5$s$N(B face $B$r(B xbm $B%U%!%$%k$K$7$?$b$N$rE:IU$7$F$*$-$^$9$N$G!"(B
*scratch* $B%P%C%U%!$G0J2<$N<0$r(B eval ($B:G8e$NJD$83g8L$N8e$m$G(B C-j)
$B$7$F;n$7$F$_$F2<$5$$!#(B

(progn
  (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
  (setq x-face-default-xbm-file "~/Atsushi_Shinmura.xbm")

  (let ((buffer (get-buffer-create "*testing*")))
    (pop-to-buffer buffer)
    (erase-buffer)
    (insert "\
Newsgroups: fj.editor.xemacs
Subject: testing
From: Atsushi Shinmura <GGB03631@nifty.ne.jp>

just a test.
")
    (x-face-insert)
    (x-face-xmas-display-x-face 1)))

$B$$$+$,$G$9$+(B?

$B?7B<$5$s(B> ---.mew.el
$B?7B<$5$s(B> ;;$BJT=8Cf$K(Bxface$B$rI=<($9$k(B
$B?7B<$5$s(B> (setq x-face-default-xbm-file "~/.xface")
$B?7B<$5$s(B> (add-hook 'mew-draft-mode-hook 'x-face-insert)
$B?7B<$5$s(B> (add-hook 'mew-make-massage-hook 'x-face-turn-off)
$B?7B<$5$s(B> ---end

$B$?$V$s$3$N>l9g$O(B

(autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
(setq x-face-default-xbm-file "~/Atsushi_Shinmura.xbm")
(add-hook 'mew-make-massage-hook
	  (lambda nil
	    (x-face-insert)
	    (x-face-xmas-display-x-face 1)))

$B$G$$$1$k$+$b$7$l$^$;$s!#(BMew $B$K$OAB$$$N$G!"$b$7$&$^$/$$$+$J$+$C$?(B
$B$i$=$N%9%8$NJ}!9$K?R$M$F$_$F2<$5$$!#(B
$B$J$*(B X-Face utils $B$K(B `x-face-turn-off' $B$H$$$&4X?t$OL5$$$H;W$&$N(B
$B$G$9$,!#(B

$B?7B<$5$s(B> ---.gnus
$B?7B<$5$s(B> ;;xface$B$N@_Dj(B
$B?7B<$5$s(B> (defvar gnus-x-face-file (expand-file-name "~/.x-face"))
$B?7B<$5$s(B> (defun mail-insert-x-face ()
$B?7B<$5$s(B> 	(save-excursion
$B?7B<$5$s(B> 		(goto-char (point-min))
$B?7B<$5$s(B> 		(search-forward mail-header-separator)
$B?7B<$5$s(B> 		(beginning-of-line nil)
$B?7B<$5$s(B> 		(insert "X-Face:")
$B?7B<$5$s(B> 		(insert-file gnus-x-face-file)))
$B?7B<$5$s(B> (add-hook 'message-setup-hook 'mail-insert-x-face)
$B?7B<$5$s(B> ---end

"~/.x-face" $B$H$$$&%U%!%$%k$NFbMFJ*$O(B compface $B$G%(%s%3!<%I$5$l$?(B
$B%F%-%9%H$G$9$h$M!#$G$7$?$i(B

(autoload 'x-face-xmas-display-x-face "x-face"
  "Display X-Face fields as XEmacs-glyph." t)

$B$rDI2C$7$F!"4X?t(B `mail-insert-x-face' $B$N:G8e$r(B

		(insert-file gnus-x-face-file)
		(x-face-xmas-display-x-face 1)))

$B$H$9$l$P$&$^$/$$$/5$$,$7$^$9!#(B

$B?7B<$5$s(B> ---.wl
$B?7B<$5$s(B> ;; X-Face $B$rI=<($9$k(B ($BMW(B x-face (and x-face-mule))
$B?7B<$5$s(B> (when window-system
$B?7B<$5$s(B>   (cond ((and (featurep 'xemacs)    ; for XEmacs
$B?7B<$5$s(B>           (module-installed-p 'x-face))
$B?7B<$5$s(B>      (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
$B?7B<$5$s(B> 	 (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face))
$B?7B<$5$s(B>     ;; for Mule (GNU Emacs)
$B?7B<$5$s(B> 	((module-installed-p 'x-face-mule)
$B?7B<$5$s(B> 	;; for x-face-mule distributed with bitmap-mule 8.0 or later
$B?7B<$5$s(B> 	(autoload 'x-face-decode-message-header "x-face-mule")
$B?7B<$5$s(B> 	(setq wl-highlight-x-face-function 'x-face-decode-message-header))
$B?7B<$5$s(B> ))
$B?7B<$5$s(B> ---end

$B$($($H(B Wanderlust $B$N>l9g$O(B cond $B$N(B XEmacs $B$N9`$N:G8e$r(B

	 (setq wl-highlight-x-face-function 'x-face-xmas-wl-display-x-face)
	 (autoload 'x-face-insert "x-face" "Insert X-Face fields." t)
	 (setq x-face-default-xbm-file "~/Atsushi_Shinmura.xbm")
	 (add-hook 'wl-mail-setup-hook
		   (lambda nil
		     (x-face-insert)
		     (x-face-xmas-display-x-face 1))))

$B$HDy$a$/$/$k$h$&$K$9$l$P$&$^$/$$$/$N$G$O$J$$$G$7$g$&$+!#(B

--Multipart_Tue_Oct_23_15:33:57_2001-1
Content-Type: image/x-xbm
Content-Disposition: inline; filename="Atsushi_Shinmura.xbm"
Content-Transfer-Encoding: 7bit

#define Atsushi_Shinmura_width 48
#define Atsushi_Shinmura_height 48
static char Atsushi_Shinmura_bits[] = {
 0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x55,0x55,0x55,0x55,0x55,0xAD,0xFF,0xFF,0xFF,
 0xFF,0xFF,0xFF,0x96,0xAE,0xFA,0xFF,0x6F,0xAD,0x7F,0xED,0x7F,0xFF,0xFF,0xFD,
 0xDD,0xBF,0xFF,0xFE,0xEF,0xD6,0x77,0xED,0xDF,0xFF,0xFD,0xBD,0xDE,0xFD,0xFF,
 0xFF,0xFF,0xEF,0x6F,0xFF,0xFF,0xF7,0xFF,0xB3,0xED,0xFA,0xFF,0xFF,0xFF,0xEF,
 0x7F,0xF7,0xBF,0xDF,0xFF,0xDF,0x96,0xFD,0x7F,0x37,0xF8,0xB3,0xFF,0xFE,0x96,
 0x0F,0xF1,0xDF,0x2D,0xF3,0xA3,0x1B,0xE4,0xB7,0xD7,0xFD,0xF8,0x9E,0xE5,0xED,
 0xBE,0xF6,0x06,0x6B,0xE8,0xB7,0xD7,0xF6,0x80,0x22,0xA0,0xD5,0x6E,0xEB,0x9F,
 0xBE,0xFF,0xBE,0x57,0xF5,0xFF,0xFF,0xD7,0xD3,0x7E,0x5D,0xFF,0xEE,0xFF,0xAD,
 0xA7,0xF5,0xFF,0x7F,0xFF,0xDD,0xAE,0xEA,0xFF,0xFB,0xFF,0xA5,0x57,0xF5,0xF6,
 0xF1,0xFD,0xBF,0x56,0xF5,0xDF,0xD4,0xEF,0xA1,0x57,0x6A,0x69,0x30,0xF0,0xAD,
 0x57,0xE2,0x07,0x10,0x74,0xA9,0x26,0x49,0x07,0x3D,0xC9,0x92,0xAF,0xE2,0x0F,
 0x67,0xF8,0xA3,0x16,0xB9,0x45,0x38,0xA8,0x8B,0x07,0xFE,0x0F,0x0C,0xF4,0x9F,
 0x46,0xFE,0xA5,0xD3,0xEB,0x3F,0x97,0xDB,0x0B,0x2A,0xD8,0xFE,0x86,0xFF,0x8E,
 0x1D,0xF8,0xBB,0xE7,0xDF,0x0B,0x90,0xFA,0xFF,0xE6,0x7E,0x8F,0x42,0x7D,0xEF,
 0xD7,0xFB,0x8D,0x00,0xFC,0xFD,0xE6,0xBF,0x7F,0x75,0x7F,0xF7,0xB7,0x3F,0xDB,
 0xDA,0x7D,0xFF,0xE7,0xBF,0x7F,0xFF,0x7F,0xFA,0xFD,0x35,0xEB,0xEE,0xEF,0xFE,
 0xFF,0x3F,0xFC,0xFB,0x7F,0xDE,0x6E,0x3F,0x97,0xB7,0xEF,0xF6,0xFF,0x2F,0x87,
 0xFF,0x7E,0xFC,0xFD,0x3B,0x18,0x7F,0x7D,0xF6,0xFF,0x3F,0xA4,0xEE,0x5B,0xFD,
 0xBE,0xAF,0x0B,0xBA,0xFC,0xBF,0xFD,0xDF,0xAD,0x4E,0xA8,0xFE,0x6F,0xBD,0xFE,
 0xFB,0xFF,0xD7};

--Multipart_Tue_Oct_23_15:33:57_2001-1
Content-Type: text/plain; charset=US-ASCII

-- 
Katsumi Yamaoka <yamaoka@jpl.org>

--Multipart_Tue_Oct_23_15:33:57_2001-1--