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); |