diff options
| -rw-r--r-- | email/email.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/email/email.scm b/email/email.scm index 3f4e194..277be88 100644 --- a/email/email.scm +++ b/email/email.scm @@ -1,5 +1,6 @@ ;;; guile-email --- Guile email parser ;;; Copyright © 2018, 2019, 2020, 2021 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org> ;;; ;;; This file is part of guile-email. ;;; @@ -832,7 +833,7 @@ 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) + (bytevector->string (make-bytevector 1 0) charset) #t) (const #f))) |