master 084f440 06/13: Simplify message-make-expires

[Paul Eggert]

branch: master
commit 084f440571694ec14ea5def4191861bdb5854ea0
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Simplify message-make-expires
    
    * lisp/gnus/message.el (message-make-expires):
    Use time-add instead of doing it by hand.  This also calculates the
    expiration time more accurately than the old code did.
---
 lisp/gnus/message.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 8e7983a..c2d1429 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5948,12 +5948,9 @@ In posting styles use `(\"Expires\" (make-expires-date 
30))'."
 
 (defun message-make-expires ()
   "Return an Expires header based on `message-expires'."
-  (let ((current (current-time))
-       (future (* 1.0 message-expires 60 60 24)))
+  (let ((future (* 60 60 24 message-expires)))
     ;; Add the future to current.
-    (setcar current (+ (car current) (round (/ future (expt 2 16)))))
-    (setcar (cdr current) (+ (nth 1 current) (% (round future) (expt 2 16))))
-    (message-make-date current)))
+    (message-make-date (time-add nil future))))
 
 (defun message-make-path ()
   "Return uucp path."