Function: smtpmail-response-code

smtpmail-response-code is a byte-compiled function defined in smtpmail.el.gz.

Signature

(smtpmail-response-code STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/smtpmail.el.gz
(defun smtpmail-response-code (string)
  (when string
    (with-temp-buffer
      (insert string)
      (goto-char (point-min))
      (and (re-search-forward "^\\([0-9]+\\) " nil t)
	   (string-to-number (match-string 1))))))