diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-06 17:07:49 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-06 17:07:49 -0500 |
| commit | 80b95fcaab9149466e656430eb4c0041e28ee455 (patch) | |
| tree | c9161d0815b3f81cea9f522891ee148bb5f427af /gnus.el | |
| download | rcm-80b95fcaab9149466e656430eb4c0041e28ee455.tar.gz rcm-80b95fcaab9149466e656430eb4c0041e28ee455.tar.bz2 rcm-80b95fcaab9149466e656430eb4c0041e28ee455.zip | |
Initial commit
Diffstat (limited to '')
| -rw-r--r-- | gnus.el | 60 |
1 files changed, 60 insertions, 0 deletions
@@ -0,0 +1,60 @@ +(setq gnus-select-method '(nnnil)) +(defun my-gnus-group-list-subscribed-groups () + "List all subscribed groups with or without un-read messages" + (interactive) + (gnus-group-list-all-groups 5)) + +(add-hook 'gnus-group-mode-hook 'gnus-topic-mode) +(define-key gnus-group-mode-map + ;; list all the subscribed groups even they contain zero un-read messages + (kbd "o") 'my-gnus-group-list-subscribed-groups) + +(setq gnus-secondary-select-methods + '((nnmaildir "personal" + (nnmail-expiry-target "nnmaildir+personal:Trash") + (directory "~/mail-home")) + (nnmaildir "work" + (nnmail-expiry-target "nnmaildir+work:[Gmail]+Bin") + (directory "~/mail-work")))) + +(setq gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]" + nnmail-expiry-wait 'immediate + message-sendmail-f-is-evil 't + message-sendmail-extra-arguments '("--read-envelope-from") + message-send-mail-function 'message-send-mail-with-sendmail + sendmail-program "msmtp" + mail-host-address "mccd.space" + user-full-name "Marc Coquand" + user-mail-address "marc@mccd.space") + +(setq gnus-topic-topology '(("Gnus" visible) + (("personal" visible)) + (("misc" hidden)) + (("work" visible nil nil)) + )) +(setq gnus-topic-alist '(("personal" ; the key of topic + "nnmaildir+personal:INBOX" + "nnmaildir+personal:INBOX+Forums" + "nnmaildir+personal:Archive" + "nnmaildir+personal:Archive+Support" + ) + ("misc" + "nnfolder+archive:sent.2024-04" + "nnmaildir+personal:Archive+Receipt" + "nnmaildir+personal:Archive+WCIG" + "nnmaildir+personal:Spam" + "nnmaildir+personal:Sent" + ) + ("work" ; the key of topic + "nnmaildir+work:INBOX" + "nnmaildir+work:[Gmail]+Sent Mail" + "nnmaildir+work:[Gmail]+Trash" + ) + ("Gnus"))) + + +(setq gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]") +(setq nnheader-file-name-translation-alist '((?[ . ?_) (?] . ?_)) ) +(setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject) +(setq gnus-thread-hide-subtree t) +(setq gnus-thread-ignore-subject t) |