Add a patch to work mew-shimbun.el with Mew 2.x.

Update my mail address in pkg-descr.

Obtained from:	emacs-w3m CVS

3 files changed, 54 insertions, 1 deletions

diff --git a/www/emacs-w3m/Makefile b/www/emacs-w3m/Makefile
index d8ee160..a86d8ce 100644
--- a/www/emacs-w3m/Makefile
+++ b/www/emacs-w3m/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	emacs-w3m
 PORTVERSION=	1.3.3
+PORTREVISION=	1
 CATEGORIES=	www elisp
 MASTER_SITES=	http://emacs-w3m.namazu.org/
 PKGNAMESUFFIX=	-${EMACS_PORT_NAME}
diff --git a/www/emacs-w3m/files/patch-shimbun:mew-shimbun.el b/www/emacs-w3m/files/patch-shimbun:mew-shimbun.el
new file mode 100644
index 0000000..8a77cd4
--- /dev/null
+++ b/www/emacs-w3m/files/patch-shimbun:mew-shimbun.el
@@ -0,0 +1,52 @@
+===================================================================
+RCS file: /storage/cvsroot/emacs-w3m/shimbun/mew-shimbun.el,v
+retrieving revision 1.10.2.9
+retrieving revision 1.10.2.10
+diff -u -r1.10.2.9 -r1.10.2.10
+--- shimbun/mew-shimbun.el	2002/10/31 02:53:17	1.10.2.9
++++ shimbun/mew-shimbun.el	2002/11/04 11:23:54	1.10.2.10
+@@ -264,6 +264,12 @@
+ 		    (format mew-shimbun-lock-format2 group server get count sum))
+   (force-mode-line-update))
+ 
++(w3m-static-if (fboundp 'mew-summary-visit-folder)
++    (defalias 'mew-shimbun-visit-folder 'mew-summary-visit-folder)
++  (defun mew-shimbun-visit-folder (folder)
++    (mew-summary-ls
++     (mew-summary-switch-to-folder folder))))
++
+ ;;; Main:
+ ;;;###autoload
+ (defun mew-shimbun-goto-unseen-folder ()
+@@ -381,13 +387,13 @@
+ 	 (setq dir (mew-expand-folder fld))
+ 	 (unless (file-directory-p dir)
+ 	   (mew-make-directory dir))
+-	 (mew-summary-visit-folder fld)
++	 (mew-shimbun-visit-folder fld)
+ 	 (sit-for 0.5)
+ 	 (mew-rendezvous mew-summary-buffer-process)
+ 	 (mew-shimbun-retrieve)
+ 	 (unless (eq (get-buffer cfld) (current-buffer))
+ 	   (mew-kill-buffer (current-buffer)))))
+-     (mew-summary-visit-folder cfld)
++     (mew-shimbun-visit-folder cfld)
+      (message "Getting done"))))
+ 
+ (defun mew-shimbun-retrieve-article (mua server group range fld)
+@@ -633,13 +639,13 @@
+       (when (and (file-directory-p (mew-expand-folder fld))
+ 		 (file-exists-p (expand-file-name mew-shimbun-db-file
+ 						  (mew-expand-folder fld))))
+-	(mew-summary-visit-folder fld)
++	(mew-shimbun-visit-folder fld)
+ 	(sit-for 0.5)
+ 	(mew-rendezvous mew-summary-buffer-process)
+ 	(mew-shimbun-expire)
+ 	(unless (eq (get-buffer cfld) (current-buffer))
+ 	  (mew-kill-buffer (current-buffer)))))
+-    (mew-summary-visit-folder cfld)))
++    (mew-shimbun-visit-folder cfld)))
+ 
+ ;;;###autoload
+ (defun mew-shimbun-expire ()
diff --git a/www/emacs-w3m/pkg-descr b/www/emacs-w3m/pkg-descr
index 766df1e..092b868 100644
--- a/www/emacs-w3m/pkg-descr
+++ b/www/emacs-w3m/pkg-descr
@@ -2,4 +2,4 @@ Emacs-w3m is a simple interface program of w3m for Emacs.
 
 WWW: http://emacs-w3m.namazu.org/
 --
-MANTANI Nobutaka <nobutaka@nobutaka.com>
+MANTANI Nobutaka <nobutaka@FreeBSD.org>