summaryrefslogtreecommitdiffabout
path: root/libmu_scm
authorSergey Poznyakoff <gray@gnu.org.ua>2003-02-03 11:31:51 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2003-02-03 11:31:51 (GMT)
commitfeaa576c03ce80342a81dc9d136994109ccb3e9c (patch) (side-by-side diff)
treea74d5c0706306e7fb23ceb464b2db468a9dfcf0a /libmu_scm
parent093f307cd4b64aad88f2bf5410265a6c9953a98e (diff)
downloadmailutils-feaa576c03ce80342a81dc9d136994109ccb3e9c.tar.gz
mailutils-feaa576c03ce80342a81dc9d136994109ccb3e9c.tar.bz2
Added missing typecasts.
Diffstat (limited to 'libmu_scm') (more/less context) (ignore whitespace changes)
-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 3ae9532..2b5ee8b 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 05450e8..420e5ef 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 7013a4b..5d5721d 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 b1db9aa..e0d12db 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 17d20e4..5c92434 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.