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

Re: nnshimbun-keep-backlog



>> On Wed, 26 Feb 2003 09:44:21 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

山> うーん、ぼくも defvoo にはそういう意図を感じたんですが、誰かが明ら
山> かな必要性を提示するまでは、放っておきませんか。

了解です.

山> ときどき backlog の存在を思い出すのはこんなとき: 記事を読もうとし
山> たがなかなかサーバーが反応しないので C-g で切ってしまった - しばら
山> く後でその記事を読もうとしても画面は真っ白...。

あてずっぽうですが,添付のパッチでどうでしょう?

-- 
土屋 雅稔 ( TSUCHIYA Masatoshi )

--- shimbun.el	4 Feb 2003 11:58:40 -0000	1.59
+++ shimbun.el	26 Feb 2003 01:04:47 -0000
@@ -472,11 +472,11 @@
     (with-current-buffer (or outbuf (current-buffer))
       (w3m-insert-string
        (or (with-temp-buffer
-	     (shimbun-retrieve-url (shimbun-article-url shimbun header))
-	     (message "shimbun: Make contents...")
-	     (goto-char (point-min))
-	     (prog1 (shimbun-make-contents shimbun header)
-	       (message "shimbun: Make contents...done")))
+	     (when (shimbun-retrieve-url (shimbun-article-url shimbun header))
+	       (message "shimbun: Make contents...")
+	       (goto-char (point-min))
+	       (prog1 (shimbun-make-contents shimbun header)
+		 (message "shimbun: Make contents...done"))))
 	   "")))))
 
 (luna-define-generic shimbun-make-contents (shimbun header)