diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-28 21:30:19 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-28 21:30:19 +0200 |
| commit | bb50aaa325aee980cdaeaa2358f4f54db5eb71fe (patch) | |
| tree | 83dc37555fed43ddb71630878cfe400803ff0246 | |
| parent | c49e36e67e127417782770d63afc378cd232344e (diff) | |
| download | emacs-bb50aaa325aee980cdaeaa2358f4f54db5eb71fe.tar.gz | |
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).
| -rw-r--r-- | lisp/gnus/nnimap.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |