|  | @@ -18601,6 +18601,7 @@ belonging to the category \"Work\"."
 | 
	
		
			
				|  |  |        (setq filter (read-from-minibuffer "Regexp filter: ")))
 | 
	
		
			
				|  |  |    (let* ((cnt 0) ; count added events
 | 
	
		
			
				|  |  |  	 (org-agenda-new-buffers nil)
 | 
	
		
			
				|  |  | +	 (org-deadline-warning-days 0)
 | 
	
		
			
				|  |  |  	 (today (org-date-to-gregorian
 | 
	
		
			
				|  |  |  		 (time-to-days (current-time))))
 | 
	
		
			
				|  |  |  	 (files (org-agenda-files)) entries file)
 |