From e6aab30128c29dc705065846c4b9c9e17761a240 Mon Sep 17 00:00:00 2001 From: Richard M Stallman Date: Wed, 14 Oct 2020 19:10:02 -0400 Subject: [PATCH] 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 3ad4da16c89..dd171ab6474 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)) -- 2.39.5