From 1be4a99cb65b3d1a0bb2b9bf940851d231e2e0fc Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 19 Oct 2000 07:46:41 +0000
Subject: [PATCH] Synch with `t-gnus-6_14'.

---
 ChangeLog         |    5 +++++
 lisp/nnshimbun.el |    2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 356d3de..ce839e0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-19  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
+
+	* lisp/nnshimbun.el (nnshimbun-netbsd-get-headers): Fix regular
+	expression to extract xover urls.
+
 2000-10-12  Jesper Harder <jesper_harder@hotmail.com>
 
 	* make.bat: Makes it possible to generate the Info files on
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 255d2ec..d30091e 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -1285,7 +1285,7 @@ is enclosed by at least one regexp grouping construct."
 (defun nnshimbun-netbsd-get-headers ()
   (let ((case-fold-search t) headers months)
     (goto-char (point-min))
-    (while (re-search-forward "<A HREF=\"\\([0-9]+\\)/threads.html\">" nil t)
+    (while (re-search-forward "<A HREF=\"\\([0-9]+\\)/\\(threads.html\\)?\">" nil t)
       (push (match-string 1) months))
     (setq months (nreverse months))
     (catch 'exit
-- 
1.7.10.4