Improve look of summary buffer in gnus

1 files changed, 14 insertions, 11 deletions

diff --git a/.emacs.d/site-lisp/gnus-init.el b/.emacs.d/site-lisp/gnus-init.el
index 65fe278..42f5469 100644
--- a/.emacs.d/site-lisp/gnus-init.el
+++ b/.emacs.d/site-lisp/gnus-init.el
@@ -35,23 +35,26 @@
         " "))))
 
 (defun gnus-user-format-function-b (headers)
-  (let ((to (gnus-extra-header 'To headers))
-        (cc (gnus-extra-header 'Cc headers)))
-    (or (and to
-             (catch 'newsgroup
-               (maphash (lambda (key val)
-                          (when (or (string-match key to)
-                                    (string-match key cc))
-                            (throw 'newsgroup val)))
-                        gnus-init-subscribed-lists)))
-        (gnus-summary-from-or-to-or-newsgroups headers gnus-tmp-from))))
+  (let* ((to (gnus-extra-header 'To headers))
+         (cc (gnus-extra-header 'Cc headers))
+         (group (catch 'newsgroup
+                  (maphash (lambda (key val)
+                             (when (or (string-match key to)
+                                       (string-match key cc))
+                               (throw 'newsgroup val)))
+                           gnus-init-subscribed-lists))))
+    (or (and to group) "")))
 
 (setq gnus-ignored-from-addresses oni:mail-adresses)
 (setq message-alternative-emails oni:mail-adresses)
 (setq message-dont-reply-to-names oni:mail-adresses)
 
+(defvar gnus-face-5 'font-lock-variable-name-face)
+(defvar gnus-face-6 'font-lock-constant-face)
+
 (setq gnus-group-line-format "%P    %(%C%) %B%60=%4y%-2M%S\n")
-(setq gnus-summary-line-format "%U%R%z%ua%I%(%*%[%-23,23ub%]%) %s\n")
+(setq gnus-summary-line-format
+      "%U%R%z%ua%I%(%*%[%5{%-23,23f%}%]%) %s%-115=%6{%21,21ub%}\n")
 (setq gnus-select-method '(nntp "news.gmane.org"))
 (setq gnus-secondary-select-methods
       '((nnmaildir "gmail"