diff options
Diffstat (limited to 'lisp/mh-e/mh-alias.el')
| -rw-r--r-- | lisp/mh-e/mh-alias.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el index 7b44db60378..c6cdfc40c94 100644 --- a/lisp/mh-e/mh-alias.el +++ b/lisp/mh-e/mh-alias.el @@ -78,10 +78,9 @@ If ARG is non-nil, set timestamp with the current time." (function (lambda (file) (when (and file (file-exists-p file)) - (setq stamp (nth 5 (file-attributes file))) - (or (> (car stamp) (car mh-alias-tstamp)) - (and (= (car stamp) (car mh-alias-tstamp)) - (> (cadr stamp) (cadr mh-alias-tstamp))))))) + (setq stamp (file-attribute-modification-time + (file-attributes file))) + (time-less-p mh-alias-tstamp stamp)))) (mh-alias-filenames t))))))) (defun mh-alias-filenames (arg) @@ -339,7 +338,7 @@ NO-COMMA-SWAP is non-nil." ;; Two words -> first.last (downcase (format "%s.%s" (match-string 1 string) (match-string 2 string)))) - ((string-match "^\\([-a-zA-Z0-9._]+\\)@[-a-zA-z0-9_]+\\.+[a-zA-Z0-9]+$" + ((string-match "^\\([-a-zA-Z0-9._]+\\)@[-a-zA-Z0-9_]+\\.+[a-zA-Z0-9]+$" string) ;; email only -> downcase username (downcase (match-string 1 string))) |