From: morioka <morioka>
Date: Wed, 30 Sep 1998 15:01:27 +0000 (+0000)
Subject: (make-full-mail-header): Change to macro.
X-Git-Tag: chao-gnus-6_9_1~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94c9be7631fc1fb5865205e21feb14b54c8f45a8;p=elisp%2Fgnus.git-

(make-full-mail-header): Change to macro.
---

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