guile: use mu-message-fields

2022-03-05 00:34:39 +02:00
parent 1014a28b20
commit ca5bb06457
2 changed files with 44 additions and 60 deletions
--- a/guile/tests/test-mu-guile.scm
+++ b/guile/tests/test-mu-guile.scm
@ -82,7 +82,7 @@ exec guile -e main -s $0 $@
  (let ((msg (car (mu:message-list "atoms"))))
    (str-equal-or-exit (mu:subject msg) "atoms")
    (str-equal-or-exit (mu:to      msg) "Democritus <demo@example.com>")
-    (str-equal-or-exit (mu:from    msg) "\"Richard P. Feynman\" <rpf@example.com>")
+    (str-equal-or-exit (mu:from    msg) "Richard P. Feynman <rpf@example.com>")
    ;;(str-equal-or-exit (mu:header msg "Content-transfer-encoding") "7BIT")

    (if (not (equal? (mu:priority msg) mu:prio:high))