Commit fb81de5f authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-draft.el (gnus-draft-clear-marks): Mark deleted articles as read.

parent 0e61a35f
2011-07-01 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-draft.el (gnus-draft-clear-marks): Mark deleted articles as read.
2011-07-01 Daiki Ueno <ueno@unixuser.org>
* plstore.el (plstore-select-keys, plstore-encrypt-to): New variable.
......
......@@ -325,10 +325,18 @@ 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-reads nil
gnus-newsgroup-marked nil
gnus-newsgroup-unreads
(gnus-uncompress-range (gnus-active gnus-newsgroup-name))))
(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))))
(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