Function: smtpmail-user-mail-address

smtpmail-user-mail-address is a byte-compiled function defined in smtpmail.el.gz.

Signature

(smtpmail-user-mail-address)

Documentation

Return user-mail-address if it's a valid email address.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/smtpmail.el.gz
(defun smtpmail-user-mail-address ()
  "Return `user-mail-address' if it's a valid email address."
  (and user-mail-address
       (let ((parts (split-string user-mail-address "@")))
	 (and (= (length parts) 2)
	      ;; There's a dot in the domain name.
	      (string-search "." (cadr parts))
	      user-mail-address))))