(require 'nnrss)
(require 'w3)
(add-to-list 'nnrss-group-alist
'("Tagesschau"
"http://www.tagesschau.de/newsticker.rdf"
"Nachrichten der Tagesschau."))
(defun kai-nnrss-content-function (entry group article)
(let* ((num (nth 0 entry))
(timestamp (nth 1 entry))
(url (nth 2 entry))
(buf (url-retrieve-synchronously url))
(w3-display-same-buffer t)
(w3-explicit-coding-system 'iso-8859-1)
(w3-delay-image-loads t)
parse
pre-search post-search delete)
(cond ((string-match "[hH]eise" group)
(setq pre-search ""
post-search ""))
((string-match "[tT]agesschau" group)
(setq pre-search "class=\"content\">\n"
post-search "")))
(save-excursion
(set-buffer buf)
(goto-char (point-min))
(delete-region (point) (search-forward pre-search))
(insert "\n"
"\n"
"\n")
(delete-region (search-forward post-search) (point-max))
(insert "\n\n")
(setq parse (w3-parse-buffer buf)))
(kill-buffer buf)
(let ((b (point)))
(w3-draw-tree parse)
(encode-coding-region b (point-max) 'iso-latin-1))))
(setq nnrss-content-function 'kai-nnrss-content-function)