* guile - updates in most guile modules

guile/mu.scm

@@ -18,24 +18,9 @@
 
 (define-module (mu)
   :export
-  ( mu:initialize))
+  (mu:initialize))
 
-;; :use-module (oop goops)
-  ;; :export
-  ;; (mu:for-each-contact
-  ;;  mu:for-each-message
-  ;;  mu:message-list
-  ;;  mu:tabulate-messages
-  ;;  mu:average-messages
-  ;;   <mu-message>
-  ;;   ;; message funcs
-  ;;   body
-  ;;   header
-  ;;   contacts
-
-  ;;   ;; classes
-  ;;   <mu-contact>
-  ;;   ;; contact methods
-  ;;   name email timestamp frequency last-seen
+;; this is needed for guile < 2.0.4
+(setlocale LC_ALL "")
 
 (load-extension "libguile-mu" "mu_guile_init")

guile/mu/Makefile.am

@@ -22,6 +22,8 @@ scmdir=${prefix}/share/guile/site/2.0/mu/
 scm_DATA=		\
 	message.scm	\
 	contact.scm	\
-	stats.scm
+	part.scm	\
+	stats.scm	\
+	plot.scm
 
 EXTRA_DIST=$(scm_DATA)

guile/mu/contact.scm

@@ -52,6 +52,7 @@ list of <mu-contact> objects."
 objects."
   (contacts msg #t))
 
+
 (define-class <mu-contact-with-stats> (<mu-contact>)
   (tstamp #:init-value 0 #:accessor timestamp #:init-keyword #:timestamp)
   (last-seen #:init-value 0 #:accessor last-seen)

guile/mu/message.scm

@@ -25,6 +25,7 @@
 	    ;; internal
 	    mu:get-header
 	    mu:get-field
+	    mu:for-each-msg-internal
 	    ;; message funcs
 	    body
 	    header
@@ -83,10 +84,10 @@
 (define* (mu:for-each-message func #:optional (expr #t))
   "Execute function FUNC for each message that matches mu search expression EXPR.
 If EXPR is not provided, match /all/ messages in the store."
-  (let ((my-func
-	  (lambda (msg)
-	    (func (make <mu-message> #:msg msg)))))
-    (mu:for-each-msg-internal my-func expr)))
+    (mu:for-each-msg-internal
+      (lambda (msg)
+	(func (make <mu-message> #:msg msg)))
+      expr))
 
 (define* (mu:message-list #:optional (expr #t))
   "Return a list of all messages matching mu search expression

guile/mu/stats.scm

@@ -19,8 +19,7 @@
 (define-module (mu stats)
   :use-module (oop goops)
   :use-module (mu message)
-  :export (
-	    mu:tabulate-messages
+  :export ( mu:tabulate-messages
 	    mu:average-messages))