Function: sc-attribs-!-addresses

sc-attribs-!-addresses is a byte-compiled function defined in supercite.el.gz.

Signature

(sc-attribs-!-addresses FROM)

Documentation

Extract the author's email terminus from email address FROM.

Match addresses of the style "[stuff]![stuff]...!name[stuff]."

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-attribs-!-addresses (from)
  "Extract the author's email terminus from email address FROM.
Match addresses of the style \"[stuff]![stuff]...!name[stuff].\""
  (let ((eos (length from))
	(mstart (string-match "![-[:alnum:]_.]+\\([^-![:alnum:]_.]\\|$\\)"
			      from 0))
	(mend (match-end 0)))
    (and mstart
	 (substring from (1+ mstart) (- mend (if (= mend eos) 0 1))))))