Synch to No Gnus 200405180015.

[elisp/gnus.git-] / lisp / imap.el

diff --git a/lisp/imap.el b/lisp/imap.el
index 6eb8d51..135c0c0 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -296,7 +296,7 @@ stream.")
                              kerberos4
                              digest-md5
                              cram-md5
-                             sasl
+                             ;;sasl
                              login
                              anonymous)
   "Priority of authenticators to consider when authenticating to server.")
@@ -905,6 +905,11 @@ Returns t if login was successful, nil otherwise."
                (concat "LOGIN anonymous \"" (concat (user-login-name) "@"
                                                     (system-name)) "\"")))))
 
+;;; Compiler directives.
+
+(defvar imap-sasl-client)
+(defvar imap-sasl-step)
+
 (defun imap-sasl-make-mechanisms (buffer)
   (let ((mecs '()))
     (mapc (lambda (sym)