From 2deded7013ceb98335e3a0fc446f23a4bbf53de5 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 15 Apr 2023 11:05:13 -0700 Subject: use A T, not A W, to view the rest of an article's thread --- .emacs.d/init.el | 15 ++------------- 1 file 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) -- cgit v1.2.3