mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

Clean up nnimap-split-incoming-mail slightly

Browse source 
* lisp/gnus/nnimap.el (nnimap-split-incoming-mail): Don't call
-delete-articles on empty lists (bug#37541).
This commit is contained in:
Lars Ingebrigtsen 2019-09-28 21:30:19 +02:00
parent c49e36e67e
commit bb50aaa325
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/nnimap.el
View file

@ -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)