summaryrefslogtreecommitdiff
path: root/libmu_scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2001-08-03 19:01:59 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2001-08-03 19:01:59 +0000
commitc46586597b134e87d520af4b399c47ac9e074f96 (patch)
tree42db2064cfa600bb11b3956445124f8dfbeddd7f /libmu_scm
parent1dca1a5e039492b61aac4b33ac64df92fc15c7a6 (diff)
downloadmailutils-c46586597b134e87d520af4b399c47ac9e074f96.tar.gz
mailutils-c46586597b134e87d520af4b399c47ac9e074f96.tar.bz2
Added mu-mailbox-get-url.
Diffstat (limited to 'libmu_scm')
-rw-r--r--libmu_scm/mu_mailbox.c15
1 files changed, 15 insertions, 0 deletions
diff --git a/libmu_scm/mu_mailbox.c b/libmu_scm/mu_mailbox.c
index 4dd23e5cf..c83eb9cf2 100644
--- a/libmu_scm/mu_mailbox.c
+++ b/libmu_scm/mu_mailbox.c
@@ -156,6 +156,21 @@ SCM_DEFINE (mu_mailbox_close, "mu-mailbox-close", 1, 0, 0,
}
#undef FUNC_NAME
+SCM_DEFINE (mu_mailbox_get_url, "mu-mailbox-get-url", 1, 0, 0,
+ (SCM MBOX),
+ "Returns the URL of the mailbox.")
+#define FUNC_NAME s_mu_mailbox_get_url
+{
+ struct mu_mailbox *mum;
+ url_t url;
+
+ SCM_ASSERT (mu_scm_is_mailbox (MBOX), MBOX, SCM_ARG1, FUNC_NAME);
+ mum = (struct mu_mailbox *) SCM_CDR (MBOX);
+ mailbox_get_url (mum->mbox, &url);
+ return scm_makfrom0str (url_to_string (url));
+}
+#undef FUNC_NAME
+
SCM_DEFINE (mu_mailbox_get_message, "mu-mailbox-get-message", 2, 0, 0,
(SCM MBOX, SCM MSGNO), "Retrieve from MBOX message # MSGNO.")
#define FUNC_NAME s_mu_mailbox_get_message

Return to:

Send suggestions and report system problems to the System administrator.