diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-06-23 13:22:28 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-06-23 13:22:28 +0000 |
commit | c235ac300d526c3f33c55633fd477d36d17c6387 (patch) | |
tree | 405456cd89cf29aa050c9db649e7e1746b1b5410 /libmu_scm | |
parent | 650722678a578fb70fcfc9fb7f57b01634b010d2 (diff) | |
download | mailutils-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.c | 30 |
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.") |