(smime-decrypt-region): Insert From header.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b10f2c..2a2d83c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-21  Jesper Harder  <harder@ifa.au.dk>
+
+       * smime.el (smime-decrypt-region): Insert From header.
+
 2003-04-21  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@gmx.net>
 
        * gnus-fun.el (gnus-face-from-file, gnus-convert-png-to-face):

diff --git a/lisp/smime.el b/lisp/smime.el
index ccb1ece..0df851f 100644 (file)
--- a/lisp/smime.el
+++ b/lisp/smime.el
@@ -366,6 +366,9 @@ Any details (stdout and stderr) are left in the buffer specified by
     (insert-buffer-substring smime-details-buffer)
     nil))
 
+(eval-when-compile
+  (defvar from))
+
 (defun smime-decrypt-region (b e keyfile)
   "Decrypt S/MIME message in region between B and E with key in KEYFILE.
 On success, replaces region with decrypted data and return non-nil.
@@ -390,6 +393,9 @@ in the buffer specified by `smime-details-buffer'."
            (delete-file tmpfile)))
        (progn
          (delete-region b e)
+         (when (boundp 'from)
+           ;; `from' is dynamically bound in mm-dissect.
+           (insert "From: " from "\n"))
          (insert-buffer-substring buffer)
          (kill-buffer buffer)
          t)