From: morioka <morioka>
Date: Thu, 1 Oct 1998 00:09:42 +0000 (+0000)
Subject: (make-full-mail-header): Store original subject and from fields.
X-Git-Tag: chao-gnus-6_9_3~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7064697280a8299d3aa6a008d93b11f2a960623d;p=elisp%2Fgnus.git-

(make-full-mail-header): Store original subject and from fields.
---

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 6bc79a0..cb3ce65 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -116,7 +116,10 @@ on your system, you could say something like:
        (eword-decode-and-unfold-structured-field from)
      )
    date id references
-   chars lines xref))
+   chars lines xref
+   (list (cons 'Subject subject)
+	 (cons 'From from))
+   ))
 
 (defun make-mail-header (&optional init)
   "Create a new mail header structure initialized with INIT."