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

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 6bc79a0..cb3ce65 100644 (file)
--- 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."