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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 747267b674b3574760da657caab226e08789e098..8e80a7a6e199e7b5cba209e30a0866473e32fa6d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/epg.el b/lisp/epg.el
index 9fde76d5f8570311e28524e9cf2604ddbb6df6c8..ad172dfbdcd2c3728816ea529bf32652b67fef01 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -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 @@ PASSPHRASE-CALLBACK is either a function, or a cons-cell whose
 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)