[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3e5e097: Make `move article' work again (bug#33653)
From: |
Basil L. Contovounesios |
Subject: |
[Emacs-diffs] master 3e5e097: Make `move article' work again (bug#33653) |
Date: |
Mon, 8 Apr 2019 18:55:58 -0400 (EDT) |
branch: master
commit 3e5e097fdf056f4b3440993dd25ebdbad436abc3
Author: Katsumi Yamaoka <address@hidden>
Commit: Basil L. Contovounesios <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 fd72e1d..8959a2b 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -10038,7 +10038,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))
@@ -10088,7 +10088,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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3e5e097: Make `move article' work again (bug#33653),
Basil L. Contovounesios <=