From 7c54fcc66ba52e58eec806c5a9eaefa0ee56afc1 Mon Sep 17 00:00:00 2001
From: Kei Yamashita <address@hidden>
Date: Tue, 10 May 2016 20:39:42 -0400
Subject: [PATCH] gnu: Add libpst.

* gnu/packages/mail.scm (libpst): New variable.
---
 gnu/packages/mail.scm | 33 +++++++++++++++++++++++++++++++--
 1 file changed, 31 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 17dd0ad..2d95753 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -13,6 +13,7 @@
 ;;; Copyright © 2016 Al McElrath <address@hidden>
 ;;; Copyright © 2016 Leo Famulari <address@hidden>
 ;;; Copyright © 2016 Lukas Gradl <address@hidden>
+;;; Copyright © 2016 Kei Yamashita <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -36,6 +37,7 @@
   #:use-module (gnu packages backup)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages bison)
+  #:use-module (gnu packages boost)
   #:use-module (gnu packages curl)
   #:use-module (gnu packages cyrus-sasl)
   #:use-module (gnu packages databases)
@@ -177,14 +179,14 @@ aliasing facilities to work just as they would on normal mail.")
 (define-public mutt
   (package
     (name "mutt")
-    (version "1.6.1")
+    (version "1.6.0")
     (source (origin
              (method url-fetch)
              (uri (string-append "ftp://ftp.mutt.org/pub/mutt/mutt-"
                                  version ".tar.gz"))
              (sha256
               (base32
-               "087dz1y9qhl4ikhsnnb4xmyvs82w6kx480w8zj130wdiqvn6rclq"))
+               "06bc2drbgalkk68rzg7hq2v5m5qgjxff5357wg0419dpi8ivdbr9"))
              (patches (search-patches "mutt-store-references.patch"))))
     (build-system gnu-build-system)
     (inputs
@@ -1203,3 +1205,30 @@ synchronizing with a remote address book, @command{vdirsyncer} is recommended.
 Khard can also be used from within the email client @command{mutt}.")
     (home-page "https://github.com/scheibler/khard")
     (license gpl3+)))
+
+(define-public libpst
+  (package
+    (name "libpst")
+    (version "0.6.66")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://www.five-ten-sg.com/" name
+                                  "/packages/" name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0whzgrky1b015czg9f5mk8zpz1mvip3ifzp24nfis291v0wrkd4j"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(("boost" ,boost)
+       ("libgsf" ,libgsf)
+       ("python" ,python-2)))
+    (home-page "http://www.five-ten-sg.com/libpst/")
+    (synopsis "Microsoft Outlook .pst file converter")
+    (description
+     "Libpst can convert both 32 bit Microsoft Outlook files (pre 2003), and
+the 64 bit Outlook 2003 pst files.  Utilities are supplied to convert email
+messages to both mbox and MH mailbox formats.  Contacts can be converted to a
+simple list, to vcard format, or to ldif format for import to an LDAP server.")
+    (license gpl2+)))
-- 
2.7.4