*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 860edad..545f50e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 1999-11-09 00:13:25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * nnslashdot.el (nnslashdot-request-article): Fold case.
+
        * nnultimate.el: New file.
 
        * nnslashdot.el (nnslashdot-retrieve-headers): Skip the article

diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 099e9f5..c83625e 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -296,27 +296,28 @@
   (let (contents)
     (save-excursion
       (set-buffer nnslashdot-buffer)
-      (goto-char (point-min))
-      (when (and (stringp article)
-                (string-match "%\\([0-9]+\\)@" article))
-       (setq article (string-to-number (match-string 1 article))))
-      (when (numberp article)
-       (if (= article 1)
-           (progn
-             (re-search-forward "Posted by .* on ")
-             (forward-line 1)
-             (setq contents
-                   (buffer-substring
-                    (point)
-                    (progn
-                      (re-search-forward
-                       "^<p>.*A href=http://slashdot.org/article.pl")
-                      (match-beginning 0)))))
-         (search-forward (format "<a name=\"%d\">" (1- article)))
-         (setq contents
-               (buffer-substring
-                (re-search-forward "<td[^>]+>")
-                (search-forward "</td>"))))))
+      (let ((case-fold-search t))
+       (goto-char (point-min))
+       (when (and (stringp article)
+                  (string-match "%\\([0-9]+\\)@" article))
+         (setq article (string-to-number (match-string 1 article))))
+       (when (numberp article)
+         (if (= article 1)
+             (progn
+               (re-search-forward "Posted by .* on ")
+               (forward-line 1)
+               (setq contents
+                     (buffer-substring
+                      (point)
+                      (progn
+                        (re-search-forward
+                         "^<p>.*A href=http://slashdot.org/article.pl")
+                        (match-beginning 0)))))
+           (search-forward (format "<a name=\"%d\">" (1- article)))
+           (setq contents
+                 (buffer-substring
+                  (re-search-forward "<td[^>]+>")
+                  (search-forward "</td>")))))))
     (when contents
       (save-excursion
        (set-buffer (or buffer nntp-server-buffer))