Function: mh-alias-filenames

mh-alias-filenames is a byte-compiled function defined in mh-alias.el.gz.

Signature

(mh-alias-filenames ARG)

Documentation

Return list of filenames that contain aliases.

The filenames come from the Aliasfile profile component and are expanded. If ARG is non-nil, filenames listed in mh-alias-system-aliases are appended.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-alias.el.gz
(defun mh-alias-filenames (arg)
  "Return list of filenames that contain aliases.
The filenames come from the Aliasfile profile component and are
expanded.
If ARG is non-nil, filenames listed in `mh-alias-system-aliases' are
appended."
  (or mh-progs (mh-find-path))
  (save-excursion
    (let* ((filename (mh-profile-component "Aliasfile"))
           (filelist (and filename (split-string filename "[ \t]+")))
           (userlist
            (mapcar
             (lambda (file)
               (if (and mh-user-path file
                        (file-exists-p (expand-file-name file mh-user-path)))
                   (expand-file-name file mh-user-path)))
             filelist)))
      (if arg
          (if (stringp mh-alias-system-aliases)
              (append userlist (list mh-alias-system-aliases))
            (append userlist mh-alias-system-aliases))
        userlist))))