fix various problems of this version.

4 files changed, 36 insertions, 0 deletions

diff --git a/japanese/navi2ch-emacs20/Makefile b/japanese/navi2ch-emacs20/Makefile
index e0768641bfe2..2a7615198f8f 100644
--- a/japanese/navi2ch-emacs20/Makefile
+++ b/japanese/navi2ch-emacs20/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	navi2ch
 PORTVERSION=	010728
+PORTREVISION=	1
 CATEGORIES=	japanese www elisp
 MASTER_SITES=	http://www.geocities.co.jp/SiliconValley-Oakland/7673/
 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..1dae43c769ea
--- /dev/null
+++ b/japanese/navi2ch-emacs20/files/patch-ac
@@ -0,0 +1,11 @@
+--- navi2ch-article.el.orig	Thu Jul 26 23:56:48 2001
++++ navi2ch-article.el	Mon Jul 30 03:33:57 2001
+@@ -1189,7 +1189,7 @@
+             nil
+           (navi2ch-article-save-number)
+           t)
+-        navi2ch-article-important-mode)
++        navi2ch-article-important-mode nil)
+   (force-mode-line-update)
+   (let ((buffer-read-only nil))
+     (save-excursion
diff --git a/japanese/navi2ch-emacs20/files/patch-ad b/japanese/navi2ch-emacs20/files/patch-ad
new file mode 100644
index 000000000000..8a47665b9b6e
--- /dev/null
+++ b/japanese/navi2ch-emacs20/files/patch-ad
@@ -0,0 +1,10 @@
+--- navi2ch-mona.el.orig	Sat Jul 28 13:10:40 2001
++++ navi2ch-mona.el	Mon Jul 30 03:37:44 2001
+@@ -96,6 +96,7 @@
+ ;; GNU emacs21 $B$G$OL@<(E*$K(B fontset $B$r:n$kI,MW$,$"$k(B
+ (if (and (boundp 'emacs-major-version)
+ 	 (>= emacs-major-version 21)
++	 (null (featurep 'xemacs))
+ 	 window-system)
+     (progn
+       ;; roman - normalface (16pt)
diff --git a/japanese/navi2ch-emacs20/files/patch-ae b/japanese/navi2ch-emacs20/files/patch-ae
new file mode 100644
index 000000000000..bfa3b7a4e969
--- /dev/null
+++ b/japanese/navi2ch-emacs20/files/patch-ae
@@ -0,0 +1,14 @@
+--- navi2ch-util.el.orig	Thu Jul 26 23:56:48 2001
++++ navi2ch-util.el	Mon Jul 30 03:41:39 2001
+@@ -256,7 +256,10 @@
+                       
+   
+ (defun navi2ch-browse-url (url)
+-  (browse-url url browse-url-new-window-p))
++  (browse-url
++   url
++   (cond ((get 'browse-url-new-window-p 'custom-type) browse-url-new-window-p)
++	 ((get 'browse-url-new-window-flag 'custom-type) browse-url-new-window-flag))))
+ 
+ ;; from apel
+ (defun navi2ch-put-alist (item value alist)