Re: function to access raw article

[Alexander Baier <alexander.baier@mailbox.org>]

On 2014-10-31 13:55 Ted Zlatanov wrote:
> On Fri, 31 Oct 2014 09:29:41 +0100 Alexander Baier
> <alexander.baier@mailbox.org> wrote:
>
> AB> I want to access the raw (unwashed) version of an article from emacs
> AB> lisp to search for a regexp. I do this in order to extract information
> AB> from the body of the article to be used in the summary line. I used
> AB> `gnus-summary-show-raw-article' which did not seem to work. What is the
> AB> preferred way of doing this?
>
> Try `spam-get-article-as-string' in spam.el, which is used by spam
> backends that need the full article.  But as others said, it may not
> work :)
>

This is it! The following works like a charm. It is designed to extract
the title of the video from a mail you get from youtube when someone you
are subscribed to uploads a new video.

#+BEGIN_SRC emacs-lisp
  (defun gnus-user-format-function-Y (header)
    "Returns the title of a youtube video."
    (let ((body (spam-get-article-as-string (elt header 0))))
      (string-match "\n.*just uploaded a video\n\\(.*\\)\nhttp:.*" body)
      (match-string-no-properties 1 body)))
#+END_SRC

Thank you Ted, Steinar and Igor! :)

Regards,
-- 
Alexander Baier