[Emacs-diffs] /srv/bzr/emacs/trunk r111347: lisp/gnus/mml2015.el (mml2015-epg-key-image): separate attribute stream from stderr

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111347
author: Andreas Schwab <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2012-12-27 14:44:01 +0000
message:
  lisp/gnus/mml2015.el (mml2015-epg-key-image): separate attribute stream from 
stderr
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml2015.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-12-27 08:21:08 +0000
+++ b/lisp/gnus/ChangeLog       2012-12-27 14:44:01 +0000
@@ -5,6 +5,9 @@
 
 2012-12-27  Andreas Schwab  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/gnus/mml2015.el'
--- a/lisp/gnus/mml2015.el      2012-12-26 22:30:58 +0000
+++ b/lisp/gnus/mml2015.el      2012-12-27 14:44:01 +0000
@@ -827,7 +827,7 @@
     (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))