From e0fb6c801da122b567ff14c565f82a08530460fe Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 19 Jul 2001 02:12:32 +0000 Subject: [PATCH] * gnus-vers.el (gnus-revision-number): Increment to 04. * nntp.el (nntp-request-newgroups): Use UTC date for NEWGROUPS command. * gnus-start.el (gnus-find-new-newsgroups): Use `message-make-date' instead of `current-time-string'. (gnus-ask-server-for-new-groups): Ditto. (gnus-check-first-time-used): Ditto. --- ChangeLog | 12 ++++++++++++ lisp/gnus-start.el | 8 ++++---- lisp/gnus-vers.el | 2 +- lisp/nntp.el | 21 ++++++++++++++++----- 4 files changed, 33 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index fb35045..a5e8fd5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,15 @@ +2001-07-19 Katsumi Yamaoka + + * lisp/gnus-vers.el (gnus-revision-number): Increment to 04. + + * lisp/nntp.el (nntp-request-newgroups): Use UTC date for + NEWGROUPS command. + + * lisp/gnus-start.el (gnus-find-new-newsgroups): Use + `message-make-date' instead of `current-time-string'. + (gnus-ask-server-for-new-groups): Ditto. + (gnus-check-first-time-used): Ditto. + 2001-07-17 Katsumi Yamaoka * texi/message-ja.texi (message-citation-line-function): Add a diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el index 0c39383..1cc0bd2 100644 --- a/lisp/gnus-start.el +++ b/lisp/gnus-start.el @@ -1040,7 +1040,7 @@ for new groups, and subscribe the new groups as zombies." (gnus-message 5 "Looking for new newsgroups...") (unless gnus-have-read-active-file (gnus-read-active-file)) - (setq gnus-newsrc-last-checked-date (current-time-string)) + (setq gnus-newsrc-last-checked-date (message-make-date)) (unless gnus-killed-hashtb (gnus-make-hashtable-from-killed)) ;; Go though every newsgroup in `gnus-active-hashtb' and compare @@ -1105,7 +1105,8 @@ for new groups, and subscribe the new groups as zombies." (and regs (cdar regs)))))) (defun gnus-ask-server-for-new-groups () - (let* ((date (or gnus-newsrc-last-checked-date (current-time-string))) + (let* ((new-date (message-make-date)) + (date (or gnus-newsrc-last-checked-date new-date)) (methods (cons gnus-select-method (nconc (when (gnus-archive-server-wanted-p) @@ -1115,7 +1116,6 @@ for new groups, and subscribe the new groups as zombies." gnus-check-new-newsgroups) gnus-secondary-select-methods)))) (groups 0) - (new-date (current-time-string)) group new-newsgroups got-new method hashtb gnus-override-subscribe-method) (unless gnus-killed-hashtb @@ -1191,7 +1191,7 @@ for new groups, and subscribe the new groups as zombies." (unless (gnus-read-active-file-p) (let ((gnus-read-active-file t)) (gnus-read-active-file))) - (setq gnus-newsrc-last-checked-date (current-time-string)) + (setq gnus-newsrc-last-checked-date (message-make-date)) ;; Subscribe to the default newsgroups. (let ((groups (or gnus-default-subscribed-newsgroups gnus-backup-default-subscribed-newsgroups)) diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index 9f5f453..d105e88 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -34,7 +34,7 @@ (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "03" +(defconst gnus-revision-number "04" "Revision number for this version of gnus.") ;; Product information of this gnus. diff --git a/lisp/nntp.el b/lisp/nntp.el index 91b10f6..7606278 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -888,11 +888,22 @@ newsgroups that match the regexp." (nntp-possibly-change-group nil server) (save-excursion (set-buffer nntp-server-buffer) - (prog1 - (nntp-send-command - "^\\.\r?\n" "NEWGROUPS" - (format-time-string "%y%m%d %H%M%S" (date-to-time date))) - (nntp-decode-text)))) + (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) + "GMT") + (nntp-decode-text))))) (deffoo nntp-request-post (&optional server) (nntp-possibly-change-group nil server) -- 1.7.10.4