diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2019-04-05 04:25:06 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2019-04-05 04:25:06 +0000 |
| commit | 9da8f22de09c73e9557161fd7bb189138ce1fe2f (patch) | |
| tree | 3daa74e40e94fbb65f28975d45f3fdeb5eb56b3d | |
| parent | a68c96863289d5d8ccfc2f775d0018a2721c5e53 (diff) | |
| download | emacs-9da8f22de09c73e9557161fd7bb189138ce1fe2f.tar.gz | |
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).
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index f5853a24305..21f0e5951cc 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)) |