Hallo Hans, ich habe hier zufällig ein kleines Problem entdeckt. regex-replace-all hatte nur zwei Argumente - das kann auf jeden Fall nicht richtig sein. Ich habe ein bisschen geraten und #?/\1/ ergänzt (wie da drüber). Vielleicht könntest Du das noch mal überprüfen. Weiterhin noch ein schönes WE, Kilian PS: Komischerweise hat "mein cmucl" (19c) das schon beim compilen entdeckt: Error while parsing arguments to DEFINE-COMPILER-MACRO CL-PPCRE:REGEX-REPLACE-ALL: Invalid number of elements in: (BKNR.MAIL::*MESSAGE-ID-RE* (FIRST (IF (BKNR.MAIL::HEADER :IN-REPLY-TO) (CL-PPCRE:SPLIT "\\s+" (BKNR.MAIL::HEADER :IN-REPLY-TO)) (LAST (CL-PPCRE:SPLIT "\\s+" (BKNR.MAIL::HEADER :REFERENCES)))))) to satisfy lambda-list: (&WHOLE CL-PPCRE::FORM &ENVIRONMENT CL-PPCRE::ENV CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING CL-PPCRE::REPLACEMENT &REST REST) On Feb 16, 2008 3:06 PM, <ksprotte@common-lisp.net> wrote:

Author: ksprotte Date: Sat Feb 16 09:06:42 2008 New Revision: 2514

Modified: branches/bos/modules/mail/mail.lisp Log: fix for regex-replace-all in mail.lisp third arg was missing

Modified: branches/bos/modules/mail/mail.lisp ============================================================================== --- branches/bos/modules/mail/mail.lisp (original) +++ branches/bos/modules/mail/mail.lisp Sat Feb 16 09:06:42 2008 @@ -97,7 +97,8 @@ *message-id-re* (first (if (header :in-reply-to) (split #?/\s+/ (header :in-reply-to)) - (last (split #?/\s+/ (header :references)))))) + (last (split #?/\s+/ (header :references))))) + #?/\1/) :headers headers :body body)))))

_______________________________________________ bknr-cvs mailing list bknr-cvs@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-cvs