diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2003-02-03 11:31:51 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2003-02-03 11:31:51 +0000 |
commit | feaa576c03ce80342a81dc9d136994109ccb3e9c (patch) | |
tree | a74d5c0706306e7fb23ceb464b2db468a9dfcf0a /libmu_scm | |
parent | 093f307cd4b64aad88f2bf5410265a6c9953a98e (diff) | |
download | mailutils-feaa576c03ce80342a81dc9d136994109ccb3e9c.tar.gz mailutils-feaa576c03ce80342a81dc9d136994109ccb3e9c.tar.bz2 |
Added missing typecasts.
Diffstat (limited to 'libmu_scm')
-rw-r--r-- | libmu_scm/mu_body.c | 2 | ||||
-rw-r--r-- | libmu_scm/mu_mailbox.c | 2 | ||||
-rw-r--r-- | libmu_scm/mu_message.c | 2 | ||||
-rw-r--r-- | libmu_scm/mu_mime.c | 2 | ||||
-rw-r--r-- | libmu_scm/mu_scm.c | 4 |
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 @@ -76,13 +76,13 @@ mu_scm_body_print (SCM body_smob, SCM port, scm_print_state * pstate) /* Internal functions: */ 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 mu_scm_body_create (SCM msg, body_t body) { struct mu_body *mbp; 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 @@ -95,13 +95,13 @@ mu_scm_mailbox_create (mailbox_t mbox) SCM_RETURN_NEWSMOB (mailbox_tag, mum); } 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; } /* ************************************************************************* */ /* Guile primitives */ SCM_DEFINE (mu_mailbox_open, "mu-mailbox-open", 2, 0, 0, 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 @@ -164,13 +164,13 @@ mu_scm_message_get (SCM MESG) return mum->msg; } 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; } /* ************************************************************************* */ /* Guile primitives */ SCM_DEFINE (mu_message_create, "mu-message-create", 0, 0, 0, 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 @@ -78,13 +78,13 @@ mu_scm_mime_get (SCM MIME) return mum->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; } /* ************************************************************************* */ /* Guile primitives */ SCM_DEFINE (mu_mime_create, "mu-mime-create", 0, 2, 0, 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 @@ -161,18 +161,16 @@ static struct }; /* Initialize the library */ 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); mu_set_variable ("mu-debug", _mu_scm_debug); _mu_scm_package = scm_makfrom0str (PACKAGE); |