blob: 570b8fdff361f7d13a0090b9528c7389d591cd71 (
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
;;; https://github.com/redguardtoo/mastering-emacs-in-one-year-guide/blob/master/gnus-guide-en.org#my-gnusel
;; (require 'nnir)
;; (setq-default gnus-select-method '(nntp "news.gwene.org"))
(setq-default epa-file-cache-passphrase-for-symmetric-encryption t)
(setq-default gnus-select-method
'(nnimap "marekpasnikowski.pl"
(nnimap-address "marekpasnikowski.pl")
(nnimap-server-port 993)
(nnimap-stream ssl)
;; (nnir-search-engine imap)
(nnmail-expiry-wait 90)))
(setq-default gnus-thread-sort-functions
'(gnus-thread-sort-by-most-recent-date
(not gnus-thread-sort-by-number)))
(setq-default gnus-use-cache t)
(defun my-gnus-group-list-subscribed-groups ()
"List all subscribed groups with or without un-read messages"
()
(interactive)
(gnus-group-list-all-groups 5))
(define-key gnus-group-mode-map
(kbd "o") 'my-gnus-group-list-subscribed-groups)
;; (add-to-list 'load-path "~/Dokumenty/bbdb")
;; (require 'bbdb)
;; (bbdb-initialize 'message 'gnus 'sendmail)
;; (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
;; (setq-default bbdb/mail-auto-create-p t
;; bbdb/news-auto-create-p t)
(setq-default gnus-read-active-file 'some)
(eval-after-load 'mailcap
'(progn (cond ((eq system-type 'darwin))
((eq system-type 'windows-nt))
(t (mailcap-parse-mailcaps)))))
(add-hook 'gnus-group-mode-hook
'gnus-topic-mode)
(setq-default gnus-summary-thread-gathering-function
'gnus-gather-threads-by-subject)
(setq-default gnus-thread-hide-subtree t)
(setq-default gnus-thread-ignore-subject t)
(setq-default gnus-use-correct-string-widths nil)
(eval-after-load 'gnus-topic
'(progn (setq-default gnus-message-archive-group
'((format-time-string "sent.%Y")))
(setq-default gnus-server-alist
'(("archive"
nnfolder
"archive"
(nnfolder-directory "~/Mail/archive")
(nnfolder-active-file "~/Mail/archive/active")
(nnfolder-get-new-mail nil)
(nnfolder-inhibit-expiry t))))
(setq-default gnus-topic-topology
'(("Gnus" visible)
(("marekpasnikowski.pl" visible nil nil))
(("misc" visible))))
(setq-default gnus-topic-alist
'(("marekpasnikowski.pl"
"nnimap+marekpasnikowski.pl:Inbox"
"nnimap+marekpasnikowski.pl:Drafts"
"nnimap+marekpasnikowski.pl:Sent"
"nnimap+marekpasnikowski.pl:Archive"
"nnimap+marekpasnikowski.pl:Junk"
"nnimap+marekpasnikowski.pl:Trash")
("misc"
"nnfolder+archive:sent.2024"
"nndraft:drafts")
("Gnus")))
(gnus-topic-set-parameters "marekpasnikowski.pl"
'((display . 200)))))
|
