(setq gnus-home-directory (cke-personal-file "gnus/"))

(require 'gnus)
(require 'bbdb-gnus)

;; 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")))
      (let ((gnus-expert-user t))
	(gnus-group-exit)
	t))
  t)

(add-hook 'kill-emacs-query-functions #'cke-quit-gnus-if-running)

(defun kill-imap ()
  (interactive)
  (signal-process "imap" 7))

(defun start-gnus ()
  (interactive)
  (save-selected-window 
   (let ((gnus-frame (cke-make-frame)))
     (select-frame gnus-frame)
     (delete-other-windows)
     (gnus))))