From: czkmt <czkmt>
Date: Thu, 18 Feb 1999 22:01:30 +0000 (+0000)
Subject: * lisp/gnus.el (gnus-revision-number): Increment to 09.
X-Git-Tag: t-gnus-6_10_058-09
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=57cb5cb4b5a8f8870394f7ce0b11d14dfb1583be;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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
--- 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"