Mercurial > emacs
changeset 111720:cb1fa19c3f33
nnimap.el (nnimap-find-uid-response): The UID is the last element in the list.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 26 Nov 2010 01:27:37 +0000 |
| parents | 2ec43a7063b3 |
| children | 7bb815042e61 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnimap.el |
| diffstat | 2 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Nov 26 01:14:40 2010 +0000 +++ b/lisp/gnus/ChangeLog Fri Nov 26 01:27:37 2010 +0000 @@ -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 <yamaoka@jpl.org>
--- a/lisp/gnus/nnimap.el Fri Nov 26 01:14:40 2010 +0000 +++ b/lisp/gnus/nnimap.el Fri Nov 26 01:27:37 2010 +0000 @@ -984,7 +984,7 @@ 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))))