diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-04-15 11:05:13 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-04-16 13:07:22 -0700 |
commit | 2deded7013ceb98335e3a0fc446f23a4bbf53de5 (patch) | |
tree | f53a809f5dd2d53e9799b50153f240f8ba5c14df | |
parent | c06ac87783798796a79fb150ebc829ed0d282167 (diff) | |
download | dotfiles-2deded7013ceb98335e3a0fc446f23a4bbf53de5.tar.gz |
use A T, not A W, to view the rest of an article's thread
-rw-r--r-- | .emacs.d/init.el | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index bf994499..54765baa 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -250,6 +250,7 @@ windows side-by-side in the frame." '(gnus-message-archive-method '(nnmaildir "fmail" (directory "~/.fmail/"))) '(gnus-permanently-visible-groups "^nnmaildir\\+fmail:\\(?:notes\\|sent\\)$") '(gnus-read-newsrc-file nil) + '(gnus-refer-thread-use-search '(("nnmaildir:fmail"))) '(gnus-save-killed-list "^\\(?:[^n]\\|n[^n]\\|nn[^s]\\|nns[^e]\\|nnse[^l]\\|nnsel[^e]\\|nnsele[^c]\\|nnselec[^t]\\|nnselect[^:]\\)") '(gnus-save-newsrc-file nil) @@ -3323,7 +3324,7 @@ mutt's review view, after exiting EDITOR." (and current-prefix-arg (prefix-numeric-value current-prefix-arg)) ;; With (thread . t) messages not matching the search can easily ;; swamp the message(s) we're looking for. - ;; Instead, can type 'A W' to view whole threads. + ;; Instead, can type 'A T' to view whole threads. nil)) (require 'gnus) (if (gnus-alive-p) @@ -3891,18 +3892,6 @@ mutt's review view, after exiting EDITOR." "vm" #'spw/gnus-summary-save-all-attachments) (define-key gnus-summary-mode-map "vM" #'spw/gnus-summary-save-all-parts)) -(defun spw/gnus-warp-to-article () - (interactive) - (if (spw/gnus-specs-search-notmuch-p) - (let* ((mid (gnus-summary-header "message-id")) - (search (concat "id:" (string-trim mid "<" ">")))) - (spw/gnus-notmuch-ephemeral-search search 0 t) - (gnus-summary-goto-article mid)) - (gnus-warp-to-article))) -(with-eval-after-load 'gnus-sum - (define-key gnus-summary-mode-map - [remap gnus-warp-to-article] #'spw/gnus-warp-to-article)) - (defun spw/org-gnus-follow-link (orig-fun &optional group article) (if (not article) (apply orig-fun group nil) |