(fortune-in-buffer): Fix a bug which forced

usage of `fortune-file' even though a FILE argument was passed to
the function.

lisp/ChangeLog

+2008-09-22  Tassilo Horn  <tassilo@member.fsf.org>
+
+	* play/fortune.el (fortune-in-buffer): Fix a bug which forced
+	usage of `fortune-file' even though a FILE argument was passed to
+	the function.
+
 2008-09-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* startup.el (command-line): Start the server when in daemon mode.

lisp/play/fortune.el

@@ -306,7 +306,7 @@ when supplied, specifies the file to choose the fortune from."
              nil fortune-buffer nil     ; INFILE BUFFER DISPLAY
              (append (if (stringp fortune-program-options)
                          (split-string fortune-program-options)
-                       fortune-program-options) (list fortune-file))))))
+                       fortune-program-options) (list fort-file))))))
 
 ;;;###autoload
 (defun fortune (&optional file)