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

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index ca1fc5c..a300d0c 100644 (file)
--- 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."