From owner-ports-jp@jp.freebsd.org  Fri Sep 10 21:29:13 1999
Received: (from daemon@localhost)
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) id VAA34985;
	Fri, 10 Sep 1999 21:29:13 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from diana.infonets.hiroshima-u.ac.jp (diana.infonets.hiroshima-u.ac.jp [133.41.33.53])
	by castle.jp.freebsd.org (8.9.3+3.2W/8.7.3) with ESMTP id VAA34980
	for <ports-jp@jp.freebsd.org>; Fri, 10 Sep 1999 21:29:12 +0900 (JST)
	(envelope-from taoka@infonets.hiroshima-u.ac.jp)
Received: from peg.infonets.hiroshima-u.ac.jp (peg.infonets.hiroshima-u.ac.jp [133.41.33.64])
	by diana.infonets.hiroshima-u.ac.jp (8.9.3/3.7W) with ESMTP id VAA22592
	for <ports-jp@jp.freebsd.org>; Fri, 10 Sep 1999 21:29:13 +0900 (JST)
Received: from localhost (localhost [127.0.0.1]) by peg.infonets.hiroshima-u.ac.jp (8.9.3/3.6W) with ESMTP
	id VAA66161 for <ports-jp@jp.freebsd.org>; Fri, 10 Sep 1999 21:29:12 +0900 (JST)
To: ports-jp@jp.freebsd.org
From: TAOKA Satoshi <taoka@infonets.hiroshima-u.ac.jp>
In-Reply-To: <19990910185117N.shige@sitc.toshiba.co.jp>
References: <19990910131554G.shige@sitc.toshiba.co.jp>
	<19990910082607.2779.sada@rr.iij4u.or.jp>
	<19990910185117N.shige@sitc.toshiba.co.jp>
X-Mailer: Mew version 1.94 on XEmacs 21.1 (Big Bend)
X-Prom-Mew: Prom-Mew 1.93.4 (procmail reader for Mew)
X-URL: http://www.infonets.hiroshima-u.ac.jp/~taoka/
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Message-Id: <19990910212912U.taoka@infonets.hiroshima-u.ac.jp>
Date: Fri, 10 Sep 1999 21:29:12 +0900
X-Dispatcher: imput version 990905(IM130)
Lines: 130
Reply-To: ports-jp@jp.freebsd.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+990727
X-Sequence: ports-jp 7529
Subject: [ports-jp 7529] Re: xemacs-21.x elisp ports
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org
X-Originator: taoka@infonets.hiroshima-u.ac.jp



