Re: weather.el

[Mitsugu SAKAMOTO <mitsugu@argv.org>]

$B:dK\$G$9!#(B

At Mon, 07 May 2001 23:58:01 +0900,
Reiko TAKAHASHI <HFC03614@...> ($B9b66Nh;R(B) wrote:

> weather
> Cannot get valid information.
> Sleep 1800 seconds? y/n
> 
> $B$H8@$C$F$$$k$h$&$KJ9$3$($^$9!J2;@<$@$1$J$N$G!"$9$4$/IT@53N$+$b$7$l$^$;$s!K(B
> 
> 
> $B$=$l$G!"Nc$K$h$C$F(BMew$B$G(Bdraft with citation$B$r:n$m$&$H$7$?>l9g$NOC$J$N$G$9(B

[...]

$B$^$C$?$/F1$8F0$-$K$J$j$^$7$?!#(B

$B$G!"(BA$B$7$?$H$-$N(B*backtrace*$B$rAw?.$7$F$*$-$^$9!#(B

;;;$B$*$+$@$5$s!"K\Mh$O(Belips$B$J>l=j$G$NOC$J$N$K$9$_$^$;$s!#(Belips$BF~$C$F$J$$(B
   $B$b$N$G!#(B
Signaling: (error "Weather: Connection sleeping")

  ad-Orig-signal(error ("Weather: Connection sleeping"))

  signal(error ("Weather: Connection sleeping"))

  ad-Orig-error("Weather: Connection sleeping")

  apply(ad-Orig-error "Weather: Connection sleeping")

  error("Weather: Connection sleeping")

  weather-sleep("Cannot get valid information.")

  byte-code("Ælj‰\f‰@‰ƒ&È\nÆ\"‰ƒÉÊ\"ˆ	A‰‚
ƒ/ÉÊÇ\"ˆƒJË ‰@ÌÍ!_A@\\)Wƒg\f‰@‰ƒlÈ\n!‰ƒ`ÉÊ\"ˆ	A‰‚MÉÊÇ\"ˆ,?…uÎÏ!‡" [ret wlist where weather-ignore-error where-list offline t nil weather-from-http throw done current-time float 65536 weather-sleep "Cannot get valid information." curtime] 6)

  weather-from-http-list(nil nil)

  weather-from-http(nil nil)

  weather-insert-header()

  (lambda nil (weather-insert-header))()

  run-hooks(text-mode-hook mew-draft-mode-hook)

  mew-draft-mode(nil)

  ad-Orig-mew-summary-reply(nil)

  (setq ad-return-value (ad-Orig-mew-summary-reply onlytofrom))

  (let (ad-return-value) (setq ad-return-value (ad-Orig-mew-summary-reply onlytofrom)) (dtk-set-punctuations-to-all) (dtk-speak "draft is prepared") ad-return-value)

  mew-summary-reply(nil)

  ad-Orig-mew-summary-reply-with-citation(nil)

  (setq ad-return-value (ad-Orig-mew-summary-reply-with-citation onlytofrom))

  (let (ad-return-value) (setq ad-return-value (ad-Orig-mew-summary-reply-with-citation onlytofrom)) (dtk-set-punctuations-to-all) (dtk-speak "draft with citation is prepared") ad-return-value)

  mew-summary-reply-with-citation(nil)

* call-interactively(mew-summary-reply-with-citation)