summaryrefslogtreecommitdiff
path: root/libmu_scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2001-08-03 19:02:47 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2001-08-03 19:02:47 +0000
commit0857c6ee65572f1e4e77089786241b5e4e0160ba (patch)
tree09c3c08d90e593f14a6ad257e537368faeb46721 /libmu_scm
parentc46586597b134e87d520af4b399c47ac9e074f96 (diff)
downloadmailutils-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.c27
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),

Return to:

Send suggestions and report system problems to the System administrator.