emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* cleanup mu-guile-store a bit

This commit is contained in:
Dirk-Jan C. Binnema 2011-07-13 08:46:27 +03:00
parent 2c34f4eeb5
commit 647efbac6c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -62,11 +62,11 @@ get_query_iter (MuQuery *query, const char* expr)
}
SCM_DEFINE (store_for_each, "mu:store:query-foreach", 1, 1, 0,
SCM_DEFINE (store_foreach, "mu:store: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
#define FUNC_NAME s_store_foreach
{
MuQuery *query;
MuMsgIter *iter;
@ -86,7 +86,10 @@ SCM_DEFINE (store_for_each, "mu:store:query-foreach", 1, 1, 0,
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));
MuMsg *msg;
msg = mu_msg_iter_get_msg (iter, NULL);
msgsmob = mu_guile_msg_to_scm (mu_msg_ref (msg));
scm_call_1 (FUNC, msgsmob);
++count;