From 94c9be7631fc1fb5865205e21feb14b54c8f45a8 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 30 Sep 1998 15:01:27 +0000 Subject: [PATCH] (make-full-mail-header): Change to macro. --- lisp/nnheader.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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." -- 1.7.10.4