Wording patch for the EasyPG Assistant.

[Peter BARABAS]

Hello,


This patch makes EPA use the appropriate form of "expire" when
displaying key details.



*** epa.el.orig 2008-08-26 05:11:45.000000000 +0200
--- epa.el      2008-12-02 12:46:33.000000000 +0100
*************** If SECRET is non-nil, list secret keys i
*** 586,597 ****
                                      (epg-sub-key-creation-time (car pointer)))
                (error "????-??-??"))
              (if (epg-sub-key-expiration-time (car pointer))
!                 (format "\n\tExpires: %s"
!                         (condition-case nil
!                             (format-time-string "%Y-%m-%d"
!                                                 (epg-sub-key-expiration-time
!                                                  (car pointer)))
!                           (error "????-??-??")))
                "")
              "\n\tCapabilities: "
              (mapconcat #'symbol-name
--- 586,602 ----
                                      (epg-sub-key-creation-time (car pointer)))
                (error "????-??-??"))
              (if (epg-sub-key-expiration-time (car pointer))
!                   (let ((suffix (if (time-less-p (current-time)
!
(epg-sub-key-expiration-time (car pointer)))
!                                     "s"
!                                     "d")))
!                     (format "\n\tExpire%s: %s"
!                             suffix
!                             (condition-case nil
!                                 (format-time-string "%Y-%m-%d"
!
(epg-sub-key-expiration-time
!                                                      (car pointer)))
!                               (error "????-??-??"))))
                "")
              "\n\tCapabilities: "
              (mapconcat #'symbol-name




Regards,

-- 
'(Yours parenthetically
"peter barabas")