diff options
| author | Daiki Ueno <ueno@unixuser.org> | 2008-12-03 06:16:18 +0000 |
|---|---|---|
| committer | Daiki Ueno <ueno@unixuser.org> | 2008-12-03 06:16:18 +0000 |
| commit | 97c07afc0fde63933a42c5e3563a9ad74b0096a5 (patch) | |
| tree | 3c106aeba08076756614e7ac3b5b96d88d9a1c9c /lisp/epa.el | |
| parent | e500c47d647f817257023a712cdc5e6f7bcdf0cb (diff) | |
| download | emacs-97c07afc0fde63933a42c5e3563a9ad74b0096a5.tar.gz | |
(epa--show-key): Use past tense of "expire" if the key
has already been expired. Thanks to Peter BARABAS.
Diffstat (limited to 'lisp/epa.el')
| -rw-r--r-- | lisp/epa.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/epa.el b/lisp/epa.el index 0f8f25206da..23dfeadcecf 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -586,7 +586,11 @@ If SECRET is non-nil, list secret keys instead of public keys." (epg-sub-key-creation-time (car pointer))) (error "????-??-??")) (if (epg-sub-key-expiration-time (car pointer)) - (format "\n\tExpires: %s" + (format (if (time-less-p (current-time) + (epg-sub-key-expiration-time + (car pointer))) + "\n\tExpires: %s" + "\n\tExpired: %s") (condition-case nil (format-time-string "%Y-%m-%d" (epg-sub-key-expiration-time |