From: akr <akr>
Date: Mon, 19 Oct 1998 12:28:27 +0000 (+0000)
Subject: * lisp/message.el (message-make-forward-subject): Use
X-Git-Tag: chaotzu-gnus-199811302358
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e4e1854a4517b330cab81e716a440d21d719c13f;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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
--- 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