Re: gnus + imap gssapi authentication

[Lars Magne Ingebrigtsen]

Enrico Scholz <enrico.scholz@informatik.tu-chemnitz.de> writes:

> With old gnus (e.g. with this from emacs-23.1), my krb5 credentials were
> used. Now, I am asked for username + password.

Sorry; gssapi (and some other authenticators) fell by the wayside during
the reimplementation of nnimap.el, since I didn't have any servers to
test with, or anybody who could test stuff for me.

Could you try applying the following patch and see whether that works?

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 83100a5..70151a8 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -100,7 +100,8 @@ Uses the same syntax as `nnmail-split-methods'.")
 
 (defvoo nnimap-authenticator nil
   "How nnimap authenticate itself to the server.
-Possible choices are nil (use default methods) or `anonymous'.")
+Possible choices are nil (use default methods), `gssapi' or
+`anonymous'.")
 
 (defvoo nnimap-expunge t
   "If non-nil, expunge articles after deleting them.
@@ -391,19 +392,22 @@ textual parts.")
       (when nnimap-server-port
        (push nnimap-server-port ports))
       (let* ((stream-list
-             (open-protocol-stream
-              "*nnimap*" (current-buffer) nnimap-address
-              (nnimap-map-port (car ports))
-              :type nnimap-stream
-              :return-list t
-              :shell-command nnimap-shell-program
-              :capability-command "1 CAPABILITY\r\n"
-              :end-of-command "\r\n"
-              :success " OK "
-              :starttls-function
-              (lambda (capabilities)
-                (when (gnus-string-match-p "STARTTLS" capabilities)
-                  "1 STARTTLS\r\n"))))
+             (if (eq nnimap-authenticator 'gssapi)
+                 (open-protocol-stream
+                  "*nnimap*" (current-buffer) nnimap-address nnimap-user)
+               (open-protocol-stream
+                "*nnimap*" (current-buffer) nnimap-address
+                (nnimap-map-port (car ports))
+                :type nnimap-stream
+                :return-list t
+                :shell-command nnimap-shell-program
+                :capability-command "1 CAPABILITY\r\n"
+                :end-of-command "\r\n"
+                :success " OK "
+                :starttls-function
+                (lambda (capabilities)
+                  (when (gnus-string-match-p "STARTTLS" capabilities)
+                    "1 STARTTLS\r\n")))))
             (stream (car stream-list))
             (props (cdr stream-list))
             (greeting (plist-get props :greeting))


-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/