From 3767e706d7c9914c3451a64d04eac0f1f4059260 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Mon, 30 May 2011 20:04:44 +0800 Subject: Use a visible buffer name for rcirc-debug-buffer --- lisp/ChangeLog | 4 ++++ lisp/net/rcirc.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6d4752efec..5176ceca0a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-05-30 Leo Liu + + * net/rcirc.el (rcirc-debug-buffer): Use visible buffer name. + 2011-05-29 Chong Yidong * image.el (image-animate-max-time): Allow nil and t values. diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 47085af85f..7b1f85769d 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -616,7 +616,7 @@ last ping." (setq header-line-format (format "%f" (- (rcirc-float-time) (string-to-number message)))))) -(defvar rcirc-debug-buffer " *rcirc debug*") +(defvar rcirc-debug-buffer "*rcirc debug*") (defvar rcirc-debug-flag nil "If non-nil, write information to `rcirc-debug-buffer'.") (defun rcirc-debug (process text) -- cgit v1.2.3 From 5ab33f2b8a7184d062c33bc43b1bfd3fe990e3b5 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Mon, 30 May 2011 20:23:56 +0800 Subject: Decode all incoming messages in rcirc.el Also allow automatic coding system detection if rcirc-decode-coding-system is nil. See discussion in http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8744 --- lisp/ChangeLog | 3 +++ lisp/net/rcirc.el | 10 ++++++---- 2 files changed, 9 insertions(+), 4 deletions(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5176ceca0a..0064bb7954 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,9 @@ 2011-05-30 Leo Liu * net/rcirc.el (rcirc-debug-buffer): Use visible buffer name. + (rcirc-print): Decode all incoming messages (bug#8744). + (rcirc-decode-coding-system): Allow value nil for automatic coding + system detection. 2011-05-29 Chong Yidong diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 7b1f85769d..b1ee4c4537 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -314,9 +314,11 @@ Called with 5 arguments, PROCESS, SENDER, RESPONSE, TARGET and TEXT." :type 'boolean :group 'rcirc) -(defcustom rcirc-decode-coding-system 'utf-8 - "Coding system used to decode incoming irc messages." +(defcustom rcirc-decode-coding-system nil + "Coding system used to decode incoming irc messages. +If nil automatically detect the coding system." :type 'coding-system + :version "24.1" :group 'rcirc) (defcustom rcirc-encode-coding-system 'utf-8 @@ -1480,9 +1482,9 @@ record activity." (old-point (point-marker)) (fill-start (marker-position rcirc-prompt-start-marker))) + (setq text (decode-coding-string text (or rcirc-decode-coding-system + (detect-coding-string text t)))) (unless (string= sender (rcirc-nick process)) - ;; only decode text from other senders, not ours - (setq text (decode-coding-string text rcirc-decode-coding-system)) ;; mark the line with overlay arrow (unless (or (marker-position overlay-arrow-position) (get-buffer-window (current-buffer)) -- cgit v1.2.3