ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update Gnus customizations

Browse source 
Use fancy unicode characters to show threading.

Use a line-spacing of 0.1 instead of 0.2 in summary buffers so the
unicode characters connect.

Start a new thread when the subject changes.

Fix some compilation warnings.
This commit is contained in:
Tom Willemse 2015-12-17 09:40:55 +01:00
parent cb56a7f260
commit 355b452a4c
2 changed files with 28 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/.emacs.d/init.el
View file

@ -944,11 +944,11 @@ If no direction is given, don't split."
#'eshell-fringe-status-mode) #'eshell-fringe-status-mode)
(oni:add-hooks 'gnus-summary-mode-hook (oni:add-hooks 'gnus-summary-mode-hook
#'oni:make-readable (lambda () (lambda ()
(local-set-key (kbd "M-d") (lambda () (local-set-key (kbd "M-d") (lambda ()
(interactive) (interactive)
(gnus-summary-delete-article) (gnus-summary-delete-article)
(gnus-summary-next-subject 1))))) (gnus-summary-next-subject 1)))))
(oni:add-hooks 'html-mode-hook (oni:add-hooks 'html-mode-hook
'oni:maybe-fci-mode #'tagedit-mode #'turn-off-flyspell 'oni:maybe-fci-mode #'tagedit-mode #'turn-off-flyspell

25
emacs/.emacs.d/site-lisp/gnus-init.el
View file

@ -1,10 +1,12 @@
(eval-when-compile (eval-when-compile
(require 'gnus) (require 'gnus)
(require 'gnus-start) (require 'gnus-start)
(require 'gnus-sum)
(require 'gnus-art) (require 'gnus-art)
(require 'gnus-msg)) (require 'gnus-msg))
(require 'gnus-sum)
(require 'nnfolder)
(defvar gnus-tmp-from) (defvar gnus-tmp-from)
(defvar oni:mail-adresses (defvar oni:mail-adresses
@ -38,8 +40,17 @@
(defvar gnus-face-5 'font-lock-variable-name-face) (defvar gnus-face-5 'font-lock-variable-name-face)
(defvar gnus-face-6 'font-lock-constant-face) (defvar gnus-face-6 'font-lock-constant-face)
;;; Make threads in Gnus look awesome.
(setq gnus-sum-thread-tree-false-root ""
gnus-sum-thread-tree-indent " "
gnus-sum-thread-tree-leaf-with-other "├─"
gnus-sum-thread-tree-root ""
gnus-sum-thread-tree-single-indent ""
gnus-sum-thread-tree-single-leaf "└─"
gnus-sum-thread-tree-vertical "│ ")
(setq gnus-group-line-format "%P %(%C%) %B%60=%4y%-2M%S\n") (setq gnus-group-line-format "%P %(%C%) %B%60=%4y%-2M%S\n")
(setq gnus-summary-line-format "%U%R%z%ua%I%(%*%[%5{%-23,23f%}%]%) %s\n") (setq gnus-summary-line-format "%U%R%z%ua%B%(%*%[%5{%-23,23f%}%]%) %s\n")
(setq gnus-summary-mode-line-format "Gnus: %G %Z") (setq gnus-summary-mode-line-format "Gnus: %G %Z")
(setq gnus-select-method (setq gnus-select-method
'(nnmaildir "ryuslash" '(nnmaildir "ryuslash"
@ -91,3 +102,13 @@
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(setq message-kill-buffer-on-exit t) (setq message-kill-buffer-on-exit t)
;;; Split threads on subject changes.
(setq gnus-thread-ignore-subject nil)
;;; Decrease line height in gnus summary buffers to make the unicode
;;; characters connect.
(add-hook 'gnus-summary-mode-hook (lambda () (setq line-spacing 0.1)) :append)
(provide 'gnus-init)
;;; gnus-init.el ends here