[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e6aab30 1/2: Handle encrypting mime parts
From: |
Richard M. Stallman |
Subject: |
master e6aab30 1/2: Handle encrypting mime parts |
Date: |
Wed, 14 Oct 2020 19:11:45 -0400 (EDT) |
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))