From 183a6951a6ea741ce3aa374a81e7d7ab099e5c12 Mon Sep 17 00:00:00 2001 From: Andrew Cohen Date: Tue, 21 Jun 2011 22:13:24 +0000 Subject: [PATCH] nnimap.el (nnimap-find-article-by-message-id): return nil when no article found. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nnimap.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 818440842cd..5a6ad584438 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -5,6 +5,11 @@ (auth-sources): Prefer the ~/.authinfo file over the ~/.authinfo.gpg file, especially when saving. +2011-06-21 Andrew Cohen + + * nnimap.el (nnimap-find-article-by-message-id): return nil when no + article found. + 2011-06-18 Teodor Zlatanov * auth-source.el (auth-source-netrc-use-gpg-tokens): Replace diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index dc8b38b8f9a..1bbd76f345e 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -929,7 +929,7 @@ textual parts.") (car (setq result (nnimap-parse-response)))) ;; Select the last instance of the message in the group. (and (setq article - (car (last (assoc "SEARCH" (cdr result))))) + (car (last (cdr (assoc "SEARCH" (cdr result)))))) (string-to-number article)))))) (defun nnimap-delete-article (articles) -- 2.39.2