82 |
|
|
83 |
;;; Interface functions |
;;; Interface functions |
84 |
|
|
85 |
|
(eval-when-compile |
86 |
|
(defmacro nnrss-string-as-multibyte (string) |
87 |
|
(if (featurep 'xemacs) |
88 |
|
string |
89 |
|
`(string-as-multibyte ,string)))) |
90 |
|
|
91 |
(deffoo nnrss-retrieve-headers (articles &optional group server fetch-old) |
(deffoo nnrss-retrieve-headers (articles &optional group server fetch-old) |
92 |
(nnrss-possibly-change-group group server) |
(nnrss-possibly-change-group group server) |
93 |
(let (e) |
(let (e) |
416 |
|
|
417 |
(defalias 'nnrss-insert 'nnrss-insert-w3) |
(defalias 'nnrss-insert 'nnrss-insert-w3) |
418 |
|
|
|
(if (featurep 'xemacs) |
|
|
(defalias 'nnrss-string-as-multibyte 'identity) |
|
|
(defalias 'nnrss-string-as-multibyte 'string-as-multibyte)) |
|
|
|
|
419 |
;;; Snarf functions |
;;; Snarf functions |
420 |
|
|
421 |
(defun nnrss-check-group (group server) |
(defun nnrss-check-group (group server) |