X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-draft.el;h=aebf11830515cc4acd6f866fd483806b77d57c4e;hp=1709b1c4a0538979946c2e3f73e7a6cf9dc34e49;hb=60545a557b301dbd2dd5b06e2b97773da212179d;hpb=bab3851c01b455c986eec6cda6c7ab8e1d078735

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index 1709b1c4a..aebf11830 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -1,6 +1,6 @@
 ;;; gnus-draft.el --- draft message support for Gnus
 
-;; Copyright (C) 1997-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1997-2015 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -327,8 +327,7 @@ If DONT-POP is nil, display the buffer after setting it up."
 (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))))
+	gnus-newsgroup-unreads (nndraft-articles)))
 
 (provide 'gnus-draft)