projects / elisp / gnus.git- / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Synch to No Gnus 200411040624.
[elisp/gnus.git-] / lisp / nnrss.el
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index 8028831..348cb85 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -170,7 +170,7 @@ ARTICLE is the article number of the current headline.")
              (when text
                (insert text)
                (goto-char point)
-               (while (re-search-forward "\n" nil t)
+               (while (search-forward "\n" nil t)
                  (replace-match " "))
                (goto-char (point-max))
                (insert "\n\n"))
@@ -181,7 +181,7 @@ ARTICLE is the article number of the current headline.")
              (when text
                (insert "<html><head></head><body>\n" text "\n</body></html>")
                (goto-char point)
-               (while (re-search-forward "\n" nil t)
+               (while (search-forward "\n" nil t)
                  (replace-match " "))
                (goto-char (point-max))
                (insert "\n\n"))
@@ -290,9 +290,8 @@ ARTICLE is the article number of the current headline.")
 (defvar nnrss-extra-categories '(nnrss-snarf-moreover-categories))
 
 (defun nnrss-generate-active ()
-  (if (y-or-n-p "Fetch extra categories? ")
-      (dolist (func nnrss-extra-categories)
-       (funcall func)))
+  (when (y-or-n-p "Fetch extra categories? ")
+    (mapc 'funcall nnrss-extra-categories))
   (save-excursion
     (set-buffer nntp-server-buffer)
     (erase-buffer)