From: akr <akr>
Date: Mon, 19 Oct 1998 11:35:28 +0000 (+0000)
Subject: * lisp/message.el (message-make-forward-subject): Use
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Funlabeled-1.45.2.16.2.3.2;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/lisp/message.el b/lisp/message.el
index e3c0872..3e7704b 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3920,10 +3920,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))