(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 (file)
--- 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