Do not prefer future when jumping to a date in the agenda

* lisp/org-agenda.el (org-agenda-goto-date): Turn off prefer future
for this command.

lisp/org-agenda.el

@@ -5809,7 +5809,8 @@ Negative selection means regexp must not match for selection of an entry."
 
 (defun org-agenda-goto-date (date)
   "Jump to DATE in agenda."
-  (interactive (list (org-read-date)))
+  (interactive (list (let ((org-read-date-prefer-future nil))
+		       (org-read-date))))
   (org-agenda-list nil date))
 
 (defun org-agenda-goto-today ()