X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=lurk.el;h=2f7e15af8aa93b30ce12d114c6e29df07023bbf4;hb=19edbf25ef250e79b2cf47e1a28c9bd8c9f361bf;hp=531e426191d805afe9316bcf7cc2aaf193a5095c;hpb=d874c02a112bb7e965a86955ecc88d379b0358c0;p=lurk.git

diff --git a/lurk.el b/lurk.el
index 531e426..2f7e15a 100644
--- a/lurk.el
+++ b/lurk.el
@@ -487,7 +487,9 @@ portion of the source component of the message, as LURK doesn't use this.")
                    (if (equal to lurk-nick) from to))))
     (lurk-display-string
      context
-     (concat context " * " from)
+     (propertize
+      (concat context " * " from)
+      'face (lurk-get-context-facelist context))
      action-text)))
 
 (defun lurk-display-notice (context &rest notices)
@@ -541,8 +543,8 @@ portion of the source component of the message, as LURK doesn't use this.")
        (opt (group (: ":" (+ digit))))
        (opt (group (: "/"
                       (opt
-                       (* (any alnum "-/.,#:%=&_"))
-                       (any alnum "-/#:%=&_")))))))
+                       (* (any alnum "-/.,#:%=&_?~"))
+                       (any alnum "-/#:%=&_~")))))))
   "Imperfect regex used to find URLs in plain text.")
 
 (defun lurk-click-url (button)
@@ -780,10 +782,10 @@ portion of the source component of the message, as LURK doesn't use this.")
            (setq lurk-nick nick)
            (lurk-display-notice nil "Set default nick to '" nick "'")))
 
-        ((rx "LIST")
+        ((rx (: "LIST" (* whitespace) string-end))
          (lurk-display-notice nil "This command can generate lots of output. Use `LIST -yes' if you're sure."))
 
-        ((rx (: "LIST" (+ whitespace) "-YES"))
+        ((rx (: "LIST" (+ whitespace) "-YES" (* whitespace) string-end))
          (lurk-send-msg (lurk-msg nil nil "LIST")))
 
         ((rx "MSG "