[gnus git] branch master updated: n0-15-23-g431eb51 =1= * gssapi.el (open-gssapi-stream): Remove the last mentions of the IMAP stuff.

       via  431eb51d120f2fa3180a77fb9cc103fe815302e0 (commit)
      from  84dd30f04ce233732f1320d7f619749bcb21b6f2 (commit)


- Log -----------------------------------------------------------------
commit 431eb51d120f2fa3180a77fb9cc103fe815302e0
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Tue Mar 29 23:48:43 2011 +0200

    * gssapi.el (open-gssapi-stream): Remove the last mentions of the IMAP stuff.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b737e9..36bce1e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-03-29  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* gssapi.el (open-gssapi-stream): Remove the last mentions of the IMAP
+	stuff.
+
 	* gnus-score.el (gnus-score-string): Fix calling convention of
 	`gnus-simplify-buffer-fuzzy' after last patches.
 
diff --git a/lisp/gssapi.el b/lisp/gssapi.el
index 3765fb8..e96c23b 100644
--- a/lisp/gssapi.el
+++ b/lisp/gssapi.el
@@ -33,14 +33,14 @@
 				   "--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."
   :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 +57,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 +92,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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    3 +++
 lisp/gssapi.el |   14 +++++++-------
 2 files changed, 10 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project