branch: elpa/vm
commit 35354850611192e68ddf29b12fb5e9b9e7d4a4b5
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
vm-imap|pop.el (vm-expunge-imap|pop-messages): Fix misuse of `nreverse`
---
lisp/vm-imap.el | 2 +-
lisp/vm-pop.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/vm-imap.el b/lisp/vm-imap.el
index 0747439ad0..38730bdca3 100644
--- a/lisp/vm-imap.el
+++ b/lisp/vm-imap.el
@@ -940,7 +940,7 @@ on all the relevant IMAP servers and then immediately
expunges."
(if (zerop delete-count) "No" delete-count)
(if (= delete-count 1) "" "s")))
(insert "VM had problems expunging messages from:\n")
- (nreverse trouble)
+ (setq trouble (nreverse trouble))
(setq mp trouble)
(while mp
(insert " " (car mp) "\n")
diff --git a/lisp/vm-pop.el b/lisp/vm-pop.el
index 20758e130e..cb0cf3b404 100644
--- a/lisp/vm-pop.el
+++ b/lisp/vm-pop.el
@@ -410,7 +410,7 @@ relevant POP servers to remove the messages."
(if (zerop delete-count) "No" delete-count)
(if (= delete-count 1) "" "s")))
(insert "VM had problems expunging messages from:\n")
- (nreverse trouble)
+ (setq trouble (nreverse trouble))
(setq mp trouble)
(while mp
(insert " " (car mp) "\n")
