From: ueno <ueno>
Date: Tue, 25 Apr 2006 06:50:50 +0000 (+0000)
Subject: Set inhibit-redisplay because some Gnus users complain display
X-Git-Tag: epg-0_0_1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=517a432b7e2f7e098146d56e78e135fbedca8cf3;p=elisp%2Fepg.git

Set inhibit-redisplay because some Gnus users complain display
flickering (this is not a problem, though)
---

diff --git a/pgg-epg.el b/pgg-epg.el
index e21faa2..d7baf12 100644
--- a/pgg-epg.el
+++ b/pgg-epg.el
@@ -59,6 +59,7 @@ If optional argument SIGN is non-nil, do a combined sign and encrypt.
 If optional PASSPHRASE is not specified, it will be obtained from the
 passphrase cache or user."
   (let ((context (epg-make-context))
+	(inhibit-redisplay t)		;Some Gnus users hate flickering
 	cipher)
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
@@ -105,6 +106,7 @@ Decrypt the current region between START and END.
 If optional PASSPHRASE is not specified, it will be obtained from the
 passphrase cache or user."
   (let ((context (epg-make-context))
+	(inhibit-redisplay t)		;Some Gnus users hate flickering
 	plain)
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
@@ -133,6 +135,7 @@ Make detached signature from text between START and END.
 If optional PASSPHRASE is not specified, it will be obtained from the
 passphrase cache or user."
   (let ((context (epg-make-context))
+	(inhibit-redisplay t)		;Some Gnus users hate flickering
 	signature)
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
@@ -164,7 +167,8 @@ passphrase cache or user."
   "This function is for internal use only.
 
 Verify region between START and END as the detached signature SIGNATURE."
-  (let ((context (epg-make-context)))
+  (let ((context (epg-make-context))
+	(inhibit-redisplay t))		;Some Gnus users hate flickering
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
     (get-buffer-create pgg-output-buffer)
@@ -189,6 +193,7 @@ Verify region between START and END as the detached signature SIGNATURE."
 
 Insert public key at point."
   (let ((context (epg-make-context))
+	(inhibit-redisplay t)		;Some Gnus users hate flickering
 	pointer)
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)
@@ -199,6 +204,7 @@ Insert public key at point."
 
 Add all public keys in region between START and END to the keyring."
   (let ((context (epg-make-context))
+	(inhibit-redisplay t)		;Some Gnus users hate flickering
 	pointer)
     (epg-context-set-armor context t)
     (epg-context-set-textmode context pgg-text-mode)