*** empty log message ***

[gnus] / lisp / nnkiboze.el

diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el
index 2ef2744..7e18d64 100644 (file)
--- a/lisp/nnkiboze.el
+++ b/lisp/nnkiboze.el
@@ -145,25 +145,27 @@ If the stream is opened, return T, otherwise return NIL."
 (defun nnkiboze-close-group (group &optional server)
   (nnkiboze-possibly-change-newsgroups group)
   ;; Remove NOV lines of articles that are marked as read.
-  (save-excursion
-    (let ((unreads gnus-newsgroup-unreads)
-         (unselected gnus-newsgroup-unselected))
-      (set-buffer (get-buffer-create "*nnkiboze work*"))
-      (buffer-disable-undo (current-buffer))
-      (erase-buffer)
-      (let ((cur (current-buffer))
-           article)
-       (insert-file-contents (nnkiboze-nov-file-name))
-       (goto-char (point-min))
-       (while (looking-at "[0-9]+")
-         (if (or (memq (setq article (read cur)) unreads)
-                 (memq article unselected))
-             (forward-line 1)
-           (delete-region (progn (beginning-of-line) (point))
-                          (progn (forward-line 1) (point)))))
-       (write-file (nnkiboze-nov-file-name))
-       (kill-buffer (current-buffer)))))
-  (setq nnkiboze-current-group nil))
+  (if (not (file-exists-p (nnkiboze-nov-file-name)))
+      ()
+    (save-excursion
+      (let ((unreads gnus-newsgroup-unreads)
+           (unselected gnus-newsgroup-unselected))
+       (set-buffer (get-buffer-create "*nnkiboze work*"))
+       (buffer-disable-undo (current-buffer))
+       (erase-buffer)
+       (let ((cur (current-buffer))
+             article)
+         (insert-file-contents (nnkiboze-nov-file-name))
+         (goto-char (point-min))
+         (while (looking-at "[0-9]+")
+           (if (or (memq (setq article (read cur)) unreads)
+                   (memq article unselected))
+               (forward-line 1)
+             (delete-region (progn (beginning-of-line) (point))
+                            (progn (forward-line 1) (point)))))
+         (write-file (nnkiboze-nov-file-name))
+         (kill-buffer (current-buffer)))))
+    (setq nnkiboze-current-group nil)))
 
 (defun nnkiboze-request-list (&optional server) 
   (setq nnkiboze-status-string "nnkiboze: LIST is not implemented.")