Function: sasl-plain-response

sasl-plain-response is a byte-compiled function defined in sasl.el.gz.

Signature

(sasl-plain-response CLIENT STEP)

Source Code

;; Defined in /usr/src/emacs/lisp/net/sasl.el.gz
(defun sasl-plain-response (client _step)
  (let ((passphrase
	 (sasl-read-passphrase
	  (format "PLAIN passphrase for %s: " (sasl-client-name client))))
	(authenticator-name
	 (sasl-client-property
	  client 'authenticator-name))
	(name (sasl-client-name client)))
    (unwind-protect
	(if (and authenticator-name
		 (not (string= authenticator-name name)))
	    (concat authenticator-name "\0" name "\0" passphrase)
	  (concat "\0" name "\0" passphrase))
      (clear-string passphrase))))