From: Adam Sjøgren Date: Mon, 25 Feb 2013 22:47:31 +0000 (+0000) Subject: lisp/gnus/mml2015.el (mml2015-epg-key-image): Wrap epg-gpg-program in shell-quote... X-Git-Tag: emacs-24.3.90~173^2~6^2~40 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9bb0d4811696c94affc751a2de1906d3b54baf9;p=emacs.git lisp/gnus/mml2015.el (mml2015-epg-key-image): Wrap epg-gpg-program in shell-quote-argument --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6642a2082c7..0fa870e595f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-02-25 Adam Sjøgren + + * mml2015-el (mml2015-epg-key-image): Wrap epg-gpg-program in + shell-quote-argument. + 2013-02-22 David Engster * gnus-registry.el (gnus-registry-save): Provide class name when diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el index b20c02aa26f..39bce23e76c 100644 --- a/lisp/gnus/mml2015.el +++ b/lisp/gnus/mml2015.el @@ -865,7 +865,7 @@ If set, it overrides the setting of `mml2015-sign-with-sender'." (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)))))