summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-01-17 00:22:11 +0000
committerRichard M. Stallman <rms@gnu.org>1996-01-17 00:22:11 +0000
commit4e1a4c5508b599c56bf457b602dd7c506432f494 (patch)
treee902b71d109434255ec2216c7a9582db06abb9fb
parent60e0aaf0bedcf9d988bcf30745b669766f5ad652 (diff)
downloademacs-4e1a4c5508b599c56bf457b602dd7c506432f494.tar.gz
(nnkiboze-close-group): Should only be run from summary buffers.
-rw-r--r--lisp/nnkiboze.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/nnkiboze.el b/lisp/nnkiboze.el
index 8b2fc894da5..4260e5fc46f 100644
--- a/lisp/nnkiboze.el
+++ b/lisp/nnkiboze.el
@@ -147,7 +147,8 @@ 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.
- (if (not (file-exists-p (nnkiboze-nov-file-name)))
+ (if (or (not (file-exists-p (nnkiboze-nov-file-name)))
+ (not (eq major-mode 'gnus-summary-mode)))
()
(save-excursion
(let ((unreads gnus-newsgroup-unreads)