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 )
