From de37b0f6ec99e02c98d3f6217826b092c1d3ccc2 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 29 Sep 1998 19:01:47 +0000 Subject: [PATCH] (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. --- lisp/nnheader.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) 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) )) -- 1.7.10.4