[gnus git] branch master updated: n0-17-127-g9016000 =1= gnus-draft.el (gnus-draft-clear-marks): Revert last change; mark actually existing articles as unread rather than the ones that active asserts.

       via  9016000ed04df0c8ca8694f63f1973bd0311fcac (commit)
      from  7be3fb62838ee5fcf8e692760b69640fcbb54a72 (commit)


- Log -----------------------------------------------------------------
commit 9016000ed04df0c8ca8694f63f1973bd0311fcac
Author: Katsumi Yamaoka <[email protected]>
Date:   Fri Jul 1 07:28:26 2011 +0000

    gnus-draft.el (gnus-draft-clear-marks): Revert last change; mark actually existing articles as unread rather than the ones that active asserts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c629be..8580c0e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-07-01  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* nntp.el (nntp-record-command):
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index a2a4cd3..40f5abd 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/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)
 

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |    6 ++++++
 lisp/gnus-draft.el |   15 +++------------
 2 files changed, 9 insertions(+), 12 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project