summaryrefslogtreecommitdiff
path: root/libmu_scm
diff options
context:
space:
mode:
Diffstat (limited to 'libmu_scm')
-rw-r--r--libmu_scm/mu_body.c2
-rw-r--r--libmu_scm/mu_mailbox.c2
-rw-r--r--libmu_scm/mu_message.c2
-rw-r--r--libmu_scm/mu_mime.c2
-rw-r--r--libmu_scm/mu_scm.c4
5 files changed, 5 insertions, 7 deletions
diff --git a/libmu_scm/mu_body.c b/libmu_scm/mu_body.c
index 3ae95323e..2b5ee8b5d 100644
--- a/libmu_scm/mu_body.c
+++ b/libmu_scm/mu_body.c
@@ -79,7 +79,7 @@ mu_scm_body_print (SCM body_smob, SCM port, scm_print_state * pstate)
int
mu_scm_is_body (SCM scm)
{
- return SCM_NIMP (scm) && SCM_CAR (scm) == body_tag;
+ return SCM_NIMP (scm) && (long) SCM_CAR (scm) == body_tag;
}
SCM
diff --git a/libmu_scm/mu_mailbox.c b/libmu_scm/mu_mailbox.c
index 05450e860..420e5efcb 100644
--- a/libmu_scm/mu_mailbox.c
+++ b/libmu_scm/mu_mailbox.c
@@ -98,7 +98,7 @@ mu_scm_mailbox_create (mailbox_t mbox)
int
mu_scm_is_mailbox (SCM scm)
{
- return SCM_NIMP (scm) && SCM_CAR (scm) == mailbox_tag;
+ return SCM_NIMP (scm) && (long) SCM_CAR (scm) == mailbox_tag;
}
/* ************************************************************************* */
diff --git a/libmu_scm/mu_message.c b/libmu_scm/mu_message.c
index 7013a4bfd..5d5721d86 100644
--- a/libmu_scm/mu_message.c
+++ b/libmu_scm/mu_message.c
@@ -167,7 +167,7 @@ mu_scm_message_get (SCM MESG)
int
mu_scm_is_message (SCM scm)
{
- return SCM_NIMP (scm) && SCM_CAR (scm) == message_tag;
+ return SCM_NIMP (scm) && (long) SCM_CAR (scm) == message_tag;
}
/* ************************************************************************* */
diff --git a/libmu_scm/mu_mime.c b/libmu_scm/mu_mime.c
index b1db9aa4f..e0d12db30 100644
--- a/libmu_scm/mu_mime.c
+++ b/libmu_scm/mu_mime.c
@@ -81,7 +81,7 @@ mu_scm_mime_get (SCM MIME)
int
mu_scm_is_mime (SCM scm)
{
- return SCM_NIMP (scm) && SCM_CAR (scm) == mime_tag;
+ return SCM_NIMP (scm) && (long) SCM_CAR (scm) == mime_tag;
}
/* ************************************************************************* */
diff --git a/libmu_scm/mu_scm.c b/libmu_scm/mu_scm.c
index 17d20e414..5c9243485 100644
--- a/libmu_scm/mu_scm.c
+++ b/libmu_scm/mu_scm.c
@@ -164,12 +164,10 @@ static struct
void
mu_scm_init ()
{
- char *defmailer;
int i;
list_t lst;
- asprintf (&defmailer, "sendmail:%s", _PATH_SENDMAIL);
- _mu_scm_mailer = scm_makfrom0str (defmailer);
+ _mu_scm_mailer = scm_makfrom0str ("sendmail:" _PATH_SENDMAIL);
mu_set_variable ("mu-mailer", _mu_scm_mailer);
_mu_scm_debug = scm_makenum(0);

Return to:

Send suggestions and report system problems to the System administrator.