From 997c599d2aed1e1415d9d3adc380e0d87a974b8b Mon Sep 17 00:00:00 2001 From: czkmt Date: Mon, 6 Dec 1999 12:18:20 +0000 Subject: [PATCH] (save-buffers-kill-emacs): Compile the advice at the compile time. Use `gnus-alive-p'. --- lisp/gnus-start.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4