From: akr <akr>
Date: Wed, 26 Aug 1998 06:23:40 +0000 (+0000)
Subject: * ew-dec.el (ew-decode-field-test): New function.
X-Git-Tag: doodle-1_9_2~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c633ffc2cf62d4117888d27d83bd214af2ff8ba9;p=elisp%2Fflim.git

* ew-dec.el (ew-decode-field-test): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 7cf1d5e..ae040e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* ew-dec.el (ew-decode-field-test): New function.
+
+1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* DOODLE-TIPS (gnus-structured-field-decoder): Use
 	`eword-decode-and-unfold-structured-field'.
 	(gnus-unstructured-field-decoder): Use
diff --git a/ew-dec.el b/ew-dec.el
index fa80a83..6688adf 100644
--- a/ew-dec.el
+++ b/ew-dec.el
@@ -459,6 +459,37 @@ each line is separated by CRLF."
 (defun ew-contain-non-ascii-p (str)
   (not (eq (charsets-to-mime-charset (find-charset-string str)) 'us-ascii)))
 
+;;;
+
+(defun ew-decode-field-test (field-name field-body)
+  (with-output-to-temp-buffer "*DOODLE*"
+    (save-excursion
+      (let ((ew-decode-sticked-encoded-word nil)
+	    (ew-decode-quoted-encoded-word nil)
+	    (ew-ignore-75bytes-limit nil)
+	    (ew-ignore-76bytes-limit nil)
+	    (ew-permit-sticked-comment nil)
+	    (ew-permit-sticked-special nil))
+	(princ field-name) (princ ":") (princ field-body) (princ "\n")
+	(princ (make-string fill-column ?-)) (princ "\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	(setq ew-ignore-76bytes-limit t) (princ "[ew-ignore-76bytes-limit -> t]\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	(setq ew-ignore-75bytes-limit t) (princ "[ew-ignore-75bytes-limit -> t]\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	(setq ew-permit-sticked-special t) (princ "[ew-ignore-76bytes-limit -> t]\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	(setq ew-permit-sticked-comment t) (princ "[ew-ignore-76bytes-comment -> t]\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	(setq ew-decode-sticked-encoded-word t) (princ "[ew-decode-sticked-encoded-word -> t]\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	(setq ew-decode-quoted-encoded-word t) (princ "[ew-decode-quoted-encoded-word -> t]\n")
+	(princ field-name) (princ ":") (princ (ew-decode-field-no-cache field-name field-body)) (princ "\n")
+	;; ew-permit-null-encoded-text is not changable when runtime.
+	))))
+
+;;;
+
 '(
 
 (ew-decode-field "To" " =?US-ASCII?Q?phrase?= <akr@jaist.ac.jp>")