From: morioka <morioka>
Date: Tue, 29 Sep 1998 20:28:08 +0000 (+0000)
Subject: (mail-header-id): Use `mime-fetch-field' and `mail-header-entity'.
X-Git-Tag: chao-gnus-6_9_1~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cc225b5b048f18fc621f4255e393f7e18b27b7b4;p=elisp%2Fgnus.git-

(mail-header-id): Use `mime-fetch-field' and `mail-header-entity'.
(mail-header-set-id): Use `mail-header-set-field'.
(make-full-mail-header): Modify data structure to store Message-Id to
mime-entity.
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index d270b3d..2bde578 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -125,12 +125,12 @@ on your system, you could say something like:
 (defalias 'mail-header-message-id 'mail-header-id)
 (defmacro mail-header-id (header)
   "Return Id in HEADER."
-  `(aref ,header 4))
+  `(mime-fetch-field 'Message-Id (mail-header-entity ,header)))
 
 (defalias 'mail-header-set-message-id 'mail-header-set-id)
 (defmacro mail-header-set-id (header id)
   "Set article Id of HEADER to ID."
-  `(aset ,header 4 ,id))
+  `(mail-header-set-field ,header 'Message-Id ,id))
 
 (defmacro mail-header-references (header)
   "Return references in HEADER."
@@ -170,7 +170,8 @@ on your system, you could say something like:
   (let ((entity (make-mime-entity-internal nil nil)))
     (mime-entity-set-original-header-internal
      entity
-     (list (cons 'Date date)))
+     (list (cons 'Date date)
+	   (cons 'Message-Id id)))
     (mime-entity-set-parsed-header-internal
      entity
      (list (cons 'Subject subject)