summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAmin Bandali <bandali@gnu.org>2018-11-10 13:36:57 -0500
committerAmin Bandali <bandali@gnu.org>2018-11-10 13:36:57 -0500
commit9ae707cc51742efd79e66595579ea1dade3cb1b0 (patch)
tree25904c7492aa2f4e87aa5934b3fa4ccb54751f7a
parent5a343a2103c211c95ed918d5df176b7bd6ced0be (diff)
downloadconfigs-9ae707cc51742efd79e66595579ea1dade3cb1b0.tar.gz
configs-9ae707cc51742efd79e66595579ea1dade3cb1b0.tar.xz
configs-9ae707cc51742efd79e66595579ea1dade3cb1b0.zip
[emacs] further Gnus and Message customizations
-rw-r--r--init.org69
1 files changed, 38 insertions, 31 deletions
diff --git a/init.org b/init.org
index 5b0aac6..fcb700e 100644
--- a/init.org
+++ b/init.org
@@ -1759,21 +1759,25 @@ Hopefully temporary.
** Gnus
#+begin_src emacs-lisp
-(setq amin-gnus-init-file (no-littering-expand-etc-file-name "gnus"))
+(setq
+ amin-gnus-init-file (no-littering-expand-etc-file-name "gnus")
+ mail-user-agent 'gnus-user-agent
+ read-mail-command 'gnus)
(use-package gnus
- :bind ("s-m" . gnus)
+ :bind (("s-m" . gnus)
+ ("s-M" . gnus-unplugged))
:init
(setq
- gnus-select-method
- '(nnimap "amin"
+ gnus-select-method '(nnnil "")
+ gnus-secondary-select-methods
+ '((nnimap "amin"
(nnimap-stream plain)
(nnimap-address "127.0.0.1")
(nnimap-server-port 143)
(nnimap-authenticator plain)
(nnimap-user "amin@aminb.org"))
- gnus-secondary-select-methods
- '((nnimap "uwaterloo"
+ (nnimap "uwaterloo"
(nnimap-stream plain)
(nnimap-address "127.0.0.1")
(nnimap-server-port 143)
@@ -1781,13 +1785,18 @@ Hopefully temporary.
(nnimap-user "abandali@uwaterloo.ca")))
gnus-message-archive-group "nnimap:Sent"
gnus-parameters
- '(("amin"
- (display . 20))
- ("uwaterloo"
- (display . 20)))
+ '(;; ("amin"
+ ;; (display . 20))
+ ("gnu.*"
+ ;; (display . 50)
+ (gcc-self . t))
+ ;; ("uwaterloo"
+ ;; (display . [unread]))
+ )
gnus-home-directory (no-littering-expand-var-file-name "gnus/")
- gnus-directory (no-littering-expand-var-file-name "gnus/News/")
- message-directory amin-maildir
+ gnus-directory (concat gnus-home-directory "news/")
+ message-directory (concat gnus-home-directory "mail/")
+ nndraft-directory (concat gnus-home-directory "drafts/")
gnus-save-newsrc-file nil
gnus-read-newsrc-file nil
gnus-interactive-exit nil
@@ -1830,19 +1839,12 @@ Hopefully temporary.
("w" . gnus-summary-wide-reply)
("v" . gnus-summary-show-raw-article))
:config
- (setq gnus-extra-headers (append gnus-extra-headers
- '(List-Id X-RT-Originator)))
(bind-keys
:map gnus-summary-mode-map
("r" . gnus-summary-reply-with-original)
("R" . gnus-summary-wide-reply-with-original)
("M-L" . org-store-link)))
-(use-package nnmail
- :config
- (setq nnmail-extra-headers (append nnmail-extra-headers
- '(List-Id X-RT-Originator))))
-
(use-package gnus-msg
:config
(setq gnus-posting-styles
@@ -1854,9 +1856,16 @@ Hopefully temporary.
(address "abandali@uwaterloo.ca")
(gcc "\"nnimap+uwaterloo:Sent Items\"")))))
-(use-package gnus-group
+(use-package gnus-topic
:hook (gnus-group-mode . gnus-topic-mode))
+(use-package gnus-agent
+ :config
+ (setq gnus-agent-synchronize-flags 'ask)
+ :hook (gnus-group-mode . gnus-agent-mode))
+
+(use-package gnus-group)
+
(use-package mm-decode
:config
(setq mm-discouraged-alternatives '("text/html" "text/richtext")))
@@ -1881,19 +1890,17 @@ Hopefully temporary.
(setq message-kill-buffer-on-exit t
message-send-mail-function 'message-send-mail-with-sendmail
message-sendmail-envelope-from 'header
- ;; message-directory "drafts"
+ message-dont-reply-to-names
+ "\\(\\(.*@aminb\\.org\\)\\|\\(\\(aminb?\\|mab\\|bandali\\)@gnu\\.org\\)\\|\\(\\(m\\|a\\(min\\.\\)?\\)bandali@uwaterloo\\.ca\\)\\)"
message-user-fqdn "aminb.org")
- ;; (add-hook 'message-mode-hook 'electric-quote-local-mode)
- (add-hook 'message-mode-hook
- (lambda () (setq fill-column 65
- message-fill-column 65)))
- (add-hook 'message-mode-hook
- #'flyspell-mode)
- ;; (add-hook 'message-setup-hook
- ;; #'mml-secure-message-sign-pgpmime)
+ :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
+ (message-mode . flyspell-mode)
+ (message-mode . (lambda () (setq fill-column 65
+ message-fill-column 65))))
:custom-face
- (message-header-subject ((t (:foreground "navy blue" :weight semi-bold))))
- (message-header-to ((t (:foreground "MidnightBlue" :weight semi-bold)))))
+ (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
+ (message-header-to ((t (:foreground "#111" :weight normal))))
+ (message-header-cc ((t (:foreground "#333" :weight normal)))))
(after! mml-sec
(setq mml-secure-openpgp-encrypt-to-self t