From de5ef4d1f5811942a8941759be0dc2bcd1669029 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 24 Mar 2023 16:55:55 -0700 Subject: avoid redundant prompting regarding number of articles to fetch --- .emacs.d/init.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 49eac9ae..3881a049 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -3324,19 +3324,21 @@ mutt's review view, after exiting EDITOR." 'gnus-summary-prepared-hook (lambda () (add-hook 'gnus-summary-prepare-exit-hook del nil t))))) (gnus)) - (gnus-group-read-ephemeral-group - (concat "nnselect-" (message-unique-id)) (list 'nnselect "nnselect") - nil (cons (current-buffer) gnus-current-window-configuration) nil nil - `((score-file . "all.SCORE") (adapt-file . "all.ADAPT") - (gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-number)) - (nnselect-specs - . ((nnselect-function . gnus-search-run-query) - (nnselect-args - . ((search-group-spec ("nnmaildir:fmail")) - (search-query-spec - (thread . ,thread) (query . ,query) (raw . t) - (limit . ,(cl-case limit (0 nil) ((nil) 200) (t limit)))))))) - (nnselect-artlist . nil)))) + (let ((gnus-large-ephemeral-newsgroup + (and (eql limit 0) gnus-large-ephemeral-newsgroup))) + (gnus-group-read-ephemeral-group + (concat "nnselect-" (message-unique-id)) (list 'nnselect "nnselect") + nil (cons (current-buffer) gnus-current-window-configuration) nil nil + `((score-file . "all.SCORE") (adapt-file . "all.ADAPT") + (gnus-thread-sort-functions '(gnus-thread-sort-by-most-recent-number)) + (nnselect-specs + . ((nnselect-function . gnus-search-run-query) + (nnselect-args + . ((search-group-spec ("nnmaildir:fmail")) + (search-query-spec + (thread . ,thread) (query . ,query) (raw . t) + (limit . ,(cl-case limit (0 nil) ((nil) 200) (t limit)))))))) + (nnselect-artlist . nil))))) (global-set-key "\C-cgm" #'spw/gnus-notmuch-ephemeral-search) ;; Adapted from chiark:~matthewv/.gnus and originally from -- cgit v1.2.3