diff options
author | V3n3RiX <venerix@koprulu.sector> | 2022-07-09 15:43:36 +0100 |
---|---|---|
committer | V3n3RiX <venerix@koprulu.sector> | 2022-07-09 15:43:36 +0100 |
commit | 2719f73b6813d11d13a9650cdd2ab8ec6e69385d (patch) | |
tree | 8c816148bcbd22757d892089c989ae614eae4f5a /mail-filter/scmail/files | |
parent | 0f558761aa2dee1017b4751e4017205e015a9560 (diff) |
gentoo resync : 09.07.2022
Diffstat (limited to 'mail-filter/scmail/files')
-rw-r--r-- | mail-filter/scmail/files/scmail-gauche-0.9.10.patch | 22 |
1 files changed, 22 insertions, 0 deletions
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) |