From: akr <akr>
Date: Wed, 26 Aug 1998 05:24:56 +0000 (+0000)
Subject: * DOODLE-TIPS (gnus-structured-field-decoder): Use
X-Git-Tag: doodle-1_9_2~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e1e454c3815d8fa8ba5d76e5c285f1bfc281d319;p=elisp%2Fflim.git

* DOODLE-TIPS (gnus-structured-field-decoder): Use
`eword-decode-and-unfold-structured-field'.
(gnus-unstructured-field-decoder): Use
`eword-decode-unstructured-field-body'.
---

diff --git a/ChangeLog b/ChangeLog
index 7956500..7cf1d5e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
+
+	* 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      <akr@jaist.ac.jp>
 
 	* 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.