Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit 013fb513 013fb5136383e83c2a9e716db52ef33156a11d30 by Sergey Poznyakoff
Options

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

1 parent c6e736c4
Inline Side-by-side
Showing 2 changed files with 11 additions and 0 deletions
...@@ -33,9 +33,12 @@ changequote([,])dnl ...@@ -33,9 +33,12 @@ changequote([,])dnl
33 (load-extension "libguile-mailutils-v-VERSION" "mu_scm_init")))) 33 (load-extension "libguile-mailutils-v-VERSION" "mu_scm_init"))))
34 34
35 (export mu-package) 35 (export mu-package)
36 (export mu-package-string)
36 (export mu-version) 37 (export mu-version)
37 (export mu-mailer) 38 (export mu-mailer)
38 (export mu-debug) 39 (export mu-debug)
40 (export mu-path-maildir)
41 (export mu-path-folder-dir)
39 42
40 (export MU-ATTRIBUTE-ANSWERED) 43 (export MU-ATTRIBUTE-ANSWERED)
41 (export MU-ATTRIBUTE-FLAGGED) 44 (export MU-ATTRIBUTE-FLAGGED)
......
...@@ -52,6 +52,8 @@ SCM _mu_scm_package; /* STRING: PACKAGE */ ...@@ -52,6 +52,8 @@ SCM _mu_scm_package; /* STRING: PACKAGE */
52 SCM _mu_scm_version; /* STRING: VERSION */ 52 SCM _mu_scm_version; /* STRING: VERSION */
53 SCM _mu_scm_mailer; /* STRING: Default mailer path. */ 53 SCM _mu_scm_mailer; /* STRING: Default mailer path. */
54 SCM _mu_scm_debug; /* NUM: Default debug level. */ 54 SCM _mu_scm_debug; /* NUM: Default debug level. */
55 SCM _mu_scm_path_maildir; /* STRING: mu_path_maildir */
56 SCM _mu_scm_path_folder_dir;/* STRING: mu_path_folder_dir */
55 57
56 struct format_record { 58 struct format_record {
57 char *name; 59 char *name;
...@@ -183,6 +185,12 @@ mu_scm_init () ...@@ -183,6 +185,12 @@ mu_scm_init ()
183 _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING); 185 _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING);
184 mu_set_variable ("mu-package-string", _mu_scm_package_string); 186 mu_set_variable ("mu-package-string", _mu_scm_package_string);
185 187
188 _mu_scm_path_maildir = scm_makfrom0str (mu_path_maildir);
189 mu_set_variable ("mu-path-maildir", _mu_scm_path_maildir);
190
191 _mu_scm_path_folder_dir = scm_makfrom0str (mu_path_folder_dir);
192 mu_set_variable ("mu-path-folder-dir", _mu_scm_path_folder_dir);
193
186 /* Create MU- attribute names */ 194 /* Create MU- attribute names */
187 for (i = 0; attr_kw[i].name; i++) 195 for (i = 0; attr_kw[i].name; i++)
188 scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value)); 196 scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value));
......