gnus-gmane-gwene-link

gnus-gmane-link.el

;; Gmane article link
;; Using shr. This will only work in Emacs 24.4
(defun gnus-gmane-link ()
  "Grabs the article name and generates a url found in Gmane. 
  If successful, sends it to the local web browser."
  (interactive)
  (let ((url
         (with-current-buffer gnus-article-buffer
           (let ((msgids (split-string (aref gnus-current-headers 8) "[ :]")))
             (cond ((and (equal (substring (second msgids) 0 6)
                              "gwene.")
                       (goto-char (point-max))
                       (search-backward "Link" (point-min) 'noerror))
                    (shr-copy-url)
                    (current-kill 0))
                   ((equal (substring (second msgids) 0 6)
                           "gmane.")
                    (concat "http://comments.gmane.org/" (second msgids) "/" (third msgids))))))))
    (if url
        (browse-url (message url))
      (message "Couldn't find any likely url"))))