From 43fb8a7e0c97a45bff1218e1758ef83404955908 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Oct 1998 12:46:29 +0000 Subject: [PATCH] (make-full-mail-header-from-decoded-header): New function. --- lisp/nnheader.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index cb3ce65..ca5ff54 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -121,6 +121,18 @@ on your system, you could say something like: (cons 'From from)) )) +(defsubst make-full-mail-header-from-decoded-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)) + (defun make-mail-header (&optional init) "Create a new mail header structure initialized with INIT." (make-full-mail-header init init init init init -- 1.7.10.4