> $BN;2r$G$9!#(B
> $B0l6K=8Cf$G$d$kJ}$,8zN($,$h$$$G$9$+$i$M!#(B:)

$B$9$_$^$;$s$,!"8f4j$$$7$^$9!#$G!"$H$j$"$($:!";d$,8+$D$1$?IT6q9g$G$9!#(B
-emacs$B$N#2$D$N%Q%C%A$O!"%[%o%$%H%9%Z!<%9$,JQ$J$N$+!"8+$?L\$O$&$^$/9T$-$=(B
$B$&$G$9$,!"(Bpatch$B$,Ev$?$j$^$;$s!#$G!":n$jD>$7$^$7$?!#(B

semi$B4XO"$G$9$,!"FC$KJQ99$7$J$/$F$b(Bxemacs-mule$B$G;H$($?$h$&$G$9!#(Brmail$B!J!)!K(B
$B$G%a!<%k$r=P$9$N$K%5%V%8%'%/%H$,%(%s%3!<%I$5$l$^$7$?!#(B

wl$B$O$&$^$/$&$4$-$-$^$;$s!#(Bim$B!J"+;H$($k!)!K$N>l9g$N@_Dj$,$^$:$$$N$+$J!)(B
$B!V(B3$B7oL#FI!W$^$G$O=P$k$s$G$9$,!"%[%k%@!<$G%9%Z!<%9$r2!$9$H%(%i!<$K$J$j$^(B
$B$7$?!#(B


Index: wanderlust-xemacs-mule/Makefile
===================================================================
RCS file: /home/ncvs/ports/mail/wanderlust-xemacs-mule/Makefile,v
retrieving revision 1.3
diff -u -r1.3 Makefile
--- Makefile	1999/09/10 01:44:28	1.3
+++ Makefile	1999/09/10 12:27:23
@@ -14,7 +14,7 @@
 EMACS_PORT=		xemacs-mule
 EMACS_VER=		21.1.6
 MULE_VER=		21.1.6
-EMACS_LIBDIR=		lib/xemacs-21.1.6
+EMACS_LIBDIR=		lib/xemacs
 EMACS_VER_LIBDIR=	lib/xemacs-21.1.6
 
 HAVE_COMMON_PORT=	yes
Index: wanderlust-emacs/patches/patch-ac
===================================================================
RCS file: /home/ncvs/ports/mail/wanderlust-emacs/patches/patch-ac,v
retrieving revision 1.1
diff -u -r1.1 patch-ac
--- patch-ac	1999/09/09 20:23:52	1.1
+++ patch-ac	1999/09/10 12:27:23
@@ -1,30 +1,30 @@
---- elmo/elmo-imap4.el.orig    Mon Jun 28 17:14:44 1999
-+++ elmo/elmo-imap4.el Fri Jul  2 08:07:54 1999
+--- elmo/elmo-imap4.el.orig	Mon Jun 28 17:14:44 1999
++++ elmo/elmo-imap4.el	Fri Sep 10 21:08:55 1999
 @@ -469,7 +469,7 @@
-          (buffer  (nth 0 connection))
-          (process (nth 1 connection))
-          (cwf     (nth 2 connection))
--         response ret-val beg end)
-+         response ret-val end)
+ 	   (buffer  (nth 0 connection))
+ 	   (process (nth 1 connection))
+ 	   (cwf     (nth 2 connection))
+-	   response ret-val beg end)
++	   response ret-val end)
        (and (not (null folder))
-          (if (not (string= cwf folder))
-              (if (null (setq response
+ 	   (if (not (string= cwf folder))
+ 	       (if (null (setq response 
 @@ -486,15 +486,15 @@
-                                               "search all"))
+ 						"search all"))
        (setq response (elmo-imap4-read-response buffer process))
-       (if (and response
--             (string-match "^\\* SEARCH" response))
-+             (string-match "\\* SEARCH" response))
-         (progn
--          (setq beg (match-end 0))
-+          (setq response (substring response (match-end 0)))
-           (if (string-match "\n" response)
-               (progn
-                 (setq end (match-end 0))
-                 (setq ret-val (read (concat "(" (substring
-                                                  response
--                                                 beg end) ")"))))
-+                                                 0 end) ")"))))
-             (error "SEARCH failed."))))
+       (if (and response 
+-	       (string-match "^\\* SEARCH" response))
++	       (string-match "\\* SEARCH" response))
+ 	  (progn
+-	    (setq beg (match-end 0))
++	    (setq response (substring response (match-end 0)))
+ 	    (if (string-match "\n" response)
+ 		(progn
+ 		  (setq end (match-end 0))
+ 		  (setq ret-val (read (concat "(" (substring 
+ 						   response 
+-						   beg end) ")"))))
++						   0 end) ")"))))
+ 	      (error "SEARCH failed."))))
        ret-val)))
-
+ 
Index: wanderlust-emacs/patches/patch-ad
===================================================================
RCS file: /home/ncvs/ports/mail/wanderlust-emacs/patches/patch-ad,v
retrieving revision 1.1
diff -u -r1.1 patch-ad
--- patch-ad	1999/09/09 20:23:52	1.1
+++ patch-ad	1999/09/10 12:27:23
@@ -1,18 +1,18 @@
---- elmo/elmo-pop3.el.orig     Mon Jun 28 17:14:48 1999
-+++ elmo/elmo-pop3.el  Fri Jul  2 08:16:16 1999
+--- elmo/elmo-pop3.el.orig	Mon Jun 28 17:14:48 1999
++++ elmo/elmo-pop3.el	Fri Sep 10 21:13:10 1999
 @@ -171,14 +171,7 @@
-
+ 
  (defun elmo-pop3-make-apop-digest (key pass)
    (require 'md5)
 -  (let* ((arr (md5-encode (concat key pass)))
--       (len (length arr))
--       (idx 0)
--       (digest "" ))
+-	 (len (length arr))
+-	 (idx 0)
+-	 (digest "" ))
 -    (while (< idx len)
 -      (setq digest (concat digest (format "%02x" (aref arr idx)))
--          idx (1+ idx)))
+-	    idx (1+ idx)))
 -    digest))
 +  (md5 (concat key pass)))
-
+ 
  (defun elmo-pop3-open-connection (server user port auth passphrase ssl)
    (let ((process nil)
