* 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 (file)
--- 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 (file)
--- 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"))))))
 
 ;;;