Function: mh-alias-address-to-alias

mh-alias-address-to-alias is an autoloaded and byte-compiled function defined in mh-alias.el.gz.

Signature

(mh-alias-address-to-alias ADDRESS)

Documentation

Return the ADDRESS alias if defined, or nil.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-alias.el.gz
;;;###mh-autoload
(defun mh-alias-address-to-alias (address)
  "Return the ADDRESS alias if defined, or nil."
  (let* ((aliases (mh-alias-ali address t)))
    (if (string-equal aliases address)
        nil                             ; ali returned same string -> no.
      ;; Double-check that we have an individual alias. This means that the
      ;; alias doesn't expand into a list (of which this address is part).
      (car (delq nil (mapcar
                      (lambda (alias)
                        (let ((recurse (mh-alias-ali alias nil)))
                          (if (string-match ".*,.*" recurse)
                              nil
                            alias)))
                      (split-string aliases ", +")))))))