From: czkmt <czkmt>
Date: Mon, 6 Dec 1999 12:18:20 +0000 (+0000)
Subject: (save-buffers-kill-emacs): Compile the advice at the compile time. Use
X-Git-Tag: t-gnus-6_14_0-03~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=997c599d2aed1e1415d9d3adc380e0d87a974b8b;p=elisp%2Fgnus.git-

(save-buffers-kill-emacs): Compile the advice at the compile time. Use
`gnus-alive-p'.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index e711c42..b1333c0 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2369,9 +2369,10 @@ If FORCE is non-nil, the .newsrc file is read."
 	(gnus-group-set-mode-line)))))
 
 ;; Call the function above at C-x C-c.
-(defadvice save-buffers-kill-emacs (before save-gnus-newsrc-file-maybe activate)
+(defadvice save-buffers-kill-emacs (before save-gnus-newsrc-file-maybe
+					   activate preactivate)
   "Save .newsrc and .newsrc.eld when Emacs is killed."
-  (when (get-buffer gnus-group-buffer)
+  (when (gnus-alive-p)
     (gnus-run-hooks 'gnus-exit-gnus-hook)
     (gnus-offer-save-summaries)
     (gnus-save-newsrc-file)))