01/01: gnu: emms: Fix build.

[Ricardo Wurmus]

rekado pushed a commit to branch core-updates
in repository guix.

commit 80c0f69c500349855de6489cfb25e245b01620c2
Author: Ricardo Wurmus <address@hidden>
Date:   Wed May 30 14:53:23 2018 +0200

    gnu: emms: Fix build.
    
    * gnu/packages/emacs.scm (emms)[arguments]: Reset time stamps of files to be
    gzipped; let post-install phase return #t.
---
 gnu/packages/emacs.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 79816e9..9c799ae 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -908,7 +908,8 @@ provides an optional IDE-like error list.")
     (arguments
      `(#:modules ((guix build gnu-build-system)
                   (guix build utils)
-                  (guix build emacs-utils))
+                  (guix build emacs-utils)
+                  (ice-9 ftw))
        #:imported-modules (,@%gnu-build-system-modules
                            (guix build emacs-utils))
 
@@ -971,13 +972,21 @@ provides an optional IDE-like error list.")
                     (man1 (string-append out "/share/man/man1")))
                (mkdir-p bin)
                (mkdir-p man1)
+
+               ;; Ensure that files are not rejected by gzip
+               (let ((early-1980 315619200)) ; 1980-01-02 UTC
+                 (ftw "." (lambda (file stat flag)
+                            (unless (<= early-1980 (stat:mtime stat))
+                              (utime file early-1980 early-1980))
+                            #t)))
                #t)))
          (add-after 'install 'post-install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
                (symlink "emms-auto.el"
                         (string-append out "/share/emacs/site-lisp/"
-                                       "emms-autoloads.el"))))))
+                                       "emms-autoloads.el")))
+             #t)))
        #:tests? #f))
     (native-inputs `(("emacs" ,emacs-minimal)    ;for (guix build emacs-utils)
                      ("texinfo" ,texinfo)))