| 
					
				 | 
			
			
				@@ -137,15 +137,16 @@ simple timestamp string." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Create the todo-list for one org-agenda file." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let* ((files (org-agenda-files 'unrestricted)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (max (1- (length files)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (setq org-notify-parse-file 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-          (if (or (not org-notify-parse-file) (>= org-notify-parse-file max)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-              0 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-            (1+ org-notify-parse-file))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (save-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (with-current-buffer (find-file-noselect 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                            (nth org-notify-parse-file files)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-        (org-element-map (org-element-parse-buffer 'headline) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                         'headline 'org-notify-make-todo))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (when files 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (setq org-notify-parse-file 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (if (or (not org-notify-parse-file) (>= org-notify-parse-file max)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		0 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (1+ org-notify-parse-file))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (save-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(with-current-buffer (find-file-noselect 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			      (nth org-notify-parse-file files)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	  (org-element-map (org-element-parse-buffer 'headline) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      'headline 'org-notify-make-todo)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-notify-maybe-too-late (diff period heading) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Print warning message, when notified significantly later than defined by 
			 |