/[mailutils]/mailutils/libmu_scm/mu_scm.c
ViewVC logotype

Diff of /mailutils/libmu_scm/mu_scm.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by gray, Sun Oct 13 20:34:43 2002 UTC revision 1.10 by gray, Mon Oct 14 17:48:30 2002 UTC
# Line 52  SCM _mu_scm_package;        /* STRING: P Line 52  SCM _mu_scm_package;        /* STRING: P
52  SCM _mu_scm_version;        /* STRING: VERSION */  SCM _mu_scm_version;        /* STRING: VERSION */
53  SCM _mu_scm_mailer;         /* STRING: Default mailer path. */  SCM _mu_scm_mailer;         /* STRING: Default mailer path. */
54  SCM _mu_scm_debug;          /* NUM: Default debug level. */  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 */
57    
58  struct format_record {  struct format_record {
59    char *name;    char *name;
# Line 183  mu_scm_init () Line 185  mu_scm_init ()
185    _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING);    _mu_scm_package_string = scm_makfrom0str (PACKAGE_STRING);
186    mu_set_variable ("mu-package-string", _mu_scm_package_string);    mu_set_variable ("mu-package-string", _mu_scm_package_string);
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      
194    /* Create MU- attribute names */    /* Create MU- attribute names */
195    for (i = 0; attr_kw[i].name; i++)    for (i = 0; attr_kw[i].name; i++)
196      scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value));      scm_c_define(attr_kw[i].name, SCM_MAKINUM(attr_kw[i].value));

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26