From: morioka <morioka>
Date: Mon, 12 Oct 1998 12:46:29 +0000 (+0000)
Subject: (make-full-mail-header-from-decoded-header): New function.
X-Git-Tag: chaotzu-gnus-base~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=43fb8a7e0c97a45bff1218e1758ef83404955908;p=elisp%2Fgnus.git-

(make-full-mail-header-from-decoded-header): New function.
---

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