Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit 60c693c3 60c693c382742b165cbb19b353119c934ea56669 by Sergey Poznyakoff
Options

(mu_message_send) Optional parameters may be #f

1 parent e38640f3
Inline Side-by-side
Showing 1 changed file with 3 additions and 3 deletions
...@@ -747,7 +747,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0, ...@@ -747,7 +747,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
747 SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); 747 SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME);
748 msg = mu_scm_message_get (MESG); 748 msg = mu_scm_message_get (MESG);
749 749
750 if (!SCM_UNBNDP (MAILER)) 750 if (!SCM_UNBNDP (MAILER) && MAILER != SCM_BOOL_F)
751 { 751 {
752 SCM_ASSERT (SCM_NIMP (MAILER) && SCM_STRINGP (MAILER), 752 SCM_ASSERT (SCM_NIMP (MAILER) && SCM_STRINGP (MAILER),
753 MAILER, SCM_ARG2, FUNC_NAME); 753 MAILER, SCM_ARG2, FUNC_NAME);
...@@ -756,14 +756,14 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0, ...@@ -756,14 +756,14 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
756 else 756 else
757 mailer_name = SCM_CHARS(_mu_scm_mailer); 757 mailer_name = SCM_CHARS(_mu_scm_mailer);
758 758
759 if (!SCM_UNBNDP (FROM)) 759 if (!SCM_UNBNDP (FROM) && FROM != SCM_BOOL_F)
760 { 760 {
761 SCM_ASSERT (SCM_NIMP (FROM) && SCM_STRINGP (FROM) 761 SCM_ASSERT (SCM_NIMP (FROM) && SCM_STRINGP (FROM)
762 && address_create (&from, SCM_CHARS (FROM)) == 0, 762 && address_create (&from, SCM_CHARS (FROM)) == 0,
763 FROM, SCM_ARG3, FUNC_NAME); 763 FROM, SCM_ARG3, FUNC_NAME);
764 } 764 }
765 765
766 if (!SCM_UNBNDP (TO)) 766 if (!SCM_UNBNDP (TO) && TO != SCM_BOOL_F)
767 { 767 {
768 SCM_ASSERT (SCM_NIMP (TO) && SCM_STRINGP (TO) 768 SCM_ASSERT (SCM_NIMP (TO) && SCM_STRINGP (TO)
769 && address_create (&to, SCM_CHARS (TO)) == 0, 769 && address_create (&to, SCM_CHARS (TO)) == 0,
......