| 
					
				 | 
			
			
				@@ -458,7 +458,7 @@ or subject for the event." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				    (mapconcat 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (lambda (line) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       ;; Limit each line to a maximum of 75 characters.  If it is 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      ;; longer, fold it by using "\n " as a continuation marker. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      ;; longer, fold it by using "\r\n " as a continuation marker. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((len (length line))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(if (<= len 75) line 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	  (let ((folded-line (substring line 0 75)) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -468,11 +468,11 @@ or subject for the event." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    ;; line, real contents must be split at 74 chars. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (while (< (setq chunk-end (+ chunk-start 74)) len) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (setq folded-line 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    (concat folded-line "\n " 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		    (concat folded-line "\r\n " 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			    (substring line chunk-start chunk-end)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    chunk-start chunk-end)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	    (concat folded-line "\n " (substring line chunk-start)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-    (org-split-string s "\n") "\n"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (concat folded-line "\r\n " (substring line chunk-start)))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    (org-split-string s "\n") "\r\n"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 |