diff options
| -rw-r--r-- | .emacs.d/site-lisp/gnus-init.el | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/.emacs.d/site-lisp/gnus-init.el b/.emacs.d/site-lisp/gnus-init.el index a4af560..8ef6308 100644 --- a/.emacs.d/site-lisp/gnus-init.el +++ b/.emacs.d/site-lisp/gnus-init.el @@ -11,18 +11,6 @@ (rx (or "tom@ryuslash.org" "ryuslash@ninthfloor.org" "ryuslash@gmail.com" "thomas@aethon.nl" "tom@aethon.nl"))) -(defvar gnus-init-subscribed-lists - #s(hash-table size 5 - data ("gnu-emacs-bug?@" "Emacs bugs" - "help-gnu-emacs@gnu.org" "Emacs help" - "emacs-devel@gnu.org" "Emacs developers" - "@debbugs.gnu.org" "GNU Bug Tracker" - "it@aethon.nl" "IT bij Aethon" - "iedereen@aethon.nl" "Iedereen bij Aethon" - "aur-general@archlinux.org" "AUR Discussion" - "guile-user@gnu.org" "Guile Users" - "dev@suckless.org" "Suckless"))) - (defun gnus-user-format-function-a (headers) (let ((to (gnus-extra-header 'To headers))) (if (string-match oni:mail-adresses to) @@ -34,17 +22,6 @@ "~" " ")))) -(defun gnus-user-format-function-b (headers) - (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) @@ -53,8 +30,7 @@ (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%(%*%[%5{%-23,23f%}%]%) %s%-101=%6{%20,20ub%}\n") +(setq gnus-summary-line-format "%U%R%z%ua%I%(%*%[%5{%-23,23f%}%]%) %s\n") (setq gnus-summary-mode-line-format "Gnus: %G %Z") (setq gnus-select-method '(nntp "news.gmane.org")) (setq gnus-secondary-select-methods |