From: bg66 <bg66>
Date: Wed, 30 Aug 2000 08:20:36 +0000 (+0000)
Subject: * etc/po/ja.po: Add new item.
X-Git-Tag: liece-1_4_4-1~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d723c9267a8a95bf4a38000eb0782b70f4e1f0e1;p=elisp%2Fliece.git

* etc/po/ja.po: Add new item.

* liece-commands.el (liece-command-unread-channel): New function.

* liece.el (liece-command-map): Bind "\C-u" to it.
(liece-channel-list-mode-map): Bind "u" to it.
---

diff --git a/etc/po/ja.po b/etc/po/ja.po
index 5599d75..8221832 100644
--- a/etc/po/ja.po
+++ b/etc/po/ja.po
@@ -413,3 +413,6 @@ msgstr "
 msgid "Really SEND from Yank Buffer?"
 msgstr "ËÜÅö¤Ë¥Ð¥Ã¥Õ¥¡¤ÎÆâÍƤòÁ÷¤ê¤Þ¤¹¤«¡©"
 
+msgid "No unread channel or chat partner."
+msgstr "̤ÆɤΥÁ¥ã¥ó¥Í¥ë¤Þ¤¿¤Ï¥Á¥ã¥Ã¥È¤ÎÁê¼ê¤Ï¤¢¤ê¤Þ¤»¤ó"
+
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d94ab17..e966457 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-08-30  Akira Ohashi  <bg66@luck.gr.jp>
+
+	* liece-commands.el (liece-command-unread-channel): New function.
+
+	* liece.el (liece-command-map): Bind "\C-u" to it.
+	(liece-channel-list-mode-map): Bind "u" to it.
+
 2000-08-29   Daiki Ueno  <ueno@unixuser.org>
 
 	* liece-channel.el (liece-channel-change): Run
diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 86ab774..dd90711 100644
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -1104,6 +1104,14 @@ Argument ARG is prefix argument of toggle status."
 	 (car (delq nil rest))
 	 chnl))))
       
+(defun liece-command-unread-channel ()
+  "Select unread channel or chat partner."
+  (interactive)
+  (let ((chnl (car liece-channel-unread-list)))
+    (if chnl
+	(liece-switch-to-channel chnl)
+      (liece-message (_ "No unread channel or chat partner.")))))
+
 (defun liece-command-push ()
   "Select next channel or chat partner, and rotate list."
   (interactive)
diff --git a/lisp/liece.el b/lisp/liece.el
index 349d839..59ba2d5 100644
--- a/lisp/liece.el
+++ b/lisp/liece.el
@@ -296,6 +296,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
     "\C-f" liece-command-freeze
     "\C-j" liece-command-next-channel
     "\C-n" liece-command-names
+    "\C-u" liece-command-unread-channel
     "l" liece-command-list
     "L" liece-command-load-vars
     "M" liece-command-own-freeze
@@ -329,6 +330,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
   (liece-define-keys liece-channel-list-mode-map
     ">" liece-command-next-channel
     "<" liece-command-previous-channel
+    "u" liece-command-unread-channel
     "o" other-window
     "c" liece-command-point-back-to-command-buffer)