Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit aad76f4b aad76f4b1f9c73a1c1108489b1067a003ff3814f by Sergey Poznyakoff
Options

(_mu_scm_package_string, in scheme mu-package-string): New global.

1 parent e048e4c5
Inline Side-by-side
Showing 1 changed file with 4 additions and 0 deletions
...@@ -47,6 +47,7 @@ mu_set_variable (const char *name, SCM value) ...@@ -47,6 +47,7 @@ mu_set_variable (const char *name, SCM value)
47 scm_c_define (name, value); 47 scm_c_define (name, value);
48 } 48 }
49 49
50 SCM _mu_scm_package_string; /* STRING: PACKAGE_STRING */
50 SCM _mu_scm_package; /* STRING: PACKAGE */ 51 SCM _mu_scm_package; /* STRING: PACKAGE */
51 SCM _mu_scm_version; /* STRING: VERSION */ 52 SCM _mu_scm_version; /* STRING: VERSION */
52 SCM _mu_scm_mailer; /* STRING: Default mailer path. */ 53 SCM _mu_scm_mailer; /* STRING: Default mailer path. */
...@@ -179,6 +180,9 @@ mu_scm_init () ...@@ -179,6 +180,9 @@ mu_scm_init ()
179 _mu_scm_version = scm_makfrom0str (VERSION); 180 _mu_scm_version = scm_makfrom0str (VERSION);
180 mu_set_variable ("mu-version", _mu_scm_version); 181 mu_set_variable ("mu-version", _mu_scm_version);
181 182
183 _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING);
184 mu_set_variable ("mu-package-string", _mu_scm_package_string);
185
182 /* Create MU- attribute names */ 186 /* Create MU- attribute names */
183 for (i = 0; attr_kw[i].name; i++) 187 for (i = 0; attr_kw[i].name; i++)
184 scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value)); 188 scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value));
......