Function: smtpmail-command-or-throw

smtpmail-command-or-throw is a byte-compiled function defined in smtpmail.el.gz.

Signature

(smtpmail-command-or-throw PROCESS STRING &optional CODE)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/smtpmail.el.gz
(defun smtpmail-command-or-throw (process string &optional code)
  (let (ret)
    (smtpmail-send-command process string)
    (unless (smtpmail-ok-p (setq ret (smtpmail-read-response process))
			   code)
      (throw 'done (format "%s in response to %s"
			   (smtpmail-response-text ret)
			   string)))
    ret))