2ch専用ブラウザ「Navi2ch」

このエントリーをはてなブックマークに追加
308名無しさん@お腹いっぱい。
>>303
これで直るかな?

--- navi2ch-board-misc.el.orig Wed Sep 26 00:36:18 2001
+++ navi2ch-board-misc.el Sat Sep 29 11:22:20 2001
@@ -318,10 +318,11 @@
(id (cdr (assq 'id board)))
(file (format "%s_%s.txt" id (cdr (assq 'artid article))))
(subject (cdr (assq 'subject article))))
- (save-excursion
- (set-buffer buffer)
- (goto-char (point-max))
- (insert (format "<a href=\"%s\">%s</a><br>\n" file subject)))
+ (and buffer
+ (save-excursion
+ (set-buffer buffer)
+ (goto-char (point-max))
+ (insert (format "<a href=\"%s\">%s</a><br>\n" file subject))))
(let ((coding-system-for-write navi2ch-net-coding-system))
(navi2ch-write-region (point-min) (point-max)
(expand-file-name file directory))))