parent
3352be2f3d
commit
1cabbbed46
@ -0,0 +1,132 @@ |
||||
(setq user-full-name "Rostyslav Hnatyshyn" |
||||
user-mail-address "rostyslav.hnatyshyn@gmail.com") |
||||
|
||||
(setq message-send-mail-function 'smtpmail-send-it |
||||
smtpmail-default-smtp-server "smtp.gmail.com" |
||||
smtpmail-smtp-service 587 |
||||
smtpmail-local-domain "homepc") |
||||
|
||||
(require 'nnir) |
||||
|
||||
(setq gnus-save-newsrc-file nil) |
||||
(setq gnus-use-dribble-file nil) |
||||
|
||||
;; Please note mail folders in `gnus-select-method' have NO prefix like "nnimap+hotmail:" or "nnimap+gmail:" |
||||
;; Read feeds/atom through gwene |
||||
(setq gnus-select-method '(nntp "news.gwene.org")) |
||||
|
||||
;; ask encryption password once |
||||
(setq epa-file-cache-passphrase-for-symmetric-encryption t) |
||||
|
||||
;; @see http://gnus.org/manual/gnus_397.html |
||||
(add-to-list 'gnus-secondary-select-methods |
||||
'(nnimap "gmail-rosty" |
||||
(nnimap-address "imap.gmail.com") |
||||
(nnimap-server-port 993) |
||||
(nnimap-stream ssl) |
||||
(nnir-search-engine imap) |
||||
; @see http://www.gnu.org/software/emacs/manual/html_node/gnus/Expiring-Mail.html |
||||
;; press 'E' to expire email |
||||
(nnmail-expiry-target "nnimap+gmail-rosty:[Gmail]/Trash") |
||||
(nnmail-expiry-wait 90))) |
||||
|
||||
(add-to-list 'gnus-secondary-select-methods |
||||
'(nnimap "gmail-throwaway" |
||||
(nnimap-address "imap.gmail.com") |
||||
(nnimap-server-port 993) |
||||
(nnimap-stream ssl) |
||||
(nnir-search-engine imap) |
||||
(nnmail-expiry-target "nnimap+gmail-throwaway:[Gmail]/Trash") |
||||
(nnmail-expiry-wait 90))) |
||||
|
||||
(add-to-list 'gnus-secondary-select-methods |
||||
'(nnimap "gmail-asu" |
||||
(nnimap-address "imap.gmail.com") |
||||
(nnimap-server-port 993) |
||||
(nnimap-stream ssl) |
||||
(nnir-search-engine imap) |
||||
(nnmail-expiry-target "nnimap+gmail-asu:[Gmail]/Trash") |
||||
(nnmail-expiry-wait 90))) |
||||
|
||||
|
||||
(setq gnus-thread-sort-functions |
||||
'(gnus-thread-sort-by-most-recent-date |
||||
(not gnus-thread-sort-by-number))) |
||||
|
||||
;; {{ press "o" to view all groups |
||||
(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 |
||||
;; list all the subscribed groups even they contain zero un-read messages |
||||
(kbd "o") 'my-gnus-group-list-subscribed-groups) |
||||
;; }} |
||||
|
||||
;; Fetch only part of the article if we can. |
||||
;; I saw this in someone's .gnus |
||||
(setq gnus-read-active-file 'some) |
||||
|
||||
;; open attachment |
||||
(eval-after-load 'mailcap |
||||
'(progn |
||||
(cond |
||||
;; on macOS, maybe change mailcap-mime-data? |
||||
((eq system-type 'darwin)) |
||||
;; on Windows, maybe change mailcap-mime-data? |
||||
((eq system-type 'windows-nt)) |
||||
(t |
||||
;; Linux, read ~/.mailcap |
||||
(mailcap-parse-mailcaps))))) |
||||
|
||||
;; Tree view for groups. |
||||
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode) |
||||
|
||||
;; Threads! I hate reading un-threaded email -- especially mailing |
||||
;; lists. This helps a ton! |
||||
(setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject) |
||||
|
||||
;; Also, I prefer to see only the top level message. If a message has |
||||
;; several replies or is part of a thread, only show the first message. |
||||
;; `gnus-thread-ignore-subject' will ignore the subject and |
||||
;; look at 'In-Reply-To:' and 'References:' headers. |
||||
(setq gnus-thread-hide-subtree t) |
||||
(setq gnus-thread-ignore-subject t) |
||||
|
||||
;; http://www.gnu.org/software/emacs/manual/html_node/gnus/_005b9_002e2_005d.html |
||||
(setq gnus-use-correct-string-widths nil) |
||||
|
||||
(eval-after-load 'gnus-topic |
||||
'(progn |
||||
(setq gnus-message-archive-group '((format-time-string "sent.%Y"))) |
||||
(setq gnus-topic-topology '(("Gnus" visible) |
||||
(("gmail-rosty" visible nil nil)) |
||||
(("gmail-asu" visible nil nil)) |
||||
(("gmail-throwaway" visible nil nil)))) |
||||
(setq gnus-topic-alist '(("gmail-rosty" |
||||
"nnimap+gmail-rosty:INBOX" |
||||
"nnimap+gmail-rosty:[Gmail]/Sent Mail" |
||||
"nnimap+gmail-rosty:[Gmail]/Drafts" |
||||
"nnimap+gmail-rosty:[Gmail]/Important") |
||||
("gmail-throwaway" |
||||
"nnimap+gmail-throwaway:INBOX" |
||||
"nnimap+gmail-throwaway:[Gmail]/Sent Mail" |
||||
"nnimap+gmail-throwaway:[Gmail]/Drafts" |
||||
"nnimap+gmail-throwaway:[Gmail]/Important") |
||||
("gmail-asu" |
||||
"nnimap+gmail-asu:INBOX" |
||||
"nnimap+gmail-asu:[Gmail]/Sent Mail" |
||||
"nnimap+gmail-asu:[Gmail]/Drafts" |
||||
"nnimap+gmail-asu:[Gmail]/Important") |
||||
("Gnus"))))) |
||||
(setq gnus-posting-styles |
||||
'(("gmail-rosty" |
||||
(address "Rostyslav Hnatyshyn <rostyslav.hnatyshyn@gmail.com>") |
||||
("X-Message-SMTP-Method" "smtp smtp.gmail.com 587 rostyslav.hnatyshyn@gmail.com")) |
||||
("gmail-asu" |
||||
(address "Rostyslav Hnatyshyn<rhnatysh@asu.edu>") |
||||
("X-Message-SMTP-Method" "smtp smtp.gmail.com 587 rhnatysh@asu.edu")) |
||||
("gmail-throwaway" |
||||
(address "Frosty Snowman <throwawayfrosty@gmail.com>") |
||||
("X-Message-SMTP-Method" "smtp smtp.gmail.com 587 throwawayfrosty@gmail.com")))) |
||||
Loading…
Reference in new issue