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

[elisp/liece.git] / lisp / liece-commands.el

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 86ab774..dd90711 100644 (file)
--- 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)