Re: function to access raw article

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

On 2014-10-31 14:38 Alexander Baier wrote:
> 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,

I have updated the regexp to catch multiline titles:

#+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)))
          (regex (concat "Content-Type: text/plain;.*\n"
                         "\n.*just uploaded a video\n"
                         "\\(.*\\(?:\n.*\\)*?\\)\nhttp:.*")))
      (string-match regex body)
      (s-replace "\n" "" (match-string-no-properties 1 body))))
#+END_SRC

Regards,
-- 
Alexander Baier