diff options
| author |  Tom Willemse | 2014-03-10 11:17:24 +0100 |
|---|---|---|
| committer | Tom Willemse | 2014-03-10 11:17:24 +0100 |
| commit | 6d85228bb932d00feb52bbde74c615e95a3f2999 (patch) | |
| tree | 0fcfc93258290924d39a1f64cfefa7ea9d32c436 /.emacs.d | |
| parent | 99c867ac167bd42524bb17690650db878de70a6d (diff) | |
| download | emacs-6d85228bb932d00feb52bbde74c615e95a3f2999.tar.gz emacs-6d85228bb932d00feb52bbde74c615e95a3f2999.zip | |
Remove mailing list name from summary
I split the important mailing lists into their own folders now, showing
their names in the overview list is not necessary anymore. This also
allows titles to be long again.
Diffstat (limited to '.emacs.d')
| -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 |