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

* lisp/gnus/nntp.el (nntp-request-newgroups): Simplify

Browse source
This commit is contained in:
Katsumi Yamaoka 2016-01-14 11:26:13 +00:00
parent 058f8a8d55
commit a53fc89480
1 changed files with 8 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/gnus/nntp.el
View file

@ -1115,24 +1115,14 @@ command whose response triggered the error."
(deffoo nntp-request-newgroups (date &optional server)
(nntp-with-open-group
nil server
(with-current-buffer nntp-server-buffer
(let* ((time (date-to-time date))
(ls (- (cadr time) (nth 8 (decode-time time)))))
(cond ((< ls 0)
(setcar time (1- (car time)))
(setcar (cdr time) (+ ls 65536)))
((>= ls 65536)
(setcar time (1+ (car time)))
(setcar (cdr time) (- ls 65536)))
(t
(setcar (cdr time) ls)))
(prog1
(nntp-send-command
"^\\.\r?\n" "NEWGROUPS"
(format-time-string "%y%m%d %H%M%S" time t)
"GMT")
(nntp-decode-text))))))
nil server
(with-current-buffer nntp-server-buffer
(prog1
(nntp-send-command
"^\\.\r?\n" "NEWGROUPS"
(format-time-string "%y%m%d %H%M%S" (date-to-time date) t)
"GMT")
(nntp-decode-text)))))
(deffoo nntp-request-post (&optional server)
(nntp-with-open-group