diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-08-03 19:02:47 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-08-03 19:02:47 +0000 |
commit | 0857c6ee65572f1e4e77089786241b5e4e0160ba (patch) | |
tree | 09c3c08d90e593f14a6ad257e537368faeb46721 /libmu_scm | |
parent | c46586597b134e87d520af4b399c47ac9e074f96 (diff) | |
download | mailutils-0857c6ee65572f1e4e77089786241b5e4e0160ba.tar.gz mailutils-0857c6ee65572f1e4e77089786241b5e4e0160ba.tar.bz2 |
Added mu-message-get-size, mu-message-get-lines.
Diffstat (limited to 'libmu_scm')
-rw-r--r-- | libmu_scm/mu_message.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/libmu_scm/mu_message.c b/libmu_scm/mu_message.c index 28a566d3d..9d129ef9b 100644 --- a/libmu_scm/mu_message.c +++ b/libmu_scm/mu_message.c @@ -227,6 +227,33 @@ SCM_DEFINE (mu_message_set_header, "mu-message-set-header", 3, 1, 0, } #undef FUNC_NAME +SCM_DEFINE (mu_message_get_size, "mu-message-get-size", 1, 0, 0, + (SCM MESG), + "Returns the size of the given message.") +#define FUNC_NAME s_mu_message_get_size +{ + message_t msg; + size_t size; + SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); + msg = mu_scm_message_get (MESG); + message_size (msg, &size); + return scm_makenum (size); +} +#undef FUNC_NAME + +SCM_DEFINE (mu_message_get_lines, "mu-message-get-lines", 1, 0, 0, + (SCM MESG), + "Returns number of lines in the given message.") +#define FUNC_NAME s_mu_message_get_lines +{ + message_t msg; + size_t lines; + SCM_ASSERT (mu_scm_is_message (MESG), MESG, SCM_ARG1, FUNC_NAME); + msg = mu_scm_message_get (MESG); + message_lines (msg, &lines); + return scm_makenum (lines); +} +#undef FUNC_NAME SCM_DEFINE (mu_message_get_sender, "mu-message-get-sender", 1, 0, 0, (SCM MESG), |