From: yamaoka <yamaoka>
Date: Tue, 6 Feb 2001 09:23:49 +0000 (+0000)
Subject: ;; Patch from Arisawa-san.
X-Git-Tag: t-gnus-6_15_0-05-quimby-last-~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc62b5369ab5bced33fc66569612b978f69bcb6a;p=elisp%2Fgnus.git-

;; Patch from Arisawa-san.
* nnshimbun.el (nnshimbun-type-definition): Follow URL change of `xemacs'.
(nnshimbun-xemacs-get-headers): Ditto.
---

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