diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-18 13:29:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-07-18 13:47:13 -0700 |
| commit | 5be25bb753e61fb381a347246f5a74411cafda91 (patch) | |
| tree | 1b51b0bdfbdcc6a8c4817c419164a3fd4a2cea85 | |
| parent | 7972e0ce61853759f48350b8d2d773800e1d5ad0 (diff) | |
| download | dotfiles-5be25bb753e61fb381a347246f5a74411cafda91.tar.gz | |
spw/gnus-fastmail-learn-spam: mark as read & advance point
| -rw-r--r-- | .emacs.d/init.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 9154e12e..d46fd2f2 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -3205,7 +3205,9 @@ mutt's review view, after exiting EDITOR." (defun spw/gnus-fastmail-learn-spam (n) (interactive "p") - (gnus-summary-move-article n "nnmaildir+fmail:spam")) + (save-excursion (gnus-summary-mark-forward n)) + (gnus-summary-move-article n "nnmaildir+fmail:spam") + (gnus-summary-next-unread-article)) (with-eval-after-load 'gnus-sum (define-key gnus-summary-mode-map [f5] #'spw/gnus-fastmail-learn-spam)) |