(defadvice mm-inline-text-html-render-with-w3m (around follow-link (handle)
						       activate)
  "Follow a link in nnrss group."
  (if (string-match "\\`nnrss:" gnus-newsgroup-name)
      (let* ((buffer (mm-handle-buffer handle))
	     (link (with-current-buffer buffer
		     (goto-char (point-max))
		     (when (re-search-backward
			    "<a href=\"\\([^\"]+\\)\">link</a>"
			    nil t)
		       (match-string 1))))
	     type contents)
	(if (and link
		 (mm-with-unibyte-buffer
		   (when (setq type (w3m-retrieve link))
		     (setq contents (buffer-string)))))
	    (progn
	      (with-current-buffer buffer
		(erase-buffer)
		(mm-disable-multibyte)
		(insert contents))
	      (setcar (cdr handle) (list type))
	      (let ((mail-parse-charset nil))
		ad-do-it))
	  ad-do-it))
    ad-do-it))