summaryrefslogtreecommitdiff
path: root/libmu_scm/mu_mime.c
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2010-04-01 13:15:01 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2010-04-01 13:23:32 +0300
commitee08a14e8d73482297fa603938e0ba04475c092c (patch)
tree8a3ffbf93a3d4426bac7a5f57072c9a4b9581737 /libmu_scm/mu_mime.c
parent36226fa2c08235807a34ca448788f6cdaa9cff02 (diff)
downloadmailutils-ee08a14e8d73482297fa603938e0ba04475c092c.tar.gz
mailutils-ee08a14e8d73482297fa603938e0ba04475c092c.tar.bz2
Remove the uses of deprecated Guile functions.
* am/guile.m4 (MU_CHECK_GUILE): Check for scm_t_off. * include/mailutils/guile.h (mu_scm_makenum) (mu_set_variable): Remove prototypes. * libmu_scm/mu_address.c: Remove calls to deprecated Guile functions. * libmu_scm/mu_body.c: Likewise. * libmu_scm/mu_guile.c: Likewise. * libmu_scm/mu_mailbox.c: Likewise. * libmu_scm/mu_message.c: Likewise. * libmu_scm/mu_mime.c: Likewise. * libmu_scm/mu_util.c: Likewise. * libmu_scm/mu_scm.c (mu_scm_makenum): Remove. (mu_set_variable): Remove. Use scm_c_define instead.
Diffstat (limited to 'libmu_scm/mu_mime.c')
-rw-r--r--libmu_scm/mu_mime.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libmu_scm/mu_mime.c b/libmu_scm/mu_mime.c
index de889edde..ca9f79997 100644
--- a/libmu_scm/mu_mime.c
+++ b/libmu_scm/mu_mime.c
@@ -19,7 +19,7 @@
#include "mu_scm.h"
-long mime_tag;
+static scm_t_bits mime_tag;
struct mu_mime
{
@@ -101,7 +101,7 @@ SCM_DEFINE (scm_mu_mime_create, "mu-mime-create", 0, 2, 0,
int flags;
int status;
- if (SCM_IMP (FLAGS) && SCM_BOOLP (FLAGS))
+ if (scm_is_bool (FLAGS))
{
/*if (FLAGS == SCM_BOOL_F)*/
flags = 0;
@@ -152,7 +152,7 @@ SCM_DEFINE (scm_mu_mime_get_num_parts, "mu-mime-get-num-parts", 1, 0, 0,
if (status)
mu_scm_error (FUNC_NAME, status,
"Cannot count MIME parts", SCM_BOOL_F);
- return mu_scm_makenum (nparts);
+ return scm_from_size_t (nparts);
}
#undef FUNC_NAME

Return to:

Send suggestions and report system problems to the System administrator.