Re: insert a link to an article in gmane

[Uwe Brauer <oub@mat.ucm.es>]

>>> "Sebastian" == Sebastian Christ <rudolfo.christ@gmail.com> writes:

   > On 2016-05-07 19:46, Uwe Brauer <oub@mat.ucm.es> wrote:
   >> Could you send me this function, please? thanks

Thanks, it works.

Meanwhile I found the following in

https://gist.githubusercontent.com/gnusosa/b4800ca313e862def12f/raw/2136a51e0ad61a1cb9b12cf7d7910f7d2b68b67b/gnus-gmane-link.el


I modified however his function to copy the result into the ring not
calling a browser.

(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
	(progn
	  (kill-new url)
	  (message "Url is now the kill ring: Use Kill-browse-ring"))
      (message "Couldn't find any likely url"))))