summaryrefslogtreecommitdiffabout
path: root/libmu_scm
authorSergey Poznyakoff <gray@gnu.org.ua>2002-10-14 17:48:52 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2002-10-14 17:48:52 (GMT)
commit013fb5136383e83c2a9e716db52ef33156a11d30 (patch) (side-by-side diff)
treed6528b095d5e2f1f1b2cccf3d7dee58f48c1ac75 /libmu_scm
parentc6e736c4d878876f758d6442a061e691fdbdc595 (diff)
downloadmailutils-013fb5136383e83c2a9e716db52ef33156a11d30.tar.gz
mailutils-013fb5136383e83c2a9e716db52ef33156a11d30.tar.bz2
(mu-path-maildir, mu-path-folder-dir): New globals
Diffstat (limited to 'libmu_scm') (more/less context) (ignore whitespace changes)
-rw-r--r--libmu_scm/mailutils.scm.in3
-rw-r--r--libmu_scm/mu_scm.c8
2 files changed, 11 insertions, 0 deletions
diff --git a/libmu_scm/mailutils.scm.in b/libmu_scm/mailutils.scm.in
index ae673e6..4f9e13b 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 8f20128..8adc052 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));

Return to:

Send suggestions and report system problems to the System administrator.