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

diff --git a/ChangeLog b/ChangeLog
index 0973126..b77355c 100644 (file)
--- 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 (file)
--- 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