From: yamaoka <yamaoka>
Date: Thu, 19 Oct 2000 07:46:41 +0000 (+0000)
Subject: Synch with `t-gnus-6_14'.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1be4a99cb65b3d1a0bb2b9bf940851d231e2e0fc;p=elisp%2Fgnus.git-

Synch with `t-gnus-6_14'.
---

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