Third OpenPGP backend: PGG

Third OpenPGP backend: PGG

[Simon Josefsson]

I added support for PGG in mml2015.el, and added a top-level directory
pgg/ which contains PGG and its dependencies.  When copyright
assignment have been checked, hopefully files can be moved into lisp/.

To use it, just put gnus/pgg into your load-path, Gnus should prefer
PGG over gpg.el and Mailcrypt.

The goal is of course to have OpenPGP simply work out of the box.
Mailcrypt and gpg.el cannot be shipped due to copyright problems.

A few months old discussion relating to this follows...

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Simon Josefsson <jas@extundo.com> writes:
>
>> I'm looking at getting some FSF-owned PGP/GPG interface library to work
>> (since gpg.el now seems officially dead), and it seems as if Daiki Ueno
>> has written one in the SEMI package.  However, it seem to require LUNA (a
>> OO kernel for lisp) and lots of other libraries from APEL/FLIM.  Assuming
>> they are all FSF-owned and that they don't override normal behaviour in
>> emacs/gnus (which has to be verified, I remember old versions of APEL
>> behaving rather badly in this regard), is it OK to add them to Gnus CVS?  
>> It might be quite some files..
>
> It sounds like something a bit separate from Gnus, but Gnus is a nice
> way to test stuff like that, so go ahead and add it to the
> repository.  (It can be removed later if you want to split it out
> into a separate package again.)
>
> However, from my own experiences with the APEL/FLIM code, it tends to
> be quite invasive -- redefines lots of standard functions and stuff,
> so it might be difficult.  It's been quite a while since I looked at
> the code, though.
>
> -- 
> (domestic pets only, the antidote for overdose, milk.)
>    larsi@gnus.org * Lars Magne Ingebrigtsen

Daiki Ueno <ueno@unixuser.org> writes:

>>>>>> In <Pine.LNX.4.44.0205061112340.6648-100000@yxa.extundo.com> 
>>>>>>	Simon Josefsson <jas@extundo.com> wrote:
>
>> > > Hi.  Is copyright on PGG assigned to FSF?  Is the latest version in
>> > > SEMI CVS?  What do you think about adding it to Gnus (and ultimately
>> > > Emacs)?
>
>> > The latest version of PGG is only available on my branch of SEMI.  It
>> > also includes some documentation.  Please get it from:
>> > 
>> >   http://cvs.m17n.org/cgi-bin/viewcvs/semi/?only_with_tag=emiko-1_14
>
>> Thanks, I'll work on integrating this.  Which branch of FLIM and APEL is 
>> your code supposed to work with?
>
> It should work with the latest release of APEL and FLIM.
> They are available on:
> ftp://ftp.m17n.org/pub/mule/apel/apel-10.3.tar.gz
> ftp://ftp.m17n.org/pub/mule/flim/flim-1.14/flim-1.14.3.tar.gz
>
> Regards,
> -- 
> Daiki Ueno

Re: Third OpenPGP backend: PGG

[Jesper Harder]

Simon Josefsson <jas@extundo.com> writes:

> I added support for PGG in mml2015.el, and added a top-level directory
> pgg/ which contains PGG and its dependencies.

The new files don't show up when I do 'cvs update'.  Are they supposed
to?

Re: Third OpenPGP backend: PGG

[Kai Großjohann]

Jesper Harder <harder@ifa.au.dk> writes:

> The new files don't show up when I do 'cvs update'.  Are they supposed
> to?

New directories need "cvs up -d".  I suggest to also add the -P
option.  I always type "cvs up -dP".

kai
-- 
~/.signature is: umop 3p!sdn    (Frank Nobis)

Re: Third OpenPGP backend: PGG

[Andi Hechtbauer]

>>>>> Jesper Harder writes:

    JH> Simon Josefsson <jas@extundo.com> writes:
    >> I added support for PGG in mml2015.el, and added a top-level
    >> directory pgg/ which contains PGG and its dependencies.

    JH> The new files don't show up when I do 'cvs update'.  Are they
    JH> supposed to?

Try 'cvs -z3 update -dP'

HTH,
-- 
Andi Hechtbauer                                           anti@spin.de 
root                                          voice: +49 941 942 77 23
SPiN AG                 http://www.spin.de/     fax: +49 941 942 77 22  
------ PGPf16: B4 FC 30 E0 31 2F BC F5  38 D0 A2 FC EA A9 82 5D ------

