(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"))
(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"))
(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)