branch: externals/ebdb-gnorb
commit c7c9bd518b332e913d45a2fd70fd09813d833e16
Author: Paul Eggert <egg...@cs.ucla.edu>
Commit: Paul Eggert <egg...@cs.ucla.edu>
Simplify/port ebdb-gnorb-lapsed-days
* packages/ebdb-gnorb/ebdb-gnorb.el (ebdb-gnorb-lapsed-days):
Update from article-lapsed-string, so as not to assume
internal structure of Elisp timestamps. This should work
better with future Emacs versions.
---
ebdb-gnorb.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/ebdb-gnorb.el b/ebdb-gnorb.el
index f210737..8a54fc9 100644
--- a/ebdb-gnorb.el
+++ b/ebdb-gnorb.el
@@ -128,10 +128,8 @@ message was received."
;; dates in the future, though that's stupid.
(let* ((now (current-time))
(delta (time-subtract now date))
- (real-sec (and delta
- (+ (* (float (car delta)) 65536)
- (cadr delta))))
- (sec (and delta (abs real-sec))))
+ (real-sec (float-time delta))
+ (sec (abs real-sec)))
(floor (/ sec 86400))))
(cl-defmethod ebdb-fmt-field ((_fmt ebdb-formatter-ebdb)
