Re: master 69f20365543 1/4: Track article while moving between gnus groups

[Robert Pluim]

>>>>> On Fri, 31 Mar 2023 21:58:34 -0400 (EDT), Andrew G Cohen 
>>>>> <cohen@andy.bu.edu> said:

    Andrew> branch: master
    Andrew> commit 69f20365543f30263b9c6856071d5a8610490a24
    Andrew> Author: Andrew G Cohen <cohen@andy.bu.edu>
    Andrew> Commit: Andrew G Cohen <cohen@andy.bu.edu>

    Andrew>     Track article while moving between gnus groups
    
    Andrew>     * lisp/gnus/gnus-sum.el (gnus-current-move-article): New 
variable to
    Andrew>     track article while moving.
    Andrew>     (gnus-summary-move-article): Set gnus-current-move-article when
    Andrew>     moving/copying/crossposting or respooling.
    Andrew> ---
    Andrew>  lisp/gnus/gnus-sum.el | 2 ++
    Andrew>  1 file changed, 2 insertions(+)

    Andrew> diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
    Andrew> index 0e81f95cd15..f13db8d9167 100644
    Andrew> --- a/lisp/gnus/gnus-sum.el
    Andrew> +++ b/lisp/gnus/gnus-sum.el
    Andrew> @@ -1408,6 +1408,7 @@ the normal Gnus MIME machinery."
    Andrew>  (defvar gnus-newsgroup-adaptive-score-file nil)
    Andrew>  (defvar gnus-current-score-file nil)
    Andrew>  (defvar gnus-current-move-group nil)
    Andrew> +(defvar gnus-current-move-article nil)
    Andrew>  (defvar gnus-current-copy-group nil)
    Andrew>  (defvar gnus-current-crosspost-group nil)
    Andrew>  (defvar gnus-newsgroup-display nil)
    Andrew> @@ -10248,6 +10249,7 @@ ACTION can be either `move' (the default), 
`crosspost' or `copy'."
    Andrew>            article gnus-newsgroup-name (current-buffer) t)))
 
    Andrew>       ;; run the move/copy/crosspost/respool hook
    Andrew> +     (set (intern "gnus-current-move-article") (cdr art-group))

Whatʼs wrong with plain olʼ

    (setq gnus-current-move-article (cdr art-group))

I assume thereʼs going to be a follow-up patch, because I didnʼt see
any changes actually using this new defvar.

Robert
--