* lisp/message.el (message-make-forward-subject): Use

`eword-decode-field'.

* lisp/nnheader.el (make-full-mail-header): Use `eword-decode-field'.

diff --git a/ChangeLog b/ChangeLog
index b024d6d..1ae3c40 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1998-10-19  Tanaka Akira  <akr@jaist.ac.jp>
+
+        * lisp/message.el (message-make-forward-subject): Use
+        `eword-decode-field'.
+
+        * lisp/nnheader.el (make-full-mail-header): Use `eword-decode-field'.
+
 1998-10-14  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * lisp/gnus.el (gnus-version-number): Update to 6.9.5.

diff --git a/lisp/message.el b/lisp/message.el
index 0ca9437..4beb72c 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3914,10 +3914,12 @@ the message."
       (let ((funcs message-make-forward-subject-function)
            (subject (if message-wash-forwarded-subjects
                         (message-wash-subject
-                         (or (eword-decode-unstructured-field-body
-                              (message-fetch-field "Subject")) ""))
-                      (or (eword-decode-unstructured-field-body
-                           (message-fetch-field "Subject")) ""))))
+                         (or (eword-decode-field
+                               'Subject (message-fetch-field "Subject"))
+                              ""))
+                      (or (eword-decode-field
+                            'Subject (message-fetch-field "Subject"))
+                           ""))))
        ;; Make sure funcs is a list.
        (and funcs
             (not (listp funcs))

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index ca5ff54..7ae3fff 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -110,10 +110,10 @@ on your system, you could say something like:
    nil
    nil nil nil
    (if subject
-       (eword-decode-and-unfold-unstructured-field subject)
+       (eword-decode-field 'Subject subject t)
      )
    (if from
-       (eword-decode-and-unfold-structured-field from)
+       (eword-decode-field 'From from t)
      )
    date id references
    chars lines xref