* lpath.el: Fbind string-as-multibyte for XEmacs.

[gnus] / lisp / pgg-pgp5.el

diff --git a/lisp/pgg-pgp5.el b/lisp/pgg-pgp5.el
index 75c96e5..a21e244 100644 (file)
--- a/lisp/pgg-pgp5.el
+++ b/lisp/pgg-pgp5.el
@@ -88,7 +88,8 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
         (errors-buffer pgg-errors-buffer)
         (process-connection-type nil)
         process status exit-status)
-    (with-current-buffer (get-buffer-create output-buffer)
+    (with-current-buffer (let ((default-enable-multibyte-characters t))
+                          (get-buffer-create output-buffer))
       (buffer-disable-undo)
       (erase-buffer))
     (when passphrase
@@ -132,7 +133,8 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 (defun pgg-pgp5-lookup-key (string &optional type)
   "Search keys associated with STRING."
   (let ((args (list "+language=en" "-l" string)))
-    (with-current-buffer (get-buffer-create pgg-output-buffer)
+    (with-current-buffer (let ((default-enable-multibyte-characters t))
+                          (get-buffer-create pgg-output-buffer))
       (buffer-disable-undo)
       (erase-buffer)
       (apply #'call-process pgg-pgp5-pgpk-program nil t nil args)