Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d41394..6dcba24 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2001-05-06 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnrss.el (nnrss-check-group): Reverse.
+
+2001-05-07  Simon Josefsson  <simon@josefsson.org>
+
+       * message.el (message-get-reply-headers):
+       (message-followup): Fix typo, suggested by David Green
+       <dgreen@uab.edu>
+
 2001-05-05 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * nnslashdot.el (nnslashdot-request-expire-articles): Fix.

diff --git a/lisp/message.el b/lisp/message.el
index 87618c4..effe120 100644 (file)
--- 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 (file)
--- 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.