Re: Third OpenPGP backend: PGG

[Frank Schmitt]

Jesper Harder <harder@ifa.au.dk> writes:

> Simon Josefsson <jas@extundo.com> writes:
>
>> I added support for PGG in mml2015.el, and added a top-level directory
>> pgg/ which contains PGG and its dependencies.
>
> The new files don't show up when I do 'cvs update'.  Are they supposed
> to?

Shouldn't it read 'cvs update -Pd'?

-- 
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them
In the Land of Mordor where the Shadows lie.

Re: Third OpenPGP backend: PGG

[Jesper Harder]

Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:

> Jesper Harder <harder@ifa.au.dk> writes:
>
>> The new files don't show up when I do 'cvs update'.  Are they supposed
>> to?
>
> New directories need "cvs up -d".  I suggest to also add the -P
> option.  I always type "cvs up -dP".

Thanks, that did the trick.

Re: Third OpenPGP backend: PGG

[Sean Neakums]

commence  Simon Josefsson quotation:

> I added support for PGG in mml2015.el, and added a top-level directory
> pgg/ which contains PGG and its dependencies.  When copyright
> assignment have been checked, hopefully files can be moved into lisp/.
>
> To use it, just put gnus/pgg into your load-path, Gnus should prefer
> PGG over gpg.el and Mailcrypt.

I get the following when I try to read an encrypted message.  Updated
from CVS about 20 minutes ago.

