[Improve gnus quitting on emacs exit
clinton@unknownlamer.org**20070525173124
 * Moved gnus-group-exit hook to gnus.el
 * Improved exit hook to only prompt if gnus is still running
] {
hunk ./init.d/gnus.el 5
+
+;; Automatically quit gnus when exiting emacs
+(defun cke-quit-gnus-if-running ()
+  (if (and (get-buffer "newsrc-dribble")
+	   (buffer-modified-p (get-buffer "newsrc-dribble")))
+      (gnus-group-exit)))
+
+(add-hook 'kill-emacs-hook #'cke-quit-gnus-if-running)
+
+(defun start-gnus ()
+  (interactive)
+  (save-selected-frame 
+   (let ((gnus-frame (cke-make-frame)))
+     (select-frame gnus-frame)
+     (gnus))))
hunk ./init.d/misc.el 60
-
-;; Automatically quit gnus when exiting emacs
-(add-hook 'kill-emacs-hook #'gnus-group-exit)
}