From 97c07afc0fde63933a42c5e3563a9ad74b0096a5 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Wed, 3 Dec 2008 06:16:18 +0000 Subject: [PATCH] (epa--show-key): Use past tense of "expire" if the key has already been expired. Thanks to Peter BARABAS. --- lisp/ChangeLog | 5 +++++ lisp/epa.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0a55b4aa48..21f805ed537 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-12-03 Daiki Ueno + + * epa.el (epa--show-key): Use past tense of "expire" if the key + has already been expired. Thanks to Peter BARABAS. + 2008-12-03 Lute Kamstra * align.el: 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 -- 2.39.2