[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master bb50aaa 1/2: Clean up nnimap-split-incoming-mail sl
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master bb50aaa 1/2: Clean up nnimap-split-incoming-mail slightly |
Date: |
Sat, 28 Sep 2019 15:36:27 -0400 (EDT) |
branch: master
commit bb50aaa325aee980cdaeaa2358f4f54db5eb71fe
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/gnus/nnimap.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 8393998..baf2f9f 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)