diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-07-01 07:29:00 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-07-01 07:29:00 +0000 |
| commit | 85e428791ed26d2094d13a74b0e578e624885d92 (patch) | |
| tree | 191a38787f2574f55146b31261d44d1aa6a790d0 /lisp/gnus/gnus-draft.el | |
| parent | eda98f58e9c81cabb4e869d1bd8b46463c2d1940 (diff) | |
| download | emacs-85e428791ed26d2094d13a74b0e578e624885d92.tar.gz | |
gnus-draft.el (gnus-draft-clear-marks): Revert last change; mark actually existing articles as unread rather than the ones that active asserts.
Diffstat (limited to 'lisp/gnus/gnus-draft.el')
| -rw-r--r-- | lisp/gnus/gnus-draft.el | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el index a2a4cd3e07d..40f5abda4f8 100644 --- a/lisp/gnus/gnus-draft.el +++ b/lisp/gnus/gnus-draft.el @@ -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) |