* warn about outdated doc, move to message.scm

Author: djcb

guile/mu/README

@@ -1,3 +1,5 @@
+* OUTDATED *
+
 * README
 
 ** What is muile?

guile/mu/message.scm

@@ -0,0 +1,65 @@
+;;
+;; Copyright (C) 2011-2012 Dirk-Jan C. Binnema <[email protected]>
+;;
+;; This program is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by the
+;; Free Software Foundation; either version 3, or (at your option) any
+;; later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software Foundation,
+;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+(define-module (mu message)
+  :use-module (oop goops)
+  :use-module (mu)
+  :export (
+	    <mu-message>
+	    body
+	    header
+	    contacts
+	    ))
+
+(define-class <mu-message> ()
+  (msg  #:init-keyword #:msg)) ;; the MuMsg-smob we're wrapping
+
+(define-syntax define-getter
+  (syntax-rules ()
+    ((define-getter method-name field)
+      (begin
+	(define-method (method-name (msg <mu-message>))
+	  (mu:msg:field (slot-ref msg 'msg) field))
+	(export method-name)))))
+
+(define-getter bcc        mu:bcc)
+(define-getter body-html  mu:body-html)
+(define-getter body-txt   mu:body-txt)
+(define-getter cc         mu:cc)
+(define-getter date       mu:date)
+(define-getter flags      mu:flags)
+(define-getter from       mu:from)
+(define-getter maildir    mu:maildir)
+(define-getter message-id mu:message-id)
+(define-getter path       mu:path)
+(define-getter priority   mu:prio)
+(define-getter references mu:refs)
+(define-getter size        mu:size)
+(define-getter subject    mu:subject)
+(define-getter tags       mu:tags)
+(define-getter to         mu:to)
+
+(define-method (body (msg <mu-message>))
+  (or (body-txt msg) (body-html msg)))
+
+(define-method (header (msg <mu-message>) (hdr <string>))
+  "Get an arbitrary header HDR from message MSG."
+  (mu:msg:header (slot-ref msg 'msg) hdr))
+
+(define-method (contacts (msg <mu-message>) contact-type)
+  (mu:msg:contacts (slot-ref msg 'msg) contact-type))