| author | Sergey 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) |
| commit | feaa576c03ce80342a81dc9d136994109ccb3e9c (patch) (side-by-side diff) | |
| tree | a74d5c0706306e7fb23ceb464b2db468a9dfcf0a /libmu_scm | |
| parent | 093f307cd4b64aad88f2bf5410265a6c9953a98e (diff) | |
| download | mailutils-feaa576c03ce80342a81dc9d136994109ccb3e9c.tar.gz mailutils-feaa576c03ce80342a81dc9d136994109ccb3e9c.tar.bz2 | |
Added missing typecasts.
| -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 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); |