neale
/
rcirc
mirror of https://github.com/nealey/rcirc
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Stop filling text I enter, handle bouncer relaying KEEPALIVE, handle UTF8 topics

This commit is contained in:
Neale Pickett 2015-11-03 17:25:51 -07:00
parent eeff07e1cc
commit 742a153086
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rcirc.el
View File

@ -1547,10 +1547,11 @@ record activity."
(propertize "\n" 'hard t)) (propertize "\n" 'hard t))
;; squeeze spaces out of text before rcirc-text ;; squeeze spaces out of text before rcirc-text
(fill-region fill-start (when rcirc-fill-flag
(1- (or (next-single-property-change fill-start (fill-region fill-start
'rcirc-text) (1- (or (next-single-property-change fill-start
rcirc-prompt-end-marker))) 'rcirc-text)
rcirc-prompt-end-marker))))
;; run markup functions ;; run markup functions
(save-excursion (save-excursion
@ -2562,9 +2563,13 @@ If ARG is given, opens the URL in a new browser window."
(rcirc-check-auth-status process sender args text) (rcirc-check-auth-status process sender args text)
(let ((target (car args)) (let ((target (car args))
(message (cadr args))) (message (cadr args)))
(if (string-match "^\C-a\\(.*\\)\C-a$" message) (cond
(rcirc-handler-CTCP-response process target sender ((string-match "^\C-a\\(.*\\)\C-a$" message)
(match-string 1 message)) (rcirc-handler-CTCP-response process target sender
(match-string 1 message)))
((string-match "^KEEPALIVE [0-9.]+$" message)
(rcirc-handler-ctcp-KEEPALIVE process target sender message))
(t
(rcirc-print process sender "NOTICE" (rcirc-print process sender "NOTICE"
(cond ((rcirc-channel-p target) (cond ((rcirc-channel-p target)
target) target)
@ -2575,7 +2580,7 @@ If ARG is given, opens the URL in a new browser window."
(if (string= sender (rcirc-server-name process)) (if (string= sender (rcirc-server-name process))
nil ; server notice nil ; server notice
sender))) sender)))
message t)))) message t)))))
(defun rcirc-check-auth-status (process sender args text) (defun rcirc-check-auth-status (process sender args text)
"Check if the user just authenticated. "Check if the user just authenticated.
@ -2737,7 +2742,7 @@ the only argument."
(let ((topic (cadr args))) (let ((topic (cadr args)))
(rcirc-print process sender "TOPIC" (car args) topic) (rcirc-print process sender "TOPIC" (car args) topic)
(with-current-buffer (rcirc-get-buffer process (car args)) (with-current-buffer (rcirc-get-buffer process (car args))
(setq rcirc-topic topic)))) (setq rcirc-topic (decode-coding-string topic rcirc-decode-coding-system)))))
(defvar rcirc-nick-away-alist nil) (defvar rcirc-nick-away-alist nil)
(defun rcirc-handler-301 (process sender args text) (defun rcirc-handler-301 (process sender args text)
@ -2773,7 +2778,7 @@ the only argument."
(let ((buffer (or (rcirc-get-buffer process (cadr args)) (let ((buffer (or (rcirc-get-buffer process (cadr args))
(rcirc-get-temp-buffer-create process (cadr args))))) (rcirc-get-temp-buffer-create process (cadr args)))))
(with-current-buffer buffer (with-current-buffer buffer
(setq rcirc-topic (caddr args))))) (setq rcirc-topic (decode-coding-string (caddr args) rcirc-decode-coding-system)))))
(defun rcirc-handler-333 (process sender args text) (defun rcirc-handler-333 (process sender args text)
"333 says who set the topic and when. "333 says who set the topic and when.
@ -2917,6 +2922,7 @@ Passwords are stored in `rcirc-authinfo' (which see)."
" :\C-aTIME " (current-time-string) "\C-a"))) " :\C-aTIME " (current-time-string) "\C-a")))
(defun rcirc-handler-CTCP-response (process target sender message) (defun rcirc-handler-CTCP-response (process target sender message)
(message message)
(rcirc-print process sender "CTCP" nil message t)) (rcirc-print process sender "CTCP" nil message t))
(defgroup rcirc-faces nil (defgroup rcirc-faces nil