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
e8a09b3f
...
e8a09b3f9ce08238cfb77ca52629f891a6ea69b4
authored
2004-08-20 14:54:53 +0000
by
Sergey Poznyakoff
Browse Files
Options
Browse Files
Tag
Download
Email Patches
Plain Diff
Properly access mu-mailer and mu-message values.
1 parent
544820d6
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
4 deletions
libmu_scm/mu_message.c
libmu_scm/mu_message.c
View file @
e8a09b3
...
...
@@ -801,7 +801,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
mailer_t
mailer
=
NULL
;
message_t
msg
;
int
status
;
SCM_ASSERT
(
mu_scm_is_message
(
MESG
),
MESG
,
SCM_ARG1
,
FUNC_NAME
);
msg
=
mu_scm_message_get
(
MESG
);
...
...
@@ -812,8 +812,11 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
mailer_name
=
SCM_STRING_CHARS
(
MAILER
);
}
else
mailer_name
=
SCM_STRING_CHARS
(
_mu_scm_mailer
);
{
SCM
val
=
MU_SCM_SYMBOL_VALUE
(
"mu-mailer"
);
mailer_name
=
SCM_STRING_CHARS
(
val
);
}
if
(
!
SCM_UNBNDP
(
FROM
)
&&
FROM
!=
SCM_BOOL_F
)
{
SCM_ASSERT
(
SCM_NIMP
(
FROM
)
&&
SCM_STRINGP
(
FROM
)
...
...
@@ -833,7 +836,7 @@ SCM_DEFINE (mu_message_send, "mu-message-send", 1, 3, 0,
return
SCM_BOOL_F
;
}
if
(
SCM_INUM
(
_mu_scm_debug
))
if
(
SCM_INUM
(
MU_SCM_SYMBOL_VALUE
(
"mu-debug"
)
))
{
mu_debug_t
debug
=
NULL
;
mailer_get_debug
(
mailer
,
&
debug
);
...
...
Please
register
or
sign in
to post a comment