(pgg-gpg-process-region): Bind

default-enable-multibyte-characters to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe581ba..de2610c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-07  Jesper Harder  <harder@ifa.au.dk>
+
+       * pgg-gpg.el (pgg-gpg-process-region): Bind
+       default-enable-multibyte-characters to nil.
+
 2003-08-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * canlock.el (canlock-password): Fix customization type.

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index a77c8c0..366d9b5 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -67,8 +67,9 @@
     (unwind-protect
        (progn
          (set-default-file-modes 448)
-          (let* ((coding-system-for-write 'binary)
-                 (input (buffer-substring-no-properties start end)))
+          (let ((coding-system-for-write 'binary)
+               (input (buffer-substring-no-properties start end))
+               (default-enable-multibyte-characters nil))
             (with-temp-buffer
               (when passphrase
                 (insert passphrase "\n"))