From fcefafb30f31ef2fd23d53b725bb4ed65c4c2e2a Mon Sep 17 00:00:00 2001
From: akr <akr>
Date: Fri, 7 May 1999 17:00:44 +0000
Subject: [PATCH] update TESTPAT.

---
 TESTPAT |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/TESTPAT b/TESTPAT
index 866abfd..baa07f3 100644
--- a/TESTPAT
+++ b/TESTPAT
@@ -41,8 +41,9 @@
       (goto-char (point-min))
       (std11-narrow-to-header mail-header-separator)
       (std11-field-end)
-      (let ((result (std11-unfold-string
-		     (buffer-substring (point-min) (point)))))
+      (let ((result (ew-lf-to-crlf
+		     (std11-unfold-string
+		      (buffer-substring-no-properties (point-min) (point))))))
 	(if (member result dsts) t result))))
 
   (defun encode-test (src dsts &rest opts)
@@ -56,7 +57,7 @@
       (goto-char (point-min))
       (std11-narrow-to-header mail-header-separator)
       (std11-field-end)
-      (let ((result (buffer-substring (point-min) (point))))
+      (let ((result (ew-lf-to-crlf (buffer-substring-no-properties (point-min) (point)))))
 	(if (member result dsts) t result)))))
 
  ((eq target 'doodle) ; DOODLE
-- 
1.7.10.4