summaryrefslogtreecommitdiff
path: root/guimb/collect.c
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2002-01-21 14:57:19 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2002-01-21 14:57:19 +0000
commitc6f403cd54e454eadf4cce11c7f20c182a3b6efc (patch)
tree43d9ba55d33d022af2510e7d811dbe95c82501ea /guimb/collect.c
parent86d3f4a06d75dc0ef506307855fb0ffb56cc154f (diff)
downloadmailutils-c6f403cd54e454eadf4cce11c7f20c182a3b6efc.tar.gz
mailutils-c6f403cd54e454eadf4cce11c7f20c182a3b6efc.tar.bz2
(guimb_catch_body, guimb_catch_handler) New functions.
Diffstat (limited to 'guimb/collect.c')
-rw-r--r--guimb/collect.c16
1 files changed, 15 insertions, 1 deletions
diff --git a/guimb/collect.c b/guimb/collect.c
index 29857837d..4d948f053 100644
--- a/guimb/collect.c
+++ b/guimb/collect.c
@@ -188,7 +188,20 @@ collect_drop_mailbox ()
}
}
-int
+SCM
+guimb_catch_body (void *data, mailbox_t unused)
+{
+ struct guimb_data *gd = data;
+ if (gd->program_file)
+ scm_primitive_load (scm_makfrom0str (gd->program_file));
+
+ if (gd->program_expr)
+ scm_eval_0str (gd->program_expr);
+
+ return SCM_BOOL_F;
+}
+
+SCM
guimb_catch_handler (void *unused, SCM tag, SCM throw_args)
{
collect_drop_mailbox ();
@@ -202,3 +215,4 @@ guimb_exit (void *unused1, mailbox_t unused2)
collect_drop_mailbox ();
return rc;
}
+

Return to:

Send suggestions and report system problems to the System administrator.