[Emacs-diffs] /srv/bzr/emacs/trunk r111879: lisp/gnus/mml2015.el (mml2015-epg-key-image): Wrap epg-gpg-program in shell-quote-argument

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 111879
author: Adam Sjøgren <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2013-02-25 22:47:31 +0000
message:
  lisp/gnus/mml2015.el (mml2015-epg-key-image): Wrap epg-gpg-program in 
shell-quote-argument
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mml2015.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-02-22 22:54:37 +0000
+++ b/lisp/gnus/ChangeLog       2013-02-25 22:47:31 +0000
@@ -1,3 +1,8 @@
+2013-02-25  Adam Sjøgren  <address@hidden>
+
+       * mml2015-el (mml2015-epg-key-image): Wrap epg-gpg-program in
+       shell-quote-argument.
+
 2013-02-22  David Engster  <address@hidden>
 
        * gnus-registry.el (gnus-registry-save): Provide class name when

=== modified file 'lisp/gnus/mml2015.el'
--- a/lisp/gnus/mml2015.el      2013-02-17 12:46:28 +0000
+++ b/lisp/gnus/mml2015.el      2013-02-25 22:47:31 +0000
@@ -865,7 +865,7 @@
            (coding-system-for-read 'binary)
            (data (shell-command-to-string
                   (format "%s --list-options no-show-photos --attribute-fd 3 
--list-keys %s 3>&1 >/dev/null 2>&1"
-                          epg-gpg-program key-id))))
+                          (shell-quote-argument epg-gpg-program) key-id))))
       (when (> (length data) 0)
         (insert (substring data 16))
         (create-image (buffer-string) nil t)))))