summaryrefslogtreecommitdiff
path: root/libmu_scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2005-06-23 13:22:28 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2005-06-23 13:22:28 +0000
commitc235ac300d526c3f33c55633fd477d36d17c6387 (patch)
tree405456cd89cf29aa050c9db649e7e1746b1b5410 /libmu_scm
parent650722678a578fb70fcfc9fb7f57b01634b010d2 (diff)
downloadmailutils-c235ac300d526c3f33c55633fd477d36d17c6387.tar.gz
mailutils-c235ac300d526c3f33c55633fd477d36d17c6387.tar.bz2
(scm_mu_mail_directory,scm_mu_folder_directory): New function
Diffstat (limited to 'libmu_scm')
-rw-r--r--libmu_scm/mu_mailbox.c30
1 files changed, 30 insertions, 0 deletions
diff --git a/libmu_scm/mu_mailbox.c b/libmu_scm/mu_mailbox.c
index f9ee3140e..677772148 100644
--- a/libmu_scm/mu_mailbox.c
+++ b/libmu_scm/mu_mailbox.c
@@ -104,6 +104,36 @@ mu_scm_is_mailbox (SCM scm)
/* ************************************************************************* */
/* Guile primitives */
+SCM_DEFINE (scm_mu_mail_directory, "mu-mail-directory", 0, 1, 0,
+ (SCM URL),
+ "")
+#define FUNC_NAME s_scm_mu_mail_directory
+{
+ if (!SCM_UNBNDP (URL))
+ {
+ SCM_ASSERT (SCM_NIMP (URL) && SCM_STRINGP (URL),
+ URL, SCM_ARG1, FUNC_NAME);
+ mu_set_mail_directory (SCM_STRING_CHARS (URL));
+ }
+ return scm_makfrom0str (mu_mail_directory ());
+}
+#undef FUNC_NAME
+
+SCM_DEFINE (scm_mu_folder_directory, "mu-folder-directory", 0, 1, 0,
+ (SCM URL),
+ "")
+#define FUNC_NAME s_scm_mu_folder_directory
+{
+ if (!SCM_UNBNDP (URL))
+ {
+ SCM_ASSERT (SCM_NIMP (URL) && SCM_STRINGP (URL),
+ URL, SCM_ARG1, FUNC_NAME);
+ mu_set_folder_directory (SCM_STRING_CHARS (URL));
+ }
+ return scm_makfrom0str (mu_folder_directory ());
+}
+#undef FUNC_NAME
+
SCM_DEFINE (mu_mailbox_open, "mu-mailbox-open", 2, 0, 0,
(SCM URL, SCM MODE),
"Opens a mailbox specified by URL.")

Return to:

Send suggestions and report system problems to the System administrator.