Debugger entered--Lisp error: (args-out-of-range 0 0)
  get-text-property(0 gnus-details #<buffer  *mm*<10>>)
  byte-code("\bƉ‰‰\x19\x1a^[\x1c\x1dÇ\x0e\x1fAÈÆÉ$‰\x14„;\0\x0e ÊË\x1e!\x1e\"‰\x1e\x1fƒ4\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%ˆ+ÎÏ\x0e\x1f\"ˆÐÑÒ!!\x1e#ÓŽr\x0e#qˆÔ\f!ˆÕÖ׏ƒ¶\0r\x0e$qˆØÉ!\x13Ù\x0e\x1f!ˆ\x0e ÊÚ\x1e!\x1e\"‰\x1e\x1fƒ\x7f\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%ˆ+\x0e Û	ÜÝÍÛ\v@#Q\x1e!\x1e\"‰\x1e\x1fƒ¥\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%ˆ+\v@<ƒ°\0\v‚²\0\vC)‚Ó\0\x0e ÊÞ\x1e!\x1e\"‰\x1e\x1f…Ò\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%+.\b‡" [mml2015-result-buffer decrypt-status result handles child pgg-errors-buffer nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "Á\b!ƒ\n\0Â\b!ˆÁ‡" [temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (byte-code "Âed\"r\bqˆÃ )\x11‡" [mml2015-result-buffer decrypt-status pgg-decrypt-region buffer-string] 3) ((error ...) (quit ...)) mm-dissect-buffer mm-destroy-parts "OK" gnus-details "\n" get-text-property "Failed" handle mm-security-handle value parameter temp-buffer pgg-output-buffer] 9)
  mml2015-pgg-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<5>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mml2015-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<5>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mm-possibly-verify-or-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<5>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mm-dissect-multipart((#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<5>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mm-dissect-buffer(nil nil)
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(2478 nil)
  gnus-summary-display-article(2478 nil)
  gnus-summary-select-article(nil nil pseudo)
  gnus-summary-scroll-up(1)
  call-interactively(gnus-summary-scroll-up)


-- 
 /                          |
[|] Sean Neakums            |  Questions are a burden to others;
[|] <sneakums@zork.net>     |      answers a prison for oneself.
 \                          |

Re: Third OpenPGP backend: PGG

[Andreas Fuchs]

On 2002-09-24, Frank Schmitt <usereplyto@frank-schmitt.net> wrote:
>> The new files don't show up when I do 'cvs update'.  Are they
>> supposed to?
> 
> Shouldn't it read 'cvs update -Pd'?

Yes, see above thread. IMHO, you're best off using this as your
~/.cvsrc:

,----[ ~/.cvsrc ]
| update -dP
| diff -c
`----

Have fun,
-- 
Andreas Fuchs, <asf@acm.org>, asf@jabber.at, antifuchs
Was I helpful?  Let others know:
http://svcs.affero.net/rm.php?r=antifuchs

Re: Third OpenPGP backend: PGG

[Simon Josefsson]

Sean Neakums <sneakums@zork.net> writes:

> commence  Simon Josefsson quotation:
>
>> I added support for PGG in mml2015.el, and added a top-level directory
>> pgg/ which contains PGG and its dependencies.  When copyright
>> assignment have been checked, hopefully files can be moved into lisp/.
>>
>> To use it, just put gnus/pgg into your load-path, Gnus should prefer
>> PGG over gpg.el and Mailcrypt.
>
> I get the following when I try to read an encrypted message.  Updated
> from CVS about 20 minutes ago.
>
> Debugger entered--Lisp error: (args-out-of-range 0 0)
>   get-text-property(0 gnus-details #<buffer  *mm*<10>>)
>   byte-code("\bƉ‰‰\x19\x1a^[\x1c\x1dÇ\x0e\x1fAÈÆÉ$‰\x14„;\0\x0e ÊË\x1e!\x1e\"‰\x1e\x1fƒ4\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%ˆ+ÎÏ\x0e\x1f\"ˆÐÑÒ!!\x1e#ÓŽr\x0e#qˆÔ\f!ˆÕÖ׏ƒ¶\0r\x0e$qˆØÉ!\x13Ù\x0e\x1f!ˆ\x0e ÊÚ\x1e!\x1e\"‰\x1e\x1fƒ\x7f\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%ˆ+\x0e Û	ÜÝÍÛ\v@#Q\x1e!\x1e\"‰\x1e\x1fƒ¥\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%ˆ+\v@<ƒ°\0\v‚²\0\vC)‚Ó\0\x0e ÊÞ\x1e!\x1e\"‰\x1e\x1f…Ò\0ÌÍ\x0e\x1f@G\x0e\"\x0e!\x0e\x1f@%+.\b‡" [mml2015-result-buffer decrypt-status result handles child pgg-errors-buffer nil mm-find-part-by-type "application/octet-stream" t gnus-info "Corrupted" put-text-property 0 throw error get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "Á\b!ƒ\n\0Â\b!ˆÁ‡" [temp-buffer buffer-name kill-buffer] 2)) mm-insert-part err (byte-code "Âed\"r\bqˆÃ )\x11‡" [mml2015-result-buffer decrypt-status pgg-decrypt-region buffer-string] 3) ((error ...) (quit ...)) mm-dissect-buffer mm-destroy-parts "OK" gnus-details "\n" get-text-property "Failed" handle mm-security-handle value parameter temp-buffer pgg-output-buffer] 9)
>   mml2015-pgg-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<5>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))

Could you do M-x load-library RET mml2015.el RET and get a new backtrace?

Re: Third OpenPGP backend: PGG

[Katsumi Yamaoka]

Hi,

>>>>> In <iluptv35tvt.fsf@latte.josefsson.org>
>>>>>	Simon Josefsson <jas@extundo.com> wrote:

> I added support for PGG in mml2015.el, and added a top-level directory
> pgg/ which contains PGG and its dependencies.  When copyright
> assignment have been checked, hopefully files can be moved into lisp/.

Those modules from APEL/FLIM have been improved recently.  May I
CVS commit them?  Especially, the fix in luna.el is important,
which makes it possible to debug luna-based codes.

2002-09-26  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>

	* luna.el (luna-define-method): Clear method cache of child
	classes.

2002-09-24  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>

	* luna.el (luna-define-method): Fix the bug that method cache is
	not cleard.

2002-07-13  Daiki Ueno  <daiki@xemacs.org>

	* mcs-xm.el (encode-mime-charset-string): Use `defun' instead of
	`defsubst'

2002-06-26  Katsumi Yamaoka  <yamaoka@jpl.org>

	* mcs-e20.el (charsets-mime-charset-alist): Remove nil's from the
	default value.
	* mcs-xm.el (charsets-mime-charset-alist): Ditto.

2002-06-21  Katsumi Yamaoka  <yamaoka@jpl.org>

	* mcs-e20.el (charsets-mime-charset-alist): Add Latin8 and Latin9
	charsets.  Suggested by Tatsuya Kinoshita <tats@iris.ne.jp>.
	* mcs-xm.el (charsets-mime-charset-alist): Ditto.

By the way, if I could commit them, where do I write ChangeLogs? :)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Third OpenPGP backend: PGG

[tsuchiya]

Hi,

>> On Thu, 26 Sep 2002 11:31:39 +0900
>> yamaoka@jpl.org (Katsumi Yamaoka) said as follows:

>Those modules from APEL/FLIM have been improved recently.  May I CVS
>commit them?  Especially, the fix in luna.el is important, which
>makes it possible to debug luna-based codes.

>2002-09-26  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>

I signed FSF paper work for Gnus.  So, I beleive that there is no
barrier about copyright.

-- 
TSUCHIYA Masatoshi

Re: Third OpenPGP backend: PGG

[Simon Josefsson]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>> I added support for PGG in mml2015.el, and added a top-level directory
>> pgg/ which contains PGG and its dependencies.  When copyright
>> assignment have been checked, hopefully files can be moved into lisp/.
>
> Those modules from APEL/FLIM have been improved recently.  May I
> CVS commit them?

Absolutely.

> By the way, if I could commit them, where do I write ChangeLogs? :)

Hm.  Perhaps create a new ChangeLog in pgg/?

Re: Third OpenPGP backend: PGG

[Katsumi Yamaoka]

>>>>> In <iluwup9cslz.fsf@latte.josefsson.org>
>>>>>	Simon Josefsson <jas@extundo.com> wrote:

>> Those modules from APEL/FLIM have been improved recently.  May I
>> CVS commit them?

> Absolutely.

Thanks.  I've done.
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

Re: Third OpenPGP backend: PGG

[Sean Neakums]

commence  Simon Josefsson quotation:

> Could you do M-x load-library RET mml2015.el RET and get a new backtrace?

Debugger entered--Lisp error: (args-out-of-range 0 0)
  get-text-property(0 gnus-details #<buffer  *mm*<12>>)
  (mm-handle-multipart-ctl-parameter handles (quote gnus-details))
  (concat decrypt-status "\n" (mm-handle-multipart-ctl-parameter handles (quote gnus-details)))
  (mm-set-handle-multipart-parameter mm-security-handle (quote gnus-details) (concat decrypt-status "\n" (mm-handle-multipart-ctl-parameter handles ...)))
  (save-current-buffer (set-buffer pgg-output-buffer) (setq handles (mm-dissect-buffer t)) (mm-destroy-parts handle) (mm-set-handle-multipart-parameter mm-security-handle (quote gnus-info) "OK") (mm-set-handle-multipart-parameter mm-security-handle (quote gnus-details) (concat decrypt-status "\n" ...)) (if (listp ...) handles (list handles)))
  (with-current-buffer pgg-output-buffer (setq handles (mm-dissect-buffer t)) (mm-destroy-parts handle) (mm-set-handle-multipart-parameter mm-security-handle (quote gnus-info) "OK") (mm-set-handle-multipart-parameter mm-security-handle (quote gnus-details) (concat decrypt-status "\n" ...)) (if (listp ...) handles (list handles)))
  (if (condition-case err (prog1 ... ...) (error ... nil) (quit ... nil)) (with-current-buffer pgg-output-buffer (setq handles ...) (mm-destroy-parts handle) (mm-set-handle-multipart-parameter mm-security-handle ... "OK") (mm-set-handle-multipart-parameter mm-security-handle ... ...) (if ... handles ...)) (mm-set-handle-multipart-parameter mm-security-handle (quote gnus-info) "Failed"))
  (save-current-buffer (set-buffer temp-buffer) (mm-insert-part child) (if (condition-case err ... ... ...) (with-current-buffer pgg-output-buffer ... ... ... ... ...) (mm-set-handle-multipart-parameter mm-security-handle ... "Failed")))
  (with-current-buffer temp-buffer (mm-insert-part child) (if (condition-case err ... ... ...) (with-current-buffer pgg-output-buffer ... ... ... ... ...) (mm-set-handle-multipart-parameter mm-security-handle ... "Failed")))
  (unwind-protect (with-current-buffer temp-buffer (mm-insert-part child) (if ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ...) (and ... ...)))
  (with-temp-buffer (mm-insert-part child) (if (condition-case err ... ... ...) (with-current-buffer pgg-output-buffer ... ... ... ... ...) (mm-set-handle-multipart-parameter mm-security-handle ... "Failed")))
  (let ((pgg-errors-buffer mml2015-result-buffer) child handles result decrypt-status) (unless (setq child ...) (mm-set-handle-multipart-parameter mm-security-handle ... "Corrupted") (throw ... handle)) (with-temp-buffer (mm-insert-part child) (if ... ... ...)))
  (catch (quote error) (let (... child handles result decrypt-status) (unless ... ... ...) (with-temp-buffer ... ...)))
  mml2015-pgg-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<7>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  funcall(mml2015-pgg-decrypt ((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<7>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  (if func (funcall func handle ctl) handle)
  (let ((func ...)) (if func (funcall func handle ctl) handle))
  mml2015-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<7>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mm-possibly-verify-or-decrypt(((#<killed buffer> ("application/pgp-encrypted") nil nil ("attachment") nil nil nil) (#<killed buffer> ("application/octet-stream") nil nil ("inline" ...) nil nil nil)) (#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<7>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mm-dissect-multipart((#("multipart/encrypted" 0 19 (gnus-info "OK" from "leklund@tastytronic.net" buffer #<buffer  *mm*<7>> boundary "/9DWx/yDrRhgMJTb" protocol "application/pgp-encrypted")) (protocol . "application/pgp-encrypted") (boundary . "/9DWx/yDrRhgMJTb")))
  mm-dissect-buffer(nil nil)
  gnus-display-mime()
  gnus-article-prepare-display()
  gnus-article-prepare(2478 nil)
  gnus-summary-display-article(2478 nil)
  gnus-summary-select-article(nil nil pseudo)
  gnus-summary-scroll-up(1)
  call-interactively(gnus-summary-scroll-up)

-- 
 /                          |
[|] Sean Neakums            |  Questions are a burden to others;
[|] <sneakums@zork.net>     |      answers a prison for oneself.
 \                          |

Re: Third OpenPGP backend: PGG

[Simon Josefsson]

Sean Neakums <sneakums@zork.net> writes:

> commence  Simon Josefsson quotation:
>
>> Could you do M-x load-library RET mml2015.el RET and get a new backtrace?
>
> Debugger entered--Lisp error: (args-out-of-range 0 0)
>   get-text-property(0 gnus-details #<buffer  *mm*<12>>)
>   (mm-handle-multipart-ctl-parameter handles (quote gnus-details))

Fixed, thanks.

Re: hird OpenPGP backend: PGG

[Marco Lonsing]

Simon Josefsson <jas@extundo.com> writes:

> I added support for PGG in mml2015.el, and added a top-level directory
> pgg/ which contains PGG and its dependencies.  When copyright
> assignment have been checked, hopefully files can be moved into lisp/.
>
> To use it, just put gnus/pgg into your load-path, Gnus should prefer
> PGG over gpg.el and Mailcrypt.
>

I've encountered a minor problem using pgg. I'm using latest CVS gnus/pgg
and emacs 21.3.50 under SuSE Linux 8.0. If the environment variable
"TMPDIR" is not set the function (temp-directory) returns "/tmp" instead of
"/tmp/". If I try to pgg-sign-region gpg tries to create a temporary file
"/tmppgg-foo" instead of "/tmp/pgg-foo".  
I don't know what's the cleaner solution 
  1. catch this error and insert a "/" 
  2. prefer the variable temporary-file-directory
     which is even in this case correctly set to "/tmp/"

Marco 

-- 
Marco Lonsing
Mathematik XI - Numerik	       email: Marco.Lonsing@ruhr-uni-bochum.de
Ruhr-Universitaet Bochum       phone: +49-234-32-23244
Universitaetsstr. 150	       fax  : +49-234-32-03244
D-44721 Bochum, GERMANY	       www  : http://www.ruhr-uni-bochum.de/num1/marco/

Re: hird OpenPGP backend: PGG

[Simon Josefsson]

Marco Lonsing <Marco.Lonsing@ruhr-uni-bochum.de> writes:

> I've encountered a minor problem using pgg. I'm using latest CVS gnus/pgg
> and emacs 21.3.50 under SuSE Linux 8.0. If the environment variable
> "TMPDIR" is not set the function (temp-directory) returns "/tmp" instead of
> "/tmp/". If I try to pgg-sign-region gpg tries to create a temporary file
> "/tmppgg-foo" instead of "/tmp/pgg-foo".  
> I don't know what's the cleaner solution 
>   1. catch this error and insert a "/" 
>   2. prefer the variable temporary-file-directory
>      which is even in this case correctly set to "/tmp/"

Fixed, thanks.