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

Diff of /mailutils/libmu_scm/mu_guimb.c

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

revision 1.1 by gray, Mon Jan 21 15:01:04 2002 UTC revision 1.2 by gray, Tue Sep 10 12:03:42 2002 UTC
# Line 56  _scheme_main (void *closure, int argc, c Line 56  _scheme_main (void *closure, int argc, c
56  #include <mu_guimb.x>  #include <mu_guimb.x>
57    
58    _current_mailbox = mu_scm_mailbox_create (param->mbox);    _current_mailbox = mu_scm_mailbox_create (param->mbox);
59    scm_loc = SCM_CDRLOC (scm_sysintern ("current-mailbox", SCM_EOL));    mu_set_variable ("current-mailbox", _current_mailbox);
   *scm_loc = _current_mailbox;  
60    
61    _user_name = param->user_name ?    _user_name = param->user_name ?
62                         scm_makfrom0str (param->user_name) : SCM_BOOL_F;                         scm_makfrom0str (param->user_name) : SCM_BOOL_F;
63    scm_loc = SCM_CDRLOC (scm_sysintern ("user-name", SCM_EOL));    mu_set_variable ("user-name", _user_name);
   *scm_loc = _user_name;  
64    
65    if (param->init)    if (param->init)
66      param->init (param->data);      param->init (param->data);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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