[bknr-cvs] r2514 - branches/bos/modules/mail

[ksprotte at common-lisp.net]

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