From: Peng Li <seudut@gmail.com>
Date: Sat, 9 Jul 2016 04:57:48 +0000 (+0800)
Subject: emacs - gnus group buffer setting
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=4834da2e408dccce8e3c1388d4163391e6e38cc9;hp=3d3aa028bd5f10501aaa930b91ab3da56f9b9238;p=dotfiles.git

emacs - gnus group buffer setting
---

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 =<PASSWORD>= 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)