| 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 | ;; Don't expand threads on initial opening. |
| 59 | (setq gnus-thread-hide-subtree t) |
| 60 | |
| 61 | ;; Don't use strange icons instead of traditional smileys. |
| 62 | (setq gnus-treat-display-smileys nil) |
| 63 | |
| 64 | ;; Fairly large numbers of articles are OK; don't bother warning me. |
| 65 | (setq gnus-large-newsgroup 500) |
| 66 | |
| 67 | ;; When splitting articles, crossposting is a reasonable thing to do. |
| 68 | (setq nnimap-split-crosspost t) |
| 69 | |
| 70 | ;; We may have the misfortune to talk to an Exchange server. |
| 71 | (setq imap-enable-exchange-bug-workaround t) |
| 72 | |
| 73 | ;;;-------------------------------------------------------------------------- |
| 74 | ;;; Local configuration. |
| 75 | |
| 76 | ;; Fetching news from the local news server seems sensible. |
| 77 | (setq gnus-select-method `(nntp ,(mdw-config 'nntp-server))) |
| 78 | |
| 79 | ;; Now load a local configuration file. |
| 80 | (load "~/.gnus-local.el") |
| 81 | |
| 82 | ;;;----- That's all, folks -------------------------------------------------- |