From 9d9b42022f14ab7bae0db52a4c1439908fa6fabf Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 24 Oct 2003 23:47:39 +0000 Subject: [PATCH] * riece-options.el (riece-gather-channel-modes): Default to nil. * riece-handle.el (riece-handle-join-message): Send MODE if riece-gather-channel-modes is non-nil. --- lisp/ChangeLog | 4 ++++ lisp/riece-handle.el | 2 ++ lisp/riece-options.el | 2 +- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a3640f4..ab05f75 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2003-10-24 Daiki Ueno + * riece-options.el (riece-gather-channel-modes): Default to nil. + * riece-handle.el (riece-handle-join-message): Send MODE if + riece-gather-channel-modes is non-nil. + * riece-url.el: Add autoload setting for 'browse-url. * riece-menu.el: Require 'riece-options, 'riece-globals, diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el index 6d36577..f683a0a 100644 --- a/lisp/riece-handle.el +++ b/lisp/riece-handle.el @@ -107,6 +107,8 @@ (user-identity (riece-make-identity user riece-server-name))) (while channels (riece-naming-assert-join user (car channels)) + (if riece-gather-channel-modes + (riece-send-string (format "MODE %s\r\n" (car channels)))) (let* ((channel-identity (riece-make-identity (car channels) riece-server-name)) (buffer (riece-channel-buffer channel-identity))) diff --git a/lisp/riece-options.el b/lisp/riece-options.el index f4dbbed..945c699 100644 --- a/lisp/riece-options.el +++ b/lisp/riece-options.el @@ -244,7 +244,7 @@ way is to put Riece variables on .emacs or file loaded from there." :type '(radio (string :tag "Away message")) :group 'riece-options) -(defcustom riece-gather-channel-modes t +(defcustom riece-gather-channel-modes nil "If non-nil, gather channel modes when we join a channel." :type 'boolean :group 'riece-options) -- 1.7.10.4