- (setq gnus-newsgroup-marked nil
- gnus-newsgroup-unreads (gnus-uncompress-range
- (gnus-active gnus-newsgroup-name)))
- ;; Mark articles except for deleted ones as unread.
- (let (rest)
- (dolist (article gnus-newsgroup-reads)
- (when (and (consp article)
- (eq (cdr article) gnus-canceled-mark))
- (push article rest)
- (setq gnus-newsgroup-unreads
- (delq (car article) gnus-newsgroup-unreads))))
- (setq gnus-newsgroup-reads (nreverse rest))))
+ (setq gnus-newsgroup-reads nil
+ gnus-newsgroup-marked nil
+ gnus-newsgroup-unreads (nndraft-articles)))