747 |
SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); |
SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); |
748 |
msg = mu_scm_message_get (MESG); |
msg = mu_scm_message_get (MESG); |
749 |
|
|
750 |
if (!SCM_UNBNDP (MAILER)) |
if (!SCM_UNBNDP (MAILER) && MAILER != SCM_BOOL_F) |
751 |
{ |
{ |
752 |
SCM_ASSERT (SCM_NIMP (MAILER) && SCM_STRINGP (MAILER), |
SCM_ASSERT (SCM_NIMP (MAILER) && SCM_STRINGP (MAILER), |
753 |
MAILER, SCM_ARG2, FUNC_NAME); |
MAILER, SCM_ARG2, FUNC_NAME); |
756 |
else |
else |
757 |
mailer_name = SCM_CHARS(_mu_scm_mailer); |
mailer_name = SCM_CHARS(_mu_scm_mailer); |
758 |
|
|
759 |
if (!SCM_UNBNDP (FROM)) |
if (!SCM_UNBNDP (FROM) && FROM != SCM_BOOL_F) |
760 |
{ |
{ |
761 |
SCM_ASSERT (SCM_NIMP (FROM) && SCM_STRINGP (FROM) |
SCM_ASSERT (SCM_NIMP (FROM) && SCM_STRINGP (FROM) |
762 |
&& address_create (&from, SCM_CHARS (FROM)) == 0, |
&& address_create (&from, SCM_CHARS (FROM)) == 0, |
763 |
FROM, SCM_ARG3, FUNC_NAME); |
FROM, SCM_ARG3, FUNC_NAME); |
764 |
} |
} |
765 |
|
|
766 |
if (!SCM_UNBNDP (TO)) |
if (!SCM_UNBNDP (TO) && TO != SCM_BOOL_F) |
767 |
{ |
{ |
768 |
SCM_ASSERT (SCM_NIMP (TO) && SCM_STRINGP (TO) |
SCM_ASSERT (SCM_NIMP (TO) && SCM_STRINGP (TO) |
769 |
&& address_create (&to, SCM_CHARS (TO)) == 0, |
&& address_create (&to, SCM_CHARS (TO)) == 0, |