filter out original files

1 files changed, 8 insertions, 8 deletions

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index acb1992..da31c3c 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -1503,19 +1503,19 @@ answers without needing to listen to everything again. You can see <a href=\"htt
 															f)
 						;; further tests
 						(pcase f
-							((rx (seq "vtt" string-end))
+							((rx "--original")
+							 ;; include original only if --main or does not exist
+							 (and
+								(not (string-match "--answers" f))
+								(not (member (concat (plist-get talk :file-prefix)
+																		 "--main.webm")
+														 files))))							((rx (seq "vtt" string-end))
 							 (or (plist-get talk :captions-edited)
 									 (emacsconf-captions-edited-p (expand-file-name f emacsconf-cache-dir))))
 							((rx (seq "--"
 												(or "reencoded" "normalized" "final" "old" "bbb")))
 							 nil)
-							((rx "--original")
-							 ;; include original only if --main or --answers does not exist
-							 (not (member (concat (plist-get talk :file-prefix)
-																		(if (string-match "--answers-original" f)
-																				"--answers.webm"
-																			"--main.webm"))
-														files)))
+
 							((rx (or "--main.txt" "--after-zaeph")) nil)
 							(_ t))))
 				files)))