On 2002-05-24, Kai Großjohann <Kai.Grossjohann@cs.uni-dortmund.de>
wrote:
> 
> kai

Strange, using my augmented trivial cite function, it works:

,----
| (defun anti-tc-simple-attribution ()
|   "Produce an attribution string, using the real name and the date
| of the message."
|   (let* ((date (sc-jk-normalize-date (cdr (assoc "date" tc-strings-list))))
| 	(today (sc-jk-normalize-date (current-time-string)))
| 	(email (assoc "email-addr" tc-strings-list))
|         (name (assoc "real-name" tc-strings-list))
| 	(person (concat (cdr (or name '(nil . ""))) " <"
| 			(cdr (or email '(nil . "unknown-user@unknownnet")))
| 			">")))
|     ;(message "found %s <%s>" name email)
|     (if (null date)
| 	(concat person " wrote:\n\n")
|       (concat (if (equal today date)
| 		  "Today"
| 		(concat "On " date))
| 	      ", " person " wrote:\n\n"))))
`----

I understand that this might be a bug in message itself. Hm.

Have fun,
-- 
Andreas Fuchs, <asf@acm.org>, asf@jabber.at, antifuchs