Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

lisp/gnus/mml2015.el (mml2015-epg-key-image): Wrap epg-gpg-program in shell-quote-argument

Browse source
This commit is contained in:
Adam Sjøgren 2013-02-25 22:47:31 +00:00 committed by Katsumi Yamaoka
parent cd27a76dad
commit d9bb0d4811
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2013-02-25 Adam Sjøgren <asjo@koldfront.dk>
* mml2015-el (mml2015-epg-key-image): Wrap epg-gpg-program in
shell-quote-argument.
2013-02-22 David Engster <deng@randomsample.de>
* gnus-registry.el (gnus-registry-save): Provide class name when

2
lisp/gnus/mml2015.el
View file

@ -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)))))