From cc225b5b048f18fc621f4255e393f7e18b27b7b4 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 29 Sep 1998 20:28:08 +0000 Subject: [PATCH] (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. --- lisp/nnheader.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 1.7.10.4