Re: Endless impression~ Gnus' citation style..

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

Emanuel Berg [embe8573(a)student.uu.se] writes:

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

What do you think of this one? (I mean the
first line, not the citation which happens to
contain one as well.) Looks kinda' good, ey? :)

By the way, is the OP's "citation style" what
is called the "attribution line" in the
Gnus source? E.g., line 117, in:

    /usr/share/emacs/24.4/lisp/gnus/gnus-cite.el.gz

Only remaining obstacle changing it is the
regexp setting the face must change as well!
On the other hand, keeping the attribution line
simple and the regexp detecting it is simple
as well!

And the function producing it? I'd say,
pretty simple!

(defun citation-style-function ()
  (let*((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 "%s [%s] writes:" name email))
        (masked-string   (replace-regexp-in-string "@" "(a)"
                                                   citation-string) ))
    (insert masked-string)
    (newline)
    (newline) ))
(setq message-citation-line-function 'citation-style-function)

From: http://user.it.uu.se/~embe8573/conf/emacs-init/gnus/article.el

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