From c3f08ad6fa71c0d24a727887901b0cb722b17c8a Mon Sep 17 00:00:00 2001
From: Jaidyn Levesque <10477760+JadedCtrl@users.noreply.github.com>
Date: Wed, 28 Dec 2022 16:46:25 -0600
Subject: [PATCH] Tweak atom parsing

---
 date-strings.scm | 4 ++--
 feedsnake.scm    | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/date-strings.scm b/date-strings.scm
index b1d8681..beed44e 100644
--- a/date-strings.scm
+++ b/date-strings.scm
@@ -37,9 +37,9 @@
 (define (rfc339-string->date string)
   (handle-exceptions exn
 	  (handle-exceptions exn
-		  (string->date string "~Y-~m-~dT~H:~M:~S")
+		  (string->date string "~Y-~m-~dT~H:~M:~S~z")
 		#f)
-	(string->date string "~Y-~m-~dT~H:~M:~S~z")))
+	(string->date string "~Y-~m-~dT~H:~M:~S")))
 
 
 ;; Date into an RFC228 (e-mail) string
diff --git a/feedsnake.scm b/feedsnake.scm
index 705d110..186cd89 100644
--- a/feedsnake.scm
+++ b/feedsnake.scm
@@ -81,7 +81,7 @@
 	   "Subject: ~{{~A||Unnamed post||title}}\n"
 	   "Date: ~{{~A||||updated-rfc228||published-rfc228}}\n"
 	   "\n"
-	   "~{{~{~a~^, ~}~%***~%||||urls}}\n"
+	   "~{{*** ~{~a~^ ~}~%||||urls}}\n"
 	   "~{{~A||||summary}}\n"))
 	(multifile-output? #t)))
 
@@ -293,7 +293,8 @@
 	`((title ,(last (entry-title entry)))
 	  (updated ,(or updated published))
 	  (published ,(or published updated))
-	  (summary ,(last (entry-summary entry)))
+	  (summary ,(last (or (entry-summary entry)
+						  (entry-content entry))))
 	  (urls ,(map (lambda (link) (atom-link->string link atom))
 				  (entry-links entry)))
 	  (authors ,(if (null? entry-authors) feed-authors entry-authors))