;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(riece-make-identity (car targets)
riece-server-name)
message 'notice
- (riece-identity-equal-no-server
- user riece-real-nickname)))
+ (if riece-real-nickname
+ (riece-identity-equal-no-server
+ user riece-real-nickname))))
;; message from server
(riece-insert-notice
(list riece-dialogue-buffer riece-others-buffer)
(buffer (riece-channel-buffer channel-identity)))
(riece-insert-change
buffer
- (format "%s (%s) has joined %s\n"
+ (format (riece-mcat "%s (%s) has joined %s\n")
(riece-format-identity user-identity t)
(riece-user-get-user-at-host user)
(riece-format-identity channel-identity t)))
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "%s (%s) has joined %s"
+ (format (riece-mcat "%s (%s) has joined %s")
(riece-format-identity user-identity t)
(riece-user-get-user-at-host user)
(riece-format-identity channel-identity t)))
buffer
(concat
(riece-concat-message
- (format "%s has left %s"
+ (format (riece-mcat "%s has left %s")
(riece-format-identity user-identity t)
(riece-format-identity channel-identity t))
message)
(concat
(riece-concat-server-name
(riece-concat-message
- (format "%s has left %s"
+ (format (riece-mcat "%s has left %s")
(riece-format-identity user-identity t)
(riece-format-identity channel-identity t))
message))
buffer
(concat
(riece-concat-message
- (format "%s kicked %s out from %s"
+ (format (riece-mcat "%s kicked %s out from %s")
(riece-format-identity kicker-identity t)
(riece-format-identity user-identity t)
(riece-format-identity channel-identity t))
(concat
(riece-concat-server-name
(riece-concat-message
- (format "%s kicked %s out from %s\n"
+ (format (riece-mcat "%s kicked %s out from %s\n")
(riece-format-identity kicker-identity t)
(riece-format-identity user-identity t)
(riece-format-identity channel-identity t))
buffers
(concat
(riece-concat-message
- (format "%s has left IRC"
+ (format (riece-mcat "%s has left IRC")
(riece-format-identity user-identity t))
message)
"\n"))
(concat
(riece-concat-server-name
(riece-concat-message
- (format "%s has left IRC"
+ (format (riece-mcat "%s has left IRC")
(riece-format-identity user-identity t))
message))
"\n")))))
buffers
(concat
(riece-concat-message
- (format "%s killed %s"
+ (format (riece-mcat "%s killed %s")
(riece-format-identity killer-identity t)
(riece-format-identity user-identity t))
message)
(concat
(riece-concat-server-name
(riece-concat-message
- (format "%s killed %s"
+ (format (riece-mcat "%s killed %s")
(riece-format-identity killer-identity t)
(riece-format-identity user-identity t))
message))
(list riece-dialogue-buffer riece-others-buffer)
(concat
(riece-concat-server-name
- (format "%s invites %s to %s"
+ (format (riece-mcat "%s invites %s to %s")
(riece-format-identity (riece-make-identity
user riece-server-name))
(riece-format-identity (riece-make-identity
(let ((buffer (riece-channel-buffer channel-identity)))
(riece-insert-change
buffer
- (format "Topic by %s: %s\n"
+ (format (riece-mcat "Topic by %s: %s\n")
(riece-format-identity user-identity t)
topic))
(riece-insert-change
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "Topic on %s by %s: %s"
+ (format (riece-mcat "Topic on %s by %s: %s")
(riece-format-identity channel-identity t)
(riece-format-identity user-identity t)
topic))
(buffer (riece-channel-buffer channel-identity)))
(riece-insert-change
buffer
- (format "Mode by %s: %s\n"
+ (format (riece-mcat "Mode by %s: %s\n")
(riece-format-identity user-identity t)
string))
(riece-insert-change
riece-dialogue-buffer)
(concat
(riece-concat-server-name
- (format "Mode on %s by %s: %s"
+ (format (riece-mcat "Mode on %s by %s: %s")
(riece-format-identity channel-identity t)
(riece-format-identity user-identity t)
string))