Re: Endless impression~ Gnus' citation style..

[Emanuel Berg <embe8573@student.uu.se>]

In article <86oa5u7fgc.fsf (at) student.uu.se>,
Emanuel Berg <embe8573 (at) student.uu.se>
writes:

> OK, so now most definitely the OP has enough
> material to present a qualified attempt at
> solving his problem! Until then I'll lay low
> :)

OK, I take that back! Seeing how easy it would
be to complete JAAMs function, I couldn't
resist doing it (actually I didn't try to
resist it).

I already tried it on my previous message - see
the first three lines of this message - is that
what you (the OP) had in mind?

Note that I did (at) instead of <at> because
there are already angle brackets on the outside
so it looks strange to have them on the inside
as well <i.e. <nested>, like that> - anyway
this can be changed easily enough...

By the way, what is the reason for knowing the
message ID? Can you do anything interesting
with that information? If so, what?

Here is the function:

(defun citation-style-function ()
  (let*((id           (mail-header-id   message-reply-headers))
        (from         (mail-header-from message-reply-headers))
        (from-data    (gnus-extract-address-components from))
        (name         (car  from-data))
        (email        (cadr from-data))
        (citation-string (format "In article %s, %s <%s> writes:"
                                 id name email) )
        (masked-string (replace-regexp-in-string "@" " (at) "
                                                 citation-string) ))
    (insert masked-string)
    (newline)
    (newline) ))

(setq message-citation-line-function 'citation-style-function)

-- 
underground experts united .... http://user.it.uu.se/~embe8573
Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic
                   - so far: 58 Blogomatic articles -