mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

nnimap `never' expiration fix

Browse source 
* nnimap.el (nnimap-find-expired-articles): Fix handling of
(expiry-wait . never).
This commit is contained in:
Elias Oltmanns 2015-01-28 16:35:59 +11:00 • committed by Lars Magne Ingebrigtsen
parent 5491fd1098
commit 0cdd599c54
2 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2015-01-28 Elias Oltmanns <eo@nebensachen.de>
* nnimap.el (nnimap-find-expired-articles): Fix handling of
(expiry-wait . never).
2015-01-27 Lars Ingebrigtsen <larsi@gnus.org> 2015-01-27 Lars Ingebrigtsen <larsi@gnus.org>
* nnir.el (nnir-imap-expr-to-imap): Check for literal+ capability in * nnir.el (nnir-imap-expr-to-imap): Check for literal+ capability in

28
lisp/gnus/nnimap.el
View file

@ -1020,20 +1020,20 @@ textual parts.")
(defun nnimap-find-expired-articles (group) (defun nnimap-find-expired-articles (group)
(let ((cutoff (nnmail-expired-article-p group nil nil))) (let ((cutoff (nnmail-expired-article-p group nil nil)))
(with-current-buffer (nnimap-buffer) (when cutoff
(let ((result (with-current-buffer (nnimap-buffer)
(nnimap-command (let ((result
"UID SEARCH SENTBEFORE %s" (nnimap-command
(format-time-string "UID SEARCH SENTBEFORE %s"
(format "%%d-%s-%%Y" (format-time-string
(upcase (format "%%d-%s-%%Y"
(car (rassoc (nth 4 (decode-time cutoff)) (upcase
parse-time-months)))) (car (rassoc (nth 4 (decode-time cutoff))
cutoff)))) parse-time-months))))
(and (car result) cutoff))))
(delete 0 (mapcar #'string-to-number (and (car result)
(cdr (assoc "SEARCH" (cdr result)))))))))) (delete 0 (mapcar #'string-to-number
(cdr (assoc "SEARCH" (cdr result)))))))))))
(defun nnimap-find-article-by-message-id (group server message-id (defun nnimap-find-article-by-message-id (group server message-id
&optional limit) &optional limit)