[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: sb-zdnet エラー



>>>>> In [emacs-w3m : No.05952]
>>>>>	SUGITA Toshinori <sugita@d-pad.co.jp> wrote:

> トレースを出そうと思ってもう一度やってみたら、すんなり次に行ってしまっ
> たのでフォルダの中身をキャッシュも含めて全部消して、もう一度やり直し
> てみたらそれ以前に出ていたエラーも取ってこれました。

[...]

> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>   string-match("\\`text/" nil)
[...]
>   shimbun-make-contents([shimbun-zdnet [0 0 0 0 0 0 0] [shimbun-mew-mua...

画像の先行取得で、存在するはずのデータがネットワーク障害などの理
由で取り込めないことがあるんでしょうかねえ。ぼくはまだ経験してい
ませんが、shimbun.el を以下のように改造する必要がある気がします。

パッチの説明:
shimbun-mime-retrieve-images() が ((nil FOO BAR)) のようなものを
返す場合以外に、string-match("\\`text/" nil) が起きる理由が見当
たらないから。

--8<---------------cut here---------------start------------->8---
--- shimbun.el~	2003-10-15 21:55:32 +0000
+++ shimbun.el	2003-10-16 10:44:20 +0000
@@ -424,13 +424,17 @@
 
 (defun shimbun-mime-retrieve-images (images)
   "Returns a list of contents for an alist of IMAGES."
-  (mapcar (lambda (pair)
-	    (with-temp-buffer
-	      (set-buffer-multibyte nil)
-	      (list (shimbun-retrieve-url (car pair) nil t)
-		    (cdr pair)
-		    (buffer-string))))
-	  images))
+  (let (data)
+    (delq nil
+	  (mapcar
+	   (lambda (pair)
+	     (with-temp-buffer
+	       (set-buffer-multibyte nil)
+	       (when (setq data (shimbun-retrieve-url (car pair) nil t))
+		 (list data
+		       (cdr pair)
+		       (buffer-string)))))
+	   images))))
 
 (defun shimbun-make-mime-article (shimbun header)
   "Make a MIME article according to SHIMBUN and HEADER.
--8<---------------cut here---------------end--------------->8---
-- 
Katsumi Yamaoka <yamaoka@jpl.org>