# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1291512658 -32400
# Node ID b803b31708094d933b88d71ac409ba12dd2f7d8a
# Parent  f076312ff320d146802916180c1b11406f70432c
Trivial fixes for epg.el.

* epg.el (epg-digest-algorithm-alist): Replace "RMD160" with
"RIPEMD160" (Bug#7490).  Reported by Daniel Kahn Gillmor.
(epg-context-set-passphrase-callback): Mention that the callback
is not called when used with GnuPG 2.x.

modified:
  lisp/ChangeLog
  lisp/epg.elk

diff -r f076312ff320 -r b803b3170809 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 04 20:16:01 2010 -0500
+++ b/lisp/ChangeLog	Sun Dec 05 10:30:58 2010 +0900
@@ -33,6 +33,13 @@
 	* files.el (file-relative-name): Handle UNC file names on
 	DOS/Windows.  (Bug#4674)
 
+2010-12-03  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-digest-algorithm-alist): Replace "RMD160" with
+	"RIPEMD160" (Bug#7490).  Reported by Daniel Kahn Gillmor.
+	(epg-context-set-passphrase-callback): Mention that the callback
+	is not called when used with GnuPG 2.x.
+
 2010-12-02  Glenn Morris  <rgm@gnu.org>
 
 	* ps-print.el (ps-line-lengths-internal, ps-nb-pages):
diff -r f076312ff320 -r b803b3170809 lisp/epg.el
--- a/lisp/epg.el	Sat Dec 04 20:16:01 2010 -0500
+++ b/lisp/epg.el	Sun Dec 05 10:30:58 2010 +0900
@@ -66,7 +66,7 @@
 (defconst epg-digest-algorithm-alist
   '((1 . "MD5")
     (2 . "SHA1")
-    (3 . "RMD160")
+    (3 . "RIPEMD160")
     (8 . "SHA256")
     (9 . "SHA384")
     (10 . "SHA512")
@@ -335,7 +335,13 @@
 car is a function and cdr is a callback data.
 
 The function gets three arguments: the context, the key-id in
-question, and the callback data (if any)."
+question, and the callback data (if any).
+
+The callback may not be called if you use GnuPG 2.x, which relies
+on the external program called `gpg-agent' for passphrase query.
+If you really want to intercept passphrase query, consider
+installing GnuPG 1.x _along with_ GnuPG 2.x, which does passphrase
+query by itself and Emacs can intercept them."
   (unless (eq (car-safe context) 'epg-context)
     (signal 'wrong-type-argument (list 'epg-context-p context)))
   (aset (cdr context) 7 (if (consp passphrase-callback)