From: Andrew G Cohen Date: Sun, 13 Mar 2022 23:47:39 +0000 (+0800) Subject: Track article while moving between gnus groups X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69f20365543f30263b9c6856071d5a8610490a24;p=emacs.git 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. --- 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))