Function: sasl-find-mechanism

sasl-find-mechanism is a byte-compiled function defined in sasl.el.gz.

Signature

(sasl-find-mechanism MECHANISMS)

Documentation

Retrieve an appropriate mechanism object from MECHANISMS hints.

Source Code

;; Defined in /usr/src/emacs/lisp/net/sasl.el.gz
(defun sasl-find-mechanism (mechanisms)
  "Retrieve an appropriate mechanism object from MECHANISMS hints."
  (let* ((sasl-mechanisms sasl-mechanisms)
	 (mechanism
	  (catch 'done
	    (while sasl-mechanisms
	      (if (member (car sasl-mechanisms) mechanisms)
		  (throw 'done (nth 1 (assoc (car sasl-mechanisms)
					     sasl-mechanism-alist))))
	      (setq sasl-mechanisms (cdr sasl-mechanisms))))))
    (if mechanism
	(require mechanism))
    (get mechanism 'sasl-mechanism)))