From 4834da2e408dccce8e3c1388d4163391e6e38cc9 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sat, 9 Jul 2016 12:57:48 +0800 Subject: [PATCH] emacs - gnus group buffer setting --- emacs.d/config.org | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/emacs.d/config.org b/emacs.d/config.org index 37b75c5..2bdb3f8 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -1919,6 +1919,32 @@ and == with the password #+END_EXAMPLE Then Run =M-x gnus= + +** Group buffer +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq gnus-permanently-visible-groups "\.*") + + (cond (window-system + (setq custom-background-mode 'light) + (defface my-group-face-1 + '((t (:foreground "Red" :bold t))) "First group face") + (defface my-group-face-2 + '((t (:foreground "DarkSeaGreen4" :bold t))) + "Second group face") + (defface my-group-face-3 + '((t (:foreground "Green4" :bold t))) "Third group face") + (defface my-group-face-4 + '((t (:foreground "SteelBlue" :bold t))) "Fourth group face") + (defface my-group-face-5 + '((t (:foreground "Blue" :bold t))) "Fifth group face"))) + (setq gnus-group-highlight + '(((> unread 200) . my-group-face-1) + ((and (< level 3) (zerop unread)) . my-group-face-2) + ((< level 3) . my-group-face-3) + ((zerop unread) . my-group-face-4) + (t . my-group-face-5))) +#+END_SRC + #+BEGIN_SRC emacs-lisp :tangle yes :results silent (setq gnus-fetch-old-headers 't) -- 2.11.0