diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 08:18:21 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-11 18:37:33 -0700 |
commit | 13e1b91f9aa86ed2ef0343b20a13152bf9c27db6 (patch) | |
tree | ac049f8c934e17f93754aaec6eb2d87ec78d5404 | |
parent | f086d3be0c0766b4913626ee547bf98b6f4bcf2c (diff) | |
download | dotfiles-13e1b91f9aa86ed2ef0343b20a13152bf9c27db6.tar.gz |
factor out a call to spw/nm~ & reflow
-rw-r--r-- | .emacs.d/init.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 20ae6e2f..bfae928d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2826,12 +2826,11 @@ mutt's review view, after exiting EDITOR." ,@spw/other-process-groups)) (process-groups (cl-loop with never-process - = (spw/nm| spw/feed-sources - "folder:drafts" "folder:notes" "folder:sent") + = (spw/nm~ + (spw/nm| spw/feed-sources + "folder:drafts" "folder:notes" "folder:sent")) for (name . queries) in process-groups collect - (cons name - (spw/nm& (spw/nm| queries) - (spw/nm~ never-process))))) + (cons name (spw/nm& (spw/nm| queries) never-process)))) (browse-groups (named-let recurse (accum (remaining spw/browse-groups)) (cond ((null remaining) (nreverse accum)) |