Function: mh-select-identity

mh-select-identity is an autoloaded and byte-compiled function defined in mh-identity.el.gz.

Signature

(mh-select-identity DEFAULT)

Documentation

Prompt for and return an identity.

If DEFAULT is non-nil, it will be used if the user doesn't enter a different identity.

See mh-identity-list.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-identity.el.gz
;;;###mh-autoload
(defun mh-select-identity (default)
  "Prompt for and return an identity.
If DEFAULT is non-nil, it will be used if the user doesn't enter a
different identity.

See `mh-identity-list'."
  (let (identity)
    (setq identity
          (completing-read
           "Identity: "
           (cons '("None")
                 (mapcar #'list (mapcar #'car mh-identity-list)))
           nil t default nil default))
    (if (equal identity "None")
        nil
      identity)))