From ee90da1d14eb420543e3d9036c39a5a33a4a5ad0 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 7 May 2001 22:15:31 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 10 ++++++++++ lisp/message.el | 4 ++-- lisp/nnrss.el | 14 +++++++------- 3 files changed, 19 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7d41394..6dcba24 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2001-05-06 21:00:00 ShengHuo ZHU + + * nnrss.el (nnrss-check-group): Reverse. + +2001-05-07 Simon Josefsson + + * message.el (message-get-reply-headers): + (message-followup): Fix typo, suggested by David Green + + 2001-05-05 15:00:00 ShengHuo ZHU * nnslashdot.el (nnslashdot-request-expire-articles): Fix. diff --git a/lisp/message.el b/lisp/message.el index 87618c4..effe120 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4867,7 +4867,7 @@ often used to direct the following discussion to one list only, because discussions that are spread over several lists tend to be fragmented and very difficult to follow. -Also, some source/announcement lists are not indented for discussion; +Also, some source/announcement lists are not intended for discussion; responses here are directed to other addresses."))) (insert mft) (unless never-mct @@ -5088,7 +5088,7 @@ used to direct the following discussion to one newsgroup only, because discussions that are spread over several newsgroup tend to be fragmented and very difficult to follow. -Also, some source/announcement newsgroups are not indented for discussion; +Also, some source/announcement newsgroups are not intended for discussion; responses here are directed to other newsgroups.")) (setq follow-to (list (cons 'Newsgroups followup-to))) (setq follow-to (list (cons 'Newsgroups newsgroups))))))) diff --git a/lisp/nnrss.el b/lisp/nnrss.el index a174995..078a94a 100644 --- a/lisp/nnrss.el +++ b/lisp/nnrss.el @@ -454,7 +454,7 @@ (while (and xml (not (assq 'item xml))) (unless (listp (car (setq xml (cddar xml)))) (setq xml nil))) - (dolist (item xml) + (dolist (item (nreverse xml)) (when (and (listp item) (eq 'item (car item)) (setq url (caddr (assq 'link (cddr item)))) @@ -479,12 +479,12 @@ (gnus-sethash url (car nnrss-group-data) nnrss-group-hashtb) (setq changed t))) (when changed - (nnrss-save-group-data group server) - (let ((pair (assoc group nnrss-server-data))) - (if pair - (setcar (cdr pair) nnrss-group-max) - (push (list group nnrss-group-max) nnrss-server-data))) - (nnrss-save-server-data server)))) + (nnrss-save-group-data group server) + (let ((pair (assoc group nnrss-server-data))) + (if pair + (setcar (cdr pair) nnrss-group-max) + (push (list group nnrss-group-max) nnrss-server-data))) + (nnrss-save-server-data server)))) (defun nnrss-generate-download-script () "Generate a download script in the current buffer. -- 1.7.10.4