summaryrefslogtreecommitdiffabout
path: root/libmu_scm
authorSergey Poznyakoff <gray@gnu.org.ua>2004-08-20 14:54:53 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2004-08-20 14:54:53 (GMT)
commite8a09b3f9ce08238cfb77ca52629f891a6ea69b4 (patch) (side-by-side diff)
tree27f3cab7c6ae9eaa2a2a6db77cbed4458201155b /libmu_scm
parent544820d6a3a922c946da30f07fe42b48abdac71d (diff)
downloadmailutils-e8a09b3f9ce08238cfb77ca52629f891a6ea69b4.tar.gz
mailutils-e8a09b3f9ce08238cfb77ca52629f891a6ea69b4.tar.bz2
Properly access mu-mailer and mu-message values.
Diffstat (limited to 'libmu_scm') (more/less context) (ignore whitespace changes)
-rw-r--r--libmu_scm/mu_message.c11
1 files changed, 7 insertions, 4 deletions
diff --git a/libmu_scm/mu_message.c b/libmu_scm/mu_message.c
index 5de35f1..dab71cf 100644
--- a/libmu_scm/mu_message.c
+++ b/libmu_scm/mu_message.c
@@ -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);

Return to:

Send suggestions and report system problems to the System administrator.