#!/bin/sh
set -e

GUILE_AUTO_COMPILE=0 guile -c '
(use-modules (mailutils mailutils))
(mu-register-format)
(let* ((mbox (mu-mailbox-open "testsuite/spool/mbox1" "r"))
       (msg (mu-mailbox-first-message mbox)))
  (display (mu-message-get-header msg "Subject"))
  (newline))
' | grep -q Jabberwocky
