Re: gnus + imap gssapi authentication

[Lars Magne Ingebrigtsen <larsi@gnus.org>]

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/