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