From 0f8ac075dbc4cbeb3a7c421318e03fee62e70dcf Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 28 Aug 1998 03:02:26 +0000 Subject: [PATCH] * ew-dec.el (ew-decode-field-test): Print sequence of fragments if prefix argument exists. --- ChangeLog | 5 +++++ ew-dec.el | 12 +++++++++++- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index aa41a90..d1eb210 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-08-28 Tanaka Akira + + * ew-dec.el (ew-decode-field-test): Print sequence of fragments + if prefix argument exists. + 1998-08-27 Tanaka Akira * 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")))))) ;;; -- 1.7.10.4