pipe, or t or `pty' to use a pty. The value has no effect if the
system has no ptys or if all ptys are busy: then a pipe is used
in any case. The value takes effect when a IMAP server is
-opened, changing it after that has no effect.."
+opened, changing it after that has no effect."
+ :version "21.4"
:group 'imap
:type 'boolean)
kerberos4
digest-md5
cram-md5
- sasl
+ ;;sasl
login
anonymous)
"Priority of authenticators to consider when authenticating to server.")
(message "imap: Opening SSL connection with `%s'..." cmd)
(erase-buffer)
(let ((port (or port imap-default-ssl-port))
- (process-connection-type nil)
+ (process-connection-type imap-process-connection-type)
process)
(when (prog1
(setq process (as-binary-process
(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)
(when (eq (char-after) ?\))
(imap-forward)
(nreverse addresses)))
- (assert (imap-parse-nil) t "In imap-parse-address-list")))
+ ;; With assert, the code might not be eval'd.
+ ;; (assert (imap-parse-nil) t "In imap-parse-address-list")
+ (imap-parse-nil)))
;; mailbox = "INBOX" / astring
;; ; INBOX is case-insensitive. All case variants of
(imap-forward)
(push (imap-parse-string-list) dsp)
(imap-forward))
- (assert (imap-parse-nil) t "In imap-parse-body-ext"))
+ ;; With assert, the code might not be eval'd.
+ ;; (assert (imap-parse-nil) t "In imap-parse-body-ext")
+ (imap-parse-nil))
(push (nreverse dsp) ext))
(when (eq (char-after) ?\ ) ;; body-fld-lang
(imap-forward)