From: morioka <morioka>
Date: Thu, 29 Oct 1998 10:53:03 +0000 (+0000)
Subject: (nnheader-decode-subject): New alias.
X-Git-Tag: chao-gnus-6_12_1~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dd05f92100001e6c18ebf2a22fa2c8a026526bef;p=elisp%2Fgnus.git-

(nnheader-decode-subject): New alias.
(nnheader-decode-from): New alias.
(make-full-mail-header): Use `nnheader-decode-subject' and
`nnheader-decode-from' instead of
`eword-decode-and-unfold-unstructured-field' and
`eword-decode-and-unfold-structured-field'.
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 934f727..80e0b95 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -102,6 +102,11 @@ on your system, you could say something like:
 (defalias 'mail-header-xref 'mime-entity-xref-internal)
 (defalias 'mail-header-set-xref 'mime-entity-set-xref-internal)
 
+(defalias 'nnheader-decode-subject
+  (mime-find-field-decoder 'Subject 'unfolding))
+(defalias 'nnheader-decode-from
+  (mime-find-field-decoder 'From 'unfolding))
+
 (defsubst make-full-mail-header (&optional number subject from date id
 					   references chars lines xref)
   "Create a new mail header structure initialized with the parameters given."
@@ -110,10 +115,10 @@ on your system, you could say something like:
    nil
    nil nil nil
    (if subject
-       (eword-decode-and-unfold-unstructured-field subject)
+       (nnheader-decode-subject subject)
      )
    (if from
-       (eword-decode-and-unfold-structured-field from)
+       (nnheader-decode-from from)
      )
    date id references
    chars lines xref