From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 28 Sep 2019 19:30:19 +0000 (+0200)
Subject: Clean up nnimap-split-incoming-mail slightly
X-Git-Tag: emacs-27.0.90~1389
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb50aaa325aee980cdaeaa2358f4f54db5eb71fe;p=emacs.git

Clean up nnimap-split-incoming-mail slightly

* lisp/gnus/nnimap.el (nnimap-split-incoming-mail): Don't call
-delete-articles on empty lists (bug#37541).
---

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 839399859de..baf2f9f4771 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1125,6 +1125,7 @@ If LIMIT, first try to limit the search to the N last articles."
 
 (defun nnimap-delete-article (articles)
   "Delete ARTICLES."
+  (debug articles)
   (with-current-buffer (nnimap-buffer)
     (nnimap-command "UID STORE %s +FLAGS.SILENT (\\Deleted)"
 		    (nnimap-article-ranges articles))
@@ -2177,7 +2178,8 @@ Return the server's response to the SELECT or EXAMINE command."
 	      ;; and possibly expunge them.
               (nnimap-delete-article
                (nnimap-parse-copied-articles sequences)))
-            (nnimap-delete-article junk-articles)))))))
+	    (when junk-articles
+              (nnimap-delete-article junk-articles))))))))
 
 (defun nnimap-parse-copied-articles (sequences)
   (let (sequence copied range)