projects / elisp / gnus.git- / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Synch to No Gnus 200411282151.
[elisp/gnus.git-] / lisp / nnrss.el
diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index fc2662a..c49a997 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -82,6 +82,12 @@ ARTICLE is the article number of the current headline.")
 
 ;;; Interface functions
 
+(eval-when-compile
+  (defmacro nnrss-string-as-multibyte (string)
+    (if (featurep 'xemacs)
+       string
+      `(string-as-multibyte ,string))))
+
 (deffoo nnrss-retrieve-headers (articles &optional group server fetch-old)
   (nnrss-possibly-change-group group server)
   (let (e)
@@ -170,7 +176,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 +187,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"))
@@ -254,7 +260,7 @@ ARTICLE is the article number of the current headline.")
   "Fetch URL and put it in a the expected Lisp structure."
   (with-temp-buffer
     ;;some CVS versions of url.el need this to close the connection quickly
-    (let* (xmlform htmlform)
+    (let (xmlform htmlform)
       ;; bit o' work necessary for w3 pre-cvs and post-cvs
       (if local
          (let ((coding-system-for-read 'binary))
@@ -290,9 +296,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)
@@ -331,7 +336,7 @@ ARTICLE is the article number of the current headline.")
       (let ((coding-system-for-read 'binary))
        (load file nil t t))
       (dolist (e nnrss-group-data)
-       (puthash (or (nth 2 e) (nth 5 e)) t nnrss-group-hashtb)
+       (puthash (or (nth 2 e) (nth 6 e)) t nnrss-group-hashtb)
        (when (and (car e) (> nnrss-group-min (car e)))
          (setq nnrss-group-min (car e)))
        (when (and (car e) (< nnrss-group-max (car e)))
@@ -381,10 +386,6 @@ ARTICLE is the article number of the current headline.")
 
 (defalias 'nnrss-insert 'nnrss-insert-w3)
 
-(if (featurep 'xemacs)
-    (defalias 'nnrss-string-as-multibyte 'identity)
-  (defalias 'nnrss-string-as-multibyte 'string-as-multibyte))
-
 ;;; Snarf functions
 
 (defun nnrss-check-group (group server)