From cf9c6ce7316e5afd41129dfd778cfe87ea2e9d11 Mon Sep 17 00:00:00 2001
From: djcb <djcb@djcbsoftware.nl>
Date: Sat, 14 Jul 2012 15:51:59 +0300
Subject: [PATCH] * guile: prevent byte-compilation warnings

---
 guile/mu.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/guile/mu.scm b/guile/mu.scm
index f8467c71..a89ceb8c 100644
--- a/guile/mu.scm
+++ b/guile/mu.scm
@@ -88,6 +88,20 @@
 (load-extension "libguile-mu" "mu_guile_init")
 (load-extension "libguile-mu" "mu_guile_message_init")
 
+;; define some dummies so we don't get errors during byte compilation
+(eval-when (compile)
+  (define mu:c:get-field)
+  (define mu:c:get-contacts)
+  (define mu:c:for-each-message)
+  (define mu:c:get-header)
+  (define mu:critical)
+  (define mu:c:log)
+  (define mu:message)
+  (define mu:c:log)
+  (define mu:warning)
+  (define mu:c:log)
+  (define mu:get-parts))
+
 (define (mu:log-warning frm . args)
   "Log FRM with ARGS at warning."
   (mu:c:log mu:warning frm args))