emacs - gnus group buffer setting

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 37b75c5..2bdb3f8 100644 (file)
--- 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)