quit emms and gnus when exiting emacs

 

remove real player stuf

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

Change367 at Mon Aug 30 22:10:38 2010 +0200 by Ivan Kanis <ivan@tao>

diff -r 8292298aaea5 -r 16566bcba881 lisp/emacs.d/ivan-fun.el
--- a/lisp/emacs.d/ivan-fun.el	Sun Aug 29 18:36:44 2010 +0200
+++ b/lisp/emacs.d/ivan-fun.el	Mon Aug 30 22:10:38 2010 +0200
@@ -3,17 +3,17 @@
 (require 'ivan-keymap)
 
 (eval-when-compile
+  (require 'ivan-load)
+  (require 'ivan-var)
+  (require 'browse-url)
   (require 'comint)
-  (require 'browse-url)
-  (require 'ivan-var)
+  (require 'emms)
+  (require 'dframe)
+  (require 'gnus-group)
+  (require 'ispell)
   (require 'make-mode)
-  (require 'dframe)
-  (require 'emms)
+  (require 'remember)
   (require 'time-stamp)
-  (require 'ispell)
-  (require 'ivan-load)
-  (require 'remember)
-  (require 'realplay)
   ;; pacify compiler
   (defun x-send-client-message(a b c d e f))
   (defun w32-shell-execute (a b c d))
@@ -98,13 +98,15 @@
          (browse-url-firefox url))))
 
 (defun ivan-fun-kill-emacs (&optional arg)
-  "Quit emacs, kill all processes silently"
+  "Quit emacs, kill all processes silently, close gnus"
   (interactive "P")
+  (emms-stop)
   (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 ()
@@ -128,11 +130,6 @@
   "non nil when using emms"
   (fboundp 'emms-playlist-mode-go))
 
-(defun ivan-fun-play-realplay-p ()
-  "non-nil when using realplay"
-  (and (boundp 'realplay-process-buffer)
-       (get-buffer realplay-process-buffer)))
-
 (defun ivan-fun-spell (language &optional type)
   "Spell check current buffe with LANGUAGE. Specify TYPE of spell check
 Skip headers if the buffer is a message"

back