alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* cosmetic

Browse Source
This commit is contained in:
djcb
2013-05-13 00:03:23 +03:00
parent 31c3c3cfda
commit 87e3c5d3f5
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
guile/tests/test-mu-guile.c
View File

@ -122,7 +122,6 @@ main (int argc, char *argv[])
g_test_add_func ("/guile/message", test_mu_guile_messages); g_test_add_func ("/guile/message", test_mu_guile_messages);
g_test_add_func ("/guile/stats", test_mu_guile_stats); g_test_add_func ("/guile/stats", test_mu_guile_stats);
g_log_set_handler (NULL, g_log_set_handler (NULL,
G_LOG_LEVEL_MASK | G_LOG_LEVEL_WARNING| G_LOG_LEVEL_MASK | G_LOG_LEVEL_WARNING|
G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION, G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION,

4
guile/tests/test-mu-guile.scm
View File

@ -72,8 +72,8 @@ exec guile -e main -s $0 $@
(let ((msg (car (mu:message-list "hello")))) (let ((msg (car (mu:message-list "hello"))))
(str-equal-or-exit (mu:subject msg) "Fwd: rfc822") (str-equal-or-exit (mu:subject msg) "Fwd: rfc822")
(str-equal-or-exit (mu:to msg) "martin") (str-equal-or-exit (mu:to msg) "martin")
(str-equal-or-exit (mu:from msg) "foobar <foo@example.com>") (str-equal-or-exit (mu:from msg) "foobar <foo@example.com>")
(str-equal-or-exit (mu:header msg "X-Mailer") "Ximian Evolution 1.4.5") (str-equal-or-exit (mu:header msg "X-Mailer") "Ximian Evolution 1.4.5")
(if (not (equal? (mu:priority msg) mu:prio:normal)) (if (not (equal? (mu:priority msg) mu:prio:normal))