[Emacs-diffs] master 9da8f22: Make `move article' work again (bug#33653)

[Katsumi Yamaoka]

branch: master
commit 9da8f22de09c73e9557161fd7bb189138ce1fe2f
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    Make `move article' work again (bug#33653)
    
    * lisp/gnus/gnus-sum.el (gnus-summary-move-article): Back to while loop
    m dolist that blocks nov and active from saving (bug#33653).
---
 lisp/gnus/gnus-sum.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index f5853a2..21f0e59 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9979,7 +9979,7 @@ ACTION can be either `move' (the default), `crosspost' or 
`copy'."
                 (crosspost "Crosspost" "Crossposting")))
        (copy-buf (save-excursion
                    (nnheader-set-temp-buffer " *copy article*")))
-        art-group to-method new-xref to-groups
+       art-group to-method new-xref article to-groups
        articles-to-update-marks encoded)
     (unless (assq action names)
       (error "Unknown action %s" action))
@@ -10029,7 +10029,8 @@ ACTION can be either `move' (the default), `crosspost' 
or `copy'."
                  (or (car select-method)
                      (gnus-group-decoded-name to-newsgroup))
                  articles)
-    (dolist (article articles)
+    (while articles
+      (setq article (pop articles))
       ;; Set any marks that may have changed in the summary buffer.
       (when gnus-preserve-marks
        (gnus-summary-push-marks-to-backend article))