gnu: offlineimap: Replace with offlineimap3.

* gnu/packages/mail.scm (offlineimap3): New variable.
(offlineimap): Replace with deprecated package.

gnu/packages/mail.scm

@@ -156,6 +156,7 @@
   #:use-module (gnu packages xml)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
+  #:use-module (guix deprecation)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix svn-download)
@@ -1045,53 +1046,58 @@ content (body).  The program is able to learn from the user's classifications
 and corrections.  It is based on a Bayesian filter.")
     (license license:gpl3+)))
 
-(define-public offlineimap
+(define-public offlineimap3
-  (package
+  ;; The OfflineIMAP3 fork does not yet have a release, but it's likely to be
-    (name "offlineimap")
+  ;; 8.0.0 but the source still reports 7.3.0, see
-    (version "7.3.3")
+  ;; https://github.com/OfflineIMAP/offlineimap3/issues/10.
-    (source (origin
+  (let ((commit "4ca9c75c6f9a0cc8dc7b69dd6abf073e494cc0e5")
-              (method git-fetch)
+        (revision "0"))
-              (uri (git-reference
+    (package
-                    (url "https://github.com/OfflineIMAP/offlineimap")
+      (name "offlineimap3")
-                    (commit (string-append "v" version))))
+      (version (git-version "7.3.0" revision commit))
-              (file-name (git-file-name name version))
+      (source (origin
-              (sha256
+                (method git-fetch)
-               (base32
+                (uri (git-reference
-                "1gg8ry67i20qapj4z20am9bm67m2q28kixcj7ja75m897vhzarnq"))))
+                      (url "https://github.com/OfflineIMAP/offlineimap3")
-    (build-system python-build-system)
+                      (commit commit)))
-    (native-inputs
+                (file-name (git-file-name name version))
-     `(("asciidoc" ,asciidoc)))
+                (sha256
-    (inputs
+                 (base32
-     `(("python2-pysqlite" ,python2-pysqlite)
+                  "0nzh5dcc559jfw4yy12gc98s17w82b15zxikspc6apd8filmk9xg"))))
-       ("python2-rfc6555" ,python2-rfc6555)
+      (build-system python-build-system)
-       ("python2-six" ,python2-six)))
+      (native-inputs
-    (arguments
+       `(("asciidoc" ,asciidoc)))
-     ;; The setup.py script expects python-2.
+      (inputs
-     `(#:python ,python-2
+       `(("python-distro" ,python-distro)
-      ;; Tests require a modifiable IMAP account.
+         ("python-imaplib2" ,python-imaplib2)
-       #:tests? #f
+         ("python-rfc6555" ,python-rfc6555)))
-       #:phases
+      (arguments
-       (modify-phases %standard-phases
+       `(;; Tests require a modifiable IMAP account.
-         (add-after 'build 'build-documentation
+         #:tests? #f
-           (lambda _
+         #:phases
-             (substitute* "docs/Makefile"
+         (modify-phases %standard-phases
-               ;; Prevent xmllint and xsltproc from downloading a DTD file.
+           (add-after 'build 'build-documentation
-               (("a2x -v") "a2x --no-xmllint --xsltproc-opts=--nonet -v"))
+             (lambda _
-             (invoke "make" "-C" "docs" "man")))
+               (substitute* "docs/Makefile"
-         (add-after 'install 'install-documentation
+                 ;; Prevent xmllint and xsltproc from downloading a DTD file.
-           (lambda* (#:key outputs #:allow-other-keys)
+                 (("a2x -v") "a2x --no-xmllint --xsltproc-opts=--nonet -v"))
-             (let* ((out (assoc-ref outputs "out"))
+               (invoke "make" "-C" "docs" "man")))
-                    (man (string-append out "/share/man")))
+           (add-after 'install 'install-documentation
-               (install-file "docs/offlineimap.1" (string-append man "/man1"))
+             (lambda* (#:key outputs #:allow-other-keys)
-               (install-file "docs/offlineimapui.7" (string-append man "/man7"))
+               (let* ((out (assoc-ref outputs "out"))
-               #t))))))
+                      (man (string-append out "/share/man")))
-    (home-page "https://www.offlineimap.org")
+                 (install-file "docs/offlineimap.1" (string-append man "/man1"))
-    (synopsis "Sync emails between two repositories")
+                 (install-file "docs/offlineimapui.7" (string-append man "/man7"))))))))
-    (description
+      (home-page "https://www.offlineimap.org")
-     "OfflineImap synchronizes emails between two repositories, so that you
+      (synopsis "Sync emails between two repositories")
+      (description
+       "OfflineImap synchronizes emails between two repositories, so that you
 can read the same mailbox from multiple computers.  It supports IMAP as REMOTE
 repository and Maildir/IMAP as LOCAL repository.")
-    (license license:gpl2+)))
+      (license license:gpl2+))))
+
+(define-public offlineimap
+  (deprecated-package "offlineimap" offlineimap3))
 
 (define-public emacs-mew
   (package