Re: hackernews & gnus-summary-browse-url

[dick <dick.r.chiang@gmail.com>]

Not exactly what you want, but close enough:

(add-hook
 'gnus-summary-mode-hook
 (lambda ()
   (require 'url-http)
   (defvar url-http-end-of-headers)
   (when (equal (gnus-group-real-name gnus-newsgroup-name)
                "gwene.com.ycombinator.news")
     (make-local-variable 'gnus-article-prepare-hook)
     (add-to-list
      'gnus-article-prepare-hook
      (lambda ()
        (when (and (buffer-live-p (get-buffer gnus-original-article-buffer))
                   (buffer-live-p (get-buffer gnus-article-buffer)))
          (with-current-buffer gnus-original-article-buffer
            (when-let ((found (re-search-forward
                               "\"\\([^\"]+\\)\">Comments"
                               nil t))
                       (url (match-string 1))
                       (resbuf (url-retrieve-synchronously url t nil 5)))
	      (unwind-protect
		  (with-current-buffer gnus-article-buffer
		    (let ((inhibit-read-only t))
                      (message-goto-body)
                      (save-excursion (delete-region (point) (point-max)))
		      (shr-insert-document
		       (with-current-buffer resbuf
			 (libxml-parse-html-region (1+ url-http-end-of-headers)
						   (point-max))))))
		(kill-buffer resbuf))))))))))