From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/82757 Path: news.gmane.org!not-for-mail From: Julien Danjou Newsgroups: gmane.emacs.gnus.general Subject: Re: Displaying picture from PGP key if present? Date: Thu, 27 Dec 2012 11:06:44 +0100 Message-ID: <87mwwzyfkb.fsf@dex.adm.naquadah.org> References: <87ehirwgjq.fsf@topper.koldfront.dk> <87ip7quzk3.fsf@gnus.org> <87mwx2s62p.fsf@topper.koldfront.dk> <87vcbqtk8q.fsf@gnus.org> <87ip7qs5fm.fsf@topper.koldfront.dk> <878v8mtjbg.fsf@gnus.org> <874njas1yf.fsf@topper.koldfront.dk> <87623qb5vl.fsf@gnus.org> <87sj6t7oe5.fsf@topper.koldfront.dk> <87obhhybna.fsf@topper.koldfront.dk> <87ip7py7mq.fsf@topper.koldfront.dk> <87d2xxy5t7.fsf@topper.koldfront.dk> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-Trace: ger.gmane.org 1356602881 5336 80.91.229.3 (27 Dec 2012 10:08:01 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 27 Dec 2012 10:08:01 +0000 (UTC) Cc: ding@gnus.org To: asjo@koldfront.dk (Adam =?utf-8?Q?Sj=C3=B8gren?=) Original-X-From: ding-owner+M31023@lists.math.uh.edu Thu Dec 27 11:08:16 2012 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ToANn-0005Tc-AZ for ding-account@gmane.org; Thu, 27 Dec 2012 11:08:11 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1ToAMc-0002Kj-Ap; Thu, 27 Dec 2012 04:06:58 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1ToAMZ-0002KQ-5Q for ding@lists.math.uh.edu; Thu, 27 Dec 2012 04:06:55 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.76) (envelope-from ) id 1ToAMW-0004zY-Ot for ding@lists.math.uh.edu; Thu, 27 Dec 2012 04:06:54 -0600 Original-Received: from prometheus.naquadah.org ([212.85.154.174] helo=mx1.naquadah.org) by quimby.gnus.org with esmtp (Exim 4.72) (envelope-from ) id 1ToAMU-0004Os-Ap for ding@gnus.org; Thu, 27 Dec 2012 11:06:50 +0100 Original-Received: from dex.adm.naquadah.org (unknown [IPv6:2a01:e34:ec03:2920:5653:edff:fe1b:bb5f]) (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by mx1.naquadah.org (Postfix) with ESMTPSA id D1F165C1E7; Thu, 27 Dec 2012 11:06:44 +0100 (CET) Mail-Followup-To: asjo@koldfront.dk (Adam =?utf-8?Q?Sj=C3=B8gren?=), ding@gnus.org In-Reply-To: <87d2xxy5t7.fsf@topper.koldfront.dk> ("Adam \=\?utf-8\?Q\?Sj\?\= \=\?utf-8\?Q\?\=C3\=B8gren\=22's\?\= message of "Wed, 26 Dec 2012 02:12:52 +0100") User-Agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.3.50 (gnu/linux) X-Spam-Score: -1.9 (-) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:82757 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable On Wed, Dec 26 2012, Adam Sj=C3=B8gren wrote: > 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))))) The following change is needed otherwise I get error reading my mail: diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 0bc83ad..19c55f9 100644 =2D-- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -829,7 +829,8 @@ If set, it overrides the setting of `mml2015-sign-with-= sender'." (data (shell-command-to-string (format "%s --list-options no-show-photos --attribute-fd= 2 --list-keys %s > /dev/null" epg-gpg-program key-id)))) =2D (when (> (length data) 0) + (when (and (> (length data) 0) + (not (string-match "^gpg: error reading key: public key n= ot found$" data))) (insert (substring data 16)) (create-image (buffer-string) nil t))))) =20 I'll install it unless you have a better fix. =2D-=20 Julien Danjou // Free Software hacker & freelance // http://julien.danjou.info --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.12 (GNU/Linux) iQIcBAEBAgAGBQJQ3B20AAoJEGEbqVCLeKXCa0cP/2aJrHK52biZ3APmHqrPIoto s3a6dkBWQ4mPB2EwpzfNpQWHOfmBW99E/gqgnbinmRujilIpBkVBfDg/vobdyAcG 3nKGQtR8F7kzQI7Skzg/9PTpgwaAanAWK2v+e9xo6vSdTUaIXeGj4IDz/AlmZAJV EWmmzqIDLkzoQUjPkn7MNWa/6LeyijrYH07E6T0aLN8b/2W/0HZ7WzriXSr3M2Rg HNBXzRGCRAss8+6EXY57gl2jJlvi0n3R9HgTYBBGOBQqnbKWOUcKYk+BuSPvkCXZ Uh5LQiJGtd7iaegYIUCjd7yBWVbxCua5Nk1/AbRnfEHbEPwrRYlTHYzCUED3ja6C hGeP5FBpC4oSf3S1BHvnqoEuvNxPxzp13cwuN7qnO98KxXDH1V0ilWb/RKmsXEzZ qUAxFkrV7AK0CbgElmJdkJZr+zVTvEZ+5s4LExfIV/ULQVA/+q2GjgLUZvI22veG OEFf39gwl86xaFzHi0Hy6uvmxGVauBqQKE63VyKqsqGZMH51wH9b+VyO8pONloJC yLdDTCktx8jZgsUNcL3oqVxXdgziWcImhFBeRceSn13AqZ+XSPOI9hk1Ko30yXt+ 1PmcNkoVtVgvLwkIiWO6bAqYnvICjkV2WiLK2u+48uV99tuqR1JUE3Bd7+cCpwmS 00ct7rh/I4YndqaesD9F =xENg -----END PGP SIGNATURE----- --=-=-=--