/[mailutils]/mailutils/libmu_scm/mu_message.c
ViewVC logotype

Diff of /mailutils/libmu_scm/mu_message.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by gray, Fri Dec 28 11:17:47 2001 UTC revision 1.12 by gray, Fri Dec 28 22:48:53 2001 UTC
# Line 747  SCM_DEFINE (mu_message_send, "mu-message Line 747  SCM_DEFINE (mu_message_send, "mu-message
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);
# Line 756  SCM_DEFINE (mu_message_send, "mu-message Line 756  SCM_DEFINE (mu_message_send, "mu-message
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,

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26