From 5be25bb753e61fb381a347246f5a74411cafda91 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 18 Jul 2022 13:29:39 -0700 Subject: spw/gnus-fastmail-learn-spam: mark as read & advance point --- .emacs.d/init.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- cgit v1.2.3