(gnus-draft-clear-marks): New function to be run as an exit hook to nix out all data...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdf7d87..5f7e090 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-01-27  Lars Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-draft.el (gnus-draft-clear-marks): New function to be run as an
+       exit hook to nix out all data on readedness on group exit.
+
        * gnus-util.el (float-time): If float-time is bound, always use it on
        all Emacsen.  It's unclear why the subrp check was there.
        (time-date): Require to make some autoload issues on XEmacs go away.

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index e1a90fc..78ef713 100644 (file)
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -68,7 +68,8 @@
    (gnus-draft-mode
     ;; Set up the menu.
     (when (gnus-visual-p 'draft-menu 'menu)
-      (gnus-draft-make-menu-bar)))))
+      (gnus-draft-make-menu-bar))
+    (add-hook 'gnus-summary-prepare-exit-hook 'gnus-draft-clear-marks t t))))
 
 ;;; Commands
 
@@ -325,6 +326,12 @@ Obeys the standard process/prefix convention."
            (pop-to-buffer buff t)))
        (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))))
+
 (provide 'gnus-draft)
 
 ;;; gnus-draft.el ends here