(nnimap-request-set-mark): Erase the buffer before issuing commands.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1aa6128..c84d752 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * nnimap.el (nnimap-open-connection): Revert the auto-network->starttls
        code, since if the user has requested network, that's what they ought
        to get.
+       (nnimap-request-set-mark): Erase the buffer before issuing commands.
 
        * pop3.el (pop3-send-streaming-command, pop3-stream-length): New
        variable.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 618db2b..a7cafb1 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -766,6 +766,7 @@ textual parts.")
   (when (nnimap-possibly-change-group group server)
     (let (sequence)
       (with-current-buffer (nnimap-buffer)
+       (erase-buffer)
        ;; Just send all the STORE commands without waiting for
        ;; response.  If they're successful, they're successful.
        (dolist (action actions)
@@ -1338,6 +1339,7 @@ textual parts.")
 (defun nnimap-mark-and-expunge-incoming (range)
   (when range
     (setq range (nnimap-article-ranges range))
+    (erase-buffer)
     (let ((sequence
           (nnimap-send-command
            "UID STORE %s +FLAGS.SILENT (\\Deleted)" range)))