diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-10 10:21:24 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 18:37:33 -0700 |
| commit | 201906c49be1d59e8ffc44e6ab28fc9900cbb40a (patch) | |
| tree | 84521dda91bd4b680f002320fae25fa2cd9ef943 | |
| parent | fecb7fa461da151984f4397dee4c92a05002ee65 (diff) | |
| download | dotfiles-201906c49be1d59e8ffc44e6ab28fc9900cbb40a.tar.gz | |
set some miscellaneous Gnus and mail settings
| -rw-r--r-- | .emacs.d/init.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 5d1b1041..5ca307c7 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -202,11 +202,15 @@ windows side-by-side in the frame." '(gdb-many-windows t) '(global-so-long-mode t) '(gnus-always-read-dribble-file t) + '(gnus-article-skip-boring t) + '(gnus-auto-center-summary nil) + '(gnus-auto-select-next 'slightly-quietly) '(gnus-buttonized-mime-types '("text/x-\\(?:diff\\|patch\\)")) '(gnus-directory "~/local/News/") '(gnus-extra-headers '(To Cc List-Id)) '(gnus-gcc-mark-as-read t) '(gnus-kill-files-directory "~/doc/News/") + '(gnus-kill-summary-on-exit nil) '(gnus-large-ephemeral-newsgroup 8000) '(gnus-large-newsgroup 8000) '(gnus-mark-article-hook '(spw/gnus-mark-article-hook)) @@ -269,6 +273,8 @@ windows side-by-side in the frame." '(message-sendmail-envelope-from 'header nil nil "Bypass MTA rewriting user@localhost.") '(minibuffer-follows-selected-frame nil) '(mm-default-directory "~/tmp/") + '(mm-file-name-rewrite-functions + '(mm-file-name-delete-control mm-file-name-delete-gotchas mm-file-name-trim-whitespace mm-file-name-collapse-whitespace mm-file-name-replace-whitespace)) '(mml-secure-openpgp-encrypt-to-self t nil nil "So I can read copies in my sent mail directory.") '(mml-secure-openpgp-sign-with-sender t) '(mode-line-compact 'long) @@ -2849,6 +2855,11 @@ mutt's review view, after exiting EDITOR." (spw/nm| (mapcar #'cdr process-groups))) (require 'gnus) (require 'nnselect) (unless (gnus-alive-p) (gnus-no-server)) + ;; Kill dead summary, if one exists, in case its query has changed. + (catch 'done + (dolist (buffer (buffer-list)) + (when (buffer-local-value 'gnus-dead-summary-mode buffer) + (throw 'done (kill-buffer buffer))))) (with-current-buffer gnus-group-buffer (gnus-topic-mode 0) (cl-loop |