w3m-time-parse-string with buggy timezone.el

[NAKAGAWA Takayuki <tknakaga@xxxxxxxxxxxxxxxxxxxxxx>]

中川です。怒涛の現実逃避。

;; form は私の手に負えなさそうだということがわかったため、かも。

  buggy な timezone.el（古い APLE/10.2 のが残ってました）がロードされ
た場合に使われる w3m-time-parse-string が error を吐く事があります。
parse-time-string（emacs-20.7/lisp/gnus 付属）が
	"Wednesday, 12-Jan-00 10:17:34 GMT"
  を理解できずに  
	(34 17 10 nil nil nil nil (0) 0 nil)
  を返すため、encode-time が 
	Wrong type argument: integerp, nil
  とお怒りになります。単純に本来の w3m-time-parse-string 同様に全体を
ignore-errors で囲ってしまえば良いようです。キャッシュを常に無視するよ
うになってしまいますが。

;; ちなみに上の日付は w3m homepage の Last-Modified: です。

ではでは。

--
  中川貴之  (株)日立製作所 エンタープライズサーバ事業部 Ｎセ２Ｇ

cd j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010425/
diff -u -a "j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010425/w3m.el.ORG" "j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010425/w3m.el"
--- j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010425/w3m.el.ORG	Tue Apr 24 15:19:42 2001
+++ j:/usr/local/emacs-20.x/site-lisp/emacs-w3m.010425/w3m.el	Thu Apr 26 14:54:46 2001
@@ -775,10 +775,11 @@
     (require 'parse-time))
   (defun w3m-time-parse-string (string)
     "Parse the time-string STRING and return its time as Emacs style."
-    (let ((fn (when (fboundp 'parse-time-string)
-		'parse-time-string)))
-      (when fn
-	(apply (function encode-time) (funcall fn string))))))
+    (ignore-errors
+      (let ((fn (when (fboundp 'parse-time-string)
+		  'parse-time-string)))
+	(when fn
+	  (apply (function encode-time) (funcall fn string)))))))
 
 (defsubst w3m-time-newer-p (a b)
   "Return t, if A is newer than B.  Otherwise return nil.

Diff finished at Thu Apr 26 14:56:40