alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu-guile-utils => mu-guile-common

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2011-07-13 08:07:32 +03:00
parent c023e2c38c
commit 84189b73b2
4 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
libmuguile/mu-guile-store.c
View File

@ -23,7 +23,7 @@
#include "mu-guile-msg.h"
#include "mu-guile-store.h"
#include "mu-guile-utils.h"
#include "mu-guile-common.h"
static MuQuery*
get_query (void)
@ -62,37 +62,39 @@ get_query_iter (MuQuery *query, const char* expr)
}
SCM_DEFINE (store_for_each, "mu:store:foreach", 2, 0, 0,
(SCM EXPR, SCM FUNC),
"Call FUNC for each message matching EXPR.\n")
SCM_DEFINE (store_for_each, "mu:store:query-foreach", 1, 1, 0,
(SCM FUNC, SCM EXPR),
"Call FUNC for each message in the store, or, if EXPR is specified, "
"for each message matching EXPR.\n")
#define FUNC_NAME s_msg_make_from_file
{
MuQuery *query;
MuMsgIter *iter;
//guint count;
int count;
const char* expr;
query = get_query ();
if (!query)
return SCM_UNSPECIFIED;
iter = get_query_iter (query, scm_to_utf8_string(EXPR));
expr = SCM_UNBNDP(EXPR) ? NULL : scm_to_utf8_string(EXPR);
iter = get_query_iter (query, expr);
if (!iter)
return SCM_UNSPECIFIED;
while (!mu_msg_iter_is_done(iter)) {
for (count = 0; !mu_msg_iter_is_done(iter); mu_msg_iter_next (iter)) {
SCM msgsmob;
msgsmob = mu_guile_msg_to_scm (mu_msg_iter_get_msg (iter, NULL));
scm_call_1 (FUNC, msgsmob);
mu_msg_iter_next (iter);
++count;
}
mu_query_destroy (query);
return SCM_UNSPECIFIED;
return scm_from_int (count);
}
#undef FUNC_NAME