From: yamaoka <yamaoka>
Date: Mon, 7 May 2001 22:15:31 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-01-quimby~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ee90da1d14eb420543e3d9036c39a5a33a4a5ad0;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

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  <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
--- 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.