[SCM] emacs-jabber branch, master, updated. b0416214a3447be6efa8dc0bbc1777b7696f2274

[Evgenii T. <evg...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "emacs-jabber".

The branch, master has been updated
       via  b0416214a3447be6efa8dc0bbc1777b7696f2274 (commit)
      from  6afec470758428f1f3f430f286cd3a1a39f982e7 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b0416214a3447be6efa8dc0bbc1777b7696f2274
Author: Evgenii Terechkov <ev...@al...>
Date:   Fri Jun 15 01:15:38 2012 +0800

    Make nick coloring work in Emacs24

diff --git a/jabber-muc-nick-coloring.el b/jabber-muc-nick-coloring.el
index b5781fc..ec4d885 100644
--- a/jabber-muc-nick-coloring.el
+++ b/jabber-muc-nick-coloring.el
@@ -1,6 +1,6 @@
 ;;; jabber-muc-nick-coloring.el --- Add nick coloring abilyty to emacs-jabber
 
-;; Copyright 2009, 2010 Terechkov Evgenii - ev...@al...
+;; Copyright 2009, 2010, 2012 Terechkov Evgenii - ev...@al...
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -56,7 +56,7 @@
 
 (defun jabber-muc-nick-gen-color (nick)
   "Return good enough color from available pool"
-  (let ((hue (/ (mod (string-to-number (md5 nick) 16) 360) 360.0)))
+  (let ((hue (/ (mod (string-to-number (substring (md5 nick) 0 6) 16) 360) 360.0)))
     (hexrgb-hsv-to-hex hue jabber-muc-nick-saturation jabber-muc-nick-value)))
 
 (defun jabber-muc-nick-get-color (nick)

-----------------------------------------------------------------------

Summary of changes:
 jabber-muc-nick-coloring.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
emacs-jabber