From: akr <akr>
Date: Fri, 7 May 1999 17:00:44 +0000 (+0000)
Subject: update TESTPAT.
X-Git-Tag: doodle-1_12_6~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fcefafb30f31ef2fd23d53b725bb4ed65c4c2e2a;p=elisp%2Fflim.git

update TESTPAT.
---

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