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

* mu-msg-guile: make mu:msg:from return a list (like to,cc,bcc), fix mu:msg:header

Browse Source
This commit is contained in:
djcb
2011-12-13 07:47:02 +02:00
parent cfd180a888
commit 2783ff893a
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/guile/mu-guile-msg.c
View File

@ -248,17 +248,6 @@ SCM_DEFINE_PUBLIC (msg_subject, "mu:msg:subject", 1, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE_PUBLIC (msg_from, "mu:msg:from", 1, 0, 0,
(SCM MSG), "Get the sender of MSG.\n")
#define FUNC_NAME s_msg_from
{
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
return msg_str_field (MSG, MU_MSG_FIELD_ID_FROM);
}
#undef FUNC_NAME
struct _EachContactData { struct _EachContactData {
SCM lst; SCM lst;
MuMsgContactType ctype; MuMsgContactType ctype;
@ -308,6 +297,18 @@ contact_list_field (SCM msg_smob, MuMsgFieldId mfid)
} }
SCM_DEFINE_PUBLIC (msg_from, "mu:msg:from", 1, 0, 0,
(SCM MSG), "Get the list of senders of MSG.\n")
#define FUNC_NAME s_msg_from
{
SCM_ASSERT (mu_guile_scm_is_msg(MSG), MSG, SCM_ARG1, FUNC_NAME);
return contact_list_field (MSG, MU_MSG_FIELD_ID_FROM);
}
#undef FUNC_NAME
SCM_DEFINE_PUBLIC (msg_to, "mu:msg:to", 1, 0, 0, SCM_DEFINE_PUBLIC (msg_to, "mu:msg:to", 1, 0, 0,
(SCM MSG), "Get the list of To:-recipients of MSG.\n") (SCM MSG), "Get the list of To:-recipients of MSG.\n")
#define FUNC_NAME s_msg_to #define FUNC_NAME s_msg_to
@ -398,7 +399,7 @@ SCM_DEFINE_PUBLIC (msg_body, "mu:msg:body", 1, 1, 0,
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE_PUBLIC (msg_header, "mu:msg:header", 1, 1, 0, SCM_DEFINE_PUBLIC (msg_header, "mu:msg:header", 2, 0, 0,
(SCM MSG, SCM HEADER), "Get an arbitary HEADER from MSG.\n") (SCM MSG, SCM HEADER), "Get an arbitary HEADER from MSG.\n")
#define FUNC_NAME s_msg_header #define FUNC_NAME s_msg_header
{ {