| 
					
				 | 
			
			
				@@ -1853,13 +1853,8 @@ INFO is a plist used as a communication channel." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (title (if (org-string-nw-p title) title "‎")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (author (and (plist-get info :with-author) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                       (let ((auth (plist-get info :author))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                        (and auth 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                             ;; Return raw Org syntax, skipping non 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                             ;; exportable objects. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                             (org-element-interpret-data 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                              (org-element-map auth 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                  (cons 'plain-text org-element-all-objects) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-                                'identity info)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			;; Return raw Org syntax. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+                        (and auth (org-element-interpret-data auth))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (description (plist-get info :description)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (keywords (plist-get info :keywords)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (charset (or (and org-html-coding-system 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -1882,7 +1877,7 @@ INFO is a plist used as a communication channel." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       charset) "\n" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      (let ((viewport-options 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (cl-remove-if-not (lambda (cell) (org-string-nw-p (cadr cell))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			       (plist-get info :html-viewport)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			      (plist-get info :html-viewport)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (and viewport-options 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (concat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (org-html-close-tag 
			 |