        ("ca" mml-attach-file "Attach C-c C-a")
        ("cc" message-send-and-exit "Send C-c C-c")
        ("q" nil "cancel"))
-     (global-set-key (kbd "C-c y") 'hydra-message/body)))
+     (global-set-key (kbd "C-c C-y") 'hydra-message/body)))

      initial-scratch-message nil)

(defconst package-list '(diminish
			 exec-path-from-shell
                         json-mode
                         lua-mode
                         haskell-mode

;; (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;; (add-hook 'gnus-summary-mode-hook 'my-gnus-summary-keys)

;; (require 'bbdb)
;; (setq 'bbdb-complete-mail-allow-cycling t)
;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
;; (add-hook 'message-mode-hook
;;           '(lambda ()
;;              (bbdb-initialize 'message)
;;              (bbdb-initialize 'gnus)
;;              (local-set-key "<TAB>" 'bbdb-complete-name)))

(eval-after-load 'gnus-group
  '(progn
     (defhydra hydra-gnus-group (:color blue)
