Fix last commit.

lisp/org-agenda.el

@@ -5225,11 +5225,11 @@ function from a program - use `org-agenda-get-day-entries' instead."
     (while (setq file (pop files))
       (setq rtn (apply 'org-agenda-get-day-entries file date args))
       (setq results (append results rtn)))
-    (if results
-	(setq results
-	      (mapcar (lambda (i) (replace-regexp-in-string
-				   org-bracket-link-regexp "\\3" i)) results))
-	(concat (org-agenda-finalize-entries results) "\n"))))
+    (when results
+      (setq results
+	    (mapcar (lambda (i) (replace-regexp-in-string
+				 org-bracket-link-regexp "\\3" i)) results))
+      (concat (org-agenda-finalize-entries results) "\n"))))
 
 (autoload 'org-diary "org-agenda" "\
 Return diary information from org files.