* mm-uu.el (mm-uu-pgp-encrypted-extract-1): Assume buffer is made unibyte after

 clear-decrypt function runs.

* mml2015.el (mml2015-pgg-clear-decrypt): Treat data which pgg returns as a
 unibyte string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7257cc5..39be709 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2006-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mm-uu.el (mm-uu-pgp-encrypted-extract-1): Assume buffer is made
+       unibyte after clear-decrypt function runs.
+
+       * mml2015.el (mml2015-pgg-clear-decrypt): Treat data which pgg
+       returns as a unibyte string.
+
 2006-04-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lpath.el: Revert.

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index c9a41c0..acbba05 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -545,11 +545,18 @@ apply the face `mm-uu-extract'."
                        "OK")))
          (progn
            ;; Decode charset.
-           (when (and (or charset
-                          (setq charset gnus-newsgroup-charset))
-                      (setq charset (mm-charset-to-coding-system charset))
-                      (not (eq charset 'ascii)))
-             (mm-decode-coding-region (point-min) (point-max) charset))
+           (if (and (or charset
+                        (setq charset gnus-newsgroup-charset))
+                    (setq charset (mm-charset-to-coding-system charset))
+                    (not (eq charset 'ascii)))
+               ;; Assume that buffer's multibyteness is turned off.
+               ;; See `mml2015-pgg-clear-decrypt'.
+               (insert (mm-decode-coding-string (prog1
+                                                    (buffer-string)
+                                                  (erase-buffer)
+                                                  (mm-enable-multibyte))
+                                                charset))
+             (mm-enable-multibyte))
            (list (mm-make-handle buf mm-uu-text-plain-type)))
        (list (mm-make-handle buf '("application/pgp-encrypted")))))))
 

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 69d71ab..a35e206 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -711,6 +711,8 @@ Valid packages include `pgg', `gpg' and `mailcrypt'.")
             (buffer-string))))
        (progn
          (erase-buffer)
+         ;; Treat data which pgg returns as a unibyte string.
+         (mm-disable-multibyte)
          (insert-buffer-substring pgg-output-buffer)
          (goto-char (point-min))
          (while (search-forward "\r\n" nil t)