From: morioka <morioka>
Date: Tue, 29 Sep 1998 19:01:47 +0000 (+0000)
Subject: (mail-header-set-subject): Fix typo.
X-Git-Tag: chao-gnus-6_9_1~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=de37b0f6ec99e02c98d3f6217826b092c1d3ccc2;p=elisp%2Fgnus.git-

(mail-header-set-subject): Fix typo.
(mail-header-from): Use `mime-read-field'.
(mail-header-set-from): Store to mime-entity.
(make-full-mail-header): Modify data structure to store Subject to
mime-entity.
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index ba80bbd..5920482 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -83,15 +83,18 @@ on your system, you could say something like:
   `(mime-entity-set-parsed-header-internal
     (aref ,header 1)
     (put-alist 'Subject ,subject
-	       (mime-entity-parsed-header-internal (aref ,header 10)))))
+	       (mime-entity-parsed-header-internal (aref ,header 1)))))
 
 (defmacro mail-header-from (header)
   "Return author string in HEADER."
-  `(aref ,header 2))
+  `(mime-read-field 'From (aref ,header 1)))
 
 (defmacro mail-header-set-from (header from)
   "Set article author of HEADER to FROM."
-  `(aset ,header 2 ,from))
+  `(mime-entity-set-parsed-header-internal
+    (aref ,header 1)
+    (put-alist 'From ,from
+	       (mime-entity-parsed-header-internal (aref ,header 1)))))
 
 (defmacro mail-header-date (header)
   "Return date in HEADER."
@@ -151,8 +154,10 @@ on your system, you could say something like:
 					references chars lines xref)
   "Create a new mail header structure initialized with the parameters given."
   (let ((entity (make-mime-entity-internal nil nil)))
-    (mime-entity-set-parsed-header-internal entity
-					    (list (cons 'Subject subject)))
+    (mime-entity-set-parsed-header-internal
+     entity
+     (list (cons 'Subject subject)
+	   (cons 'From from)))
     (vector number entity from date id references chars lines xref)
     ))