From: yamaoka <yamaoka>
Date: Tue, 30 Nov 1999 01:48:03 +0000 (+0000)
Subject: (save-buffers-kill-emacs): Don't use the macro `when' in the body of
X-Git-Tag: t-gnus-6_13_3-07~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=643fa6d9498e633b540c30c139817e89f893ed5e;p=elisp%2Fgnus.git-

(save-buffers-kill-emacs): Don't use the macro `when' in the body of
`defadvice'.  Use `if' instead.
---

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index ddc14da..2a45823 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -2316,10 +2316,11 @@ 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."
-  (when (get-buffer gnus-group-buffer)
-    (gnus-run-hooks 'gnus-exit-gnus-hook)
-    (gnus-offer-save-summaries)
-    (gnus-save-newsrc-file)))
+  (if (get-buffer gnus-group-buffer)
+      (progn
+	(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."