* mml1991.el (mml1991-mailcrypt-encrypt, mml1991-gpg-encrypt)

* mml2015.el (mml2015-gpg-encrypt): Disable multibyte in buffers
 generated within the mm-with-unibyte-current-buffer macro.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfc3f86..40eedf2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-05-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mml1991.el (mml1991-mailcrypt-encrypt, mml1991-gpg-encrypt)
+       * mml2015.el (mml2015-gpg-encrypt): Disable multibyte in buffers
+       generated within the mm-with-unibyte-current-buffer macro.
+
 2010-05-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-bind-safe-url-regexp): Bind mm-w3m-safe-url-regexp

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index a3ada29..3ba4795 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -145,6 +145,7 @@ Whether the passphrase is cached at all is controlled by
       (delete-region (point-min) (point)))
     (mm-with-unibyte-current-buffer
       (with-temp-buffer
+       (inline (mm-disable-multibyte))
        (setq cipher (current-buffer))
        (insert-buffer-substring text)
        (unless (mc-encrypt-generic
@@ -225,6 +226,7 @@ Whether the passphrase is cached at all is controlled by
       (delete-region (point-min) (point)))
     (mm-with-unibyte-current-buffer
       (with-temp-buffer
+       (inline (mm-disable-multibyte))
        (flet ((gpg-encrypt-func
                (sign plaintext ciphertext result recipients &optional
                      passphrase sign-with-key armor textmode)

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 130a3ca..977f4da 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -680,6 +680,7 @@ Whether the passphrase is cached at all is controlled by
        cipher)
     (mm-with-unibyte-current-buffer
       (with-temp-buffer
+       (mm-disable-multibyte)
        ;; set up a function to call the correct gpg encrypt routine
        ;; with the right arguments. (FIXME: this should be done
        ;; differently.)