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

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

  Weather $B$O(B Web$B>e$+$iE75$M=Js$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
==========

  Weather $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 'weather-from-http "weather" "Weather" t)
  (autoload 'weather-insert-header "weather" "Weather" t)

  M-x weather-from-http
  $B$r<B9T$7$F!"E75$$,<hF@$G$-$l$P@.8y$G$9!#(B
  weather-where$B$r@_Dj$7$F$$$J$1$l$P!"BPOCE*$KCOL>$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 `weather-proxy-server' $B$r;XDj$9$k(B
  $BI,MW$,$"$k$+$b$7$l$^$;$s!#(B

  C-u M-x weather-from-http
  $B$H<B9T$9$k$H!"6/@)E*$KCOL>$r;XDj$G$-$^$9!#(B
  $B$I$N$h$&$JCOL>$r;XDj$9$l$P$h$$$+$O!"(B
  http://www.imoc.co.jp/week.htm
  $B$r;2>H$7$F$/$@$5$$!#(B

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

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

  (add-hook 'wl-mail-setup-hook
	    '(lambda ()
	       (weather-insert-header "$B5~ETI\FnIt(B")))

  $B0J2<$N$h$&$K!"(B"$B5~ETI\FnIt(B"$B$NItJ,$r>JN,$9$k$H!"(Bweather-where $B$NCM$,;H$o$l$^$9!#(B

  (add-hook 'wl-mail-setup-hook 'weather-insert-header)

  $B$^$?!"(Bweather-insert-header weather-from-http$B$KM?$($kCOL>$K$O!"(B
  list $B$rM?$($k$3$H$,$G$-$^$9!#0J2<$NNc$G$O!"(B"$B5~ETI\FnIt(B" $B$NE75$<hF@$K(B
  $B<:GT$7$?$i!"(B"$B5~ETI\(B" $B$NE75$<hF@$r;n$_$^$9!#(B

  (add-hook 'wl-mail-setup-hook
	    '(lambda ()
	       (weather-insert-header '("$B5~ETI\FnIt(B" "$B5~ETI\(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-Weather" . (weather-from-http "$B5~ETI\FnIt(B"))))

  $BCm0U(B: $B0lEY(B Web $B$+$i<hF@$7$?7k2L$O!"(Bweather-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
	$BKhF|(B 11:00, 17:00 $B$r2a$.$k$H?7$?$K<hF@$7$^$9!#(B

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

  weather-replace-header
	$B;H$$J}$O(B weather-insert-header$B$H$[$\F1$8$G$9$,!"(B
	interactive$B$K<B9T$9$k$3$H$G!"E75$$r<hF@$9$k>l=j$rJQ99$G$-$^$9!#(B
	X-Weather $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)
  weather-insert-header $B$^$?$O(B weather-from-http $B$NBh(B2$B0z?t$K(B Non-nil $B$r(B
  $B;XDj$9$k$H!"(Bweather-cache $B$+$i$N$_E75$$r<hF@$7$^$9!#(B

  ;; $B%*%s%i%$%s$K$J$C$?=V4V$K!"E75$$r%-%c%C%7%e$7$F$*$/!#(B(Wanderlust$BMQ(B)
  (add-hook 'wl-plugged-hook
	    '(lambda () (and wl-plugged (weather-from-http "$B5~ETI\FnIt(B"))))

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

  (setq wl-draft-config-alist
      '("^Newsgroups: "
	 ("X-Weather" . (weather-from-http '("$B5~ETI\FnIt(B" "$B5~ETI\(B") t))))
  

  $B>e5-$N@_Dj$G!"(BX-Weather$B$,A^F~$5$l$J$$>l9g$O!"%*%s%i%$%s;~$K(B
  M-t M-t $B$H2!$9$+!"(Bweather-from-http $B$r<jF0$G<B9T$7$F!"(B
  $BE75$$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 ()
  	       (weather-insert-header "$B5~ETI\FnIt(B" (null wl-plugged))))


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

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

  weather-where
	`weather-from-http'$B$N8F$S=P$7$G!"0z?t$r>JN,$7$?>l9g$NCM$G$9!#(B
	$B$I$N$h$&$JCOL>$r;XDj$9$l$P$h$$$+$O!"(B
	http://www.imoc.co.jp/week.htm
	$B$r;2>H$7$F$/$@$5$$!#(B

  weather-replace
	$BE75$M=Js5-9f$r;H$($k4D6-$G$O!"(BWeb$B$+$i<hF@$7$?7k2L$rE75$M=Js5-9f$G(B
	$BCV49$7$^$9!#(B
	$BCV49$7$?$/$J$$>l9g$O0J2<$N$h$&$K$7$F$/$@$5$$!#(B
	(setq weather-replace nil)

  weather-template
	$B>pJs$N<hF@85$G$9!#DL>o!"(B`weather-template-alist' $B$K$h$j(B
	$BCOL>$+$iN`?d$5$l$^$9$,!"$=$l$,<:GT$9$k$h$&>l9g$O!"(B
	`weather-template' $B$r;XDj$7$F$/$@$5$$!#(B
	$BDL>o$O@_Dj$9$kI,MW$O$"$j$^$;$s!#(B
	(setq weather-template "/week/week_2.htm")

  weather-server
	$BE75$M=Js<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`weather-template-alist' `weather-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

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

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

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

  weather-timeout
	$BE75$M=Js<hF@;~$N(B timeout $B$G$9!#(B
	$B=i4|@_Dj$O(B 10 $BIC$G$9!#(B

  weather-message-1
  weather-message-1a
  weather-message-2
  weather-message-3	
	`weather-from-http'$B$,@8@.$9$k%a%C%;!<%8MQ!#(B
	`weather-message-1' <$BCOL>(B> `weather-message-2' <$BE75$(B> `weather-message-3'
	$B$H$$$&7A<0$G=PNO$7$^$9!#(B
	$B8aA0(B11$B;~$^$G$O(B weather-message-1$B$NBe$j$K(Bweather-message-1a$B$r;H$$$^$9!#(B
	$B=i4|CM$O!"(B
	(setq weather-message-1 "$BL@F|$N(B")
	(setq weather-message-1a "$B:#F|$N(B")
	(setq weather-message-2 "$B$O(B")
	(setq weather-message-3 "$B$G$9(B")
	$B$G$9!#(B
  weather-message-where
        $BI=<($5$l$kCOL>$r6/@)E*$KCV49$7$^$9!#(B
	(setq weather-message-where "$B5~ET;T:85~6h(B")

  weather-insert-user-agent
        Non-nil$B$K@_Dj$9$k$H!"E75$<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 weather-version $B$G3NG'$G$-$^$9!#(B

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

  weather-sleep-time
        Web$B$+$iE75$M=Js$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!"(Bweather-sleep-time$BICJ]N1$5$l$^$9!#(B

  weather-allow-old
	Non-nil$B$K@_Dj$9$k$H!"(BWeb$B$+$i<hF@$7$?%G!<%?$,8E$$>l9g!":G?7$N$b$N$G(B
	$BBeMQ$7$^$9!#(B

  weather-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

$B<U<-(B
====

  Web$B>e$NE75$M=Js$N:FMxMQ$K$D$$$F!"Ds6!85$N9q:]5$>]3$MN3t<02q<R(B $B$5$s$K(B
  $BLd$$9g$;$?$H$3$m!"8D?ME*$JMxMQ$J$iLdBj$J$$$H$N$3$H$G$9!#(B
  $B42Bg$J=hCV$K46<U$7$^$9!#(B

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