diff options
| -rw-r--r-- | lisp/net/rcirc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 9d53cd4436b..b1a6c1ce8d2 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el | |||
| @@ -2685,7 +2685,7 @@ the only argument." | |||
| 2685 | (defun rcirc-handler-PART (process sender args _text) | 2685 | (defun rcirc-handler-PART (process sender args _text) |
| 2686 | (let* ((channel (car args)) | 2686 | (let* ((channel (car args)) |
| 2687 | (reason (cadr args)) | 2687 | (reason (cadr args)) |
| 2688 | (message "%s %s" channel reason)) | 2688 | (message (concat channel " " reason))) |
| 2689 | (rcirc-print process sender "PART" channel message) | 2689 | (rcirc-print process sender "PART" channel message) |
| 2690 | ;; print in private chat buffer if it exists | 2690 | ;; print in private chat buffer if it exists |
| 2691 | (when (rcirc-get-buffer (rcirc-buffer-process) sender) | 2691 | (when (rcirc-get-buffer (rcirc-buffer-process) sender) |
| @@ -2697,7 +2697,7 @@ the only argument." | |||
| 2697 | (let* ((channel (car args)) | 2697 | (let* ((channel (car args)) |
| 2698 | (nick (cadr args)) | 2698 | (nick (cadr args)) |
| 2699 | (reason (nth 2 args)) | 2699 | (reason (nth 2 args)) |
| 2700 | (message "%s %s %s" nick channel reason)) | 2700 | (message (concat nick " " channel " " reason))) |
| 2701 | (rcirc-print process sender "KICK" channel message t) | 2701 | (rcirc-print process sender "KICK" channel message t) |
| 2702 | ;; print in private chat buffer if it exists | 2702 | ;; print in private chat buffer if it exists |
| 2703 | (when (rcirc-get-buffer (rcirc-buffer-process) nick) | 2703 | (when (rcirc-get-buffer (rcirc-buffer-process) nick) |