Problem with expiry-wait set to never on imap

[csanchezdll@gmail.com (Carlos Sánchez de La Lama)]

Hi all,

I have found a problem when setting expiry-wait to never for an imap
group. My messages were still being expired. After some investigation I
think the problem is at this defun:

--8<---------------cut here---------------start------------->8---
(defun nnimap-find-expired-articles (group)
  (let ((cutoff (nnmail-expired-article-p group nil nil)))
    (with-current-buffer (nnimap-buffer)
      (let ((result
	     (nnimap-command
	      "UID SEARCH SENTBEFORE %s"
	      (format-time-string
	       (format "%%d-%s-%%Y"
		       (upcase
			(car (rassoc (nth 4 (decode-time cutoff))
				     parse-time-months))))
	       cutoff))))
	(and (car result)
	     (delete 0 (mapcar #'string-to-number
			       (cdr (assoc "SEARCH" (cdr result))))))))))
--8<---------------cut here---------------end--------------->8---

nnmail-expired-article-p will return nil for groups with expiry-wait
parameter set to never, but nnimap-find-expired-articles does not
checkfor such return value.

I have temporarily fixed it by placing in .gnus.el:

--8<---------------cut here---------------start------------->8---
(eval-after-load "nnimap"
  '(defun nnimap-find-expired-articles (group)
     (let ((cutoff (nnmail-expired-article-p group nil nil)))
       (if cutoff
           (with-current-buffer (nnimap-buffer)
             (let ((result
                    (nnimap-command
                     "UID SEARCH SENTBEFORE %s"
                     (format-time-string
                      (format "%%d-%s-%%Y"
                              (upcase
                               (car (rassoc (nth 4 (decode-time cutoff))
                                            parse-time-months))))
                      cutoff))))
               (and (car result)
                    (delete 0 (mapcar #'string-to-number
                                      (cdr (assoc "SEARCH" (cdr result))))))))))))
--8<---------------cut here---------------end--------------->8---

(note the check for cutoff being not-nil).

BR

Carlos