gpg, attach my public key (smime)

gpg, attach my public key (smime)

[Uwe Brauer]

[-- Attachment #1: Type: text/plain, Size: 294 bytes --]

Hello

Usually I use smime, in which case my public key is included in my
signature. A feature which I find convenient.

I looked around but cannot find anything like a function which would
attach my public gpg key. 

Does anybody know about such a function?

Thanks 

Uwe Brauer 

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5556 bytes --]

Re: gpg, attach my public key (smime)

[Uwe Brauer]

[-- Attachment #1: Type: text/plain, Size: 358 bytes --]

>> "Uwe" == Uwe Brauer <oub@mat.ucm.es> writes:


   > I looked around but cannot find anything like a function which would
   > attach my public gpg key. 

   > Does anybody know about such a function?
pgg-insert-key

Does almost what I want, but inserts a ASCII armoured key, 

But I am looking for the same functionality using  using pgpmime.

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5556 bytes --]

mml-insert-part (was: gpg, attach my public key (smime))

[Uwe Brauer]

[-- Attachment #1: Type: text/plain, Size: 531 bytes --]

>> "Uwe" == Uwe Brauer <oub@mat.ucm.es> writes:

>> "Uwe" == Uwe Brauer <oub@mat.ucm.es> writes:
   >> I looked around but cannot find anything like a function which would
   >> attach my public gpg key. 

   >> Does anybody know about such a function?
   > pgg-insert-key

   > Does almost what I want, but inserts a ASCII armoured key, 

   > But I am looking for the same functionality using  using pgpmime.

 mml-insert-part allows me to select application/pgp-keys but then no
 key is inserted. What do I miss?

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5556 bytes --]

[SOLVED,NEW] (was: mml-insert-part)

[Uwe Brauer]

[-- Attachment #1: Type: text/plain, Size: 617 bytes --]


Ok, I wrote up a small hack, maybe this is already implemented but I
find it useful. Comments are welcome.

(defun mml-attach-pgpkey-mime ()
  "Short hack to attach the own public  `gpg' key."
  (interactive)
  (save-excursion
	(let* ((current (current-buffer))
		  (pgp-pubkey-temp-file (make-temp-file "pgp-public-key")))
	  (find-file pgp-pubkey-temp-file) 
	  (kill-region (point-min) (point-max)) ;just in case!
	  (pgg-insert-key)
	  (write-file pgp-pubkey-temp-file)
	  (switch-to-buffer current)
	  (mml-attach-file pgp-pubkey-temp-file "application/pgp-signature" "pgp-key" "attachment"))))

[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 5556 bytes --]