From 980a124633e159dc53567ab1e7520bdf1f96c3b5 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 12 Dec 2013 01:09:54 +0100 Subject: Improve look of summary buffer in gnus --- .emacs.d/site-lisp/gnus-init.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) (limited to '.emacs.d/site-lisp') 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" -- cgit v1.2.3-54-g00ecf