197 |
" "))) |
" "))) |
198 |
(link (nth 2 e)) |
(link (nth 2 e)) |
199 |
(enclosure (nth 7 e)) |
(enclosure (nth 7 e)) |
200 |
|
(comments (nth 8 e)) |
201 |
;; Enable encoding of Newsgroups header in XEmacs. |
;; Enable encoding of Newsgroups header in XEmacs. |
202 |
(default-enable-multibyte-characters t) |
(default-enable-multibyte-characters t) |
203 |
(rfc2047-header-encoding-alist |
(rfc2047-header-encoding-alist |
206 |
rfc2047-header-encoding-alist) |
rfc2047-header-encoding-alist) |
207 |
rfc2047-header-encoding-alist)) |
rfc2047-header-encoding-alist)) |
208 |
rfc2047-encode-encoded-words body) |
rfc2047-encode-encoded-words body) |
209 |
(when (or text link enclosure) |
(when (or text link enclosure comments) |
210 |
(insert "\n") |
(insert "\n") |
211 |
(insert "<#multipart type=alternative>\n" |
(insert "<#multipart type=alternative>\n" |
212 |
"<#part type=\"text/plain\">\n") |
"<#part type=\"text/plain\">\n") |
221 |
(insert (car enclosure) " " |
(insert (car enclosure) " " |
222 |
(nth 2 enclosure) " " |
(nth 2 enclosure) " " |
223 |
(nth 3 enclosure) "\n")) |
(nth 3 enclosure) "\n")) |
224 |
|
(when comments |
225 |
|
(insert comments "\n")) |
226 |
(setq body (buffer-substring body (point))) |
(setq body (buffer-substring body (point))) |
227 |
(insert "<#/part>\n" |
(insert "<#/part>\n" |
228 |
"<#part type=\"text/html\">\n" |
"<#part type=\"text/html\">\n" |
235 |
(insert "<p><a href=\"" (car enclosure) "\">" |
(insert "<p><a href=\"" (car enclosure) "\">" |
236 |
(cadr enclosure) "</a> " (nth 2 enclosure) |
(cadr enclosure) "</a> " (nth 2 enclosure) |
237 |
" " (nth 3 enclosure) "</p>\n")) |
" " (nth 3 enclosure) "</p>\n")) |
238 |
|
(when comments |
239 |
|
(insert "<p><a href=\"" comments "\">comments</a></p>\n")) |
240 |
(insert "</body></html>\n" |
(insert "</body></html>\n" |
241 |
"<#/part>\n" |
"<#/part>\n" |
242 |
"<#/multipart>\n")) |
"<#/multipart>\n")) |
533 |
|
|
534 |
(defun nnrss-check-group (group server) |
(defun nnrss-check-group (group server) |
535 |
(let (file xml subject url extra changed author date |
(let (file xml subject url extra changed author date |
536 |
enclosure rss-ns rdf-ns content-ns dc-ns) |
enclosure comments rss-ns rdf-ns content-ns dc-ns) |
537 |
(if (and nnrss-use-local |
(if (and nnrss-use-local |
538 |
(file-exists-p (setq file (expand-file-name |
(file-exists-p (setq file (expand-file-name |
539 |
(nnrss-translate-file-chars |
(nnrss-translate-file-chars |
581 |
(setq date (or (nnrss-node-text dc-ns 'date item) |
(setq date (or (nnrss-node-text dc-ns 'date item) |
582 |
(nnrss-node-text rss-ns 'pubDate item) |
(nnrss-node-text rss-ns 'pubDate item) |
583 |
(message-make-date))) |
(message-make-date))) |
584 |
|
(setq comments (nnrss-node-text rss-ns 'comments item)) |
585 |
(when (setq enclosure (cadr (assq (intern (concat rss-ns "enclosure")) item))) |
(when (setq enclosure (cadr (assq (intern (concat rss-ns "enclosure")) item))) |
586 |
(let ((url (cdr (assq 'url enclosure))) |
(let ((url (cdr (assq 'url enclosure))) |
587 |
(len (cdr (assq 'length enclosure))) |
(len (cdr (assq 'length enclosure))) |
612 |
(and author (nnrss-mime-encode-string author)) |
(and author (nnrss-mime-encode-string author)) |
613 |
date |
date |
614 |
(and extra (nnrss-decode-entities-string extra)) |
(and extra (nnrss-decode-entities-string extra)) |
615 |
enclosure) |
enclosure |
616 |
|
comments) |
617 |
nnrss-group-data) |
nnrss-group-data) |
618 |
(gnus-sethash (or url extra) t nnrss-group-hashtb) |
(gnus-sethash (or url extra) t nnrss-group-hashtb) |
619 |
(setq changed t)) |
(setq changed t)) |