]> code.delx.au - gnu-emacs/blobdiff - lisp/play/fortune.el
Update copyright year to 2016
[gnu-emacs] / lisp / play / fortune.el
index 17ab6f982540a1b88c5e5cdea5b98bd8d5301604..25fa3f66ef1ac35ea1fec6e6e962981ac2f1e933 100644 (file)
@@ -1,6 +1,6 @@
 ;;; fortune.el --- use fortune to create signatures
 
-;; Copyright (C) 1999, 2001-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2001-2016 Free Software Foundation, Inc.
 
 ;; Author: Holger Schauer <Holger.Schauer@gmx.de>
 ;; Keywords: games utils mail
@@ -246,12 +246,11 @@ the value of `fortune-file'.  This currently cannot handle directories."
                       (substitute-in-file-name
                        (concat fortune-file fortune-database-extension)))))
   (cond ((file-exists-p fortune-file)
-        (if (file-exists-p fortune-dat)
-            (cond ((file-newer-than-file-p fortune-file fortune-dat)
-                   (message "Compiling new fortune database %s" fortune-dat)
-                   (shell-command
-                    (concat fortune-strfile fortune-strfile-options
-                            " " fortune-file fortune-quiet-strfile-options))))))
+         (cond ((file-newer-than-file-p fortune-file fortune-dat)
+                (message "Compiling new fortune database %s" fortune-dat)
+                (shell-command
+                 (concat fortune-strfile fortune-strfile-options
+                         " " fortune-file fortune-quiet-strfile-options)))))
        (t (error "Can't compile fortune file %s" fortune-file)))))