bullet proof stopping gnus and emms when exiting emacs

 

File modified: lisp/emacs.d/ivan-fun.el

Change369 at Tue Aug 31 07:33:38 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 7dfad119a309 -r 12378d88df05 lisp/emacs.d/ivan-fun.el
--- a/lisp/emacs.d/ivan-fun.el	Mon Aug 30 22:10:50 2010 +0200
+++ b/lisp/emacs.d/ivan-fun.el	Tue Aug 31 07:33:38 2010 +0200
@@ -100,13 +100,15 @@
 (defun ivan-fun-kill-emacs (&optional arg)
   "Quit emacs, kill all processes silently, close gnus"
   (interactive "P")
-  (emms-stop)
+  (if (fboundp 'emms-stop)
+      (emms-stop))
+  (if (fboundp 'gnus-group-exit)
+      (gnus-group-exit))
   (and (fboundp 'process-list)
        (let ((processes (process-list)))
          (while processes
            (delete-process (car processes))
            (setq processes (cdr processes)))))
-  (gnus-group-exit)
   (save-buffers-kill-emacs))
 
 (defun ivan-fun-make-frame ()

back