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)))))