* lisp/gnus.el (gnus-revision-number): Increment to 09.

* lisp/gnus-start.el (save-buffers-kill-emacs): Rewrite the advice.
Call `gnus-offer-save-summaries'.

diff --git a/ChangeLog b/ChangeLog
index 17dd8f3..56bfd10 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 1999-02-18  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
 
+       * lisp/gnus.el (gnus-revision-number): Increment to 09.
+
+       * lisp/gnus-start.el (save-buffers-kill-emacs): Rewrite the
+       advice. Call `gnus-offer-save-summaries'.
+
+1999-02-18  Tsukamoto Tetsuo  <czkmt@remus.dti.ne.jp>
+
        * lisp/gnus.el (gnus-revision-number): Increment to 08.
 
        * lisp/gnus-start.el (save-buffers-kill-emacs): Advice. Call

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 6c2575a..9ffeee1 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2304,8 +2304,10 @@ If FORCE is non-nil, the .newsrc file is read."
 ;; Call the function above at C-x C-c.
 (defadvice save-buffers-kill-emacs (before save-gnus-newsrc-file-maybe activate)
   "Save .newsrc and .newsrc.eld when Emacs is killed."
-  (if (get-buffer gnus-group-buffer)
-      (gnus-save-newsrc-file)))
+  (when (get-buffer gnus-group-buffer)
+    (gnus-run-hooks 'gnus-exit-gnus-hook)
+    (gnus-offer-save-summaries)
+    (gnus-save-newsrc-file)))
 
 (defun gnus-gnus-to-quick-newsrc-format ()
   "Insert Gnus variables such as gnus-newsrc-alist in lisp format."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index c6bb131..bd427fa 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.058"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "08"
+(defconst gnus-revision-number "09"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.76"