From e1e454c3815d8fa8ba5d76e5c285f1bfc281d319 Mon Sep 17 00:00:00 2001 From: akr Date: Wed, 26 Aug 1998 05:24:56 +0000 Subject: [PATCH] * DOODLE-TIPS (gnus-structured-field-decoder): Use `eword-decode-and-unfold-structured-field'. (gnus-unstructured-field-decoder): Use `eword-decode-unstructured-field-body'. --- ChangeLog | 7 +++++++ DOODLE-TIPS | 8 ++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7956500..7cf1d5e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +1998-08-26 Tanaka Akira + + * DOODLE-TIPS (gnus-structured-field-decoder): Use + `eword-decode-and-unfold-structured-field'. + (gnus-unstructured-field-decoder): Use + `eword-decode-unstructured-field-body'. + 1998-08-25 Tanaka Akira * ew-bq.el (ew-ccl-untrusted-eof-block): Check by coding system instead diff --git a/DOODLE-TIPS b/DOODLE-TIPS index 9d79f95..8df3ae0 100644 --- a/DOODLE-TIPS +++ b/DOODLE-TIPS @@ -11,18 +11,18 @@ tell it here. Unless doing it, DOODLE does not decode atoms in phrase because DOODLE cannot decide whether an atom is in phrase or not without field name information. -(setq gnus-unstructured-field-decoder +(setq gnus-structured-field-decoder (lambda (string) (if (fboundp 'ew-decode-field) (let ((ew-ignore-76bytes-limit t)) - (ew-cut-cr-lf (ew-decode-field "Subject" (ew-lf-crlf-to-crlf string)))) + (ew-cut-cr-lf (ew-decode-field "From" (ew-lf-crlf-to-crlf string)))) (eword-decode-and-unfold-structured-field string)))) -(setq gnus-structured-field-decoder +(setq gnus-unstructured-field-decoder (lambda (string) (if (fboundp 'ew-decode-field) (let ((ew-ignore-76bytes-limit t)) - (ew-cut-cr-lf (ew-decode-field "From" (ew-lf-crlf-to-crlf string)))) + (ew-cut-cr-lf (ew-decode-field "Subject" (ew-lf-crlf-to-crlf string)))) (eword-decode-unstructured-field-body (std11-unfold-string string) 'must-unfold)))) * Ignore warnings about args-eword-* when byte-compiling. -- 1.7.10.4