From: akr <akr>
Date: Fri, 28 Aug 1998 03:02:26 +0000 (+0000)
Subject: * ew-dec.el (ew-decode-field-test): Print sequence of fragments
X-Git-Tag: doodle-1_9_2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f8ac075dbc4cbeb3a7c421318e03fee62e70dcf;p=elisp%2Fflim.git

* ew-dec.el (ew-decode-field-test): Print sequence of fragments
if prefix argument exists.
---

diff --git a/ChangeLog b/ChangeLog
index aa41a90..d1eb210 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-08-28  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* ew-dec.el (ew-decode-field-test): Print sequence of fragments
+	if prefix argument exists.
+
 1998-08-27  Tanaka Akira      <akr@jaist.ac.jp>
 
 	* ew-dec.el (ew-decode-field-test): Support
diff --git a/ew-dec.el b/ew-dec.el
index 759c7d8..7811387 100644
--- a/ew-dec.el
+++ b/ew-dec.el
@@ -512,7 +512,17 @@ each line is separated by CRLF."
 	  (unless (equal d1 d2)
 	    (insert field-name ":" d2 "\n")
 	    (setq d1 d2))
-	  (setq options (cdr options)))))))
+	  (setq options (cdr options)))
+	(insert (make-string 76 ?-) "\n")
+	(when current-prefix-arg
+	  (mapcar
+	   (lambda (frag)
+	     (insert (format "%-16s %S\n"
+			     (get frag 'type)
+			     (symbol-name frag)))
+	     nil)
+	   (ew-frag-list (ew-analyze-field-to-decode field-name field-body)))
+	  (insert (make-string 76 ?-) "\n"))))))
 
 ;;;