Commit | Line | Data |
---|---|---|
a3bdb4d9 MW |
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 -------------------------------------------------- |