X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgssapi.el;h=b5c99098b372e566ba46ecc4f35dc3eaebb91fff;hb=d35146fa43e9e2d8d346073c3c0692162abf4759;hp=3765fb84ee8b647e0e123a7574a8cdd4ba0e70f1;hpb=a1c3446941d2c5ee7fcb5e7d19aae516b2af4240;p=gnus

diff --git a/lisp/gssapi.el b/lisp/gssapi.el
index 3765fb84e..b5c99098b 100644
--- a/lisp/gssapi.el
+++ b/lisp/gssapi.el
@@ -1,6 +1,6 @@
 ;;; gssapi.el --- GSSAPI/Kerberos 5 interface for Emacs
 
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 ;;         Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -33,14 +33,15 @@
 				   "--authentication-id %l")
 			   "imtest -m gssapi -u %l -p %p %s")
   "List of strings containing commands for GSSAPI (krb5) authentication.
-%s is replaced with server hostname, %p with port to connect to, and
-%l with the value of `imap-default-user'.  The program should accept
-IMAP commands on stdin and return responses to stdout.  Each entry in
-the list is tried until a successful connection is made."
+%s is replaced with server hostname, %p with port to connect to,
+and %l with the user name.  The program should accept commands on
+stdin and return responses to stdout.  Each entry in the list is
+tried until a successful connection is made."
+  :version "24.1"
   :group 'network
   :type '(repeat string))
 
-(defun open-gssapi-stream (name buffer server port)
+(defun open-gssapi-stream (name buffer server port user)
   (let ((cmds gssapi-program)
 	cmd done)
     (with-current-buffer buffer
@@ -57,7 +58,7 @@ the list is tried until a successful connection is made."
 			  (format-spec-make
 			   ?s server
 			   ?p (number-to-string port)
-			   ?l imap-default-user))))
+			   ?l user))))
 	       response)
 	  (when process
 	    (while (and (memq (process-status process) '(open run))
@@ -92,7 +93,7 @@ the list is tried until a successful connection is made."
 	      (accept-process-output process 1)
 	      (sit-for 1))
 	    (erase-buffer)
-	    (message "GSSAPI IMAP connection: %s" (or response "failed"))
+	    (message "GSSAPI connection: %s" (or response "failed"))
 	    (if (and response (let ((case-fold-search nil))
 				(not (string-match "failed" response))))
 		(setq done process)