(mu-path-maildir, mu-path-folder-dir): New globals

2 files changed, 11 insertions, 0 deletions

diff --git a/libmu_scm/mailutils.scm.in b/libmu_scm/mailutils.scm.in
index ae673e656..4f9e13bac 100644
--- a/libmu_scm/mailutils.scm.in
+++ b/libmu_scm/mailutils.scm.in
@@ -33,9 +33,12 @@ changequote([,])dnl
     (load-extension "libguile-mailutils-v-VERSION" "mu_scm_init"))))
 
 (export mu-package)
+(export mu-package-string)
 (export mu-version)
 (export mu-mailer)
 (export mu-debug)
+(export mu-path-maildir)
+(export mu-path-folder-dir)
 
 (export MU-ATTRIBUTE-ANSWERED)
 (export MU-ATTRIBUTE-FLAGGED)
diff --git a/libmu_scm/mu_scm.c b/libmu_scm/mu_scm.c
index 8f201289c..8adc05233 100644
--- a/libmu_scm/mu_scm.c
+++ b/libmu_scm/mu_scm.c
@@ -52,6 +52,8 @@ SCM _mu_scm_package;        /* STRING: PACKAGE */
 SCM _mu_scm_version;        /* STRING: VERSION */
 SCM _mu_scm_mailer;         /* STRING: Default mailer path. */
 SCM _mu_scm_debug;          /* NUM: Default debug level. */
+SCM _mu_scm_path_maildir;   /* STRING: mu_path_maildir */
+SCM _mu_scm_path_folder_dir;/* STRING: mu_path_folder_dir */
 
 struct format_record {
   char *name;
@@ -183,6 +185,12 @@ mu_scm_init ()
   _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING);
   mu_set_variable ("mu-package-string", _mu_scm_package_string);
 
+  _mu_scm_path_maildir = scm_makfrom0str (mu_path_maildir);
+  mu_set_variable ("mu-path-maildir", _mu_scm_path_maildir);
+
+  _mu_scm_path_folder_dir = scm_makfrom0str (mu_path_folder_dir);
+  mu_set_variable ("mu-path-folder-dir", _mu_scm_path_folder_dir);
+  
   /* Create MU- attribute names */
   for (i = 0; attr_kw[i].name; i++)
     scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value));