(test-equal (getter test-message) (getter reread-message)))
(list message-id message-to message-from message-action message-body
message-in-reply-to message-wants-reply
(test-equal (getter test-message) (getter reread-message)))
(list message-id message-to message-from message-action message-body
message-in-reply-to message-wants-reply