Use gnus
This commit is contained in:
7
init.el
7
init.el
@@ -13,19 +13,22 @@
|
|||||||
(load "~/.emacs.d/my-setkeys.elc")
|
(load "~/.emacs.d/my-setkeys.elc")
|
||||||
(load "~/.emacs.d/my-modeline.elc")
|
(load "~/.emacs.d/my-modeline.elc")
|
||||||
(load "~/.emacs.d/my-linum.elc")
|
(load "~/.emacs.d/my-linum.elc")
|
||||||
(load "~/.emacs.d/my-themes.elc")))
|
(load "~/.emacs.d/my-themes.elc")
|
||||||
|
(load "~/.emacs.d/my-gnus.elc")))
|
||||||
(custom-set-variables
|
(custom-set-variables
|
||||||
;; custom-set-variables was added by Custom.
|
;; custom-set-variables was added by Custom.
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
;; Your init file should contain only one such instance.
|
;; Your init file should contain only one such instance.
|
||||||
;; If there is more than one, they won't work right.
|
;; If there is more than one, they won't work right.
|
||||||
|
'(auth-source-save-behavior nil)
|
||||||
'(haskell-process-auto-import-loaded-modules t)
|
'(haskell-process-auto-import-loaded-modules t)
|
||||||
'(haskell-process-log t)
|
'(haskell-process-log t)
|
||||||
'(haskell-process-suggest-remove-import-lines t)
|
'(haskell-process-suggest-remove-import-lines t)
|
||||||
'(haskell-process-type (quote cabal-repl))
|
'(haskell-process-type (quote cabal-repl))
|
||||||
'(package-selected-packages
|
'(package-selected-packages
|
||||||
(quote
|
(quote
|
||||||
(swiper colemak-evil evil all-the-icons use-package rich-minority projectile mode-icons magit-find-file haskell-mode gruvbox-theme fill-column-indicator evil-magit counsel))))
|
(swiper colemak-evil evil all-the-icons use-package rich-minority projectile mode-icons magit-find-file haskell-mode gruvbox-theme fill-column-indicator evil-magit counsel)))
|
||||||
|
'(send-mail-function (quote smtpmail-send-it)))
|
||||||
|
|
||||||
(custom-set-faces
|
(custom-set-faces
|
||||||
;; custom-set-faces was added by Custom.
|
;; custom-set-faces was added by Custom.
|
||||||
|
|||||||
@@ -36,3 +36,4 @@
|
|||||||
(use-package ghc)
|
(use-package ghc)
|
||||||
|
|
||||||
(use-package web-mode)
|
(use-package web-mode)
|
||||||
|
(use-package less-css-mode)
|
||||||
|
|||||||
@@ -27,3 +27,12 @@
|
|||||||
|
|
||||||
(global-set-key [(control next)] 'gcm-scroll-down)
|
(global-set-key [(control next)] 'gcm-scroll-down)
|
||||||
(global-set-key [(control prior)] 'gcm-scroll-up)
|
(global-set-key [(control prior)] 'gcm-scroll-up)
|
||||||
|
|
||||||
|
(defun my-gnus-group-list-subscribed-groups ()
|
||||||
|
"List all subscribed groups with or without un-read messages"
|
||||||
|
(interactive)
|
||||||
|
(gnus-group-list-all-groups 5))
|
||||||
|
|
||||||
|
(define-key gnus-group-mode-map
|
||||||
|
;; list all the subscribed groups even they contain zero un-read messages
|
||||||
|
(kbd "o") 'my-gnus-group-list-subscribed-groups)
|
||||||
|
|||||||
Reference in New Issue
Block a user