Re: Displaying picture from PGP key if present?

["Arne Jørgensen" <arne@arnested.dk>]

[-- Attachment #1.1: Type: text/plain, Size: 1138 bytes --]

asjo@koldfront.dk (Adam Sjøgren) writes:

> On Wed, 26 Dec 2012 01:33:33 +0100, Adam wrote:
>
>> So, I'm kind of stuck on that.
>
> Skipping the first 16 bytes and using a non-multibyte buffer on the way
> makes it work with --attribute-fd:
>
> (defun epg-key-image (key-id)
>   "Return the image of a key, if any"
>   (with-temp-buffer
>     (set-buffer-multibyte nil)
>     (let* ((coding-system-for-write 'binary)
>            (coding-system-for-read 'binary)
>            (data (shell-command-to-string (concat epg-gpg-program
>                                                   " --attribute-fd 2"
>                                                   " --list-keys " key-id " >/dev/null"))))
>       (when (> (length data) 0)
>         (insert (substring data 16))
>         (create-image (buffer-string) nil t)))))

Nice feature that I had to try immediately :-)

For some reason it just did not work with my signature - i guess the ø
in Jørgensen is to blame. Adding a "--display-charset utf-8" as
parameter to gpg solved it.

Patch attached and this posting signed as example.

Kind regards,
Arne


[-- Attachment #1.2: mml2015.el (mml2015-epg-key-image): Use --display-charset utf-8 --]
[-- Type: text/x-patch, Size: 1634 bytes --]

From 8742f96f9595fd526b35400a221ca7a81cf1b292 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Arne=20J=C3=B8rgensen?= <arne@arnested.dk>
Date: Thu, 27 Dec 2012 06:10:26 +0100
Subject: [PATCH] mml2015.el (mml2015-epg-key-image): Use --display-charset
 utf-8.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit


Signed-off-by: Arne Jørgensen <arne@arnested.dk>
---
 lisp/ChangeLog  | 4 ++++
 lisp/mml2015.el | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eafb422..00f843c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-27  Arne Jørgensen  <arne@arnested.dk>
+
+	* mml2015.el (mml2015-epg-key-image): Use --display-charset utf-8.
+
 2012-12-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* mml2015.el (mml2015-epg-key-image): Use mm-set-buffer-multibyte.
diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 0bc83ad..a9121d5 100644
--- a/lisp/mml2015.el
+++ b/lisp/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 --display-charset utf-8 --list-options no-show-photos --attribute-fd 2 --list-keys %s > /dev/null"
                           epg-gpg-program key-id))))
       (when (> (length data) 0)
         (insert (substring data 16))
-- 
Arne Jørgensen


[-- Attachment #2: Type: application/pgp-signature, Size: 543 bytes --]