Cleaning up more.
[elisp/gnus.git-] / lisp / nnslashdot.el
index 554afb7..4f8e6f6 100644 (file)
       (set-buffer nntp-server-buffer)
       (erase-buffer)
       (mm-with-unibyte-current-buffer
-       (dolist (header nnslashdot-headers)
-        (nnheader-insert-nov (cdr header)))))
+       (dolist (header nnslashdot-headers)
+         (nnheader-insert-nov (cdr header)))))
     'nov))
 
 (deffoo nnslashdot-sane-retrieve-headers (articles group)
         t)
        (goto-char point)
        (while (re-search-forward
-                 "<a name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
+               "<a name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
                nil t)
          (setq article (string-to-number (match-string 1))
                subject (match-string 3)