From c633ffc2cf62d4117888d27d83bd214af2ff8ba9 Mon Sep 17 00:00:00 2001 From: akr Date: Wed, 26 Aug 1998 06:23:40 +0000 Subject: [PATCH] * ew-dec.el (ew-decode-field-test): New function. --- ChangeLog | 4 ++++ ew-dec.el | 31 +++++++++++++++++++++++++++++++ 2 files changed, 35 insertions(+) diff --git a/ChangeLog b/ChangeLog index 7cf1d5e..ae040e4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1998-08-26 Tanaka Akira + * ew-dec.el (ew-decode-field-test): New function. + +1998-08-26 Tanaka Akira + * 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?= ") -- 1.7.10.4