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