patch-ac: fix navi2ch-article-add-global-bookmark.

patch-ae: fix navi2ch-article-through-previous/next for xemacs.

Obtained from:	(not 1) the author.

3 files changed, 28 insertions, 0 deletions

diff --git a/japanese/navi2ch-emacs20/Makefile b/japanese/navi2ch-emacs20/Makefile
index aa72bdb181de..2a62923d7d40 100644
--- a/japanese/navi2ch-emacs20/Makefile
+++ b/japanese/navi2ch-emacs20/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	navi2ch
 PORTVERSION=	011127
+PORTREVISION=	1
 CATEGORIES=	japanese www elisp
 MASTER_SITES=	http://www.geocities.co.jp/SiliconValley-Oakland/7673/lisp/
 PKGNAMESUFFIX=	-${EMACS_PORT_NAME}
diff --git a/japanese/navi2ch-emacs20/files/patch-ac b/japanese/navi2ch-emacs20/files/patch-ac
new file mode 100644
index 000000000000..a1a7be636455
--- /dev/null
+++ b/japanese/navi2ch-emacs20/files/patch-ac
@@ -0,0 +1,15 @@
+--- navi2ch-article.el.orig	Tue Nov 27 00:35:58 2001
++++ navi2ch-article.el	Tue Nov 27 13:15:37 2001
+@@ -1176,9 +1176,10 @@
+ 	  (setq navi2ch-board-current-board board)
+ 	(navi2ch-board-save-info board)))))
+ 
+-(defun navi2ch-article-add-global-bookmark ()
+-  (interactive)
++(defun navi2ch-article-add-global-bookmark (bookmark-id)
++  (interactive (list (navi2ch-bookmark-read-id "bookmark id: ")))
+   (navi2ch-bookmark-add
++   bookmark-id
+    navi2ch-article-current-board
+    navi2ch-article-current-article))
+ 
diff --git a/japanese/navi2ch-emacs20/files/patch-ae b/japanese/navi2ch-emacs20/files/patch-ae
new file mode 100644
index 000000000000..9025207656e4
--- /dev/null
+++ b/japanese/navi2ch-emacs20/files/patch-ae
@@ -0,0 +1,12 @@
+--- navi2ch-util.el.orig	Wed Nov 21 23:47:00 2001
++++ navi2ch-util.el	Tue Nov 27 11:19:39 2001
+@@ -303,7 +303,8 @@
+ 	(again nil))
+     (catch 'exit
+       (while t
+-	(let ((c (read-event prompt)))
++	(message prompt)
++	(let ((c (read-char)))
+ 	  (cond ((memq c '(?q ?Q))
+ 		 (message (concat prompt "q"))
+ 		 (throw 'exit (or quit-symbol nil)))