diff options
Diffstat (limited to '.emacs.d/site-lisp')
| -rw-r--r-- | .emacs.d/site-lisp/gnus-init.el | 25 |
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" |