(gnus-article-unfold-long-headers): New variable.

[gnus] / lisp / pgg-pgp.el

diff --git a/lisp/pgg-pgp.el b/lisp/pgg-pgp.el
index df58a86..e53a0c2 100644 (file)
--- a/lisp/pgg-pgp.el
+++ b/lisp/pgg-pgp.el
@@ -73,8 +73,7 @@ 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 (let ((default-enable-multibyte-characters t))
-                          (get-buffer-create output-buffer))
+    (with-current-buffer (get-buffer-create output-buffer)
       (buffer-disable-undo)
       (erase-buffer))
     (when passphrase
@@ -118,8 +117,7 @@ Bourne shell or its equivalent \(not tcsh) is needed for \"2>\"."
 (defun pgg-pgp-lookup-key (string &optional type)
   "Search keys associated with STRING."
   (let ((args (list "+batchmode" "+language=en" "-kv" string)))
-    (with-current-buffer (let ((default-enable-multibyte-characters t))
-                          (get-buffer-create pgg-output-buffer))
+    (with-current-buffer (get-buffer-create pgg-output-buffer)
       (buffer-disable-undo)
       (erase-buffer)
       (apply #'call-process pgg-pgp-program nil t nil args)
@@ -168,7 +166,7 @@ passphrase cache or user."
              (pgg-read-passphrase
               (format "PGP passphrase for %s: " pgg-pgp-user-id) key)))
         (args
-          '("+verbose=1" "+batchmode" "+language=us" "-f")))
+         '("+verbose=1" "+batchmode" "+language=us" "-f")))
     (pgg-pgp-process-region start end passphrase pgg-pgp-program args)
     (pgg-process-when-success
       (if pgg-cache-passphrase