Index: lang/elisp/twittering-mode/branches/gan2/twittering-mode.el
===================================================================
--- lang/elisp/twittering-mode/branches/gan2/twittering-mode.el (revision 30)
+++ lang/elisp/twittering-mode/branches/gan2/twittering-mode.el (revision 31)
@@ -235,6 +235,6 @@
       ;; (define-key km "j" 'next-line)
       ;; (define-key km "k" 'previous-line)
-      (define-key km "j" 'twittering-next-status)
-      (define-key km "k" 'twittering-previous-status)
+      (define-key km "j" 'twittering-goto-next-status)
+      (define-key km "k" 'twittering-goto-previous-status)
       (define-key km "l" 'forward-char)
       (define-key km "h" 'backward-char)
@@ -242,4 +242,6 @@
       (define-key km "^" 'beginning-of-line-text)
       (define-key km "$" 'end-of-line)
+      (define-key km "n" 'twittering-goto-next-status-of-user)
+      (define-key km "p" 'twittering-goto-previous-status-of-user)
       (define-key km [backspace] 'backward-char)
       (define-key km "G" 'end-of-buffer)
@@ -939,13 +941,13 @@
       (setq twittering-password (read-passwd "twittering-mode: "))))
 
-(defun twittering-next-status ()
+(defun twittering-goto-next-status ()
   "Go to next status."
   (interactive)
   (let ((pos))
-    (setq pos (twittering-next-username-face-pos (point)))
+    (setq pos (twittering-get-next-username-face-pos (point)))
     (when pos
       (goto-char pos))))
 
-(defun twittering-next-username-face-pos (pos)
+(defun twittering-get-next-username-face-pos (pos)
   (interactive)
   (let ((prop))
@@ -955,13 +957,13 @@
     pos))
 
-(defun twittering-previous-status ()
+(defun twittering-goto-previous-status ()
   "Go to previous status."
   (interactive)
   (let ((pos))
-    (setq pos (twittering-previous-username-face-pos (point)))
+    (setq pos (twittering-get-previous-username-face-pos (point)))
     (when pos
       (goto-char pos))))
 
-(defun twittering-previous-username-face-pos (pos)
+(defun twittering-get-previous-username-face-pos (pos)
   (interactive)
   (let ((prop))
@@ -971,4 +973,31 @@
     pos))
 
+(defun twittering-goto-next-status-of-user ()
+  "Go to next status of user."
+  (interactive)
+  (let ((user-name (twittering-get-username-at-pos (point)))
+        (pos (twittering-get-next-username-face-pos (point))))
+    (while (not (equal (twittering-get-username-at-pos pos) user-name))
+      (setq pos (twittering-get-next-username-face-pos pos)))
+    (goto-char pos)))
+
+(defun twittering-goto-previous-status-of-user ()
+  "Go to previous status of user."
+  (interactive)
+  (let ((user-name (twittering-get-username-at-pos (point)))
+        (pos (twittering-get-previous-username-face-pos (point))))
+    (while (not (equal (twittering-get-username-at-pos pos) user-name))
+      (setq pos (twittering-get-previous-username-face-pos pos)))
+    (goto-char pos)))
+
+(defun twittering-get-username-at-pos (pos)
+  (let ((start-pos pos)
+        (end-pos))
+    (while (eq (get-text-property start-pos 'face) twittering-username-face)
+      (setq start-pos (1- start-pos)))
+    (setq start-pos (1+ start-pos))
+    (setq end-pos (next-single-property-change pos 'face))
+    (buffer-substring start-pos end-pos)))
+
 (provide 'twittering-mode)
 ;;; twittering.el ends here
Index: lang/elisp/twittering-mode/branches/gan2/ChangeLog
===================================================================
--- lang/elisp/twittering-mode/branches/gan2/ChangeLog (revision 28)
+++ lang/elisp/twittering-mode/branches/gan2/ChangeLog (revision 31)
@@ -1,2 +1,14 @@
+2008-04-26  gan2  <gan2.ruby@gmail.com>
+
+	* twittering-mode.el: n, p でポイント上のユーザの次(前)の発言に移動する設定を追加
+	(twittering-goto-next-status): twittering-next-message の名前を変更
+	(twittering-get-next-username-face-pos): twittering-next-username-face-pos の名前を変更
+	(twittering-goto-previous-status): twittering-previous-message の名前を変更
+	(twittering-get-previous-username-face-pos): twittering-previous-username-face-pos の名前を変更
+	(twittering-goto-next-status-of-user): ポイント上のユーザの次の発言へ移動する関数を定義
+	(twittering-goto-previous-status-of-user): ポイント上のユーザの前の発言へ移動する関数を定義
+	(twittering-get-username-at-pos): ポイント上のユーザ名を返す関数を定義
+	(twittering-mode-map): n, p でポイント上のユーザの次(前)の発言に移動する設定を追加
+
 2008-04-25  gan2  <gan2.ruby@gmail.com>