procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simplify message-make-expires

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2021-12-05 18:39:28 -08:00
parent f4d7ca73e3
commit 084f440571
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/message.el
View file

@ -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."