| 
					
				 | 
			
			
				@@ -233,7 +233,13 @@ communication channel." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		 (concat "sec-" (mapconcat 'number-to-string hl-number "-"))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (category (org-rss-plain-text 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		      (or (org-element-property :CATEGORY headline) "") info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	   (pubdate (org-element-property :PUBDATE headline)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	   (pubdate 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (let ((system-time-locale "C")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (format-time-string 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       "%a, %d %h %Y %H:%M:%S %Z" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       (org-time-string-to-time 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		(or (org-element-property :PUBDATE headline) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		    (error "Missing PUBDATE property")))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (title (org-rss-plain-text 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		   (org-element-property :raw-value headline) info)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (publink 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -383,9 +389,8 @@ information." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	   (unless (org-entry-get (point) "PUBDATE") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (setq msg t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (org-set-property 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	      "PUBDATE" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	      (let ((system-time-locale "C")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		(format-time-string "%a, %d %h %Y %H:%M:%S %Z"))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      "PUBDATE" (format-time-string 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			 (cdr org-time-stamp-formats))))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				      nil nil 'comment 'archive) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (when msg 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (message "Property PUBDATE added to top-level entries in %s" 
			 |