Fix bug with adding appointments to diary in Emacs 23.

Patch from Andrew Hyatt.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2008-07-25  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-agenda.el (org-agenda-execute-calendar-command)
+	(org-agenda-diary-entry): Additional optional argument.
+
 2008-07-24  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org-exp.el (org-export-as-html): Add attributes also in mailto

lisp/org-agenda.el

@@ -5120,13 +5120,12 @@ All the standard commands work: block, weekly etc."
       (unwind-protect
 	  (progn
 	    (fset 'calendar-cursor-to-date
-		  (lambda (&optional error)
+		  (lambda (&optional error dummy)
 		    (calendar-gregorian-from-absolute
 		     (get-text-property point 'day))))
 	      (call-interactively cmd))
 	(fset 'calendar-cursor-to-date oldf)))))
 
-
 (defun org-agenda-execute-calendar-command (cmd)
   "Execute a calendar command from the agenda, with the date associated to
 the cursor position."
@@ -5144,7 +5143,7 @@ the cursor position."
       (unwind-protect
 	  (progn
 	    (fset 'calendar-cursor-to-date
-		  (lambda (&optional error)
+		  (lambda (&optional error dummy)
 		    (calendar-gregorian-from-absolute
 		     (get-text-property point 'day))))
 	    (call-interactively cmd))