diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-01-14 11:26:13 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2016-01-14 11:26:13 +0000 |
| commit | a53fc894808a8244baff4a22047b832dbf5ea311 (patch) | |
| tree | c0426ff278b68f443dbba8e76042c7a37b7fee75 /lisp/gnus/nntp.el | |
| parent | 058f8a8d55a6b20c68ee9728c537bb8ce50dfe81 (diff) | |
| download | emacs-a53fc894808a8244baff4a22047b832dbf5ea311.tar.gz | |
* lisp/gnus/nntp.el (nntp-request-newgroups): Simplify
Diffstat (limited to 'lisp/gnus/nntp.el')
| -rw-r--r-- | lisp/gnus/nntp.el | 26 |
1 files changed, 8 insertions, 18 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 0006ef9f5cf..f56b04568c8 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -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 |