mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

* gnus.el (gnus-article-date-ut): Avoid race condition.

Browse Source
This commit is contained in:
Karl Heuer 1996-05-28 15:42:20 +00:00
parent 36dcd43bf8
commit f81911b650
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/gnus.el
View File

@ -11287,12 +11287,16 @@ how much time has lapsed since DATE."
((eq type 'lapsed)
;; If the date is seriously mangled, the timezone
;; functions are liable to bug out, so we condition-case
;; the entire thing.
(let* ((real-sec (condition-case ()
;; the entire thing. We call (current-time) once, rather than
;; letting current-time-string and current-time-zone default to
;; it, because that avoids a rare race condition when the time
;; zone changes between those two calls.
(let* ((now (current-time))
(real-sec (condition-case ()
(- (gnus-seconds-since-epoch
(timezone-make-date-arpa-standard
(current-time-string)
(current-time-zone) "UT"))
(current-time-string now)
(current-time-zone now) "UT"))
(gnus-seconds-since-epoch
(timezone-make-date-arpa-standard
date nil "UT")))