[imp] pgp-patches...

[W. Tasin]

Hi list,

here are some patches for CVS_HEAD.
1) Problem: Mail with pgp-encryption is sent even if there is no 
pgp-public key found. (see compose.php)

2) I'm not quite sure if the other patch correct the problem in the 
right way, but anyway here's the problem:
On my SuSE linux the language environment variable is set to 
LANG=de_DE at euro for all users except root. So in my case imp couldn't e. 
g. check the signature of a mail, because the following answer  is expected:
gpg: Signature made Fri Feb 14 14:15:57 2003 CET using DSA key ID xxxxxxxx
but it gives a localized output:
gpg: Unterschrift vom Fre 14 Feb 2003 14:15:57 CET, DSA Schlüssel ID 
xxxxxxxx


Ciao

Walter

-- 
oohhh sveglia.... il mondo e' ammalato, ma x colpa di chi.........
(Zucchero)
:-------W._Tasin,_FB_04,_FHM-------------------PGP-KeyID:0x7961A645---:
<Key-Fingerprint: 1610 835F 0080 32F4 6140  6CF7 A7D0 44CD 7961A645>
<http://wwwkeys.pgp.net:11371/pks/lookup?op=index&search=0x7961A645&fingerprint=on>

-------------- next part --------------
--- imp/compose.php	Tue Feb 11 23:27:24 2003
+++ imp/compose.php	Mon Feb 17 11:21:12 2003
@@ -597,6 +597,7 @@
         if (is_a($pgp_part, 'PEAR_Error')) {
             $get_sig = false;
             $notification->push(_("PGP Error: ") . $pgp_part->getMessage(), 'horde.error');
+            break;
         } else {
             $mime->addPart($pgp_part);
         }
-------------- next part --------------
--- lib/Crypt/pgp.php	Fri Jan 17 23:16:00 2003
+++ lib/Crypt/pgp.php	Mon Feb 17 13:44:17 2003
@@ -130,7 +130,7 @@
 
         /* Store the location of GnuPG and set common options. */
         if (array_key_exists('program', $params)) {
-            $this->_gnupg = $params['program'] . ' --no-verbose --no-tty --no-secmem-warning --no-options --no-default-keyring --quiet --yes --homedir ' . $this->_tempdir . ' ';
+            $this->_gnupg = 'LANG= ; '. $params['program'] . ' --no-verbose --no-tty --no-secmem-warning --no-options --no-default-keyring --quiet --yes --homedir ' . $this->_tempdir . ' ';
         } else {
             Horde::fatal(new PEAR_Error(_("The location of the GnuPG binary must be given to the Crypt_pgp:: class.")), __FILE__, __LINE__);
         }