Function: mh-alias-tstamp

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

Signature

(mh-alias-tstamp ARG)

Documentation

Check whether alias files have been modified.

Return t if any file listed in the Aliasfile MH profile component has been modified since the timestamp. If ARG is non-nil, set timestamp with the current time.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-alias.el.gz
;;; Alias Loading

(defun mh-alias-tstamp (arg)
  "Check whether alias files have been modified.
Return t if any file listed in the Aliasfile MH profile component has
been modified since the timestamp.
If ARG is non-nil, set timestamp with the current time."
  (if arg
      (let ((time (current-time)))
        (setq mh-alias-tstamp (list (nth 0 time) (nth 1 time))))
    (let ((stamp))
      (car (memq t (mapcar
                    (lambda (file)
                      (when (and file (file-exists-p file))
                        (setq stamp (file-attribute-modification-time
                                     (file-attributes file)))
                        (time-less-p mh-alias-tstamp stamp)))
                    (mh-alias-filenames t)))))))