From dc8d01fb29dd12fdfba4ca26fd40599884cd8b8b Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sat, 5 Oct 2002 05:31:37 +0000 Subject: [PATCH] * mml1991.el (mml1991-pgg-sign): Do QP. --- lisp/ChangeLog | 2 ++ lisp/mml1991.el | 7 +++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fed4faed0..e8c2b83d2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2002-10-05 Simon Josefsson + * mml1991.el (mml1991-pgg-sign): Do QP. + * pgg-gpg.el (pgg-gpg-encrypt-region): Make signencrypt really work. diff --git a/lisp/mml1991.el b/lisp/mml1991.el index 4f8ce0dc6..efa707ac1 100644 --- a/lisp/mml1991.el +++ b/lisp/mml1991.el @@ -24,7 +24,7 @@ ;;; Commentary: -;; RCS: $Id: mml1991.el,v 6.9 2002/09/29 20:37:10 jas Exp $ +;; RCS: $Id: mml1991.el,v 6.10 2002/09/29 21:24:45 jas Exp $ ;;; Code: @@ -211,14 +211,17 @@ (setq headers (buffer-substring (point-min) (point))) (forward-line) ;; skip header/body separator (kill-region (point-min) (point))) + (quoted-printable-decode-region (point-min) (point-max)) (unless (let ((pgg-gpg-user-id (message-options-get 'message-sender))) (pgg-sign-region (point-min) (point-max) t)) (pop-to-buffer pgg-errors-buffer) (error "Encrypt error")) (kill-region (point-min) (point-max)) + (insert-buffer pgg-output-buffer) + (quoted-printable-encode-region (point-min) (point-max)) + (goto-char (point-min)) (if headers (insert headers)) (insert "\n") - (insert-buffer pgg-output-buffer) t)) (defun mml1991-pgg-encrypt (cont) -- 2.25.1