From 54e6dbd7be6b6e94a1a330e3293081cc93b04115 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 30 Sep 1998 23:31:45 +0000 Subject: [PATCH] (make-full-mail-header): Decode subject and from; changed to inline function. --- lisp/nnheader.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) 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." -- 1.7.10.4