Skip to content
Toggle navigation
Toggle navigation
This project
Loading...
Sign in
John McEleney
/
mailutils
Go to a project
Toggle navigation
Toggle navigation pinning
Projects
Groups
Snippets
Help
Project
Activity
Repository
Pipelines
Graphs
Issues
0
Merge Requests
0
Wiki
Network
Create a new issue
Builds
Commits
Issue Boards
Files
Commits
Network
Compare
Branches
Tags
Commit
60c693c3
...
60c693c382742b165cbb19b353119c934ea56669
authored
2001-12-28 22:48:53 +0000
by
Sergey Poznyakoff
Browse Files
Options
Browse Files
Tag
Download
Email Patches
Plain Diff
(mu_message_send) Optional parameters may be #f
1 parent
e38640f3
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
libmu_scm/mu_message.c
libmu_scm/mu_message.c
View file @
60c693c
...
...
@@ -747,7 +747,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
SCM_ASSERT
(
mu_scm_is_message
(
MESG
),
MESG
,
SCM_ARG1
,
FUNC_NAME
);
msg
=
mu_scm_message_get
(
MESG
);
if
(
!
SCM_UNBNDP
(
MAILER
))
if
(
!
SCM_UNBNDP
(
MAILER
)
&&
MAILER
!=
SCM_BOOL_F
)
{
SCM_ASSERT
(
SCM_NIMP
(
MAILER
)
&&
SCM_STRINGP
(
MAILER
),
MAILER
,
SCM_ARG2
,
FUNC_NAME
);
...
...
@@ -756,14 +756,14 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
else
mailer_name
=
SCM_CHARS
(
_mu_scm_mailer
);
if
(
!
SCM_UNBNDP
(
FROM
))
if
(
!
SCM_UNBNDP
(
FROM
)
&&
FROM
!=
SCM_BOOL_F
)
{
SCM_ASSERT
(
SCM_NIMP
(
FROM
)
&&
SCM_STRINGP
(
FROM
)
&&
address_create
(
&
from
,
SCM_CHARS
(
FROM
))
==
0
,
FROM
,
SCM_ARG3
,
FUNC_NAME
);
}
if
(
!
SCM_UNBNDP
(
TO
))
if
(
!
SCM_UNBNDP
(
TO
)
&&
TO
!=
SCM_BOOL_F
)
{
SCM_ASSERT
(
SCM_NIMP
(
TO
)
&&
SCM_STRINGP
(
TO
)
&&
address_create
(
&
to
,
SCM_CHARS
(
TO
))
==
0
,
...
...
Please
register
or
sign in
to post a comment