[gentoo-commits] repo/gentoo:master commit in: mail-filter/scmail/, mail-filter/scmail/files/

["Akinori Hattori" <hattya@gentoo.org>]

commit:     1b45410033de7e30b16d546f3a27c16f9f64339f
Author:     Akinori Hattori <hattya <AT> gentoo <DOT> org>
AuthorDate: Thu Jun 30 13:57:20 2022 +0000
Commit:     Akinori Hattori <hattya <AT> gentoo <DOT> org>
CommitDate: Thu Jun 30 13:57:20 2022 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=1b454100

mail-filter/scmail: fix tests with >=dev-scheme/gauche-0.9.10

Package-Manager: Portage-3.0.30, Repoman-3.0.3
Signed-off-by: Akinori Hattori <hattya <AT> gentoo.org>

 .../scmail/files/scmail-gauche-0.9.10.patch        | 22 ++++++++++++++++++++++
 mail-filter/scmail/scmail-1.3.ebuild               |  1 +
 2 files changed, 23 insertions(+)

diff --git a/mail-filter/scmail/files/scmail-gauche-0.9.10.patch b/mail-filter/scmail/files/scmail-gauche-0.9.10.patch
new file mode 100644
index 000000000000..ab6f5e04d2f6
--- /dev/null
+++ b/mail-filter/scmail/files/scmail-gauche-0.9.10.patch
@@ -0,0 +1,22 @@
+--- a/scmail/mail.scm
++++ b/scmail/mail.scm
+@@ -202,7 +202,7 @@
+ 	  (send-command "DATA" 354)
+ 	  (port-for-each (lambda (line)
+                            (format out "~a~a\r\n"
+-                                   (if (string-prefix? "." line) "." "")
++                                   (if (and (not (string-incomplete? line)) (string-prefix? "." line)) "." "")
+                                    line))
+ 			 (lambda () (read-line iport #t)))
+ 	  (send-command "." 250)
+--- a/tests/mailbox.scm
++++ b/tests/mailbox.scm
+@@ -9,7 +9,7 @@
+ (test-module 'scmail.mailbox)
+ 
+ (define mailbox-table
+-  '((mh      #f "Mail"    "inbox")
++  `((mh      #f "Mail"    "inbox")
+     (maildir #f "Maildir" "")))
+ 
+ (define (mailbox-list)

diff --git a/mail-filter/scmail/scmail-1.3.ebuild b/mail-filter/scmail/scmail-1.3.ebuild
index 8c4b73406d53..25809d282452 100644
--- a/mail-filter/scmail/scmail-1.3.ebuild
+++ b/mail-filter/scmail/scmail-1.3.ebuild
@@ -20,6 +20,7 @@ DEPEND="${RDEPEND}"
 PATCHES=(
 	"${FILESDIR}"/${PN}-doc-encoding.patch
 	"${FILESDIR}"/${PN}-gauche-0.9.patch
+	"${FILESDIR}"/${PN}-gauche-0.9.10.patch
 	"${FILESDIR}"/${PN}-undefined-reference.patch
 )
 HTML_DOCS=( doc/{${PN},scbayes}{,-ja}.html )