From: morioka <morioka>
Date: Wed, 30 Sep 1998 23:31:45 +0000 (+0000)
Subject: (make-full-mail-header): Decode subject and from; changed to inline
X-Git-Tag: chao-gnus-6_9_3~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=54e6dbd7be6b6e94a1a330e3293081cc93b04115;p=elisp%2Fgnus.git-

(make-full-mail-header): Decode subject and from; changed to inline
function.
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index a300d0c..6bc79a0 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -102,15 +102,21 @@ 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)
 
-(defmacro make-full-mail-header (&optional number subject from date id
-					references chars lines xref)
+(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."
-  `(make-mime-entity-internal 'gnus ,number
-			      nil
-			      nil nil nil
-			      ,subject ,from
-			      ,date ,id ,references
-			      ,chars ,lines ,xref))
+  (make-mime-entity-internal
+   'gnus number
+   nil
+   nil nil nil
+   (if subject
+       (eword-decode-and-unfold-unstructured-field subject)
+     )
+   (if from
+       (eword-decode-and-unfold-structured-field from)
+     )
+   date id references
+   chars lines xref))
 
 (defun make-mail-header (&optional init)
   "Create a new mail header structure initialized with INIT."