From: Lars Magne Ingebrigtsen Date: Fri, 26 Nov 2010 01:27:37 +0000 (+0000) Subject: nnimap.el (nnimap-find-uid-response): The UID is the last element in the list. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~45^2~111 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17dd22813f2fbf929a6e8e75966d097a6f4a2334;p=emacs.git nnimap.el (nnimap-find-uid-response): The UID is the last element in the list. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 85c9ffb7b9f..7769a9c6131 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -6,6 +6,7 @@ (nnimap-request-accept-article): Use the UID returned, if any. (nnimap-request-move-article): Use the UID returned, if any. (nnimap-get-groups): Reimplement to work with folded lines. + (nnimap-find-uid-response): The UID is the last element in the list. 2010-11-25 Katsumi Yamaoka diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 63a1115bd0f..97889bb0a64 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -984,7 +984,7 @@ textual parts.") group message-id))))))))) (defun nnimap-find-uid-response (name list) - (let ((result (nth 2 (nnimap-find-response-element name list)))) + (let ((result (car (last (nnimap-find-response-element name list))))) (and result (string-to-number result))))