From: ueno <ueno>
Date: Wed, 31 Aug 2005 03:09:33 +0000 (+0000)
Subject: * riece-unread.el (riece-unread-requires): Require 'riece-history.
X-Git-Tag: riece-2_0_1~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=718e429ad5ad576a0f26700e615c2f6990c49dae;p=elisp%2Friece.git

* riece-unread.el (riece-unread-requires): Require 'riece-history.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8b3766..9c32c3f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-08-31  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-unread.el (riece-unread-requires): Require 'riece-history.
+
 2005-08-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* Riece: Version 2.0.0 released.
diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index f0355a9..07b9105 100644
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -128,6 +128,9 @@
   (let (requires)
     (if (memq 'riece-highlight riece-addons)
 	(setq requires (cons 'riece-highlight requires)))
+    ;; To override riece-history's channel mark in the channel list buffer.
+    (if (memq 'riece-history riece-addons)
+	(setq requires (cons 'riece-history requires)))
 ;;;    (if (memq 'riece-guess riece-addons)
 ;;;	(setq requires (cons 'riece-guess requires)))
     requires))