Commit 7c9c6b5f 7c9c6b5f16940e8bf263e0eb0ee3fbc4b55d5aad by Sergey Poznyakoff

Export mu-mailer guile variable

* libmu_scm/mu_scm.c: Export mu-mailer.
* libmu_scm/mu_message.c (scm_mu_message_send): Fix a typo.
1 parent 3b42a3a5
...@@ -1068,7 +1068,7 @@ SCM_DEFINE_PUBLIC (scm_mu_message_send, "mu-message-send", 1, 3, 0, ...@@ -1068,7 +1068,7 @@ SCM_DEFINE_PUBLIC (scm_mu_message_send, "mu-message-send", 1, 3, 0,
1068 status = mu_mailer_create (&mailer_c, mailer_name); 1068 status = mu_mailer_create (&mailer_c, mailer_name);
1069 free (mailer_name); 1069 free (mailer_name);
1070 if (status) 1070 if (status)
1071 mu_scm_error (FUNC_NAME, status, "Cannot get create mailer", SCM_BOOL_F); 1071 mu_scm_error (FUNC_NAME, status, "Cannot create mailer", SCM_BOOL_F);
1072 1072
1073 if (scm_to_int (MU_SCM_SYMBOL_VALUE ("mu-debug"))) 1073 if (scm_to_int (MU_SCM_SYMBOL_VALUE ("mu-debug")))
1074 { 1074 {
......
...@@ -175,9 +175,11 @@ mu_scm_init () ...@@ -175,9 +175,11 @@ mu_scm_init ()
175 175
176 _mu_scm_mailer = scm_from_locale_string ("sendmail:" PATH_SENDMAIL); 176 _mu_scm_mailer = scm_from_locale_string ("sendmail:" PATH_SENDMAIL);
177 scm_c_define ("mu-mailer", _mu_scm_mailer); 177 scm_c_define ("mu-mailer", _mu_scm_mailer);
178 178 scm_c_export ("mu-mailer", NULL);
179
179 _mu_scm_debug = scm_from_int (0); 180 _mu_scm_debug = scm_from_int (0);
180 scm_c_define ("mu-debug", _mu_scm_debug); 181 scm_c_define ("mu-debug", _mu_scm_debug);
182 scm_c_export ("mu-debug", NULL);
181 183
182 _mu_scm_package = scm_from_locale_string (PACKAGE); 184 _mu_scm_package = scm_from_locale_string (PACKAGE);
183 scm_c_define ("mu-package", _mu_scm_package); 185 scm_c_define ("mu-package", _mu_scm_package);
......