* libmuguile: updates for some renaming elsewhere
This commit is contained in:
@ -35,8 +35,6 @@ mu_guile_error (const char *func_name, int status,
|
|||||||
scm_list_1 (scm_from_int (status)));
|
scm_list_1 (scm_from_int (status)));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
mu_guile_g_error (const char *func_name, GError *err)
|
mu_guile_g_error (const char *func_name, GError *err)
|
||||||
{
|
{
|
||||||
|
|||||||
@ -89,6 +89,7 @@ SCM_DEFINE (msg_move, "mu:msg:move-to-maildir", 2, 0, 0,
|
|||||||
GError *err;
|
GError *err;
|
||||||
MuMsgWrapper *msgwrap;
|
MuMsgWrapper *msgwrap;
|
||||||
gboolean rv;
|
gboolean rv;
|
||||||
|
MuMsgFlags flags;
|
||||||
|
|
||||||
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
|
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
|
||||||
SCM_ASSERT (scm_is_string (TARGETMDIR), TARGETMDIR, SCM_ARG2, FUNC_NAME);
|
SCM_ASSERT (scm_is_string (TARGETMDIR), TARGETMDIR, SCM_ARG2, FUNC_NAME);
|
||||||
@ -96,8 +97,10 @@ SCM_DEFINE (msg_move, "mu:msg:move-to-maildir", 2, 0, 0,
|
|||||||
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
|
msgwrap = (MuMsgWrapper*) SCM_CDR(MSG);
|
||||||
|
|
||||||
err = NULL;
|
err = NULL;
|
||||||
|
flags = mu_msg_get_flags (msgwrap->_msg);
|
||||||
rv = mu_msg_move_to_maildir (msgwrap->_msg,
|
rv = mu_msg_move_to_maildir (msgwrap->_msg,
|
||||||
scm_to_utf8_string (TARGETMDIR), &err);
|
scm_to_utf8_string (TARGETMDIR), flags,
|
||||||
|
&err);
|
||||||
if (!rv && err) {
|
if (!rv && err) {
|
||||||
mu_guile_g_error (FUNC_NAME, err);
|
mu_guile_g_error (FUNC_NAME, err);
|
||||||
g_error_free (err);
|
g_error_free (err);
|
||||||
|
|||||||
Reference in New Issue
Block a user