diff options
-rw-r--r-- | lisp/acdw-circe.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index 958ef38..a45c6ff 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el | |||
@@ -17,7 +17,10 @@ message the current topic." | |||
17 | (interactive "p") | 17 | (interactive "p") |
18 | (let ((topic | 18 | (let ((topic |
19 | (save-excursion | 19 | (save-excursion |
20 | (re-search-backward (rx "*** Topic for #" (+ (or word "-")) ": ")) | 20 | (goto-char (point-max)) |
21 | (or (re-search-backward (rx "*** Topic change" (+ (not ":")) ": ")) | ||
22 | (re-search-backward | ||
23 | (rx "*** Topic for #" (+ (or word "-")) ": "))) | ||
21 | (buffer-substring-no-properties | 24 | (buffer-substring-no-properties |
22 | (match-end 0) (line-end-position))))) | 25 | (match-end 0) (line-end-position))))) |
23 | (when message | 26 | (when message |