From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from [192.168.2.1] (port=44604 helo=eggs.gnu.org) by systemreboot.net with esmtps (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 (Exim 4.94.2) (envelope-from ) id 1mVZ5U-000iIi-Al for guile-email@systemreboot.net; Wed, 29 Sep 2021 18:23:28 +0530 Received: from fencepost.gnu.org ([2001:470:142:3::e]:55260) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mVZ5R-00078s-0D for guile-email@systemreboot.net; Wed, 29 Sep 2021 08:53:25 -0400 Received: from [46.183.103.8] (port=9842 helo=meije) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mVZ5O-00010k-QW for guile-email@systemreboot.net; Wed, 29 Sep 2021 08:53:24 -0400 From: Mathieu Othacehe To: guile-email@systemreboot.net Subject: Fix tests with Guile 3.0.7 Date: Wed, 29 Sep 2021 12:53:02 +0000 Message-ID: <87mtnv1r2p.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" List-Id: --=-=-= Content-Type: text/plain Hello, This patch fixes the tests when building with Guile 3.0.7. Thanks, Mathieu --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-email-Do-not-use-an-empty-bytevector-to-test-the-cha.patch >From c21fe0f0e28b80b606973d3e372e2bc8528c9766 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 29 Sep 2021 12:47:35 +0000 Subject: [PATCH 1/1] email: Do not use an empty bytevector to test the charset. Using an empty bytevector no longer throws an exception since this Guile commit: 5ea8c69e9153a970952bf6f0b32c4fad6a28e839. * email/email.scm (post-process-content-transfer-encoding): Use a bytevector containg the 'e' character to test the charset validity. --- email/email.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/email/email.scm b/email/email.scm index 3f4e194..ac70463 100644 --- a/email/email.scm +++ b/email/email.scm @@ -832,7 +832,8 @@ values. The returned headers is a string and body is a bytevector." (define (valid-charset? charset) (catch #t (lambda () - (bytevector->string (make-bytevector 0 0) charset) + ;; Try to convert a bytevector containg the 'e' character. + (bytevector->string (make-bytevector 1 48) charset) #t) (const #f))) -- 2.33.0 --=-=-=--