Re: From Elisp: Do stuff with article at point

[Haider Rizvi <harizvi@gmail.com>]

Alexander Baier <lexi.baier@gmail.com> writes:

> I do not want to save the article to disk, I merely want to do some
> searching and copying in the buffer containing the article in
> question.  So I "just" need a fuction that gives me the buffer name
> or buffer object of the current article at point, so that I can use
> it with `with-current-buffer'.

Sounds like the following may help you. I have coded ';' to
my-gnus-browse in gnus-summary-mode-map, which is an overloaded
function as follows. For the various scenarios, it tries to build an
appropriate url from the article, and then browse-url it.

(defun my-gnus-browse (arg)
  (interactive "p")
  (cond ((string-match ":\\(gwene\\|gmane\\)\\." gnus-newsgroup-name)
         (hr/gnus-browse-archived-at))
        ((string-match "^nnrss\." gnus-newsgroup-name)
         (browse-nnrss-url arg))
        ((string-match "^w3Forums\\|CommunitiesCategory\\|MyForums" gnus-newsgroup-name)
         (hr/gnus-browse-messageid-ibmconnections))
        ((string-match "salpha" (mail-header-from gnus-current-headers))
         (hr/gnus-browse-said-salpha))
        ))

;; this came from the gnus manual, I believe
(defun browse-nnrss-url( arg )
  (interactive "p")
  (let ((url (assq nnrss-url-field
                   (mail-header-extra
                    (gnus-data-header
                     (assq (gnus-summary-article-number)
                           gnus-newsgroup-data))))))
    (if url
        (progn
          (browse-url (cdr url))
          (gnus-summary-mark-as-read-forward 1))
      (gnus-summary-scroll-up arg))))
(add-to-list 'nnmail-extra-headers nnrss-url-field)

(defun hr/gnus-browse-archived-at ()
  "Browse \"Archived-at\" URL of the current article."
  (interactive)
  (let (url)
    (with-current-buffer gnus-original-article-buffer
      (setq url (gnus-fetch-field "Archived-at")))
    (if (not (stringp url))
        (gnus-message 1 "No \"Archived-at\" header found.")
      (setq url (gnus-replace-in-string url "^<\\|>$" ""))
      (browse-url url))))


Regards, 
-- 
Haider