chiark - git - mdw - profile/blob - dot/gnus.el

   1 ;;; -*- mode: emacs-lisp; coding: utf-8 -*-
   2 ;;;
   3 ;;; GNUS configuration
   4 ;;;
   5 ;;; (c) 2009 Mark Wooding
   6 ;;;
   7
   8 ;;;----- Licensing notice ---------------------------------------------------
   9 ;;;
  10 ;;; This program is free software; you can redistribute it and/or modify
  11 ;;; it under the terms of the GNU General Public License as published by
  12 ;;; the Free Software Foundation; either version 2 of the License, or
  13 ;;; (at your option) any later version.
  14 ;;;
  15 ;;; This program is distributed in the hope that it will be useful,
  16 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;;; GNU General Public License for more details.
  19 ;;;
  20 ;;; You should have received a copy of the GNU General Public License
  21 ;;; along with this program; if not, write to the Free Software
  22 ;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  23
  24 ;;;--------------------------------------------------------------------------
  25 ;;; General Gnus preferences.
  26
  27 ;; Divide the main groups list by topics.
  28 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
  29 (setq gnus-subscribe-newsgroup-method 'gnus-subscribe-topics)
  30
  31 ;; Use hacky movemail program to move mail.
  32 (setq mail-source-movemail-program "~/bin/movemail-hack")
  33
  34 ;; Don't force use of a full window.
  35 (setq gnus-use-full-window nil)
  36
  37 ;; Display a slrn-like tree view in the summary window.
  38 (setq gnus-use-trees nil)
  39 (setq gnus-summary-line-format "%U%R%z%4L %(%[%-16,16f%]%): %B %s\n")
  40 (setq gnus-sum-thread-tree-root ">"
  41       gnus-sum-thread-tree-false-root ">"
  42       gnus-sum-thread-tree-single-indent "="
  43       gnus-sum-thread-tree-indent "  ")
  44 (if (eq (coding-system-get (terminal-coding-system) 'mime-charset) 'utf-8)
  45     (setq gnus-sum-thread-tree-leaf-with-other "├─>"
  46           gnus-sum-thread-tree-vertical        "│ "
  47           gnus-sum-thread-tree-single-leaf     "╰─>")
  48   (setq gnus-sum-thread-tree-leaf-with-other   "|->"
  49         gnus-sum-thread-tree-vertical          "| "
  50         gnus-sum-thread-tree-single-leaf       "'->"))
  51
  52 ;; Sort threads in a useful way.
  53 (setq gnus-thread-sort-functions
  54       '(gnus-thread-sort-by-number
  55         gnus-thread-sort-by-subject
  56         gnus-thread-sort-by-total-score))
  57
  58 ;; Use one article buffer per group.
  59 (setq gnus-single-article-buffer nil)
  60
  61 ;; Don't expand threads on initial opening.
  62 (setq gnus-thread-hide-subtree t)
  63
  64 ;; Don't use strange icons instead of traditional smileys.
  65 (setq gnus-treat-display-smileys nil)
  66
  67 ;; Fairly large numbers of articles are OK; don't bother warning me.
  68 (setq gnus-large-newsgroup 500)
  69
  70 ;; When splitting articles, crossposting is a reasonable thing to do.
  71 (setq nnimap-split-crosspost t)
  72
  73 ;; We may have the misfortune to talk to an Exchange server.
  74 (setq imap-enable-exchange-bug-workaround t)
  75
  76 ;;;--------------------------------------------------------------------------
  77 ;;; Local configuration.
  78
  79 ;; Fetching news from the local news server seems sensible.
  80 (setq gnus-select-method `(nntp ,(mdw-config 'nntp-server)))
  81
  82 ;; Now load a local configuration file.
  83 (load "~/.gnus-local.el")
  84
  85 ;;;----- That's all, folks --------------------------------------------------