More parrterns for SSR.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Tue, 31 Aug 2021 15:39:32 +0300
changeset 1746 45cfecc51e50
parent 1745 30584ca279db
child 1747 b7d3a5fd4059
More parrterns for SSR.
mylisp/gds-sabre.el
--- a/mylisp/gds-sabre.el	Tue Aug 31 15:39:03 2021 +0300
+++ b/mylisp/gds-sabre.el	Tue Aug 31 15:39:32 2021 +0300
@@ -30,7 +30,23 @@
   (highlight-phrase "InputMessage=" 'hi-blue))
 
 (defvar gds-sabre-highlight-ssrs
-  (regexp-opt '("ADV OTO TKT" "ADV MORE TKT" "CANCELLED DUE TO SYSTEM OR PASSENGER")))
+  (regexp-opt
+   '("ADV OTO TKT" "ADV MORE TKT" "TO AVOID AUTO CXL"
+     "CNLD AS NOT TKTD" "CANCELLED DUE TO SYSTEM OR PASSENGER"
+     "REMINDER UA SEGS SUBJ TO CXL ON" "UA SEGS XLD"
+     "OTHERWISE WILL BE CANCEL" "PLS ADV TKT NBR BY"
+     "OTHERWISE WILL BE XLD"
+     "PLS ADV TKTNUMBR FOR"
+     "CANCELLATION DUE TO NO TICKET"
+     "BKG CXLD DUE TO TKT TIME EXPIRED"
+     "RITK/ADTKT BY"
+     "OR CXL"
+     "ADTK" "ADMD"
+     "OTHERWISE WILL BE"
+     "OR SPACE WILL BE"
+     "CXLD AUTOMATICALLY"
+     "TIME ZONE"
+     "LT ELSE BKG WILL")))
 
 ;;;###autoload
 (defun gds-sabre-highlight-hist ()