Added missing typecasts.

@@ -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

@@ -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;
 }
 
 /* ************************************************************************* */

@@ -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;
 }
 
 /* ************************************************************************* */

@@ -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;
 }
 
 /* ************************************************************************* */

@@ -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);