diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-24 16:55:55 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-04-16 13:07:22 -0700 |
| commit | de5ef4d1f5811942a8941759be0dc2bcd1669029 (patch) | |
| tree | 3c0d96f30465d3228d810a96e1ecf21e759ca71b | |
| parent | 519253b8a0f17ac7786c76eeeb33b0cf99b1787e (diff) | |
| download | dotfiles-de5ef4d1f5811942a8941759be0dc2bcd1669029.tar.gz | |
avoid redundant prompting regarding number of articles to fetch
| -rw-r--r-- | .emacs.d/init.el | 28 |
1 files 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 |