Changes committed gnus/lisp (ChangeLog imap.el)

Modified: ChangeLog imap.el

(imap-authenticate): Use current-buffer instead of buffer,
for the cases where imap-authenticate is called with a nil buffer
parameter.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1718 gnus/lisp/ChangeLog:7.1719
--- ChangeLog:7.1718	Wed Dec 19 10:07:04 2007
+++ ChangeLog	Thu Dec 20 23:32:43 2007
@@ -1,3 +1,9 @@
+2007-12-21  Teodor Zlatanov  <[email protected]>
+
+	* imap.el (imap-authenticate): Use current-buffer instead of buffer,
+	for the cases where imap-authenticate is called with a nil buffer
+	parameter.
+
 2007-12-19  Katsumi Yamaoka  <[email protected]>
 
 	* gnus-art.el (gnus-article-browse-html-parts): Work for two or more
Index: imap.el
diff -u gnus/lisp/imap.el:7.38 gnus/lisp/imap.el:7.39
--- imap.el:7.38	Sun Dec  9 22:27:14 2007
+++ imap.el	Thu Dec 20 23:32:43 2007
@@ -1177,18 +1177,18 @@
       (if passwd (setq imap-password passwd))
       (if imap-auth
 	  (and (funcall (nth 2 (assq imap-auth
-				     imap-authenticator-alist)) buffer)
+				     imap-authenticator-alist)) (current-buffer))
 	       (setq imap-state 'auth))
 	;; Choose authenticator.
 	(let ((auths imap-authenticators)
 	      auth)
 	  (while (setq auth (pop auths))
 	    ;; OK to use authenticator?
-	    (when (funcall (nth 1 (assq auth imap-authenticator-alist)) buffer)
+	    (when (funcall (nth 1 (assq auth imap-authenticator-alist)) (current-buffer))
 	      (message "imap: Authenticating to `%s' using `%s'..."
 		       imap-server auth)
 	      (setq imap-auth auth)
-	      (if (funcall (nth 2 (assq auth imap-authenticator-alist)) buffer)
+	      (if (funcall (nth 2 (assq auth imap-authenticator-alist)) (current-buffer))
 		  (progn
 		    (message "imap: Authenticating to `%s' using `%s'...done"
 			     imap-server auth)