blob: a60e8e7699cc3e2ee3ecde18021ed19c165567d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'gnus)
(require 'gnus-util)
(keymap-set gnus-article-mode-map "r" #'gnus-summary-very-wide-reply)
(keymap-set gnus-summary-mode-map "r" #'gnus-summary-very-wide-reply)
(keymap-set gnus-article-mode-map "R" #'gnus-summary-very-wide-reply-with-original)
(keymap-set gnus-summary-mode-map "R" #'gnus-summary-very-wide-reply-with-original)
(setopt gnus-dbus-close-on-sleep t
gnus-interactive-exit nil
;;news
gnus-check-new-newsgroups nil
gnus-large-newsgroup 200)
(setopt gnus-select-method '(nnnil ""))
(setopt gnus-secondary-select-methods
'((nntp "news.gwene.org")
(nnmaildir "admin"
(directory "~/.ml/admin"))
(nnmaildir "personal"
(directory "~/.ml/personal"))
(nnmaildir "umass"
(directory "~/.ml/umass"))
(nnmaildir "gmail"
(directory "~/.ml/gmail"))))
(setopt gnus-face-3 'calendar-today
gnus-face-4 'calendar-weekend-header
gnus-face-5 'calendar-weekday-header)
(setopt gnus-summary-line-format
(concat
"%0{%U%R%z%}"
"%4{%-11,11&user-date;%}"
" "
"%2{%-20,20n%}" ;; name
" "
" "
"%5{%B%}"
"%s\n"))
(setopt mml-secure-openpgp-encrypt-to-self t)
(require 'bd--mail) ;; (gitignored)
;;; gnus.el ends here
|
