blob: fcd13039f43c063f5e70f822be18d4667d0c8a17 (
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
;; set up gnus directories before gnus is initialized
(setq gnus-directory "~/.gnus.d"
gnus-home-directory "~/.gnus.d"
message-directory "~/.gnus.d/mail"
message-auto-save-directory "~/.gnus.d/drafts"
nnml-directory "~/.gnus.d/nnml-mail"
nnfolder-directory "~/.gnus.d/mail/archive"
nnfolder-active-file "~/.gnus.d/mail/archive/active"
gnus-article-save-directory "~/.gnus.d/saved"
gnus-kill-files-directory "~/.gnus.d/scores"
gnus-cache-directory "~/.gnus.d/cache")
(setq gnus-save-newsrc-file nil
gnus-read-newsrc-file nil)
(defun km/sync-mail ()
(interactive)
(let ((bufname (get-buffer-create "*Mail sync*")))
(start-process "mail sync" bufname km/sync-mail-cmd)))
(defvar km/sync-mail-cmd "~/bin/sync-mail.sh"
"Run sync mail script")
;; http://www.emacswiki.org/emacs/GnusSync
(defun gnus-grace-exit-before-kill-emacs ()
(if (and (fboundp 'gnus-alive-p)
(gnus-alive-p))
(let ((noninteractive t))
(gnus-group-exit))))
(add-hook 'kill-emacs-hook 'gnus-grace-exit-before-kill-emacs)
(setq imap-shell-program "/usr/lib/dovecot/imap -c ~/.dovecotrc"
gnus-select-method '(nnimap "dov" (nnimap-stream shell))
gnus-secondary-select-methods '((nntp "news.gmane.org")))
(setq message-send-mail-function 'message-send-mail-with-sendmail
sendmail-program "/usr/bin/msmtp")
(setq gnus-gcc-mark-as-read t)
(setq message-citation-line-function 'message-insert-formatted-citation-line)
(setq message-citation-line-format "On %D %R, %N wrote:")
(setq message-kill-buffer-on-exit t)
;; for rss too specific to add to gwene
(require 'nnrss)
(setq gnus-group-list-inactive-groups nil)
;; start in topic mode
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(setq gnus-topic-display-empty-topics nil)
(setq gnus-visible-headers
'("^From" "^Subject" "^Date" "^To" "^Cc" "^User-Agent"))
(add-hook 'message-send-hook 'ispell-message)
(setq gnus-confirm-mail-reply-to-news t)
(gnus-define-keys gnus-summary-mode-map
"j" gnus-summary-next-unread-article
";" gnus-summary-universal-argument ;; mutt's tag
)
(global-set-key (kbd "C-x m") 'gnus-group-mail)
(setq mm-discouraged-alternatives '("text/html" "text/richtext"))
(setq gnus-summary-line-format
"%U%R %&user-date;%-20= %-15,15f %B %S \n")
(setq gnus-sum-thread-tree-indent " "
gnus-sum-thread-tree-root "."
gnus-sum-thread-tree-false-root "o "
gnus-sum-thread-tree-single-indent ""
gnus-sum-thread-tree-leaf-with-other "+-> "
gnus-sum-thread-tree-vertical "| "
gnus-sum-thread-tree-single-leaf "`-> ")
(setq gnus-thread-sort-functions
'(gnus-thread-sort-by-number
gnus-thread-sort-by-most-recent-date))
(require 'notmuch)
(require 'org-gnus)
(define-key gnus-group-mode-map "GG" 'notmuch-search)
;; http://roland.entierement.nu/blog/2010/09/08/gnus-dovecot-offlineimap-search-a-howto.html
(defun km/notmuch-shortcut ()
(define-key gnus-group-mode-map "GG" 'notmuch-search))
(defun km/notmuch-file-to-group (file)
"Calculate the Gnus group name from the given file name."
(let ((group (file-name-directory (directory-file-name (file-name-directory file)))))
(setq group (replace-regexp-in-string ".*/mail/" "nnimap+dov:" group))
(setq group (replace-regexp-in-string "/$" "" group))
(if (string-match ":$" group)
(concat group "INBOX")
(replace-regexp-in-string ":\\." ":" group))))
(defun km/notmuch-goto-message-in-gnus ()
"Open a summary buffer containing the current notmuch article."
(interactive)
(let ((group (km/notmuch-file-to-group (notmuch-show-get-filename)))
(message-id (replace-regexp-in-string
"^id:" "" (notmuch-show-get-message-id))))
(setq message-id (replace-regexp-in-string "\"" "" message-id))
(if (and group message-id)
(progn
(switch-to-buffer "*Group*")
(org-gnus-follow-link group message-id))
(message "Couldn't get relevant infos for switching to Gnus."))))
(define-key notmuch-show-mode-map (kbd "C-c C-c") 'km/notmuch-goto-message-in-gnus)
(add-hook 'gnus-group-mode-hook 'km/notmuch-shortcut)
(setq notmuch-fcc-dirs nil)
|