lisp/gnus/mml2015.el (mml2015-epg-key-image): separate attribute stream from stderr

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a830088f3b6cc715a42de46738dc2c38a4923b8c..9968c82faeb2fc2be60ea55ac0b0487daa0ac3dd 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -5,6 +5,9 @@
 
 2012-12-27  Andreas Schwab  <schwab@linux-m68k.org>
 
+       * mml2015.el (mml2015-epg-key-image): separate attribute stream from
+       stderr.
+
        * nnimap.el (nnimap-find-article-by-message-id):
        Don't error out if group is nil.
 

diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index 0bc83ad4fb0408f32d0f171e3f90ecdb2c33cef4..f8f0a560417baf6c69937dfb5377c1f075d81b00 100644 (file)
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -827,7 +827,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
     (let* ((coding-system-for-write 'binary)
            (coding-system-for-read 'binary)
            (data (shell-command-to-string
-                  (format "%s --list-options no-show-photos --attribute-fd 2 --list-keys %s > /dev/null"
+                  (format "%s --list-options no-show-photos --attribute-fd 3 --list-keys %s 3>&1 >/dev/null 2>&1"
                           epg-gpg-program key-id))))
       (when (> (length data) 0)
         (insert (substring data 16))