From 69f20365543f30263b9c6856071d5a8610490a24 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Mon, 14 Mar 2022 07:47:39 +0800 Subject: [PATCH] Track article while moving between gnus groups * lisp/gnus/gnus-sum.el (gnus-current-move-article): New variable to track article while moving. (gnus-summary-move-article): Set gnus-current-move-article when moving/copying/crossposting or respooling. --- lisp/gnus/gnus-sum.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 0e81f95cd15..f13db8d9167 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -1408,6 +1408,7 @@ the normal Gnus MIME machinery." (defvar gnus-newsgroup-adaptive-score-file nil) (defvar gnus-current-score-file nil) (defvar gnus-current-move-group nil) +(defvar gnus-current-move-article nil) (defvar gnus-current-copy-group nil) (defvar gnus-current-crosspost-group nil) (defvar gnus-newsgroup-display nil) @@ -10248,6 +10249,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'." article gnus-newsgroup-name (current-buffer) t))) ;; run the move/copy/crosspost/respool hook + (set (intern "gnus-current-move-article") (cdr art-group)) (run-hook-with-args 'gnus-summary-article-move-hook action (gnus-data-header (gnus-data-find article)) -- 2.39.5