| 
					
				 | 
			
			
				@@ -1166,7 +1166,7 @@ are effectively trimmed).  If nil, all zero-length substrings are retained." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Store the contact in `org-contacts-files' with a link." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (when (and (eq major-mode 'org-mode) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (member (buffer-file-name) (mapcar 'expand-file-name org-contacts-files))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (if org-id-link-to-org-use-id 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (if (and (featurep 'org-id) org-id-link-to-org-use-id) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(org-id-store-link) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((headline-str (substring-no-properties (org-get-heading t t t t)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(org-store-link-props 
			 |