(if (equal to lurk-nick) from to))))
(lurk-display-string
context
- (concat "* " from)
+ (propertize
+ (concat context " * " from)
+ 'face (lurk-get-context-facelist context))
action-text)))
(defun lurk-display-notice (context &rest notices)
(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)
(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 "