Return the group/article number, so that Gnus `^' works as expected.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c694baa..9f98123 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
        (nnimap-fetch-partial-articles): New variable.
        (nnimap-open-connection): When looking for credentials, also use the
        nnimap-server-port.
+       (nnimap-request-article): Return the group/article number, so that Gnus
+       `^' works as expected.
 
        * gnus.el (gnus-similar-server-opened): Refactor a bit and add
        comments.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index dbc16a2..e3c9d90 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -358,7 +358,7 @@ textual parts.")
                (goto-char (+ (point) bytes))
                (delete-region (point) (point-max))
                (nnheader-ms-strip-cr))
-             t)))))))
+             (cons group article))))))))
 
 (defun nnimap-find-wanted-parts (structure)
   (let ((nnimap-level 1))