Re: gpg 1.0.5

[Monty Taylor <mordred@inaugust.com>]

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

Kevin Falcone <kevin@jibsheet.com> writes:

> >>>>> "NP" == Nick Papadonis <npapadon@yahoo.com> writes:
> 
>   NP> Monty Taylor <mordred@inaugust.com> writes:
>   >> Nick Papadonis <npapadon@yahoo.com> writes:
>   >> 
>   >> > Is anyone using gpg 1.0.5, gnus oort .3, and mailcrupt 3.5.5
>   >> > together sucessfully?
>   >> 
>   >> 
>   >> Mmmm... OK. No, it's not working. It can't seem to find my secret
>   >> key. I'm now curious myself. Thoughts anyone? 
>   >> 
> 
>   NP> This was the problem I encountered.
> 
> Someone suggested the following patch to mailcrypt to match the extra
> data now returned by gpg-1.0.5
> 
> --- mc-gpg.el~  Thu May  3 22:28:26 2001
> +++ mc-gpg.el   Thu May  3 22:29:55 2001
> @@ -319,7 +319,7 @@
>      (if (string= str "***** CONVENTIONAL *****") nil
>        (let ((result (cdr-safe (assoc str mc-gpg-key-cache)))
>             (key-regexp
> -            "^\\(sec\\|pub\\):[^:]*:[^:]*:[^:]*:\\([^:]*\\):[^:]*:[^:]*:[^:]*:[^:]*:\\([^:]*\\)::[^:]*:$"
> +            "^\\(sec\\|pub\\):[^:]*:[^:]*:[^:]*:\\([^:]*\\):[^:]*:[^:]*:[^:]*:[^:]*:\\([^:]*\\):[^:]*:[^:]*:$"
>              )
>             (obuf (current-buffer))
>             buffer)
>

Here's what seems to have made it into mailcrypt Debian packages. And works
for me...

     (if (string= str "***** CONVENTIONAL *****") nil
      (let ((result (cdr-safe (assoc str mc-gpg-key-cache)))
            (key-regexp
             "^\\(sec\\|pub\\):[^:]*:[^:]*:[^:]*:\\([^:]*\\):[^:]*:[^:]*:[^:]*:[^:]*:\\([^:]*\\):"
             )
            (obuf (current-buffer))
            buffer)

Thanks!
Monty

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