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

(gnus-inews-date): Avoid race condition.

Browse source
This commit is contained in:
Karl Heuer 1996-05-28 15:43:27 +00:00
parent f81911b650
commit fb052aac91
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus-msg.el
View file

@ -1383,8 +1383,12 @@ domain is undefined, the domain name is got from it."
(defun gnus-inews-date ()
"Current time string."
(timezone-make-date-arpa-standard
(current-time-string) (current-time-zone)))
;; 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)))
(timezone-make-date-arpa-standard
(current-time-string now) (current-time-zone now))))
(defun gnus-inews-organization ()
"Return user's organization.