[bknr-devel] Re: [bknr-cvs] r2514 - branches/bos/modules/mail

[Kilian Sprotte]

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 at 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 at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-cvs
>