Store the IMAP greeting, so that we can tell what kind of server we're talking to.

This is for debugging purposes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f4c329f..629f4c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-open-connection): Record the greeting.
+       (nnimap): Add greeting.
+
 2010-09-26  Julien Danjou  <julien@danjou.info>
 
        * gnus-html.el (gnus-html-show-images): Fix gnus-html-display-image

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index df9b463..6c112fa 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -96,7 +96,7 @@ some servers.")
 
 (defstruct nnimap
   group process commands capabilities select-result newlinep server
-  last-command-time)
+  last-command-time greeting)
 
 (defvar nnimap-object nil)
 
@@ -317,6 +317,9 @@ some servers.")
            (nnheader-report 'nnimap
                             "%s" (buffer-substring
                                   (point) (line-end-position)))
+         (setf (nnimap-greeting nnimap-object)
+               (buffer-substring (line-beginning-position)
+                                 (line-end-position)))
          (when (eq nnimap-stream 'starttls)
            (nnimap-command "STARTTLS")
            (starttls-negotiate (nnimap-process nnimap-object)))