master e6aab30 1/2: Handle encrypting mime parts

[Richard M. Stallman]

branch: master
commit e6aab30128c29dc705065846c4b9c9e17761a240
Author: Richard M Stallman <rms@gnu.org>
Commit: Richard Stallman <rms@gnu.org>

    Handle encrypting mime parts
    
    * epa-mail.el (epa-mail-encrypt): Insert any encoded mime parts
    that are queued up to insert before sending the message.
---
 lisp/epa-mail.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 3ad4da1..dd171ab 100644
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -243,6 +243,11 @@ If no one is selected, symmetric encryption will be 
performed.  "
       (setq epa-last-coding-system-specified
            (or coding-system-for-write
                (select-safe-coding-system (point) (point-max)))))
+ 
+    ;; Insert contents of requested attachments, if any.
+    (when (and (eq major-mode 'mail-mode) mail-encode-mml)
+      (mml-to-mime)
+      (setq mail-encode-mml nil))
 
     ;; Don't let some read-only text stop us from encrypting.
     (let ((inhibit-read-only t))