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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7d1e7ed71986031c0e5c77c77d6cf81a6659de35..9bb234a1189d83e49b30edce6750773716e02bdd 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,9 @@
+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):

diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el
index a2a4cd3e07d5e861029b561ed44b1c9b9482ad42..40f5abda4f81a976b6a9734bafea3732019c1ce7 100644 (file)
--- 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)