From: tsuchiya <tsuchiya>
Date: Thu, 19 Oct 2000 05:37:27 +0000 (+0000)
Subject: * lisp/nnshimbun.el (nnshimbun-netbsd-get-headers): Fix regular expression to extract... 
X-Git-Tag: t-gnus-6_14_5-06~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c9bf558484166445fc311cd96597658fd00f16eb;p=elisp%2Fgnus.git-

* lisp/nnshimbun.el (nnshimbun-netbsd-get-headers): Fix regular expression to extract xover urls.
---

diff --git a/ChangeLog b/ChangeLog
index 0973126..b77355c 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-08  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
 
 	* lisp/nnshimbun.el (nnshimbun-type-definition): Fix regular
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