diff options
| -rw-r--r-- | libmu_scm/mailutils.scm.in | 3 | ||||
| -rw-r--r-- | libmu_scm/mu_scm.c | 8 |
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)); |