Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit feaa576c feaa576c03ce80342a81dc9d136994109ccb3e9c by Sergey Poznyakoff
Options

Added missing typecasts.

1 parent 093f307c
Inline Side-by-side
Showing 5 changed files with 5 additions and 7 deletions
...@@ -79,7 +79,7 @@ mu_scm_body_print (SCM body_smob, SCM port, scm_print_state * pstate) ...@@ -79,7 +79,7 @@ mu_scm_body_print (SCM body_smob, SCM port, scm_print_state * pstate)
79 int 79 int
80 mu_scm_is_body (SCM scm) 80 mu_scm_is_body (SCM scm)
81 { 81 {
82 return SCM_NIMP (scm) && SCM_CAR (scm) == body_tag; 82 return SCM_NIMP (scm) && (long) SCM_CAR (scm) == body_tag;
83 } 83 }
84 84
85 SCM 85 SCM
......
...@@ -98,7 +98,7 @@ mu_scm_mailbox_create (mailbox_t mbox) ...@@ -98,7 +98,7 @@ mu_scm_mailbox_create (mailbox_t mbox)
98 int 98 int
99 mu_scm_is_mailbox (SCM scm) 99 mu_scm_is_mailbox (SCM scm)
100 { 100 {
101 return SCM_NIMP (scm) && SCM_CAR (scm) == mailbox_tag; 101 return SCM_NIMP (scm) && (long) SCM_CAR (scm) == mailbox_tag;
102 } 102 }
103 103
104 /* ************************************************************************* */ 104 /* ************************************************************************* */
......
...@@ -167,7 +167,7 @@ mu_scm_message_get (SCM MESG) ...@@ -167,7 +167,7 @@ mu_scm_message_get (SCM MESG)
167 int 167 int
168 mu_scm_is_message (SCM scm) 168 mu_scm_is_message (SCM scm)
169 { 169 {
170 return SCM_NIMP (scm) && SCM_CAR (scm) == message_tag; 170 return SCM_NIMP (scm) && (long) SCM_CAR (scm) == message_tag;
171 } 171 }
172 172
173 /* ************************************************************************* */ 173 /* ************************************************************************* */
......
...@@ -81,7 +81,7 @@ mu_scm_mime_get (SCM MIME) ...@@ -81,7 +81,7 @@ mu_scm_mime_get (SCM MIME)
81 int 81 int
82 mu_scm_is_mime (SCM scm) 82 mu_scm_is_mime (SCM scm)
83 { 83 {
84 return SCM_NIMP (scm) && SCM_CAR (scm) == mime_tag; 84 return SCM_NIMP (scm) && (long) SCM_CAR (scm) == mime_tag;
85 } 85 }
86 86
87 /* ************************************************************************* */ 87 /* ************************************************************************* */
......
...@@ -164,12 +164,10 @@ static struct ...@@ -164,12 +164,10 @@ static struct
164 void 164 void
165 mu_scm_init () 165 mu_scm_init ()
166 { 166 {
167 char *defmailer;
168 int i; 167 int i;
169 list_t lst; 168 list_t lst;
170 169
171 asprintf (&defmailer, "sendmail:%s", _PATH_SENDMAIL); 170 _mu_scm_mailer = scm_makfrom0str ("sendmail:" _PATH_SENDMAIL);
172 _mu_scm_mailer = scm_makfrom0str (defmailer);
173 mu_set_variable ("mu-mailer", _mu_scm_mailer); 171 mu_set_variable ("mu-mailer", _mu_scm_mailer);
174 172
175 _mu_scm_debug = scm_makenum(0); 173 _mu_scm_debug = scm_makenum(0);
......