[Date Prev][Date Next][Thread Prev][Thread Next][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>