aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gnus/nnimap.el4
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."
1125 1125
1126(defun nnimap-delete-article (articles) 1126(defun nnimap-delete-article (articles)
1127 "Delete ARTICLES." 1127 "Delete ARTICLES."
1128 (debug articles)
1128 (with-current-buffer (nnimap-buffer) 1129 (with-current-buffer (nnimap-buffer)
1129 (nnimap-command "UID STORE %s +FLAGS.SILENT (\\Deleted)" 1130 (nnimap-command "UID STORE %s +FLAGS.SILENT (\\Deleted)"
1130 (nnimap-article-ranges articles)) 1131 (nnimap-article-ranges articles))
@@ -2177,7 +2178,8 @@ Return the server's response to the SELECT or EXAMINE command."
2177 ;; and possibly expunge them. 2178 ;; and possibly expunge them.
2178 (nnimap-delete-article 2179 (nnimap-delete-article
2179 (nnimap-parse-copied-articles sequences))) 2180 (nnimap-parse-copied-articles sequences)))
2180 (nnimap-delete-article junk-articles))))))) 2181 (when junk-articles
2182 (nnimap-delete-article junk-articles))))))))
2181 2183
2182(defun nnimap-parse-copied-articles (sequences) 2184(defun nnimap-parse-copied-articles (sequences)
2183 (let (sequence copied range) 2185 (let (sequence copied range)