Restore rcirc-target if possible

* rcirc.el (rcirc-process-message): Extract target from buffer name

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 579a350c6a1cd7c8e3f07d93aeec70506d6044ad..5537ddca108ba78b19e163845acf32b8a6d005bf 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1620,6 +1620,11 @@ The argument JUSTIFY is passed on to `fill-region'."
 
 (defun rcirc-process-message (line)
   "Process LINE as a message to be sent."
+  (when (and (null rcirc-target)
+             (string-match
+              (rx bos (group (+? nonl)) "@" (+ nonl) eos)
+              (buffer-name)))
+    (setq rcirc-target (match-string 1 (buffer-name))))
   (if (not rcirc-target)
       (message "Not joined (no target)")
     (delete-region rcirc-prompt-end-marker (point))