;; 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 5c94750..0d3b640 100644 (file)
--- 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 (file)
--- 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)))))