Skip to content

Instantly share code, notes, and snippets.

Created July 24, 2009 22:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/154583 to your computer and use it in GitHub Desktop.
Save anonymous/154583 to your computer and use it in GitHub Desktop.
(setq user-mail-address "volh@ginnungagap.in.ua")
(setq user-full-name "Roman Semenenko")
(setq gnus-select-method '(nnmaildir "private" (directory "~/mail/") (target-prefix "~/mail/") (expire-age never)))
(setq gnus-message-archive-method "nnmaildir")
(setq mail-specify-envelope-from t) (setq mail-envelope-from 'header)(setq sendmail-program "/usr/sbin/sendmail")
; Enable syntax highlighting
(toggle-global-lazy-font-lock-mode)
'(fontset-default-styles (quote (bold demibold italic oblique bold-italic bold-oblique demibold-italic demibold-oblique)))
'(message-signature-file "~/.signature")
;; Add topic mode
(add-hook 'gnus-startup-hook 'gnus-topic-mode)
;; Turn on adaptive scoring
(setq gnus-use-adaptive-scoring '(line))
;; Turn on rendering via w3m
(require 'w3m-load)
(setq mm-text-html-renderer 'w3m)
;; Sort by score
(setq gnus-thread-sort-functions
'(gnus-thread-sort-by-subject
(not gnus-thread-sort-by-date)
gnus-thread-sort-by-total-score))
;; Layout of Gnus frame
(gnus-add-configuration
'(article
(vertical 0.25
(horizontal 0.3
(group 0.3)
(summary 1.0 point))
(horizontal 1.0
(article 1.0)))))
(gnus-add-configuration
'(summary
(horizontal 0.25
(vertical 0.3
(group 1.0))
(vertical 1.0
(summary 1.0 point)))))
;; Adaptive scoring weights
(setq gnus-default-adaptive-score-alist
'((gnus-unread-mark)
(gnus-ticked-mark (from 4))
(gnus-dormant-mark (from 7))
(gnus-del-mark (from -4) (subject -15))
(gnus-read-mark (from 5) (subject 30))
(gnus-expirable-mark (from -3) (subject -3))
(gnus-killed-mark (from -4) (subject -20))
(gnus-kill-file-mark)
(gnus-ancient-mark (subject -10))
(gnus-low-score-mark)
(gnus-catchup-mark (from -1) (subject -10))))
(setq
gnus-thread-hide-subtree t
gnus-suppress-duplicates t)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment