trivial-cite attribution problem

[Sebastien Kirche]

Hi,

I am  customizing my .gnus  to change attribution sentences  of trivial-cite
for quotes
I have modified the following in my .gnus :

(setq tc-make-attribution 'sk-tc-attribution)
(defun sk-tc-attribution ()
  "Générer l'attribution."
  (let ((style (random 4))
        (date (cdr (assoc "date" tc-strings-list)))
        (email (cdr (assoc "email-addr" tc-strings-list)))
        (name (cdr (assoc "real-name" tc-strings-list))))
    (cond ((= style 0)
           (concat "Le " date ", " (or name email) " a dit :\n\n"))
          ((= style 1)
           (concat "Le " date ", " (or name email) " s'est exprimé ainsi 
:\n\n"))
          ((= style 2)
           (concat "Le " date ", " (or name email) " vraute :\n\n"))
          ((= style 3)
           (concat "Le " date ", " (or name email) " a formulé :\n\n"))
          (t
           (concat "Le " date ", " (or name email) " écrivit :\n\n")))))

Problem :  it seems that  a single word  is not recognized  by tc as  a real
name, thus when  i reply to a message which  author is "aname <an@address>",
tc inserts the address and not the name. 
Is that a tc bug, or do i missed something in tc's attribution elisp ?

Subsidiary question  : i have seen  that one can  have different attribution
functions by means of tc-groups-functions. 

As i have  also set tc for quoting  mails with (add-hook 'mail-citation-hook
'trivial-cite), is it possible to have a different function for mail ? 

Thanks for some clues. 

Sébastien Kirche