From dc62b5369ab5bced33fc66569612b978f69bcb6a Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Tue, 6 Feb 2001 09:23:49 +0000
Subject: [PATCH] ;; Patch from Arisawa-san. * nnshimbun.el
 (nnshimbun-type-definition): Follow URL change of `xemacs'.
 (nnshimbun-xemacs-get-headers): Ditto.

---
 ChangeLog         |    6 ++++++
 lisp/nnshimbun.el |    4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 429cff1..b66861b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-02-02  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
+
+	* lisp/nnshimbun.el (nnshimbun-type-definition): Follow URL change
+	of `xemacs'.
+	(nnshimbun-xemacs-get-headers): Ditto.
+
 2001-02-06  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* README-gnus-bbdb.{en,ja}: Update the patch for BBDB v2.2.
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 1e92a5d..8aa0338 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -133,7 +133,7 @@
      (index-url     . (nnshimbun-mew-concat-url "index.html"))
      (make-contents . nnshimbun-make-mhonarc-contents))
     ("xemacs"
-     (url . "http://www.xemacs.org/list-archives/")
+     (url . "http://list-archives.xemacs.org/")
      (groups "xemacs-announce" "xemacs-beta-ja" "xemacs-beta"
 	     "xemacs-build-reports" "xemacs-cvs" "xemacs-mule"
 	     "xemacs-nt" "xemacs-patches" "xemacs-users-ja" "xemacs")
@@ -1302,7 +1302,7 @@ is enclosed by at least one regexp grouping construct."
   (let (headers auxs aux)
     (catch 'stop
       (while (re-search-forward
-	      (concat "<A HREF=\"/list-archives/" nnshimbun-current-group
+	      (concat "<A HREF=\"/" nnshimbun-current-group
 		      "/\\([12][0-9][0-9][0-9][0-1][0-9]\\)/\">\\[Index\\]")
 	      nil t)
 	(setq auxs (append auxs (list (match-string 1)))))
-- 
1.7.10.4