Re: insert a link to an article in gmane

[Sebastian Christ <rudolfo.christ@gmail.com>]

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

(defun fyi-article-get-header (header &optional skip-bounds)
  "Return HEADER of article in the current `gnus-article-buffer'.

If SKIP-BOUNDS is non-nil, skip the first and the last character from the header
value. This is useful if you want to omit some '<' and '>' that some headers
have (e.g. Message-ID)."
  (gnus-summary-verbose-headers 1)
  (prog1
      (with-current-buffer gnus-article-buffer
        (let ((nnmail-extra-headers (cons header
                                          nnmail-extra-headers)))
          (let ((header-value (cdr (assoc header
                                          (mail-header-extra (nnheader-parse-head t))))))
            (when header-value
              (apply #'substring-no-properties
                     header-value
                     (when skip-bounds
                       (list 1 -1)))))))
    (gnus-summary-verbose-headers -1)))

(defun fyi-article-archived-at ()
  "Return archived-at header of article in the current `gnus-article-buffer'."
  (fyi-article-get-header 'Archived-at t))

(defvar fyi-last-gmane-message-link nil)

(defun fyi-copy-gmane-link ()
  (interactive)
  (setq fyi-last-gmane-message-link (fyi-article-archived-at)))

(defun fyi-insert-gmane-link ()
  (interactive)
  (insert fyi-last-gmane-message-link))

But beware. This is very hacky and not really tested. It works, but can
sure easily break I guess. So use with caution.

Regards,
Sebastian 


-- 
Sebastian (Rudolfo) Christ
http://rudolfochrist.github.io
GPG Fingerprint: 306D 8FD3 DFB6 4E44 5061
                 CE71 6407 D6F8 2AC5 55DD