[Fortune $B<h$j07$$@bL@=q(B]

Fortune $B$H$O(B?
=============

  Fortune $B$O(B Web$B>e$+$i@j$$$r<hF@$7!"I,MW$J>pJs$rFI$_=P$9$?$a$N(B
  $B%W%m%0%i%`$G$9!#%a!<%k$d%K%e!<%9$N%X%C%@$KIU2C$9$k$3$H$rA[Dj$7$F$$$^$9!#(B

  $B0l<!G[I[85$O!"(B

      ftp://ftp.opaopa.org/pub/elisp/

  $B$G$9!#(B

  RING$B%5!<%P$J$I$G$b%_%i!<$5$l$F$$$^$9!#(B

  ftp://ftp.ring.gr.jp/pub/text/elisp/jaist/ftp.opaopa.org/elisp/
  ftp://ftp.jaist.ac.jp/pub/GNU/elisp/ftp.opaopa.org/elisp/


$BI,MW$J4D6-(B
==========

  Fortune $B$O(B XEmacs 20.2 $B0J9_$H(B Emacs 19.34 $B0J9_$r%5%]!<%H$7$^$9!#(B
  APEL (*) $B$,I,MW$J$N$G!";vA0$K%$%s%9%H!<%k$7$F$*$$$F$/$@$5$$!#(B

  (*) ftp://ftp.m17n.org/pub/mule/apel/
      ftp://ftp.opaopa.org/pub/mirror/elisp/apel/


$B%$%s%9%H!<%k(B
============

  make $B%3%^%s%I$K$h$j!"%P%$%H%3%s%Q%$%k$7$F!"(Bload-path $B$NDL$C$?(B
  $B%G%#%l%/%H%j$K%3%T!<$7$F$/$@$5$$!"(B


$B2<=`Hw(B
======

  $B0J2<$N$b$N$r(B .emacs $B$KF~$l$F2<$5$$!#(B

  (autoload 'fortune-from-http "fortune" "Fortune" t)
  (autoload 'fortune-insert-header "fortune" "Fortune" t)

  M-x fortune-from-http
  $B$r<B9T$7$F!"@j$$$,<hF@$G$-$l$P@.8y$G$9!#(B
  fortune-seiza$B$r@_Dj$7$F$$$J$1$l$P!"BPOCE*$K@1:B$rJ9$$$F$-$^$9!#(B
  $B%5!<%P$N>u67$K$h$j(Btimeout$B$9$k>l9g$O!"$7$P$i$/BT$C$F$+$i<B9T$7$F$_$F$/$@$5$$!#(B
  $B$=$l$G$b$?$a$J>l9g$O!"8e=R$N(B `fortune-proxy-server' $B$r;XDj$9$k(B
  $BI,MW$,$"$k$+$b$7$l$^$;$s!#(B

  C-u M-x fortune-from-http
  $B$H<B9T$9$k$H!"6/@)E*$K@1:B$r;XDj$G$-$^$9!#(B
  $B;XDj$G$-$k@1:B$O!$(B
  "$B$*$R$D$8:B(B" "$B$*$&$7:B(B" "$B$U$?$4:B(B" "$B$+$K:B(B"
  "$B$7$7:B(B" "$B$*$H$a:B(B" "$B$F$s$S$s:B(B" "$B$5$=$j:B(B"
  "$B$$$F:B(B" "$B$d$.:B(B" "$B$_$:$,$a:B(B" "$B$&$*:B(B"
  $B$G$9!%4A;z$O;H$($^$;$s!%(B

$B;H$$J}(B
======

  $BAw?.$9$k%a%C%;!<%8$K(B X-Fortune $B%U%#!<%k%I$r<+F0IU2C$9$k$K$O!"Nc$($P<!$N(B
  $B$h$&$K$7$F2<$5$$!#(B

  (setq fortune-seiza "$B$*$&$7:B(B")
  (add-hook 'wl-mail-setup-hook 'fortune-insert-header)

  $B0J2<$N$h$&$K!"@1:B$rD>@\;XDj$9$k$3$H$b$G$-$^$9!%(B

  (add-hook 'wl-mail-setup-hook
	    '(lambda ()
	       (fortune-insert-header "$B$&$*:B(B")))

  Wanderlust $B0J30$G$O(B wl-mail-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
	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$^$?!"(BWanderlust $B$G$O!"(Bwl-draft-config-alist $B$d(B wl-template-alist $B$r(B
  $B;H$&$3$H$G!"J#;($J@_Dj$b2DG=$G$9!#(B

  (setq wl-draft-config-alist
      '("^Newsgroups: "
	 ("X-Fortune" . (fortune-from-http "$B$_$:$,$a:B(B"))))

  $BCm0U(B: $B0lEY(B Web $B$+$i<hF@$7$?7k2L$O!"(Bfortune-cache $B$H$$$&JQ?t$K(B
	$BJ]B8$5$l$^$9!#(BEmacs $B$r5/F0$7$F$$$k4V$OJ]B8$5$l$^$9!%(B

$B%a%C%;!<%8$NJQ99(B
================
   $B%G%U%)%k%H$G$ONx0&1?$r=PNO$7$^$9$,!$(B`fortune-format' $B$rJQ99$9$k$3$H$G!$(B
   $B@j$$$N<oN`$d%a%C%;!<%8$N7A<0$rJQ99$9$k$3$H$,$G$-$^$9!%(B
   
   $B%G%U%)%k%H@_DjNc(B
   (setq fortune-format '("$B:#F|$N(B" seiza "$B$O(B" ("$BNx0&1?(B")))

   `fortune-format'$B$O%j%9%H9=B$$K$J$C$F$*$j!$0J2<$NFC<l5-9f$r(B
   $B;XDj$9$k$H!$@j$$$J$I$HCV49$5$l$^$9!%(B

   ("$BNx0&1?(B") ("$B6bA,1?(B") ("$B;E;v1?(B") ("$BAm9g1?(B")
   ("$BNx0&1?(B" . 2) ("$B6bA,1?(B" . 2) ("$B;E;v1?(B" . 2) ("$BAm9g1?(B" . 2)
   ("$B%i%C%-!<%+%i!<(B") ("$B%i%C%-!<%J%s%P!<(B") ("$B%i%C%-!<J}0L(B")
   seiza year month day

   ("**$B1?(B" . 2)$B$H$$$&$N$O!$=g0L$HCV49$5$l$^$9!%(B      
   $BAm9g1?$N%3%a%s%H$OD9$$$N$G!$%X%C%@$KA^F~$9$k$K$OE,$7$F$$$^$;$s!%(B
   seiza$B$O@j$C$?@1:B!$(Byear$B!$(Bmonth$B!$(Bday$B$O$=$l$>$lG/7nF|$HCV49$5$l$^$9!%(B

   $B@_DjNc(B
   (setq fortune-format '("$B:#F|$N(B" seiza "$B$O(B" ("$B;E;v1?(B")))
   (setq fortune-format '("$B:#F|$N(B" seiza "$B$N%i%C%-!<%+%i!<$O(B" ("$B%i%C%-!<%+%i!<(B") "$B$G$9!%(B"))
   (setq fortune-format '(month "$B7n(B" day "$BF|$N(B" seiza "$B$N1?@*$O(B" ("$BAm9g1?(B" . 2) "$B$G$9!%(B"))
   (setq fortune-format '("$B:#F|$N(B" seiza "$B$N%i%C%-!<%+%i!<$O(B" ("$B%i%C%-!<%+%i!<(B") "$B$G$9!%(B"))


$B$=$NB>$N;H$$J}(B
==============

  fortune-replace-header
	$B;H$$J}$O(B fortune-insert-header$B$H$[$\F1$8$G$9$,!"(B
	interactive$B$K<B9T$9$k$3$H$G!"@j$$$r<hF@$9$k>l=j$rJQ99$G$-$^$9!#(B
	X-Fortune $B%X%C%@$,4{$K$"$k>l9g$O!">e=q$-$7$^$9!#(B

$B%*%U%i%$%s(B
==========

  $B%*%U%i%$%s@_Dj$NNc$G$9!#(B(Wanderlust$B0MB8(B)
  fortune-insert-header $B$^$?$O(B fortune-from-http $B$NBh(B2$B0z?t$K(B Non-nil $B$r(B
  $B;XDj$9$k$H!"(Bfortune-cache $B$+$i$N$_@j$$$r<hF@$7$^$9!#(B

  ;; $B%*%s%i%$%s$K$J$C$?=V4V$K!"@j$$$r%-%c%C%7%e$7$F$*$/!#(B(Wanderlust$BMQ(B)
  (add-hook 'wl-plugged-hook
	    '(lambda () (and wl-plugged (fortune-from-http "$B$$$F:B(B"))))

  ;; $B@j$$$NA^F~(B  
  (add-hook 'wl-mail-setup-hook
  	    '(lambda ()
  	       (fortune-insert-header "$B$$$F:B(B" t)))
  ;; or
  ;; wl-draft-config-alist $B$+$i@_Dj$9$k>l9g(B
  (setq wl-draft-config-alist
      '("^Newsgroups: "
	 ("X-Fortune" . (fortune-from-http "$B$$$F:B(B" t))))

  $B>e5-$N@_Dj$G!"(BX-Fortune$B$,A^F~$5$l$J$$>l9g$O!"%*%s%i%$%s;~$K(B
  M-t M-t $B$H2!$9$+!"(Bfortune-from-http $B$r<jF0$G<B9T$7$F!"(B
  $B@j$$$r%-%c%C%7%e$7$F$*$$$F$/$@$5$$!#(B
  $B$=$l$,LLE]$J>l9g$O0J2<$N$h$&$K@_Dj$7$F$/$@$5$$!#(B
  (add-hook 'wl-mail-setup-hook
    	    '(lambda ()
  	       (fortune-insert-header "$B$$$F:B(B" (null wl-plugged))))


$B%+%9%?%^%$%:(B
============

  $B0J2<$NJQ?t$rJQ99$9$k$3$H$G!"%+%9%?%^%$%:$9$k$3$H$,$G$-$^$9!#(B

  fortune-format
        `fortune-from-http'$B$d(B'fortune-insert-header'$B$,@8@.$9$k(B
        $B%a%C%;!<%8$N%U%)!<%^%C%H$G$9!%>\$7$/$O!$(B`$B%a%C%;!<%8$NJQ99(B'$B$N(B
        $B9`$r8+$F$/$@$5$$!%(B

  fortune-seiza
	`fortune-from-http'$B$N8F$S=P$7$G!"0z?t$r>JN,$7$?>l9g$N@1:B$G$9!#(B

  fortune-server
	$B@j$$<hF@85$N%5!<%PL>$G$9!#DL>o$OJQ99$9$kI,MW$O$J$$$G$9!#(B
	$B$b$7JQ99$7$?>l9g$O!"(B`fortune-template-alist' `fortune-template'
	$B$J$I$NJQ99$bI,MW$H$J$j$^$9!#$5$i$K!"B?$/$N>l9g$O!"(B
	$BK\BN$N%Q!<%5$b2~B$$9$kI,MW$,$"$k$G$7$g$&!#(B

  fortune-port
	$B%5!<%P$N(Bhttp$B%]!<%HHV9f$G$9!#(B

  fortune-proxy-server
	$BD>@\30It$N(BHTTP$B$K$D$J$2$J$$>l9g$K@_Dj$7$^$9!#(B
	`fortune-proxy-port' $B$b@_Dj$9$kI,MW$,$"$j$^$9!#(B

  fortune-proxy-port
	$BF1$8$/%W%m%-%7%5!<%P$N%]!<%HHV9f$G$9!#(B

  fortune-timeout
	$B@j$$<hF@;~$N(B timeout $B$G$9!#(B
	$B=i4|@_Dj$O(B 120 $BIC$G$9!#(B

  fortune-insert-user-agent
        Non-nil$B$K@_Dj$9$k$H!"@j$$<hF@$N:]$K(B User-Agent $B$rL>>h$j$^$9!#(B
        $B$I$N$h$&$J(B User-Agent $B$rL>>h$k$+$O!"(BM-x fortune-version $B$G3NG'$G$-$^$9!#(B

  fortune-fetch-confirm
        Non-nil$B$K@_Dj$9$k$H!"%-%e%C%7%e$K@j$$$,$J$/(BWeb$B$+$i<hF@$9$k:]$K(B
        $B3NG'$r5a$a$^$9!#(B

  fortune-sleep-time
        Web$B$+$i@j$$$r<hF@$9$k:]$K@\B3$K<:GT!"$^$?$O!"(BC-g $B$K$h$j(B
        $B@ZCG$7$?>l9g!"<!2s$N@\B3$rJ]N1$9$k$+$I$&$+J9$-$^$9!#(B
        yes$B$N>l9g$O!"(Bfortune-sleep-time$BICJ]N1$5$l$^$9!#(B

  fortune-ignore-error
        Non-nil$B$K@_Dj$9$k$H!"(BWeb$B$+$i<hF@$7$?%G!<%?$,8E$$>l9g!"%(%i!<$r(B
	$B=P$5$:$K!"$J$K$b$7$^$;$s!#(B

--
$B2,ED(B $B7r0l(B <okada@opaopa.org>
