From 63a356cb7fc462b98c726c92e401d0c3baf30f2e Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 8 Jul 1999 13:01:56 +0000
Subject: [PATCH] (make-full-mail-header-from-decoded-header): Add `extra' as
 a luna-class. (make-full-mail-header): Ditto.
 (nnheader-decode-field-body): Redefine as a regular
 function. (mail-header-set-extra): Alias to
 `mime-gnus-entity-set-extra-internal'. (mail-header-extra):
 Alias to `mime-gnus-entity-extra-internal'.

---
 lisp/nnheader.el |   22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 7773883..8d1edeb 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -110,16 +110,16 @@ on your system, you could say something like:
 (defalias 'nnheader-decode-from
   (mime-find-field-decoder 'From 'nov))
 
-(defalias 'mail-header-extra 'ignore)
-(defalias 'mail-header-set-extra 'ignore)
+(defalias 'mail-header-extra 'mime-gnus-entity-extra-internal)
+(defalias 'mail-header-set-extra 'mime-gnus-entity-set-extra-internal)
 
-(defsubst nnheader-decode-field-body (field-body field-name
-						 &optional mode max-column)
+(defun nnheader-decode-field-body (field-body field-name
+					      &optional mode max-column)
   (mime-decode-field-body field-body
-                          (if (stringp field-name)
-                              (intern (capitalize field-name))
-                            field-name)
-                          mode max-column))
+			  (if (stringp field-name)
+			      (intern (capitalize field-name))
+			    field-name)
+			  mode max-column))
 
 (defsubst make-full-mail-header
   (&optional number subject from date id references chars lines xref extra)
@@ -138,8 +138,7 @@ on your system, you could say something like:
 		    :xref xref
 		    :original-header (list (cons 'Subject subject)
 					   (cons 'From from))
-		    ;; :extra ???
-		    ))
+		    :extra extra))
 
 (defsubst make-full-mail-header-from-decoded-header
   (&optional number subject from date id references chars lines xref extra)
@@ -154,8 +153,7 @@ on your system, you could say something like:
 		    :chars chars
 		    :lines lines
 		    :xref xref
-		    ;; :extra ???
-		    ))
+		    :extra extra))
 
 (defun make-mail-header (&optional init)
   "Create a new mail header structure initialized with INIT."
-- 
1.7.10.4