/[emacs]/emacs/lisp/gnus/nnrss.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnrss.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.10 by miles, Sat Oct 15 00:20:57 2005 UTC
# Line 197  for decoding when the cdr that the data Line 197  for decoding when the cdr that the data
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
# Line 205  for decoding when the cdr that the data Line 206  for decoding when the cdr that the data
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")
# Line 220  for decoding when the cdr that the data Line 221  for decoding when the cdr that the data
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"
# Line 232  for decoding when the cdr that the data Line 235  for decoding when the cdr that the data
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"))
# Line 528  nnrss: %s: Not valid XML %s and w3-parse Line 533  nnrss: %s: Not valid XML %s and w3-parse
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
# Line 576  nnrss: %s: Not valid XML %s and w3-parse Line 581  nnrss: %s: Not valid XML %s and w3-parse
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)))
# Line 606  nnrss: %s: Not valid XML %s and w3-parse Line 612  nnrss: %s: Not valid XML %s and w3-parse
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))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26