Commit 85e42879 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-draft.el (gnus-draft-clear-marks): Revert last change; mark actually...

gnus-draft.el (gnus-draft-clear-marks): Revert last change; mark actually existing articles as unread rather than the ones that active asserts.
parent eda98f58
2011-07-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-draft.el (gnus-draft-clear-marks): Revert last change;
mark actually existing articles as unread rather than the ones that
active asserts.
2011-07-01 Paul Eggert <eggert@cs.ucla.edu>
 
* nntp.el (nntp-record-command):
......
......@@ -325,18 +325,9 @@ If DONT-POP is nil, display the buffer after setting it up."
(error "The draft %s is under edit" file)))))
(defun gnus-draft-clear-marks ()
(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)))
(provide 'gnus-draft)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment