diff options
| -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." | |||
| 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) |