From: teranisi <teranisi>
Date: Mon, 3 Apr 2000 06:59:08 +0000 (+0000)
Subject: Import 1.x.
X-Git-Tag: start
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1e366a559be4aec4ad4d3cf3e954b8e62a20d2f3;p=elisp%2Fwanderlust.git

Import 1.x.
---

1e366a559be4aec4ad4d3cf3e954b8e62a20d2f3
diff --git a/BUGS b/BUGS
new file mode 100644
index 0000000..5495f34
--- /dev/null
+++ b/BUGS
@@ -0,0 +1 @@
+Cannot communicate with UW imapd with qmail patch.
diff --git a/BUGS.ja b/BUGS.ja
new file mode 100644
index 0000000..92aadd5
--- /dev/null
+++ b/BUGS.ja
@@ -0,0 +1 @@
+qmail $BBP1~$N(B UW imapd $B$N%a%C%;!<%8$r07$($J$$!#(B
diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..0744792
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,16 @@
+Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2, or (at your option)
+   any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GNU Emacs; see the file COPYING.  If not, write to the
+   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.
diff --git a/ChangeLog b/ChangeLog
new file mode 100644
index 0000000..e4cc6a4
--- /dev/null
+++ b/ChangeLog
@@ -0,0 +1,21 @@
+2000-03-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl/ChangeLog: New file.
+	* elmo/ChangeLog: New file.
+	* etc/ChangeLog.1.ja: Renamed from etc/ChangeLog.alpha.ja.
+	* etc/ChangeLog.2: Renamed from etc/ChangeLog.beta.
+	* etc/ChangeLog.2.ja: Renamed from etc/ChangeLog.beta.ja.
+	* etc/ChangeLog.3: Renamed from ChangeLog.
+	* etc/ChangeLog.3.ja: Renamed from ChangeLog.ja.
+
+	* WL-MK (WLDIR): Changed to "./wl".
+	(ICONDIR): New variable.
+	(config-wl-package-subr): set wl-icon-dir as ICONDIR.
+	(compile-wl-package-xmas): refer WLDIR.
+
+	* README.ja: Renamed from 00README.ja.
+	* README: Renamed from 00README.
+
+	* wl: New directory.
+	All wl-related files are moved to this directory.
+
diff --git a/INSTALL b/INSTALL
new file mode 100644
index 0000000..bce4642
--- /dev/null
+++ b/INSTALL
@@ -0,0 +1,180 @@
+
+	How to install Wanderlust
+
+		                       Time-stamp: <00/03/14 20:05:52 teranisi>
+				       Kaoru Takahashi,
+				       Yuuichi Teranishi,
+				       Tsunehiko Baba
+
+Required environment
+====================
+
+  Before installing Wanderlust, please install either of the following
+  MIME modules. SEMI is recommended because it's more functional.
+
+	SEMI    (1.13.4 or later)
+	tm      (8.7 or later)
+
+  If you use Mule based on Emacs 19.28 or earlier, please install tm.
+  SEMI does not support Emacs 19.28 or earlier.
+
+  SEMI only supports relatively new Emacsen like Emacs 20.xx, XEmacs, etc.
+  But Mule based on Emacs 19.34 can also run SEMI.
+  See the following web page to get more information (written by Japanese).
+
+	http://www.jpl.org/elips/INSTALL-SEMI-ja.html
+
+
+(a) SEMI
+
+  SEMI requires APEL and FLIM packages.
+  Recommended combination of APEL, FLIM and SEMI are:
+
+	APEL 10.2, FLIM 1.12.7 and SEMI 1.13.4
+         or
+	APEL 10.2, FLIM 1.13.2 and SEMI 1.13.7
+
+  Combination of APEL 10.2 and FLIM 1.12.7 makes following error
+  while compiling FLIM 1.12.7.
+
+  'Please install latest APEL 7.3 or later.'
+
+  In this case, please comment out following lines in FLIM-CFG.
+
+  (or (fboundp 'write-region-as-binary)
+      (error "Please install latest APEL 7.3 or later."))
+  (or (fboundp 'insert-file-contents-as-binary)
+     (error "Please install latest APEL 7.3 or later."))
+
+  You can download these packages from following URLs.
+
+	APEL:     ftp://ftp.m17n.org/mule/apel/
+	FLIM:     ftp://ftp.m17n.org/mule/flim/
+	SEMI:     ftp://ftp.m17n.org/mule/semi/
+
+  Please install APEL, FLIM, SEMI in order.
+  Generally  'make install' will do the job.
+  To get full information, please refer README.en within each package.
+
+  You can also use many other FLIM/SEMI variants.
+  Combination of the latest versions should work.
+  For example, following combination is confirmed to work.
+
+	APEL 10.2, Chao 1.14.1 and REMI 1.14.1
+
+(b) tm
+
+  The tm, whose version is 8.7 or later, is recommended.  Please
+  obtain from the following web site.
+
+	http://cvs.m17n.org/tomo/comp/emacsen/tm/tm-8/
+
+  To get full information, please refer README.en within package.
+
+
+Installation
+============
+
+(a) Edit Makefile
+
+  Edit EMACS, LISPDIR, and so on in Makefile.
+
+	EMACS      Emacs command name.
+	LISPDIR    site-lisp directory.
+
+  If LISPDIR is not specified (or NONE by default), it is automatically
+  detected.
+
+(b) Bytecompile and Install
+
+  Please do following.
+
+	% make
+	% make install
+
+  If you use Emacs without subdirs.el (e.g. Mule 2.3 based on Emacs
+  19.28), the following error message ocasinally appears.
+
+	Cannot open load file: mime-setup
+
+  In this case, add directories of custom, APEL, FLIM, SEMI to
+  EMACSLOADPATH (environment variable), or add those directories to
+  load-path in WL-CFG.
+
+
+Install as a XEmacs package
+===========================
+
+  Wanderlust is able to be installed as one of XEmacs (21.0 or later)
+  packages.  After installation as a XEmacs package, you do not need
+  configurations of autoload, icon path in your own .emacs file.
+
+(a) Edit Makefile
+
+  Edit XEMACS, PACKAGEDIR, and so on in Makefile.
+
+	XEMACS      XEmacs command name.
+	PACKAGEDIR  package directory.
+
+  If PACKAGEDIR is not specified (NONE by default) and the SEMI
+  modules have been installed, it is automatically detected.
+
+(b) Bytecompile and Install
+
+  Please do following.
+
+	% make package
+	% make install-package
+
+  Install with Info file.
+
+
+load-path
+=========
+
+  If you are using Emacs 20.3 or later, or XEmacs, there are no need
+  of setting about load-path.
+
+  If you are using Emacs 20.2 or earlier, please add directory of
+  Wanderlust to load-path.
+
+  If you install by default setting, with Emacs 19.29 or later, Emacs
+  20.1, or Emacs 20.2, you can write subdirs.el for example:
+
+  --------------------------------------------------------------------
+    (normal-top-level-add-to-load-path
+     '("apel" "flim" "semi" "wl"))
+  --------------------------------------------------------------------
+
+  If you are using Emacs 19.28 or earlier, you can't use subdirs.el.
+  Please you write setting about load-path in site configuration file.
+
+
+Manual
+======
+
+  Manual is described in Info format. Please do following.
+
+	% make info
+	% make install-info
+
+  If you install Wanderlust as a XEmacs package, Info file is already
+  installed too, so there are no need of these commands.
+
+  Manual directory is automatically detected. Of course, it can be
+  configured by INFODIR in Makefile.
+
+
+Sample configuration file
+=========================
+
+  Wanderlust requires following three configuration files.
+
+	~/.addresses    Address Book
+	~/.folders      Folder Book
+	~/.wl           Wanderlust Configuration (loaded at startup)
+
+  Each sample file (dot.addresses, dot.folders, dot.wl) exists on
+  samples/en/ directory. Please refer them.
+
+  To get full information, please read Info file.
diff --git a/INSTALL.ja b/INSTALL.ja
new file mode 100644
index 0000000..a238f52
--- /dev/null
+++ b/INSTALL.ja
@@ -0,0 +1,190 @@
+
+	Wanderlust $B$N%$%s%9%H!<%kJ}K!(B
+
+		                       Time-stamp: <00/03/14 20:06:38 teranisi>
+				       Kaoru Takahashi   $B9b660j(B,
+				       Yuuichi Teranishi $B;{@>M50l(B
+
+MIME$BMQ%b%8%e!<%k$N%$%s%9%H!<%k(B
+==============================
+
+  Wanderlust $B$r;H$&$?$a$K$O!"0J2<$N$I$A$i$+$N(B MIME $BMQ%b%8%e!<%k$r%$%s(B
+  $B%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#5!G=$,=<<B$7$F$$$k(B SEMI $B$N;HMQ$r$*4+(B
+  $B$a$7$^$9!#(B
+
+	SEMI    (1.13.4 $B0J>e(B)
+	tm      (8.7 $B0J>e(B)
+
+  Emacs 19.28 $B0JA0$r%Y!<%9$H$7$?(B Mule $B$r$*;H$$$N>l9g$O(B tm $B$r%$%s%9%H!<(B
+  $B%k$7$F$/$@$5$$!#(BSEMI $B$OF0$-$^$;$s!#(B
+
+  Emacs 19.34 $B%Y!<%9$N(B Mule $B$G$O(B SEMI $B$rF0:n$5$;$k$3$H$b2DG=$G$9!#(B
+  $B2<5-$N%Z!<%8$,;29M$K$J$j$^$9!#(B
+
+	http://www.jpl.org/elips/INSTALL-SEMI-ja.html
+
+
+(a) SEMI $B$N%$%s%9%H!<%k(B
+
+  SEMI $B$K$O(B APEL, FLIM $B$H8F$P$l$k%Q%C%1!<%8$bI,MW$G$9!#(B
+  $B?d>)$5$l$k(B APEL, FLIM, SEMI $B$NAH9g$;$O0J2<$NDL$j$G$9!#(B
+
+	APEL 10.2, FLIM 1.12.7, SEMI 1.13.4
+         $B$^$?$O!"(B
+	APEL 10.2, FLIM 1.13.2, SEMI 1.13.7
+
+   APEL 10.2 $B$H(B FLIM 1.12.7 $B$NAH9g$;$G$O!"(BFLIM 1.12.7 $B$N%3%s%Q%$%k;~$K(B
+
+   'Please install latest APEL 7.3 or later.'
+   
+  $B$H$$$&%(%i!<$,H/@8$9$k>l9g$,$"$j$^$9!#$3$N>l9g!"(BFLIM-CFG $B$N0J2<$N9T$r(B
+  $B%3%a%s%H%"%&%H$7$F2<$5$$!#(B
+
+  (or (fboundp 'write-region-as-binary)
+      (error "Please install latest APEL 7.3 or later."))
+  (or (fboundp 'insert-file-contents-as-binary)
+      (error "Please install latest APEL 7.3 or later."))
+
+  APEL, FLIM, SEMI, $B%Q%C%1!<%8$O$=$l$>$l0J2<$N(B URL $B$GF~<j2DG=$G$9!#(B
+
+	APEL:     ftp://ftp.m17n.org/mule/apel/
+	FLIM:     ftp://ftp.m17n.org/mule/flim/
+	SEMI:     ftp://ftp.m17n.org/mule/semi/
+
+  APEL, FLIM, SEMI $B$N=g$K%$%s%9%H!<%k$7$F$/$@$5$$!#4pK\E*$K$9$Y$F(B
+  make install $B$N<B9T$G:Q$`$O$:$G$9!#(B
+
+  $B>\$7$$%$%s%9%H!<%k$NJ}K!$O3F%Q%C%1!<%8$KE:IU$5$l$F$$$k%I%-%e%a%s%H(B 
+  (README.ja, README.en) $B$r;2>H$7$F$/$@$5$$!#(B
+
+  $B$=$NB>!"(BFLIM, SEMI $B$K$O$$$m$$$m$JJQ7A%P!<%8%g%s$,B8:_$7$^$9$,!"(B
+  $B$=$l$i$N$$$:$l$bMxMQ$9$k$3$H$,2DG=$G$9!#(B
+  $B4pK\E*$K:G?7HG$NAH9g$;$J$iF0:n$9$k$O$:$G$9!#(B
+  $BNc$($P!"0J2<$NAH9g$;$NF0:n$,3NG'$5$l$F$$$^$9!#(B
+
+	APEL 10.2, Chao 1.14.1, REMI 1.14.1
+
+(b) tm $B$N%$%s%9%H!<%k(B
+
+  tm 8.7 $B0J9_$N%P!<%8%g%s$,I,MW$G$9!#F~<j@h$r0J2<$K<($7$^$9!#(B
+
+	http://cvs.m17n.org/tomo/comp/emacsen/tm/tm-8/
+
+  $B>\$7$$%$%s%9%H!<%k$NJ}K!$O%Q%C%1!<%8$KE:IU$5$l$F$$$k%I%-%e%a%s%H(B
+  (README.en) $B$r;2>H$7$F$/$@$5$$!#(B
+
+
+$BDL>o$N%$%s%9%H!<%k(B
+==================
+
+(a)Makefile $B$NJT=8(B
+
+  Makefile $B$O!"(BEMACS, LISPDIR $B$NItJ,$rJT=8$7$F$/$@$5$$!#(B
+
+	EMACS       $B;HMQ$7$F$$$k(B Emacs $B$N%3%^%s%IL>$r;XDj(B
+	LISPDIR    $B%$%s%9%H!<%k@h$r;XDj(B
+
+  LISPDIR $B$OFC$K;XDj$7$J$/$F$b(B (NONE $B$N$^$^$G$b(B) $B<+F0E*$K%$%s%9%H!<%k(B
+  $B@h$r8!=P$7$^$9!#(B
+
+(b)$B%P%$%H%3%s%Q%$%k!&%$%s%9%H!<%k(B
+
+  $B0J2<$r<B9T$7$F$/$@$5$$!#(B
+
+	% make
+	% make install
+
+  $B$3$N$H$-!"(BEmacs 19.28 $B%Y!<%9$N(B Mule 2.3 $B$J$I(B subdirs.el $B$N$J$$(B Emacs 
+  $B$G$O!"(B
+
+	Cannot open load file: mime-setup
+
+  $B$H$$$&%(%i!<$,=P$k$3$H$,$"$j$^$9!#(B
+
+  $B$3$N>l9g$O!"(Bcustom, APEL, FLIM, SEMI $B$N%$%s%9%H!<%k@h$r4D6-JQ?t(B
+  EMACSLOADPATH $B$K2C$($k$+!"E83+%G%#%l%/%H%j$N(B WL-CFG $B$H$$$&%U%!%$%kCf(B
+  $B$G(B load-path $B$rDL$7$F$*$/$H$h$$$G$7$g$&!#(B
+
+
+XEmacs $B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k(B
+=====================================
+
+  Wanderlust $B$O(B XEmacs (21.0 $B0J9_(B) $B$N%Q%C%1!<%8$N$R$H$D$H$7$F%$%s%9%H!<(B
+  $B%k$9$k$3$H$b2DG=$G$9!#%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9$k$H!"(Bautoload 
+  $B$N@_Dj!"%"%$%3%s$N%Q%9@_Dj$r8D?M$N(B .emacs $B$K5-=R$7$J$/$F$b(B 
+  Wanderlust $B$r@5>o$K5/F0$G$-$k$h$&$K$J$j$^$9!#(B
+
+(a)Makefile $B$NJT=8(B
+
+  Makefile $B$O!"(BXEMACS, PACKAGEDIR $B$NItJ,$rJT=8$7$F$/$@$5$$!#(B
+
+	XEMACS      $B;HMQ$7$F$$$k(B XEmacs $B$N%3%^%s%IL>$r;XDj(B
+	PACKAGEDIR  package $B$N%G%#%l%/%H%j$r;XDj(B
+
+  PACKAGEDIR $B$OFC$K;XDj$7$J$/$F$b(B (NONE $B$N$^$^$G$b(B)$B!"(BSEMI $B$,%$%s%9%H!<(B
+  $B%k$5$l$F$$$l$P<+F0E*$K8!=P$5$l$^$9!#(B
+
+
+(b)$B%P%$%H%3%s%Q%$%k!&%$%s%9%H!<%k(B
+
+  $B0J2<$r<B9T$7$F$/$@$5$$!#(B
+
+	% make package
+	% make install-package
+
+  Info $B%U%!%$%k$bF1;~$K%$%s%9%H!<%k$5$l$^$9!#(B
+
+
+load-path $B$N@_Dj(B
+================
+
+  Emacs 20.3 $B0J9_$b$7$/$O(B XEmacs $B;H$C$FIaDL$K%$%s%9%H!<%k$7$?>l9g$O!"(B
+  load-path $B$r@_Dj$9$kI,MW$O$"$j$^$;$s!#(B
+
+  Emacs 20.2 $B0JA0$r$*;H$$$J$i!"(BWanderlust $B$r(B install $B$7$?>l=j$r(B
+  load-path $B$K@_Dj$7$F$/$@$5$$!#(B
+
+  $B$b$7(B Emacs 19.29 $B0J9_$^$?$O(B Emacs 20.1, Emacs 20.2 $B$r;H$C$F=i4|@_Dj(B
+  $B$G%$%s%9%H!<%k$7$?$N$J$i!"<!$N$h$&$K(B subdirs.el $B$r=q$/$3$H$,$G$-$^$9!#(B
+
+  --------------------------------------------------------------------
+    (normal-top-level-add-to-load-path
+     '("apel" "flim" "semi" "wl"))
+  --------------------------------------------------------------------
+
+  Emacs 19.28 $B0JA0$G$O(B subdirs.el $B$r;H$&$3$H$,$G$-$^$;$s$N$G!"%5%$%H$N(B
+  $B=i4|@_Dj%U%!%$%k$J$I$G(B load-path $B$r@_Dj$7$F$/$@$5$$!#(B
+
+
+$B%^%K%e%"%k$N%$%s%9%H!<%k(B
+========================
+
+  $B%^%K%e%"%k$O(B Info $B7A<0$G$9!#%$%s%9%H!<%k$9$k$K$O0J2<$N$3$H$r<B9T$7$F(B
+  $B$/$@$5$$!#(B
+
+	% make info
+	% make install-info
+
+  XEmacs $B$N(B package $B$H$7$F%$%s%9%H!<%k$7$?>l9g$O<+F0E*$K(B Info $B%U%!%$%k(B
+  $B$b%$%s%9%H!<%k$5$l$k$N$G$3$l$i$NA`:n$OI,MW$"$j$^$;$s!#(B
+
+  $B%^%K%e%"%k$N%$%s%9%H!<%k@h$O<+F08!=P$5$l$^$9!#(B(Makefile $BCf$N(B INFODIR 
+  $B$G$b@_Dj2DG=$G$9(B)
+
+
+$B%5%s%W%k@_Dj(B
+============
+
+  Wanderlust $B$N@_Dj%U%!%$%k$K$O!"(B
+
+    ~/.addresses  $B%"%I%l%9D"(B
+    ~/.folders    $B%U%)%k%@@_Dj(B
+    ~/.wl         Wanderlust $B$N@_Dj(B ($B5/F0;~$KFI$_9~$^$l$k(B)
+
+  $B$N;0$D$,$"$j$^$9!#(B
+
+  $B$=$l$>$l!"(Bsamples/ja/ $B%G%#%l%/%H%j$N2<$K%5%s%W%k@_Dj(B
+  (dot.addresses, dot.folders, dot.wl) $B$,$"$j$^$9$N$G!"(B
+  $B3F<+$G%[!<%`%G%#%l%/%H%j$K%3%T!<$7$FJT=8$9$k$J$I$7$F$/$@$5$$!#(B
+
+  $B>\$7$$@_Dj$O(B Info $B$r8fMw$/$@$5$$!#(B
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..55874cd
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,56 @@
+#
+# Please specify your Emacs here.
+#
+EMACS	= emacs
+# To install Wanderlust for XEmacs 21 or later,
+# running 'make install-package' is recommended.
+# 'make install-package' refers $XEMACS instead of $EMACS.
+XEMACS  = xemacs
+#
+# Target directory to install the Wanderlust package.
+# (Automatically detected if this line is unchanged.)
+#
+LISPDIR = NONE
+#LISPDIR = /usr/local/lib/mule/site-lisp
+
+INFODIR = NONE
+#INFODIR = /usr/local/share/info
+
+# For XEmacs package.
+PACKAGEDIR = NONE
+
+
+################# No need to modify following lines ####################
+FLAGS   = -batch -q -no-site-file
+
+elc:
+	$(EMACS) $(FLAGS) -l WL-MK -f compile-wl-package $(LISPDIR)
+
+install-elc:
+	$(EMACS) $(FLAGS) -l WL-MK -f install-wl-package $(LISPDIR)
+
+uninstall-elc:
+	$(EMACS) $(FLAGS) -l WL-MK -f uninstall-wl-package $(LISPDIR)
+
+clean-elc:
+	rm -f wl/*.elc wl/auto-autoloads.el wl/custom-load.el elmo/*.elc utils/*.elc utils/hmac/lisp/*.elc
+
+package:
+	$(XEMACS) $(FLAGS) -l WL-MK -f compile-wl-package-xmas $(PACKAGEDIR)
+
+install-package:
+	$(XEMACS) $(FLAGS) -l WL-MK -f install-wl-package-xmas $(PACKAGEDIR)
+
+info:
+	$(EMACS) $(FLAGS) -l WL-MK -f wl-texinfo-format $(INFODIR)
+
+install-info:
+	$(EMACS) $(FLAGS) -l WL-MK -f install-wl-info $(INFODIR)
+
+all: elc
+
+install: install-elc
+
+uninstall: uninstall-elc
+
+clean: clean-elc
diff --git a/NEWS b/NEWS
new file mode 100644
index 0000000..9846dd2
--- /dev/null
+++ b/NEWS
@@ -0,0 +1,133 @@
+Wanderlust NEWS -- User-visible changes in Wanderlust. 21 Mar 2000
+
+* Changes in version 1.1.1.
+
+** Directory structure is changed.
+
+*** 00README, 00README.ja is renamed to README, README.ja.
+
+*** All wl-* files are moved to the directory 'wl'.
+
+* Changes in version 1.1.0 from 1.0.3.
+
+** Install
+
+*** tm7 is not supported anymore.
+see the file INSTALL for details.
+
+*** WL_PREFIX and ELMO_PREFIX default as "wl"
+(defvar WL_PREFIX "wl")
+(defvar ELMO_PREFIX "wl")
+
+e.g. install directory is
+  1.0.3  /usr/local/share/emacs/site-lisp/
+  1.1.0  /usr/local/share/emacs/site-lisp/wl/
+
+*** Change default macro in Makefile.
+EMACS   = emacs
+XEMACS  = xemacs
+use $(XEMACS), `package' and `install-package' target.
+
+*** Install not only *.elc, but also *.el.
+
+*** English document (wl.texi).
+
+** New feature
+
+*** Modified UTF7 support.
+Now international mailbox name can be used in IMAP4 in the Emacsen
+with unicode feature.
+
+*** Scoring support.
+
+*** New plugged system.
+
+*** IMAP4 support became more generic.
+Many IMAP4 servers are supported.
+
+*** New authentication type
+  IMAP4: CRAM-MD5, DIGEST-MD5, STARTTLS
+  POP3:  CRAM-MD5, DIGEST-MD5, SCRAM-MD5, STARTTLS
+  NNTP:  STARTTLS
+  SMTP:  STARTTLS
+
+*** New folder type
+  |      Pipe Folder     Incorporate message.
+  .      Maildir Folder  Now Maildir is one of the folder type.
+  'cache Cache Folder    View internal cache.
+
+*** Message buffer cache
+Next message is prefetched while idle time.
+
+*** Sticky summary is enhanced.
+Now message buffer is also sticky.
+You can specify always-sticky summary.
+
+** misc
+
+*** Eliminated wl-draft-prepared-config-alist
+unified with wl-draft-config-alist.
+
+*** POP-before-SMTP variables are re-arranged.
+
+*** Ask non-existing folder.
+ When FCC: contains new folder.
+ When auto-refile specified new folder.
+
+*** Change fetch threshold and confirm settings.
+wl-prefetch-confirm-threshold, wl-cache-fetch-threshold.
+
+*** Can use petname for completion.
+
+*** Change Message-ID generator.
+
+*** wl-demo.el support bitmap-mule.
+
+*** Allow function type `smtp-server' value.
+
+*** Make sendlog when `wl-draft-sendlog' is non-nil.
+
+*** `wl-summary-incorporate-marks'
+
+*** Reserve prefetching while off-line status.
+
+*** Draft use new frame when `wl-draft-use-frame' is non-nil.
+
+*** New variable `wl-user-mail-address-list' .
+
+*** New variable `wl-local-domain' for set FQDN.
+
+*** Server side unread status is used in IMAP4 folder.
+
+*** Change defaults
+  wl-mime-charset         iso-2022-jp  =>  x-ctext
+  wl-summary-move-order   'new  =>  'unread
+  wl-tmp-dir              TMPDIR  =>  ~/tmp/
+
+*** New hooks
+  wl-draft-send-hook
+  wl-draft-reedit-hook
+  wl-mime-edit-preview-message-hook
+  wl-folder-suspend-hook
+  wl-summary-toggle-disp-folder-message-resumed-hook
+  wl-summary-line-inserted-hook
+  wl-thread-update-children-number-hook
+  mmelmo-header-inserted-hook
+  mmelmo-entity-content-inserted-hook
+
+*** New function
+  wl-save
+  wl-summary-write
+  wl-summary-supersedes-message
+  wl-fldmgr-delete
+  wl-refile-guess-by-msgid
+  wl-address-user-mail-address-p
+  wl-summary-jump-to-msg-by-message-id-via-nntp
+  wl-summary-temp-mark-pick
+
+* For details of changes, see the file ChangeLog.
+
+Local variables:
+mode: outline
+paragraph-separate: "[ 	]*$"
+end:
diff --git a/NEWS.ja b/NEWS.ja
new file mode 100644
index 0000000..511373c
--- /dev/null
+++ b/NEWS.ja
@@ -0,0 +1,136 @@
+Wanderlust NEWS ($BF|K\8lHG(B) -- User-visible changes in Wanderlust. 21 Mar 2000
+
+* 1.1.1 $B$NJQ99E@(B.
+
+** $B%G%#%l%/%H%j9=@.$,$+$o$j$^$7$?!#(B
+
+*** 00README, 00README.ja $B$O(B README, README.ja $B$KJQ99$5$l$^$7$?!#(B
+
+*** wl-* $B$N%U%!%$%k$O(B 'wl' $B%G%#%l%/%H%j$K0\F0$7$^$7$?!#(B
+
+* 1.0.3 $B$+$i(B version 1.1.0 $B$X$NJQ99E@(B 
+
+** $B%$%s%9%H!<%k(B
+
+*** tm7 $B$O%5%]!<%H$5$l$J$/$J$j$^$7$?!%(B
+
+$B$/$o$7$/$O(B INSTALL.ja $B$r8fMw2<$5$$!%(B
+
+*** WL_PREFIX $B$H(B ELMO_PREFIX $B$N=i4|@_Dj$,(B "wl" $B$K$J$j$^$7$?!%(B
+(defvar WL_PREFIX "wl")
+(defvar ELMO_PREFIX "wl")
+
+$BNc$($P!$%$%s%9%H!<%k%G%#%l%/%H%j$O!$(B
+  1.0.3  /usr/local/share/emacs/site-lisp/
+  1.1.0  /usr/local/share/emacs/site-lisp/wl/
+$B$H$J$j$^$9!%(B
+
+*** Makefile $B$NJQ?t$N%G%U%)%k%HCM$,JQ$o$j$^$7$?!%(B
+
+EMACS   = emacs
+XEMACS  = xemacs
+$(XEMACS) $B$O!$(B`package' $B$d(B `install-package' $B$N(B target $B$G;2>H$5$l$^$9!%(B
+
+*** *.el $B%U%!%$%k$b%$%s%9%H!<%k$5$l$k$h$&$K$J$j$^$7$?!%(B
+
+*** $B1Q8lHG%I%-%e%a%s%H(B (wl.texi) $B$,IU$-$^$7$?!%(B
+
+** $B?75!G=(B
+
+*** Modified UTF7 $B$,%5%]!<%H$5$l$^$7$?!%(B
+$B%f%K%3!<%I$,07$($k(B Emacs $B$G$O!$(BIMAP4 $B$GF|K\8l%a!<%k%\%C%/%9L>$r;XDj$G$-$^$9!%(B
+
+*** $B%9%3%"5!G=$,IU$-$^$7$?!%(B
+
+*** $B%W%i%04IM}5!G=$,IU$-$^$7$?!%(B
+
+*** IMAP4 $B$,$h$jHFMQE*$K$J$j$^$7$?!%(B
+$BB?$/$N(B IMAP4 $B%5!<%P$GF0$/$h$&$K$J$j$^$7$?!%(B
+
+*** $B$$$/$D$+$NG'>ZJ}<0$,%5%]!<%H$5$l$^$7$?!%(B
+  IMAP4: CRAM-MD5, DIGEST-MD5, STARTTLS
+  POP3:  CRAM-MD5, DIGEST-MD5, SCRAM-MD5, STARTTLS
+  NNTP:  STARTTLS
+  SMTP:  STARTTLS
+
+*** $B?7$7$$%U%)%k%@7?$,2C$o$j$^$7$?!%(B
+  |      $B%Q%$%W%U%)%k%@(B     $B%a%C%;!<%8$r<h$j9~$`%U%)%k%@$G$9!%(B
+  .      Maildir $B%U%)%k%@(B   Maildir $B$,$R$H$D$N%U%)%k%@7?$K$J$j$^$7$?!%(B
+  'cache $B%-%c%C%7%e%U%)%k%@(B $BFbIt%-%c%C%7%e$r%U%)%k%@$H$7$F1\Mw$G$-$^$9!%(B
+
+*** $B%a%C%;!<%8%P%C%U%!$N%W%j%U%'%C%A5!G=$,IU$-$^$7$?!%(B
+$BFI$s$G$$$k4V$K<!$N%a%C%;!<%8$rFI$_9~$_$^$9!%(B
+
+*** $B%9%F%#%C%-!<%5%^%j(B($B>C$($J$$%5%^%j(B)$B$,3HD%$5$l$^$7$?!%(B
+$B%a%C%;!<%8%P%C%U%!$b%5%^%j$KBP1~$7$FMQ0U$5$l$k$h$&$K$J$j$^$7$?!%(B
+$B>o$K%9%F%#%C%-!<$K$J$k%U%)%k%@$r@_Dj$G$-$k$h$&$K$J$j$^$7$?!%(B
+
+** $B$=$NB>(B
+
+*** $BJQ?t(B wl-draft-prepared-config-alist $B$OGQ;_$5$l$^$7$?!%(B
+wl-draft-config-alist $B$KE}9g$5$l$^$7$?!%(B
+
+*** POP-before-SMTP $B4XO"$NJQ?t$,@0M}$5$l$^$7$?!%(B
+
+*** $BB8:_$7$J$$%U%)%k%@$r:n$k$+$I$&$+3NG'$9$k$h$&$K$J$j$^$7$?!%(B
+ FCC: $B$K?7$7$$%U%)%k%@L>$r;XDj$7$?$H$-$d!$(Bauto-refile $B$G(B
+ $B?7$7$$%U%)%k%@L>$r;XDj$7$?$H$-$K%U%)%k%@$r:n$k$+$I$&$+3NG'$7$^$9!%(B
+
+*** $B%W%j%U%'%C%A$N3NG'$K4X$9$k@_Dj$NJQ?t$,2C$o$j$^$7$?!%(B
+wl-prefetch-confirm-threshold, wl-cache-fetch-threshold.
+
+*** $B%U%)%k%@L>$N$"$@L>$r%U%)%k%@L>F~NO$GJd40$G$-$k$h$&$K$J$j$^$7$?!%(B
+
+*** Message-ID $B$N@8@.J}K!$,JQ$o$j$^$7$?!%(B
+
+*** Mule $B$G$O%S%C%H%^%C%W$N%*!<%W%K%s%0%G%b2hLL$,=P$k$h$&$K$J$j$^$7$?!%(B
+
+*** `smtp-server' $B$K4X?t$r;XDj$G$-$^$9!%(B
+
+*** $BAw?.%m%0$,J]B8$5$l$k$h$&$K$J$j$^$7$?!%(B
+`wl-draft-sendlog' $B$,(B non-nil $B$N>l9g!$(B'sendlog' $B%U%!%$%k$KJ]B8$5$l$^$9!%(B
+
+*** $B%*%U%i%$%s=hM}$G%W%j%U%'%C%A$rM=Ls$G$-$k$h$&$K$J$j$^$7$?!%(B
+
+*** `wl-summary-incorporate-marks'
+
+*** `wl-draft-use-frame' $B$,(B non-nil $B$J$i%U%l!<%`$r@8@.$7$^$9!%(B
+
+*** $B?75,JQ?t(B `wl-user-mail-address-list'$B!%(B
+
+*** $B?75,JQ?t(B `wl-local-domain'$B!%(B
+
+*** IMAP4 $B$G%5!<%PB&$NL$FI>uBV$r;2>H$9$k$h$&$K$J$j$^$7$?!%(B
+
+*** $B=i4|@_Dj$,JQ99$5$l$?JQ?t(B
+  wl-mime-charset         iso-2022-jp  =>  x-ctext
+  wl-summary-move-order   'new  =>  'unread
+  wl-tmp-dir              TMPDIR  =>  ~/tmp/
+
+*** $B?75,(B hook
+  wl-draft-send-hook
+  wl-draft-reedit-hook
+  wl-mime-edit-preview-message-hook
+  wl-folder-suspend-hook
+  wl-summary-toggle-disp-folder-message-resumed-hook
+  wl-summary-line-inserted-hook
+  wl-thread-update-children-number-hook
+  mmelmo-header-inserted-hook
+  mmelmo-entity-content-inserted-hook
+
+*** $B?75,%3%^%s%I(B
+  wl-save
+  wl-summary-write
+  wl-summary-supersedes-message
+  wl-fldmgr-delete
+  wl-refile-guess-by-msgid
+  wl-address-user-mail-address-p
+  wl-summary-jump-to-msg-by-message-id-via-nntp
+  wl-summary-temp-mark-pick
+
+* $BJQ99E@$N>\:Y$O(B ChangeLog $B$r8fMw2<$5$$!%(B
+
+Local variables:
+mode: outline
+paragraph-separate: "[ 	]*$"
+end:
diff --git a/README b/README
new file mode 100644
index 0000000..e01331f
--- /dev/null
+++ b/README
@@ -0,0 +1,71 @@
+
+ Wanderlust -- Yet Another Message Interface on Emacsen
+                      by Yuuichi Teranishi <teranisi@gohome.org>
+                      Time-stamp: <2000-02-24 00:26:49 teranisi>
+
+Wanderlust is a mail/news management system with IMAP4rev1 support for Emacs.
+
+Features:
+
+ * Implementation in elisp only.
+ * Support of IMAP4rev1 [1], NNTP [2], POP(POP3[3]/APOP), MH and Maildir.
+ * Integrated access to messages based on Folder Specifications like Mew[4].
+ * Key bindings and mark processing like Mew.
+ * Management of threads and unread messages.
+ * Folder mode to select and edit subscribed folders.
+ * Message cache, Disconnected Operation.
+ * MH-like FCC (FCC: %Backup is possible).
+ * Full support of MIME (by SEMI or tm[5]).
+ * Draft editing of mail and news as a same interface.
+ * Icon based interface for the list of Folder (XEmacs).
+ * Skip fetching of a large message part of MIME(IMAP4).
+ * Server side searching (IMAP4), internationalized searching is available.
+ * Virtual folder.
+ * Compressed folder.
+ * Automatic expiration of old messages.
+ * Automatic refiling.
+ * Draft templates.
+
+System Requirements:
+
+ * Emacs19 or later.
+ * tm or SEMI (version 1.13.4 or later).
+
+Install:
+
+See INSTALL to install.
+
+Web Page:
+
+Wanderlust Official web page is available at:
+
+http://www.gohome.org/wl/.
+
+You can get latest Wanderlust version from there.
+
+Mailing List:
+
+Wanderlust Mailing List <wl@lists.airs.net>
+
+Via the Wanderlust ML, we discuss about Wanderlust, announce the latest
+release in Japanese.
+
+To subscribe, send mail to wl-ctl@lists.airs.net, with '# guide' as
+the message body.
+
+References:
+
+[1] M. Crispin, "INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1", RFC 2060,
+    1996.
+[2] B. Kantor and P. Lapsley, "Network News Transfer Protocol: A
+    Proposed Standard for the Stream-Based Transmission of News", RFC
+    977, 1986.
+[3] J. Myers, M. Rose, "Post Office Protocol - Version 3", RFC 1929, 1996.
+[4] "Mew -- Messaging in the Emacs World", 
+    (Copyright (C) 1994, 1995, 1996, 1997, 1998 Mew developing team.)
+    Available from http://www.mew.org/.
+[5] "tm -- MIME package for GNU Emacs",
+    (Copyright (C) 1994, 1995, 1996 MORIOKA Tomohiko)
+    Latest tm package is available from 
+    ftp://ftp.jaist.ac.jp/pub/GNU/elisp/
+
diff --git a/README.ja b/README.ja
new file mode 100644
index 0000000..123033f
--- /dev/null
+++ b/README.ja
@@ -0,0 +1,71 @@
+
+ Wanderlust -- Yet Another Message Interaface on Emacsen
+		      by Yuuichi Teranishi <teranisi@gohome.org>
+		      Time-stamp: <99/12/06 18:55:57 teranisi>
+
+Wanderlust $B$O(B Emacs $B>e$GF0$/(B IMAP4rev1 $BBP1~$N%a!<%k(B/$B%K%e!<%94IM}%7%9%F%`$G$9!#(B
+
+Features:
+
+ * elisp $B$N$_$K$h$k<BAu!#(B
+ * IMAP4rev1 [1]$B!"(BNNTP [2]$B!"(BPOP(POP3[3]/APOP)$B!"(BMH $B7A<0$N%5%]!<%H!#(B
+ * Mew [4] $B$C$]$$(B Folder Specification $B$K4p$E$/%a%C%;!<%8$X$NE}0lE*%"%/%;%9!#(B
+ * Mew $B$C$]$$%-!<%P%$%s%I$H%^!<%/=hM}!#(B
+ * $B%9%l%C%I$HL$FI4IM}!#(B
+ * $B9XFI%U%)%k%@$N0lMw$rI=<($9$k%U%)%k%@%b!<%I!#(B
+ * $B%a%C%;!<%8%-%c%C%7%e!"(B Disconnected Operation$B!#(B
+ * MH $BE*(B FCC$B!#(B(FCC: %Backup $B$b2D(B)$B!#(B
+ * MIME $BBP1~(B (by SEMI or tm [5])$B!#(B
+ * $B%K%e!<%9(B/$B%a!<%k$NAw?.$rE}9g$7$?%I%i%U%HJT=8!#(B
+ * $B%U%)%k%@0lMw$N%"%$%3%sI=<((B (XEmacs)$B!#(B
+ * $BBg$-$J%Q!<%H$r<h$j4s$;$:$KI=<((B(IMAP4)$B!#(B
+ * $B%a%C%;!<%8$N8!:w$r%5!<%PB&$G<B9T(B(IMAP4)$B!#F|K\8l8!:w$b2D!#(B
+ * $B2>A[%U%)%k%@!#(B
+ * $BB?$$F|$b0B?4$N!"%^%k%A%"!<%+%$%PBP1~05=L%U%)%k%@!#(B
+ * $B%U%)%k%@Cf$N8E$$5-;v$r<+F0E*$K%"!<%+%$%V(B/$B:o=|$7$F@0M}$9$k(B expire $B5!G=!#(B
+ * $B<+F0%j%U%!%$%k!#(B
+ * $BDj7?%a%C%;!<%8$NAw?.$KJXMx$J%F%s%W%l!<%H5!G=!#(B
+
+$BI,MW>r7o(B:
+
+ * Emacs19 $B!A(B
+ * tm (8.7 $B0J9_(B) or SEMI (1.13.4 $B0J9_(B)
+
+Install:
+
+ $B%$%s%9%H!<%k$NJ}K!$K$D$$$F$O!"(BINSTALL.ja $B$r8fMw$/$@$5$$!#(B 
+
+Web Page:
+
+ Wanderlust $B$N(B Official Web $B%Z!<%8$N(B URL $B$O0J2<$NDL$j$G$9!#(B
+
+ http://www.gohome.org/wl/
+
+ $B$3$3$+$i%Q%C%1!<%8$N%@%&%s%m!<%I$b2DG=$G$9!#(B
+
+$B%a!<%j%s%0%j%9%H(B:
+
+ Wanderlust Mailing List <wl@lists.airs.net> 
+
+ Wanderlust $B$K4X$9$k5DO@$O$3$N%a%$%j%s%0%j%9%H$G9T$o$l$^$9!#(B
+ $B:G?7%P!<%8%g%s$N%"%J%&%s%9$b$3$A$i$KN.$l$^$9!#(B
+
+ wl-ctl@lists.airs.net $B08$N%a!<%k$NK\J8$K!"(B
+
+ # guide
+
+ $B$H=q$$$?%a!<%k$rAw$k$HF~2q$N%,%$%I$,<+F0E*$K$b$i$($^$9!#(B
+
+References:
+
+[1] M. Crispin, "INTERNET MESSAGE ACCESS PROTOCOL - VERSION 4rev1", RFC 2060,
+    1996.
+[2] B. Kantor and P. Lapsley, "Network News Transfer Protocol: A
+    Proposed Standard for the Stream-Based Transmission of News", RFC
+    977, 1986.
+[3] J. Myers, M. Rose, "Post Office Protocol - Version 3", RFC 1929, 1996.
+[4] "Mew -- Messaging in the Emacs World", 
+    (Copyright (C) 1994, 1995, 1996, 1997, 1998 Mew developing team.)
+    Available from http://www.mew.org/.
+[5] "tm -- MIME package for GNU Emacs",
+    (Copyright (C) 1994, 1995, 1996 MORIOKA Tomohiko)
diff --git a/WL-ELS b/WL-ELS
new file mode 100644
index 0000000..a440b26
--- /dev/null
+++ b/WL-ELS
@@ -0,0 +1,107 @@
+;;; WL-ELS  -*-Emacs-Lisp-*-
+;;; Time-stamp: <00/03/01 09:58:40 teranisi>
+
+;;;;;;;;;;;;;;;;;;;;;   DO NOT EDIT THIS FILE   ;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;     INTERNAL USE ONLY     ;;;;;;;;;;;;;;;;;;;;;
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; generic modules
+(defconst WL-MODULES '(
+   wl wl-folder wl-summary wl-message
+   wl-vars wl-draft wl-util wl-address
+   wl-highlight wl-demo wl-refile wl-thread
+   wl-fldmgr wl-expire wl-template wl-score
+   ))
+
+(defconst ELMO-MODULES '(
+   elmo-util elmo-imap4 elmo-nntp elmo-archive
+   elmo-localdir elmo-msgdb elmo-vars elmo2
+   elmo-cache elmo-multi elmo-filter elmo-pipe
+   elmo-dop elmo-pop3 elmo-localnews elmo-maildir
+   elmo-date elmo-internal utf7
+   ))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Emacsen
+;; (< 20 emacs-major-version) && !(featurep 'mule)
+(cond
+ ((featurep 'xemacs)
+  (setq WL-MODULES (append WL-MODULES (list 'wl-dnd 'wl-xmas)))
+  (setq ELMO-MODULES (append (list 'elmo-database) ELMO-MODULES)))
+ ((fboundp 'nemacs-version)
+  (setq WL-MODULES (append WL-MODULES (list 'wl-nemacs))))
+ ((featurep 'mule)
+  (setq WL-MODULES (append WL-MODULES (list 'wl-mule)))))
+
+(defconst WL-AUTOLOAD-MODULES '(
+   auto-autoloads custom-load
+   ))
+
+(if (or (fboundp 'dynamic-link)
+        ;; static
+        (fboundp 'open-database))
+    (add-to-list 'ELMO-MODULES 'elmo-database))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; tm-8 / SEMI
+
+(if (module-installed-p 'mime-view)
+    (progn
+      (defconst wl-use-semi t)
+      (setq WL-MODULES (append WL-MODULES (list 'wl-mime)))
+      (setq ELMO-MODULES (append ELMO-MODULES (list 'mmelmo 'mmelmo-imap4))))
+  (defconst wl-use-semi nil)
+  (setq WL-MODULES (append WL-MODULES (list 'tm-wl)))
+  )
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; FLIM 1.12 / FLIM 1.13
+(cond
+ ((module-installed-p 'luna)
+  ;; FLIM 1.13 (SEMI/tm-8)
+  (defconst wl-use-luna t)
+  (setq ELMO-MODULES
+	(append ELMO-MODULES
+		(list 'mmelmo-2
+		      'mmelmo-imap4-2))))
+ (wl-use-semi
+  ;; FLIM 1.12
+  (defconst wl-use-luna nil)
+  (setq ELMO-MODULES
+	(append ELMO-MODULES
+		(list 'mmelmo-1
+		      'mmelmo-imap4-1))))
+ )
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Utils
+(defvar UTILS-MODULES '(rfc2368 wl-mailto))
+
+;; OpenSSL/SSLeay package is also needed.
+(if (module-installed-p 'base64)
+    (add-to-list 'UTILS-MODULES 'ssl))
+
+(defconst SASL-MODULES '(hmac-def hmac-md5 hmac-sha1
+			 hex-util md5-dl md5-el md5
+			 sha1-dl sha1-el sha1 sasl
+			 scram-md5 digest-md5 unique-id))
+
+(defvar modules-alist
+  (list
+   (cons ELMODIR ELMO-MODULES)
+   (cons WLDIR WL-MODULES)
+   (if (module-installed-p 'bbdb)
+       (cons UTILSDIR (list 'bbdb-wl)))
+   (if (exec-installed-p "imput")
+       (cons UTILSDIR (list 'im-wl)))
+   (if wl-install-utils
+       (cons UTILSDIR UTILS-MODULES))
+   ;; sasl does not work under Nemacs.
+   (if (and wl-install-sasl
+	    (not (fboundp 'nemacs-version)))
+       (cons SASLDIR SASL-MODULES))
+    ))
diff --git a/WL-MK b/WL-MK
new file mode 100644
index 0000000..09cb8f7
--- /dev/null
+++ b/WL-MK
@@ -0,0 +1,329 @@
+;;; -*- Emacs-Lisp -*-
+;;; WL-MK for byte-compile, install, uninstall
+;;;
+;;; Original by OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;;; Modified by Yuuichi Teranishi <teranisi@gohome.org>
+;;;
+;;; Time-stamp: <2000-03-30 15:55:13 teranisi>
+
+;;;;;;;;;;;;;;;;;;;;;   DO NOT EDIT THIS FILE   ;;;;;;;;;;;;;;;;;;;;;
+;;;;;;;;;;;;;;;;;;;;;     INTERNAL USE ONLY     ;;;;;;;;;;;;;;;;;;;;;
+
+;;; Code
+
+(defvar WLDIR "./wl")
+(defvar ELMODIR "./elmo")
+(defvar DOCDIR "./doc")
+(defvar ICONDIR "./etc/icons")
+(defvar UTILSDIR "./utils")
+(defvar SASLDIR "./utils/sasl/lisp")
+(defvar WL_PREFIX "wl")
+(defvar ELMO_PREFIX "wl")
+
+(defvar COMPRESS-SUFFIX-LIST '("" ".gz" ".Z" ".bz2"))
+
+(defvar wl-install-utils nil
+  "if Non-nil, install `wl-utils-modules'.")
+(defvar wl-install-sasl nil
+  "if Non-nil, install sasl utilities.")
+
+;;; INFO
+(defconst wl-ja-info "wl-ja.info")
+(defconst wl-ja-texi "wl-ja.texi")
+(defconst wl-en-info "wl.info")
+(defconst wl-en-texi "wl.texi")
+
+(defvar wl-info-lang "ja"
+  "The language of info file (\"ja\" or \"en\").")
+
+;; for Nemacs (dirty!)
+(or (fboundp 'file-executable-p)
+    (fset 'file-executable-p 'file-exists-p))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require 'cl)
+(defvar INFODIR nil)
+
+(condition-case () (require 'custom) (error nil))
+;; for wl-vars.el
+(unless (and (fboundp 'defgroup)
+             (fboundp 'defcustom)
+             ;; ignore broken module
+             (not (featurep 'tinycustom)))
+  (require 'backquote)
+  (defmacro defgroup (&rest args))
+  (defmacro defcustom (symbol value &optional doc &rest args)
+    (let ((doc (concat "*" (or doc ""))))
+      (` (defvar (, symbol) (, value) (, doc)))))
+  )
+
+(setq byte-compile-warnings '(free-vars unresolved callargs redefine))
+
+;; v18, v19
+(if (or (boundp 'MULE)
+	(fboundp 'nemacs-version))
+    (setq max-lisp-eval-depth 400))
+
+(condition-case () (require 'easymenu) (error nil))
+
+(defvar config-wl-package-done nil)
+
+(defun config-wl-package-subr ()
+  (unless config-wl-package-done
+  (setq config-wl-package-done t)
+  (setq load-path (cons (expand-file-name ".") load-path))
+  (setq load-path (cons (expand-file-name WLDIR)
+			(cons (expand-file-name ELMODIR) load-path)))
+  (setq wl-icon-dir (expand-file-name ICONDIR))
+;;; load custom file if exists.
+  (load "./WL-CFG" t nil t)
+;;; load-path
+  (if wl-install-utils
+      (setq load-path (cons (expand-file-name UTILSDIR) load-path)))
+  (if wl-install-sasl
+      (setq load-path (cons (expand-file-name SASLDIR) load-path)))
+  (require 'install)
+  (load "./WL-ELS")
+  (condition-case ()
+      (require 'mime-setup)
+    (error (error "No MIME module was detected. Please install SEMI or tm.")))
+  (if wl-use-semi
+      (princ (concat "\nUse SEMI" 
+		     (if wl-use-luna " with LUNA\n" " without LUNA\n")))
+    (princ "\nUse tm.\n"))))
+
+(defun config-wl-package ()
+  (config-wl-package-subr)
+  ;; LISPDIR check.
+  (let ((elispdir (car command-line-args-left)))
+    (if (string= elispdir "NONE")
+	(defvar LISPDIR (install-detect-elisp-directory))
+      (defvar LISPDIR elispdir)))
+  (princ (format "LISPDIR is %s\n\n" LISPDIR))
+  (setq command-line-args-left (cdr command-line-args-left)))
+
+
+(defun wl-scan-source (path)
+  (let (ret)
+    (mapcar
+     '(lambda (x)
+	(mapcar '(lambda (y)
+		   (setq ret (append (list y (concat y "c")) ret)))
+		(directory-files x nil "\\(.+\\)\\.el$" t)))
+     path)
+    ret))
+
+
+(defun wl-uninstall (objs path)
+  ;(message (mapconcat 'identity objs " "))
+  (mapcar
+   '(lambda (x)
+      (let ((filename (expand-file-name x path)))
+	(if (and (file-exists-p filename)
+		 (file-writable-p filename))
+	    (progn
+	      (princ (format "%s was uninstalled.\n" filename))
+	      (delete-file filename)))))
+   objs))
+
+
+(defun compile-wl-package ()
+  ;; For nemacs byte compiler's strange behavior(?).
+  (config-wl-package)
+  (if (fboundp 'nemacs-version)
+      (load (expand-file-name "wl.el" WLDIR)))
+  (mapcar
+   '(lambda (x)
+      (compile-elisp-modules (cdr x) (car x)))
+   modules-alist))
+
+(defun install-wl-package ()
+  (compile-wl-package)
+  (let ((wl-install-dir (expand-file-name WL_PREFIX LISPDIR))
+	(elmo-install-dir (expand-file-name ELMO_PREFIX LISPDIR)))
+    (mapcar
+     '(lambda (x)
+	(install-elisp-modules (cdr x) (car x)
+			       (if (string= (car x) ELMODIR)
+				   elmo-install-dir
+				 wl-install-dir)))
+     modules-alist)))
+
+
+(defun uninstall-wl-package ()
+  (config-wl-package)
+  (let ((wl-install-dir (expand-file-name WL_PREFIX
+					  LISPDIR))
+	(elmo-install-dir (expand-file-name ELMO_PREFIX
+					    LISPDIR)))
+    (wl-uninstall (wl-scan-source (list WLDIR UTILSDIR SASLDIR))
+		  wl-install-dir)
+    (wl-uninstall (wl-scan-source (list ELMODIR))
+		  elmo-install-dir)
+    ))
+
+
+(defun config-wl-package-xmas ()
+  (if (not (featurep 'xemacs))
+      (error "This directive is only for XEmacs."))
+  (config-wl-package-subr)
+  ;; PACKAGEDIR check.
+  (let (package-dir)
+    (and (setq package-dir (car command-line-args-left))
+	 (if (string= "NONE" package-dir)
+	     (defvar PACKAGEDIR
+	       (if (boundp 'early-packages)
+		   (let ((dirs (append (if early-package-load-path
+					   early-packages)
+				       (if late-package-load-path
+					   late-packages)
+				       (if last-package-load-path
+					   last-packages)))
+			 dir)
+		     (while (not (file-exists-p
+				  (setq dir (car dirs))))
+		       (setq dirs (cdr dirs)))
+		     dir)))
+	   (defvar PACKAGEDIR package-dir)))
+    (princ (format "PACKAGEDIR is %s\n\n" PACKAGEDIR))
+    (setq command-line-args-left (cdr command-line-args-left))))
+
+;; from SEMI-MK
+(defun compile-wl-package-xmas ()
+  (config-wl-package-xmas)
+  (setq autoload-package-name "wl")
+  (add-to-list 'command-line-args-left WLDIR)
+  (batch-update-directory)
+  (add-to-list 'command-line-args-left WLDIR)
+  (Custom-make-dependencies)
+  ;; WL-AUTOLOAD-MODULES
+  (compile-elisp-modules WL-AUTOLOAD-MODULES WLDIR)
+  (mapcar
+   '(lambda (x)
+      (compile-elisp-modules (cdr x) (car x)))
+   modules-alist))
+
+(defun install-wl-package-xmas ()
+  (compile-wl-package-xmas)
+  (let ((LISPDIR (expand-file-name "wl"
+				    (expand-file-name "lisp"
+						      PACKAGEDIR)))
+	(DATADIR  (expand-file-name "wl"
+				    (expand-file-name "etc"
+						      PACKAGEDIR)))
+	(INFODIR  (expand-file-name "info" PACKAGEDIR)))
+    (or (file-exists-p DATADIR)
+	(make-directory DATADIR t))
+    (or (file-exists-p INFODIR)
+	(make-directory INFODIR t))
+    ;; copy xpm files
+    (mapcar '(lambda (x) 
+	       (let* ((src-file-nondirectory (file-name-nondirectory x))
+		      (dst-file (expand-file-name src-file-nondirectory
+						  DATADIR)))
+		 (princ (format "%s->%s\n"
+				x ; fullpath
+				dst-file))
+		 (copy-file x dst-file t)))
+	    (directory-files "etc/icons" t "xpm"))
+    (mapcar '(lambda (x)
+             (install-elisp-modules (cdr x) (car x) LISPDIR))
+                  modules-alist)
+    ;; WL-AUTOLOAD-MODULES
+    (install-elisp-modules WL-AUTOLOAD-MODULES WLDIR LISPDIR)
+    ;; 
+    (wl-texinfo-format)
+    (wl-texinfo-install)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Texinfo stuff
+
+(defun wl-texinfo-format-file (lang)
+  (let ((infofile (symbol-value (intern (format "wl-%s-info" lang))))
+	(texifile (symbol-value (intern (format "wl-%s-texi" lang)))))
+    (require 'wl-vars) ;; for 'wl-cs-local
+    (or (file-newer-than-file-p (expand-file-name infofile DOCDIR)
+				(expand-file-name texifile DOCDIR))
+	(let (obuf beg)
+	  (find-file (expand-file-name texifile DOCDIR))
+	  (setq obuf (current-buffer))
+	  ;; texinfmt.el 2.37 or earlier can't format @direntry
+	  (require 'texinfmt)
+	  (unless (fboundp 'texinfo-format-direntry)
+	    (goto-char (point-min))
+	    (when (re-search-forward "^@direntry" nil t)
+	      (replace-match "@ifinfo\nSTART-INFO-DIR-ENTRY"))
+	    (when (re-search-forward "^@end direntry" nil t)
+	      (replace-match "END-INFO-DIR-ENTRY\n@end ifinfo"))
+	    (set-buffer-modified-p nil))
+	  ;; We can't know file names if splitted.
+	  (texinfo-format-buffer t)
+	  ;; Emacs20.2's default is 'raw-text-unix.
+	  (and (fboundp 'set-buffer-file-coding-system)
+	       (set-buffer-file-coding-system wl-cs-local))
+	  (save-buffer)
+	  (kill-buffer (current-buffer)) ;; info
+	  (kill-buffer obuf)) ;; texi
+	)))
+
+(defun wl-texinfo-format ()
+  (unless INFODIR
+    (setq INFODIR (wl-detect-info-directory)))
+  (cond ((listp wl-info-lang)
+	 (mapcar 'wl-texinfo-format-file wl-info-lang))
+	((stringp wl-info-lang)
+	 (wl-texinfo-format-file wl-info-lang))))
+
+(defun wl-texinfo-install-file (lang)
+  (let ((infofile (symbol-value (intern (format "wl-%s-info" lang)))))
+    (install-file infofile DOCDIR INFODIR)))
+
+(defun wl-texinfo-install ()
+  (cond ((listp wl-info-lang)
+	 (mapcar 'wl-texinfo-install-file wl-info-lang))
+	((stringp wl-info-lang)
+	 (wl-texinfo-install-file wl-info-lang))))
+
+(defun wl-primary-info-file ()
+  "Get primary info file (for wl-detect-info-directory)."
+  (cond
+   ((listp wl-info-lang)
+    (let ((wl-info-lang (car wl-info-lang)))
+      (wl-primary-info-file)))
+   ((stringp wl-info-lang)
+    (symbol-value (intern (format "wl-%s-info" wl-info-lang))))))
+
+(defun wl-detect-info-directory ()
+  (config-wl-package-subr)
+  (if (fboundp 'nemacs-version)
+      (error "Cannot format info on Nemacs. Please use another formatter."))
+  ;; INFODIR check.
+  (require 'info)
+  (let ((infodir (car command-line-args-left))
+	(info (wl-primary-info-file))
+	previous INFODIR)
+    (setq INFODIR
+	  (if (string= infodir "NONE")
+	      (if (setq previous
+			(exec-installed-p info Info-directory-list
+					  COMPRESS-SUFFIX-LIST))
+		  ;;(progn
+		  ;;(condition-case nil (delete-file previous))
+		  (directory-file-name (file-name-directory previous));)
+		(car Info-directory-list))
+	    infodir))
+    (setq command-line-args-left (cdr command-line-args-left))
+    (princ (format "INFODIR is %s\n\n" INFODIR))
+    INFODIR))
+
+(defun install-wl-info ()
+  (wl-texinfo-format)
+  (wl-texinfo-install))
+
+
+;;; ToDo
+;;; * MORE refine code (^_^;
+
+;;; End
diff --git a/doc/TODO.ja b/doc/TODO.ja
new file mode 100644
index 0000000..e908b30
--- /dev/null
+++ b/doc/TODO.ja
@@ -0,0 +1,16 @@
+$B%M%C%H%o!<%/4X78$N%3!<%I$r(B elmo-network $B$K=8Ls(B
+product $B$rDj5A$9$k(B
+elmo-search $B$G(B msgdb $B$H%U%)%k%@K\BN$r%7!<%`%l%9$K8!:w(B
+pick/virtual $B$N(B completion $BE}9g(B
+msgdb $B9=B$$N8+D>$7$H(B obarray $B2=(B
+POP3 $B$N(B UIDL $BBP1~(B
+$B=EMW%^!<%/$N4IM}(B
+$B%5%^%j%U%)!<%^%C%H<+M32=(B
+$B%W%j%U%'%C%AM=Ls%^!<%/(B
+$BJV;v:Q$_!"%U%)%o!<%I:Q$_%^!<%/(B
+virtual $B4V$G(B msgdb $B6&M-(B
+MIME Bcc
+wl-summary-other-frame-list
+rfc2192, rfc2193, rfc2221 (imap referral $B$N=hM}(B)
+imap.el $B$H$NE}9g(B($B6l$7$$5$$,$7$F$-$?(B)
+$B$"$d$7$2$J%3!<%I$r$X$i$7$?$$(B
diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
new file mode 100644
index 0000000..5f097d7
--- /dev/null
+++ b/doc/wl-ja.texi
@@ -0,0 +1,5969 @@
+\input texinfo @c -*-texinfo -*- coding: iso-2022-jp -*-
+@c %**start of header
+@setfilename wl-ja.info
+@settitle Wanderlust -- Yet Another Message Interface On Emacsen --
+@c @documentlanguage ja
+@c %**end of header
+@c Wanderlust $B$N(B texinfo
+@set Time-stamp: <2000-04-03 14:29:40 teranisi>
+@set version 1.1.0
+@synindex pg cp
+@finalout
+
+@direntry
+* Wanderlust-ja: (wl-ja).  Yet Another Message Interface On Emacsen
+@end direntry
+
+@c permissions text appears in an Info file before the first node.
+@ifinfo
+This file documents Wanderlust,
+Yet another message interface on Emacsen.
+
+$B$3$N%U%!%$%k$O(B Emacs $B$GF0$/%a!<%k(B/$B%K%e!<%94IM}%7%9%F%`(B
+Wanderlust $B$K4X$9$k@bL@=q$G$9!#(B
+
+Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}.
+@c Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}, @*
+@c @w{Fujikazu Okunishi}, @w{Masahiro Murata},
+@c @w{Kenichi Okada} and @w{Kaoru Takahashi}.
+
+This edition is for Wanderlust version @value{version}.
+
+$B$3$NHG$O(B Wanderlust version @value{version} $B$KBP1~$7$^$9!#(B
+
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+
+$BCx:n8"I=<($H$3$N5v2DJ8$,$9$Y$F$NJ#@=$KB8:_$9$k8B$j!"(B
+$B$3$N@bL@=q$N$^$C$?$/F10l$NJ#@=$r:n$j!"G[I[$9$k$3$H$r5v2D$9$k!#(B
+
+@ignore
+Permission is granted to process this file through TeX and print the
+results, provided the printed document carries copying permission
+notice identical to this one except for the removal of this paragraph
+(this paragraph not being relevant to the printed manual).
+
+$B$3$NCJMn$,<h$j=|$+$l$F$$$k$N$r=|$-!"$3$l$HF1$8J#@=$K4X$9$k5v2DJ8$,I=<($5(B
+$B$l$F$$$k8B$j!"$3$N%U%!%$%k$r(B TeX $B$K$+$1$F!"$=$N7k2L$r0u:~$9$k$3$H$r5v2D(B
+$B$9$k(B($B$3$NCJMn$O0u:~$5$l$?%^%K%e%"%k$G$O;2>H$5$l$^$;$s(B)$B!#(B
+
+@end ignore
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+$BF10lJ#@=$N>r7o$N2<$G!"$=$l$K$h$C$FF@$i$l$?7k2L$b$3$N5v2DJ8$NI=<($HF10l$N(B
+$B>r7o$N$b$H$GG[I[$9$k8B$j!"$3$N@bL@=q$N=$@5HG$NJ#@=$r$7!"G[I[$9$k$3$H$r5v(B
+$B2D$9$k!#(B
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions.
+
+$B>e5-$N=$@5HG$K4X$9$k>r7o$N2<$G!"$3$N@bL@=q$NK]Lu$NJ#@=$r:n$j!"(B
+$BG[I[$9$k$3$H$r5v2D$9$k!#(B
+@end ifinfo
+
+@titlepage
+@sp 10
+@title Wanderlust $B%f!<%6%^%K%e%"%k(B (ver. @value{version})
+@author Yuuichi Teranishi $B;{@>M50l(B
+@author Fujikazu Okunishi $B1|@>F#OB(B
+@author Masahiro Murata   $BB<EDA442(B
+@author Kenichi Okada     $B2,ED7r0l(B
+@author Kaoru Takahashi   $B9b66(B  $B0j(B
+@page
+
+@vskip 0pt plus 1filll
+Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}.
+@c Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}, @*
+@c @w{Fujikazu Okunishi}, @w{Masahiro Murata},
+@c @w{Kenichi Okada}, and @w{Kaoru Takahashi}.
+
+This manual is for Wanderlust version @value{version}.
+
+$B$3$N%^%K%e%"%k$O(B Wanderlust version @value{version} $B$KBP1~$7$^$9!#(B
+
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+
+$BCx:n8"I=<($H$3$N5v2DJ8$,$9$Y$F$NJ#@=$KB8:_$9$k8B$j!"(B
+$B$3$N@bL@=q$N$^$C$?$/F10l$NJ#@=$r:n$j!"G[I[$9$k$3$H$r5v2D$9$k!#(B
+
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+$BF10lJ#@=$N>r7o$N2<$G!"$=$l$K$h$C$FF@$i$l$?7k2L$r$3$N5v2DJ8$NI=<($HF10l$N(B
+$B>r7o$N$b$H$GG[I[$9$k8B$j!"$3$N@bL@=q$N=$@5HG$NJ#@=$r$7!"G[I[$9$k$3$H$r5v(B
+$B2D$9$k!#(B
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions.
+
+$B>e5-$N=$@5HG$K4X$9$k>r7o$N2<$G!"$3$N@bL@=q$NK]Lu$NJ#@=$r:n$j!"(B
+$BG[I[$9$k$3$H$r5v2D$9$k!#(B
+@end titlepage
+
+
+@c
+@c  Top
+@c 
+@ifinfo
+@node Top, Introduction, (dir), (dir)
+@top Wanderlust $B%f!<%6%^%K%e%"%k(B
+
+@flushright
+Yuuichi Teranishi $B;{@>M50l(B
+Fujikazu Okunishi $B1|@>F#OB(B
+Masahiro Murata   $BB<EDA442(B
+Kenichi Okada     $B2,ED7r0l(B
+Kaoru Takahashi   $B9b66(B  $B0j(B
+Last Modified@value{Time-stamp:}
+@end flushright
+
+$B$3$NJ8=q$O(B Wanderlust@value{version} $B$KBP1~$7$^$9!#(B
+
+@end ifinfo
+
+@menu
+* Introduction::             $B$O$8$a$K(B
+* Start Me Up::              Wanderlust $B$r5/F0$9$k(B
+* Folders::                  Wanderlust $B$G07$($k%U%)%k%@$?$A(B
+* Folder::                   $B%U%)%k%@%b!<%I(B
+* Summary::                  $B%5%^%j%b!<%I(B
+* Message::                  $B%a%C%;!<%8%P%C%U%!(B
+* Draft::                    $B%I%i%U%H%P%C%U%!(B
+* Disconnected Operations::  $B%*%U%i%$%s=hM}(B
+* Expire and Archive::       $B%a%C%;!<%8$N<+F0:o=|$H%"!<%+%$%V(B
+* Scoring::                  $B%a%C%;!<%8$N%9%3%"(B
+* Customization::            $B%+%9%?%^%$%:(B
+* Mailing List::             $B%a!<%j%s%0%j%9%H(B
+* Addition::                 $B$*$^$1(B
+* Index::                    $B:w0z(B
+@end menu
+
+
+@c
+@c  Introduction
+@c 
+@node Introduction, Start Me Up, Top, Top
+@chapter $B$O$8$a$K(B
+@cindex Introduction
+
+Wanderlust $B$O(B Emacs $B$GF0$/%a!<%k(B/$B%K%e!<%94IM}%7%9%F%`$G$9!#(B
+IMAP4rev1(RFC2060), NNTP, POP $B$*$h$S%m!<%+%k$N%a%C%;!<%8$KBP1~$7$F$$$^$9!#(B
+
+Wanderlust $B$N<g$JFCD'(B/$BFCD9$O0J2<$NDL$j$G$9!#(B
+
+@itemize @minus
+@item elisp $B$N$_$K$h$k<BAu!#(B
+@item IMAP4rev1, NNTP, POP(POP3/APOP), MH, Maildir $B7A<0$N%5%]!<%H!#(B
+@item Mew $B$C$]$$(B Folder Specification $B$K4p$E$/%a%C%;!<%8$X$NE}0lE*%"%/%;%9!#(B
+@item Mew $B$C$]$$%-!<%P%$%s%I$H%^!<%/=hM}!#(B
+@item $BL$FI4IM}!#(B
+@item $B%$%s%?%i%/%F%#%V$J%9%l%C%II=<(!#(B
+@item $B9XFI%U%)%k%@$N0lMw$rI=<($9$k%U%)%k%@%b!<%I!#(B
+@item $B%a%C%;!<%8%-%c%C%7%e!"(BDisconnected Operation ($B8=:_$OI=<($N$_(B)$B!#(B
+@item MH $BE*(B FCC$B!#(B(@samp{FCC: %Backup} $B$d(B @samp{FCC: $Backup} $B$b2D(B)$B!#(B
+@item MIME $BBP1~(B (by SEMI or tm)$B!#(B
+@item $B%K%e!<%9(B/$B%a!<%k$NAw?.$rE}9g$7$?%a%C%;!<%8Aw?.%I%i%U%H!#(B
+@item $B%U%)%k%@0lMw$N%"%$%3%sI=<((B (XEmacs)$B!#(B
+@item $BBg$-$J%Q!<%H$r<h$j4s$;$:$KI=<((B(IMAP4)$B!#(B
+@item $B%a%C%;!<%8$N8!:w$r%5!<%PB&$G<B9T(B(IMAP4)$B!#F|K\8l8!:w$b2D!#(B
+@item $B2>A[%U%)%k%@!#(B
+@item $BB?$$F|$b0B?4$N!"%^%k%A%"!<%+%$%PBP1~05=L%U%)%k%@!#(B
+@item $B%U%)%k%@Cf$N8E$$5-;v$r<+F0E*$K%"!<%+%$%V(B/$B:o=|$7$F@0M}$9$k(B expire $B5!G=!#(B
+@item $B<+F0%j%U%!%$%k!#(B
+@item $BDj7?%a%C%;!<%8$NAw?.$KJXMx$J%F%s%W%l!<%H5!G=!#(B
+@end itemize
+
+Wanderlust $B$O(B Emacs 19.28$B!A(B $B$r%Y!<%9$H$7$?(B Mule, Emacs 20.2$B!A(B, XEmacs 
+20.4$B!A!"(B $B$*$h$S(B MS Windows $B>e$GF0$/(B Meadow 1.00, Mule for Windows v1.22,
+NTEmacs(Windows NT) $B$GF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#(BOS/2 $B>e$GF0:n$9$k(B 
+PMMule $B$bEvA3(B OK $B$G$9!#$5$i$K!"(BNemacs 3.3.2 $B>e$G$b!"(B($B;H$($k5!G=$O8BDj$5(B
+$B$l$k$b$N$N(B) $BF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#(B
+
+$B$^$?!"(BWanderlust $B$,@\B3$7$FF0:n$9$k$3$H$,3NG'$5$l$F$$$k(B IMAP $B%5!<%P$O(BUW
+imapd 4.2, 4.3, 4.4, 4.5, 4.6, 4.7, 4.7a, Cyrus imapd 1.4, Cyrus imapd 1.5.19,
+AIR MAIL(AIRCimapd release 2.00) $B$G$9!#(B
+
+
+@c
+@c  Start Me Up
+@c 
+@node Start Me Up, Folders, Introduction, Top
+@chapter Wanderlust $B$r5/F0$9$k(B
+@cindex Start up
+
+Wanderlust $B$r5/F0$9$k$^$G$KI,MW$J<j=g$r=gHV$K@bL@$7$^$9!#(B
+
+($BEvA3$N$3$H$J$,$i!"$3$l$i$h$j$b@h$K!"%a!<%k(B/$B%K%e!<%9$rFI$`$3$H$,$G$-$k4D6-$,$"$i$+$8$aI,MW$G$9!#(B)
+
+@menu
+* MIME Modules::      MIME $BMQ%b%8%e!<%k$N%$%s%9%H!<%k(B
+* Download::          $B%Q%C%1!<%8$NF~<j$HE83+(B
+* Install::           $B%P%$%H%3%s%Q%$%k$H%$%s%9%H!<%k(B
+* Minimal Settings::  @file{.emacs} $B$N@_Dj(B
+* Mail Addresses::    $B%"%I%l%9D"$NDj5A(B
+* Folder Definition:: $B9XFI$9$k%U%)%k%@$NDj5A(B
+* Start Wanderlust::  Wanderlust $B$N5/F0(B
+@end menu
+
+
+@node MIME Modules, Download, Start Me Up, Start Me Up
+@section MIME $BMQ%b%8%e!<%k$N%$%s%9%H!<%k(B
+@cindex MIME modules
+@pindex APEL
+@pindex FLIM
+@pindex SEMI
+@pindex tm
+
+Wanderlust $B$r@5>o$KF0:n$5$;$k$K$O!"$^$:!"(BSEMI $B$b$7$/$O(B tm $B$,%$%s%9(B
+$B%H!<%k$5$l$F$$$kI,MW$,$"$j$^$9!#(B
+
+Emacs19.28 $B0JA0$r%Y!<%9$H$7$?(B mule $B$r$*;H$$$N>l9g$O(B SEMI $B$,F0$+$J$$$O$:(B
+@footnote{Emacs 19.34 $B%Y!<%9$N(B Mule $B$G$O(B SEMI $B$rF0:n$5$;$k$3$H$b2DG=$G$9!#(B@*
+@samp{http://www.jpl.org/elips/INSTALL-SEMI-ja.html} $B$,;29M$K$J$j$^$9!#(B}
+$B$J$N$G(B tm $B$r%$%s%9%H!<%k$7$^$9!#(B
+(tm $B$O%P!<%8%g%s(B 8.7 $B0J9_$r$4MxMQ$/$@$5$$!#(B)
+
+SEMI $B$,;H$($k(B Emacsen $B$G$O!"(Btm $B$h$j$b5!G=$N=<<B$7$?(B SEMI$B$r%$%s%9%H!<%k$9(B
+$B$k$3$H$r$*4+$a$7$^$9!#(B
+
+$B%$%s%9%H!<%k$NJ}K!$O3F%Q%C%1!<%8$KE:IU$5$l$F$$$k%I%-%e%a%s%H$r;2>H$7$F(B
+$B$/$@$5$$!#(B
+
+SEMI, tm $B$O0J2<$N>l=j$+$i%@%&%s%m!<%I$G$-$^$9!#(B
+
+@example
+SEMI: ftp://ftp.m17n.org/mule/semi/
+tm:   http://cvs.m17n.org/tomo/comp/emacsen/tm/tm-8/
+@end example
+
+SEMI $B$K$O(B APEL, FLIM $B$H8F$P$l$k%Q%C%1!<%8$bI,MW$G$9!#(B
+FLIM, APEL $B$O0J2<$N>l=j$+$i%@%&%s%m!<%I$G$-$^$9!#(B
+
+@example
+FLIM:     ftp://ftp.m17n.org/mule/flim/
+APEL:     ftp://ftp.m17n.org/mule/apel/
+@end example
+
+APEL, FLIM, SEMI $B$N=g$K%$%s%9%H!<%k$7$F$/$@$5$$!#(B
+$B4pK\E*$K$9$Y$F(B @samp{make install} $B$N<B9T$G:Q$`$O$:$G$9(B
+(XEmacs 21 $B$G$O(B @samp{make install-package})$B!#(B
+
+$B?d>)$5$l$k(B APEL, FLIM, SEMI $B$N%P!<%8%g%s$NAH9g$;$O!"0J2<$NDL$j$G$9!#(B
+
+@itemize @minus
+@item APEL 10.2, FLIM 1.12.7, SEMI 1.13.4
+@item APEL 10.2, FLIM 1.13.2, SEMI 1.13.7
+@end itemize
+
+APEL 10.2 $B$H(B FLIM 1.12.7 $B$NAH9g$;$G$O!"(BFLIM 1.12.7 $B$N%3%s%Q%$%k;~$K(B
+
+@example
+Please install latest APEL 7.3 or later.
+@end example
+   
+$B$H$$$&%(%i!<$,H/@8$9$k>l9g$,$"$j$^$9!#$3$N>l9g!"(BFLIM-CFG $B$N0J2<$N9T$r(B
+$B%3%a%s%H%"%&%H$7$F2<$5$$!#(B
+
+@example
+(or (fboundp 'write-region-as-binary)
+    (error "Please install latest APEL 7.3 or later."))
+(or (fboundp 'insert-file-contents-as-binary)
+    (error "Please install latest APEL 7.3 or later."))
+@end example
+
+$B$=$NB>!"(BFLIM, SEMI $B$K$O$$$m$$$m$JJQ7A%P!<%8%g%s$,B8:_$7$^$9$,!"(B
+$B$=$l$i$N$$$:$l$bMxMQ$9$k$3$H$,2DG=$G$9!#(B
+$B4pK\E*$K:G?7HG$NAH9g$;$J$iF0:n$9$k$O$:$G$9!#(B
+$BNc$($P!"0J2<$NAH9g$;$NF0:n$,3NG'$5$l$F$$$^$9!#(B
+
+@itemize @minus
+@item APEL 10.2, Chao 1.14.1, REMI 1.14.1
+@end itemize
+
+@c APEL, FLIM, SEMI $B$+(B tm $B$N%P!<%8%g%s%"%C%W$r9T$C$?>l9g$O!"(B
+@c Wanderlust $B$r%$%s%9%H!<%k$7$J$*$7$F$/$@$5$$!#(B
+
+
+@node Download, Install, MIME Modules, Start Me Up
+@section $B%Q%C%1!<%8$NF~<j$HE83+(B
+@cindex Download
+
+Wanderlust $BK\BN$O0J2<$N>l=j$+$i%@%&%s%m!<%I$G$-$^$9!#(B
+
+$B0l<!G[I[85(B:
+@example
+ftp://ftp.gohome.org/wl/
+@end example
+
+$B%_%i!<$7$F$$$?$@$$$F$$$k(B ftp, http $B%5%$%H(B:
+
+@example
+ftp://ftp.jaist.ac.jp/pub/GNU/elisp/ftp.gohome.org/wl/
+ftp://daidai.kuis.kyoto-u.ac.jp/pub/mirror/ftp.gohome.org/pub/elisp/wl/
+http://www.jpl.org/elips/
+http://www.ring.gr.jp/archives/text/elisp/wl/
+ftp://ftp.ring.gr.jp/pub/text/elisp/wl/
+ftp://opaopa.org/pub/mirror/elisp/wl/
+@end example
+
+$BF~<j$7$?%Q%C%1!<%8$OE,Ev$J:n6H%G%#%l%/%H%j$KE83+$7$^$7$g$&!#(B
+
+@example
+% cd ~/work
+% tar zxvf wl-(@var{version}).tar.gz
+% cd wl-(@var{version})
+@end example
+
+@subsection SSL (Secure Socket Layer)$B$NMxMQ(B
+
+Wanderlust $B$G$O!"(BSMTP, IMAP, NNTP, POP $B$N%3%M%/%7%g%s$K$*$$$F!"(B
+SSL (Secure Socket Layer) $B$rMQ$$$k$3$H$,$G$-$^$9!#(B
+SSL $B$NMxMQ7ABV$K$O(B2$B<oN`$"$j!"%3%M%/%7%g%s$HF1;~$K(B
+SSL negotiation $B$r;O$a$k$b$N$H!"(B starttls command $B$N8e$K!"(B
+SSL negotiation $B$r;O$a$k$b$N$,$"$j$^$9!#(B
+$BDL>o$N(B SSL $B$rMxMQ$9$k$K$O(B $BK\%Q%C%1!<%8$N(B @file{utils} $B%G%#%l%/%H%j$K$"$k(B
+@file{ssl.el} $B$r%$%s%9%H!<%k$9$kI,MW$,$"$j$^$9!#(B
+$B$J$*$+$D!"(BOpenSSL $B$K4^$^$l$k(B openssl $B$K%Q%9$,DL$C$F$$$kI,MW$,$"$j$^$9!#(B
+STARTTLS $B$rMxMQ$9$k$K$O!"$5$i$K!"(Bstarttls $B%Q%C%1!<%8$r%$%s%9%H!<%k(B
+$B$9$kI,MW$,$"$j$^$9!#(B
+starttls $B%Q%C%1!<%8$O0J2<$N>l=j$+$iF~<j$G$-$^$9!#(B
+
+@example
+ftp://opaopa.org/pub/elisp/
+@end example
+
+@node Install, Minimal Settings, Download, Start Me Up
+@section $B%P%$%H%3%s%Q%$%k$H%$%s%9%H!<%k(B
+@cindex Bytecompile
+@cindex Compile
+@cindex Install
+@cindex Makefile
+@cindex Make
+
+@subsection $BDL>o$N%$%s%9%H!<%k(B
+
+@file{Makefile} $B$O(B @code{LISPDIR}, @code{EMACS} $B$N$"$?$j$rJT=8$7$^$9!#(B
+@code{LISPDIR} $B$K$O%Q%C%1!<%8$N%$%s%9%H!<%k@h!"(B
+@code{EMACS} $B$K$OMxMQ$9$k(B Emacs $B$N%3%^%s%IL>$r;XDj$7$^$9!#(B
+
+@example
+% make
+% make install
+@end example
+
+@file{Makefile} $BCf$N(B @code{LISPDIR} $B$rJQ99$;$:!"(B
+$B$=$N$^$^(B(@samp{NONE} $B$N$^$^$G$b(B)$B%$%s%9%H!<%k$7$?>l9g!"(B
+$B<+F0E*$K%$%s%9%H!<%k@h$rE,Ev$K8!=P$7$^$9!#(B
+$B<B:]$N%$%s%9%H!<%k@h$K$D$$$F$O8e=R$7$^$9!#(B
+
+Mule 2.3 $B$J$I!"(B@file{subdirs.el} $B$,L5$/!"(Bload-path $B$K%5%V%G%#%l%/%H%j$,(B
+$B<+F0E*$K2C$o$i$J$$(B Emacs $B$G$O!"(B
+
+@example
+Cannot open load file: mime-setup
+@end example
+
+@noindent
+$B$H$$$&%(%i!<$,=P$k$3$H$,$"$j$^$9!#$3$N>l9g$O!"(B
+custom, apel, flim, semi $B$N%$%s%9%H!<%k@h$r4D6-JQ?t(B @code{EMACSLOADPATH}
+$B$K2C$($k$+!"E83+%G%#%l%/%H%j$N(B @file{WL-CFG} $B$H$$$&%U%!%$%kCf$G(B
+load-path $B$rDL$7$F$*$/$H$h$$$G$7$g$&!#(B
+
+$B$^$?!"(BBBDB $B$rMxMQ$7$?$$>l9g!"(BBBDB $B$X$b(B load-path $B$rDL$7$F$*$/$HI,MW$J%b(B
+$B%8%e!<%k$,%P%$%H%3%s%Q%$%k(B/$B%$%s%9%H!<%k$5$l$^$9!#(B
+@xref{BBDB}.
+
+@subsection WL-CFG
+
+@file{WL-CFG} $B$H$$$&%U%!%$%k$,E83+%G%#%l%/%H%j$KB8:_$9$k$H!"(B
+$B%$%s%9%H!<%k;~$K(B load $B$5$l$k$h$&$K$J$C$F$$$^$9!#(B
+$B%$%s%9%H!<%k$G(B SEMI $BEy$N(B load-path $B$N@_Dj$,I,MW$G$"$l$P!"(B
+@file{WL-CFG} $B$K@_Dj$7$F$/$@$5$$!#(B
+
+$B%$%s%9%H!<%k@h$O(B @file{Makefile}$BCf$N(B @code{LISPDIR} $B$G;XDj$7$^$9$,!"(B
+$B<B:]$K(B @file{*.el}, @file{*.elc} $B$,F~$k%G%#%l%/%H%j(B
+(@code{LISPDIR} $B$+$i$NAjBP%Q%9(B)$B$O(B
+ @file{WL-CFG} $BCf$NJQ?t(B @code{WL_PREFIX}, @code{ELMO_PREFIX} $B$G;XDj$7$^$9!#(B
+
+@table @code
+@item WL_PREFIX
+WL $B%b%8%e!<%k$r%$%s%9%H!<%k$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
+$B$3$l$O(B @code{LISPDIR} $B$+$i$NAjBP%Q%9$G$9!#(B
+WL $B%b%8%e!<%k$K$O%U%!%$%k(B @file{wl*.el} @file{wl*.elc} $B$,4^$^$l$^$9!#(B
+@c  $BI,MW$K1~$8$F(B @file{util/} $B0J2<$N%U%!%$%k$b%$%s%9%H!<%k$5$l$^$9!#(B
+
+@item ELMO_PREFIX
+ELMO $B%b%8%e!<%k$r%$%s%9%H!<%k$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
+$B$3$l$O(B  @code{LISPDIR} $B$+$i$NAjBP%Q%9$G$9!#(B
+ELMO $B%b%8%e!<%k$K$O%U%!%$%k(B @file{elmo*.el} @file{elmo*.elc} $B$,4^$^$l$^$9!#(B
+@c  @file{utf7.el}, @file{utf7.elc} $B$b(B ELMO $B%b%8%e!<%k$K4^$^$l$^$9!#(B
+@end table
+  
+@noindent
+@code{WL_PREFIX}, @code{ELMO_PREFIX}
+ $B$N%G%U%)%k%H$O$$$:$l$b(B @file{wl} $B$G$9!#(B
+
+@file{elmo*} (ELMO $B%b%8%e!<%k(B) $B$O(B @file{elmo} $BG[2<$K%$%s%9%H!<%k$7$?$1$l$P!"(B
+
+@lisp
+(setq ELMO_PREFIX "elmo")
+@end lisp
+
+@noindent
+$B$H$7$^$9!#(B
+
+@subsection XEmacs package $B$H$7$F%$%s%9%H!<%k(B
+@cindex XEmacs package
+@cindex XEmacs package install
+@cindex Package, XEmacs
+@cindex Package install, XEmacs
+@c @cindex install-package
+
+Wanderlust $B$O(B XEmacs (21.0 $B!A(B) $B$N(B package $B$N$R$H$D$H$7$F%$%s%9%H!<%k$9$k(B
+$B$3$H$b2DG=$G$9!#(Bpackage $B$H$7$F%$%s%9%H!<%k$9$k$H!"(Bautoload $B$N@_Dj!"(B
+$B%"%$%3%s$N%Q%9@_Dj$r8D?M$N(B @file{.emacs} $B$K5-=R$7$J$/$F$b(B Wanderlust
+$B$r@5>o$K5/F0$G$-$k$h$&$K$J$j$^$9!#(B
+
+XEmacs $B$N(B package $B$H$7$F%$%s%9%H!<%k$9$k$K$O0J2<$N$h$&$K$7$^$9!#(B
+
+@example
+% vi Makefile
+% make package
+% make install-package
+@end example
+
+package $B$N%G%#%l%/%H%j$O(B SEMI $B$,%$%s%9%H!<%k$5$l$F$$$l$P<+F08!=P$5$l$^$9!#(B
+(@file{Makefile} $BCf$N(B PACKAGEDIR $B$G$b@_Dj2D(B)
+
+@subsection $B%$%s%9%H!<%k$7$J$$$GMxMQ(B
+
+Wanderlust $B$O%P%$%H%3%s%Q%$%k!"%$%s%9%H!<%k$7$J$/$F$b!"(B
+wl, elmo $B$N%G%#%l%/%H%j$K(B load-path $B$,@_Dj$5$l$F$$$l$P5/F0$9$k$3$H$,$G$-$^$9!#(B
+$BNc$($P(B @file{~/work} $B$K%Q%C%1!<%8$rE83+$7$?>l9g!"(B
+@file{.emacs} $B$K0J2<$N@_Dj$r$9$k$H5/F0$G$-$^$9!#(B
+
+@lisp
+(add-to-list 'load-path "~/work/wl-(@var{version})")
+(add-to-list 'load-path "~/work/wl-(@var{version})/elmo")
+@end lisp
+
+@subsection $B%^%K%e%"%k$K$D$$$F(B
+
+$B%^%K%e%"%k$O(B Info $B7A<0$G$9!#(B
+$B%$%s%9%H!<%k$9$k$K$O2<5-$r<B9T$7$F$/$@$5$$!#(B
+
+@example
+% make info
+% make install-info
+@end example
+
+XEmacs $B$N(B package $B$H$7$F%$%s%9%H!<%k$7$?>l9g$O<+F0E*$K(B Info $B%U%!%$%k$b(B
+$B%$%s%9%H!<%k$5$l$k$N$G$3$l$i$NA`:n$OI,MW$"$j$^$;$s!#(B
+
+$B$^$?!"2<5-$K$b%^%K%e%"%k$,$"$j$^$9!#(B
+
+@example
+http://www.gohome.org/wl/doc/wl-euc_toc.html
+@end example
+
+
+@node Minimal Settings, Mail Addresses, Install, Start Me Up
+@section .emacs $B$N@_Dj(B
+@cindex Minimal Settings
+@cindex Settings
+@cindex Configuration
+@cindex .emacs
+@cindex .wl
+
+Wanderlust $B$N%Q%C%1!<%8$K$OBg$-$/J,$1$FFs$D$N%b%8%e!<%k72$,4^$^$l$F$$$^$9!#(B
+
+@table @samp
+@item ELMO (elmo-*.el)
+$B$9$Y$F$r%U%)%k%@$K8+$;$k%b%8%e!<%k72$G$9!#(BWanderlust $B$N%P%C%/%(%s%I$G$9!#(B
+@item WL (wl-*.el)
+Wanderlust $BK\BN$NF0:n$r7h$a$k%b%8%e!<%k72$G$9!#(BELMO $B$N%U%m%s%H%(%s%I$G$9!#(B
+@end table
+
+$B%f!<%6$O(B @code{elmo-*}, @code{wl-*} $B$G;O$^$kJQ?t$N@_Dj$rJQ$($k$3$H$K$h$C$F(B
+Wanderlust $B$NF0:n$r%+%9%?%^%$%:$G$-$^$9!#(B
+
+$B:GDc8BI,MW$J@_Dj$O0J2<$NDL$j$G$9!#(B
+
+@lisp
+;; @r{SEMI/tm $B$r;H$&$?$a$N@_Dj(B}
+(load "mime-setup")
+
+;; @r{autoload $B$N@_Dj(B}
+;; @r{(XEmacs $B$N(B package $B$H$7$F%$%s%9%H!<%k$5$l$F$$$k>l9g!"I,MW$"$j$^$;$s(B)}
+(autoload 'wl "wl" "Wanderlust" t)
+(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
+
+;; @r{$B%"%$%3%s$rCV$/%G%#%l%/%H%j(B (XEmacs $B$N$_(B)$B!#=i4|@_Dj$O(B nil$B!#(B}
+;; @r{(XEmacs $B$N(B package $B$H$7$F%$%s%9%H!<%k$5$l$F$$$k>l9g!"I,MW$"$j$^$;$s(B)}
+(setq wl-icon-dir "~/work/wl/etc")
+
+;; @r{$B%a!<%k$rAw?.$9$k(B SMTP $B%5!<%P!#(B $B=i4|@_Dj$O(B "localhost"$B!#(B}
+(setq wl-smtp-posting-server "your.smtp.server.com")
+;; @r{$B%K%e!<%9Ej9FMQ$N(B NNTP $B%5!<%P!#(B $B=i4|@_Dj$O(B nil$B!#(B}
+(setq wl-nntp-posting-server "your.nntp.server.com")
+@end lisp
+
+Wanderlust $B5/F08e!"(B@file{~/.wl} $B$,B8:_$9$l$P%m!<%I$5$l$^$9$N$G!"(BWanderlust $B$K(B
+$B8GM-$N@_Dj$O(B @file{~/.wl} $B$K5-=R$7$F$*$1$P@0M}$7$d$9$$$G$7$g$&!#(B
+face $B$N@_Dj$O(B @file{.emacs} $B$K=q$/$3$H$O$G$-$J$$$N$G(B
+@file{~/.wl} $B$K=q$$$F$/$@$5$$!#(B
+@xref{Highlights}.
+
+($B>e5-$N$&$A!"(B@samp{(load "mime-setup")} $B0J30$O(B @file{~/.wl} $B$K5-=R$G$-$^$9!#(B)
+
+@subsection mail-user-agent
+@cindex Default Mailer
+@cindex Mailer, Default
+@vindex mail-user-agent
+@findex compose-mail
+
+$B0J2<$N$h$&$J@_Dj$r(B @file{.emacs} $BEy$K$7$F$*$/$H!"(B@kbd{C-x m}
+(@code{compose-mail}) $BEy$K$h$C$F(B Wanderlust $B$N%I%i%U%H%b!<%I$,5/F0$5$l$k(B
+$B$h$&$K$J$j$^$9!#(BWanderlust $B$r(B Emacs $B>e$NI8=`%a!<%i$H$7$F;H$$$?$$>l9g$O(B
+$B@_Dj$7$F$*$/$H$h$$$G$7$g$&!#(B
+$B$?$@$7!"$3$l$O(B @code{mail-user-agent} $B$NDj5A$,2DG=$J(B Emacs $B$N>l9g$N$_M-8z$G$9!#(B
+@c @xref{Mail Methods, , ,emacs}.
+
+@lisp
+(autoload 'wl-user-agent-compose "wl-draft" nil t)
+(if (boundp 'mail-user-agent)
+    (setq mail-user-agent 'wl-user-agent))
+(if (fboundp 'define-mail-user-agent)
+    (define-mail-user-agent
+      'wl-user-agent
+      'wl-user-agent-compose
+      'wl-draft-send
+      'wl-draft-kill
+      'mail-send-hook))
+@end lisp
+
+
+@node Mail Addresses, Folder Definition, Minimal Settings, Start Me Up
+@section $B%"%I%l%9D"$NDj5A(B
+@cindex Address book Definition
+@cindex .addresses
+@cindex Alias, Address
+
+$B%"%I%l%9%U%!%$%k(B @file{~/.addresses} $B$r:n@.$7!"<+J,MQ$KJT=8$7$^$9!#(B
+
+@file{~/.addresses} $B$K=q$+$l$?%G!<%?$O!"%I%i%U%H:n@.;~$N%"%I%l%9Jd40%G!<%?$H$7$F(B
+$BMxMQ$5$l$k$[$+!"%5%^%jI=<($G$NL>A0I=<(Ey$K$bMQ$$$i$l$^$9!#(B
+$B%"%I%l%9Jd40$d%5%^%j$NI=<($K6E$kI,MW$,$J$$>l9g$O!"$3$N9`$OHt$P$7$F$b9=$$$^$;$s!#(B
+$B$^$?!"5/F0$7$?$"$H$G%5%^%j$N%P%C%U%!$+$i(B @file{~/.addresses} $B$K%"%I%l%9$r(B
+$BDI2C(B/$BJQ99(B/$B:o=|$9$k$3$H$b2DG=$G$9!#(B
+
+$B=q$-J}$O$H$F$bC1=c$G$9!#$3$s$J$+$s$8$G$9!#(B
+
+@example
+#
+# @r{@samp{#} $B$G;O$^$k9T$O%3%a%s%H!#(B}
+# @r{$B6u9T$OL5;k!#(B}
+#
+# @r{$B%a!<%k%"%I%l%9(B  ``$B$"$@L>(B'' ``$BK\L>(B''}
+#
+teranisi@@gohome.org            "$B$F$i$K$7(B"      "$B;{@>M50l(B"
+foo@@bar.gohome.org             "Foo $B$5$s(B"      "John Foo"
+bar@@foo.gohome.org             "Bar $B$5$s(B"      "Michael Bar"
+@end example
+
+@noindent
+$B0l9T$,0l?MJ,$NDj5A$G$9!#(B
+
+$B<B:]$K$O(B($B%G%U%)%k%H@_Dj$G$O(B)$B%5%^%jI=<($G(B``$B$"$@L>(B''$B!"(B
+$B%I%i%U%H:n@.;~$N%"%I%l%9>pJs$H$7$F(B``$BK\L>(B''$B$,$D$+$o$l$^$9!#(B
+$B;n$7$F$_$F!"3NG'$7$F$+$i$NJ}$,$o$+$j$d$9$$$H;W$o$l$^$9!#(B
+$B$A$g$C$H=q$$$F;n$7$F$_$F$+$i!"$^$?%"%I%l%9D"$NDj5A$r$d$j$J$*$9$N$,$h$$$G$7$g$&!#(B
+
+$B$^$?!"JQ?t(B @code{wl-alias-file} $B$N%U%!%$%k$K(B MH $B$N(B alias file $B$,;XDj$5$l$F(B
+$B$$$l$P!"%I%i%U%H:n@.;~$N%"%I%l%9>pJs$H$7$F;H$o$l$^$9!#(B
+
+
+@node Folder Definition, Start Wanderlust, Mail Addresses, Start Me Up
+@section $B9XFI$9$k%U%)%k%@$NDj5A(B
+@cindex Folder Definition
+@cindex .folders
+
+$B9XFI$9$k%U%)%k%@$r%U%!%$%k(B @file{~/.folders} $B$KDj5A$7$^$9!#(B
+@file{~/.folders} $B$K=q$+$l$?FbMF$,$=$N$^$^$"$J$?$N9XFI$9$k%U%)%k%@$H$J$j$^$9!#(B
+
+$B5/F0$7$?$"$H$G%U%)%k%@0lMw$N%P%C%U%!$+$i9XFI%U%)%k%@$rDI2C(B/$BJT=8$9$k$3$H(B
+$B$b2DG=$G$9$N$G!"$3$N9`$OHt$P$7$F$b9=$$$^$;$s!#(B
+
+@file{~/.folders} $B$N=q$-J}$O$H$F$bC1=c$G$9!#$3$s$J$+$s$8$G$9!#(B
+
+@example
+#
+# @r{@samp{#} $B$G;O$^$k9T$O%3%a%s%H!#(B}
+# @r{$B6u9T$OL5;k!#(B}
+#
+# @r{$B%U%)%k%@(B}  "@r{$B$"$@L>(B}"
+# @r{($B$"$@L>$OL5$/$F$b$h$$(B)}
+#
+%inbox  "$B<u?.H"(B"
++trash  "$B%4%_H"(B"
++draft  "$BAp9F(B"
+%#mh/Backup@@my.imap.server.com "$BAw?.:Q$_(B"
+# $B%0%k!<%W$NDj5A(B
+Emacsen@{
+    %#mh/spool/wl            "Wanderlust ML"
+    %#mh/spool/elips         "ELIPS ML"
+    %#mh/spool/tm-ja         "tm ($BF|K\8l(B) ML"
+    %#mh/spool/xemacs-beta   "XEmacs $B%Y!<%?(B"
+    -fj.news.reader.gnus@@other.nntp.server.com
+    *-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs "fj $B$N(B Emacsen"
+@}
+#
+# @r{$B9TKv$K(B @samp{/} $B$,$D$/$H!"$=$N%U%)%k%@$K4^$^$l$k%5%V%U%)%k%@A4$F$,(B}
+# @r{$B$R$H$D$N%0%k!<%W$H$J$k!#(B}
+#
+%#mh/expire@@localhost /
+# @r{MH $B$N%U%)%k%@A4$F$r$R$H$D$N%0%k!<%W$K$9$kNc!#(B}
++ /
+@end example
+
+$B0l9T$K$R$H$D!"FI$_$?$$%U%)%k%@$r=q$-$^$9!#(B
+$B3F%U%)%k%@$NDj5A$K$D$$$F$O<!$N>O$G>\$7$/@bL@$7$^$9!#(B
+
+@samp{@var{$B%0%k!<%WL>(B}@{} $B$H(B @samp{@}} $B$G0O$^$l$?ItJ,$O0l$D$N%0%k!<%W$H$J$j$^$9!#(B
+$B$R$H$D$N%0%k!<%W$O%U%)%k%@%b!<%I$G$O3+JD$G$-$k%G%#%l%/%H%j$N$h$&$K8+$($^$9!#(B
+$B$$$/$D$+$N%U%)%k%@$r$^$H$a$F@0M}$9$k$N$KJXMx$G$9!#(B
+
+$BCm0U$9$Y$-$J$N$O!"(B@samp{@var{$B%0%k!<%WL>(B}@{} $B$H(B @samp{@}} $B$O#19T$r@jNN$7$F=q$/(B
+$BI,MW$,$"$k$3$H$G$9(B($B$3$l$O%Q!<%5$,%@%5$$$+$i$G$9(B)$B!#(B
+
+$B%0%k!<%W$K$O!"#2$D$N<oN`$,$"$j$^$9!#0l$D$O!">e$NNc$N(B @samp{Emacsen} $B$N$h$&$K(B
+$BD>@\<+J,$G9%$-$J%U%)%k%@$r%0%k!<%W$H$7$FDj5A$9$k%?%$%W$G$9!#(B
+
+$B$b$&0l$D$O!">e$NNc$N(B @samp{+} $B$N$h$&$J(B @dfn{$B%"%/%;%9%0%k!<%W(B} $B$G$9!#(B
+$B$3$l$O!"$"$k%U%)%k%@$K4^$^$l$k%5%V%U%)%k%@A4$F$r0l$D$N%0%k!<%W$H$9$k$b$N$G$9!#(B
+($B$3$l$O%U%)%k%@$N%?%$%W$K$h$C$F0c$$$^$9!#Nc$($P(B @samp{+} $B$J$i(B
+ MH $B$N%5%V%G%#%l%/%H%j$9$Y$F$,$R$H$D$N%0%k!<%W$H$J$j$^$9!#(B)
+
+$B<B:]$K;n$7$F$_$F!"3NG'$7$F$+$i$NJ}$,$o$+$j$d$9$$$H;W$o$l$^$9!#(B
+$B$A$g$C$H=q$$$F;n$7$F$_$F$+$i!"$^$?%U%)%k%@$NDj5A$r$d$j$J$*$9$N$,$h$$$G$7$g$&!#(B
+
+
+@node Start Wanderlust,  , Folder Definition, Start Me Up
+@section Wanderlust $B$N5/F0(B
+@cindex Start Wanderlust
+
+$B%$%s%9%H!<%k!"$*$h$S@_Dj$,$&$^$/$$$C$F$$$l$P!"(B
+
+@example
+M-x wl
+@end example
+
+@noindent
+$B$G5/F0$G$-$^$9!#(B
+$B=i4|2=$N$N$A!"%U%)%k%@0lMw$rI=<($9$k%U%)%k%@%b!<%I$,$"$i$o$l$^$9!#(B
+
+@kbd{C-u M-x wl} $B$N$h$&$K(B prefix argument $B$D$-$G<B9T$9$k$H!"(B
+$B%U%)%k%@$N%A%'%C%/$r>JN,$7$F5/F0$7$^$9!#(B
+
+
+@c
+@c  Folders
+@c
+@node Folders, Folder, Start Me Up, Top
+@chapter Wanderlust $B$G07$($k%U%)%k%@$?$A(B
+@cindex Folder Type
+
+$B0J2<$G$O(B Wanderlust $B$G07$($k%U%)%k%@$K$D$$$F@bL@$7$^$9!#(B
+
+Wanderlust $B$O(B ELMO $B$N%$%s%?%U%'!<%9$rMxMQ$7$F$$$k$?$a!"(BELMO $B%b%8%e!<%k$K(B
+$B$h$C$F%5%]!<%H$5$l$F$$$l$P!"$I$s$J%U%)%k%@$G$bMxMQ$9$k$3$H$,$G$-$^$9!#(B
+
+$B%P!<%8%g%s(B @value{version} $B8=:_!"MQ0U$5$l$F$$$k%U%)%k%@$N<oN`$O!"(B
+IMAP, NNTP, LocalDir(MH), Maildir, News Spool, POP, Archive, 
+Multi, Filter, Pipe, Internal $B$N(B 10 $B<oN`$G$9!#(B
+
+@menu
+* IMAP Folder::              @samp{%} -- IMAP $B%U%)%k%@(B
+* NNTP Folder::              @samp{-} -- NNTP $B%U%)%k%@(B
+* MH Folder::                @samp{+} -- MH $B%U%)%k%@(B
+* Maildir Folder::           @samp{.} -- Maildir $B%U%)%k%@(B
+* News Spool Folder::        @samp{=} -- News Spool $B%U%)%k%@(B
+* Archive Folder::           @samp{$} -- $B%"!<%+%$%V%U%)%k%@(B
+* POP Folder::               @samp{&} -- POP $B%U%)%k%@(B
+* Multi Folder::             @samp{*} -- $B%^%k%A%U%)%k%@(B
+* Filter Folder::            @samp{/} -- $B%U%#%k%?%U%)%k%@(B
+* Pipe Folder::              @samp{|} -- $B%Q%$%W%U%)%k%@(B
+* Internal Folder::          @samp{'} -- $BFbIt%U%)%k%@(B
+@end menu
+
+
+@node IMAP Folder, NNTP Folder, Folders, Folders
+@section IMAP $B%U%)%k%@(B
+@cindex IMAP Folder
+@cindex @samp{%}
+@cindex RFC 2060
+@cindex IMAP4rev1
+
+RFC 2060 $B$G5,Dj$5$l$?(B IMAP4rev1 $B$rMxMQ$7$F%a!<%k$rFI$`$?$a$N%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '%' '$B%a!<%k%\%C%/%9L>(B'[':' '$B%f!<%6L>(B' ['/' '$BG'>ZK!(B']]['@@' '$B%[%9%HL>(B'][':' '$B%]!<%HHV9f(B']['!']
+
+$BG'>ZK!$K$O(B "auth" ($B%(%s%3!<%I$7$F%Q%9%o!<%I$rAw?.(B)$B$+(B
+           "cram-md5" (cram-md5$B$K$h$kG'>Z(B)$B$+(B
+           "login" ($B@8%Q%9%o!<%I$rAw?.(B) $B$N$$$:$l$+$r;XDj!#(B
+
+(cram-md5 $B$K$h$kG'>Z$r9T$J$&$K$O(B $BK\%Q%C%1!<%8$N(B utils/sasl/ $B$r%$%s%9%H!<%k$9$k(B
+$BI,MW$,$"$j$^$9!#(B)
+
+default $BCM(B:
+
+$B%f!<%6L>(B  -> $BJQ?t(B @code{elmo-default-imap4-user} $B$NCM!#(B
+             $B=i4|@_Dj$O(B $B4D6-JQ?t(B USER $B$+!"(BLOGNAME $B$+!"(B(user-login-name) $B$NJV$jCM!#(B
+$BG'>ZK!(B    -> $BJQ?t(B @code{elmo-default-imap4-authenticate-type} $B$NCM!#(B
+             $B=i4|@_Dj$O(B "auth"$B!#(B
+$B%[%9%HL>(B  -> $BJQ?t(B @code{elmo-default-imap4-server} $B$NCM!#(B
+             $B=i4|@_Dj$O(B "localhost"$B!#(B
+$B%]!<%HHV9f(B-> $BJQ?t(B @code{elmo-default-imap4-port} $B$NCM!#(B
+             $B=i4|@_Dj$O(B "143"$B!#(B
+
+$B%a%$%s$G;HMQ$9$k(B IMAP $B%5!<%P$rJQ?t(B @code{elmo-default-imap4-server} 
+$B$K;XDj$9$k$H!"$$$A$$$A%U%)%k%@L>$K%[%9%HL>$r=q$+$:$K$9$_$^$9!#Nc$($P%U%!(B
+$B%$%"%&%)!<%k$r1[$($J$1$l$P$J$i$J$$>l9g$G$b(B @samp{foo%imap@@geteway} $B$N$h(B
+$B$&$K;XDj$G$-$^$9!#(B
+
+$B%U%)%k%@L>$N:G8e$K(B '!' $B$,IU$$$F$$$k$H!"(BSSL (Secure Socket Layer)$B$r(B
+$BMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#(B'!!' $B$@$H!"(BSTARTTLS$B$K$h$j(B
+SSL$B%3%M%/%7%g%s$rD%$j$^$9!#(B
+$BJQ?t(B @code{elmo-default-imap4-ssl} $B$NCM$,(B non-nil $B$J$i!"(B'!' $B$rIU$1(B
+$B$J$/$F$b(B SSL $B$r;H$$$^$9!#(B'starttls $B$J$i(B '!!' $B$r0UL#$7$^$9!#(B
+
+(SSL $B$rMxMQ$9$k$K$O(B $BK\%Q%C%1!<%8$N(B utils/ssl.el $B$r%$%s%9%H!<%k$9$k(B
+$BI,MW$,$"$j$^$9!#$J$*$+$D!"(BOpenSSL$B$K4^$^$l$k(Bopenssl$B$K%Q%9$,DL$C$F$$$k(B
+$BI,MW$,$"$j$^$9!#(B
+STARTTLS $B$rMxMQ$9$k$K$O!"$5$i$K!"(Bstarttls$B%Q%C%1!<%8$r%$%s%9%H!<%k(B
+$B$9$kI,MW$,$"$j$^$9!#(B)
+
+$BG'>ZK!$H$7$F!"(B"auth" $B$b$7$/$O(B "cram-md5" $B$r;XDj$7$?>l9g!"%Q%9%o!<%I$r(B
+$B%(%s%3!<%I$7$FAw?.$7$^$9!#$?$@$7!"%5!<%PB&$,%Q%9%o!<%I$r%(%s%3!<%I$7$F(B
+$B<u$1<h$kG=NO$,L5$$>l9g$O!"3NG'$N$N$A!"(B"login" ($B@8%Q%9%o!<%I$rAw$k(B) 
+$B$K@ZBX$($^$9!#JQ?t(B @code{elmo-imap4-force-login} $B$,(B non-nil $B$J$i$P!"(B
+$B3NG'L5$7$K(B "login" $B$K@ZBX$($^$9(B($B=i4|@_Dj$O(B nil)$B!#(B
+
+$BNc(B: %inbox     -> IMAP $B$N%a!<%k%\%C%/%9!"(B"inbox"
+    %#mh/inbox -> IMAP $B$N%a!<%k%\%C%/%9!"(B"#mh/inbox"
+
+    %inbox:hoge -> IMAP $B$N%a!<%k%\%C%/%9!"(B"inbox" $B$X%f!<%6(B "hoge" $B$G%"%/%;%9!#(B
+    %inbox:hoge/login@@server1
+                -> server1 $B>e$N(B IMAP $B$N%a!<%k%\%C%/%9(B "inbox" $B$X(B
+                   $B%f!<%6(B "hoge" $B$G!"@8%Q%9%o!<%I$rAw$C$F(B("login"$B$G(B)
+                   $B%"%/%;%9!#(B
+@end example
+
+@subsection $BF|K\8l%a!<%k%\%C%/%9L>$N07$$(B(Modified UTF7)
+
+$B;HMQ$7$F$$$k(B Emacs $B$,%f%K%3!<%I$KBP1~$7$F$*$j!$$+$D!"JQ?t(B 
+@code{elmo-imap4-use-modified-utf7} $B$K(B non-nil $B$NCM$r@_Dj$7$F$$$k>l9g(B($B%G(B
+$B%U%)%k%H$O(B nil)$B!"F|K\8l(B($B$d$=$NB>$N1Q8l0J30$N8@8l(B)$B$G%a!<%k%\%C%/%9L>$r(B
+$B;XDj$9$k$3$H$,$G$-$^$9!#(B
+
+$B%f%K%3!<%I$r07$($k(B Emacs $B$K$O0J2<$,$"$j$^$9!#(B
+
+@itemize @bullet
+@item Emacs 20.3 $B0J9_(B + Mule-UCS
+
+Emacs 20 $B$G$O!"(BMule-UCS $B$,%$%s%9%H!<%k$5$l$F$$$l$P%f%K%3!<%I$r07$($^$9!#(B
+Mule-UCS $B$O0J2<$N(B URL $B$+$iF~<j2DG=$G$9!#(B
+
+@example
+ftp://ftp.m17n.org/pub/mule/Mule-UCS/
+@end example
+
+@item XEmacs 21.2.13 $B0J9_(B
+
+$B8=>u!"(BXEmacs 21.2 $B$G%f%K%3!<%I(B(UTF-8)$B$r07$&$K$O!"(Bucs-conv $B%Q%C%1!<%8$,I,(B
+$BMW$G$9!#(Bucs-conv $B$O0J2<$N(B anonymous cvs $B7PM3$GF~<j2DG=$G$9!#(B
+
+@example
+:pserver:anonymous@@cvs.m17n.org:/cvs/root
+Password: NULL ($B2~9T$rF~NO(B)
+@end example
+
+$B$^$?!$(BXEmacs $B$GF|K\8l%U%)%k%@L>$r07$&$K$O!"$5$i$K!"%3%^%s%I(B u7tou8,
+u8tou7 $B$,%$%s%9%H!<%k$5$l$F$$$kI,MW$,$"$j$^$9!#$3$l$i$N%3%^%s%I$O0J2<$+(B
+$B$iF~<j$G$-$k(B UTF7 $B%Q%C%1!<%8$K4^$^$l$F$$$^$9!#(B
+
+@example
+ftp://ftp.ifcss.org/pub/software/unix/convert/utf7.tar.gz
+@end example
+
+@end itemize
+
+@node NNTP Folder, MH Folder, IMAP Folder, Folders
+@section NNTP $B%U%)%k%@(B
+@cindex NNTP Folder
+@cindex @samp{-}
+
+$B%M%C%H%K%e!<%9$rFI$`$?$a$N%U%)%k%@$G$9!#(B
+$B0l$D$N%K%e!<%9%0%k!<%W$,0l$D$N%U%)%k%@$H$7$F07$o$l$^$9!#(B
+
+@example
+$B=q<0(B: '-' '$B%K%e!<%9%0%k!<%WL>(B'[[':' '$B%f!<%6L>(B']['@@' '$B%[%9%HL>(B'][':' '$B%]!<%HHV9f(B']]['!']
+
+default $BCM(B:
+$B%[%9%HL>(B  -> $BJQ?t(B @code{elmo-default-nntp-server} $B$NCM!#=i4|@_Dj$O(B "localhost"$B!#(B
+$B%f!<%6L>(B  -> $BJQ?t(B @code{elmo-default-nntp-user} $B$NCM!#=i4|@_Dj$O(B nil$B!#(B
+$B%]!<%HHV9f(B-> $BJQ?t(B @code{elmo-default-nntp-port} $B$NCM!#(B
+             $B=i4|@_Dj$O(B 119$B!#(B
+
+$B%f!<%6L>$,(B non-nil $B$N>l9g$O(BAUTHINFO$B$K$h$kG'>Z$r9T$J$$$^$9!#(B
+$B%U%)%k%@L>$N:G8e$K(B '!' $B$,IU$$$F$$$k$H!"(BSSL $B$rMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#(B
+'!!' $B$@$H!"(BSTARTTLS$B$K$h$j(BSSL$B%3%M%/%7%g%s$rD%$j$^$9!#(B
+$BJQ?t(B @code{elmo-default-nntp-ssl} $B$NCM$,(B non-nil $B$J$i!"(B'!' $B$rIU$1(B
+$B$J$/$F$b(B SSL $B$r;H$$$^$9!#(B'starttls $B$J$i(B '!!' $B$r0UL#$7$^$9!#(B
+(SSL $B$rMxMQ$9$k$K$O(B $BK\%Q%C%1!<%8$N(B utils/ssl.el $B$r%$%s%9%H!<%k$9$k(B
+$BI,MW$,$"$j$^$9!#$J$*$+$D!"(BOpenSSL$B$K4^$^$l$k(Bopenssl$B$K%Q%9$,DL$C$F$$$k(B
+$BI,MW$,$"$j$^$9!#(B
+STARTTLS $B$rMxMQ$9$k$K$O!"$5$i$K!"(Bstarttls$B%Q%C%1!<%8$r%$%s%9%H!<%k(B
+$B$9$kI,MW$,$"$j$^$9!#(B)
+
+
+$BNc(B: -fj.rec.tv            -> $B%K%e!<%9%0%k!<%W!"(Bfj.rec.tv$B!#(B
+    -fj.rec.tv@@newsserver -> newsserver $B>e$N%K%e!<%9%0%k!<%W!"(Bfj.rec.tv$B!#(B
+@end example
+
+
+@node MH Folder, Maildir Folder, NNTP Folder, Folders
+@section MH $B%U%)%k%@(B
+@cindex MH Folder
+@cindex @samp{+}
+@pindex MH
+@cindex Maildir
+
+MH $B7A<0(B(1$B%U%!%$%k(B1$B%a!<%k(B)$B$GJ]B8$5$l$?%a!<%k$rFI$`$?$a$N%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '+' '$B%G%#%l%/%H%jL>(B'
+
+$B%G%#%l%/%H%jL>$O!"DL>o!"JQ?t(B @code{elmo-localdir-folder-path}
+($B=i4|@_Dj$O(B @file{~/Mail}) $B$+$i$NAjBP%Q%9$G$9$,!"(B
+@samp{/} $B$d(B @samp{~} $B$G;O$^$C$F$$$l$P@dBP%Q%9$H8+Pv$7$^$9(B
+($B%I%i%$%V%l%?!<$bF1MM$G$9(B)$B!#(B
+
+$B%a%C%;!<%8$,J]B8$5$l$k%U%!%$%k$N%U%!%$%kL>$K$O!"%a%C%;!<%8HV9f$,;HMQ$5$l$^$9!#(B
+
+$BNc(B: +inbox         -> "~/Mail/inbox"
+    +from/teranisi -> "~/Mail/from/teranisi"
+    +~/test        -> "~/test"
+@end example
+
+@node Maildir Folder, News Spool Folder, MH Folder, Folders
+@section Maildir $B%U%)%k%@(B
+@cindex Maildir Folder
+@cindex @samp{.}
+@pindex Maildir
+
+Maildir $B7A<0(B(1$B%U%!%$%k(B1$B%a!<%k(B)$B$GJ]B8$5$l$?%a!<%k$rFI$`$?$a$N%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '.' '$B%G%#%l%/%H%jL>(B'
+
+$B%G%#%l%/%H%jL>$O!"DL>o!"JQ?t(B @code{elmo-maildir-folder-path} ($B=i4|@_Dj$O(B 
+@file{~/Maildir}) $B$+$i$NAjBP%Q%9$G$9$,!"(B@samp{/} $B$d(B @samp{~} $B$G;O$^$C$F(B
+$B$$$l$P@dBP%Q%9$H8+Pv$7$^$9(B($B%I%i%$%V%l%?!<$bF1MM$G$9(B)$B!#(B
+
+Maildir $B$O!"(Bcur$B!"(Bnew$B!"(Btmp $B$N%G%#%l%/%H%j$r4^$s$G$$$^$9!#<B:]$K%a%C%;!<%8(B
+$B$,4^$^$l$k$N$O!";XDj%G%#%l%/%H%jD>2<$N(B cur $B%G%#%l%/%H%j$G$9!#;XDj%G%#%l(B
+$B%/%H%jD>2<$N(B new $B%G%#%l%/%H%j$K4^$^$l$k%a%C%;!<%8%U%!%$%k$O!"%"%/%;%9;~(B
+$B$K(B cur $B%G%#%l%/%H%j$X0\F0$5$l$^$9!#$^$?!"(Btmp $B%G%#%l%/%H%j$K4^$^$l!"(B36 $B;~(B
+$B4V0J>e%"%/%;%9$,L5$$%a%C%;!<%8%U%!%$%k$O:o=|$5$l$^$9!#(B
+
+$B$3$NF0:n$O(B @samp{http://cr.yp.to/proto/maildir.html}
+($BF|K\8lLu$O(B @samp{http://www.jp.qmail.org/q103/jman5/maildir.html}) 
+$B$K=>$C$F$$$^$9!#(B
+
+$BNc(B: .              -> "~/Maildir"
+    .inbox         -> "~/Maildir/inbox"
+    .from/teranisi -> "~/Maildir/from/teranisi"
+    .~/test        -> "~/test"
+@end example
+
+@node News Spool Folder, Archive Folder, Maildir Folder, Folders
+@section News Spool $B%U%)%k%@(B
+@cindex News spool Folder
+@cindex @samp{=}
+@pindex gnspool
+
+Mew/IM $B$,Ds>'$9$k!"%m!<%+%k$KJ]B8$5$l$?%K%e!<%95-;v$rFI$_=q$-$9$k$?$a$N(B
+$B%U%)%k%@$G$9!#(BNNTP $B7PM3$G$O$J$/!"(Bgnspool $B$J$I$r;H$C$F<h$j4s$;$F$$$k$h$&(B
+$B$J>l9g$K$=$N%9%W!<%k$rD>@\FI$`!"$H$$$&;H$$J}$bA[Dj$7$F$$$^$9!#(B
+
+@example
+$B=q<0(B: '=' '$B%G%#%l%/%H%jL>(B'
+
+$B%G%#%l%/%H%jL>$O!"JQ?t(B @code{elmo-localnews-folder-path}
+ ($B=i4|@_Dj$O(B @file{~/News})
+$B$G;XDj$5$l$?%G%#%l%/%H%j$N%5%V%G%#%l%/%H%j$r;X$7$^$9!#(B
+$B%G%#%l%/%H%j$N6h@Z$j$O(B @samp{.} $B$G$b2D$G$9!#(B
+
+$BNc(B: =fj/os/os2         -> "~/News/fj/os/os2"
+    =fj.os.bsd.freebsd -> "~/News/fj/os/bsd/freebsd"
+@end example
+
+
+@node Archive Folder, POP Folder, News Spool Folder, Folders
+@section $B%"!<%+%$%V%U%)%k%@(B
+@cindex Archive Folder
+@cindex @samp{$}
+@c @pindex ange-ftp
+
+Info-ZIP $B$d(B LHA $B$J$I$G05=L$5$l$?%"!<%+%$%V%U%!%$%k$r0l$D$N%U%)%k%@$H$7(B
+$B$F07$$$^$9!#(B
+
+@example
+$B=q<0(B: '$' '$B%G%#%l%/%H%jL>(B' [';' $B%"!<%+%$%P%?%$%W(B ';' $B%W%l%U%#%/%9(B]
+
+$B!X%G%#%l%/%H%jL>!Y$O!"DL>o!"JQ?t(B @code{elmo-archive-folder-path}
+($B=i4|@_Dj$O(B @file{~/Mail}) $B$+$i$NAjBP%Q%9$G$9$,!"(B
+@samp{/} $B$d(B @samp{~} $B$G;O$^$C$F$$$l$P@dBP%Q%9$H8+Pv$7$^$9(B
+($B%I%i%$%V%l%?!<$b(B OK)$B!#(B
+ange-ftp $BI=5-$b(B ange-ftp, efs $B$,;H$($k4D6-$G$O(B OK $B$G$9!#(B
+
+$B%U%)%k%@$N<BBN$H$7$F$N=q8K%U%!%$%k$O!">e=R$N%G%#%l%/%H%j$K$"$k(B
+@code{elmo-archive-basename}($B=i4|CM$O(B "elmo-archive")$B$K$J$j$^$9!#(B
+$B$?$@$7!"%G%#%l%/%H%j$G$J$/%U%!%$%k$G$"$C$?>l9g!"$=$N%U%!%$%k$r%U%)%k%@(B
+$B$H8+Pv$7$^$9!#(B
+$B3HD%;R$O%"!<%+%$%PKh$K<+F0E*$K(B($BF0E*$K(B)$BA*Br$5$l$^$9!#(B
+
+$B!X%"!<%+%$%P%?%$%W!Y$r>JN,$7$?>l9g!"JQ?t(B @code{elmo-archive-default-type}
+($B=i4|@_Dj$O(B 'zip)$B$,;2>H$5$l$^$9!#(B
+
+$B!X%W%l%U%#%/%9!Y$O!"=q8K$,%G%#%l%/%H%j9=B$$r$b$C$F$$$k>l9g$K!"$=$N%G%#(B
+$B%l%/%H%jItJ,$r;XDj$7$^$9!#(B
+$B$3$l$O<g$K%"!<%+%$%V%5!<%S%9$d(B tar+gz+uue $B$K$h$k%@%$%8%'%9%HG[Aw$rDs6!$7(B
+$B$F$$$k(B ML $B$N=q8K%U%!%$%k$rE83+$9$k$3$H$J$/%^%&%s%H$9$k$?$a$N$b$N!"$D$^$j(B
+$B1\Mw;~$NJX59$N$?$a$N$b$N$G$9!#(B
+$BNc$($P(B ML $B%5!<%P$,(B fml $B$N>l9g!"(B@file{msend.tar.gz} $B$O(B @file{spool/1} $B$N(B
+$B$h$&$J9=B$$J$N$G!"(B"spool" $B$r;XDj$7$^$9!#(B
+
+$BNc(B: $teranisi         -> "~/Mail/teranisi/elmo-archive.zip"
+    $bsd/freebsd;lha  -> "~/Mail/bsd/freebsd/elmo-archive.lzh"
+    $/foo@@server:~/bar;zoo     -> server $B>e$N(B "~/bar/elmo-archive.zoo"
+    $d:/msend.tar.gz;tgz;spool -> "d:/msend.tar.gz"
+@end example
+
+@menu
+* Archiver::     $BBP1~(B($B2DG=(B)$B%"!<%+%$%P(B
+* Archive Tips:: TIPS
+* Archive Vars:: $B%+%9%?%^%$%:JQ?t(B
+@end menu
+
+
+@node Archiver, Archive Tips, Archive Folder, Archive Folder
+@subsection $B%"!<%+%$%V%U%)%k%@$,BP1~$7$F$$$k(B($BBP1~2DG=$J(B)$B%"!<%+%$%P(B
+@cindex Archiver
+@pindex LHA
+@pindex Info-ZIP
+@pindex UNZIP
+@pindex ZOO
+@pindex RAR
+@pindex TAR
+@pindex GNU TAR
+
+$B%G%U%)%k%H$G0J2<$N%"!<%+%$%P$KBP1~$7$^$9!#(B
+
+@example
+        LHA, Info-ZIP/UNZIP, ZOO, RAR  ;; $B%U%k%9%Z%C%/(B
+        GNU TAR('tgz, 'tar)            ;; $B%G%U%)%k%H$G$O1\Mw@lMQ(B
+@end example
+
+$BJ#?t%U%!%$%k$r#1%W%m%;%9$G0l$D$N=q8K$X$^$H$a$k$3$H$,$G$-$k%"!<%+%$%P$G(B
+$B$"$l$P!"I,MW$JJQ?t$rDI2CDj5A$9$k$@$1$G;H$($k2DG=@-$,$"$j$^$9(B(ARJ/UNARJ,
+ARC $B$O!"<j5v$G;H$C$F$J$$$N$GDj5A$7$F$$$^$;$s!#(BTAR $B$O85%U%!%$%k$r>C$9(B
+('mv) $B$3$H$,$G$-$J$$E@$G??LLL\$K%5%]!<%H$7$F$$$^$;$s(B)$B!#(B
+$BJ#?t%U%!%$%k$r0l$D$K$^$H$a$i$l$J$$E@$G(B gzip, bzip, bzip2 $B$O;H$($^$;$s!#(B
+$BI8=`=PNO$X2rE`$G$-$J$$%"!<%+%$%P$K$bI8=`$G$OBP1~$7$^$;$s!#(B
+
+@subsection $B3F(B OS $B$G$N%"!<%+%$%P$K4X$9$kFC5-;v9`(B
+
+$B%U%k%9%Z%C%/$GFI$_=q$-2DG=$J$3$H$,3NG'$5$l$F$$$k%"!<%+%$%P$O!"0J2<$N$H$*(B
+$B$j$G$9(B(@samp{*} $B0u$N$b$N$O=hM}B.EY$J$I$NE@$G:G$bE,$7$F$$$k$b$N(B)$B!#(B
+
+@example
+[OS/2]  Warp4.0J(w/o VoiceType)+Fx00505/emx0.9c(fix04)/PMMule,EmacsPM
+         LHA  OS/2 version Rel.2.06b    Feb 18, 1998
+        *UnZip 5.32 of 3 November 1997, by Info-ZIP.
+        *Zip 2.2 (November 3rd 1997).
+         Zoo archiver, zoo 2.1 $@asis{}Date: 91/07/09 02:10:34 $
+         GNU tar version 1.10 - AK 2.58 (DBCS/SJIS) 981216(homy)$BHG(B
+         gzip 1.2.4 (18 Aug 93) + bzip2 $B%Q%C%A(B(by $BHSED$5$s(B)
+
+[UN|X]  FreeBSD 2.2.7-RELEASE, Linux 2.0.30, Solaris2.6, HP-UX 9.07
+         LHa for UNIX  V 1.14c
+         UnZip 5.32 of 3 November 1997
+         Zip 2.2 (November 3rd 1997)
+         GNU tar 1.12 (1.11.x $B$OIT2D(B)
+         gzip 1.2.4 (18 Aug 93)
+
+[Win32] Win.98/Meadow
+         Lha32 version 1.28
+         Zip 2.2
+         UnZip 5.40
+         GNU tar 1.11.8 + 1.5(WIN32)
+         GZIP 1.2.4
+         RAR 2.06
+
+$B"((B LHA $B$K4X$9$kCm0U(B
+
+OS/2 $B$N>l9g!"(BPeter Fitzsimmons $B;a:n$N(B LH/2 $B$K$OBP1~$7$^$;$s!#J?>>HG$r$*(B
+$B;H$$$/$@$5$$!#(B
+Win32 $B$G$O(B DOS $BHG$G$J$/!"(BLHa32 $B$G$J$$$HF0$+$J$$$H$N$3$H$G$9!#(B
+
+$B"((B GNU tar $B$K4X$9$kCm0U(B
+
+GNU tar $B$O=q8K$+$i$N:o=|$KLdBj$,$"$k$b$N$,B?$$$N$G!"FC$KCm0U$7$F$/$@$5$$!#(B
+$B=q8K$,GK2u$5$l$k4m81@-$,9b$$$N$G!"%U%k%9%Z%C%/$GFI$_=q$-$9$kA0$K(B
+--delete -f $B$r=<J,%F%9%H$7$F$*$$$F$/$@$5$$!#$J$*!">e5-$N$b$N$G$O(B
+$B:#$N$H$3$mLdBj$OJs9p$5$l$F$$$^$;$s!#(B
+@end example
+
+
+@node Archive Tips, Archive Vars, Archiver, Archive Folder
+@subsection TIPS
+@cindex Archive Tips
+
+$B2wE,$K0\9T$9$k$K$O!"(Bwl-summary-archive() $B$r<B9T$9$k(B (@pxref{Archive}) $B$+!"(B
+Expire $B5!G=(B (@pxref{Expire}) $B$HAH$_9g$o$;$k$H$$$$$G$7$g$&!#(B
+$B$?$@$7!"(BExpire $B5!G=$G:n@.$7$?%"!<%+%$%V%U%)%k%@$r07$&>l9g$O!"(B
+$BJQ?t(B @code{elmo-archive-treat-file} $B$r(B non-nil $B$K@_Dj$9$kI,MW$,$"$j$^$9!#(B
+$B$J$*!"(BOS/2 $B>e$G$N%F%9%H$G$O!"(BMule2.3(19.28) $B$H(B Emacs20.2 $B$G$O=hM}B.EY$K(B
+$B05E]E*$J0c$$$,$"$j$^$9!#(B
+$B2wE,$K;H$&$K$O(B Emacs20 $B$r$*4+$a$7$^$9(B(re-search $B$NB.EY$NLdBj$@$H$9$k$H(B 
+19.3x $B0J>e$+$I$&$+$,6-$K$J$k$G$7$g$&(B)$B!#(B
+
+$B$^$?!"0l$D$N=q8K%U%!%$%k$KB?$/$N%U%!%$%k$,4^$^$l$F$$$k$H%"!<%+%$%P5/F0;~(B
+$B$N%*!<%P!<%X%C%I$,2CB.EYE*$KA}2C$9$k(B($BFC$K(B LHA $B$N>l9g(B)$B$?$a!"(B150 $BDLDxEY!"(B
+$B:GBg$G$b(B 200$BDL$^$G$K$7$F$*$/$H!"%9%H%l%9$J$/FI$_=q$-$G$-$k$G$7$g$&!#(B
+
+$B$J$*!"EvA3$N$3$H$J$,$i(B
+
+@lisp
+(setq wl-fcc "$backup")
+(setq wl-trash-folder "$trash;lha")
+@end lisp
+
+@noindent
+$B$b2DG=$G$9(B@t{:-)}$B!#(B
+
+
+@node Archive Vars,  , Archive Tips, Archive Folder
+@subsection $B%"!<%+%$%V%U%)%k%@$K4X$9$kJQ?t(B
+@cindex Archive variables
+
+@table @code
+@item elmo-archive-default-type
+@vindex elmo-archive-default-type
+$B%G%U%)%k%H$N%"!<%+%$%P%?%$%W$r(B symbol $B$G;XDj$7$^$9!#=i4|CM$O(B 'zip $B$G$9!#(B
+
+@item elmo-archive-@var{type}-method-alist
+@vindex elmo-archive-TYPE-method-alist
+$B%"!<%+%$%P$N(B @var{type}
+($B<B:]$K$O(B @samp{lha}, @samp{zip}, @samp{zoo}, @samp{tgz} $B$J$I$NJ8;zNs$,F~$k(B)
+$BKh$N!"3F<o%a%=%C%I$r5-=R$7$^$9!#(Balist $B$N3FMWAG$O0J2<$N$h$&$K$J$j$^$9!#(B
+
+@example
+        (action . (exec-name options))   ;; $B30It%W%m%0%i%`$H%*%W%7%g%s(B
+        (action . function)              ;; $B4X?t(B
+@end example
+
+$B8=:_$N$H$3$m!"M-8z$J(B action $B$O(B
+
+@example
+        'ls, 'cat ('cat-headers)        ;; $B:GDc8BI,MW(B($B1\Mw$N$_(B)
+        'mv ('mv-pipe), 'rm ('rm-pipe)  ;; $B>e$H%;%C%H$G%U%k%9%Z%C%/(B
+        'cp ('cp-pipe)                  ;;
+@end example
+
+@noindent
+$B$G$9!#3g8LFb$N$b$N$O!"$J$/$F$b9=$$$^$;$s(B($B$"$l$PM%@hE*$K;H$$$^$9(B)$B!#(B
+
+@item elmo-archive-suffix-alist
+@vindex elmo-archive-suffix-alist
+$B%"!<%+%$%P%?%$%W(B(symbol) $BKh$KBP1~$9$k=q8K$N3HD%;R$r5-=R$7$^$9!#(B
+
+@item elmo-archive-file-regexp-alist
+@vindex elmo-archive-file-regexp-alist
+$B=q8K$N%j%9%H1\Mw;~$N=PNO$+$i%U%!%$%kL>$r<hF@$9$k$?$a$N@55,I=8=$r!"%"!<(B
+$B%+%$%P%?%$%W(B (symbol) $BKh$K5-=R$7$^$9!#(B
+
+@item elmo-archive-method-list
+@vindex elmo-archive-method-list
+$BM-8z$K$7$?$$(B @var{type} $B$N(B elmo-archive-@var{type}-method-alist
+(@var{type} $B$O%"!<%+%$%P$N(B symbol)$B$r%j%9%H$G5-=R$7$^$9!#(B
+
+@item elmo-archive-lha-dos-compatible
+@vindex elmo-archive-lha-dos-compatible
+$B$3$NJQ?t$,(B non-nil $B$G$"$l$P(B DOS $BHG(B($B5H:j;a%*%j%8%J%k(B)$B$N(B LHA $B$H%*%W%7%g(B
+$B%s8_49$H8+Pv$7$^$9!#=i4|CM$G$O(B OS/2 $B$H(B Win32 $B$N$_(B t $B$G$9!#(B
+
+@item elmo-archive-cmdstr-max-length
+@vindex elmo-archive-cmdstr-max-length
+elmo-archive $B$+$i$O(B($BI8=`>uBV$G$O(B)$B%"!<%+%$%P$r%7%'%k$r7PM3$;$:$K5/F0$7(B
+$B$^$9!#(Belisp $B%l%Y%k$G$N%3%^%s%IJ8;zNs$NAm%P%$%H?t$K$O@)8B$O$J$$$H$N$3$H$J(B
+$B$N$G!"B?$/$N%Q%i%a!<%?$r0lEY$KM?$($FF0$+$;$k$+$I$&$+$O(B OS $B%l%Y%k$NLdBj$K(B
+$B$J$j$^$9!#$3$l$O!"Nc$($P?tI4DLC10L$N%a%C%;!<%8$r0lEY$K>C5n$G$-$k$+$I$&$+(B
+$B$NLdBj!"$HFI$_BX$($F$/$@$5$$!#(B
+OS/2 $B$G$O%7%'%k$r2p$5$:$KH/9T$G$-$k%3%^%s%IJ8;zNs$O(B 8190 $B%P%$%H$^$G$J$N(B
+$B$G!"M>M5$r8+$F%G%U%)%k%H$r(B 8000 $B$K$7$F$$$^$9!#(BOS/2 REXX $B$d%7%'%k%9%/%j%W(B
+$B%H$J$I$r3z$^$9>l9g!"%7%'%k$N<BAu$K0MB8$9$k$3$H$KCm0U$7$F$/$@$5$$!#(B
+
+$B$J$*!"%"!<%+%$%P$,=hM}BP>]$H$J$k%U%!%$%k$N%j%9%H$rI8=`F~NO$+$i<u$1IU$1$k(B
+($BA0=R$N(B rm-pipe, mv-pipe, cat-headers action $B$,;XDj$5$l$F$$$k(B)$B>l9g!"#1(B
+$B%W%m%;%9$G=hM}$9$k$3$H$,$G$-$^$9!#(B
+@end table
+
+
+@node POP Folder, Multi Folder, Archive Folder, Folders
+@section POP $B%U%)%k%@(B
+@cindex POP Folder
+@cindex @samp{&}
+@cindex RFC 1939
+@cindex POP3
+@cindex APOP
+
+RFC 1939 $B$G5,Dj$5$l$?(B POP3 $B$rMxMQ$7$F%a!<%k$rFI$`$?$a$N%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '&' ['$B%f!<%6L>(B'][['/' '$BG'>ZK!(B']['@@' '$B%[%9%HL>(B'][':' '$B%]!<%HHV9f(B']]['!']
+
+$BG'>ZK!$K$O!"0J2<$N(B 2 $B<oN`$,$"$j$^$9!#(B
+            "user"     ($B@8%Q%9%o!<%I$rAw?.$7$FG'>Z(B)
+            "apop"     (APOP $B$GG'>Z(B)
+
+default $BCM(B:
+$B%f!<%6L>(B   -> $BJQ?t(B @code{elmo-default-pop3-user} $B$NCM!#(B
+              $B=i4|@_Dj$O(B $B4D6-JQ?t(B USER $B$+!"(BLOGNAME $B$+!"(B(user-login-name) $B$NJV$jCM!#(B
+$BG'>ZK!(B     -> $BJQ?t(B @code{elmo-default-pop3-authenticate-type} $B$NCM!#(B
+              $B=i4|@_Dj$O(B "user"$B!#(B
+$B%[%9%HL>(B   -> $BJQ?t(B @code{elmo-default-pop3-server} $B$NCM!#(B
+              $B=i4|@_Dj$O(B "localhost"$B!#(B
+$B%]!<%HHV9f(B -> $BJQ?t(B @code{elmo-pop3-default-port} $B$NCM!#(B
+              $B=i4|@_Dj$O(B 110$B!#(B
+
+$BNc(B: &hoge@@localhost -> localhost $B$X%f!<%6(B "hoge" $B$G%"%/%;%9!#(B
+    &hoge@@popserver:109 -> $B%[%9%H(B "popserver" $B$N%]!<%H(B 109 $BHV$X(B
+                            $B%f!<%6(B "hoge" $B$G%"%/%;%9!#(B
+@end example
+
+APOP $B$rMxMQ$9$k$K$O!"(B@file{md5.el} $B$,I,MW$G$9!#(B
+(XEmacs$B$G$O!"I,MW$"$j$^$;$s!#(B)
+@file{md5.el} $B$O(B $BK\%Q%C%1!<%8$N(B @file{utils/sasl/lisp/} $B$+(B
+ Emacs/W3 $B%Q%C%1!<%8(B
+
+@example
+http://www.cs.indiana.edu/elisp/w3/docs.html
+@end example
+
+$B$^$?$O!"(BLCD archive $B$+$iF~<j2DG=$G$9(B(GPL2)$B!#(B
+
+$B%U%)%k%@L>$N:G8e$K(B '!' $B$,IU$$$F$$$k$H!"(BSSL $B$rMxMQ$7$F%3%M%/%7%g%s$rD%$j$^$9!#(B
+$BJQ?t(B @code{elmo-default-pop-ssl} $B$NCM$,(B non-nil $B$J$i!"(B'!' $B$rIU$1(B
+$B$J$/$F$b(B SSL $B$r;H$$$^$9!#(B'starttls $B$J$i(B '!!' $B$r0UL#$7$^$9!#(B
+(SSL $B$rMxMQ$9$k$K$O(B $BK\%Q%C%1!<%8$N(B utils/ssl.el $B$r%$%s%9%H!<%k$9$k(B
+$BI,MW$,$"$j$^$9!#$J$*$+$D!"(BOpenSSL$B$K4^$^$l$k(Bopenssl$B$K%Q%9$,DL$C$F$$$k(B
+$BI,MW$,$"$j$^$9!#(B
+STARTTLS $B$rMxMQ$9$k$K$O!"$5$i$K!"(Bstarttls$B%Q%C%1!<%8$r%$%s%9%H!<%k(B
+$B$9$kI,MW$,$"$j$^$9!#(B)
+
+@node Multi Folder, Filter Folder, POP Folder, Folders
+@section $B%^%k%A%U%)%k%@(B
+@cindex Multi Folder
+@cindex @samp{*}
+@cindex Folder, Multiple
+@cindex Folder, Marge
+
+$BJ#?t$N%U%)%k%@$r2>A[E*$K0l$D$K8+$($k$h$&$K$9$k%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '*' '$B%U%)%k%@(B' [',' '$B%U%)%k%@(B'] ... [',' '$B%U%)%k%@(B']
+
+'*' $B$N8e$K(B $B%U%)%k%@(B,$B%U%)%k%@(B,@dots{},$B%U%)%k%@(B $B$N$h$&$K(B ',' ($B%3%s%^(B)$B$G6h@Z$C$F(B
+$B0l$D$K8+$($k$h$&$K$7$?$$%U%)%k%@72$r;XDj$7$^$9!#(B
+
+$BNc(B:
+  *-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs
+  -> -fj.editor.xemacs, -fj.editor.mule, -fj.editor.emacs $B$,0l$D$N(B
+     $B%U%)%k%@$H$7$F8+$($k!#(B
+
+  *+inbox,-fj.rec.tv,%inbox
+  -> +inbox, -fj.rec.tv, %inbox $B$,0l$D$N%U%)%k%@$H$7$F8+$($k!#(B
+
+@end example
+
+
+@node Filter Folder, Pipe Folder, Multi Folder, Folders
+@section $B%U%#%k%?%U%)%k%@(B
+@cindex Filter Folder
+@cindex @samp{/}
+@cindex Folder, Filtering
+@cindex Folder, Virtual
+
+$B;XDj$7$?>r7o$rK~$?$9%a%C%;!<%8$N$_$r4^$`2>A[E*$J%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '/' '$B>r7o(B' '/' '$B%U%)%k%@(B'
+
+$B!X>r7o!Y$K$O!"0J2<$r=q$1$^$9!#(B
+
+1. $BItJ,%U%#%k%?!'(B "first:$B?t;z(B", "last:$B?t;z(B"
+
+first: $BA4%a%C%;!<%8$N@hF,$+$i(B'$B?t;z(B'$B$N?t$@$1%a%C%;!<%8$r@Z$j=P$7$^$9!#(B
+last: $BA4%a%C%;!<%8$NKvHx$+$i(B'$B?t;z(B'$B$N?t$@$1%a%C%;!<%8$r@Z$j=P$7$^$9!#(B
+
+$BNc(B:
+  /last:10/-fj.os.linux -> -fj.os.linux $B$N:G6a$N(B 10 $B8D$N%a%C%;!<%8(B
+                           $B$N$_$rI=<($9$k%U%)%k%@(B
+  /first:20/%inbox      -> %inbox $B$N:G=i$N(B 20 $B8D$rI=<($9$k%U%)%k%@(B
+
+2. $BF|IU$1%U%#%k%?!'(B "since:$BF|IU(B" "before:$BF|IU(B"
+
+since: '$BF|IU(B'$B$h$j:G6a$N%a%C%;!<%8$N$_$r<h$j=P$7$^$9!#(B
+before: '$BF|IU(B'$B$h$j:G6a$N%a%C%;!<%8$N$_$r<h$j=P$7$^$9!#(B
+
+'$BF|IU(B' $B$K$O0J2<$,=q$1$^$9!#(B
+
+yesterday ->  $B:rF|(B
+lastweek  ->  $B@h=5$N:#F|(B
+lastmonth ->  $B@h7n$N:#F|(B
+lastyear  ->  $B5nG/$N:#F|(B
+'$B?t;z(B'daysago -> '$B?t;z(B' $BF|A0(B (e.x. 3daysago)
+'$BF|(B'-'$B7n$NN,L>(B'-'$BG/(B' ->  $BF|IU$1$=$N$b$N$N;XDj(B (ex. 1-Nov-1998)
+
+$BNc(B:
+  /since:3daysago/+inbox $B"*(B $B:G6a#3F|4V$N(B +inbox $BCf$N%a%C%;!<%8!#(B
+  /before:yesterday/+inbox $B"*(B $B$-$N$&$h$j0JA0$N(B +inbox $BCf$N%a%C%;!<%8!#(B
+
+3. $B%U%#!<%k%I%U%#%k%?!'(B "$B%U%#!<%k%IL>(B=$BJ8;zNs(B"
+
+$B%a%C%;!<%8$N%U%#!<%k%I$NCf?H$,%^%C%A$9$k%a%C%;!<%8$r<h$j=P$7$^$9!#(B
+$B!X%U%#!<%k%IL>!Y!"!XJ8;zNs!Y$KBgJ8;z>.J8;z$N6hJL$O$"$j$^$;$s!#(B
+
+$BNc(B:
+  /from=teranisi/+inbox -> +inbox $B$G!"(BFrom: $B%U%#!<%k%I$K(B "teranisi"
+                           $B$H$$$&J8;zNs$r4^$`%a%C%;!<%8$N%U%)%k%@(B
+  /body=$B$J$s$H$+(B/%inbox -> %inbox $B$G!"K\J8$K(B "$B$J$s$H$+(B"
+                           $B$H$$$&J8;zNs$r4^$`%a%C%;!<%8$N%U%)%k%@(B
+
+"|" $B$G6h@Z$C$F(B OR $B>r7o$r;XDj$G$-$^$9!#(B
+$B$^$?!"(B/tocc=xxxx/ $B$O!"(B/to=xxxx|cc=xxxx/ $B$HF1$8$K$J$j$^$9!#(B
+
+$BNc(B:
+
+  /from=teranisi|to=teranisi/+inbox
+                        -> +inbox $B$G(BTo: $B%U%#!<%k%I$+(B From: $B%U%#!<%k%I$K(B
+                          "teranisi" $B$r4^$`%a%C%;!<%8$N%U%)%k%@(B
+  /tocc=teranisi/+inbox -> +inbox $B$G!"(BTo: $B%U%#!<%k%I$+(B Cc: $B%U%#!<%k%I$K(B
+                          "teranisi" $B$r4^$`%a%C%;!<%8$N%U%)%k%@(B
+
+$B1~MQJT(B
+
+  %inbox,/from=teranisi/%inbox@@server
+         -> %inbox$B!"$*$h$S!"(B
+            %inbox@@server $B$NCf$G(B From $B%U%#!<%k%I$,(B "teranisi" $B$N%a%C%;!<%872!"(B
+            $B$r$$$C$Z$s$KI=<($9$k%U%)%k%@!#(B
+
+  /last:100//to=teranisi/*+inbox,%inbox
+         -> +inbox $B$H(B %inbox $BCf$N%a%C%;!<%8$N$&$A!"(B
+            To: $B%U%#!<%k%I$,(B "teranisi" $B$K%^%C%A$9$k(B
+            $B%a%C%;!<%8$N:G6a$N(B100$B8D$rI=<($9$k%U%)%k%@!#(B
+
+  /from=hogehoge//last:20//tocc=teranisi/%#mh/inbox@@localhost
+  ($B"*$G@^$jJV$7!#<B:]$O0l9T(B)
+
+         -> %#mh/inbox@@localhost $B$NCf$G!"(BTo $B$+(B Cc $B$K(B "teranisi" $B$,4^$^$l$k(B
+            $B%a%C%;!<%8$N:G6a$N(B 20 $B8D$N$&$A!"(BFrom $B$,(B "hogehoge" $B$N$b$N$r(B
+            $BI=<($9$k%U%)%k%@!#(B
+
+;;; --- $B<BAu>e$N@)Ls(B ---
+;;; $B8=:_$N$H$3$m!"(Bnntp $B%U%)%k%@$OF|IU%U%#%k%?!"%U%#!<%k%I%U%#%k%?(B
+;;; $B$r=q$1$^$;$s!#(B
+;;; $B$^$?!"(Bimap4 $B%U%)%k%@(B $B$G$O(B rfc2060 $B$N(B search $B%3%^%s%I$K$=$N$^$^(B
+;;; $BM?$($i$l$k$b$N$7$+>r7o$N%U%#!<%k%IL>$K=q$1$^$;$s!#(B
+;;; (-> to,cc,from,subject,body $B$N$_(B)
+;;; localdir $B$N%U%)%k%@$K$OG$0U$N%U%#!<%k%IL>$r=q$1$^$9!#(B
+@end example
+
+
+@node Pipe Folder, Internal Folder, Filter Folder, Folders
+@section $B%Q%$%W%U%)%k%@(B
+@cindex Pipe Folder
+@cindex @samp{|}
+@cindex Get Message
+@cindex Download Message
+@cindex Incorporate Message
+
+$B%U%)%k%@1\Mw;~$K!"<+F0E*$K%a%C%;!<%8$N<h$j9~$_$r<B9T$9$k%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: '|'$B<h$j9~$_85(B'|'$B<h$j9~$_@h(B
+
+$B%U%)%k%@1\Mw;~!"!X<h$j9~$_85!Y$+$i!X<h$j9~$_@h!Y$X<+F0E*$K%a%C%;!<%8$,(B
+$B0\F0$7$^$9!#(BPOP $B$rMxMQ$7$F%a%C%;!<%8$r%m!<%+%k$K%@%&%s%m!<%I$7$F1\Mw$7$?$$(B
+$B>l9g$O!"(B
+
+|&username@@popserver|+inbox
+
+$B$N$h$&$K;XDj$9$k$H!"%U%)%k%@$NI=<($r99?7$9$k$H$-$K(B
+&username@@popserver $B$+$i!"(B+inbox $B$X%a%C%;!<%8$,<+F0E*$K<h$j9~$^$l$^$9!#(B
+
+$BNc(B: %inbox|%myinbox   -> %inbox $B$+$i(B %myinbox $B$X%a%C%;!<%8$r<h$j9~$s$G(B
+                         $B1\Mw$9$k%U%)%k%@!#(B
+    *&user@@popserver1,&user@@popserver2|+inbox
+    -> &user@@popserver1 $B$H(B &user@@popserver2 $B$+$i(B +inbox $B$X%a%C%;!<%8$r(B
+    $B<h$j9~$s$G1\Mw$9$k%U%)%k%@!#(B
+@end example
+
+$B%a%C%;!<%8$,0\F0$7$?$"$H!"%U%C%/(B @code{elmo-pipe-drained-hook} $B$,8F$P$l(B
+$B$^$9$N$G!"%@%&%s%m!<%I8e$K<B9T$7$?$$4X?t$rEPO?$7$F$*$/$H$h$$$G$7$g$&!#(B
+
+@node Internal Folder,  , Pipe Folder, Folders
+@section $BFbIt%U%)%k%@(B
+@cindex Internal Folder
+@cindex @samp{'}
+@cindex Folder, @samp{$} mark
+@cindex Cache
+
+Wanderlust $B$NFbIt$GJ];}$5$l$?%a%C%;!<%8$r1\Mw$9$k$?$a$N%U%)%k%@$G$9!#(B
+
+@example
+$B=q<0(B: 'mark 
+      $B$b$7$/$O(B
+      'cache/00$B!A(B1F
+
+'mark $B$H$$$&%U%)%k%@$O!"8e=R$N!X=EMW%^!<%/(B @samp{$}$B!Y$,$D$$$?%a%C%;!<%8$r(B
+$B$"$D$+$&FCJL$J2>A[%U%)%k%@$G$9!#(B
+$B=EMW%^!<%/$r%a%C%;!<%8$K$D$1$F$*$$$F!"$"$H$+$i8+D>$7$?$$$H$-$J$I$KJXMx$G$9!#(B
+
+$B$3$N%U%)%k%@$G%a%C%;!<%8$r:o=|$9$k$H!"$=$N%a%C%;!<%8$K$D$$$F$$$?(B @samp{$}
+$B%^!<%/$,:o=|$5$l$^$9!#(B
+$B$^$?!"$3$N%U%)%k%@$K%a%C%;!<%8$rDI2C$9$k$H!"$=$N%a%C%;!<%8$K$O(B @samp{$} $B%^!<%/(B
+$B$,IU$1$i$l$^$9!#(B
+
+'cache/00 $B!A(B 1F $B$O%M%C%H%o!<%/7PM3$GFI$s$@%a%C%;!<%8$N%-%c%C%7%e$K%"%/%;(B
+$B%9$9$k$?$a$N%U%)%k%@$G$9!#(B00 $B!A(B 1F $B$K$O!"%-%c%C%7%e%G%#%l%/%H%j(B 
+(@file{~/.elmo/cache})$B$N%5%V%G%#%l%/%H%jL>$r;XDj$7$^$9!#(B
+@end example
+
+@c
+@c  Folder
+@c
+@node Folder, Summary, Folders, Top
+@chapter $B%U%)%k%@%b!<%I(B
+@cindex Folder
+
+$B5/F0$7$F:G=i$K8=$l$k$N$,%U%)%k%@%b!<%I(B($B%U%)%k%@$N0lMwI=<((B)$B$G$9!#(B
+
+$B%U%)%k%@%b!<%I$G$O!"FI$_$?$$%U%)%k%@$NA*Br!"9XFI%U%)%k%@$NJT=8$r9T$J$$$^$9!#(B
+
+@menu
+* Selecting Folder:: $BFI$_$?$$%U%)%k%@$NA*Br(B
+* Folder Manager::   $B9XFI%U%)%k%@$NJT=8(B
+@end menu
+
+
+@node Selecting Folder, Folder Manager, Folder, Folder
+@section $BFI$_$?$$%U%)%k%@$NA*Br(B
+@cindex Selecting Folder
+
+@subsection $B;HMQJ}K!(B(TIPS)
+
+@subsubsection $B?75,?t!"L$FI?t$N%A%'%C%/(B
+
+$B%U%)%k%@%b!<%I$N8+$?$a$O$3$s$J46$8$K$J$k$O$:$G$9!#(B
+(XEmacs $B$G$O$b$&$A$g$C$H$+$C$3$h$/8+$($k$O$:$G$9(B @t{;-)})
+
+@example
+[-]Desktop:14186/35580/67263
+   $B<u?.H"(B:3/10/10
+   $B%4%_H"(B:2/7/10
+   $BAp9F(B:0/0/3
+   $BAw?.:Q$_(B:0/9/348
+   [-]Emacsen:0/34/4837
+     Wanderlust ML:0/0/558
+     ELIPS ML:0/0/626
+     tm ($BF|K\8l(B) ML:0/0/821
+     XEmacs $B%Y!<%?(B:0/29/255
+     Mew:0/0/998
+     Mule-Win32:0/0/1491
+     fj $B$N(B Emacsen:0/5/88
+@end example
+
+$B3F9T$KI=<($5$l$k$N$O!"(B
+
+@example
+$B!X%U%)%k%@L>(B:$BL$F14|(B($B?75,(B)$B?t(B/$BL$FI?t(B/$BAm?t!Y(B
+@end example
+
+@noindent
+$B$G$9!#(B
+$B%A%'%C%/$7$?$$%U%)%k%@$N>e$K%+!<%=%k$r9g$o$;$F(B @kbd{s} $B$r2!$9$H!"(B
+$B$3$l$i$N?t$,:G?7$N$b$N$K99?7$5$l$^$9!#(B
+$B$?$/$5$s?75,%a%C%;!<%8$,$"$k$H?'$,JQ$o$j$^$9!#(B
+
+$B%U%)%k%@%b!<%IA4BN$O(B @samp{Desktop} $B$H$$$&%0%k!<%W%U%)%k%@$K$J$j$^$9!#(B
+$B%0%k!<%W%U%)%k%@$O%j%?!<%s%-!<$G3+JD$G$-$^$9!#(B
+$B%0%k!<%W%U%)%k%@$KBP$9$kA`:n$O!"$=$N%0%k!<%W%U%)%k%@$KB0$9$kA4$F$N;R(B
+$B%U%)%k%@$KBP$9$k0l3g$7$?A`:n$H$7$F07$o$l$^$9!#(B
+$BNc$($P!"(B@samp{[-]Emacsen} $B$N$H$3$m$K%+!<%=%k$r9g$o$;$F(B @kbd{s} $B$r2!$9$H!"(B
+$B$3$l$K4^$^$l$k#6$D$N%U%)%k%@$NI=<($r:G?7$N$b$N$K99?7$7$^$9!#(B
+
+@subsubsection $B%U%)%k%@$NA*Br(B
+$B%U%)%k%@$N9T$K%+!<%=%k$rCV$$$F%j%?!<%s(B($B%9%Z!<%9(B)$B%-!<$r2!$9$H$=$N%U%)%k%@$NFbMF$rI=<($9$k%5%^%j%b!<%I$K0\F0$7$^$9!#(B
+
+$B$3$N$H$-!"JQ?t(B @code{wl-stay-folder-window} $B$,(B non-nil $B$J$i%5%^%j$K0\F0$7$?$H$-$K%U%)%k%@%P%C%U%!$N1&$K%5%^%j$N%P%C%U%!$,8=$l$^$9!#(B
+
+@subsection $B%-!<%P%$%s%I(B
+
+$B%U%)%k%@%b!<%I$G$N%U%)%k%@A*Br$K4X$9$k%3%^%s%I$N%-!<%P%$%s%I$O0J2<$NDL$j$G$9!#(B
+
+@table @kbd
+@item @key{SPC}
+@itemx @key{RET}
+@kindex @key{SPC} (Folder)
+@kindex @key{RET} (Folder)
+@findex wl-folder-jump-to-current-entity
+$B8=:_%+!<%=%k$,$"$k9T$N%U%)%k%@$N%5%^%jI=<($X0\F0$7$^$9!#(B
+$B%0%k!<%W%U%)%k%@$K%+!<%=%k$,$"$k>l9g$O!"%0%k!<%W%U%)%k%@$N3+JD$r9T$J$$$^$9!#(B
+$B%"%/%;%9%0%k!<%W$G$O!"(Bprefix argument $B$D$-$G%0%k!<%W%U%)%k%@$r3+$/$H!"(B
+$BFbMF$r:G?7$N%j%9%H$K99?7$7$^$9!#(B
+$B%"%/%;%9%0%k!<%W$,3,AX9=B$$K$J$C$F$$$k>l9g$O:F5"E*$K99?7$7$^$9!#(B
+(@code{wl-folder-jump-to-current-entity})
+
+@item M-@key{RET}
+@kindex M-@key{RET} (Folder)
+@findex wl-folder-update-recursive-current-entity
+$B8=:_%+!<%=%k$,$"$k%"%/%;%9%0%k!<%W$NFbMF$r:G?7$N%j%9%H$K99?7$7$^$9!#(B
+$B%"%/%;%9%0%k!<%W$,3,AX9=B$$K$J$C$F$$$k>l9g$O:F5"E*$K99?7$7$^$9!#(B
+(@code{wl-folder-update-recursive-current-entity})
+
+@item w
+@kindex w (Folder)
+@findex wl-summary-write
+$B?75,%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-summary-write})
+
+@item W
+@kindex W (Folder)
+@findex wl-summary-write-current-newsgroup
+$B8=:_%+!<%=%k$,$"$k%U%)%k%@$,(B NNTP $B%U%)%k%@$J$i!"(B
+Newsgroups $B%U%#!<%k%I$rJd$C$F%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-summary-write-current-newsgroup})
+
+@item s
+@kindex s (Folder)
+@findex wl-folder-check-current-entity
+$B8=:_%+!<%=%k$,$"$k9T$N%U%)%k%@$NL$F14|%a%C%;!<%8?t$r99?7$7$^$9!#(B
+(@code{wl-folder-check-current-entity})
+
+@item S
+@kindex S (Folder)
+@findex wl-folder-sync-current-entity
+$B8=:_%+!<%=%k$,$"$k9T$N%U%)%k%@$N%5%^%j$r99?7$7$^$9!#(B
+(@code{wl-folder-sync-current-entity})
+
+@item r s
+@kindex r s (Folder)
+@findex wl-folder-check-region
+$B%j!<%8%g%s$K$"$k%U%)%k%@$NL$F14|%a%C%;!<%8?t$r99?7$7$^$9!#(B
+(@code{wl-folder-check-region})
+
+@item r S
+@kindex r S (Folder)
+@findex wl-folder-sync-region
+$B%j!<%8%g%s$K$"$k%U%)%k%@$N%5%^%j$r99?7$7$^$9!#(B
+(@code{wl-folder-sync-region})
+
+@item P
+@kindex P (Folder)
+@findex wl-folder-prev-unread
+$B$R$H$D>e$NL$FI$,$"$k%U%)%k%@(B($B$b$7$/$O%0%k!<%W(B)$B$K0\F0$7$^$9!#(B
+(@code{wl-folder-prev-unread})
+
+@item N
+@kindex N (Folder)
+$B$R$H$D2<$NL$FI$,$"$k%U%)%k%@(B($B$b$7$/$O%0%k!<%W(B)$B$K0\F0$7$^$9!#(B
+(@code{wl-folder-next-unread})
+
+@item p
+@kindex p (Folder)
+$B$R$H$D>e$N%U%)%k%@$X0\F0$7$^$9!#(B
+(@code{wl-folder-prev-entity})
+
+@item n
+@kindex n (Folder)
+$B$R$H$D2<$N%U%)%k%@$X0\F0$7$^$9!#(B
+(@code{wl-folder-next-entity})
+
+@item J
+@kindex J (Folder)
+$B;XDj$7$?%U%)%k%@$X%+!<%=%k$r0\F0$7$^$9!#(B
+(@code{wl-folder-jump-folder})
+
+@item I
+@kindex I (Folder)
+@findex wl-folder-prefetch-current-entity
+$B8=:_%+!<%=%k$,$"$k9T$N%U%)%k%@$KBP$7$F!"(B
+@code{wl-summary-incorporate}$B$K$h$j!"(B
+$B?7Ce5-;v$r%W%j%U%'%C%A$7$^$9!#(B
+$B%0%k!<%W%U%)%k%@$K%+!<%=%k$,$"$k>l9g$O!"(B
+$B:F5"E*$K<B9T$7$^$9!#(B
+(@code{wl-folder-prefetch-current-entity})
+
+@item c
+@kindex c (Folder)
+@findex wl-folder-mark-as-read-all-current-entity
+$B8=:_%+!<%=%k$,$"$k9T$N%U%)%k%@$N(B
+$B%a%C%;!<%8$rA4$FFI$s$@$3$H$K$7$^$9!#(B
+$B%0%k!<%W%U%)%k%@$K%+!<%=%k$,$"$k>l9g$O!"(B
+$B:F5"E*$K<B9T$7$^$9!#(B
+(@code{wl-folder-mark-as-read-all-current-entity})
+
+@item f
+@kindex f (Folder)
+@findex wl-folder-goto-first-unread-folder
+$B:G=i$NL$FI$,$"$k%U%)%k%@$N%5%^%j$X0\F0$7$^$9!#(B
+(@code{wl-folder-goto-first-unread-folder})
+
+@item E
+@kindex E (Folder)
+@findex wl-folder-empty-trash
+$B%4%_H"$r6u$K$7$^$9!#(B
+(@code{wl-folder-empty-trash})
+
+@item o
+@kindex o (Folder)
+@findex wl-folder-open-all-unread-folder
+$BA4$F$NL$FI$,$"$k%U%)%k%@$,4^$^$l$k%0%k!<%W$r3+$-$^$9!#(B
+(@code{wl-folder-open-all-unread-folder})
+
+@item /
+@kindex / (Folder)
+@findex wl-folder-open-close
+$B%+!<%=%k9T$N%0%k!<%W$N3+JD$r%H%0%k$7$^$9!#(B
+(@code{wl-thread-open-close})
+
+@item [
+@kindex [ (Folder)
+$BA4$F$N%0%k!<%W$r3+$-$^$9!#(B
+(@code{wl-folder-open-all})
+
+@item ]
+@kindex ] (Folder)
+$BA4$F$N%0%k!<%W$rJD$8$^$9!#(B
+(@code{wl-folder-close-all})
+
+@item q
+@kindex q (Folder)
+Wanderlust $B$r=*N;$7$^$9!#(B
+(@code{wl-exit})
+
+@item z
+@kindex z (Folder)
+Wanderlust $B$r%5%9%Z%s%I$7$^$9!#(B
+(@code{wl-folder-suspend})
+
+@item M-s
+@itemx C-x C-s
+@kindex M-s (Folder)
+@kindex C-x C-s (Folder)
+$B8=:_$N%U%)%k%@$N>uBV$r%;!<%V$7$^$9!#(B
+(@code{wl-save})
+
+@item M-t
+@kindex M-t (Folder)
+Wanderlust $B$N%*%U%i%$%s%b!<%I(B/$B%*%s%i%$%s%b!<%I$r%H%0%k$7$^$9!#(B
+(@code{wl-toggle-plugged})
+
+@item C-t
+@kindex C-t (Folder)
+Wanderlust $B$N%5!<%P!&%]!<%HJL$N%*%U%i%$%s(B/$B%*%s%i%$%s$rJQ99$7$^$9!#(B
+(@code{wl-plugged-change})
+@end table
+
+@subsection $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-folders-file
+@vindex wl-folders-file
+$B=i4|@_Dj$O(B "~/.folders"$B!#(B
+$B9XFI$9$k%U%)%k%@$r5-=R$9$k%U%!%$%k$NL>A0$G$9!#(B
+
+@item wl-folder-info-save
+@vindex wl-folder-info-save
+$B=i4|@_Dj$O(B t$B!#(B
+$B<!$KN)$A>e$2D>$7$?$H$-$KA02s$NL$FI?t$J$I$N7k2L$r;H$$$^$o$7$9$k$+$I$&$+!"$G$9!#(B
+
+@item wl-stay-folder-window
+@vindex wl-stay-folder-window
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i%5%^%j$K0\F0$7$?$H$-$K%U%)%k%@%P%C%U%!$N1&$K%5%^%j$N%P%C%U%!$,8=$l$^$9!#(B
+
+@item wl-folder-window-width
+@vindex wl-folder-window-width
+$B=i4|@_Dj$O(B 20$B!#(B
+@code{wl-stay-folder-window} $B$,(B non-nil $B$N$H$-$K$N$3$9%U%)%k%@%P%C%U%!$N%&%#%s%I%&$NI}$G$9!#(B
+
+@item wl-folder-many-unsync-threshold
+@vindex wl-folder-many-unsync-threshold
+$B=i4|@_Dj$O(B 70$B!#(B
+$BL$F14|?t$,$?$/$5$s$+$I$&$+$NogCM!#$3$NCM$r1[$($k$H?'$,JQ$o$j$^$9!#(B
+
+@item wl-folder-desktop-name
+@vindex wl-folder-desktop-name
+$B=i4|@_Dj$O(B "Desktop"$B!#(B
+$B%H%C%W$N%0%k!<%W$NL>A0$G$9!#(B
+
+@item wl-folder-petname-alist
+@vindex wl-folder-petname-alist
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%U%)%k%@$NK\L>$H$"$@L>$N(B cons $B$N%j%9%H$G$9!#(B
+
+@item wl-folder-access-subscribe-alist
+@vindex wl-folder-access-subscribe-alist
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%"%/%;%9%0%k!<%W$N%j%9%H<hF@$G<+F0E*$K(B subscribe$B!"$b$7$/$O(B unsubscribe
+$B$9$k%U%)%k%@$r;XDj$7$^$9!#(B
+
+$B%j%9%H$N3FMWAG$O(B
+
+($B%"%/%;%9%0%k!<%W$N@55,I=8=(B . ($B9XFI%U%i%0(B $B%U%)%k%@$N@55,I=8=(B @dots{}))
+
+$B$H$J$C$F$$$^$9!#9XFI%U%i%0$,(B non-nil $B$N>l9g$O%U%)%k%@$N@55,I=8=$K%^%C%A(B
+$B$7$?%U%)%k%@$N$_I=<($7!"9XFI%U%i%0$,(B nil $B$N>l9g$O%U%)%k%@$N@55,I=8=$K%^%C(B
+$B%A$7$?%U%)%k%@$OI=<($5$l$J$/$J$j$^$9!#$?$@$7!"9XFI%U%i%0$,(B non-nil $B$G$b(B
+$B4{$K(B unsubscribe $B$5$l$F$$$k%U%)%k%@$OI=<($5$l$^$;$s!#$^$?!"%U%)%k%@$N@5(B
+$B5,I=8=$OJ#?t8D5-=R$G$-$^$9!#(B
+
+$BNc(B:
+
+@example
+'(("^-fj$" . (t   "^-fj\\.\\(comp\\|editor\\|mail\\)"
+                  "^-fj\\.\\(net\\|news\\|os\\|rec\\)"))
+  ("^-$" . (t   "^-\\(fj\\|tnn\\|japan\\|gnu\\|comp\\)"))
+  ("^\\+ml$" . (nil "^\\+ml$" "^\\+ml/tmp")))
+@end example
+
+@item wl-folder-hierarchy-access-folders
+@vindex wl-folder-hierarchy-access-folders
+$B=i4|@_Dj$O(B '("-" "-alt")$B!#(B
+$B3,AX9=B$$K:n@.$9$k%"%/%;%9%0%k!<%W%U%)%k%@$N%j%9%H!#(B
+
+$BNc$($P!"0J2<$N$h$&$K(B 
+@code{wl-folder-hierarchy-access-folders} $B$r@_Dj$9$k$H!"(B
+
+@lisp
+(setq wl-folder-hierarchy-access-folders
+     '("-" "-alt" "-japan" "-comp" "-comp.unix"))
+@end lisp
+
+$B<!$N$h$&$J3,AX9=B$$K$J$C$?%"%/%;%9%0%k!<%W$,:n$i$l$^$9!#(B
+
+@example
+   [-]-:912/912/3011
+     [-]-fj:674/674/1314
+       -fj.comp.announce:0/0/2
+       -fj.comp.dev.cdrom:0/0/0
+       @dots{}
+     [+]-japan:238/238/1688
+     [-]-comp:0/0/4
+       [-]-comp.unix:0/0/0
+         -comp.unix.admin:0/0/0
+         -comp.unix.dos-under-unix:0/0/0
+         -comp.unix.programmer:0/0/0
+         [-]-comp.unix.bsd:0/0/23
+           -comp.unix.bsd.freebsd.announce:0/0/0
+     @dots{}
+@end example
+
+$B$?$@$7!"(B@samp{-} $B$r3+$$$?$@$1$G$O(B1$B$DL\$N3,AX(B
+(@samp{-fj}, @samp{-japan}, @samp{-tnn}, @dots{}) $B$,:n$i$l$k$@$1$G!"(B
+2$B$DL\$N3,AX(B(@samp{-fj.comp.announce}, @dots{}, @samp{-comp.unix}, @dots{})
+$B0J2<$N%U%)%k%@$O$"$i$?$a$F$=$N%0%k!<%W$r3+$/$^$G:n$i$l$^$;$s!#(B
+@end table
+
+
+@node Folder Manager,  , Selecting Folder, Folder
+@section $B9XFI%U%)%k%@$NJT=8(B
+@cindex Folder Manager
+@cindex Folder, Edit
+@cindex Folder, Subscribe
+@cindex Folder, Unsubscribe
+
+$BA0$K=R$Y$?DL$j!"9XFI$9$k%U%)%k%@$O(B @file{~/.folders} $B$KJ];}$5$l$^$9$,!"(B
+@file{~/.folders} $B$rD>@\JT=8$9$k$^$G$b$J$/!"(B
+$B%U%)%k%@%b!<%I$+$i$b%U%)%k%@$NDI2C(B/$B:o=|(B/$B%0%k!<%W$NDj5A$J$I$NJT=8$,2DG=$H$J$C$F$$$^$9!#(B
+
+
+@subsection $B;HMQJ}K!(B(TIPS)
+
+@subsubsection $B%U%)%k%@$NDI2C(B
+
+@kbd{m a} $B$G?75,$K9XFI$9$k%U%)%k%@$rDI2C$7$^$9!#(B
+@kbd{m g} $B$G%0%k!<%W$,DI2C$5$l$^$9!#(B
+$B$3$N%0%k!<%W$K%U%)%k%@$rDI2C$9$k$K$O!"$^$:$3$N%0%k!<%W$r3+$$$?>uBV$K$7$^$9!#(B
+$B$=$7$F<!$N9T$GA^F~$N%3%^%s%I$r<B9T$9$k$H%0%k!<%W$KDI2C$5$l$k$h$&$K$J$j$^$9!#(B
+
+@subsubsection $B%U%)%k%@$NJT=8(B
+
+@kbd{C-k} $B$G%+%C%H(B($B@Z$j<h$j(B)$B!"(B@kbd{C-y} $B$G%Z!<%9%H(B($BD%$jIU$1(B)$B$,$G$-$^$9!#(B
+$B$D$^$j!"DL>o$NJ8=qJT=8$N9TJT=8$HF1$8$h$&$K%U%)%k%@$N0LCV$rJQ992DG=$G$9!#(B
+
+@subsubsection $B%^%k%A%U%)%k%@$N:n@.J}K!(B
+
+@enumerate
+@item
+@kbd{m q}$B$G(B @code{wl-fldmgr-cut-entity-list} $B$r>C$7$^$9!#(B
+@item
+@kbd{C-k} $B$+(B @kbd{M-c} $B$G%U%)%k%@$r:o=|!"$^$?$O%3%T!<$7$^$9!#(B
+@item
+@kbd{m m} $B$r<B9T$9$k$H!"%^%k%A%U%)%k%@$,:n@.$5$l$^$9!#(B
+@end enumerate
+
+@subsubsection $B$"$@L>(B(petname)$B$d%U%#%k%?$N:o=|(B
+
+$B$"$@L>$d%U%#%k%?$N@_Dj$G$O!"(Bminibuffer $B$G(B ""(NULL) $B$rF~NO$9$k$H(B
+$B$"$@L>$d%U%#%k%?$,:o=|$5$l$^$9!#(B
+
+@subsubsection $B6u%0%k!<%W$X$NDI2C(B
+
+@kbd{m g} $B$J$I$G%0%k!<%W$r:n@.$7$?8e!"$3$N%0%k!<%W$K%U%)%k%@$rDI2C$9$k$K(B
+$B$O!"$^$:$3$N%0%k!<%W$r3+$$$?>uBV$K$7$^$9!#$=$7$F<!$N9T$GDI2C$dA^F~$N%3(B
+$B%^%s%I$r<B9T$9$k$H%0%k!<%W$KDI2C$5$l$^$9!#JD$8$?>uBV$G$O$=$N%0%k!<%W$H(B
+$BF1$8%l%Y%k$KA^F~$5$l$^$9!#8@MU$G@bL@$9$k$N$OFq$7$$$N$G<B:]$K<B9T$7$F$_(B
+$B$k$H$$$$$G$7$g$&!#$D$^$j!"%+!<%=%k0LCV$h$j>e$K$"$k%0%k!<%W$N3+JD>uBV$K(B
+$B$h$jA^F~$5$l$k0LCV$,0[$J$k$N$G$9!#(B
+
+@subsubsection save$B;~$N8@8l%3!<%I(B
+
+@code{wl-folders-file} $B$r(B save $B$9$k$H$-$O(B @code{wl-mime-charset} $B$N8@8l%3!<%I$K$J$j$^$9!#(B
+
+@subsubsection $B%U%#%k%?%U%)%k%@$N:n@.(B
+
+$B%U%#%k%?%U%)%k%@$N:n@.%3%^%s%I$O%+!<%=%k>e$N%U%)%k%@$r%U%#%k%?IU$-$KJQ99(B
+$B$7$^$9!#$b$7%+!<%=%k>e$N%U%)%k%@$r;D$7$?$^$^?7$?$K%U%#%k%?%U%)%k%@$r:n@.(B
+$B$9$k>l9g$O!"$^$:%3%T!<$7$F$+$i%U%#%k%?$r:n@.$7!"$=$N8e%3%T!<$7$?%U%)%k%@(B
+$B$rA^F~$7$^$9!#(B
+$B%U%#%k%?%U%)%k%@:n@.;~$K$O0lEY$KJ#?t$N(B($BB?CJ$N(B)$B%U%#%k%?$,;XDj$G$-$^$9!#(B
+""(NULL)$B$rF~NO$9$l$P!"@hF,$N%U%#%k%?$OA4$F:o=|$5$l$^$9!#(B
+
+@subsubsection $B%U%)%k%@$NJB$SJQ$((B
+
+$B%0%k!<%WFb$N%U%)%k%@$rJB$SJQ$($9$k:]!"(B@code{wl-fldmgr-sort-func} $B$K;XDj(B
+$B$5$l$?4X?t$rMQ$$$^$9!#=i4|@_Dj$G$O(B @code{wl-fldmgr-sort-standard} $B$,;XDj(B
+$B$5$l$F$*$j!"$3$l$O%"%k%U%!%Y%C%H=g$KJB$S$+$(%0%k!<%W$O:G=i$K$9$k4X?t$G$9!#(B
+$BJB$SJQ$($O;XDj$7$?%0%k!<%W$N$_9T$$!"2<0L$N%0%k!<%W$^$GJB$SJQ$($O$7$^$;$s!#(B
+$B$D$^$j!"(Brecursive $B$K$O9T$$$^$;$s!#(B
+
+@subsubsection $B%"%/%;%9%0%k!<%WFb$NI=<($7$J$$%U%)%k%@$N;XDj(B
+
+$B%"%/%;%9%0%k!<%W$r3+$/$HDL>oA4$F$N%U%)%k%@$,I=<($5$l$^$9$,!"(B
+$BI=<($7$J$$%U%)%k%@$r;XDj$9$k$3$H$b$G$-$^$9!#(B
+$B0J2<$NA`:n$O%"%/%;%9%0%k!<%WFb$G$N$_M-8z$G$9!#(B
+
+$B%3%^%s%I(B @code{wl-fldmgr-unsubscribe} (@kbd{u}) $B$O%+!<%=%k0LCV$N%U%)%k%@$N(B
+$BI=<((B(subscribe)$B!&HsI=<((B(unsubscribe)$B@_Dj$r%H%0%k$7$^$9!#$=$l$KBP$7$F(B
+@code{wl-fldmgr-unsubscribe-region} (@kbd{U}) $B$O;XDjHO0O$N%U%)%k%@$rHsI=<($K(B
+$B$7$^$9!#(Bunsubscribe $B$O%H%0%k$7$^$9$,!"(Bregion $B$@$HDL>o%H%0%k$K$J$i(B
+$B$J$$$3$H$KCm0U2<$5$$!#(Bregion $B$N>l9g%H%0%k$K$9$k$h$j$I$A$i$+$K@_Dj$5(B
+$B$;$kJ}$,;H$$$d$9$$$H9M$($3$N$h$&$K$7$F$$$^$9!#$7$+$7!">e5-(B2$B$D$N4X?t$H(B
+$B$b(B prefix argument $B$NCM$,@5$J$i%U%)%k%@$rHsI=<(!"Ii$J$iI=<(!"(B0$B$J$i(B
+$B%H%0%k$5$;$^$9!#(B
+
+$B$^$?%-!<$K$O3d$jEv$F$F$$$^$;$s$,!"%U%)%k%@$rI=<($K@_Dj$9$k$@$1$N(B
+@code{wl-fldmgr-subscribe} $B$H(B @code{wl-fldmgr-subscribe-region} $B$bMQ0U$7$F(B
+$B$$$^$9!#;HMQ$9$k>l9g$OE,Ev$J%-!<$K3d$jEv$F$F$/$@$5$$!#(B
+
+$B$5$i$K!"%"%/%;%9%0%k!<%WFb$G(B @code{wl-fldmgr-cut} $B$H(B 
+@code{wl-fldmgr-cut-region} $B$r<B9T$9$k$H!"$=$l$>$l(B 
+@code{wl-fldmgr-unsubscribe} $B$H(B @code{wl-fldmgr-unsubscribe-region} $B$r<B(B
+$B9T$7$?$N$HF1$88z2L$,F@$i$l$^$9!#0c$$$O(B cut(-region) $B$N>l9g$O2hLL$+$i$b>C(B
+$B5n$9$k$3$H$G$9!#(B
+
+@subsubsection $B%"%/%;%9%0%k!<%WFb$NA`:n(B
+
+$B%"%/%;%9%0%k!<%WFb$G$b:o=|$dA^F~$,9T$($^$9!#$H$$$C$F$b<B:]$K$O(B 
+unsubscribe $B$9$k$+$I$&$+$r@_Dj$7$F$$$k$@$1$G$9$N$G!"EvA3$=$N%"%/%;%9%0%k!<(B
+$B%W$KB0$7$F$$$k%U%)%k%@$N$_JQ99$,2DG=$G$9!#$D$^$j!"A^F~$O(B subscribe $B$7!"(B
+$B:o=|$O(B unsubscribe $B$7$?$3$H$HF1$8$K$J$j$^$9!#(B
+@footnote{$B8=:_$O!";XDjHO0O$rI=<($7$J$$%U%)%k%@$K$9$k$H$-!"(B
+$B;XDjHO0O$N:o=|$r9T$C$?J}$,9bB.$G$9!#(B}
+$B=>$C$F!"(BWanderlust $B0J30$G%U%)%k%@$,JQ99$5$l$?>l9g!"(B
+$B$=$N%U%)%k%@$r<B:]$KDI2C$7$?$j:o=|$7$?$j$9$k$K$O!"(B
+$B%"%/%;%9%0%k!<%W$r(B @kbd{C-u @key{RET}} $B$G99?7$7$F$/$@$5$$!#(B
+@xref{Selecting Folder}.
+
+$B$^$?!"A^F~(B/$B:o=|(B/$BJB$SJQ$($J$I$r9T$C$?$"$H$N%U%)%k%@$NJB$S$OJ];}$5$l$^$9!#(B
+$B$b$7(B @code{wl-force-fetch-folders} $B$r@_Dj$9$k$+!"(B
+@kbd{C-u @key{RET}} $B$G%0%k!<%W$r3+$/$+$9$k$H!"(B
+$BB8:_$7$J$$%U%)%k%@$O:o=|$5$l!"(B
+$B?7$?$K:n@.$5$l$?%U%)%k%@$O@hF,$KDI2C$5$l$^$9!#(B
+
+@subsection $B%-!<%P%$%s%I(B
+@cindex Keybind, Folder Mode
+@cindex Keybind, Folder Buffer
+
+$B%U%)%k%@$NJT=8$K4X$9$k<g$J%3%^%s%I$N%-!<%P%$%s%I$O0J2<$NDL$j$G$9!#0l1~(B 
+@kbd{m} $B$G;O$^$k%-!<$KA4$F3d$jEv$F$F!"<g$J$b$N$N$_(B1$B%9%H%m!<%/$G;HMQ$G$-$k$h(B
+$B$&$K$7$F$$$^$9!#(B
+
+@table @kbd
+@item m a
+@kindex m a (Folder)
+@findex wl-fldmgr-add
+$B%U%)%k%@$r:n@.$7$^$9!#(B
+(@code{wl-fldmgr-add})
+
+@item +
+@itemx m g
+@kindex + (Folder)
+@kindex m g (Folder)
+@findex wl-fldmgr-make-group
+$B%0%k!<%W$r:n@.$7$^$9!#(B
+(@code{wl-fldmgr-make-group})
+
+@itemx m A
+@kindex m A (Folder)
+@findex wl-fldmgr-make-access-group
+$B%"%/%;%9%0%k!<%W$r:n@.$7$^$9!#(B
+(@code{wl-fldmgr-make-access-group})
+
+@item m d
+@kindex m d (Folder)
+@findex wl-fldmgr-delete
+$B%U%)%k%@$N<BBN$H$=$N(B msgdb $B$r:o=|$7$^$9!#(B
+nntp$B$J$I$N:o=|$G$-$J$$%U%)%k%@$G$O(B msgdb $B$N$_:o=|$7$^$9!#(B
+(@code{wl-fldmgr-delete})
+
+@item R
+@itemx m R
+@kindex R (Folder)
+@kindex m R (Folder)
+@findex wl-fldmgr-rename
+$B%U%)%k%@!"$b$7$/$O%0%k!<%WL>$rJQ99$7$^$9!#(B
+$B%U%)%k%@$rJQ99$9$k>l9g$O(B msgdb $B$N%Q%9$bJQ99$7$^$9!#(B
+(@code{wl-fldmgr-rename})
+
+@item *
+@itemx m m
+@kindex * (Folder)
+@kindex m m(Folder)
+@findex wl-fldmgr-make-multi
+$B%^%k%A%U%)%k%@$r:n@.$7$^$9(B (cut, copy $B$5$l$?%U%)%k%@$r7k9g$7$^$9(B)$B!#(B
+(@code{wl-fldmgr-make-multi})
+
+@item |
+@itemx m f
+@kindex | (Folder)
+@kindex m f (Folder)
+@findex wl-fldmgr-make-filter
+$B%U%#%k%?%U%)%k%@$r:n@.$7$^$9(B ($BA*Br$7$?%U%)%k%@$K(Bfilter$B$rIU$1$^$9(B)$B!#(B
+(@code{wl-fldmgr-make-filter})
+
+@item M-c
+@itemx m c
+@kindex M-c (Folder)
+@kindex m c (Folder)
+@findex wl-fldmgr-copy
+$B%U%)%k%@$r%3%T!<$9$k(B ($B%0%k!<%W$O%3%T!<IT2D(B)$B!#(B
+(@code{wl-fldmgr-copy})
+
+@item M-w
+@itemx m W
+@kindex M-w (Folder)
+@kindex m W (Folder)
+@findex wl-fldmgr-copy-region
+$B;XDjHO0O$N%U%)%k%@$N%3%T!<!#(B
+(@code{wl-fldmgr-copy-region})
+
+@item C-k
+@itemx m k
+@kindex C-k (Folder)
+@kindex m k (Folder)
+@findex wl-fldmgr-cut
+$B%U%)%k%@$N:o=|(B ($B@Z$j<h$j(B)$B!#%U%)%k%@$N<BBN$O:o=|$7$^$;$s!#(B
+(@code{wl-fldmgr-cut})
+
+@item C-w
+@itemx m C-w
+@kindex C-w (Folder)
+@kindex m C-w (Folder)
+@findex wl-fldmgr-cut-region
+$B;XDjHO0O$N%U%)%k%@$N:o=|(B ($B@Z$j<h$j(B)$B!#(B
+(@code{wl-fldmgr-cut-region})
+
+@item C-y
+@itemx m y
+@kindex C-y (Folder)
+@kindex m y (Folder)
+@findex wl-fldmgr-yank
+$B%3%T!<!":o=|$7$?%U%)%k%@(B(cut-list)$B$rA^F~$9$k(B($B%Z!<%9%H!"E=$jIU$1(B)$B!#(B
+(@code{wl-fldmgr-yank})
+
+@item m p
+@kindex m p (Folder)
+@findex wl-fldmgr-set-petname
+$B%U%)%k%@$K$"$@L>(B(petname)$B$rIU$1$k!#(B
+(@code{wl-fldmgr-set-petname})
+
+@item m q
+@kindex m q (Folder)
+@findex wl-fldmgr-clear-cut-entity-list
+cut, copy $B$7$?%U%)%k%@>pJs(B(cut-list)$B$r>C$9!#(B
+(@code{wl-fldmgr-clear-cut-entity-list})
+
+@item m s
+@kindex m s (Folder)
+@findex wl-fldmgr-sort
+$B%0%k!<%WFb$N%U%)%k%@$rJB$SJQ$($k(B ($B$=$N%0%k!<%W3,AX$N$_(B)$B!#(B
+(@code{wl-fldmgr-sort})
+
+@item m C-s
+@kindex m C-s (Folder)
+@findex wl-fldmgr-save
+wl-folders-file $B$K(B save $B$9$k!#(B
+(@code{wl-fldmgr-save})
+@end table
+
+[$B0J2<$NA`:n$O%"%/%;%9%0%k!<%W$KBP$7$F$N$_M-8z(B]
+
+@table @kbd
+@item u
+@itemx m u
+@kindex u (Folder)
+@kindex m u (Folder)
+@findex wl-fldmgr-unsubscribe
+$B%U%)%k%@$NI=<((B/$BHsI=<($N@_Dj!#(B
+(@code{wl-fldmgr-unsubscribe})
+
+@item U
+@itemx r u
+@kindex U (Folder)
+@kindex r u (Folder)
+@findex wl-fldmgr-unsubscribe-region
+$B;XDjHO0O$K$"$k%U%)%k%@$NI=<((B/$BHsI=<($N@_Dj!#(B
+(@code{wl-fldmgr-unsubscribe-region})
+
+@item l
+@itemx m l
+@kindex l (Folder)
+@kindex m l (Folder)
+@findex wl-fldmgr-access-display-normal
+$B8=:_M-8z$J%U%)%k%@$N$_0lMwI=<($9$k!#(B
+(@code{wl-fldmgr-access-display-normal})
+
+@item L
+@itemx m L
+@kindex L (Folder)
+@kindex m L (Folder)
+@findex wl-fldmgr-access-display-all
+$BHsI=<($N%U%)%k%@$b4^$a$FA4$F$N%U%)%k%@$r0lMwI=<($9$k!#(B
+(@code{wl-fldmgr-access-display-all})
+
+@item C-c C-o
+@kindex C-c C-o (Folder)
+@findex wl-jump-to-draft-buffer
+$B%I%i%U%H%P%C%U%!$,$"$l$P0\F0$7$^$9!#(B $BJ#?t$N%I%i%U%H%P%C%U%!$,B8:_$9$k>l9g$O!"(B
+$B<!!9$H@Z$jBX$($F$$$-$^$9!#$^$?!"(Bprefix argument $B$r$D$1$k$3$H$K$h$j!"(B
+$B%P%C%U%!$,B8:_$7$F$$$J$$>l9g$O!"%I%i%U%H%U%)%k%@$+$i%U%!%$%k$r(B($BB8:_$9$l$P(B)
+$BFI$_9~$_$^$9!#(B
+(@code{wl-jump-to-draft-buffer})
+@end table
+
+
+@subsection $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item  wl-interactive-save-folders
+@vindex wl-interactive-save-folders
+$B=i4|@_Dj$O(B t$B!#(B
+$B%U%)%k%@JQ99$NA`:n$r9T$C$?>l9g!"(BWanderlust $B=*N;;~$b$7$/$O(B Emacs $B=*N;;~$K(B
+ save $B$9$k$+3NG'$r9T$$$^$9!#(Bnil $B$@$H3NG'$J$7$G(B save $B$7$^$9!#(B
+
+@item wl-fldmgr-make-backup
+@vindex wl-fldmgr-make-backup
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i!"(Bsave$B$9$k:]$K(B @file{~/.folders.bak} $B$K%P%C%/%"%C%W$r<h$j$^$9!#(B
+
+@item wl-fldmgr-sort-func
+@vindex wl-fldmgr-sort-func
+$B=i4|@_Dj$O(B 'wl-fldmgr-sort-standard$B!#(B
+sort $B;~$K;HMQ$9$k4X?t$r;XDj$7$^$9!#(B
+$B=i4|@_Dj$O!"%"%k%U%!%Y%C%H=g$KJB$Y%0%k!<%W$O:G=i$K$9$k4X?t$G$9!#(B
+(@code{wl-fldmgr-sort-group-first} $B$,(B non-nil $B$N>l9g(B)$B!#(B
+
+@item wl-fldmgr-sort-group-first
+@vindex wl-fldmgr-sort-group-first
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i!"(B@code{wl-fldmgr-sort-standard} $B$GJB$SBX$($k$H$-%0%k!<%W$r:G(B
+$B=i$K$9$k!#(Bnil $B$J$i!"%0%k!<%W$b4^$a$F%"%k%U%!%Y%C%H=g$KJB$SBX$($^$9!#(B
+
+@item wl-folder-check-async
+@vindex wl-folder-check-async
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$N>l9g!"%U%)%k%@$N?75,%a%C%;!<%8?t$N%A%'%C%/$rHsF14|$K9T$J$$$^$9!#(B
+$B%K%e!<%9%0%k!<%W$N%A%'%C%/$,BgI}$KB.$/$J$j$^$9!#(B
+
+@item wl-folder-check-fast
+@vindex wl-folder-check-fast
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$N>l9g!"%U%)%k%@$N?75,%a%C%;!<%8?t$N%A%'%C%/$r9T$&$?$S$K(B
+$B%U%)%k%@$NI=<($r99?7$7$^$;$s!#(B
+
+@item wl-folder-notify-deleted
+@vindex wl-folder-notify-deleted
+$B=i4|@_Dj$O(B nil$B!#(B
+@c  nil means?
+Non-nil $B$J$i%a%C%;!<%8$,:o=|$5$l$?$H$-$K%U%)%k%@%b!<%I$GL$FI?t$r%A%'%C%/(B
+$B$9$k$HIi$NCM$,I=<($5$l$^$9!#(B
+$BCM$,(B 'sync $B$J$i$P!"%a%C%;!<%8$,:o=|$5$l$F$$$?$H$-$K%U%)%k%@$NFbMF$HF14|$r(B
+$B<h$j$^$9!#(B
+@end table
+
+@subsection $B$=$NB>(B
+
+$B%U%)%k%@$NJT=8$K4X$7$F!"0J2<$N$h$&$J;E3]$1$d@)8B$,$"$j$^$9!#(B
+
+@enumerate
+@item
+cut $B$d(B copy $B$r9T$&$H!"%9%?%C%/$N$h$&$KJQ?t(B @code{wl-fldmgr-cut-entity-list}
+ $B$K$?$^$C$F$$$-$^$9!#(Bpaste(yank) $B$O(B cut $B$d(B copy $B$7$?C10L$G(B
+ (region $B$G(B copy $B$7$?$J$i$=$N(B region $BFb$N%U%)%k%@$,(B $B0lEY$K(B) $BEG$-=P$5$l$^$9!#(B
+
+@item
+Desktop $B%0%k!<%W$N(B cut, copy $B$O$G$-$^$;$s!#$^$?!"(BDesktop $B30$X$NA^F~$O$G$-$^$;$s!#(B
+
+@item
+$B%0%k!<%W$N(B copy $B$O$G$-$^$;$s!#(B
+
+@item
+$B%"%/%;%9%0%k!<%W$NA`:n$O%"%/%;%9%0%k!<%W$KB0$7$F$$$k%U%)%k%@$N$_BP>](B
+$B$H$J$j$^$9!#(B
+
+@item
+$BA4BN$GF1$8L>A0$N%0%k!<%W$OJ#?t:n$l$^$;$s!#(B
+
+@item
+$BF1$8%0%k!<%W(B($B3,AX(B)$B$KF1$8%U%)%k%@$O:n$l$^$;$s!#3,AX$,0c$($PJ#?t:n$l$^$9!#(B
+$B0[$J$k%U%)%k%@$KF1$8$"$@L>$O;XDj$G$-$^$;$s!#(B
+@end enumerate
+
+
+@c
+@c  Summary
+@c
+@node Summary, Message, Folder, Top
+@chapter $B%5%^%j%b!<%I(B
+
+@section $B;HMQJ}K!(B(TIPS)
+
+@subsection $B%5%^%j$NI=<(FbMF(B
+
+$B%U%)%k%@%b!<%I$GFI$_$?$$%U%)%k%@$rA*Br$9$k$H!"%5%^%j%b!<%I$K0\F0$7$^$9!#(B
+$B%5%^%j%b!<%I$K$O!"0J2<$N$h$&$K%a%C%;!<%8$N0lMw$,I=<($5$l$^$9!#(B
+
+@example
+  377  09/16($B?e(B)11:57 [+1: $BKLL\$5$s(B       ] Bug?
+  381  09/17($BLZ(B)00:16 [+3: $B1|@>$5$s(B       ] elmo-lha.el -- LHA interface
+  384  09/17($BLZ(B)01:32 [+1: $B$F$i$K$7(B       ] wl-0.6.2
+  389 N09/18($B6b(B)01:07 [+2: $B$F$i$K$7(B       ] wl-0.6.3
+@end example
+
+$B3F%a%C%;!<%8$O!"0l9T$K(B
+
+@example
+$B%a%C%;!<%8HV9f!"0l;~E*%^!<%/!"1JB3E*%^!<%/!"F|IU$1!":9=P?M!"(B $B%5%V%8%'%/%H(B
+@end example
+
+@noindent
+$B$N=g$KI=<($5$l$^$9!#8=:_%P!<%8%g%s$G$OI=<($rJQ99$9$k$3$H$O$G$-$^$;$s!#(B
+
+$B%a%C%;!<%8HV9f$O$=$N%U%)%k%@Cf$K$"$k%a%C%;!<%8$K$D$1$i$l$?HV9f$G$9!#(B
+News $B%U%)%k%@$G$O(B article $BHV9f!"(BIMAP $B%U%)%k%@$G$O(B UID$B!"(BMH $B%U%)%k%@$G$O(B
+$B%U%!%$%kL>$G$9!#(B
+
+$B0l;~E*(B/$B1JB3E*%^!<%/$K$D$$$F$O!"$"$H$G>\$7$/@bL@$7$^$9!#(B
+
+$BF|IU$1$O!"7n(B/$BF|(B($BMKF|(B)$B;~(B:$BJ,(B $B$N$h$&$KI=<($5$l$^$9!#MKF|$rF|K\8l$G$O$J$/1Q8lI=5-$7$?$$>l9g$O!"(B@code{wl-summary-weekday-name-lang} $B$r(B "en" $B$K@_Dj$7$F$/$@$5$$!#(B
+
+$B:9=P?M$O!"%9%l%C%I$N?<$5J,%$%s%G%s%H$5$l$FI=<($5$l$^$9!#:9=P?M$NL>A0$O!"(B
+$B%"%I%l%9D"$K$"$@L>$,$"$l$P$"$@L>$GI=<($7$^$9!#$"$@L>I=5-$r$d$a$?$$>l9g$O!"(B
+@code{wl-use-petname} $B$r(B nil $B$K@_Dj$7$F$/$@$5$$!#(B
+
+$B:9=P?M$NItJ,$K$"$k(B @samp{+2} $B$N$h$&$J?t;z$NI=<($O!"(B
+$B$=$N%a%C%;!<%8$KBP$9$kJV;v$N?t$rI=$7$^$9!#(B
+$BNc$($P(B @samp{+2} $B$J$i(B 2 $BDL$"$C$?$3$H$r<($7$^$9!#(B
+
+$B%5%V%8%'%/%H$O!"%a%C%;!<%8$N(B Subject $B%U%#!<%k%I$G$9!#(B
+$BF1$8%9%l%C%I$G!"$+$D?F$HF1$8%5%V%8%'%/%H$r;}$D%a%C%;!<%8$J$iI=<($5$l$^$;$s!#(B
+$B%a!<%j%s%0%j%9%H$J$I$NDL$7HV9fI=<($OL5;k$5$l$^$9!#%5%V%8%'%/%H$,$J$$>l9g!"(B
+$BJQ?t(B @code{wl-summary-no-subject-message} $B$NFbMF$,I=<($5$l$^$9!#(B
+
+@subsection $B0l;~E*%^!<%/(B
+@cindex Mark, Temporary
+
+$B0l;~E*%^!<%/$O!"%a%C%;!<%8$rA`:n$9$k$?$a%^!<%/$G$9!#(B
+
+$B0l;~E*%^!<%/$K$O!"(B@samp{*}, @samp{D}, @samp{o}, @samp{O} $B$,$"$j$^$9!#(B
+
+@table @samp
+@item *
+$B$^$H$a=hM}MQ%^!<%/$G$9!#(B
+@kbd{m} $B$G$O$8$^$k%3%^%s%I$G(B @samp{*}$B%^!<%/$N$D$$$?%a%C%;!<%8BP$7$F0l3g$7$?=hM}(B
+$B$,$G$-$^$9!#(B
+
+@item D
+$B:o=|$9$k%a%C%;!<%8$KIU$/%^!<%/$G$9!#(B@kbd{d} $B$r2!$9$HIU$-$^$9!#(B
+
+@item o
+$B%j%U%!%$%k$9$k%a%C%;!<%8$KIU$/%^!<%/$G$9!#(B
+@kbd{o}$B$r2!$9$H!"%j%U%!%$%k@h$rJ9$$$FMh$k$N$GEz$($k$H!"%j%U%!%$%k@h$N%U%)%k%@>pJs$H$H$b$KIU$1$i$l$^$9!#(B
+
+@item O
+$B%3%T!<$9$k%a%C%;!<%8$KIU$/%^!<%/$G$9!#(B
+@kbd{O}$B$r2!$9$H!"%3%T!<@h$rJ9$$$FMh$k$N$GEz$($k$H!"%3%T!<@h$N%U%)%k%@>pJs$H$H$b$KIU$1$i$l$^$9!#(B
+@end table
+
+@kbd{x} $B$r2!$9$3$H$K$h$j!"(B@samp{D}, @samp{o}, @samp{O} $B$N%^!<%/$,$D$1$i$l$?%a%C%;!<%8$N:o=|!"%j%U%!%$%k!"%3%T!<$,<B9T$5$l$^$9!#(B
+
+@subsection $B1JB3E*%^!<%/(B
+
+$B1JB3E*%^!<%/$O!"%a%C%;!<%8$N>uBV$r$7$a$9%^!<%/$G$9!#(B
+
+$B1JB3E*%^!<%/$K$O!"(B@samp{N}, @samp{U}, @samp{!}, @samp{u}, @samp{$} $B$,$"$j$^$9!#(B
+
+
+@table @samp
+@item N
+$B?75,%a%C%;!<%8$KIU$-$^$9!#(B
+@item U
+$BL$FI%a%C%;!<%8$KIU$-$^$9!#(B
+@item !
+$BL$FI%a%C%;!<%8$KIU$-$^$9!#(B@samp{U} $B$H$N0c$$$O!"(B@samp{!} $B$N%a%C%;!<%8$O(B
+$B%-%c%C%7%e$5$l$F$$$k$3$H$G$9!#(B
+@item u
+$B4{FI%a%C%;!<%8$KIU$-$^$9!#%^!<%/$J$7$H$N0c$$$O!"(B@samp{u} $B$N%a%C%;!<%8$O(B
+$B%-%c%C%7%e$5$l$F$$$J$$$3$H$G$9!#(B
+@item $
+@kbd{$} $B%-!<$r2!$9$H!"(B@samp{$} $B%^!<%/$,IU$-$^$9!#(B
+$B$3$N%^!<%/$O(BEmacs$B$r=*N;$7$F$bJ]B8$5$l$k$?$a!"$"$H$GJV;v$r=q$-$?$$>l9g$J$I!"3P$($F$*$-$?$$=EMW$J%a%C%;!<%8$KIU$1$F$*$/$HJXMx$G$9!#(B@samp{$} $B$NIU$$$?%a%C%;!<%8$O!"%K%e!<%95-;v$d%5!<%P>e$N(BIMAP$B%U%)%k%@$N%a%C%;!<%8$,(B expire $B$5$l$k$J$I$7$F>C$($?>l9g$b;D$j$^$9!#(B
+@item $B$J$7(B
+$B4{FI%a%C%;!<%8$K$O%^!<%/$,B8:_$7$^$;$s!#(B
+@end table
+
+@samp{N}, @samp{U}, @samp{u} $B$O!"(B
+$B$=$N%a%C%;!<%8$,%-%c%C%7%e$5$l$F$$$J$$$3$H$r$7$a$7$F$$$^$9!#(B
+$B$3$l$i$N%^!<%/$,IU$$$F$$$J$$>l9g!"(B
+$B$D$^$j!"$=$N%a%C%;!<%8$,%-%c%C%7%e$5$l$F$$$k>l9g$O!"(B
+$B%M%C%H%o!<%/$K@\B3$5$l$F$$$J$/$F$b(B IMAP $B%U%)%k%@$N%a%C%;!<%8$d(B
+NNTP $B%U%)%k%@$N%K%e!<%95-;v$rFI$`$3$H$,$G$-$^$9!#(B
+
+@subsection $B%a%C%;!<%8$NFI$_$9$9$a$+$?(B
+
+$B4pK\E*$K%9%Z!<%9%-!<$r2!$9$@$1$GFI$_?J$a$k$3$H$,$G$-$^$9!#(B
+$B%5%^%j$NI=<(FbMF$r%U%)%k%@$N:G?7$N>uBV$K9g$o$;$k(B($BF14|$9$k(B)$B$K$O!"(B
+@kbd{s} $B$r2!$7$^$9!#(B
+
+@kbd{N} $B$G<!$NL$FI!"(B@kbd{n} $B$G<!$N%a%C%;!<%8$rI=<($7$^$9!#(B
+@kbd{j} $B$r2!$9$H8=:_I=<(Cf$N%a%C%;!<%8$N%P%C%U%!$K0\F0$7$^$9!#(B
+$B%^%k%A%Q!<%H$NA`:n$O%a%C%;!<%8%P%C%U%!$K0\F0$7$F$+$i9T$$$^$9!#(B
+
+@subsection $B%9%l%C%I$NA`:n(B
+
+$BNc$($P!"(B
+
+@example
+  384  09/17($BLZ(B)01:32 [+1: $B$F$i$K$7(B       ] wl-0.6.2
+@end example
+
+@noindent
+$B$O0l$D$N%9%l%C%I(B($B0l$D$NOCBj$NN.$l(B)$B$r<($7$F$$$^$9!#(B
+$B$3$N9T$G!"(B@kbd{/} $B$r2!$9$H$3$N%9%l%C%I$,3+$+$l!"<!$N$h$&$JI=<($K$J$j$^$9!#(B
+
+@example
+  384  09/17($BLZ(B)01:32 [ $B$F$i$K$7(B          ] wl-0.6.2
+  388  09/17($BLZ(B)22:34 $B(&(B[ $BB<ED$5$s(B          ]
+@end example
+
+(388 $BHV$N%a%C%;!<%8$O(B 384 $BHV$N%a%C%;!<%8$KBP$9$kJV;v$G$9!#(B)
+$B$b$&0l2s(B @kbd{/} $B$r2!$9$H!"%9%l%C%I$rJD$8$^$9!#(B
+prefix argument $B$D$-$G(B @kbd{/} $B$r2!$9$H!"A4$F$N;R%9%l%C%I$r3+$-$^$9!#(B
+
+@kbd{t} $B$+$i;O$^$k%3%^%s%I$G!"$=$N%9%l%C%I$KB0$9$k%a%C%;!<%8$KBP$7$F0l3g$7$F=hM}$r9T$&$3$H$,$G$-$^$9!#(B
+
+@subsection $B%-%c%C%7%e%U%!%$%k(B
+
+$B%M%C%H%o!<%/7PM3$N%a%C%;!<%8$O%-%c%C%7%e$5$l$^$9!#(B
+$B%-%c%C%7%e$O!"%G%#%l%/%H%j(B @file{~/.elmo/cache} $B$KJ];}$5$l$^$9!#(B
+$B%-%c%C%7%e$r%/%j%"$9$k$K$O!"(B
+
+@example
+M-x elmo-cache-expire-by-size
+@end example
+
+@noindent
+$B$HF~NO$7$F$/$@$5$$!#(B
+$B:G6a;H$o$l$F$J$$%-%c%C%7%e$+$i=g$K!"0lDj$N%G%#%9%/MFNL$K$J$k$^$G>C$7$^$9!#(B
+
+@subsection $B%P%C%U%!%-%c%C%7%e$H@hFI$_5!G=(B
+
+@code{elmo-use-buffer-cache} $B$,(B non-nil $B$G$"$l$P!"(B
+$B0lEYFI$s$@%a%C%;!<%8$,0lDj?t%P%C%U%!$KJ];}$5$l$^$9!#(B
+$BJ];}$9$k%P%C%U%!$N?t$O(B @code{elmo-buffer-cache-size} $B$G;XDj$7$^$9!#(B
+
+$B$^$?!"%a%C%;!<%8$rFI$s$G$$$k4V$K<!$N%a%C%;!<%8$r<hF@$7$F$*$/(B
+$B@hFI$_5!G=$,$"$j$^$9!#(B
+$B$3$l$O@hFI$_$7$?%a%C%;!<%8$r%P%C%U%!%-%c%C%7%e$K$?$a$F$*$/$?$a!"(B
+@code{elmo-use-buffer-cache} $B$,(B non-nil $B$G$"$k$3$H$,I,MW$G$9!#(B
+
+$B$3$N@hFI$_$9$k%U%)%k%@$O<!$N(B2$B$D$NJQ?t$K$h$j;XDj$G$-$^$9!#(B
+
+@table @code
+@item wl-cache-prefetch-folder-type-list
+@vindex wl-cache-prefetch-folder-type-list
+$B=i4|@_Dj$O(B '(nntp imap4)$B!#(B
+$B@hFI$_5!G=$rM-8z$K$9$k%U%)%k%@$r<oJL$N%j%9%H$G;XDj$7$^$9!#(B
+$B=i4|@_Dj$N>l9g!"$b$7(B localdir $B$H(B imap4 $B%U%)%k%@$,:.:_$7$?(B multi$B%U%)%k%@$G$O(B 
+imap4 $B$N%a%C%;!<%8$@$1$,@hFI$_$5$l$^$9!#(B
+$B$3$NJQ?t$O(B @code{wl-cache-prefetch-folder-list} $B$h$j$bM%@h$5$l$^$9!#(B
+
+$B$b$7!"(Blocaldir $B$H(B localnews $B%U%)%k%@$b@hFI$_$9$k>l9g$O<!$N$h$&$K;XDj$7$^$9!#(B
+@lisp
+(setq wl-cache-prefetch-folder-type-list
+      '(nntp imap4 localdir localnews))
+@end lisp
+
+@item wl-cache-prefetch-folder-list
+@vindex wl-cache-prefetch-folder-list
+$B=i4|@_Dj$O(B nil$B!#(B
+$B@hFI$_5!G=$rM-8z$K$9$k%U%)%k%@$r%U%)%k%@L>(B($B@55,I=8=(B)$B$N%j%9%H$G;XDj$7$^$9!#(B
+@end table
+
+@subsection $B<+F0%j%U%!%$%k(B
+
+$B%a%C%;!<%8$N%X%C%@>pJs$+$iG$0U$N%U%)%k%@$X?6$jJ,$1$k<+F0%j%U%!%$%k5!G=$,(B
+@kbd{C-o} (@code{wl-summary-auto-refile}) $B$G;HMQ$G$-$^$9!#<+F0%j%U%!%$%k$O(B 
+msgdb $B$N(B overview $B>pJs$r85$K?6$jJ,$1$7$^$9!#(B
+$BI8=`$G$O(B @samp{From} @samp{Subject} @samp{To} @samp{Cc} $B$,4^$^$l$F$$$^$9!#(B
+$B$3$l0J30$N3HD%9`L\$G?6$jJ,$1$7$?$$$H$-$K$O!"(B
+
+@lisp
+(setq elmo-msgdb-extra-fields
+      '("x-ml-name"
+      "reply-to"
+      "sender"
+      "mailing-list"
+      "newsgroups"))
+@end lisp
+
+@noindent
+$B$H$7$F3HD%9`L\$,(B msgdb $B$K4^$^$l$k$h$&$K$7$F$/$@$5$$!#$9$G$K<hF@$7$?%a%C(B
+$B%;!<%8$N3HD%9`L\$r<h$j9~$`$K$O(B @kbd{s all} $B$J$I$G(B msgdb $B$r:F:n@.$9$kI,MW(B
+$B$,$"$j$^$9!#(B
+
+$B<!$K?6$jJ,$1$9$k%k!<%k$r@_Dj$7$^$9!#(B
+
+@lisp
+(setq wl-refile-rule-alist
+      '(
+        ("x-ml-name"
+         ("^Wanderlust" . "+wl")
+         ("^Elisp" . "+elisp"))
+        ("From"
+         ("teranisi@@isl.ntt.co.jp" . "+teranisi"))))
+@end lisp
+
+$B$3$N$h$&$J@_Dj$r$7(B @kbd{C-o} (@code{wl-summary-auto-refile}) $B$G>r7o$K(B
+$B%^%C%A$7$?%a%C%;!<%8$K%j%U%!%$%k%^!<%/$,IU2C$5$l$^$9!#(B@kbd{x} $B$G%j%U%!%$(B
+$B%k$r<B9T$7$^$9!#%k!<%k$NA0J}$K$"$k?6$jJ,$1>r7o$,M%@h$5$l$^$9!#(B
+
+@code{wl-summary-auto-refile-skip-marks} $B$r@_Dj$9$k$3$H$K$h$j!"(B
+$B<+F0%j%U%!%$%k$NBP>]$H$9$k%a%C%;!<%8$rJQ99$9$k$3$H$,$G$-$^$9!#(B
+$BI8=`$G$O(B @samp{N} @samp{U} @samp{!} $B$,@_Dj$5$l$F$*$j!"(B
+$B$3$l$i$N1JB3E*%^!<%/$N$D$$$?%a%C%;!<%8$O!"<+F0%j%U%!%$%k$7$^$;$s!#(B
+$B$D$^$jI8=`$G$OL$FI$N%a%C%;!<%8$r<+F0%j%U%!%$%k$7$J$$$3$H$K$J$j$^$9!#(B
+$B$9$Y$F$N%a%C%;!<%8$r<+F0%j%U%!%$%k$NBP>]$K$9$k$K$O!"(B
+
+@lisp
+(setq wl-summary-auto-refile-skip-marks nil)
+@end lisp
+
+@noindent
+$B$NMM$K(B @code{wl-summary-auto-refile-skip-marks} $B$r(B nil $B$K$7$^$9!#(B
+
+
+@subsection $B%9%F%#%C%-!<%5%^%j(B
+@cindex Summary, Sticky
+@cindex Sticky Summary
+
+$B%9%F%#%C%-!<%5%^%j$O!"(B@kbd{q} $B$G8=:_$N%5%^%j$r=*N;$7$F$b%P%C%U%!$,>C$($J(B
+$B$$!"$=$NL>$NDL$j%9%F%#%C%-!<(B($B$7$D$3$$(B)$B%5%^%j$G$9!#(B
+
+@kbd{C-u g} $B$G%U%)%k%@0\F0$9$k$+!"DL>o$N%5%^%j$G(B @kbd{M-s}
+(@code{wl-summary-stick}) $B$r<B9T$9$k$H%9%F%C%#%-!<%5%^%j$K$J$j$^$9!#%9(B
+$B%F%#%C%-!<%5%^%j$N%P%C%U%!L>$O!"(B@samp{Summary:@var{$B%U%)%k%@L>(B}} $B$H$J$j$^$9!#(B
+@kbd{C-x b} (@code{switch-to-buffer}) $B$J$I$G!"E,Ev$K@ZBX$($l$P$$$D$G$b;2(B
+$B>H$G$-$^$9!#%9%F%#%C%-!<%5%^%j$r=*N;$9$k$K$O(B @kbd{C-u q} $B$G$9!#$=$NB>$N(B
+$BA`:n$K4X$7$F$ODL>o$N%5%^%j$HF1MM$G$9!#(B
+
+$BJQ?t(B @code{wl-summary-always-sticky-folder-list} $B$K%U%)%k%@L>(B($B@55,I=8=(B)
+$B$N%j%9%H$r@_Dj$9$k$3$H$K$h$j!"%U%)%k%@0\F0;~$K<+F0E*$K%9%F%#%C%-!<%5%^%j$H$9$k$3$H$b$G$-$^$9!#(B
+
+@section $B%-!<%P%$%s%I(B
+@cindex Keybind, Summary Mode
+@cindex Keybind, Summary Buffer
+
+$B%5%^%j%b!<%I$N%-!<%P%$%s%I$O0J2<$NDL$j$G$9!#(B
+
+@table @kbd
+@item @key{SPC}
+@kindex @key{SPC} (Summary)
+@findex wl-summary-read
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r%a%C%;!<%8%P%C%U%!$KI=<($7$^$9!#(B
+(@code{wl-summary-read})
+
+@item .
+@kindex . (Summary)
+@findex wl-summary-redisplay
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r:FI=<($7$^$9!#(B
+prefix argument $B$D$-$J$i$P%-%c%C%7%e$,B8:_$7$F$bL5;k$7$F:FFI$_9~$_$7D>$7$^$9!#(B
+(@code{wl-summary-redisplay})
+
+@item <
+@kindex < (Summary)
+@findex wl-summary-display-top
+$B:G=i$N%a%C%;!<%8$rI=<($7$^$9!#(B
+(@code{wl-summary-display-top})
+
+@item >
+@kindex > (Summary)
+@findex wl-summary-display-bottom
+$B:G8eHx$N%a%C%;!<%8$rI=<($7$^$9!#(B
+(@code{wl-summary-display-bottom})
+
+@item @key{BS}
+@itemx @key{DEL}
+@kindex @key{BS} (Summary)
+@kindex @key{DEL} (Summary)
+$BA0$N%Z!<%8$rI=<($7$^$9!#(B
+@findex wl-summary-prev-page
+(@code{wl-summary-prev-page})
+
+@item @key{RET}
+@kindex @key{RET} (Summary)
+@findex wl-summary-next-line-content
+$B%+!<%=%k9T$N%a%C%;!<%8$,I=<(Cf$G$"$l$P%a%C%;!<%8$r0l9T>e$K%9%/%m!<%k$7$^$9!#(B
+$BI=<(Cf$G$J$1$l$P!"I=<($7$^$9!#(B
+(@code{wl-summary-next-line-content})
+
+@item /
+@kindex / (Summary)
+@findex wl-thread-open-close
+$B%+!<%=%k9T$N%9%l%C%I$N3+JD$r%H%0%k$7$^$9!#(B
+(@code{wl-thread-open-close})
+
+@item [
+@kindex [ (Summary)
+$BA4$F$N%9%l%C%I$r3+$-$^$9!#(B
+@findex wl-thread-open-all
+(@code{wl-thread-open-all})
+
+@item ]
+@kindex ] (Summary)
+$BA4$F$N%9%l%C%I$rJD$8$^$9!#(B
+@findex wl-thread-close-all
+(@code{wl-thread-close-all})
+
+@item -
+@itemx M-@key{RET}
+@kindex - (Summary)
+@kindex M-@key{RET} (Summary)
+@findex wl-summary-prev-line-content
+$B%+!<%=%k9T$N%a%C%;!<%8$,I=<(Cf$G$"$l$P%a%C%;!<%8$r0l9T2<$K%9%/%m!<%k$7$^$9!#(B
+$BI=<(Cf$G$J$1$l$P!"I=<($7$^$9!#(B
+(@code{wl-summary-prev-line-content})
+
+@item g
+@kindex g (Summary)
+@findex wl-summary-goto-folder
+$B0c$&%U%)%k%@$K0\F0$7$^$9!#(B
+(@code{wl-summary-goto-folder})
+
+@item c
+@kindex c (Summary)
+$BA4$F$N%a%C%;!<%8$rFI$s$@$3$H$K$7$^$9!#(B
+@findex wl-summary-mark-as-read-all
+(@code{wl-summary-mark-as-read-all})
+
+@item a
+@kindex a (Summary)
+@findex wl-summary-reply
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$X$NJV;vMQ$N%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-summary-reply})
+
+@item A
+@kindex A (Summary)
+@findex wl-summary-reply-with-citation
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$X$NJV;vMQ$N%I%i%U%H$rK\J8$r0zMQ$7$FMQ0U$7$^$9!#(B
+(@code{wl-summary-reply-with-citation})
+
+@item C
+@kindex C (Summary)
+@findex wl-summary-cancel-message
+$B8=:_$N%+!<%=%k$,$"$k9T$N%a%C%;!<%8$,<+J,$,=P$7$?%K%e!<%95-;v$N>l9g!"$=$NEj9F$r%-%c%s%;%k$7$^$9!#(B
+(@code{wl-summary-cancel-message})
+
+@item E
+@kindex E (Summary)
+@findex wl-summary-reedit
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$NFbMF$r$b$D%I%i%U%H$rMQ0U$7$^$9!#(B
+$B$b$7!"(Bprefix argument $B$D$-$G<B9T$9$l$P(B Supersedes $B%a%C%;!<%8$r:n@.$7$^$9!#(B
+$B$?$@$7!"(BNNTP $B%U%)%k%@$G$+$D<+J,$,Ej9F$7$?%a%C%;!<%8$K8B$j$^$9!#(B
+(@code{wl-summary-reedit})
+
+@item M-e
+@kindex M-e (Summary)
+@findex wl-summary-resend-bounced-mail
+$B%+!<%=%k9T$N%a%C%;!<%8$,!"<+J,$N$H$3$m$KJV$C$F$-$?%(%i!<%a%C%;!<%8$J$i$P!"(B
+$B$b$&0l2sAw$k$?$a$N%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-summary-resend-bounced-mail})
+
+@item f
+@kindex f (Summary)
+@findex wl-summary-forward
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$rB>$N?M$KE>Aw$9$k%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-summary-forward})
+
+@item $
+@kindex $ (Summary)
+@findex wl-summary-mark-as-important
+@samp{$} $B%^!<%/$r$D$1$^$9!#$9$G$K(B @samp{$} $B%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+(@code{wl-summary-mark-as-important})
+
+@item y
+@itemx e
+@kindex y (Summary)
+@kindex e (Summary)
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$rJ]B8$7$^$9!#(B
+@findex wl-summary-save
+(@code{wl-summary-save})
+
+@item n
+@kindex n (Summary)
+@findex wl-summary-next
+$B0l$D2<$N%a%C%;!<%8$X0\F0$7$^$9!#(B
+(@code{wl-summary-next})
+
+@item p
+@kindex p (Summary)
+@findex wl-summary-prev
+$B0l$D>e$N%a%C%;!<%8$X0\F0$7$^$9!#(B
+(@code{wl-summary-prev})
+
+@item N
+@kindex N (Summary)
+@findex wl-summary-down
+$B2<J}8~$K$"$kL$FI$b$7$/$O(B @samp{$}$B%^!<%/$D$-$N%a%C%;!<%8$X0\F0$7$^$9!#(B
+(@code{wl-summary-down})
+
+@item P
+@kindex P (Summary)
+@findex wl-summary-up
+$B>eJ}8~$K$"$kL$FI$b$7$/$O(B @samp{$}$B%^!<%/$D$-$N%a%C%;!<%8$X0\F0$7$^$9!#(B
+(@code{wl-summary-up})
+
+@item w
+@kindex w (Summary)
+@findex wl-draft
+$B?75,%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-draft})
+
+@item W
+@kindex W (Summary)
+@findex wl-draft-write-current-newsgroup
+$B8=:_$N%5%^%j$,%K%e!<%9%0%k!<%W$N>l9g!"(BNewsgroups:$B%U%#!<%k%I$rJd$C$F(B
+$B%I%i%U%H$rMQ0U$7$^$9!#(B
+(@code{wl-draft-write-current-newsgroup})
+
+@item H
+@kindex H (Summary)
+@findex wl-summary-redisplay-all-header
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r!"$9$Y$F$N%X%C%@>pJs$H$H$b$KI=<($7$^$9!#(B
+(@code{wl-summary-redisplay-all-header})
+
+@item M
+@kindex M (Summary)
+@findex wl-summary-redisplay-no-mime
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$r!"(BMIME $B2r@O$9$k$3$H$J$/I=<($7$^$9!#(B
+(@code{wl-summary-redisplay-no-mime})
+
+@item B
+@kindex B (Summary)
+@findex wl-summary-burst
+$B8=:_%+!<%=%k$,$"$k9T$N%a%C%;!<%8$,(B
+MIME $B$G%+%W%;%k2=$5$l$?J#?t$N%a%C%;!<%84^$`>l9g!"(B
+$B$=$l$i$r8=:_$N%U%)%k%@$K$[$I$-$^$9(B($BL$<BAu(B)$B!#(B
+(@code{wl-summary-burst})
+
+@item @@
+@kindex @@ (Summary)
+@findex wl-summary-edit-petname
+$B%5%^%j9T$N%a!<%k$N(BFrom($BH/?.<T(B)$B$r(B @file{~/.addresses} $B$K%$%s%?%i%/%F%#%V$KDI2C$7$^$9!#(B
+$B$9$G$KEPO?$5$l$F$$$k>l9g$OJQ99(B/$B:o=|$b$G$-$^$9!#(B
+prefix argument $B$D$-$G<B9T$9$k$H!"G$0U$NF~NO%"%I%l%9$rEPO?(B/$BJQ99(B/$B:o=|$G$-$^$9!#(B
+(@code{wl-summary-edit-petname})
+
+@item Z
+@kindex Z (Summary)
+@findex wl-status-update
+@file{~/.addresses} $BEy$N>uBV$r:G?7$N$b$N$K99?7$7$^$9!#(B
+(@code{wl-status-update})
+
+@item |
+@kindex | (Summary)
+@findex wl-summary-pipe-message
+$B8=:_$N%a%C%;!<%8$NFbMF$rB>$N%W%m%;%9$K%Q%$%W7PM3$G0z$-EO$7$^$9!#(B
+(@code{wl-summary-pipe-message})
+
+@item #
+@kindex # (Summary)
+@findex wl-summary-print-message
+$B8=:_$N%a%C%;!<%8$NFbMF$r0u:~$7$^$9!#(B
+Emacs20 $B!A(B $B$G$O(B ps-print $B$r;H$$$^$9!#(B
+$BGr9u%W%j%s%?$G$O!"(B@code{wl-ps-print-buffer-func} $B$r(B
+'ps-print-buffer $B$K@_Dj$7$?$[$&$,$h$$$+$b$7$l$^$;$s!#(B
+(@code{wl-summary-print-message})
+
+@item q
+@kindex q (Summary)
+@findex wl-summary-exit
+$B8=:_$N%U%)%k%@$rC&=P$7$^$9!#(B
+(@code{wl-summary-exit})
+
+@item j
+@kindex j (Summary)
+@findex wl-summary-jump-to-current-message
+$B8=:_I=<(Cf$N%a%C%;!<%8$N%P%C%U%!$K0\F0$7$^$9!#(B
+(@code{wl-summary-jump-to-current-message})
+
+@item J
+@kindex J (Summary)
+$B$[$+$N%a%C%;!<%8$K%8%c%s%W$7$^$9!#(B
+@findex wl-summary-jump-to-msg
+(@code{wl-summary-jump-to-msg})
+
+@item I
+@kindex I (Summary)
+$B%5%^%j$NI=<($r99?7$7$?$"$H!"(B
+@code{wl-summary-incorporate-marks} $B$K4^$^$l$k%^!<%/$r;}$D%a%C%;!<%8$r(B
+$B%W%j%U%'%C%A$7$^$9!#(B
+@findex wl-summary-incorporate
+(@code{wl-summary-incorporate})
+
+@item M-j
+@kindex M-j (Summary)
+@findex wl-summary-jump-to-msg-by-message-id
+$BF~NO$7$?%a%C%;!<%8(BID $B$r$b$D%a%C%;!<%8$N9T$K%8%c%s%W$7$^$9!#(B
+@code{elmo-use-database} $B$,(B non-nil$B$J$i!"8=:_$N%5%^%j0J30$+$i$b(B
+$B8uJd$r8!:w$7$^$9!#(B
+(@code{wl-summary-jump-to-msg-by-message-id})
+
+@item ^
+@kindex ^ (Summary)
+$B8=:_$N%a%C%;!<%8$N?F%a%C%;!<%8$K0\F0$7$^$9!#(B
+@findex wl-summary-jump-to-parent-message
+(@code{wl-summary-jump-to-parent-message})
+
+@item !
+@kindex ! (Summary)
+@findex wl-summary-mark-as-unread
+$B%+!<%=%k$,$"$k9T$N%a%C%;!<%8$rFI$^$J$+$C$?$3$H$K$7$^$9!#(B
+(@code{wl-summary-mark-as-unread})
+
+@item s
+@kindex s (Summary)
+@findex wl-summary-sync
+$B%a%C%;!<%8$N0lMwI=<($N99?7%l%s%8(B(all, update, rescan, first, last)$B$NF~NO$r<u$1IU$1$?$N$A!"$=$l$K$b$H$E$$$F%a%C%;!<%8$N0lMwI=<($r99?7$7$^$9!#(B
+
+@example
+all            ...$B$9$Y$F99?7(B
+update         ...$B8=:_$NI=<($r99?7(B
+rescan         ...$B8=:_$N(B msgdb $B$NFbMF$r:FI=<((B
+rescan-noscore ...$B8=:_$N(B msgdb $B$NFbMF$r:FI=<((B($B%9%3%"$J$7(B)
+first, last    ...$B%U%#%k%?%U%)%k%@$K0\F0(B
+@end example
+
+@noindent
+(@code{wl-summary-sync})
+
+@item S
+@kindex S (Summary)
+@findex wl-summary-sort
+$B%5%^%j$NI=<(=g=x$rJB$SJQ$($^$9!#(B
+Date($BF|IU(B) From($BH/?.<T(B) Number($B%a%C%;!<%8HV9f(B) Subject($B%5%V%8%'%/%H(B) $B$N$$$:$l$+$r85$KJB$SJQ$($^$9!#(B
+(@code{wl-summary-sort})
+
+@item T
+@kindex T (Summary)
+@findex wl-summary-toggle-thread
+$B%9%l%C%II=<($r%H%0%k$7$^$9!#(B
+(@code{wl-summary-toggle-thread})
+
+@item l
+@kindex l (Summary)
+@findex wl-summary-toggle-disp-folder
+$B%U%)%k%@%b!<%I$N%P%C%U%!$NI=<($r%H%0%k$7$^$9!#(B
+(@code{wl-summary-toggle-disp-folder})
+
+@item v
+@kindex v (Summary)
+$B%a%C%;!<%8$N%P%C%U%!$NI=<($r%H%0%k$7$^$9!#(B
+@findex wl-summary-toggle-disp-msg
+(@code{wl-summary-toggle-disp-msg})
+
+@item V
+@kindex V (Summary)
+$BM?$($i$l$?>r7o$r;}$D%a%C%;!<%8$N$_$r$b$D2>A[%U%)%k%@$X0\F0$7$^$9!#(B
+prefix argument $B$D$-$G<B9T$9$k$H2>A[%U%)%k%@$+$iC&=P$7$^$9!#(B
+@findex wl-summary-virtual
+(@code{wl-summary-virtual})
+
+@item @key{TAB}
+@kindex @key{TAB} (Summary)
+@findex wl-summary-goto-last-displayed-msg
+$B$5$C$-I=<($7$?%a%C%;!<%8$KHt$S$^$9!#(B
+(@code{wl-summary-goto-last-displayed-msg})
+
+@item ?
+@kindex ? (Summary)
+$BM?$($i$l$?>r7o$r;}$D%a%C%;!<%8$K$^$H$a=hM}%^!<%/(B @samp{*} $B$r$D$1$^$9!#(B
+@findex wl-summary-pick
+(@code{wl-summary-pick})
+
+@item R
+@kindex R (Summary)
+@findex wl-summary-mark-as-read
+$B%+!<%=%k9T$N%a%C%;!<%8$rFI$s$@$3$H$K$7$^$9!#(B
+(@code{wl-summary-mark-as-read})
+
+@item i
+@kindex i (Summary)
+$B%+!<%=%k9T$N%a%C%;!<%8$r%W%j%U%'%C%A$7$^$9!#(B
+@findex wl-summary-prefetch
+(@code{wl-summary-prefetch})
+
+@item x
+@kindex x (Summary)
+$B$9$Y$F$N(B @samp{D}, @samp{o}, @samp{O} $B%^!<%/$r<B9T$7$^$9!#(B
+@findex wl-summary-exec
+(@code{wl-summary-exec})
+
+@item *
+@kindex * (Summary)
+@findex wl-summary-target-mark-line
+$B%+!<%=%k9T$N%a%C%;!<%8$K$^$H$a=hM}MQ%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-target-mark-line})
+
+@item o
+@kindex o (Summary)
+$B%+!<%=%k9T$N%a%C%;!<%8$K%j%U%!%$%k%^!<%/$r$D$1$^$9!#(B
+@findex wl-summary-refile
+(@code{wl-summary-refile})
+
+@item C-o
+@kindex C-o (Summary)
+$B<+F0%j%U%!%$%k$r<B9T$7$^$9!#(B
+@findex wl-summary-auto-refile
+(@code{wl-summary-auto-refile})
+
+@item O
+@kindex O (Summary)
+$B%+!<%=%k9T$N%a%C%;!<%8$K%3%T!<%^!<%/$r$D$1$^$9!#(B
+@findex wl-summary-copy
+(@code{wl-summary-copy})
+
+@item M-o
+@kindex M-o (Summary)
+$B%+!<%=%k9T$N%a%C%;!<%8$K!"D>A0$K%j%U%!%$%k$7$?%U%)%k%@$HF1$8%U%)%k%@08$K!"(B
+$B%j%U%!%$%k%^!<%/$r$D$1$^$9!#(B
+@findex wl-summary-refile-prev-destination
+(@code{wl-summary-refile-prev-destination})
+
+@item d
+@kindex d (Summary)
+@findex wl-summary-delete
+$B%+!<%=%k9T$N%a%C%;!<%8$K:o=|%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-delete})
+
+@item u
+@kindex u (Summary)
+@findex wl-summary-unmark
+$B%+!<%=%k9T$N%a%C%;!<%8$K%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+(@code{wl-summary-unmark})
+
+@item U
+@kindex U (Summary)
+$B;XDj$7$?%^!<%/$r$9$Y$F:o=|$7$^$9!#(B
+@findex wl-summary-unmark-all
+(@code{wl-summary-unmark-all})
+
+@item r R
+@kindex r R (Summary)
+@findex wl-summary-mark-as-read-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$rA4$FFI$s$@$3$H$K$7$^$9!#(B
+(@code{wl-summary-mark-as-read-region})
+
+@item r $
+@kindex r $ (Summary)
+@findex wl-summary-mark-as-important-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8A4$F$K(B @samp{$} $B%^!<%/$r$D$1$^$9!#(B
+$B$9$G$K(B @samp{$} $B%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+(@code{wl-summary-mark-as-important-region})
+
+@item r !
+@kindex r ! (Summary)
+@findex wl-summary-mark-as-unread-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$rA4$FFI$^$J$+$C$?$3$H$K$7$^$9!#(B
+(@code{wl-summary-mark-as-unread-region})
+
+@item r i
+@kindex r i (Summary)
+@findex wl-summary-prefetch-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$rA4$F%W%j%U%'%C%A$7$^$9!#(B
+(@code{wl-summary-prefetch-region})
+
+@item r x
+@kindex r x (Summary)
+@findex wl-summary-exec-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$K$D$$$?(B @samp{D}, @samp{o}, @samp{O} $B%^!<%/$r<B9T$7$^$9!#(B
+(@code{wl-summary-exec-region})
+
+@item r *
+@kindex r * (Summary)
+@findex wl-summary-target-mark-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$K$^$H$a=hM}MQ%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-target-mark-region})
+
+@item r o
+@kindex r o (Summary)
+@findex wl-summary-refile-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$K%j%U%!%$%k%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-refile-region})
+
+@item r O
+@kindex r O (Summary)
+@findex wl-summary-copy-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$K%3%T!<%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-copy-region})
+
+@item r d
+@kindex r d (Summary)
+@findex wl-summary-delete-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$K:o=|%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-delete-region})
+
+@item r u
+@kindex r u (Summary)
+@findex wl-summary-unmark-region
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$K%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+(@code{wl-summary-unmark-region})
+
+@item r y
+@kindex r y (Summary)
+$B;XDj%j!<%8%g%s$K$"$k%a%C%;!<%8$rJ]B8$7$^$9!#(B
+$B8=:_%+!<%=%k$,$"$k9T$N(B
+@findex wl-summary-save-region
+(@code{wl-summary-save-region})
+
+@item t R
+@kindex t R (Summary)
+@findex wl-thread-mark-as-read
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$rFI$s$@$3$H$K$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$rFI$s$@$3$H$K$7$^$9!#(B
+(@code{wl-thread-mark-as-read})
+
+@item t $
+@kindex t $ (Summary)
+@findex wl-thread-mark-as-important
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$K(B @samp{$} $B%^!<%/$r$D$1$^$9!#(B
+$B$9$G$K(B @samp{$} $B%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%I$K(B
+@samp{$} $B%^!<%/$r$D$1$k$+:o=|$9$k$+$7$^$9!#(B
+(@code{wl-thread-mark-as-important})
+
+@item t !
+@kindex t ! (Summary)
+@findex wl-thread-mark-as-unread
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$rFI$^$J$+$C$?$3$H$K$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$rFI$^$J$+$C$?$3$H$K$7$^$9!#(B
+(@code{wl-thread-mark-as-unread})
+
+@item t i
+@kindex t i (Summary)
+@findex wl-thread-prefetch
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$r%W%j%U%'%C%A$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$r%W%j%U%'%C%A$7$^$9!#(B
+(@code{wl-thread-prefetch})
+
+@item t x
+@kindex t x (Summary)
+@findex wl-thread-exec
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$K$D$$$?(B @samp{D}, @samp{o}, @samp{O} $B%^!<%/$r<B9T$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$K$D$$$?(B @samp{D}, @samp{o}, @samp{O} $B%^!<%/$r<B9T$7$^$9!#(B
+(@code{wl-thread-exec})
+
+@item t *
+@kindex t * (Summary)
+@findex wl-thread-target-mark
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$K$^$H$a=hM}MQ%^!<%/$r$D$1$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$K$^$H$a=hM}MQ%^!<%/$r$D$1$^$9!#(B
+(@code{wl-thread-target-mark})
+
+@item t o
+@kindex t o (Summary)
+@findex wl-thread-refile
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$K%j%U%!%$%k%^!<%/$r$D$1$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$K%j%U%!%$%k%^!<%/$r$D$1$^$9!#(B
+(@code{wl-thread-refile})
+
+@item t O
+@kindex t O (Summary)
+@findex wl-thread-copy
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$K%3%T!<%^!<%/$r$D$1$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$K%3%T!<%^!<%/$r$D$1$^$9!#(B
+(@code{wl-thread-copy})
+
+@item t d
+@kindex t d (Summary)
+@findex wl-thread-delete
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$K:o=|%^!<%/$r$D$1$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$K:o=|%^!<%/$r$D$1$^$9!#(B
+(@code{wl-thread-delete})
+
+@item t u
+@kindex t u (Summary)
+@findex wl-thread-unmark
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$N%a%C%;!<%8$K%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4BN$N%a%C%;!<%8$K%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+(@code{wl-thread-unmark})
+
+@item t y
+@kindex t y (Summary)
+@findex wl-thread-save
+$B%+!<%=%k9T$,$"$k%a%C%;!<%8$r@hF,$H$9$k%9%l%C%I$rJ]B8$7$^$9!#(B
+prefix argument $B$D$-$J$i$P%+!<%=%k9T$,$"$k%a%C%;!<%8$r4^$`%9%l%C%IA4$F$rJ]B8$7$^$9!#(B
+(@code{wl-thread-save})
+
+@item m i
+@kindex m i (Summary)
+@findex wl-summary-target-mark-prefetch
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$rA4$F%W%j%U%'%C%A$7$^$9!#(B
+(@code{wl-summary-target-mark-prefetch})
+
+@item m R
+@kindex m R (Summary)
+@findex wl-summary-target-mark-mark-as-read
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$rFI$s$@$3$H$K$7$^$9!#(B
+(@code{wl-summary-target-mark-mark-as-read})
+
+@item m $
+@kindex m $ (Summary)
+@findex wl-summary-target-mark-mark-as-important
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$K(B @samp{$} $B%^!<%/$r$D$1$^$9!#(B
+$B$9$G$K(B @samp{$} $B%^!<%/$,$"$l$P:o=|$7$^$9!#(B
+(@code{wl-summary-target-mark-mark-as-important})
+
+@item m !
+@kindex m ! (Summary)
+@findex wl-summary-target-mark-mark-as-unread
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$rFI$^$J$+$C$?$3$H$K$7$^$9!#(B
+(@code{wl-summary-target-mark-mark-as-unread})
+
+@item m o
+@kindex m o (Summary)
+@findex wl-summary-target-mark-refile
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$K%j%U%!%$%k%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-target-mark-refile})
+
+@item m O
+@kindex m O (Summary)
+@findex wl-summary-target-mark-copy
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$K%3%T!<%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-target-mark-copy})
+
+@item m d
+@kindex m d (Summary)
+@findex wl-summary-target-mark-delete
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$K:o=|%^!<%/$r$D$1$^$9!#(B
+(@code{wl-summary-target-mark-delete})
+
+@item m y
+@kindex m y (Summary)
+@findex wl-summary-target-mark-save
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$rJ]B8$7$^$9!#(B
+(@code{wl-summary-target-mark-save})
+
+@item m u
+@kindex m u (Summary)
+$BA4$F$N0l;~E*%^!<%/$r>C$7$^$9!#(B
+(@code{wl-summary-delete-all-temp-marks})
+@findex wl-summary-delete-all-temp-marks
+
+@item m a
+@kindex m a (Summary)
+$BA4$F$K$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$rIU$1$^$9!#(B
+(@code{wl-summary-target-mark-all})
+@findex wl-summary-target-mark-all
+
+@item m t
+@kindex m t (Summary)
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$r8=:_$N%9%l%C%I$K$D$1$^$9!#(B
+@findex wl-summary-target-mark-thread
+(@code{wl-summary-target-mark-thread})
+
+@item m r
+@kindex m r (Summary)
+@findex wl-summary-target-mark-region
+$B;XDj$5$l$?%j!<%8%g%s$K$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$r$D$1$^$9!#(B
+(@code{wl-summary-target-mark-region})
+
+@item m A
+@kindex m A (Summary)
+@findex wl-summary-target-mark-reply-with-citation
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$r0zMQ$7$FJV;v$r=q$/%I%i%U%H(B
+$B$rMQ0U$7$^$9!#(B
+(@code{wl-summary-target-mark-reply-with-citation})
+
+@item m f
+@kindex m f (Summary)
+@findex wl-summary-target-mark-forward
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$r%U%)%o!<%I$9$k%I%i%U%H$r(B
+$BMQ0U$7$^$9!#(B
+(@code{wl-summary-target-mark-forward})
+
+@item m U
+@kindex m U (Summary)
+@findex wl-summary-target-mark-uudecode
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$r$^$H$a$F(B uudecode $B$7$^$9!#(B
+(@code{wl-summary-target-mark-uudecode})
+
+@item m ?
+@kindex m ? (Summary)
+@findex wl-summary-target-mark-pick
+$B$^$H$a=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%8$N$J$+$G!"(B
+$B>r7o$K%^%C%A$9$k%a%C%;!<%8$N(B @samp{*} $B%^!<%/$N$_$r;D$7$^$9!#(B
+(@code{wl-summary-target-mark-pick})
+
+@item M-t
+@kindex M-t (Summary)
+@findex wl-toggle-plugged
+Wanderlust $B$N%*%U%i%$%s%b!<%I(B/$B%*%s%i%$%s%b!<%I$r%H%0%k$7$^$9!#(B
+(@code{wl-toggle-plugged})
+
+@item C-t
+@kindex C-t (Summary)
+Wanderlust $B$N%5!<%P!&%]!<%HJL$N%*%U%i%$%s(B/$B%*%s%i%$%s$rJQ99$7$^$9!#(B
+(@code{wl-plugged-change})
+
+@item C-c C-o
+@kindex C-c C-o (Summary)
+@findex wl-jump-to-draft-buffer
+$B%I%i%U%H%P%C%U%!$,$"$l$P0\F0$7$^$9!#(B $BJ#?t$N%I%i%U%H%P%C%U%!$,B8:_$9$k>l9g$O!"(B
+$B<!!9$H@Z$jBX$($F$$$-$^$9!#$^$?!"(Bprefix argument $B$r$D$1$k$3$H$K$h$j!"(B
+$B%P%C%U%!$,B8:_$7$F$$$J$$>l9g$O!"%I%i%U%H%U%)%k%@$+$i%U%!%$%k$r(B($BB8:_$9$l$P(B)
+$BFI$_9~$_$^$9!#(B
+(@code{wl-jump-to-draft-buffer})
+@end table
+
+@section $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-summary-move-order
+@vindex wl-summary-move-order
+$B=i4|@_Dj$O(B 'unread$B!#(B
+$B%a%C%;!<%8$rFI$_?J$a$k$H$-$K!"2?$rM%@h$9$k$+$r;XDj$7$^$9!#(B
+$B?75,%a%C%;!<%8$rM%@h$7$?$$$H$-$O(B 'new $B$r@_Dj$7$^$9!#(B
+$BL$FI$r%a%C%;!<%8$rM%@h$7$?$$$H$-$O(B 'unread $B$r@_Dj$7$^$9!#(B
+nil $B$J$iC1=c$K<!$N%a%C%;!<%8$K?J$_$^$9!#(B
+
+@item wl-auto-select-first
+@vindex wl-auto-select-first
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i%U%)%k%@$K0\F0$7$?;~$K:G=i$N%a%C%;!<%8$r<+F0E*$KI=<($7$^$9!#(B
+
+@item wl-auto-select-next
+@vindex wl-auto-select-next
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i!"$"$k%U%)%k%@$N%5%^%j$+$i<!$N%U%)%k%@$N%5%^%j$X<+F0E*$K0\F0$7$^$9!#(B
+$BCM$,(B 'unread $B$J$i!"3NG'$r5a$a$FL$FI%a%C%;!<%8$,$J$$%U%)%k%@$K0\F0$7$^$9!#(B
+$BCM$,(B 'skip-no-unread $B$J$i!"L$FI%a%C%;!<%8$,$J$$%U%)%k%@$r<+F0E*$KHt$P$7$^$9!#(B
+
+@item wl-thread-insert-opened
+@vindex wl-thread-insert-opened
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i:G=i$+$i(B thread $B$,3+$+$l$?>uBV$G%5%^%j$KI=<($5$l$^$9!#(B
+
+@item wl-thread-open-reading-thread
+@vindex wl-thread-open-reading-thread
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i!"JD$8$?>uBV$N(B thread $B$X0\F0$7$?;~$K<+F0E*$K(B thread $B$r3+$-$^$9!#(B
+
+@item wl-summary-exit-next-move
+@vindex wl-summary-exit-next-move
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i!"%5%^%j$r=*N;$9$k$H$-$K<!$N%U%)%k%@$K0\F0$7$^$9!#(B
+
+@item wl-folder-move-cur-folder
+@vindex wl-folder-move-cur-folder
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i%5%^%j$GB>$N%U%)%k%@$K0\F0$9$k$H%U%)%k%@%b!<%I$G$N%+!<%=%k0LCV$b9g$o$;$F0\F0$7$^$9!#(B
+
+@item wl-summary-weekday-name-lang
+@vindex  wl-summary-weekday-name-lang
+$B=i4|@_Dj$O(B "ja"$B!#(B
+$B%5%^%j$NMKF|I=<($N8@8l$r;XDj$7$^$9!#(B
+"en" $B$J$i1Q8l!"(B"fr" $B$J$i%U%i%s%98l!"(B"de" $B$J$i%I%$%D8l$H$J$j$^$9!#(B
+
+@item wl-summary-fix-timezone
+@vindex  wl-summary-fix-timezone
+$B=i4|@_Dj$O(B "JST"$B!#(B
+$B%5%^%j$NF|;~I=<($r;XDj$7$?%?%$%`%>!<%s$KD>$7$^$9!#(B
+nil $B$J$i(B GMT $B$KD>$7$^$9!#(B
+
+@item wl-use-petname
+@vindex  wl-use-petname
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i%5%^%j$N(B From $BItJ,$K$"$@L>$rI=<($7$^$9!#(B
+
+@item wl-break-pages
+@vindex  wl-break-pages
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i!"(B@samp{^L} $B$G2~%Z!<%8$7$F%a%C%;!<%8$rI=<($7$^$9!#(B
+
+@item wl-message-window-size
+@vindex  wl-message-window-size
+$B=i4|@_Dj$O(B '(1 . 4)$B!#(B
+$B%5%^%j$rI=<($9$k%&%#%s%I%&$H%a%C%;!<%8K\BN$rI=<($9$k%&%#%s%I%&$NHf$r(B cons $B$G;XDj$7$^$9!#(Bcar:cdr $B$,(B $B%5%^%j(B:$B%a%C%;!<%8(B $B$G$9!#(B
+
+@item wl-summary-recenter
+@vindex  wl-summary-recenter
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i$PI=<($7$?$H$-$KI=<(Cf$N%a%C%;!<%8$N%5%^%j9T$r(B
+$B%&%#%s%I%&$NCf1{IU6a$K0\F0$5$;$^$9!#(B
+
+@item wl-summary-indent-length-limit
+@vindex  wl-summary-indent-length-limit
+$B=i4|@_Dj$O(B 46$B!#(B
+$B@_Dj$5$l$?CM0J>e%5%^%j$r(B indent $B$7$^$;$s!#(B
+nil $B$J$i%5%^%j$N(B indent $B$rL5@)8B$K$7$^$9!#(B
+
+@item wl-summary-no-from-message
+@vindex  wl-summary-no-from-message
+$B=i4|@_Dj$O(B "nobody@@nowhere?"$B!#(B
+$B%a%C%;!<%8$K(B From: $B$,L5$+$C$?>l9g$K%5%^%j$KI=<($9$kJ8;zNs$G$9!#(B
+
+@item wl-summary-no-subject-message
+@vindex  wl-summary-no-subject-message
+$B=i4|@_Dj$O(B "(WL:No Subject in original.)"$B!#(B
+$B%a%C%;!<%8$K(B Subject: $B$,L5$+$C$?>l9g$K%5%^%j$KI=<($9$kJ8;zNs$G$9!#(B
+
+@item wl-summary-width
+@vindex  wl-summary-width
+$B=i4|@_Dj$O(B 80$B!#(B
+$B%5%^%j$NI=<(I}$r@_Dj$5$l$?CM$K@Z$j5M$a$^$9!#(B
+nil $B$J$iI=<(I}$r@Z$j5M$a$^$;$s!#(B
+
+@item wl-use-folder-petname
+@vindex  wl-use-folder-petname
+$B=i4|@_Dj$O(B '(modeline)$B!#(B
+petname $B$r;HMQ$9$k>l=j(B(symbol)$B$N%j%9%H$r;XDj$7$^$9!#(B
+$B;XDj$G$-$k(B symbol $B$O<!$NDL$j$G$9!#(B
+
+@table @code
+@item modeline
+$B%5%^%j$N%b!<%I%i%$%s$r(B petname $B$GI=<($7$^$9!#(B
+@item ask-folder
+@code{wl-auto-select-next} $B$,(B non-nil $B$N$H$-!"(B
+$B0\F0@h%U%)%k%@$r(B petname $B$GI=<($7$^$9!#(B
+@item read-folder
+@code{wl-summary-read-folder} $B$K$*$1$k%U%)%k%@F~NO$N:]!"(B
+petname $B$G$bJd40$,$G$-$^$9!#(B
+@end table
+
+@item wl-summary-move-direction-toggle
+@vindex  wl-summary-move-direction-toggle
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i:G8e$K<B9T$5$l$?(B @kbd{p}, @kbd{P}, @kbd{n}, @kbd{N} $B$N7k2L$G!"(B
+$B<!$N%a%C%;!<%8$,>e$+2<$+$r@Z$jBX$($k!#(B
+$BFI$s$G$$$kJ}8~$r0U<1$7$?$$$H$-$O(B t $B$K$9$k$H$h$$$G$7$g$&!#(B
+
+@item wl-from-width
+@vindex wl-from-width
+$B=i4|@_Dj$O(B 17$B!#(B
+$B%5%^%j$N(B From $BItJ,$NI=<(I}$G$9!#(B
+
+@item wl-summary-divide-thread-when-subject-changed
+@vindex wl-summary-divide-thread-when-subject-changed
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i%5%V%8%'%/%H$,JQ$o$C$?$H$-$K%9%l%C%I$r@Z$j$^$9!#(B
+
+@item wl-summary-search-via-nntp
+@vindex wl-summary-search-via-nntp
+$B=i4|@_Dj$O(B 'confirm$B!#(B
+Non-nil $B$J$i(B @code{wl-summary-jump-to-msg-by-message-id} $B$G!"(B
+$B%a%C%;!<%8$r8+$D$1$k$3$H$,$G$-$J$+$C$?$H$-$K!"(B
+@code{wl-summary-jump-to-msg-by-message-id-via-nntp} $B$r8F$S!"(B
+@code{elmo-default-nntp-server} $B$G;XDj$5$l$?%5!<%P$+$i8!:w$7$^$9!#(B
+$B$3$N$H$-(B @code{elmo-default-nntp-user}, @code{elmo-default-nntp-port}, 
+@code{elmo-default-nntp-ssl} $B$G;XDj$7$?>r7o$G%5!<%P$H@\B3$7$^$9!#(B
+'confirm $B$J$i(B @code{elmo-default-nntp-*} $B$G;XDj$5$l$?%5!<%P$+$i8!:w$9$k$+!"(B
+$B%5!<%P$r;XDj$9$k$+$r3NG'$7$^$9!#(B
+$B$3$N>l9g!"%5!<%P$N%[%9%HL>!"$b$7$/$O(B @samp{-:username@@servername:119!}
+$B$N$h$&$K(B NTTP$B%U%)%k%@7A<0$G$N;XDj$,2DG=$G$9!#(B
+
+@item wl-summary-keep-cursor-command
+@vindex wl-summary-keep-cursor-command
+$B=i4|@_Dj$O(B '(wl-summary-goto-folder wl-summary-goto-last-visited-folder)$B!#(B
+$B$9$G$KB8:_$9$k%5%^%j$X0\F0$7$?$H$-$K99?7$;$:!"%+!<%=%k0LCV$rJ]B8$9$k(B
+$B%3%^%s%I$N%j%9%H$G$9!#(B
+
+@item wl-summary-update-confirm-threshold
+@vindex wl-summary-update-confirm-threshold
+$B=i4|@_Dj$O(B 500$B!#(B
+$B$3$NCM$h$j%5%^%j$N99?7?t$,B?$$>l9g!"0lItJ,$@$199?7$9$k$+$I$&$+!"<ALd$7$^$9!#(B
+
+@item wl-summary-always-sticky-folder-list
+@vindex wl-summary-always-sticky-folder-list
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%U%)%k%@L>(B($B@55,I=8=(B)$B$N%j%9%H$r@_Dj$9$k$3$H$K$h$j!"(B
+$B<+F0E*$K%9%F%#%C%-!<%5%^%j$H$9$k$+$I$&$+$r%U%)%k%@Kh$K;XDj$7$^$9!#(B
+
+@item wl-summary-reserve-mark-list
+@vindex wl-summary-reserve-mark-list
+$B=i4|@_Dj$O!"(B'("o" "O" "D")$B!#(B
+$B$3$N%j%9%H$K$"$k0l;~%^!<%/$O!">C$5$J$$$+$.$j>e=q$-$5$l$^$;$s!#(B
+
+@item wl-summary-skip-mark-list
+@vindex wl-summary-skip-mark-list
+$B=i4|@_Dj$O!"(B'("D")$B!#(B
+$B$3$N%j%9%H$K$"$k0l;~%^!<%/$,IU$$$?%a%C%;!<%8$O!"%+!<%=%k0\F0$G%9%-%C%W(B
+$B$5$l$^$9!#(B
+
+@item wl-fetch-confirm-threshold
+@vindex wl-fetch-confirm-threshold
+$B=i4|@_Dj$O(B 30000 (bytes)$B!#(B@code{wl-fetch-confirm-threshold} $B$r1[$($k%5%$%:$N(B
+$B%a%C%;!<%8$rI=<($9$k;~$O!"3NG'$r5a$a$^$9!#(Bnil $B$K$9$k$H!"3NG'$;$:$KI=<($7$^$9!#(B
+
+@item wl-prefetch-threshold
+@vindex wl-prefetch-threshold
+$B=i4|@_Dj$O(B 30000 (bytes)$B!#(B@code{wl-prefetch-threshold} $B$r1[$($k%5%$%:$N(B
+$B%a%C%;!<%8$O!"(B@code{wl-prefetch-confirm} $B$,(B non-nil $B$N>l9g!"(B
+$B%W%j%U%'%C%A;~$K3NG'$r5a$a$^$9!#(B@code{wl-prefetch-threshold}$B$r(B nil $B$K$9$k$H!"(B
+@code{wl-prefetch-confirm} $B$NCM$K$+$+$o$i$:%W%j%U%'%C%A$r<B9T$7$^$9!#(B
+
+@item wl-prefetch-confirm
+@vindex wl-prefetch-confirm
+$B=i4|@_Dj$O(B t$B!#(BNon-nil $B$J$i$P(B @code{wl-prefetch-threshold} $B$r1[$($k%5%$%:$N(B
+$B%a%C%;!<%8$r%W%j%U%'%C%A$7$h$&$H$7$?$H$-$K!"3NG'$r5a$a$^$9!#(B
+
+@item wl-cache-fetch-threshold
+@vindex wl-cache-fetch-threshold
+$B=i4|@_Dj$O(B 30000 (bytes)$B!#(B@code{wl-fetch-confirm-threshold} $B$r1[$($k%5%$%:$N(B
+$B%a%C%;!<%8$O!"%a%C%;!<%8$N@hFI$_$r<B9T$7$^$;$s!#(B
+nil $B$K$9$k$H!"$I$s$JBg$-$5$N%a%C%;!<%8$G$b@hFI$_$r<B9T$7$^$9!#(B
+
+@item elmo-imap4-use-cache
+@vindex elmo-imap4-use-cache
+$B=i4|@_Dj$O(B t$B!#(BNon-nil $B$J$i!"(BIMAP4 $B$GFI$s$@%a%C%;!<%8$r%-%c%C%7%e$7$^$9!#(B
+
+@item elmo-nntp-use-cache
+@vindex elmo-nntp-use-cache
+$B=i4|@_Dj$O(B t$B!#(BNon-nil $B$J$i!"(BNNTP $B$GFI$s$@%a%C%;!<%8$r%-%c%C%7%e$7$^$9!#(B
+
+@item elmo-pop3-use-cache
+@vindex elmo-pop3-use-cache
+$B=i4|@_Dj$O(B t$B!#(BNon-nil $B$J$i!"(BPOP3 $B$GFI$s$@%a%C%;!<%8$r%-%c%C%7%e$7$^$9!#(B
+@end table
+
+
+@c
+@c  Message
+@c
+@node Message, Draft, Summary, Top
+@chapter $B%a%C%;!<%8%P%C%U%!(B
+
+$B%a%C%;!<%8%P%C%U%!$O(B SEMI/tm $B$N(B MIME-View mode $B$G$9!#(B
+$BA`:n$NJ}K!!"%-!<%P%$%s%I$O$=$l$>$l$N%I%-%e%a%s%H$r;2>H$7$F$/$@$5$$!#(B
+@xref{MIME-View, , ,mime-ui-ja, a MIME user interface for GNU Emacs}.
+
+$B%a%C%;!<%8$N@hF,$G(B @kbd{p}$B!"%a%C%;!<%8$N:G8eHx$G(B @kbd{n} $B$r2!$9$H!"(B
+$B%5%^%j%b!<%I$KLa$j$^$9!#(B
+$B$^$?!"(B@kbd{l} $B$r2!$9$H!"%5%^%j%b!<%I%P%C%U%!$NI=<($,%H%0%k$5$l$^$9!#(B
+
+@section $B%-!<%P%$%s%I(B
+@cindex Keybind, Message Mode
+@cindex Keybind, Message Buffer
+
+@table @kbd
+@item l
+@kindex l (Message)
+@findex wl-message-toggle-disp-summary
+$B%5%^%j%b!<%I%P%C%U%!$rI=<($9$k$+$I$&$+$r%H%0%k$7$^$9!#(B
+(@code{wl-message-toggle-disp-summary})
+
+@item Button-2
+@findex wl-message-refer-article-or-url
+@kindex Button-2 (Message)
+$B%^%&%9%]%$%s%?$N0LCV$K(B Message-ID $B$,$"$C$?$H$-$KBP1~$9$k%a%C%;!<%8$,(B
+$B8+$D$+$l$PI=<($7$^$9!#(B
+(@code{wl-message-refer-article-or-url})
+
+@item Button-4 ($B%[%$!<%k$D$-%^%&%9$N%[%$!<%k$r>e$X(B)
+@kindex Button-4 (Message)
+@findex wl-message-wheel-down
+$B%a%C%;!<%8$r>e$K%9%/%m!<%k$7$^$9!#%a%C%;!<%8$NKvHx$^$GE~C#$9$k$H!"(B
+$B<!$N%a%C%;!<%8$K0\F0$7$^$9!#(B
+(@code{wl-message-wheel-down})
+
+@item Button-5 ($B%[%$!<%k$D$-%^%&%9$N%[%$!<%k$r2<$X(B)
+@kindex Button-5 (Message)
+@findex wl-message-wheel-up
+$B%a%C%;!<%8$r>e$K%9%/%m!<%k$7$^$9!#%a%C%;!<%8$N@hF,$^$GE~C#$9$k$H!"(B
+$BA0$N%a%C%;!<%8$K0\F0$7$^$9!#(B
+(@code{wl-message-wheel-up})
+@end table
+
+@section $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-message-window-size
+@vindex wl-message-window-size
+$B=i4|@_Dj$O(B @code{'(1 . 4)}$B!#(Bcons $B%;%k$G!"(Bcar $BCM(B: cdr $BCM$,(B
+$B%5%^%j$N%&%#%s%I%&I}!'%a%C%;!<%8$N%&%#%s%I%&I}$H$J$j$^$9!#(B
+@end table
+
+
+@c
+@c  Draft
+@c
+@node Draft, Disconnected Operations, Message, Top
+@chapter $B%I%i%U%H%P%C%U%!(B
+
+$B%5%^%j%b!<%I$G(B @kbd{w} $B$r2!$9Ey$9$k$3$H$K$h$j?75,%I%i%U%H%P%C%U%!$,(B
+$BMQ0U$5$l$^$9!#$3$N%P%C%U%!$G%a!<%k!"%K%e!<%95-;v$N(B($B?75,(B)$BJT=8!"Aw?.$r9T$$$^$9!#(B
+
+@section $B;H$$J}(B(TIPS)
+
+$B4pK\$O(B Emacs $BI8=`$N%a!<%k%b!<%I$G$9!#(B
+
+@subsection $B%"%I%l%9$NJd40(B
+
+$B=i4|>uBV$G$O(B To: $B$K%+!<%=%k$,$"$j$^$9!#(B
+$BAw?.Aj<j$N%"%I%l%9$rF~NO$7$F$/$@$5$$!#(B@kbd{@key{TAB}} $B$GJd40$7$^$9!#(B
+
+$B%K%e!<%95-;v$H$7$F=P$7$?$$>l9g$O!"(BNewsgroups: $B%U%#!<%k%I$r<+J,$G=q$-2C$($F$/$@$5$$!#%U%#!<%k%IL>$O(B @kbd{@key{TAB}} $B$GJd40$7$^$9!#(B
+
+$BJT=8Cf$N%I%i%U%H$r%;!<%V$9$k$H!"(B@code{wl-draft-folder} $B$K@_Dj$5$l$?%I%i%U%H%U%)%k%@$KDI2C$5$l$^$9!#(B
+
+FCC: $B%U%#!<%k%I$GAw?.$7$?%a%C%;!<%8$N%3%T!<$rJ]B8$7$F$*$/%U%)%k%@$r;XDj$9$k$3$H$,$G$-$^$9!#(B
+
+@subsection $B%a%C%;!<%8$NJT=8(B
+
+$B%^%k%A%Q!<%H$NJT=8$O(B SEMI/tm $B$N(B MIME $BJT=8%b!<%I$rMxMQ$7$F$$$^$9!#(B
+$BJT=8$NJ}K!$O3F%Q%C%1!<%8IUB0$N%I%-%e%a%s%H$r;2>H$7$F$/$@$5$$!#(B
+@xref{Mail Methods, , ,mime-ui-ja, a MIME user interface for GNU Emacs}.
+
+@subsection $B%a%C%;!<%8$NF0E*$JJQ99(B
+@vindex wl-draft-config-alist
+@c @cindex Chage Message
+@c @cindex Message, Chage Dynamic
+
+@code{wl-draft-config-alist} $B$r@_Dj$9$k$3$H$G!"(B
+$B%X%C%@$d$=$NB>$N>pJs$K$h$j!"<+F0E*$KB>$N%X%C%@$dK\J8$rJQ99$9$k$3$H(B
+$B$,$G$-$^$9!#(B
+
+$BJQ?t(B @code{wl-draft-config-alist} $B$K$D$$$F@bL@$7$^$9!#(B
+$B$3$NJQ?t$N=i4|@_Dj$O(B nil$B$G$9!#(B
+
+$BNc$($P0J2<$N$h$&$K@_Dj$9$k$H!"(B@code{wl-draft-send-and-exit} $B$d(B
+@code{wl-draft-send} $B$r<B9T$7$?;~$K%X%C%@$,JQ99$5$l$^$9!#(B
+@code{wl-interactive-send} $B$r(B non-nil $B$K@_Dj$7$F$*$/$H!"Aw?.A0(B
+$B$KJQ99E@$,3NG'$G$-$k$N$G0B?4$G$9!#(B
+
+@lisp
+(setq wl-draft-config-alist
+      '(((string-match "aaa.ne.jp$" (system-name))
+         ;; @r{$B<0$,(Bnon-nil$B$J$iE,MQ$9$k(B}
+         (wl-smtp-posting-server . "mailserver-B")
+         (wl-nntp-posting-server . "newsserver-B")
+         ;; @r{$B0l;~E*$JJQ?t$N@_Dj(B}
+         )
+        ("^To: .*user@@aaa.bbb.com"
+         ;; @r{$B%I%i%U%H%P%C%U%!$N%X%C%@$K%^%C%A$9$l$PE,MQ$9$k(B}
+         ("Organization" . (format "Go %s" my-webpage)))
+                           ;; @r{elisp $B<0$,=q$1$k(B (eval $B$7$F$$$k$@$1(B)}
+         (top . "  $B!{!{$G$9!#(B\n")    ;; @r{$BK\J8@hF,$XJ8;zNs$rA^F~$7$^$9(B}
+         (bottom . "\n$B0J>e$G$9!#(B\n") ;; @r{$BK\J8KvHx$XJ8;zNs$rA^F~$7$^$9(B}
+        ))
+@end lisp
+
+@code{wl-draft-config-alist} $B$O<!$N7A<0$K$J$C$F$$$^$9!#(B
+
+@example
+'(("$B%X%C%@$N@55,I=8=(B" $B$^$?$O(B elisp$B<0(B
+   ("Field" . $BCM(B(elisp$B<0(B))
+   (variable . $BCM(B(elisp$B<0(B))
+   ($B%5%V4X?t(B . $BCM(B(elisp$B<0(B))
+   $B4X?t(B
+   @dots{})
+  ("$B%X%C%@$N@55,I=8=(B" $B$^$?$O(B elisp$B<0(B
+   ("Field" . $BCM(B(elisp$B<0(B))
+   @dots{}))
+@end example
+
+[$B%5%V4X?t(B]$B$K$O!"%G%U%)%k%H$G0J2<$N(B10$B8D$,MQ0U$5$l$F$$$^$9!#(B
+
+@example
+'header:      $B%X%C%@$NKvHx$K;XDj$7$?J8;zNs$rA^F~$7$^$9!#(B
+'header-file: $B%X%C%@$NKvHx$K;XDj$7$?%U%!%$%k$rA^F~$7$^$9!#(B
+'x-face:      $B;XDj$7$?%U%!%$%k$NFbMF$r$b$D(B "X-Face" $B%U%#!<%k%I$r(B
+              $BA^F~$7$^$9!#(B
+'top:         $BK\J8$N@hF,$K;XDj$7$?J8;zNs$rA^F~$7$^$9!#(B
+'top-file:    $BK\J8$N@hF,$K;XDj$7$?%U%!%$%k$rA^F~$7$^$9!#(B
+'body:        $BK\J8$r;XDj$7$?J8;zNs$KCV$-49$($^$9!#(B
+              nil $B$r;XDj$9$k$HK\J8$NJ8;zNs$r:o=|$7$^$9!#(B
+'body-file:   $BK\J8$r;XDj$7$?%U%!%$%k$NFbMF$GCV$-49$($^$9!#(B
+'bottom:      $BK\J8$NKvHx$K;XDj$7$?J8;zNs$rA^F~$7$^$9!#(B
+'bottom-file: $BK\J8$NKvHx$K;XDj$7$?%U%!%$%k$rA^F~$7$^$9!#(B
+'template:    $B;XDj$7$?%F%s%W%l!<%H$rE,MQ$7$^$9!#(B
+              ($B<!9`(B $B%F%s%W%l!<%H$NA^F~;2>H(B)
+@end example
+
+$B$^$?!"$3$l$i$O(B @code{wl-draft-config-sub-func-alist} $B$KDj5A$5$l$F(B
+$B$*$j!"JQ99$7$?$j<+J,$G:n$C$?4X?t$rDI2C$9$k$3$H$,$G$-$^$9!#4X(B
+$B?t$N=q$-J}$O$3$3$G@bL@$9$k$h$jD>@\%3!<%I$r8+$?J}$,J,$+$j$d$9(B
+$B$$$G$7$g$&$+$i>JN,$7$^$9!#(B
+
+$B3FMWAG$N(B1$BHVL\$K$O(B "$B%X%C%@$N@55,I=8=(B" $B$+(B elisp$B<0(B $B$r;XDj$7$^$9!#(Belisp$B<0$N(B
+$B>l9g$OI>2A$7$?CM$,(Bnon-nil$B$N>l9g$KE,MQ$5$l$^$9!#(B
+
+$B$^$?!"%G%U%)%k%H$G$OJ#?t$NMWAG$,%^%C%A$^$?$O(Bnon-nil$B$K$J$C$?>l9g$K!"(B
+$B$=$NA4$F$,E,MQ$5$l$^$9$,!"JQ?t(B @code{wl-draft-config-matchone} $B$r(B
+t $B$K$9$k$3$H$G:G=i$K%^%C%A$7$?(B1$B$D$@$1$rE,MQ$9$k$3$H$b$G$-$^$9!#(B
+
+$BMWAG$N(B2$BHVL\$K$O(B cons $B$+4X?t$N(B list $B$r;XDj$7$^$9!#(B
+cons $B$K$O%X%C%@$N(B Field $B$+JQ?t!"%5%V4X?t$r;XDj$7!"(B
+Field $B$r;XDj$7$?>l9g$O$=$N(B Field $B$rJQ99!"(B
+$BJQ?t$r;XDj$7$?>l9g$O0l;~E*$K$=$NJQ?tCM$rJQ99$7$^$9!#(B
+
+$BCM$K$O(B string $B$dJQ?t$NB>!"(Belisp$B<0$,$=$N$^$^5-=R$G$-!"$b$7!"(BField $B$NCM$,(B 
+nil $B$J$i$P$=$N(B Field $B$r:o=|$7$^$9!#(B
+
+$B$D$E$$$F!"<!$NNc$r8+$F2<$5$$!#(B
+
+@lisp
+(setq wl-draft-config-alist
+      '((reply                         ;; @r{(1)}
+         "X-ML-Name: \\(Wanderlust\\|emacs-mime-ja\\|apel-ja\\)"
+         ;; @r{$BJV?.85%P%C%U%!$N%X%C%@$K%^%C%A$9$l$PE,MQ$9$k(B}
+         (body . "  $B$3$s$K$A$O(B\n")
+         (template . "default")
+         )))
+@end lisp
+
+$B$3$NNc(B (1)$B$N$h$&$K!"%X%C%@$N@55,I=8=$NA0$K(B @code{reply} $B$r$D$1$k$H(B
+@code{wl-summary-reply} $B$J$I$G%I%i%U%H$r:n@.$7$?>l9g!"(B
+$BJV?.85$N%X%C%@$K%^%C%A$9$l$PE,MQ$5$l$k$h$&$K$J$j$^$9!#(B
+$B$?$@$7!"(B@code{wl-draft} $B$r<B9T$7$?$H$-$J$IJV?.85$N%P%C%U%!$,$J$$>l9g$OL5(B
+$B;k$5$l$^$9!#(B
+
+$BCm0UE@$H$7$F$O!"(B
+$B$3$N(B @code{wl-draft-config-alist} $B$O!"(B@code{wl-draft-send-and-exit} $B$d(B 
+@code{wl-draft-send} $B$r<B9T$7$?;~$K0lEY$@$1E,MQ$5$l$k$3$H$G$9!#(B
+$B$=$N$?$a!"Aw?.$r<h$j$d$a$?8e$K:FEY(B @code{wl-draft-config-alist} $B$rE,MQ$7$?$$(B
+$B>l9g$O!"(B@kbd{C-c C-e} (@code{wl-draft-config-exec}) $B$r<B9T$7$F$/$@$5$$!#(B
+
+$B$^$?!"%I%i%U%H%P%C%U%!$N:n@.;~$K<+F0E*$K$3$N(B 
+@code{wl-draft-config-alist} $B$rE,MQ$7$?$$>l9g$O!"<!$N$h$&$K@_Dj$7$^$9!#(B
+
+@lisp
+(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
+@end lisp
+
+@subsection $B%F%s%W%l!<%H$NA^F~(B
+@cindex Templete
+@cindex Apply Template
+
+$BJQ?t(B @code{wl-template-alist} $B$r@_Dj$7!"(B
+$B%I%i%U%H%P%C%U%!$G(B
+@kbd{C-c C-j} $B$b$7$/$O(B @kbd{M-x wl-template-select}
+$B$HF~NO$9$k$3$H$GE,MQ$7$^$9!#(B
+@code{wl-template-alist} $B$N=q<0$O(B @code{wl-draft-config-alist} $B$H$[$\F1$8$G$9!#(B
+
+@lisp
+(setq wl-template-alist
+      '(("default"
+         ("From" . wl-from)
+         ("Organization" . "~/.wl sample")
+         (body . "  $B!{!{$G$9!#(B\n"))
+        ("report"
+         (template . "default")                 ;; @r{(a)}
+         ("To" . "jousi@@kaisha.jp")
+         ("Subject" . "$BJs9p(B")
+         (body-file . "~/work/report.txt")
+         )
+        ))
+@end lisp
+
+$B$3$N$h$&$K%X%C%@$N@55,I=8=$NBe$o$j$K(B "default" $B$d(B "report" $B$N$h$&$K3F(B
+$BMWAG$NL>A0(B($B%F%s%W%l!<%HL>(B)$B$r$D$1$k$@$1$G$9!#(B
+$B3FMWAG$NDj5A$O(B @code{wl-draft-config-alist} $B$HF1$8$G$"$k$N$G!"(B
+(a)$B$N$h$&$KJL$N%F%s%W%l!<%H$r8F$V$3$H$b2DG=$G$9!#(B
+
+$B%3%^%s%I(B@code{wl-template-select}$B$r<B9T$9$k$H!"%F%s%W%l!<%H$NA*Br$r9T$$$^$9$,!"(B
+$BJQ?t(B@code{wl-template-visible-select}$B$K$h$jF0:n$,0[$J$j$^$9!#(B
+
+@code{wl-template-visible-select} $B$,(B t ($B%G%U%)%k%H(B)$B$N>l9g!"(B
+$B%I%i%U%H%P%C%U%!$N2<$KE,MQ8e$N%P%C%U%!%&%#%s%I%&$,I=<($5$l$k$N$G!"(B
+$B$=$l$r8+$J$,$i(B @kbd{n} $B$H(B @kbd{p} $B$GA*Br$7$^$9!#(B
+$B$=$7$F%j%?!<%s%-!<$G7hDj$9$k$H<B:]$K%I%i%U%H%P%C%U%!$KE,MQ$5$l(B
+$B$^$9!#(B@kbd{q} $B$r2!$7$?>l9g$J$K$bE,MQ$5$l$^$;$s!#$J$*!"(B
+@code{wl-template-buffer-lines} $B$G%&%#%s%I%&$NBg$-$5$,JQ99$G$-$^$9!#(B
+
+@code{wl-template-visible-select} $B$,(B nil $B$N>l9g!"%_%K%P%C%U%!$G%F%s%W%l!<%HL>(B
+$B$rF~NO$9$k$3$H$GA*Br$7$^$9!#(B
+
+$B$^$?!"(B@code{wl-draft-config-alist} $B$NNc$N$h$&$KNc$($P(B
+
+@example
+(template . "default")
+@end example
+
+@noindent
+$B$H=q$/$3$H$G(B "default" $B$N%F%s%W%l!<%H$rE,MQ$9$k$3$H$,$G$-$^$9!#(B
+
+@subsection POP-before-SMTP$B$K$h$k%a!<%k$NAw?.(B
+@cindex POP-before-SMTP
+
+POP-before-SMTP$B$K$h$k%a!<%k$NAw?.$,$G$-$^$9!#(B
+$B@_Dj$O!"(B
+
+@lisp
+(setq wl-draft-send-mail-func 'wl-draft-send-mail-with-pop-before-smtp)
+@end lisp
+
+@noindent
+$B$N(B1$B9T$N$_$G$9$,!"I,MW$K1~$8$F0J2<$NJQ?t$r@_Dj$7$F$/$@$5$$!#(B
+
+@table @code
+@item wl-pop-before-smtp-user
+POP-before-SMTP $B$GG'>Z$r9T$J$&$H$-$N(BPOP$B%f!<%6L>$G$9!#(B
+$B@_Dj$5$l$F$$$J$$>l9g$O(B @code{elmo-default-pop3-user} $B$,;H$o$l$^$9!#(B
+
+@item wl-pop-before-smtp-server
+POP-before-SMTP $B$GG'>Z$r9T$J$&$H$-$N(BPOP$B%5!<%PL>$G$9!#(B
+$B@_Dj$5$l$F$$$J$$>l9g$O(B @code{elmo-default-pop3-server} $B$,;H$o$l$^$9!#(B
+
+@item wl-pop-before-smtp-authenticate-type
+POP-before-SMTP $B$GG'>Z$r9T$J$&$H$-$N(BPOP$BG'>ZJ}<0$G$9!#(B
+$B@_Dj$5$l$F$$$J$$>l9g$O(B @code{elmo-default-pop3-authenticate-type}
+$B$,;H$o$l$^$9!#(B
+
+@item wl-pop-before-smtp-port
+POP-before-SMTP $B$GG'>Z$r9T$J$&$H$-$N(BPOP$B%]!<%HHV9f$G$9!#(B
+$B@_Dj$5$l$F$$$J$$>l9g$O(B  @code{elmo-default-pop3-port} $B$,;H$o$l$^$9!#(B
+
+@item wl-pop-before-smtp-ssl
+Non-nil $B$J$i(B SSL $B$rMxMQ$7$F(B POP$B%3%M%/%7%g%s$rD%$j$^$9!#(B
+'starttls$B$J$i(BSTARTTLS (RFC2595)$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#(B
+$B@_Dj$5$l$F$$$J$$>l9g$O(B @code{elmo-default-pop3-ssl} $B$,;H$o$l$^$9!#(B
+@end table
+
+POP-before-SMTP$BMQ$NJQ?t(B (@code{wl-pop-before-smtp-*})
+$B$,@_Dj$5$l$F$$$J$$>l9g$O!"(B
+POP $B%U%)%k%@$N@_Dj(B (@code{elmo-default-pop3-*}) $B$,MQ$$$i$l$^$9!#(B
+$B$=$N$?$a!"(BSMTP$B%5!<%P$H(BPOP$B%5!<%P$N<BBN$,F1$8$G!"(B
+$B%G%U%)%k%H@_Dj$N(BPOP$B%U%)%k%@(B(@samp{&} $B$J$I(B)$B$,MxMQ2DG=$J$i!"(B
+$B@_Dj$OITMW$G$9!#(B
+
+$B$J$*!"(BPOP-before-SMTP$B$K$D$$$F$O0J2<$r;2>H$7$F$/$@$5$$!#(B
+
+@example
+http://spam.ayamura.org/tools/smPbS.html
+http://www.iecc.com/pop-before-smtp.html
+@end example
+
+@section $B%-!<%P%$%s%I(B
+@cindex Keybind, Draft Mode
+@cindex Keybind, Draft Buffer
+
+@table @kbd
+@item C-c C-y
+@kindex C-c C-y (Draft)
+@findex wl-draft-yank-original
+$B8=:_I=<(Cf$N%a%C%;!<%8%P%C%U%!$NFbMF$r0zMQ$7$^$9!#(B
+(@code{wl-draft-yank-original})
+
+@item C-c C-p
+@kindex C-c C-p (Draft)
+@findex wl-draft-preview-message
+$B8=:_$N%I%i%U%H$NFbMF$r%W%l%S%e!<$7$^$9!#(B
+MIME $B$N%^%k%A%Q!<%H%a%C%;!<%8$N3NG'$K;H$&$HJXMx$G$9!#(B
+(@code{wl-draft-preview-message})
+
+@item C-c C-s
+@kindex C-c C-s (Draft)
+@findex wl-draft-send
+$B8=:_$N%I%i%U%H$NFbMF$rAw?.$7$^$9!#%I%i%U%H%P%C%U%!$O>C5n$7$^$;$s!#(B
+$BJ#?t$N?M$K>/$7$:$DFbMF$rJQ$($F%a%C%;!<%8$rAw$j$?$$>l9g$KJXMx$G$9!#(B
+(@code{wl-draft-send})
+
+@item C-c C-c
+@kindex C-c C-c (Draft)
+@findex wl-draft-send-and-exit
+$B8=:_$N%I%i%U%H$NFbMF$rAw?.$7!"%I%i%U%H%P%C%U%!$r>C5n$7$^$9!#(B
+(@code{wl-draft-send-and-exit})
+
+@item C-x C-s
+@kindex C-x C-s (Draft)
+@findex wl-draft-save
+$B8=:_$N%I%i%U%H$r%;!<%V$7$^$9!#(B
+(@code{wl-draft-save})
+
+@item C-c C-k
+@kindex C-c C-k (Draft)
+@findex wl-draft-kill
+$B8=:_$N%I%i%U%H$rGK4~$7$^$9!#(B
+$B%;!<%V$7$F$$$?>l9g!"(B@samp{+draft} $B%U%)%k%@$+$i$b:o=|$5$l$^$9!#(B
+(@code{wl-draft-kill})
+
+@c @item C-x k
+@c @kindex C-x k (Draft)
+@c @findex wl-draft-mimic-kill-buffer
+@c $B8=:_$N%I%i%U%H$rGK4~$7$^$9!#(B
+@c (@code{wl-draft-mimic-kill-buffer})
+
+@item C-c C-z
+@kindex C-c C-z (Draft)
+@findex wl-draft-save-and-exit
+$B8=:_$N%I%i%U%H$r%;!<%V$7!"%I%i%U%H%P%C%U%!$r>C5n$7$^$9!#(B
+$B%I%i%U%H$NJT=8$rCfCG$7$?$$$H$-$KJXMx$G$9!#(B
+@samp{+draft} $B%U%)%k%@$KF~$C$F(B @kbd{E} (@code{wl-summary-reedit} $B$r2!$;$P!"(B
+$BJT=8$r:F3+$G$-$^$9!#(B
+(@code{wl-draft-save-and-exit})
+
+@item C-c C-r
+@kindex C-c C-r (Draft)
+@findex wl-caesar-region
+$B;XDj$5$l$?%j!<%8%g%s$r%7!<%60E9f$G%(%s%3!<%I(B/$B%G%3!<%I$7$^$9!#(B
+(@code{wl-caesar-region})
+
+@item M-t
+@kindex M-t (Draft)
+@findex wl-toggle-plugged
+Wanderlust $B$N%*%U%i%$%s%b!<%I(B/$B%*%s%i%$%s%b!<%I$r%H%0%k$7$^$9!#(B
+(@code{wl-toggle-plugged})
+
+@item C-c C-o
+@kindex C-c C-o (Draft)
+@findex wl-jump-to-draft-buffer
+$BB>$N%I%i%U%H%P%C%U%!$,$"$l$P0\F0$7$^$9!#(B
+$B$^$?!"(Bprefix argument $B$r$D$1$k$3$H$K$h$j!"%P%C%U%!$,B8:_$7$F$$$J$$>l9g$O!"(B
+$B%I%i%U%H%U%)%k%@$+$i%U%!%$%k$r(B($BB8:_$9$l$P(B)$BFI$_9~$_$^$9!#(B
+(@code{wl-jump-to-draft-buffer})
+
+@item C-c C-e
+@kindex C-c C-e (Draft)
+@findex wl-draft-config-exec
+@code{wl-draft-config-alist}$B$rE,MQ$7$^$9!#(B
+(@code{wl-draft-config-exec})
+
+@item C-c C-j
+@kindex C-c C-j (Draft)
+@findex wl-template-select
+$B%F%s%W%l!<%H$rA*Br$7$^$9!#(B
+(@code{wl-template-select})
+
+@item C-c C-a
+@kindex C-c C-a (Draft)
+@findex wl-draft-insert-x-face-field
+$B%U%!%$%k(B @file{~/.xface} ($BJQ?t(B @code{wl-x-face-file} $B$NCM(B) $B$NFbMF$r(B
+$B%I%i%U%H%P%C%U%!$K(B X-Face$B%U%#!<%k%I$H$7$FA^F~$7$^$9!#(B
+
+Encode $B$5$l$?(B X-Face $BJ8;zNs$r$"$i$+$8$a%U%!%$%k(B @file{~/.xface}
+$B$NFbMF$KMQ0U$7$F$*$/I,MW$,$"$j$^$9!#(B
+(@code{wl-draft-insert-x-face-field})
+@end table
+
+@section $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-subscribed-mailing-list
+@vindex wl-subscribed-mailing-list
+$B=i4|@_Dj$O(B nil$B!#(B
+$B;22C$7$F$$$k%a!<%j%s%0%j%9%H!#(B
+$BJV;v$N%I%i%U%H$rMQ0U$9$k$H$-$K(B Mail-Followup-To $B$d(B Cc $B$K$3$l$i$,(B
+$B4^$^$l$k$H$-$O<+J,$N%"%I%l%9$r=|$-$^$9!#(B
+$B$^$?!"%j%U%!%$%k@h$r3P$($k$H$-$K$3$l$i$,(B To $B$+(B Cc $B$K4^$^$l$k$H$-(B
+$B$K$O!"$=$N%"%I%l%9$G%j%U%!%$%k@h$r3P$($^$9!#(B
+
+@item wl-insert-mail-followup-to
+@vindex wl-insert-mail-followup-to
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i!"(BMail-Followup-To $B%U%#!<%k%I$r(B
+$B%I%i%U%H%P%C%U%!$K<+F0E*$KA^F~$7$^$9!#(B
+
+@item wl-insert-mail-reply-to
+@vindex wl-insert-mail-reply-to
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i!"(BMail-Reply-To $B%U%#!<%k%I$r(B
+$B%I%i%U%H%P%C%U%!$K<+F0E*$KA^F~$7$^$9!#(B
+
+@item wl-auto-insert-x-face
+@vindex wl-auto-insert-x-face
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$G$+$D!"(BEncode $B$5$l$?(B X-Face $BJ8;zNs$r(B @file{~/.xface}
+($BJQ?t(B @code{wl-x-face-file} $B$NCM$G$9(B)$B$NFbMF$KMQ0U$7$F$*$/$H!"(B
+$B%I%i%U%H$,=`Hw$5$l$k$H$-$K<+F0E*$K(B X-Face$B%U%#!<%k%I$H$7$FA^F~$5$l$^$9!#(B
+nil$B$N>l9g$O<+F0E*$K$OA^F~$5$l$^$;$s$,!"(B@kbd{C-c C-a} $B$r2!$9$H%X%C%@It$K(B
+$BA^F~$5$l$^$9!#(B
+
+@item wl-insert-message-id
+@vindex wl-insert-message-id
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i!"Aw?.;~$K(B Message-ID $B%U%#!<%k%I$r<+F0E*$KA^F~$7$^$9!#(B
+
+@item wl-local-domain
+@vindex wl-local-domain
+$B=i4|@_Dj$O(B nil$B!#(B
+nil $B$J$i$P(B Message-ID $B$N%I%a%$%s%Q!<%H$O4X?t(B @code{system-name} $B$NJVCM$,(B
+$B@_Dj$5$l$^$9!#(B
+@code{system-name} $B$,(B FQDN ($B$D$^$j!"(B@samp{smtp.gohome.org} $B$N$h$&$J(B
+$B%[%9%H$N%U%k%M!<%`(B) $B$rJV$5$J$$>l9g$O!"(B
+$B$3$NJQ?t$K(B @strong{$BI,$:(B} $B%[%9%HL>$r=|$$$?%I%a%$%sL>(B (@samp{gohome.org}$B$J$I(B) $B$r(B
+$B@_Dj$7$F$/$@$5$$!#(B $B$b$7!"%0%m!<%P%k$J(BIP$B$r;}$?$J$$>l9g$O!"(B
+@code{wl-message-id-domain}$B$r@_Dj$7$F$/$@$5$$!#(B
+(Message-ID $B$N%I%a%$%s$,$*$+$7$$$H!"(B
+$B%M%C%H%K%e!<%9$G$U$/$mC!$-$K$"$C$F$7$^$&2DG=@-$,$"$j$^$9!#(B)
+$B$^$?!"$3$NCM$,@_Dj$5$l$F$$$k>l9g!"(B
+@code{system-name} $B$K$3$NCM$rIU2C$7$?%[%9%HL>$,(B
+SMTP $B$N(B HELO $B$N0z?t$H$7$FMxMQ$5$l$^$9!#(B
+
+@item wl-message-id-domain
+@vindex wl-message-id-domain
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i!"(BMessage-ID $B$N%I%a%$%s%Q!<%H$K;HMQ$5$l$^$9!#(B
+$B%0%m!<%P%k$J(B IP $B$r;}$?$J$$>l9g$J$I!"%I%a%$%s%Q!<%H$r7h$a$i$l$J$$>l9g$O!"(B
+@code{wl-message-id-domain} $B$K0l0U$JJ8;zNs(B
+($BNc$($P!"%a!<%k%"%I%l%9$J$I(B)$B$r@_Dj$7$F$/$@$5$$!#(B
+
+@item wl-draft-config-alist
+@vindex wl-draft-config-alist
+$B=i4|@_Dj$O(B nil$B!#(B
+$BAw?.D>A0$K%I%i%U%H%a%C%;!<%8$rJQ99$7$^$9!#(B
+$B<+F0E*$K(B @code{wl-draft-config-alist} $B$NFbMF$,E,MQ$5$l$k$N$OAw?.;~$K0lEY(B
+$B$@$1$G$9!#$b$7!$<jF0$GE,MQ$9$k>l9g$O!$(B@kbd{C-c C-e}
+(@code{wl-draft-config-exec}) $B$r;HMQ$7$F$/$@$5$$!#$3$N%3%^%s%I$O2?EY$G$b(B
+$BE,MQ$G$-$^$9!#(B
+
+@item wl-template-alist
+@vindex wl-template-alist
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%I%i%U%H%P%C%U%!$GE,MQ$9$k%F%s%W%l!<%H$r@_Dj$7$^$9!#(B
+
+@item wl-draft-config-matchone
+@vindex wl-draft-config-matchone
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i(B @code{wl-draft-config-alist} $B$NE,MQ;~$K:G=i$K%^%C%A$7$?MWAG(B
+$B$N$_$rE,MQ$7$^$9!#(Bnil $B$J$i%^%C%A$7$?$b$N$9$Y$F$rE,MQ$7$^$9!#(B
+
+@item wl-template-visible-select
+@vindex wl-template-visible-select
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$iJL%&%#%s%I%&$KE,MQ8e$N>uBV$rI=<($7$J$,$i%F%s%W%l!<%H$rA*Br$7$^$9!#(B
+
+@item wl-template-confirm
+@vindex wl-template-confirm
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i%&%#%s%I%&$rI=<($7$J$,$i%F%s%W%l!<%H$rA*Br$9$k>l9g!"%j%?!<%s(B
+$B%-!<$GA*Br$9$k;~$K3NG'$r9T$$$^$9!#(B
+
+@item wl-template-buffer-lines
+@vindex wl-template-buffer-lines
+$B=i4|@_Dj$O(B 7$B!#(B
+@code{wl-template-visible-select}$B$,(B non-nil $B$N>l9g!"(B
+$BE,MQ8e$N>uBV$rI=<($9$k%&%#%s%I%&$NBg$-$5$r;XDj$7$^$9!#(B
+
+@item wl-draft-reply-buffer-style
+@vindex wl-draft-reply-buffer-style
+$B=i4|@_Dj$O(B 'split$B!#(B
+'split $B$H(B 'full $B$,;XDj$G$-$^$9!#(B
+'full $B$J$iJV;v$r=q$/$H$-$K%U%l!<%`A4BN$r;H$C$?%I%i%U%H%P%C%U%!$,(B
+$BMQ0U$5$l$^$9!#(B
+
+@item wl-from
+@vindex wl-from
+$B=i4|@_Dj$OJQ?t(B @code{user-mail-address} $B$NCM!#(B
+$B@_Dj$5$l$?CM$r%I%i%U%H$N(B From $B%U%#!<%k%I$H$7$F:G=i$+$iA^F~$7$^$9!#(B
+
+@item wl-envelope-from
+@vindex wl-envelope-from
+$B=i4|@_Dj$O(B nil$B!#(B
+$B@_Dj$5$l$?CM$r(B envelope from (MAIL FROM) $B$K;HMQ$7$^$9!#(B
+nil $B$J$i(B @code{wl-from} $B$N%"%I%l%9ItJ,$r;HMQ$7$^$9!#(B
+
+@item wl-user-mail-address-list
+@vindex wl-user-mail-address-list
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%f!<%6$N%"%I%l%9%j%9%H$G$9!#(B
+$B%"%I%l%9$rJ#?t;}$C$F$$$k>l9g$O@_Dj$7$F$/$@$5$$!#(B
+
+@item wl-fcc
+@vindex wl-fcc
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i!"@_Dj$5$l$?CM$r%I%i%U%H$N(B FCC $B$H$7$F:G=i$+$iA^F~$7$^$9!#(B
+
+@item wl-bcc
+@vindex wl-bcc
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i!"@_Dj$5$l$?CM$r%I%i%U%H$N(B Bcc $B$H$7$F:G=i$+$iA^F~$7$^$9!#(B
+
+@item wl-reply-subject-prefix
+@vindex wl-reply-subject-prefix
+$B=i4|@_Dj$O(B "Re: "$B!#(B
+$BJV?.;~$N%I%i%U%H$N(B Subject $B$G!"855-;v$N(B Subject $B$N@hF,$KIU$12C$($kJ8;zNs$G$9!#(B
+
+@item wl-draft-enable-queuing
+@vindex wl-draft-enable-queuing
+$B=i4|@_Dj$O(B t$B!#(B
+$B%*%U%i%$%sAw?.$9$k$+$I$&$+$r<($9%U%i%0$G$9!#(BNon-nil $B$J$i%*%U%i%$%sAw?.$7$^$9!#(B
+
+@item wl-auto-flush-queue
+@vindex wl-auto-flush-queue
+$B=i4|@_Dj$O(B t$B!#(B
+$B%*%s%i%$%s$K$J$C$?$H$-$K<+F0E*$K%-%e!<$rAw?.$9$k$+$I$&$+$r<($9%U%i%0$G$9!#(B
+Non-nil $B$J$i<+F0E*$KAw?.$7$^$9(B ($B$$$A$*$&(B @code{y-or-n-p} $B$G3NG'$7$^$9(B)$B!#(B
+$B<jF0$G%-%e!<$rAw?.$9$k$K$O!"%U%)%k%@%b!<%I$G(B @kbd{F} $B$r2!$7$F$/$@$5$$!#(B
+
+@item wl-draft-always-delete-myself
+@vindex wl-draft-always-delete-myself
+Non-nil $B$J$i!"<+J,08$F$N%a!<%k$KJV?.$9$k>l9g!">o$K(B To, Cc $B$+$i<+J,$N(B
+$B%a!<%k%"%I%l%9$r:o=|$7$^$9!#(B
+
+@item wl-smtp-posting-server
+@vindex wl-smtp-posting-server
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%a!<%kAw?.;~$N(B SMTP $B%5!<%PL>$G$9!#(B
+
+@item wl-smtp-posting-user
+@vindex wl-smtp-posting-user
+$B=i4|@_Dj$O(B nil$B!#(B
+SMTP AUTH$B$K$h$kG'>Z$r9T$J$&$H$-$N%f!<%6L>$G$9!#(B
+nil$B$J$i(B @code{smtp-authenticate-user} $B$r;H$$$^$9!#(B
+
+@item wl-smtp-authenticate-type
+@vindex wl-smtp-authenticate-type
+$B=i4|@_Dj$O(B nil$B!#(B
+SMTP AUTH$B$K$h$kG'>Z$r9T$J$&$H$-$NG'>ZJ}<0$G$9!#(B
+nil$B$N$^$^$J$i(B @code{smtp-authenticate-type}$B$rMxMQ$7$^$9!#(B
+$B$=$l$G$b!"(Bnil$B$J$iG'>Z$r9T$$$^$;$s!#(B
+
+@item wl-smtp-connection-type
+@vindex wl-smtp-connection-type
+$B=i4|@_Dj$O(B nil$B!#(B
+SMTP$B$N%3%M%/%7%g%s$r$I$N$h$&$KD%$k$+$r;XDj$7$^$9!#(B
+nil$B$J$i(B @code{smtp-connection-type} $B$rMxMQ$7$^$9!#(B
+'starttls$B$J$i(BSTARTTLS (RFC2595)$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#(B
+
+@item wl-nntp-posting-server
+@vindex wl-nntp-posting-server
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%K%e!<%9Ej9F;~$N(B NNTP $B%5!<%PL>$G$9!#(B
+nil$B$J$i(B @code{elmo-default-nntp-server} $B$r;H$$$^$9!#(B
+
+@item wl-nntp-posting-user
+@vindex wl-nntp-posting-user
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%K%e!<%9Ej9F;~$K(BAUTHINFO$B$K$h$kG'>Z$r9T$J$&$H$-$N%f!<%6L>$G$9!#(B
+nil$B$J$i(B @code{elmo-default-nntp-user} $B$r;H$$$^$9!#(B
+$B$=$l$G$b!"(Bnil$B$J$i(BAUTHINFO$B$K$h$kG'>Z$r9T$J$$$^$;$s!#(B
+
+@item wl-nntp-posting-port
+@vindex wl-nntp-posting-port
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%K%e!<%9Ej9F;~$N(B NNTP $B%5!<%P$N%]!<%HHV9f!#(B
+nil$B$J$i(B @code{elmo-default-nntp-server} $B$r;H$$$^$9!#(B
+
+@item wl-nntp-posting-ssl
+@vindex wl-nntp-posting-ssl
+$B=i4|@_Dj$O(B nil$B!#(B
+nil$B$J$i(B @code{elmo-default-nntp-ssl} $B$rI>2A$7$^$9!#(B
+Non-nil$B$J$i%K%e!<%9Ej9F;~$K(BSSL$B$rMxMQ$7$^$9!#(B
+'starttls$B$J$i(BSTARTTLS (RFC2595)$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#(B
+
+@item wl-pop-before-smtp-user
+@vindex wl-pop-before-smtp-user
+$B=i4|@_Dj$O(B nil$B!#(B
+POP-before-SMTP$B$G(BPOP$B$r9T$J$&$H$-$N%f!<%6L>$G$9!#(B
+nil$B$N$^$^$J$i(B @code{elmo-default-pop3-user}$B$rMxMQ$7$^$9!#(B
+
+@item wl-pop-before-smtp-server
+@vindex wl-pop-before-smtp-server
+$B=i4|@_Dj$O(B nil$B!#(B
+POP-before-SMTP$B$G(BPOP$B$r9T$J$&$H$-$N%5!<%PL>$G$9!#(B
+nil$B$N$^$^$J$i(B @code{elmo-default-pop3-server}$B$rMxMQ$7$^$9!#(B
+
+@item wl-pop-before-smtp-authenticate-type
+@vindex wl-pop-before-smtp-authenticate-type
+$B=i4|@_Dj$O(B nil$B!#(B
+POP-before-SMTP$B$G(BPOP$B$r9T$J$&$H$-$NG'>ZJ}<0$G$9!#(B
+nil$B$N$^$^$J$i(B @code{elmo-default-pop3-authenticate}$B$rMxMQ$7$^$9!#(B
+
+@item wl-pop-before-smtp-port
+@vindex wl-pop-before-smtp-port
+$B=i4|@_Dj$O(B nil$B!#(B
+POP-before-SMTP$B$G(BPOP$B$r9T$J$&$H$-$N%]!<%HHV9f$G$9!#(B
+nil$B$N$^$^$J$i(B @code{elmo-default-pop3-port}$B$rMxMQ$7$^$9!#(B
+
+@item wl-pop-before-smtp-ssl
+@vindex wl-pop-before-smtp-ssl
+$B=i4|@_Dj$O(B nil$B!#(B
+POP-before-SMTP$B$G(BSSL$B$rMxMQ$9$k$+$I$&$+$r<($9%U%i%0$G$9!#(B
+nil$B$N$^$^$J$i(B @code{elmo-default-pop3-ssl}$B$rMxMQ$7$^$9!#(B
+'starttls$B$J$i(BSTARTTLS (RFC2595)$B$rMxMQ$7$F%3%M%/%7%g%s$,D%$i$l$^$9!#(B
+
+@item wl-draft-queue-save-variables
+@vindex wl-draft-queue-save-variables
+$B%*%U%i%$%sAw?.;~$K%-%e!<$K3JG<$5$l$?%a%C%;!<%8$K$D$$$FJ]B8$7$F$*$/JQ?t$r(B
+$B%j%9%H$G;XDj$7$^$9!#(B
+
+@item wl-draft-sendlog
+@vindex wl-draft-sendlog
+$B=i4|@_Dj$O(B t$B!#(B
+t $B$J$i(B @file{~/.elmo/sendlog} $B$KAw?.%m%0$r=PNO$7$^$9!#(B
+$B%m%0$r=PNO$9$k%?%$%_%s%0$O(B smtp, qmail $B$K$h$kAw?.!"(Bfcc, queuing $B$K$h$k%U%)(B
+$B%k%@$X$N3JG<!"$G$9(B($B<:GT$N>l9g$b(B)$B!#$?$@$7!"(Bim-wl.el $B$K$h$kAw?.$O(B sendlog $B$K(B
+$B$O=PNO$;$:$K(B imput $B$N%m%05!G=$K$*$^$+$;$7$^$9!#(B
+
+@item wl-draft-sendlog-max-size
+@vindex wl-draft-sendlog-max-size
+$B=i4|@_Dj$O(B 20000 ($B%P%$%H(B)$B!#(B
+@code{wl-draft-sendlog} $B$,(B t $B$N>l9g!"(B
+$BJ]B8$7$?%m%0$NBg$-$5$,;XDj$7$?Bg$-$50J>e$K$J$l$P!"%m%0$r%m!<%F!<%7%g%s$7$^$9!#(B
+@end table
+
+
+@c
+@c  Dsiconnected Operations
+@c
+@node Disconnected Operations, Expire and Archive, Draft, Top
+@chapter $B%*%U%i%$%s=hM}(B
+@cindex Disconnected Operations
+@cindex Offline
+@cindex Unplugged
+
+@section $B%*%U%i%$%s%b!<%I(B
+
+Wanderlust $B$K$O%*%s%i%$%s%b!<%I$H%*%U%i%$%s%b!<%I$,$"$j$^$9!#(B
+$B%*%U%i%$%s%b!<%I$G$O!"%M%C%H%o!<%/7PM3$G$J$1$l$PFI$a$J$$%a%C%;!<%8$O(B
+$B%"%/%;%9$G$-$^$;$s(B($B%-%c%C%7%e$5$l$F$$$l$P%"%/%;%9$G$-$^$9(B)$B!#(B
+
+$B%b!<%I%i%$%s$K(B @samp{[ON]} $B$H=P$F$$$k$H$-$O(B
+$B%*%s%i%$%s%b!<%I$K$"$k$3$H$r<($7$F$$$^$9!#(B
+$B%b!<%I%i%$%s$K(B @samp{[--]} $B$H=P$F$$$k$H$-$O%*%U%i%$%s%b!<%I$G$9!#(B
+$B%U%)%k%@%b!<%I!"%5%^%j%b!<%I$G(B @kbd{M-t} $B$r2!$9$H%*%U%i%$%s(B/$B%*%s%i%$%s$N@Z$jBX$($,$G$-$^$9!#(B
+
+@file{~/.wl} $B$J$I$GJQ?t(B @code{wl-plugged} $B$r(B nil $B$K@_Dj$7$F$+$i5/F0$9$k$H!"(B
+$B5/F0;~$+$i%*%U%i%$%s%b!<%I$H$J$j$^$9!#(B
+
+$B0J2<$NA`:n$O(B($BBP>]$H$J$k%a%C%;!<%8$,%-%c%C%7%e$5$l$F$$$l$P(B)
+$B%*%U%i%$%s%b!<%I$G$b<B9T$G$-$^$9!#(B
+($BJQ?t(B @code{elmo-enable-disconnected-operation} ($B8e=R(B) $B$,(B non-nil $B$N$H$-!#(B)
+
+@itemize @minus
+@item $B%a%C%;!<%8$NAw?.(B
+@item $B%j%U%!%$%k(B/$B%3%T!<(B (IMAP4)
+@item $B%U%)%k%@@8@.(B (IMAP4)
+@item $B%^!<%/IU$1(B (IMAP4)
+@item $B%W%j%U%'%C%A(B (IMAP4, NNTP)
+@end itemize
+
+$B%*%U%i%$%s%b!<%ICf$K$J$5$l$?$3$l$i$NA`:n$O!"(BWanderlust $B$,%*%s%i%$%s%b!<%I(B
+$B$K$J$C$?=V4V$K%M%C%H%o!<%/7PM3$G%5!<%P>e$KH?1G$5$l$^$9!#(B
+
+@section $B%a%C%;!<%8$NAw?.(B
+
+$B%*%U%i%$%s>uBV$G%a!<%k(B/$B%K%e!<%95-;v$rAw?.$G$-$^$9!#(B
+(im-wl.el $B$r$*;H$$$N>l9g$O!"4X78$"$j$^$;$s!#(B)
+$B%*%U%i%$%s$N$H$-$KAw?.$5$l$?%a%C%;!<%8$O(B
+$B%-%e!<%U%)%k%@(B @samp{+queue} $B$KN/$j$^$9!#(B
+$BN/$C$?%a%C%;!<%8$O!"%*%s%i%$%s$K$J$C$?$H$-$K0l5$$KAw?.$5$l$^$9!#(B
+
+$B%*%U%i%$%s$N$&$A$K(B @samp{+queue} $B$rK,$l$F!"(B
+$B%-%e!<$K$"$k%a%C%;!<%8$NFbMF$r3NG'$G$-$^$9!#(B
+$B%a%C%;!<%8$r:o=|$9$k$3$H$b2DG=$G$9!#(B
+($B:o=|$5$l$?%a%C%;!<%8$O%*%s%i%$%s$K$J$C$F$bAw?.$5$l$^$;$s!#(B)
+
+@c $B%-%e!<$K$"$k%a%C%;!<%8$r:FJT=8$9$k$3$H$b2DG=$G$9$,!"(B
+@c $BLdBj$,5/$3$k2DG=@-$,$"$j$^$9$N$G$*4+$a$G$-$^$;$s!#(B
+
+@section $B%j%U%!%$%k(B/$B%3%T!<(B(IMAP4)
+
+$B%*%U%i%$%s>uBV$N$"$$$@$K<B9T$5$l$?(B IMAP $B%U%)%k%@$KBP$9$k%j%U%!%$%k(B
+/$B%3%T!<A`:n$O%-%e!<$K$?$a$i$l!"%*%s%i%$%s$K$J$C$?$H$-$K%5!<%PB&$KH?1G$5(B
+$B$l$^$9!#%*%U%i%$%s!&%j%U%!%$%k(B/$B%3%T!<$N$"$H!"%j%U%!%$%k(B/$B%3%T!<@h$N%U%)%k(B
+$B%@$rK,$l$k$H!"%*%U%i%$%s$G$b%a%C%;!<%8$,DI2C$5$l$F$$$k$h$&$K8+$($^$9!#(B
+
+$B%*%U%i%$%s!&%j%U%!%$%k$N%-%e!<=hM};~$N:o=|=hM}$O0BA4$r4|$7$F%5!<%P>e$N%a%C(B
+$B%;!<%8$H(B Message-ID $B$,0lCW$7$?>l9g$N$_:o=|$7$^$9!#$^$?!"%-%e!<=hM};~$K%j(B
+$B%U%!%$%k(B/$B%3%T!<@h$K;XDj$5$l$?%U%)%k%@$K%a%C%;!<%8$rDI2C$9$k$N$K<:GT$7$?(B
+$B$H$-$O(B @samp{+lost+found} $B%U%)%k%@$KDI2C$5$l$^$9!#(B
+
+@section $B%U%)%k%@@8@.(B(IMAP4)
+
+IMAP $B%U%)%k%@$N@8@.$b%*%U%i%$%s>uBV$G<B9T$G$-$^$9!#%*%s%i%$%s$K$J$C$?$H$-(B
+$B$K%U%)%k%@@8@.$,%5!<%P$KH?1G$5$l$^$9$,!"$3$N$H$-!"2?$i$+$N860x$G%U%)%k%@@8(B
+$B@.$,<:GT$7$F$7$^$C$?>l9g!"%*%U%i%$%sCf$K@8@.$5$l$?%U%)%k%@$X%j%U%!%$%k$5$l(B
+$B$?%a%C%;!<%8$O(B "+lost+found" $B%U%)%k%@$KDI2C$5$l$^$9!#(B
+
+@section $B%^!<%/IU$1(B(IMAP4)
+
+IMAP $B%U%)%k%@$K$"$k%a%C%;!<%8$KBP$9$kL$FI(B/$B4{FI$N>pJs!"$*$h$S!"(B
+$B=EMW%^!<%/(B @samp{$} $B$,$D$$$F$$$k$+$I$&$+!"$b%*%U%i%$%sCf$NJQ99$,%*%s%i%$%s$K(B
+$B$J$C$?$H$-$K%5!<%P$KH?1G$5$l$^$9!#(B
+
+@section $B%W%j%U%'%C%A(B(IMAP4, NNTP)
+
+IMAP $B$b$7$/$O(B NNTP $B%U%)%k%@$K$"$k%a%C%;!<%8$KBP$7$F!"%W%j%U%'%C%A$NM=Ls(B
+$B$r$7$^$9!#%W%j%U%'%C%A$NM=Ls$,$5$l$?%a%C%;!<%8$O(B @samp{!} $B$,IU$-$^$9$,!"(B
+$B$3$N;~E@$G$O%-%c%C%7%e$5$l$F$*$i$:!"%*%s%i%$%s$K$J$C$?$H$-$K%5!<%P$+$i(B
+$B%W%j%U%'%C%A$5$l$^$9!#(B
+
+$BJQ?t(B @code{elmo-enable-disconnected-operation} $B$,(B nil $B$J$i!"(B
+$B$3$l$i$N(B IMAP4 $B$H(B NNTP$B$K4X$9$k%*%U%i%$%s=hM}$O<B9T$5$l$:!"(B
+$B%*%U%i%$%sCf$N%j%U%!%$%k(B/$B%3%T!<Ey$NA`:n$OC1$K%(%i!<$K$J$j$^$9!#(B
+
+$B%*%U%i%$%s=hM}$G%-%c%C%7%e%U%!%$%k$r;H$&$N$G!"(B
+$B%-%c%C%7%e%U%!%$%k$r<j$G>C$9$H(B Wanderlust $B$,8mF0:n$9$k$*$=$l$,$"$j$^$9!#(B
+$B%-%c%C%7%e$r>C$7$?$$$H$-$O(B
+@kbd{M-x elmo-cache-expire-by-size}
+$B$r<B9T$9$k$h$&$K$7$F$/$@$5$$!#(B
+@code{elmo-cache-expire-by-size} $B$O%*%U%i%$%s=hM}$NBP>]$H$J$k%a%C%;!<%8$N(B
+$B%-%c%C%7%e$O:o=|$7$^$;$s!#(B
+
+@section $B%5!<%P!&%]!<%HJL$N%*%s%i%$%s!"%*%U%i%$%s$N@Z$jBX$((B
+
+$B>e5-$N(B @kbd{M-t} $B$K$h$kA`:n$G$O%M%C%H%o!<%/$N>uBV$r0l3g$7$F@Z$jBX$($^$9$,!"(B
+$B%5!<%P!&%]!<%HJL$K%*%s%i%$%s$H%*%U%i%$%s$r@Z$jBX$($k$3$H$b$G$-$^$9!#(B
+
+$B%U%)%k%@%b!<%I!"%5%^%j%b!<%I$G(B @kbd{C-t} $B$r2!$9$H0J2<$N$h$&$J(B 
+wl-plugged-mode $B$KF~$j!"$3$N%b!<%I$G3F%]!<%H$N(B plug $B>uBV$rJQ99$7$^$9!#(B
+
+@example
+Queuing:[ON] AutoFlushQueue:[--] DisconnectedOperation:[ON]
+[ON](wl-plugged)
+  [--]hosta
+    [--]smtp        +queue: 2 msgs (1,2)        @dots{}@r{sending queue}
+    [--]nntp(119)   +queue: 1 msg (3)           @dots{}@r{sending queue}
+  [ON]hostb
+    [--]imap4/cram-md5(143) %#mh/wl(prefetch-msgs:3,mark-as-important:1)
+                            %inbox(delete-msgids:1)    @dots{}@r{dop queue}
+    [ON]nntp(119)
+    [ON]smtp
+@end example
+
+1$B9TL\$O%*%U%i%$%sA`:n$K4X78$9$k<!$N(B3$B$D$NJQ?t$N>uBV$rI=<($7!"(B
+$B$=$l$>$l$N%i%Y%kMs$G(B @kbd{@key{SPC}} $B$d(B @kbd{@key{RET}} $B$r2!$9$3$H$G(B
+$BJQ?t$NCM$r4JC1$KJQ99$G$-$k$h$&$K$J$C$F$$$^$9!#(B
+
+@example
+"Queuing"               wl-draft-enable-queuing
+"AutoFlushQueue"        wl-auto-flush-queue
+"DisconnectedOperation" elmo-enable-disconnected-operation
+@end example
+
+$B$3$3$G!"(B@samp{[ON]} $B$O$=$NJQ?t$NCM$,(B t $B$G$"$k$3$H$r!"(B
+@samp{[--]} $B$O(B nil $B$G$"$k$3$H$r<($7$F$$$^$9!#(B
+
+$B$^$?!"(B2$B9TL\0J9_$G$O%5!<%P$H%]!<%H$N%*%s%i%$%s$H%*%U%i%$%s>uBV$rI=<($7!"(B
+@samp{[ON]} $B$O$=$N%5!<%P$d%]!<%H$,%*%s%i%$%s$G$"$k$3$H$r!"(B
+@samp{[--]} $B$O%*%U%i%$%s$G$"$k$3$H$r<($7$F$$$^$9(B
+(XEmacs $B$G$O%"%$%3%s$GI=<($5$l$^$9(B)$B!#(B
+$B$=$7$F$=$l$>$l$N9T$G(B @kbd{@key{SPC}} $B$d(B @kbd{@key{RET}} $B$r2!$9$3$H$G(B
+$B>uBV$r@Z$jBX$($k$3$H$,$G$-$^$9!#(B
+
+sending queue $B$O%*%U%i%$%sAw?.;~$K(B @samp{+queue} $B%U%)%k%@$K3JG<$5$l$F$$$k(B
+$BAw?.BT$A$N%a%C%;!<%8$r;X$7!"(B
+dop queue $B$O%*%U%i%$%s$G9T$C$?%j%U%!%$%k(B/$B%3%T!<Ey$NA`:n$r;X$9$H$7$^$9!#(B
+@c $BJQ?t(B @code{elmo-enable-disconnected-operation} $B$,(B non-nil $B$J$i(B
+@c $B%*%U%i%$%sA`:n$,$G$-$^$9!#(B
+
+$B$=$7$F$b$7!"$3$l$i$N(B sending queue $B$d(B dop queue $B$,$"$l$P(B
+$B$=$N>uBV$,2hLL$KI=<($5$l$^$9!#(B
+$B>e5-Nc$G$O!"(Bsending queue $B$K$O(B hosta $B$N(B smtp $B8~$1$K(B 2 $B$D(B
+(queue $B%U%)%k%@$N(B1$BHV$H(B2$BHV(B)$B$H!"(B
+hosta $B$N(B nntp $B8~$1$K(B 1 $B$D(B(3$BHV(B)$B$N%a%C%;!<%8$,$"$j!"(B
+dop queue $B$K$O(B @samp{%inbox} $B$NA`:n$,(B1$B$D$H!"(B
+@samp{%#mh/wl} $B$NA`:n$,(B2$B$D$"$k$3$H$r<($7$F$$$^$9!#(B
+
+$B$3$N%b!<%I$G(B2$B9TL\$K$"$k(B (wl-plugged) $B$rJQ99$9$k$H!"(Bwl-plugged $BJQ?t$,JQ99$5(B
+$B$l!"$3$l$K$h$j%b!<%I%i%$%s$N(B indicator $B$HA4BN$N(B $B%]!<%H(B plug $B>uBV$,(B 
+ON/OFF $B$5$l$^$9!#(B
+$B$^$?!"3F%5!<%P$d%]!<%H$N(B plug $B>uBV$rJQ99$9$k$H!"(B
+@code{elmo-plugged-condition} ($B8e=R(B)$B$N@_Dj$H3F%]!<%H$N(B plug $B>uBV$K$h$j(B 2$B9TL\$N(B 
+wl-plugged $B$,JQ2=$7$^$9!#(B
+
+@section $B5/F0;~$N%*%U%i%$%s>uBV@_Dj(B
+
+$BA0=R$NDL$j!"(B@file{~/.wl} $B$J$I$GJQ?t(B @code{wl-plugged} $B$r(B nil $B$K@_Dj$7$F$+$i5/F0$9(B
+$B$k$H!"5/F0;~$+$i%*%U%i%$%s%b!<%I$K$9$k$3$H$,$G$-$^$9$,!"$5$i$K:Y$+$/%5!<%P(B
+$B$d%]!<%HKh$K%*%U%i%$%s>uBV$r@_Dj$9$k$3$H$b$G$-$^$9!#(B
+$BJ;$;$FJQ?t(B @code{wl-reset-plugged-alist} $B$b;2>H2<$5$$!#(B
+
+$BDL>o!"5/F0;~$K$O(B @file{~/.folder} $B$H(B @code{wl-smtp-posting-server},
+@code{wl-nntp-posting-server} $B$J$I$+$i3F%]!<%H$N(B plug $B>uBV$,<+F0E*$KDI2C$5$l$^$9(B
+$B$,!"$3$l$i$N%]!<%H$N(Bplug$B>uBV$rJQ99$7$?$j!">e5-0J30$N%]!<%H$rDI2C$7$?$j$9$k(B
+$B>l9g$K$O(B @code{wl-make-plugged-hook} $B$KJQ99$9$k4X?t$r5-=R$7$^$9!#(B
+
+@lisp
+(add-hook 'wl-make-plugged-hook
+          '(lambda ()
+             (elmo-set-plugged plugged$BCM(B(t/nil) server port)
+                     ;; @r{server,port$B$N(Bplug$B>uBV$r?75,DI2C$b$7$/$OJQ99$9$k(B}
+             (elmo-set-plugged plugged$BCM(B(t/nil) server)
+                     ;; @r{port $B$r>JN,$9$k$H(Bserver$B$NA4(Bport$B$,JQ99$5$l$k(B}
+                     ;; @r{(port $B$r>JN,$7$F?75,$NDI2C$O$G$-$J$$(B)}
+             ))
+@end lisp
+
+@section $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-plugged
+@vindex wl-plugged
+$B$3$NCM$r(B nil $B$K@_Dj$7$F(B Wanderlust $B$r5/F0$9$k$H!"(B
+$B5/F0;~$+$i%*%U%i%$%s%b!<%I$H$J$j$^$9!#(B
+
+@item wl-queue-folder
+@vindex wl-queue-folder
+$B=i4|@_Dj$O(B "+queue"$B!#Aw?.%-%e!<$N%a%C%;!<%8$,N/$k%U%)%k%@!#(B
+
+@item wl-auto-flush-queue
+@vindex wl-auto-flush-queue
+$B=i4|@_Dj$O(B t$B!#%*%s%i%$%s$K$J$C$?$H$-$K<+F0E*$K%-%e!<$rAw?.$9$k$+$I$&$+!#(B
+Non-nil $B$J$i<+F0E*$KAw?.$7$^$9(B ($B$$$A$*$&(B @code{y-or-n-p} $B$G3NG'$7$^$9(B)$B!#(B
+$B<jF0$G%-%e!<$rAw?.$9$k$K$O!"%U%)%k%@%b!<%I$G(B @kbd{F} $B$r2!$7$F$/$@$5$$!#(B
+
+@item elmo-enable-disconnected-operation
+@vindex elmo-enable-disconnected-operation
+$B=i4|@_Dj$O(B nil$B!#(BIMAP4 $B$K4X$9$k%*%U%i%$%s=hM}$r<B9T$9$k$+$I$&$+!#(B
+Non-nil $B$J$i%*%U%i%$%s=hM}$r<B9T$7$^$9!#(B
+
+@item elmo-lost+found-folder
+@vindex elmo-lost+found-folder
+$B=i4|@_Dj$O(B "+lost+found"$B!#%*%U%i%$%s!&%j%U%!%$%k(B/$B%3%T!<$N%-%e!<=hM}$G(B
+$B%a%C%;!<%8$NDI2C$K<:GT$7$?$H$-$K%a%C%;!<%8$rB`Hr$5$;$k%U%)%k%@$G$9!#(B
+
+@item elmo-plugged-condition
+@vindex elmo-plugged-condition
+$B=i4|@_Dj$O(B 'one$B!#(B
+@code{wl-plugged} $B$NCM$O4X?t(B @code{elmo-plugged-p} ($B0z?t$J$7(B)$B$NLa$jCM$K$h$j7hDj$5$l$^$9!#(B
+$B$3$NJQ?t(B @code{elmo-plugged-condition} $B$O(B (elmo-plugged-p) $B$NLa$jCM$,(B t $B$K$J$k>r7o(B
+$B$r3F%]!<%H$N(Bplug$B>uBV$K$h$j;XDj$7$^$9!#(B
+
+@example
+'one         : 1$B$D0J>e$N%]!<%H$,(B plugged $B$J$i(B plugged $B$G$"$k(B
+'all         : $BA4$F$N%]!<%H$,(B plugged $B$J$i(B plugged $B$G$"$k(B
+'independent : $B%]!<%H$N(B plug $B>uBV$K4X78$J$/(B wl-plugged (elmo-plugged)
+               $B$r;2>H$9$k(B
+function     : $B4X?t$NLa$jCM$K$h$jJQ2=$9$k(B
+ $BI8=`$GMQ0U$5$l$F$$$k4X?t(B
+ 'elmo-plug-on-by-servrs
+             : $BJQ?t(B elmo-plug-on-servers $B$G;XDj$7$?%5!<%P$N(B plug
+               $B>uBV$K$h$jJQ2=$9$k(B
+ 'elmo-plug-on-by-exclude-servers
+             : $BJQ?t(B elmo-plug-on-exclude-servers $B$G;XDj$7$?0J30$N(B
+               $B%5!<%P$N(B plug $B>uBV$K$h$jJQ2=$9$k(B
+                  elmo-plug-on-exclude-servers $B$N%G%U%)%k%HCM$O(B
+                   '("localhost"
+                     (system-name)
+                     (system-name)$B$+$i%I%a%$%sIt$r=|$$$?$b$N(B)
+                  $B$G$"$k(B
+@end example
+
+@example
+$BNc(B1:
+ (setq elmo-plugged-condition 'all)
+$BNc(B2:
+ (setq elmo-plug-on-servers '("smtpserver" "newsserver"))
+ (setq elmo-plugged-condition 'elmo-plug-on-by-servers)
+$BNc(B3:
+ (setq elmo-plug-on-exclude-servers '("localhost" "myname"))
+ (setq elmo-plugged-condition 'elmo-plug-on-by-exclude-servers)
+@end example
+
+@item wl-reset-plugged-alist
+@vindex wl-reset-plugged-alist
+$B=i4|@_Dj$O(B t$B!#(BNon-nil $B$J$i(B Wanderlust $B$N5/F0;~$K%5!<%P!&%]!<%HJL$N%W%i%0(B
+$B>uBV$r(B @code{wl-plugged} $B$NCM$K$h$j=i4|2=$7$^$9!#(B
+
+nil $B$J$i!"(BEmacs $B$,F0:n$7$F$$$k4V!"A02s=*N;$7$?;~E@$N%W%i%0>uBV$rJ];}$7$^$9!#(B
+$B8@$$49$($l$P(B nil $B$G$"$C$F$b(B Emacs $B$r:F5/F0$9$k$H=i4|2=$5$l$^$9!#(B
+@end table
+
+
+@c
+@c  Expire and Archive
+@c
+@node Expire and Archive, Scoring, Disconnected Operations, Top
+@chapter $B%a%C%;!<%8$N<+F0:o=|$H%"!<%+%$%V(B
+@cindex Expire and Archive
+
+@menu
+* Expire::      $B4|8B%a%C%;!<%8$N<+F0:o=|!"%"!<%+%$%V(B
+* Archive::     $BA4%a%C%;!<%8$N%"!<%+%$%V(B
+@end menu
+
+
+@node Expire, Archive, Expire and Archive, Expire and Archive
+@section $B%a%C%;!<%8$N<+F0:o=|(B
+@cindex Expire Message
+
+Expire $B$H$O!";XDj$7$?4|4V$r2a$.$?8E$$%a%C%;!<%8$r:o=|$9$k5!G=$G$9!#(B
+
+$B$7$+$7!"(B@code{wl-expire} $B$G$O%a%C%;!<%8$rC1=c$K>C$9$@$1$G$O$J$/!";XDj$7$?%"!<%+(B
+$B%$%V%U%)%k%@$K0\F0$9$k$3$H$b=PMh$^$9!#(B
+
+@section $B;H$$J}(B
+
+@code{wl-expire-alist}$B$r@_Dj$7$F!"%U%)%k%@%b!<%I$G(B @kbd{e}$B!"$b$7$/$O%5%^(B
+$B%j%b!<%I$G(B @kbd{M-e} $B$r2!$7$^$9!#(B
+
+@subsection @code{wl-expire-alist}$B$N@_Dj(B
+
+$B<!$K(B@code{wl-expire-alist}$B$N@_DjNc$r<($7$^$9!#$3$N(B@code{wl-expire-alist}
+$B$N=q$-J}0l$D$G(B expire $B$N<B;\J}K!$,Bg$-$/JQ$o$j$^$9$N$G!"?5=E$K@_Dj$7$F$/(B
+$B$@$5$$!#(B
+$B:G=i$N$&$A$O(B@code{wl-expire-use-log}$B$r(B t $B$K%;%C%H$7$F$*$/$HNI$$$G$7$g$&!#(B
+
+@lisp
+(setq wl-expire-alist
+      '(("^\\+trash$"   (date 14) remove)
+                                  ;; @r{$B:o=|$9$k!#(B}
+        ("^\\+tmp$"     (date 7) trash)
+                                  ;; @r{@code{wl-trash-folder} $B$K(Brefile$B$9$k!#(B}
+        ("^\\+outbox$"  (number 300) "$outbox;lha")
+                                  ;; @r{$BFCDj$N%U%)%k%@$K(Brefile$B$9$k!#(B}
+        ("^\\+ml/tmp$"  nil)
+                           ;; @r{expire$B$7$J$$(B}
+        ("^\\+ml/wl$"   (number 500 510) wl-expire-archive-number1 t)
+                           ;; @r{$BHV9f$4$H$K%"!<%+%$%V$9$k(B($BHV9f$OJ];}$9$k(B)$B!#(B}
+        ("^\\+ml/.*"    (number 300 310) wl-expire-archive-number2 t)
+                           ;; @r{$B0lDj?t$4$H$K%"!<%+%$%V$9$k(B($BHV9f$OJ];}$9$k(B)$B!#(B}
+        ("^\\+nikki$"   (date 30) wl-expire-archive-date)
+                           ;; @r{$BG/7n$4$H$K%"!<%+%$%V$9$k(B($BHV9f$OJ];}$7$J$$(B)$B!#(B}
+        ))
+@end lisp
+
+$B3F%j%9%H$NMWAG$O(B
+
+@example
+("$B%U%)%k%@$N(Bregexp"  ($B:o=|%a%C%;!<%8$N;XDj(B) $B:o=|@h(B)
+@end example
+
+@noindent
+$B$H$J$C$F$$$^$9!#(B
+$B%j%9%H$N@hF,$+$i(B"$B%U%)%k%@$N(Bregexp"$B$K%^%C%A$9$k$+$I$&$+$rD4$Y$^$9!#(B
+$B$b$7!"(B"$B%U%)%k%@$N(Bregexp"$B$K%^%C%A$7$J$$%U%)%k%@$G!"(Bexpire $B$r<B9T$7$F$b2?$b$7$^$;$s!#(B
+$B$^$?!"(B2,3 $BHVL\$NMWAG$N$$$:$l$+$,(B nil $B$G$"$l$P(B expire $B$7$^$;$s!#(B
+
+$B:o=|%a%C%;!<%8$N;XDj$K$O<!$N$b$N$r;XDj$7$^$9!#(B
+
+@table @code
+@item (number n1 [n2])
+$B%U%)%k%@$K$"$k%a%C%;!<%8?t$K1~$8$F:o=|$r9T$$$^$9!#(B
+
+n1 $B$O:o=|8e$N%a%C%;!<%8?t$G!"(B
+$BNc$($PCM$,(B 500 $B$J$i:G?7$N(B 500 $B8D$r;D$7$F;D$j$r:o=|$9$k$3$H$K$J$j$^$9!#(B
+
+n2 $B$O(B expire $B$r<B9T$9$k$?$a$N%a%C%;!<%8$NAm?t$G!">JN,$9$k$H(B n1 + 1 $B$K$J$j$^$9!#(B
+$BNc$($PCM$,(B 510 $B$J$i%a%C%;!<%8$,(B 510 $B0J>e$N$H$-$K(B expire $B$r<B9T$9$k$3$H$K$J$j$^$9!#(B
+$B$3$l$O<+F0<B9T$G(B expire $B$r9T$&$h$&$K$7$?>l9g!"IQHK$K%a!<%k$,Mh$k%U%)%k%@$G(B
+$B$OKh2s(B expire $B$r<B9T$9$k$?$a!"%a!<%k$rFI$`$^$G$K;~4V$,$+$+$j!"(B
+$BHQ$o$7$/$J$C$F$7$^$$$^$9!#(B
+$B$=$3$G(B n2 $B$r(B n1 $B$h$j$bBg$-$a$NCM$K@_Dj$9$k$3$H$K$h$j!"0lDj?tN/$^$k$^$G$O(B
+expire $B$r<B9T$7$J$$$h$&$K$9$k$3$H$,$G$-$^$9!#(B
+
+$B$^$?!"(B@code{wl-summary-expire-reserve-marks}$B$G;XDj$7$?%a%C%;!<%8(B
+(important$B%^!<%/$d?75,!&L$FI%^!<%/$NIU$$$?%a%C%;!<%8(B)
+$B$O:o=|$7$J$$$h$&$K$J$C$F$$$^$9$,!"(B
+$B$b$7!"(B@code{wl-expire-number-with-reserve-marks} $B$,(B non-nil $B$N>l9g!"(B
+$B$3$N$h$&$J%a%C%;!<%8$b4^$a$F(B 500 $B8D$K$J$k$h$&$K(B expire $B$5$l$^$9!#(B
+nil $B$N>l9g$O>e5-%a%C%;!<%80J30$G(B 500 $B$K$J$k$h$&$K(B expire $B$7$^$9!#(B
+
+@item (date d1)
+$B%a%C%;!<%8$NF|IU$K$h$j:o=|$r9T$$$^$9!#(B
+
+d1 $B$O8=:_$h$j2?F|A0$N%a%C%;!<%8$r:o=|$9$k$I$&$+$G$"$j!"(B
+$BNc$($PCM$,(B 7 $B$J$i(B 7$BF|$h$jA0$N%a%C%;!<%8$r:o=|$7$^$9!#(B
+$B$J$*!"$3$NF|IU$H$O%a%C%;!<%8$N(BDate$B%U%#!<%k%I$NF|IU$G$"$j!"(B
+$B%a%C%;!<%8$,%U%)%k%@$KF~$C$?F|IU$G$O$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B
+
+$B$b$7!"%a%C%;!<%8$K(B Date$B%U%#!<%k%I$,$J$+$C$?$j!"(BDate$B%U%#!<%k%I$,IT@5$JCM(B
+$B$J$i!"(Bexpire $B$5$l$^$;$s$N$G<j$G:o=|$9$k$J$j$7$F2<$5$$!#(B
+@end table
+
+$B:o=|@h$K$O<!$N$b$N$r;XDj$7$^$9!#(B
+
+@table @code
+@item 'remove
+$BB(%a%C%;!<%8$r:o=|$7$^$9!#(B
+
+@item 'trash
+$B%a%C%;!<%8$r(B @code{wl-trash-folder} $B$K0\F0$7$^$9!#(B
+
+@item string(folder)
+$B%a%C%;!<%8$r;XDj$N%U%)%k%@$K0\F0$7$^$9!#(B
+
+$B%"!<%+%$%V%U%)%k%@$r;XDj$9$k$HJXMx$G$9$,!"(B
+important$B%a%C%;!<%8$J$I$O0\F0$5$l$J$$$?$a!"(B
+$B2<5-$NI8=`4X?t$r;H$&J}$,$h$j$h$$$G$9!#(B
+
+@item function
+$B;XDj$N4X?t$r8F$S=P$7$^$9!#(B
+
+$B;XDj$7$?4X?t$K$O<!$N(B3$B$D$N0z?t!"%U%)%k%@L>!":o=|$9$k%a%C%;!<%8$N%j%9%H!"$=$7(B
+$B$F%5%^%j$N(Bmsgdb$B>pJs$,EO$5$l$^$9!#(B
+$B$^$?4X?tL>$N8e$K4X?tFH<+$N0z?t$b;XDj$G$-$^$9!#(B
+$B$J$*!"$3$N4X?t$K$O(B@code{wl-summary-expire-reserve-marks}$B$G;XDj$7$?%a%C%;!<(B
+$B%8$b4^$s$@%j%9%H$,EO$5$l$^$9$N$G!"FH<+$K4X?t$r:n$k>l9g$OCm0U$7$F$/$@$5$$!#(B
+
+$B$3$3$G;XDj$G$-$k4X?t$K$O!"I8=`$G<!$N(B3$B$D$,MQ0U$5$l$F$$$^$9!#(B
+$B$3$l$i$O;XDj$7$?J}K!$G%"!<%+%$%V%U%)%k%@$K%a%C%;!<%8$r0\F0$9$k$b$N$G$9!#(B
+$B$D$^$j!"8E$$%a%C%;!<%8$r%U%)%k%@$+$i:o=|$7$J$,$iJL%U%!%$%k$K05=L$7$FJ]B8(B
+$B$7$F$*$/$3$H$,$G$-$^$9!#(B
+
+@table @code
+@item wl-expire-archive-number1
+$B:o=|BP>]$N%a%C%;!<%8HV9f$KBP$9$k%"!<%+%$%V%U%)%k%@$K(Brefile$B$7$^$9!#(B
+$BNc$($P!"(B102 $BHV$G$"$k$J$i(B @file{wl-00100.zip}$B!"(B
+390 $BHV$G$"$k$J$i(B @file{wl-00300.zip}$B!"$J$I$N$h$&$K$G$9!#(B
+$B$J$*!"(B@code{wl-expire-archive-files} $B$r(B 200 $B$K$9$k$H!"(B
+@file{wl-00000.zip}, @file{wl-00200.zip}, @file{wl-00400.zip},
+@dots{} $B$K(B refile $B$7$F$$$-$^$9!#(B
+
+refile $B@h$N%"!<%+%$%V%U%)%k%@$O:o=|85$N%U%)%k%@L>$K$h$j<!$N$h$&$K7hDj$5$l$^$9!#(B
+($B$3$N$H$-!"%"!<%+%$%V%U%)%k%@$O(B @code{elmo-archive-treat-file} $B$,(B non-nil $B$N>l9g$H$7$F$"$D$+$o$l$^$9(B)
+
+@table @code
+@item $B%U%)%k%@%?%$%W$,(Blocaldir
+
+@code{$ArchiveDir/foldername-xxxxx.zip}
+$BNc$($P(B @samp{+ml/wl} $B$O(B @samp{$ml/wl;zip}
+(@file{~/Mail/ml/wl-00100.zip})$B$H$J$j$^$9!#(B
+
+@item $B%U%)%k%@%?%$%W$,(Blocaldir$B0J30(B
+@code{$ArchiveDir/foldertype/foldername-xxxxx.zip}
+
+$BNc$($P!"(B@samp{%#mh/ml/wl} $B$O(B @samp{$imap4/#mh/ml/wl;zip}
+
+(@file{~/Mail/imap4/#mh/ml/wl-00100.zip})$B$H$J$j$^$9!#(B
+@end table
+
+$B$9$J$o$A!"(Blocaldir $B$N>l9g$O<oJL$,%Q%9L>$K4^$^$l$^$;$s$,!"$=$l0J30$O<oJL(B
+$B$,%Q%9L>$K4^$^$l$k$N$G$9!#(B
+$B$^$?!"(B@code{wl-expire-archive-folder-prefix} $B$K$h$j!"(B
+$B%"!<%+%$%V%U%)%k%@$KIU$1$k(B prefix $B$,@)8f$G$-$^$9!#(B
+@code{wl-expire-archive-folder-prefix}$B$N@bL@$rNI$/8+$F$*$$$F$/$@$5$$!#(B
+
+@item wl-expire-archive-number2
+$B;XDj$7$?8D?t$4$H$K%"!<%+%$%V%U%)%k%@$K(Brefile$B$7$^$9!#(B
+
+@samp{wl-expire-archive-number1}
+$B$H0[$J$kE@$O%a%C%;!<%8HV9f$K4X78$J$/%"!<%+%$%V%U%)%k%@$,;XDj?t$KC#$9$k$^$G$=$N%U%)%k%@$K(B refile $B$9$k!"$H$$$&E@$G$9!#(B
+$B$J$*!"(Brefile $B@h$N%"!<%+%$%V%U%)%k%@$O(B @code{wl-expire-archive-number1}
+$B$HF1$8$h$&$K7hDj$5$l$^$9!#(B
+
+@item wl-expire-archive-date
+$B%a%C%;!<%8$NF|IU(B($BG/7n(B)$B$4$H$K%"!<%+%$%V%U%)%k%@$K(Brefile$B$7$^$9!#(B
+
+$BNc$($P!"(B1998$BG/(B12$B7n$N%a%C%;!<%8$O(B @code{$folder-199812;zip} 
+$B$K(Brefile$B$5$l$^$9!#(B
+$B$J$*!"F|IU$NItJ,0J30$N%"!<%+%$%V%U%)%k%@L>$O(B @code{wl-expire-archive-number1}
+$B$HF1$8$h$&$K7hDj$5$l$^$9!#(B
+@end table
+
+$B$^$?!">e5-$N(B3$B$D$NI8=`4X?t$G$O(B @code{wl-expire-alist} $B$G$NBh(B1$B0z?t$K(B non-nil $B$r;XDj$9$k$H!"(B
+$B%U%)%k%@$N%a%C%;!<%8HV9f$r$=$N$^$^J]B8$9$k$3$H$,$G$-$^$9!#(B
+$BNc$($P!"<!$N$h$&$K4X?tL>$N8e$KB3$1$F;XDj$7$^$9!#(B
+
+@example
+("^\\+ml/wl$" (number 300 310) wl-expire-archive-number1 t)
+@end example
+
+$B0z?t$r;XDj$7$J$$>l9g$O!"3F%"!<%+%$%V%U%)%k%@$4$H$K(B 1 $B$+$i=g$KHV9f$,M?$((B
+$B$i$l$FJ]B8$5$l$^$9!#(B
+@end table
+
+@subsection important$B$dL$FI%a%C%;!<%8$N07$$(B
+
+$B:o=|@h$K(B 'remove $B$d(B 'trash$B!"%U%)%k%@L>!"I8=`4X?t$N$$$:$l$r;XDj$7$?>l9g$G(B
+$B$b!"(B@code{wl-summary-expire-reserve-marks}$B$G;XDj$7$?%^!<%/$N%a%C%;!<%8(B
+($B0J2<!"(B@dfn{reserve$B%a%C%;!<%8(B}$B$H8F$S$^$9(B)$B$O;D$9$h$&$K$J$C$F$$$^$9!#(B
+
+$B$3$NJQ?t$K$O%G%U%)%k%H$G!"(Bimportant$B%^!<%/!"?75,%^!<%/!"L$FI%^!<%/$,@_Dj(B
+$B$5$l$F$$$^$9$N$G!"$3$l$i$N%^!<%/$N$D$$$?%a%C%;!<%8$O:o=|$5$l$J$$$3$H$K$J(B
+$B$j$^$9!#(B
+$B$?$@$7!"$3$NJQ?t$K$O0l;~E*%^!<%/$O;XDj$G$-$J$$$?$a(B($B$9$J$o$A:o=|$5$l$k$?(B
+$B$a(B)$B!"(Bexpire$B$r<B9T$9$kA0$K0l;~E*%^!<%/$O=hM}$7$F$*$$$F$/$@$5$$!#(B
+
+@subsection $B<+F0<B9T(B
+
+$B%5%^%j$K0\F0$9$k$H<+F0E*$K(B expire $B$r<B9T$9$k$K$O<!$N$h$&$J@_Dj$r9T(B
+$B$$$^$9!#$?$@$7!"$3$N>l9g$O3NG'$;$:$K<+F0<B9T$9$k$?$a!"(B
+$B%U%)%k%@$N(Bregexp$B$J$I$K8m$j$,$J$$$+$I$&$+$r==J,3NG'$7$F$+$i@_Dj$7$F2<$5$$!#(B
+
+@lisp
+(add-hook 'wl-summary-prepared-pre-hook
+          'wl-summary-expire)
+@end lisp
+
+$B$^$?!"%U%)%k%@%b!<%I$G3F%U%)%k%@$4$H$K(B expire $B$r<B9T$G$-$k$N$O$b$A$m$s!"(B
+$B%0%k!<%WC10L$N<B9T$b2DG=$G$9!#=>$C$F!"(B@samp{Desktop} $B%0%k!<%W$r;XDj$9$l(B
+$B$P(B@code{wl-expire-alist}$B$K%^%C%A$9$kA4$F$N%U%)%k%@$G(B expire $B$,<B9T$5$l$^(B
+$B$9!#(B
+
+@section TIPS
+
+@subsection $B:n@.$7$?%"!<%+%$%V%U%)%k%@$N<h$j07$$(B
+
+$B>e5-$NI8=`4X?t(B @code{wl-expire-archive-number1} $B$J$I$G:n@.$7$?%"!<%+%$%V(B
+$B%U%)%k%@$r07$&>l9g$O!"JQ?t(B @code{elmo-archive-treat-file} $B$r(B non-nil $B$K@_(B
+$BDj$7$F$*$/I,MW$,$"$j$^$9!#(B
+
+@subsection $BF0:n3NG'(B
+
+'remove $B$r;XDj$9$k>l9g$O!"$^$:(B 'trash $B$K$7$F4|BTDL$j$K%a!<%k$,(B 
+@code{wl-trash-folder} $B$K0\F0$5$l$k$3$H$r3NG'$7$F$+$i(B 'remove $B$KJQ$($k$H(B
+$B$h$$$G$7$g$&!#$$$-$J$j(B 'remove $B$r;XDj$9$k$N$O4m81$G$9!#(B
+
+$B$^$?!"(B@code{wl-expire-archive-number1}$B$J$I$N4X?t$rMxMQ$9$k>l9g!"(B
+$B$^$:$O;HMQ$9$k%"!<%+%$%P%?%$%W(B('zip $B$d(B 'lha)$B$J$I$N%U%)%k%@$r;n$7$K$D$/$C(B
+$B$F!"@5$7$/DI2C$G$-$k$+$I$&$+$r3NG'$7$F$/$@$5$$!#(B
+$B$?$H$(!"(B@code{wl-expire-alist} $B$d(B @code{elmo-archive} $B$N@_Dj$,@5$7$/$F$b!"(B
+$B%"!<%+%$%V%W%m%0%i%`$,@5$7$/F0$+$J$1$l$P$I$3$K$bJ]B8$5$l$:$K(B
+$B%a%C%;!<%8$,>C$($F$7$^$&$+$bCN$l$^$;$s!#(B
+
+$B%"!<%+%$%V%U%)%k%@$NF0:n$,3NG'$G$-!"<B:]$K(B expire $B$r<B9T$9$k$h$&$K$J$l$P!"(B
+$B%m%0$r3hMQ$7$F$/$@$5$$!#(B
+@code{wl-expire-use-log} $B$r(B t $B$K$9$k$H!"(B@file{~/.elmo/expired-log}$B$K$O0J(B
+$B2<$N$h$&$K5-O?$5$l$^$9!#(B
+
+@example
+delete  +ml/wl  (593 594 595 596 597 598 599)
+move    +ml/wl -> $ml/wl-00600;tgz;wl  (600 601 602)
+@end example
+
+$B:G=i$N9`L\$OF0:n$r<($9$b$N$G!"(Bdelete, copy, move $B$,$"$j$^$9!#<!$,(B expire
+$B$r<B9T$7$?%U%)%k%@L>$G!"(Bcopy $B$H(B move $B$N>l9g$O(B@samp{->}$B$KB3$1$F%3%T!<$b$7(B
+$B$/$O0\F0@h$N%U%)%k%@L>$,5-O?$5$l$^$9!#:G8e$N9`L\$O!"<B:]$K:o=|$d0\F0$5$l(B
+$B$?%a%C%;!<%8HV9f$N%j%9%H$G$9(B(copy$B$d(Bmove$B$N>l9g!"0\F08e$G$O$J$/0\F0A0$N%a%C(B
+$B%;!<%8HV9f$G$9(B)$B!#(B
+
+@subsection reserve$B%a%C%;!<%8$N(Brefile
+
+$BI8=`$GMQ0U$5$l$F$$$k(B3$B$D$N4X?t$G$O!"(Breserve$B%a%C%;!<%8$O%"!<%+%$%V%U%)%k%@(B
+$B$K%3%T!<$7$^$9$,!"85$N%U%)%k%@$+$i$O:o=|$7$J$$$h$&$K$J$C$F$$$^$9!#$J$*!"(B
+important$B%^!<%/$J$I$O>o$K;D$k$?$a!"2?EY$b%3%T!<$5$l$k$3$H$,$J$$$h$&$K(B
+@file{~/.elmo/expired-alist} $B$K5-O?$9$k$h$&$K$7$F$$$^$9!#(B
+$B$?$@$7!"(Breserve$B%a%C%;!<%8$,(Brefile$BBP>]$K$J$C$?$H$-$N$_$G$9!#(B
+$B$^$?!"(B@code{wl-summary-archive} $B$J$I$G%3%T!<$5$l$k>l9g$O5-O?$5$l$^$;$s!#(B
+
+$B%m%05!G=$rM-8z$K$7$F$$$?>l9g$O!"(Brefile $B;~$K$ODL>o(B move $B$,5-(B
+$BO?$5$l$^$9$,!"(Breserve$B%a%C%;!<%8$,4^$^$l$F$$$k$H!"(Bcopy $B$H(B 
+delete $B$KJ,$1$F5-O?$5$l$^$9!#$3$l$O(B reserve$B%a%C%;!<%8$r4^$a$?%a%C(B
+$B%;!<%8$r%3%T!<$7$?8e!"(Breserve$B%a%C%;!<%8$r=|$$$?%a%C%;!<%8$r:o=|$9$k!"(B
+$B$H$$$&=hM}$r9T$C$F$$$k$?$a$G$9!#(B
+
+@section $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-expire-alist
+@vindex wl-expire-alist
+$B=i4|@_Dj$O(B nil$B!#(B
+expire $B$r9T$&%U%)%k%@$H(B expire $BJ}K!$N;XDj$r9T$$$^$9!#>\$7$/$O>e5-$N(B
+@code{wl-expire-alist}$B$N@_Dj$r$4Mw2<$5$$!#(B
+
+@item wl-summary-expire-reserve-marks
+@vindex wl-summary-expire-reserve-marks
+$B=i4|@_Dj$O0J2<$N%j%9%H!#(B
+
+@lisp
+(list wl-summary-important-mark
+      wl-summary-new-mark
+      wl-summary-unread-mark
+      wl-summary-unread-uncached-mark
+      wl-summary-unread-cached-mark)
+@end lisp
+
+expire $B$r9T$C$F$b!"%U%)%k%@$K$O;D$7$F$*$/%a%C%;!<%8$N%^!<%/$r;XDj$7$^$9!#(B
+$B%^!<%/$K$O(B $B1JB3E*%^!<%/(B $B$N$_;XDj$G$-$^$9!#(B
+$B0l;~E*%^!<%/$O;XDj$G$-$^$;$s!#(B
+
+$B%G%U%)%k%H$N$h$&$K%j%9%H$G;XDj$9$k$H$=$N%^!<%/$N%a%C%;!<%8$r;D$9$3$H$,$G(B
+$B$-$kB>!"0J2<$N;XDj$b$G$-$^$9!#(B
+
+@table @code
+@item 'all
+$B1JB3%^!<%/$NIU$$$?$9$Y$F$N%a%C%;!<%8$r;D$7$^$9!#(B
+$B$D$^$j!"%G%U%)%k%H$G@_Dj$5$l$F$$$k%^!<%/0J30$K(B
+@code{wl-summary-read-uncached-mark} $B$,4^$^$l$^$9!#(B
+
+@item 'none
+$B$I$s$J%^!<%/$NIU$$$?%a%C%;!<%8$G$"$C$F$b!"DL>o$N4{FI%a%C%;!<%8$HF1$807$$(B
+$B$r$7$^$9!#$9$J$o$A!"(Bimportant$B%a%C%;!<%8$G$"$C$F$b:o=|$5$l$^$9!#(B
+@end table
+
+@item wl-expire-archive-files
+@vindex wl-expire-archive-files
+$B=i4|@_Dj$O(B 100$B!#(B
+$B$R$H$D$N%"!<%+%$%V%U%)%k%@$KJ];}$9$k%a%C%;!<%8?t$r;XDj$7$^$9!#(B
+
+@item wl-expire-number-with-reserve-marks
+@vindex wl-expire-number-with-reserve-marks
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$K$9$k$H!"(B
+$B:o=|%a%C%;!<%8$N;XDj$G(B number $B$r;XDj$7$?$H$-!"(B
+$B;D$7$F$*$/%a%C%;!<%8?t$K(B @code{wl-summary-expire-reserve-marks} $B$G@_Dj$5(B
+$B$l$?%a%C%;!<%8$r4^$a$^$9!#(B
+
+@item wl-expire-archive-get-folder-func
+@vindex wl-expire-archive-get-folder-func
+$B=i4|@_Dj$O(B 'wl-expire-archive-get-folder$B!#(B
+
+$B:o=|@h$NI8=`4X?t$G%"!<%+%$%V%U%)%k%@L>$r<hF@$9$k4X?t$r;XDj$7$^$9!#(B
+$B<!$N(B3$B$D$NJQ?t$K$h$j4J0W$J%U%)%k%@L>$NJQ99$G$-$^$9$,!"$b$C$HJ#;($J;XDj$r(B
+$B$7$?$$>l9g$O?7$?$K4X?t$r:n$C$F$3$NJQ?t$K@_Dj$7$^$9!#(B
+
+$B4X?t(B@code{wl-expire-archive-get-folder}$B$N%+%9%?%^%$%:JQ?t$K$O<!$N(B
+$B$b$N$,$"$j$^$9!#(B
+@itemize @bullet
+@item wl-expire-archive-folder-name-fmt
+@item wl-expire-archive-folder-type
+@item wl-expire-archive-folder-prefix
+@end itemize
+
+@item wl-expire-archive-folder-name-fmt
+@vindex wl-expire-archive-folder-name-fmt
+$B=i4|@_Dj$O(B "%s-%%05d;%s"$B!#(B
+@code{wl-expire-archive-number1}$B$*$h$S(B@code{wl-expire-archive-number2}$B$G(B
+$B;HMQ$5$l$k%"!<%+%$%V$N%U%)%k%@$N(B format $B7A<0$NJ8;zNs$r;XDj$7$^$9!#(B
+$B$J$*!"(B2$BEY(B @code{format} $B$G;XDj$9$k$?$a!"(B
+$B$+$J$i$:HV9f$NItJ,$O(B @samp{%%d} $B$K$7$J$/$F$O$J$j$^$;$s!#(B
+
+$B$b$7!"JQ99$9$k>l9g$O(B @code{wl-expire-archive-folder-num-regexp}
+$B$b9g$o$;$k$h$&$K$7$F$/$@$5$$!#(B
+
+@item wl-expire-archive-date-folder-name-fmt
+@vindex wl-expire-archive-date-folder-name-fmt
+$B=i4|@_Dj$O(B "%s-%%04d%%02d;%s"$B!#(B
+@code{wl-expire-archive-date}
+$B$G;HMQ$5$l$k%"!<%+%$%V$N%U%)%k%@$N(B format $B7A<0$NJ8;zNs$r;XDj$7$^$9!#(B
+$B$J$*!"(B2$BEY(B @code{format} $B$G;XDj$9$k$?$a!"(B
+$B$+$J$i$:HV9f$NItJ,$O(B @samp{%%d} $B$K$7$J$/$F$O$J$j$^$;$s!#(B
+$B$^$?!"%a%C%;!<%8$NG/$H7n$,M?$($i$l$k$?$a!"(B@code{%%d} $B$O(B2$B$DI,MW$G$9!#(B
+
+$B$b$7!"JQ99$9$k>l9g$O(B @code{wl-expire-archive-date-folder-num-regexp}
+$B$b9g$o$;$k$h$&$K$7$F$/$@$5$$!#(B
+
+@item wl-expire-archive-folder-type
+@vindex wl-expire-archive-folder-type
+$B=i4|@_Dj$O(B 'zip$B!#(B
+$B%"!<%+%$%V%U%)%k%@$N%"!<%+%$%P%?%$%W$r;XDj$7$^$9!#(B
+
+@item wl-expire-archive-folder-prefix
+@vindex wl-expire-archive-folder-prefix
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%"!<%+%$%V%U%)%k%@$KIU$1$k(B prefix $B$r;XDj$7$^$9!#(B
+$B$?$@$7!"%"!<%+%$%V%U%)%k%@$K(B prefix ($B%G%#%l%/%H%j9=B$(B)$B$rIU$1$k;EMM$O(B
+$B$*$^$15!G=$G$9$N$G!"<h$j07$$$O?5=E$K9T$C$F2<$5$$!#(B
+$B:G0-%"!<%+%$%V%U%!%$%k$r2u$962$l$,$"$j$^$9!#(B
+
+@table @code
+@item nil
+prefix $B$OIU$-$^$;$s!#(B
+
+@item 'short
+$BNc$($P!"(B@samp{+ml/wl} $B$G$O(B prefix @samp{wl} $B$,IU$-!"(B
+@samp{$ml/wl-00000;zip;wl} $B$H$J$j$^$9!#(B
+
+@item t
+$BNc$($P!"(B@samp{+ml/wl} $B$G$O(B prefix @samp{ml/wl} $B$,IU$-!"(B
+
+@samp{$ml/wl-00000;zip;ml/wl} $B$H$J$j$^$9!#(B
+@end table
+
+@item wl-expire-archive-folder-num-regexp
+@vindex wl-expire-archive-folder-num-regexp
+$B=i4|@_Dj$O(B "-\\([-0-9]+\\);"$B!#(B
+@code{elmo-list-folders} $B$K$h$kJ#?t$N%"!<%+%$%V%U%)%k%@L>$+$i(B
+$BHV9f$r<hF@$9$k$?$a$N@55,I=8=$r;XDj$7$^$9!#(B
+@code{wl-expire-archive-folder-name-fmt} $B$KBP1~$7$F@_Dj$7$F$/$@$5$$!#(B
+
+@item wl-expire-archive-date-folder-num-regexp
+@vindex wl-expire-archive-date-folder-num-regexp
+$B=i4|@_Dj$O(B "-\\([-0-9]+\\);"$B!#(B
+@code{elmo-list-folders} $B$K$h$kJ#?t$N%"!<%+%$%V%U%)%k%@L>$+$i(B
+$BHV9f$r<hF@$9$k$?$a$N@55,I=8=$r;XDj$7$^$9!#(B
+@code{wl-expire-archive-date-folder-name-fmt} $B$KBP1~$7$F@_Dj$7$F$/$@$5$$!#(B
+
+@item wl-expire-delete-oldmsg-confirm
+@vindex wl-expire-delete-oldmsg-confirm
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil$B$N>l9g!"4{$KB8:_$7$F$$$k%"!<%+%$%V%U%)%k%@$N:GBg%a%C%;!<%8HV9f$h$j$b(B
+$B8E$$%a%C%;!<%8$,$"$C$?>l9g$K3NG'$7$F$+$i:o=|$7$^$9!#(B
+nil$B$N>l9g$O3NG'$;$:$K:o=|$7$^$9!#(B
+
+$B$J$*!"I8=`4X?t$N0z?t$K(B non-nil $B$r;XDj$7$FHV9f$rJ];}$9$k$h$&$K$7$?>l9g$N(B
+$B$_M-8z$G$9!#(B
+
+@item wl-expire-use-log
+@vindex wl-expire-use-log
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$K$9$k$H!"(B@file{~/.elmo/expired-log}$B$K(B expire $B$N<B9T7k2L$r5-O?$7$^$9!#(B
+$B$J$*!"%U%!%$%k$KDI2C$7$F$$$/0lJ}$J$N$G!"E,Ev$K<j$G>C$9I,MW$,$"$j$^$9!#(B
+
+@item wl-expire-add-seen-list
+@vindex wl-expire-add-seen-list
+$B=i4|@_Dj$O(B t$B!#(B
+
+Non-nil $B$N>l9g!"(Bexpire $B$K$h$j%a%C%;!<%8$r(B refile $B$7$?>l9g!"4{FI>pJs$r(B
+refile$B@h$N%U%)%k%@$KEA$($k$h$&$K$7$^$9!#(B
+
+$B$?$@$7!"(Brefile$B@h$N%U%)%k%@$r(B Wanderlust$B>e$+$iFI$^$J$$$H!"(B
+@file{~/.elmo/}$B0J2<$K$"$k(B @file{seen} $B%U%!%$%k$,Bg$-$/$J$C$F$$$/$N$G!"(B
+$B%"!<%+%$%V%U%)%k%@$J$I$KC1$KJ]B8$7$F$*$/$@$1$J$i(B
+ nil $B$K@_Dj$7$F$*$/$H$h$$$G$7$g$&!#(Bnil $B$K@_Dj$7$F$b!"(B
+refile$B$7$?%"!<%+%$%V%U%)%k%@$rFI$`$H$-$K?75,%a%C%;!<%807$$$5$l$k$@$1$G!"(B
+expire $B$J$I$NF0:n$K$O1F6A$O$"$j$^$;$s!#(B
+
+@item wl-expire-folder-update-msgdb
+@vindex wl-expire-folder-update-msgdb
+$B=i4|@_Dj$O(B t$B!#(B
+t $B$N>l9g!"%U%)%k%@%b!<%I$G(B expire $B$r<B9T$9$k$H$-$K!"(B
+$B%5%^%j>pJs$r(Bupdate$B$7$F$+$i(Bexpire$B$r<B9T$9$k!#(B
+$B$^$?!"%U%)%k%@L>$N@55,I=8=$N%j%9%H$r;XDj$7$?>l9g$O!"%^%C%A$7$?%U%)%k%@$N(B
+$B$_%5%^%j>pJs$r(Bupdate$B$9$k!#(B
+@end table
+
+
+@node Archive,  , Expire, Expire and Archive
+@section $B%a%C%;!<%8$N%"!<%+%$%V(B
+
+@subsection $B%a%C%;!<%8$N%"!<%+%$%V(B
+@kbd{M-x wl-summary-archive} $B$G%U%)%k%@A4BN$r%"!<%+%$%V%U%)%k%@$K%3%T!<$7$^(B
+$B$9!#4{$K%"!<%+%$%V%U%)%k%@$,$"$k>l9g!"?75,%a%C%;!<%8$N$_DI2C$7$^$9!#(B
+
+@code{wl-expire-alist} $B$HF1$8MM$K!"%U%)%k%@L>$K1~$8$F$I$N$h$&$K%"!<%+%$%V(B
+$B$9$k$+$r(B @code{wl-archive-alist} $B$G;XDj$7$^$9!#Nc$($P0J2<$N$h$&$K$J$j$^(B
+$B$9!#(B
+
+@lisp
+(setq wl-archive-alist
+      '(("^\\+tmp$"     wl-archive-date)
+        ("^\\+outbox$"  wl-archive-number2)
+        (".*"           wl-archive-number1)
+        ))
+@end lisp
+
+$B3F%j%9%H$NMWAG$O<!$N$h$&$K$J$j$^$9!#(B
+
+@example
+("$B%U%)%k%@$N(Bregexp"  $B:o=|4X?t(B)
+@end example
+
+$B$3$N$h$&$K(B@samp{$B%U%)%k%@$N(Bregexp}$B$N8e$K$O4X?t$7$+;XDj$G$-$^$;$s!#(B
+$BI8=`$G$O<!$N(B3$B$D$N4X?t(B
+
+@itemize
+@item wl-archive-number1
+@item wl-archive-number2
+@item wl-archive-date
+@end itemize
+
+$B$,MQ0U$5$l$F$*$j!"L>A0$+$i$*2r$j$NDL$j<!$NE@$r=|$$$F(B Expire $B$GMQ0U$5$l$F(B
+$B$$$k$N$HF1$8F0:n$r$7$^$9!#(B
+
+@itemize
+@item $B%a%C%;!<%8$r:o=|$7$J$$(B
+@item $B0z?t$J$7$G$"$C$F$b%a%C%;!<%8HV9f$rJ];}$9$k(B
+@end itemize
+
+$B%U%)%k%@$NA4%a%C%;!<%8$rHV9f$4$H$dF|IU$4$H$K$^$H$a$F%"!<%+%$%V$7$?$$>l9g(B
+$B$O!"$3$l$i$N4X?t$r;HMQ$9$k$H$h$$$G$7$g$&!#(B
+$B$^$?!"(Bexpire $B$r9T$&A0$N%P%C%/%"%C%W$dF0:n$r3NG'$9$k$N$K$bM-8z$G$9!#(B
+$B$b$C$H$b!"%"!<%+%$%V8e$K(Bexpire$B$G(Brefile$B$9$k$H!"(Brefile$B$;$:$K:o=|$9$k$@$1$K(B
+$B$J$j$^$9!#(B
+
+$B%G%U%)%k%H$G$O%3%T!<@h$N%"!<%+%$%V%U%)%k%@$O(B
+@code{wl-expire-archive-get-folder-func} $B$K=>$C$F<+F0E*$K7hDj$5$l$^$9$,!"(B
+prefix argument $B$rIU$1$F(B @kbd{C-u M-x wl-summary-archive} $B$G<B9T$9$k$H!"(B
+$B;XDj$7$?%U%)%k%@$K%3%T!<$9$k$3$H$,$G$-$^$9!#(B
+
+$B$7$+$7!"C1=c$K(B1$B$D$N%"!<%+%$%V%U%)%k%@$K%3%T!<$9$k$@$1$J$i!"(B
+@code{wl-summary-copy-region} $B$J$I$GA4%a%C%;!<%8$r%"!<%+%$%V%U%)%k%@$K%3(B
+$B%T!<$9$k$3$H$G$b2DG=$J$?$a!"$*$^$1$N5!G=$G$7$+$"$j$^$;$s(B
+($B$D$^$j!"F0:n3NG'$OIT==J,$G$9(B)$B!#(B
+
+
+$B$3$N%"!<%+%$%V%U%)%k%@$N7hDjJ}K!$O(B@code{wl-summary-expire}$B$HF1$8$b$N$rMQ(B
+$B$$$F$$$k$?$a!"%+%9%?%^%$%:JQ?t$NCf$G<!$K<($9$b$N$,4X78$7$F$-$^$9!#(B
+
+@itemize @bullet
+@item wl-expire-archive-files
+@item wl-expire-archive-get-folder-func
+@item wl-expire-archive-folder-name-fmt
+@item wl-expire-archive-folder-type
+@item wl-expire-archive-folder-prefix
+@item wl-expire-archive-folder-num-regexp
+@end itemize
+
+@subsection $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-archive-alist
+@vindex wl-archive-alist
+$B=i4|@_Dj$O(B '((".*" wl-archive-number1))$B!#(B
+
+$B%"!<%+%$%V%U%)%k%@$K%3%T!<$9$k=hM}$r9T$&4X?t$r;XDj$7$^$9!#(B
+$B$3$N4X?t$K$O!"%U%)%k%@L>!"%U%)%k%@Fb$K$"$k%a%C%;!<%8$N%j%9%H!"%5%^%j$N(Bmsgdb$B>pJs!"(B
+$B$N(B3$B$D$N0z?t$,EO$5$l$^$9!#(B
+$B$b$A$m$s%f!<%6$,FH<+$K:n$C$F;XDj$9$k$3$H$,$G$-$^$9!#(B
+@end table
+
+
+@c
+@c  Scoring
+@c
+@node Scoring, Customization, Expire and Archive, Top
+@chapter $B%9%3%"(B
+@cindex Scoring
+@c @cindex Kill File
+
+$B%9%3%"$H$O!"%a%C%;!<%8$K%9%3%"(B($BCM(B)$B$r$D$1!"(B
+$B$=$NCM$K$h$j4{FI%^!<%/$rIU$1$?$j%5%^%j$+$i>C$7$?$j$9$k5!G=$G$9!#(B
+
+$B$3$N5!G=$K$h$C$F=EMW$J%a%C%;!<%8$K(B temp $B%^!<%/$d(B important $B%^!<%/$r$D$1$?(B
+$B$j!"(Bspam $B5-;v$J$I$NFI$_$?$/$J$$%a%C%;!<%8$K4{FI%^!<%/$r$D$1$?$j$9$k$3$H$,(B
+$B$G$-$^$9!#(B
+
+$B$3$N%9%3%"5!G=$O(B Gnus $B$N%9%3%"$H$[$\F1Ey$N5!G=$r;}$A!"$^$?%9%3%"%U%!%$%k$N(B
+$B=q<0$b$[$\F1$8$G$9!#$?$@$7!"4v$D$+$OL$BP1~$G$"$C$?$j(B Wanderlust $BFCM-$N5!G=(B
+$B$,$"$C$?$j$7$^$9!#(B
+
+@menu
+* Score Commands::             $B%9%3%"$K4X$9$k%3%^%s%I(B
+* Score File Format::          $B%9%3%"%U%!%$%k$N=q<0(B
+@end menu
+
+
+@node Score Commands, Score File Format, Scoring, Scoring
+@section $B%9%3%"$K4X$9$k%3%^%s%I(B
+@cindex Score Commands
+
+@subsection $B%9%3%"%U%!%$%k$N;XDjJ}K!(B
+
+$BJQ?t(B @code{wl-score-folder-alist}
+$B$K%U%)%k%@L>$KBP1~$7$?%9%3%"%U%!%$%kL>$+%9%3%"$rDj5A$7$?JQ?t$r@_Dj$7$^$9!#(B
+
+@lisp
+(setq wl-score-folder-alist
+      '(("^-.*"
+         "news.SCORE"
+         "my.SCORE")
+        (".*"
+         "all.SCORE")))
+@end lisp
+
+$B%9%3%"%U%!%$%kL>$N%Q%9$r>JN,$7$?>l9g$O!"(B
+$BJQ?t(B @code{wl-score-files-dir} $B$G;XDj$7$?%G%#%l%/%H%j$K$"$k$b$N$H$7$^$9!#(B
+
+$B$^$?!"(B@code{wl-score-folder-alist} $B$N@_Dj$K4X$o$i$:(B
+$B%G%U%)%k%H$N%9%3%"%U%!%$%k(B @code{wl-score-default-file} (@file{all.SCORE})
+ $B$OI,$:FI$_9~$^$l$^$9(B($B%U%!%$%k$,B8:_$7$F$$$J$/$F$b$+$^$$$^$;$s(B)$B!#(B
+$B$7$?$,$C$F!">e5-Nc$N(B @samp{^-.*} $B$K%^%C%A$7$?%U%)%k%@$G$O(B 
+@file{news.SCORE}, @file{my.SCORE}, @file{all.SCORE} $B$N(B3$B$D$N%9%3%"%U%!%$%k(B
+$B$,FI$_9~$^$l$k$3$H$K$J$j$^$9!#(B
+
+@subsection $B%9%3%"%U%!%$%k$NBP>]%a%C%;!<%8(B
+
+$B%9%3%"$O%5%^%j$N(B update $B;~$K0l;~E*$K(B @code{wl-summary-score-marks}
+$B$G;XDj$7$?%a%C%;!<%8$N$_$K$D$1$i$l$^$9!#(B
+$B$D$^$j%5%^%j$+$iH4$1$k$H%a%C%;!<%8$K$D$1$i$l$?%9%3%"$O>C5n$5$l!"(B
+$B%G%U%)%k%H$N%9%3%"CM$KLa$j$^$9!#(B
+
+@subsection $B%9%3%"%U%!%$%k$N:n@.(B
+
+$B$^$:%5%^%j%P%C%U%!$GE,Ev$J%a%C%;!<%8$K0\F0$7$F$+$i(B @kbd{L} $B$r%?%$%W$7$^(B
+$B$9!#$=$N8e%_%K%P%C%U%!$G$NF~NO$r5a$a$i$l$^$9$N$G!"$D$E$1$F(B @kbd{s},
+@kbd{s}, @kbd{p} $B$H%?%$%W$7$F$_$F$/$@$5$$!#$9$k$H(B Subject $B$NJ8;zNs$,F~NO(B
+$B$5$l$F$$$k>uBV$K$J$j$^$9$N$G!"E,Ev$KJT=8$7$?$N$A(B @kbd{@key{RET}} $B$r2!$7$^$9!#(B
+
+$B$3$l$G!"F~NO$7$?J8;zNs$HF1$8(B Subject $B$r;}$D%a%C%;!<%8$KBP$7$F%9%3%"(B 
+-1000 $B$,$D$1$i$l$k$h$&$K$J$j$^$9!#$D$^$j!"$3$N$h$&$J%9%3%"%U%!%$%k$,<+F0E*(B
+$B$K:n@.$5$l$?$3$H$K$J$j$^$9!#(B
+
+$B<!$K!"F1$8%5%^%j%P%C%U%!$G(B @kbd{h} @kbd{e} $B$H%?%$%W$7$F$/$@$5$$!#(B
+$B$9$k$H@h$[$I:n@.$7$?%9%3%"%U%!%$%k$,I=<($5$l$F$$$k$H;W$$$^$9!#(B
+$B$3$N%P%C%U%!$r%9%3%"JT=8%P%C%U%!$H8F$S$^$9!#(B
+$B$3$N%9%3%"JT=8%P%C%U%!$G(B @kbd{C-c C-e} $B$H%?%$%W$9$k$H!"(B
+$B%_%K%P%C%U%!$G@h$[$I$HF1$8$h$&$JF~NO$r5a$a$i$l$k$H;W$$$^$9$,!"(B
+$B$3$3$G(B @kbd{a} $B$H%?%$%W$7$F$/$@$5$$!#:#EY$O$9$0$K(B "From" $B$N%9%3%"%(%s%H%j$,A^(B
+$BF~$5$l$?$O$:$G$9!#(B
+$B$3$N$h$&$K$7$F%5%^%j%P%C%U%!$G$b%9%3%"JT=8%P%C%U%!$G$b(B
+$B%9%3%"%U%!%$%k$r4JC1$K:n@.$9$k$3$H$,$G$-$^$9!#(B
+
+$B$H$3$m$G!"%_%K%P%C%U%!$G$NF~NO;~$K(B @kbd{s s p} $B$^$?$O(B @kbd{a} $B$H%?%$%W$7$?$h$&$K!"(B
+$B%-!<%?%$%W?t$,0c$C$F$$$?$H;W$$$^$9!#(B
+$B$3$l$O!"(B@code{wl-score-header-default-entry} $B$N@_Dj$K$h$k$b$N$G$9!#(B
+$B$3$NJQ?t$G$O%X%C%@$K1~$8$?%G%U%)%k%H$N%9%3%"%(%s%H%j$r@_Dj$7$^$9!#(B
+$B$?$H$($P!"(B"subject" $B%X%C%@$G$O7?$H4|8B$K$D$$$F$NF~NO$r5a$a$^$9$,!"(B
+"from" $B%X%C%@$G$O7?$O(B substring, $B4|8B$O1JB3$K<+F0E*$K7hDj$5$l$^$9!#(B
+$B$?$@$7!"%9%3%"$NCM$O(B prefix argument $B$G6/@)E*$KJQ99$9$k$3$H$,$G$-$^$9!#(B
+$B$^$?!"%_%K%P%C%U%!$G$NF~NO;~$K(B @kbd{?} $B$H%?%$%W$9$k$3$H$G%-!<$H$=$l$KBP1~$9(B
+$B$k%X%C%@$d7?$r(B(help)$B$rI=<($7$^$9!#(B
+
+$B$G$O:G8e$K!"%9%3%"JT=8%P%C%U%!$G(B @kbd{C-c C-c} $B$HF~NO$7$F2<$5$$!#$3$l$G%9%3%"(B
+$B%U%!%$%k$rJ]B8$7$FJT=8%b!<%I$r=*N;$7$^$9!#%P%C%U%!$NFbMF$r>C5n$7$F$+$i(B 
+@kbd{C-c C-c} $B$9$k$HJT=8Cf$N%9%3%"%U%!%$%k$r:o=|$7$^$9!#(B
+
+@subsection TIPS
+
+@subsubsection $B%9%3%"%U%!%$%k$NA*Br(B
+
+@code{wl-summary-increase-score} $B$H(B @code{wl-summary-lower-score} $B$H$GDI(B
+$B2C$9$k%9%3%"%U%!%$%k$O(B @code{wl-score-change-score-file} $B$GJQ99$9$k$3$H(B
+$B$,$G$-$^$9!#(B
+
+@subsubsection $B%9%3%"$N2C;;(B
+
+@code{wl-summary-increase-score} $B$d(B @code{wl-summary-lower-score}$B!"(B
+@code{wl-score-edit-insert-entry} $B$GF1$8%(%s%H%j$rDI2C$7$?>l9g!"(B
+$B%9%3%"$,2C;;$5$l$^$9!#(B
+
+$B$?$H$($P!"(B@kbd{L a} $B$G%9%3%"$,(B -1000 $B$N(B @samp{from} $B%(%s%H%j$r:n@.$7$?8e!"(B
+$B:FEY(B @kbd{C-u 200 L a} $B$G%9%3%"$,(B -200 $B$N(B @samp{from} $B%(%s%H%j$r:n@.$9$k$H!"(B
+$B%9%3%"$,(B -1200 $B$N%(%s%H%j$,(B1$B$D:n@.$5$l$k$3$H$K$J$j$^$9!#(B
+
+@subsubsection Thread$B%-!<$N:n@.(B
+
+@code{wl-summary-increase-score} $B$+(B @code{wl-summary-lower-score} $B$G(B
+@samp{Thread}$B%-!<$r:n@.$9$k$H!";R%9%l%C%I$N(B @samp{Message-ID} $B$bA4$F(B
+$BDI2C$5$l$^$9!#(B
+
+@subsubsection Followup$B%-!<$N:n@.(B
+
+@code{wl-summary-increase-score} $B$+(B @code{wl-summary-lower-score} $B$G(B
+@samp{Followup}$B%-!<$r:n@.$9$k$H!"%+!<%=%k>e$N%a%C%;!<%8$N(B
+@samp{Message-ID} $B$b(B @samp{References} $B%-!<$KDI2C$5$l$^$9!#(B
+$B$b$7!"(B@code{wl-score-auto-make-followup-entry} $B$,(B non-nil $B$G$"$l$P(B
+@code{wl-score-expiry-days} $B$G;XDj$7$?F|$K$A0JFb$NA4(Bfollowup$BBP>]$N%a%C%;!<(B
+$B%8$N(B @samp{Message-ID} $B$,DI2C$5$l$^$9!#(B
+
+@subsection $B%-!<%P%$%s%I(B
+
+@table @kbd
+@item K
+@kindex K (Summary)
+@findex wl-summary-increase-score
+$B8=:_$N%a%C%;!<%8$N%9%3%"$r9b$/$7$^$9!#(B
+$BF1;~$K%9%3%"%(%s%H%j$,%9%3%"%U%!%$%k$KDI2C$5$l$^$9!#(B
+$B$^$?!"(Bprefix argument $B$G%9%3%"$NCM$r@_Dj$9$k$3$H$,$G$-$^$9!#(B
+
+@item L
+@kindex L (Summary)
+@findex wl-summary-lower-score
+$B8=:_$N%a%C%;!<%8$N%9%3%"$rDc$/$7$^$9!#(B
+$BF1;~$K%9%3%"%(%s%H%j$,%9%3%"%U%!%$%k$KDI2C$5$l$^$9!#(B
+$B$^$?!"(Bprefix argument $B$G%9%3%"$NCM$r@_Dj$9$k$3$H$,$G$-$^$9!#(B
+
+@item h R
+@kindex h R (Summary)
+@findex wl-summary-rescore
+$B%9%3%"$rE,MQ$7D>$7$^$9!#(B
+$B$?$@$7!"4{$K%9%3%"$,$D$1$i$l$F$$$k%a%C%;!<%8$K$O!"?7$?$K%9%3%"$O$D$-$^$;$s!#(B
+
+@item h c
+@kindex h c (Summary)
+@findex wl-score-change-score-file
+$B8=:_A*Br$7$F$$$k%9%3%"%U%!%$%k$rJQ99$7$^$9!#(B
+
+@item h e
+@kindex h e (Summary)
+@findex wl-score-edit-current-scores
+$B8=:_A*Br$7$F$$$k%9%3%"%U%!%$%k$rJT=8$7$^$9!#(B
+$B%9%3%"%U%!%$%k$,J#?t$"$k>l9g@h$K;XDj$5$l$?%U%!%$%k$,A*Br$5$l$^$9!#(B
+
+@item h f
+@kindex h f (Summary)
+@findex wl-score-edit-file
+$BG$0U$N%9%3%"%U%!%$%k$rJT=8$7!"$3$N%9%3%"%U%!%$%k$rA*Br$7$^$9!#(B
+
+@item h F
+@kindex h F (Summary)
+@findex wl-score-flush-cache
+$BFI$_9~$s$@%9%3%"%U%!%$%k$O0lC6%-%c%C%7%e$5$l$^$9$,!"$=$N%-%c%C%7%e$r>C5n$7$^$9!#(B
+Wanderlust $B0J30$GD>@\%9%3%"%U%!%$%k$rJQ99$7$?>l9g$O!"(B
+$B%-%c%C%7%e$r>C5n$7$F:FFI$_9~$_$9$kI,MW$,$"$j$^$9!#(B
+
+@item h m
+@kindex h m (Summary)
+@findex wl-score-set-mark-below
+$B4{FI%^!<%/$rIU$1$k(B($BFI$s$@$3$H$K$9$k(B)$B%9%3%"4p=`CM$r@_Dj$7$^$9!#(B
+$B$3$NCM$h$j$b>.$5$J%9%3%"$,4{FI$K$J$j$^$9!#(B
+
+@item h x
+@kindex h x (Summary)
+@findex wl-score-set-expunge-below
+$B%5%^%j$+$i>C5n$9$k%9%3%"4p=`CM$r@_Dj$7$^$9!#(B
+$B$3$NCM$h$j$b>.$5$J%9%3%"$,>C5n$5$l$^$9!#(B
+$B>C5n$H$$$C$F$bI=<($5$l$J$$$@$1$G$"$j!"%5%^%j>pJs$d%U%)%k%@$+$i$O:o=|$5$l$^(B
+$B$;$s!#(B
+$B>C5n$5$l$?%a%C%;!<%8$O(B rescan-noscore $B$K$h$j:F$SI=<($9$k$3$H$,$G$-$^$9!#(B
+@end table
+
+@subsection $B%9%3%"JT=8%P%C%U%!$N%-!<%P%$%s%I(B
+
+@table @kbd
+@item C-c C-k
+@kindex C-c C-k (Score Mode)
+@findex wl-score-edit-kill
+$BJT=8Cf$N%U%!%$%k$rGK4~$7$^$9!#(B
+
+@item C-c C-c
+@kindex C-c C-c (Score Mode)
+@findex wl-score-edit-exit
+$BJT=8Cf$N%U%!%$%k$rJ]B8$7$F!"JT=8%b!<%I$r=*N;$7$^$9!#(B
+
+@item C-c C-p
+@kindex C-c C-p (Score Mode)
+@findex wl-score-pretty-print
+$B%9%3%"$re:No$KI=<($7D>$7$^$9!#(B
+
+@item C-c C-d
+@kindex C-c C-d (Score Mode)
+@findex wl-score-edit-insert-date
+$B5*85A0(B1$BG/(B12$B7n(B31$BF|$+$i$NF|?t$rA^F~$7$^$9!#(B
+$B4|8BIU$-$N%9%3%"$r:n$k$H$-$K4|8B$NMWAG(B(3$BHVL\(B)$B$K;HMQ$7$^$9!#(B
+
+@item C-c C-s
+@kindex C-c C-s (Score Mode)
+@findex wl-score-edit-insert-header
+$B%5%^%j%P%C%U%!$GA*Br$7$F$$$k%a%C%;!<%8$N%X%C%@$rA^F~$7$^$9!#(B
+
+@item C-c C-e
+@kindex C-c C-e (Score Mode)
+@findex wl-score-edit-insert-entry
+$B%5%^%j%P%C%U%!$GA*Br$7$F$$$k%a%C%;!<%8$N%9%3%"%(%s%H%j$rDI2C$7$^$9!#(B
+@end table
+
+@subsection $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item wl-summary-default-score
+@vindex wl-summary-default-score
+$B=i4|@_Dj$O(B 0$B!#(B
+$B%9%3%"$N%G%U%)%k%HCM$r@_Dj$7$^$9!#$3$NCM$r85$K%9%3%"$,2C8:$5$l$^$9!#(B
+
+@item wl-summary-important-above
+@vindex wl-summary-important-above
+$B=i4|@_Dj$O(B nil$B!#(B
+$B$3$NCM$h$jBg$-$$%9%3%"$KBP$7$F(B important$B%^!<%/(B(@samp{$}) $B$r$D$1$^$9!#(B
+nil $B$N>l9g$O%^!<%/$rIU$1$^$;$s!#(B
+
+@item wl-summary-temp-above
+@vindex wl-summary-temp-above
+$B=i4|@_Dj$O(B nil$B!#(B
+$B$3$NCM$h$jBg$-$$%9%3%"$KBP$7$F(B temp$B%^!<%/(B(@samp{*}) $B$r$D$1$^$9!#(B
+nil $B$N>l9g$O%^!<%/$rIU$1$^$;$s!#(B
+
+@item wl-summary-mark-below
+@vindex wl-summary-mark-below
+$B=i4|@_Dj$O(B 0$B!#(B
+$B$3$NCM$h$j>.$5$J%9%3%"$KBP$7$F4{FI%^!<%/$r$D$1$^$9(B($BFI$s$@$3$H$K$7$^$9(B)$B!#(B
+
+@item wl-summary-expunge-below
+@vindex wl-summary-expunge-below
+$B=i4|@_Dj$O(B nil$B!#(B
+$B$3$NCM$h$j>.$5$J%9%3%"$O%5%^%j$+$i>C5n$7$^$9!#(B
+nil $B$N>l9g$O>C5n$7$^$;$s!#(B
+
+@item wl-summary-score-marks
+@vindex wl-summary-score-marks
+$B=i4|@_Dj$O(B '("N" "!" "U")$B!#(B
+$B%9%3%"$r$D$1$k%a%C%;!<%8$N%^!<%/$r;XDj$7$^$9!#(B
+
+@item wl-use-scoring
+@vindex wl-use-scoring
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i%9%3%"5!G=$rM-8z$K$7$^$9!#(B
+
+@item wl-score-files-dir
+@vindex wl-score-files-dir
+$B=i4|@_Dj$O(B "~/.elmo/"$B!#(B
+$B%9%3%"%U%!%$%k$r%G%U%)%k%H$N%G%#%l%/%H%j$r;XDj$7$^$9!#(B
+
+@item wl-score-interactive-default-score
+@vindex wl-score-interactive-default-score
+$B=i4|@_Dj$O(B 1000$B!#(B
+$B%9%3%"%U%!%$%k$G%9%3%"MWAG$,(B nil $B$N;~$KMQ$$$k%9%3%"$r;XDj$7$^$9!#(B
+$B$^$?!"(B@code{wl-summary-increase-score} $B$d(B @code{wl-summary-lower-score}
+$B$G$D$1$k%9%3%"CM$G$bMQ$$$i$l$^$9!#$?$@$7!"(B
+@code{wl-score-header-default-entry} $B$N%9%3%"CM$,(B nil $B$N;~!#(B
+
+@item wl-score-expiry-days
+@vindex wl-score-expiry-days
+$B=i4|@_Dj$O(B 7$B!#(B
+$B4|8BIU$-%9%3%"$r:o=|$9$kF|?t$r;XDj$7$^$9!#(B
+
+@item wl-score-update-entry-dates
+@vindex wl-score-update-entry-dates
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i4|8BIU$-%9%3%"$r:o=|$9$k5!G=$rM-8z$K$7$^$9!#(B
+
+@item wl-score-header-default-entry
+@vindex wl-score-header-default-entry
+@code{wl-summary-increase-score} $B$d(B @code{wl-summary-lower-score}$B!"(B
+@code{wl-score-edit-insert-entry} $B$G%9%3%"%(%s%H%j$r:n@.$9$k>l9g$N(B
+$B3F%X%C%@$N%G%U%)%k%HCM$r@_Dj$7$^$9!#(B
+
+@item wl-score-simplify-fuzzy-regexp
+@vindex wl-score-simplify-fuzzy-regexp
+$B%9%3%"%(%s%H%j$N7?$G(B fuzzy $B$r;XDj$7$?>l9g!"(B
+$BJ8;zNs$+$i:o=|$9$k@55,I=8=$r;XDj$7$^$9!#(B
+Subject $B$G;HMQ$5$l$k$3$H$,B?$$$N$G!"%G%U%)%k%H$G$O(B
+$B%a%$%j%s%0%j%9%H%W%m%0%i%`$G$D$1$i$l$k(B prefix $B$r;XDj$7$F$$$^$9!#(B
+
+@item wl-summary-rescore-partial-threshold
+@vindex wl-summary-rescore-partial-threshold
+$B=i4|@_Dj$O(B 200$B!#(B
+sync-all $B$d(B rescan $B$,<B9T$5$l$?$H$-$K!"$3$NCM$r1[$($k%a%C%;!<%8$,(B
+$B%5%^%j$K$"$k>l9g!"%5%^%j$N:G8e$+$i;XDj$5$l$??t$N%a%C%;!<%8$@$1!"(B
+$BItJ,E*$K%9%3%"IU$1$,E,MQ$5$l$^$9!#(B
+
+@item wl-summary-auto-sync-marks
+@vindex wl-summary-auto-sync-marks
+Non-nil $B$J$i$P!"%5%^%jF14|;~$KL$FI(B/$B=EMW%^!<%/$bF14|$7$^$9!#(B
+$BL$FI%^!<%/$O!"(BIMAP4 $B%5!<%P>e$NL$FI>pJs$,H?1G$5$l$^$9!#(B
+$B=EMW%^!<%/$O(B IMAP4 $B%5!<%P>e$N=EMW>pJs(B(Flagged $B%U%i%0$,$D$$$F$$$k$+(B)$B!"(B
+$B$*$h$S(B 'mark $B%U%)%k%@$NFbMF$,!"H?1G$5$l$^$9!#(B
+$B=i4|@_Dj$O(B t$B!#(B
+@end table
+
+
+@node Score File Format,  , Score Commands, Scoring
+@section $B%9%3%"%U%!%$%k=q<0(B
+@cindex Score File Format
+
+$B%9%3%"%U%!%$%k$N=q<0$O(B Gnus $B$HF1$8$J$N$G!"(BGnus $B$G;HMQ$7$F$$$?(B
+$B%9%3%"%U%!%$%k$,$=$N$^$^MxMQ$G$-$^$9!#(B
+$B$?$@$7!"4v$D$+$N%-!<$OBP1~$7$F$$$J$+$C$?$j(B Wanderlust $BFCM-$N%-!<$,$"$C$?$j(B
+$B$7$^$9$N$G!"40A4$K8_49@-$,$"$k$o$1$G$O$"$j$^$;$s!#(B
+
+@example
+(("subject"
+  ("for sale" -1000 nil s)
+  ("$BLY$1(B" -1000 nil s))
+ ("from"
+  ("spam@@spamspamspam" -10000 nil s))
+ ("followup"
+  ("my@@address" 3001 nil s))
+ ("chars"
+  (1000000 -10 nil >))
+ (important 5000)
+ (temp 3000)
+ (mark 0)
+ (expunge -3000))
+@end example
+
+@table @code
+@item $BJ8;zNs(B (STRING)
+$B%-!<$,J8;zNs$G$"$k>l9g!"%^%C%A$5$;$k%X%C%@$NL>A0$r;XDj$7$^$9!#(B
+$B$3$N%-!<$K$O<!$N$b$N$,;XDj$G$-$^$9!#(B
+@code{Subject}, @code{From}, @code{Date}, @code{Message-Id},
+@code{References}, @code{To}, @code{Cc}, @code{Chars}, @code{Lines},
+@code{Xref}, @code{Extra}, @code{Followup}, @code{Thread}
+$B$3$NCf$G!"(B@code{Chars} $B$O%a%C%;!<%8$N%5%$%:$r;X$7!"(B@code{Extra},
+@code{Followup}, @code{Thread} $B$K$D$$$F$O8e=R$7$^$9!#(B
+$B;D$j$O%-!<$HF1$8L>A0$N%U%#!<%k%I$,BP>]$H$J$j$^$9!#(B
+
+$B$3$N%-!<$N8e$K%9%3%"%(%s%H%j$rG$0U$N?t$@$1;XDj$7!"(B
+$B$3$N3F%9%3%"%(%s%H%j$O<!$N(B5$B$D$NMWAG$+$i$J$j$^$9!#(B
+
+@enumerate
+@item
+$B%X%C%@$K%^%C%A$9$kMWAG!#(B"lines" $B$H(B "chars" $B$N>l9g$O?t;z$G!"$=$l0J30$OJ8;z(B
+$BNs$r;XDj$7$^$9!#(B
+
+@item
+$B%9%3%"MWAG!##1HVL\$NMWAG$,%^%C%A$7$?>l9g!"$=$N%a%C%;!<%8$N%9%3%"$r$3$NCMJ,(B
+$BA}8:$5$;$^$9!#(B
+
+@item
+$B4|8B$NMWAG!#(Bnil $B$J$i1JB3(B(permanent)$B;XDj$G!"(B
+$B?t;z(B($BF|?t(B)$B$J$i0lDj4|4V(B(@code{wl-score-expiry-days})$B%^%C%A$7$J$$$H:o=|$5$l$^$9!#(B
+$B$3$NF|?t$O5*85A0(B1$BG/(B12$B7n(B31$BF|$+$i7P2a$7$?F|$K$A$G$9!#(B
+
+@item
+$B7?$NMWAG!##1HVL\$NMWAG$r%^%C%A$5$;$kJ}K!$r;XDj$7$^$9!#(B
+$B%-!<$K$h$C$F;XDj$G$-$k7?$,0[$J$j$^$9!#(B
+
+@table @dfn
+@item From, Subject, References, Message-Id
+$B$3$l$i$NJ8;zNs$N%-!<$KBP$7$F$O!"(B@code{r} $B$H(B @code{R} ($B@55,I=8=(B) (regexp) 
+$B$d!"(B@code{s} $B$H(B @code{S} ($BJ8;zNs$N0lIt(B) (substring)$B!"(B@code{e} $B$H(B 
+@code{E} ($B@53N$J9gCW(B) (exact match)$B!"$=$l$K(B @code{f} $B$H(B @code{F}
+($B$"$$$^$$(B) (fuzzy) $B$,;XDj$G$-$^$9!#(B
+@code{R}, @code{S}, @code{E}, @code{F} $B$OBgJ8;z>.J8;z$r6hJL$7$F%^%C%A$5$;$^$9!#(B
+
+@item Lines, Chars
+$B$3$l$i$O?t;z$NBg>.$r;XDj$7$^$9!#$=$N5-9f$O<!$N(B5$B$D$G$9!#(B
+@code{<}, @code{>}, @code{=}, @code{>=}, @code{<=}
+
+@item Followup
+$B$3$N%-!<$O!"(B@code{From}$B%X%C%@!<$K%^%C%A$7!"(B
+$B$=$N%a%C%;!<%8$X$NA4$F$N%U%)%m!<%"%C%W$KBP$7$F%9%3%"$r$D$1$^$9!#(B
+$B$?$H$($P!"<+J,<+?H$N5-;v$X$N%U%)%m!<%"%C%W$N%9%3%"$rA}$d$7$?$j$9$k$N$KJXMx$G$9!#(B
+
+@code{f} $B$r=|$$$F(B @code{From} $B%-!<$HF1$87?$,;XDj=PMh$^$9!#(B
+$B$^$?!"<+F0E*$K%9%3%"%U%!%$%k$K(B @samp{Followup} $B%(%s%H%j$,DI2C$5$l$^$9!#(B
+
+@item Thread
+$B$3$N%-!<$O!"(B@code{Message-ID} @var{x} $B$G;O$^$C$F$$$k(B($B%5%V(B)$B%9%l%C%I$K%9%3%"$rIU$1$k>l9g$K;XDj$7$^$9!#(B
+$B$3$l$O(B @code{References} $B%X%C%@!<$K(B @var{x} $B$r;}$D$=$l$>$l$N5-;v$K?7$7$$(B
+@samp{Thread} $B%(%s%H%j$r<+F0E*$KDI2C$7$^$9!#(B
+$B$3$l$K$h$j!"A4$F$NAD@h$N(B @code{Message-ID} $B$r(B @code{References} $B$K4^$s$G$$$J$$>l9g$G$b!"(B
+$B3N<B$K%9%l%C%IA4BN$N%9%3%"$rA}8:$5$;$k$3$H$,$G$-$^$9!#(B
+
+@code{f} $B$r=|$$$F(B @code{References} $B%-!<$HF1$87?$,;XDj=PMh$^$9!#(B
+$B$^$?!"<+F0E*$K%9%3%"%U%!%$%k$K(B @samp{Thread} $B%(%s%H%j$,DI2C$5$l$^$9!#(B
+@end table
+
+@item
+$B3HD%%X%C%@$NMWAG!#%-!<$,(B @code{Extra} $B$G$"$k>l9g$N$_0UL#$r;}$A$^$9!#(B
+@code{Subject} $B$d(B @code{From} $B$J$I$NI8=`0J30$N%X%C%@$K%^%C%A$5$;$?$$>l9g$K(B
+$B$=$N%X%C%@$r;XDj$7$^$9!#(B
+$B$?$@$7!";XDj$7$?%X%C%@$O(B @code{elmo-msgdb-extra-fields} $B$K$b@_Dj$9$kI,MW$,$"$j$^$9!#(B
+$B$7$?$,$C$F!"3HD%%X%C%@$,<hF@$G$-$J$$%U%)%k%@$G$O5!G=$7$^$;$s!#(B
+
+@end enumerate
+
+$B$=$7$F$3$l$i$N(B@emph{$BA4$F$NMWAG$rEv$F$O$a$?8e$N(B}$B9g7W$N%9%3%"$,$=$N%a%C%;!<(B
+$B%8$N%9%3%"$H$J$j$^$9!#(B
+
+@cindex Score File Atoms
+@item mark
+$B$3$NCM$h$j>.$5$$%9%3%"$N%a%C%;!<%8$K$O4{FI%^!<%/$r$D$1$^$9!#(B
+$B%G%U%)%k%HCM$O(B @code{wl-summary-mark-below} $B$G;XDj$5$l$^$9!#(B
+
+@item expunge
+$B$3$NCM$h$j>.$5$$%9%3%"$N%a%C%;!<%8$O%5%^%j$+$i>C5n$7$^$9!#(B
+$B%G%U%)%k%HCM$O(B @code{wl-summary-expunge-below} $B$G;XDj$5$l$^$9!#(B
+
+@item mark-and-expunge
+@code{mark} $B$H(B @code{expunge} $B$rF1;~$K;XDj$7$^$9!#(B
+$B$D$^$j!"$3$NCM$h$j>.$5$$%9%3%"$N%a%C%;!<%8$O4{FI%^!<%/$r$D$1!"%5%^%j$+$i>C5n$7$^$9!#(B
+
+@item temp
+$B$3$NCM$h$jBg$-$$%9%3%"$N%a%C%;!<%8$K$O(B temp $B%^!<%/$r$D$1$^$9!#(B
+$B%G%U%)%k%HCM$O(B @code{wl-summary-temp-above} $B$G;XDj$5$l$^$9!#(B
+
+@item important
+$B$3$NCM$h$jBg$-$$%9%3%"$N%a%C%;!<%8$K$O(B important $B%^!<%/$r$D$1$^$9!#(B
+$B%G%U%)%k%HCM$O(B @code{wl-summary-important-above} $B$G;XDj$5$l$^$9!#(B
+@end table
+
+@subsection $BCm0U;v9`(B
+
+@code{extra} $B%-!<$O$b$A$m$s!"(B@code{lines} $B$H(B @code{xref} $B%-!<$r;HMQ$9$k(B
+$B>l9g$G$b!"(B@code{elmo-msgdb-extra-fields} $B$r@_Dj$9$kI,MW$,$"$j$^$9!#(B
+
+@lisp
+(setq elmo-msgdb-extra-fields '("lines" "xref"))
+@end lisp
+
+$B$=$NB>!"2<5-$N@)8B;v9`$,$"$j$^$9!#(B
+
+@itemize @bullet
+@item $B%5%^%j>pJs$K4^$^$l$k(B@samp{References}$B%U%#!<%k%I$K$O:G8e$N(B
+@samp{Message-ID}$B$7$+B8:_$7$J$$$?$a!"(B@code{references}$B%-!<$b$=$N(B
+@samp{Message-ID}$B$K$7$+%^%C%A$7$J$$!#(B
+@end itemize
+
+$B%U%)%k%@<oJL$K$h$j;2>H$G$-$k%-!<$N0lMw!#(B
+
+@example
+                        chars lines xref  extra
+localdir,localnews      $B!{(B    $B"$(B    $B"$(B    $B"$(B
+nntp (xover$BBP1~(B)        $B!{(B    $B"$(B    $B"$(B    $B!_(B
+     (xover$BHsBP1~(B)      $B!_(B    $B"$(B    $B"$(B    $B"$(B
+imap4                   $B!{(B    $B"$(B    $B"$(B    $B"$(B
+pop3                    $B!_(B    $B"$(B    $B"$(B    $B"$(B
+
+                $B!{(B: $B;2>H$G$-$k(B
+                $B!_(B: $B;2>H$G$-$J$$(B($BL5;k$5$l$k(B)
+                $B"$(B: @code{elmo-msgdb-extra-fields} $B$r@_Dj$9$l$P;2>H$G$-$k(B
+@end example
+
+
+@c
+@c  Customization
+@c
+@node Customization, Mailing List, Scoring, Top
+@chapter Wanderlust $B$N%+%9%?%^%$%:(B
+@cindex Customization
+
+@menu
+* Living with other packages::  $B%Q%C%1!<%8$N$"$k@83h(B
+* Highlights::                  $B%O%$%i%$%H$N@_Dj(B
+* Advanced Settings::           $B%+%9%?%^%$%:!A1~MQJT!A(B
+* Customizable Valiables::      $B$=$NB>$N%+%9%?%^%$%:JQ?t0lMw(B
+@end menu
+
+
+@node Living with other packages, Highlights, Customization, Customization
+@section $B%Q%C%1!<%8$N$"$k@83h(B
+
+$BB>$N%Q%C%1!<%8$r;H$&$?$a$N@_DjNc$G$9!#(B
+
+@menu
+* BBDB::                        BBDB
+* supercite::                   supercite.el
+* mu-cite::                     mu-cite.el
+* x-face-mule::                 x-face-mule.el
+* dired-dd::                    dired-dd.el
+@end menu
+
+
+@node BBDB, supercite, Living with other packages, Living with other packages
+@subsection bbdb.el
+@pindex BBDB
+
+@file{util/bbdb-wl.el} $B$r(B load-path $B$K$*$$$F0J2<$N$h$&$K@_Dj$9$l$P(B OK $B$G$9!#(B
+
+$B%$%s%9%H!<%k;~$K(B load-path $B>e$K(B BBDB $B$,$"$l$P!"(B
+@file{bbdb-wl.el} $B$O%P%$%H%3%s%Q%$%k(B/$B%$%s%9%H!<%k$5$l$^$9!#(B
+@xref{Install}.
+
+@lisp
+(require 'bbdb-wl)
+
+(bbdb-wl-setup)
+;; @r{$B%]%C%W%"%C%WI=<((B}
+(setq bbdb-use-pop-up t)
+;; @r{$B<+F0<}=8(B}
+(setq bbdb/mail-auto-create-p t)
+(setq signature-use-bbdb t)
+(setq bbdb-north-american-phone-numbers-p nil)
+;; @r{$B%5%^%j$K(B bbdb $B$NL>A0$rI=<((B} :-)$B!#(B
+(setq wl-summary-from-func 'bbdb-wl-from-func)
+;; @r{$B<+F0E*$K(B ML $B%U%#!<%k%I$r2C$($k(B}
+(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
+(setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0))))
+@end lisp
+
+
+@node supercite, mu-cite, BBDB, Living with other packages
+@subsection sc.el(supercite), sc-register.el
+@pindex sc
+@pindex supercite
+
+$B$U$D$&$N(B mailer $B$HF1$8@_Dj$G(B OK $B$G$9!#0J2<$O!"@_Dj$N0lNc$G$9!#(B
+
+@lisp
+(autoload 'sc-cite-original "sc" nil t)
+(setq mail-yank-hooks 'sc-cite-original)
+(setq sc-preferred-header-style 1)
+(setq sc-electric-references-p nil)
+(setq sc-citation-leader "")
+(setq sc-load-hook '(lambda () (require 'sc-register)))
+(setq sc-preferred-attribution 'registeredname)
+@end lisp
+
+
+@node mu-cite, x-face-mule, supercite, Living with other packages
+@subsection mu-cite.el
+@pindex mu-cite
+
+$B$U$D$&$N(B mailer $B$HF1$8@_Dj$G(B OK $B$G$9!#0J2<$O!"@_Dj$N0lNc$G$9!#(B
+
+mu-cite 8.0$B0JA0$N%P!<%8%g%s$r$*;H$$$J$i!"(B
+$B0J2<$N$h$&$K@_Dj$7$F$/$@$5$$!#(B
+
+@lisp
+(autoload 'mu-cite/cite-original "mu-cite" nil t)
+(setq mail-citation-hook 'mu-cite/cite-original)
+@end lisp
+
+mu-cite 8.1$B0J9_$N%P!<%8%g%s$r$*;H$$$J$i!"(B
+$B0J2<$N$h$&$K@_Dj$7$F$/$@$5$$!#(B
+
+@lisp
+(autoload 'mu-cite-original "mu-cite" nil t)
+(add-hook 'mail-citation-hook (function mu-cite-original))
+@end lisp
+
+@node x-face-mule, dired-dd, mu-cite, Living with other packages
+@subsection x-face-mule.el
+@pindex x-face-mule
+@pindex bitmap-mule
+
+x-face-mule $B$N%P!<%8%g%s$K$h$C$F@_Dj$,0[$J$j$^$9!#(B
+
+x-face-mule 0.19$B0JA0$N%P!<%8%g%s$r$*;H$$$J$i!"(B
+$B0J2<$N$h$&$K@_Dj$7$F$/$@$5$$!#(B
+
+@lisp
+(setq wl-highlight-x-face-func
+      (function
+       (lambda (beg end)
+        (x-face-mule:x-face-decode-message-header))))
+(require 'x-face-mule)
+@end lisp
+
+x-face-mule 0.20 $B0J9_$N%P!<%8%g%s$r$*;H$$$J$i!"(B
+$B0J2<$N$h$&$K@_Dj$7$F$/$@$5$$!#(B
+
+@lisp
+(setq wl-highlight-x-face-func
+      (function
+       (lambda (beg end)
+        (x-face-mule-x-face-decode-message-header))))
+(require 'x-face-mule)
+@end lisp
+
+bitmap-mule 8.0$B0J9_$KIUB0$N(B @file{x-face-mule.el}
+$B$r$*;H$$$K$J$k>l9g$O0J2<$N$h$&$K@_Dj$7$F$/$@$5$$!#(B
+
+@lisp
+(autoload 'x-face-decode-message-header "x-face-mule")
+(setq wl-highlight-x-face-func
+      (function x-face-decode-message-header))
+@end lisp
+
+Encode $B:Q$_$N(B X-Face $BJ8;zNs$r(B @file{~/.xface}
+($BJQ?t(B @code{wl-x-face-file} $B$NCM$G$9(B)$B$NFbMF$KMQ0U$7$F$*$/$H!"(B
+$B%I%i%U%H$,=`Hw$5$l$k$H$-$K<+F0E*$K(B X-Face$B%U%#!<%k%I$H$7$FA^F~$5$l$^$9!#(B
+($BJQ?t(B @code{wl-auto-insert-x-face} $B$,(B non-nil $B$N>l9g(B)
+
+
+@node dired-dd,  , x-face-mule, Living with other packages
+@subsection dired-dd(Dired-DragDrop)
+@pindex Dired-DragDrop
+@pindex Dired-DD
+@cindex Drag and Drop
+
+dired-dd $B%Q%C%1!<%8$K4^$^$l$k(B @file{dired-dd-mime.el} $B$rAH$_9~$a$P!"(BGNU Emacs
+$B$GJT=8Cf$NAp9F%P%C%U%!$X(B dired $B$+$i(B Drag&Drop $B$9$k$@$1$G4JC1$K%^%k%A%Q!<(B
+$B%H$r:n@.$G$-$^$9(B($B$b$C$H$b!"(BWanderlust $B@lMQ$G$O$J$/(B tm/SEMI $BHFMQ$G$9$,(B)$B!#(B
+
+@lisp
+;; @r{dired-dd:} http://www.asahi-net.or.jp/~pi9s-nnb/dired-dd-home.html
+(add-hook 'dired-load-hook
+          (function
+           (lambda ()
+             (load "dired-x")
+             ;; @r{Set dired-x variables here.}
+             ;; @r{To and flo@dots{}}
+             (if window-system
+                 (progn (require 'dired-dd)
+                        (require 'dired-dd-mime))))))
+@end lisp
+
+
+@node Highlights, Advanced Settings, Living with other packages, Customization
+@section $B%O%$%i%$%H$N@_Dj(B
+
+@subsection $B%+%9%?%^%$%:JQ?t(B
+
+@table @code
+@item  wl-summary-highlight
+@vindex wl-summary-highlight
+$B=i4|@_Dj$O(B t$B!#%5%^%j$N%O%$%i%$%H$r9T$&$+$I$&$+!#(B
+Non-nil $B$J$i%5%^%j$N%O%$%i%$%H$r9T$$$^$9!#(B
+
+@item  wl-highlight-max-summary-lines
+@vindex wl-highlight-max-summary-lines
+$B=i4|@_Dj$O(B 10000$B!#(B
+$B%5%^%j$N9T?t$,$3$NCM$h$jBg$-$$>l9g!"%5%^%j$N%O%$%i%$%H$r9T$$$^$;$s!#(B
+
+@item  wl-summary-highlight-partial-threshold
+@vindex wl-summary-highlight-partial-threshold
+$B=i4|@_Dj$O(B 1000$B!#(B
+$B%5%^%jA4BN$r%O%$%i%$%H$9$k$+$I$&$+$NogCM!#(B
+$B$3$NCM$r1[$($k9T?t$N%a%C%;!<%8$,%5%^%j$KB8:_$9$k>l9g!"(B
+$BItJ,E*$J%O%$%i%$%H$r9T$$$^$9!#(B
+
+@item  wl-summary-partial-highlight-above-lines
+@vindex wl-summary-partial-highlight-above-lines
+$B=i4|@_Dj$O(B 30$B!#(B
+@code{wl-summary-highlight-partial-threshold}$B$r1[$($k9T?t$N%a%C%;!<%8$,(B
+$B%5%^%j$KB8:_$9$k>l9g!"%P%C%U%!Kv$+$i!"%+!<%=%k9T$h$j$3$NCM$N9T?tJ,$@$1(B
+$B>e$N%a%C%;!<%8$^$GItJ,E*$J%O%$%i%$%H$,9T$J$o$l$^$9!#(B
+($B$3$NCM$r(B nil $B$K$9$k$H%P%C%U%!Kv$+$i(B
+ @code{wl-summary-highlight-partial-threshold}$B9TJ,$@$1%O%$%i%$%H$5$l$k(B
+ $B$h$&$K$J$j$^$9!#(B)
+
+@item wl-highlight-body-too
+@vindex  wl-highlight-body-too
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i%I%i%U%H$*$h$S%a%C%;!<%8$NK\J8$b%O%$%i%$%H$NBP>]$H$7$^$9!#(B
+
+@item  wl-highlight-message-header-alist
+@vindex wl-highlight-message-header-alist
+$B%I%i%U%H$*$h$S%a%C%;!<%8$N%X%C%@$N%O%$%i%$%H$r9T$&:]$K!"(B
+$B=EMW(B (@code{wl-highlight-message-important-header-contents})$B$J!"(B
+$BFsHVL\$K=EMW(B (@code{wl-highlight-message-important-header-contents2})$B$J!"(B
+$B$=$7$F=EMW$G$O$J$$(B (@code{wl-highlight-message-unimportant-header-contents})
+$B$3$H$rI=$9(B face $B$r$=$l$>$l$I$N%a%C%;!<%8%X%C%@$K3d$jEv$F$k$+$r@_Dj$7$^$9!#(B
+$BF1MM$K!"G$0U$N@55,I=8=$KBP$7$FG$0U$N(Bface$B$r3d$jEv$F$k$3$H$b$G$-$^$9!#(B
+
+@item wl-highlight-citation-prefix-regexp
+@vindex  wl-highlight-citation-prefix-regexp
+$B%I%i%U%H$*$h$S%a%C%;!<%8$NK\J8Fb$N0zMQ9T$r<($9@55,I=8=$r;XDj$7$^$9!#(B
+$B$3$N@55,I=8=$K%^%C%A$7$?K\J8$O!"(B
+(@code{wl-highlight-message-cited-text-*})$B$G;XDj$5$l$k(Bface$B$G%O%$%i%$%H$5$l$^$9!#(B
+
+@item  wl-highlight-highlight-citation-too
+@vindex wl-highlight-highlight-citation-too
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i(B@code{wl-highlight-citation-prefix-regexp}$B$GM?$($i$l$k(B
+$B0zMQ9T$N0zMQ$r<($9@55,I=8=<+BN$b%O%$%i%$%H$NBP>]$H$7$^$9!#(B
+
+@item  wl-highlight-citation-header-regexp
+@vindex wl-highlight-citation-header-regexp
+$B0zMQ$r;O$a$k$3$H$r<($9%X%C%@$N@55,I=8=$r;XDj$7$^$9!#(B
+$B$3$N@55,I=8=$K%^%C%A$7$?K\J8$O!"(B
+@code{wl-highlight-message-headers}$B$G;XDj$5$l$k(Bface$B$G%O%$%i%$%H$5$l$^$9!#(B
+
+@item  wl-highlight-max-message-size
+@vindex wl-highlight-max-message-size
+$B=i4|@_Dj$O(B 10000$B!#(B
+$B%a%C%;!<%8$,$3$NCM$h$jBg$-$$>l9g!"%a%C%;!<%8$N%O%$%i%$%H$r9T$$$^$;$s!#(B
+$B$3$l$K$h$j(Buuencode$B$dHs>o$KBg$-$J%@%$%8%'%9%H$J$I$N(B
+$B%O%$%i%$%H$NM^;_$r9T$$$^$9!#(B
+
+@item  wl-highlight-signature-separator
+@vindex wl-highlight-signature-separator
+$B%7%0%K%A%c$N6-3&$rI=$9@55,I=8=$r;XDj$7$^$9!#(B
+$B@55,I=8=$G$b!"@55,I=8=$N%j%9%H$G$b9=$$$^$;$s!#(B
+$B$3$N@55,I=8=$K%^%C%A$7$?>l=j0J9_$N%a%C%;!<%8$O!"(B
+@code{wl-highlight-message-signature}$B$G;XDj$5$l$k(Bface$B$G%O%$%i%$%H$5$l$^$9!#(B
+
+@item  wl-max-signature-size
+@vindex wl-max-signature-size
+$B=i4|@_Dj$O(B 400$B!#(B
+$B%7%0%K%A%c$r%O%$%i%$%H$9$k>l9g!"(B
+$B%O%$%i%$%H$9$k:GBg$N%7%0%J%A%c$NBg$-$5$r;XDj$7$^$9!#(B
+
+@item wl-use-highlight-mouse-line
+@vindex  wl-use-highlight-mouse-line
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i%U%)%k%@%b!<%I!"%5%^%j%b!<%I$J$I$G(B
+$B%^%&%9%]%$%s%?$N9T$r%O%$%i%$%H$NBP>]$H$7$^$9!#(B
+@end table
+
+@subsection $BJ8;z$N?'!"%U%)%s%H$N@_Dj(B
+
+$BJ8;z$N?'$d!"%U%)%s%H$rJQ$($k$K$O!"(BWanderlust $B$GDj5A$5$l$F$$$k(B face $B$rJQ99(B
+$B$9$kI,MW$,$"$j$^$9!#%U%)%s%H$rJQ$($?$$$H$-$O(B set-face-font$B!"?'$rJQ$($?$$$H(B
+$B$-$O(B set-face-foreground $B$J$I$r;H$($P$h$$$G$7$g$&!#(Bface $B$N@_Dj$O(B @file{.emacs} $B$K(B
+$B=q$/$3$H$O$G$-$J$$$N$G(B @file{~/.wl} $B$K=q$$$F$/$@$5$$!#(B
+
+$B$?$H$($P!"%7%0%K%A%c$N?'$r2+?'$KJQ$($?$$$H$-$O!"(B
+
+@lisp
+(set-face-foreground 'wl-highlight-message-signature "yellow")
+@end lisp
+
+@noindent
+$B$r(B @file{~/.wl} $B$K=q$-$^$9!#(B
+
+$B0J2<$K(B Wanderlust $B$GDj5A$5$l$F$$$k(B face $B$K$D$$$F@bL@$7$^$9!#(B
+
+@table @code
+@item wl-highlight-message-headers
+$B%a%C%;!<%8%X%C%@$NL>A0ItJ,$N(B face $B$G$9!#(B
+
+@item wl-highlight-message-header-contents
+$B%a%C%;!<%8%X%C%@$NFbMFItJ,$N(B face $B$G$9!#(B
+
+@item wl-highlight-message-important-header-contents
+$B%a%C%;!<%8%X%C%@$NFbMF$N$&$A=EMW$JItJ,$N(B face $B$G$9!#(B
+$B%G%U%)%k%H$G$O!"(BSubject $B$NFbMFItJ,$,@_Dj$5$l$F$$$^$9!#(B
+$B$3$NCM$O(B @code{wl-highlight-message-header-alist}
+ $B$rJQ99$9$l$PJQ$($k$3$H$,$G$-$^$9!#(B
+
+@item wl-highlight-message-important-header-contents2
+$B%a%C%;!<%8%X%C%@$NFbMF$N$&$A=EMW$JItJ,$N(B face $B$=$N#2$G$9!#(B
+$B%G%U%)%k%H$G$O!"(BFrom $B$H(B To $B$NFbMFItJ,$,@_Dj$5$l$F$$$^$9!#(B
+$B$3$NCM$O(B @code{wl-highlight-message-header-alist}
+ $B$rJQ99$9$l$PJQ$($k$3$H$,$G$-$^$9!#(B
+
+@item wl-highlight-message-unimportant-header-contents
+$B%a%C%;!<%8%X%C%@$NFbMF$N$&$A=EMW$G$O$J$$ItJ,$N(B face $B$G$9!#(B
+$B%G%U%)%k%H$G$O!"(BX- $B$G;O$^$k%X%C%@$H(B User-Agent $B$NFbMFItJ,$,@_Dj$5$l$F$$$^$9!#(B
+$B$3$NCM$O(B @code{wl-highlight-message-header-alist}
+ $B$rJQ99$9$l$PJQ$($k$3$H$,$G$-$^$9!#(B
+
+@item wl-highlight-message-citation-header
+$B%a%C%;!<%8$N0zMQ%X%C%@ItJ,$N(B face $B$G$9!#(B
+
+@item wl-highlight-message-cited-text-*
+$B%a%C%;!<%8$N0zMQ%F%-%9%HItJ,$N(B face $B$G$9!#(B
+$B:G8e$K$O?t;z$,$D$-!"(B10 $BCJ3,$^$G0zMQ$4$H$K?'J,$1$G$-$k$h$&$K$7$F$$$^$9!#(B
+
+@item wl-highlight-message-signature
+$B%a%C%;!<%8$N%7%0%K%A%cItJ,$N(B face $B$G$9!#(B
+$B=i4|@_Dj$O!"L@?'%P%C%/$G$O(B khaki $B0E?'%P%C%/$G$O(B DarkSlateBule $B$G$9!#(B
+
+@item wl-highlight-header-separator-face
+$B%I%i%U%H$N%a%C%;!<%8$N%X%C%@%;%Q%l!<%?$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-important-face
+$B%5%^%j$G=EMW%^!<%/$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-new-face
+$B%5%^%j$G?75,%^!<%/$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-displaying-face
+$B%5%^%j$G8=:_I=<(Cf$N%a%C%;!<%89T$N(B face $B$G$9!#(B
+$B$3$N(B face $B$O(B overlay $B$5$l$^$9!#(B
+
+@item wl-highlight-thread-indent-face
+$B%5%^%j$G8=:_I=<(Cf$N%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-unread-face
+$B%5%^%j$GL$FI%^!<%/$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-deleted-face
+$B%5%^%j$G:o=|%^!<%/$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-refiled-face
+$B%5%^%j$G%j%U%!%$%k%^!<%/$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-refile-destination-face
+$B%5%^%j$G%j%U%!%$%k%^!<%/$NIU$$$?%a%C%;!<%89T$N!"(B
+$B%j%U%!%$%k@h>pJs$NItJ,$K$D$/(B face $B$G$9!#(B
+
+@item wl-highlight-summary-copied-face
+$B%5%^%j$G%3%T!<%^!<%/$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-target-face
+$B%5%^%j$G0l;~=hM}MQ%^!<%/(B @samp{*} $B$N$D$$$?%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-thread-top-face
+$B%5%^%j$G%9%l%C%I%H%C%W$N%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-summary-normal-face
+$B%5%^%j$G%9%l%C%I%H%C%W$G$O$J$$%a%C%;!<%89T$N(B face $B$G$9!#(B
+
+@item wl-highlight-folder-unknown-face
+$B%U%)%k%@%b!<%I$G!"$$$/$DL$F14|%a%C%;!<%8$,$"$k$+$o$+$i$J$$%U%)%k%@$N(B
+ face $B$G$9!#(B
+
+@item wl-highlight-folder-zero-face
+$B%U%)%k%@%b!<%I$G!"L$F14|%a%C%;!<%8$,$J$$%U%)%k%@$N(B face $B$G$9!#(B
+
+@item wl-highlight-folder-few-face
+$B%U%)%k%@%b!<%I$G!"L$F14|%a%C%;!<%8$,$9$3$7$"$k%U%)%k%@$N(B face $B$G$9!#(B
+
+@item wl-highlight-folder-many-face
+$B%U%)%k%@%b!<%I$G!"L$F14|%a%C%;!<%8$,$?$/$5$s$"$k%U%)%k%@$N(B face $B$G$9!#(B
+$B!V$9$3$7!W$H!V$?$/$5$s!W$N@Z$lL\$O!"(B
+$BJQ?t(B @code{wl-folder-many-unsync-threshold} $B$G@_Dj$5$l$^$9!#(B
+
+@item wl-highlight-folder-unread-face
+$B%U%)%k%@%b!<%I$G!"L$F14|%a%C%;!<%8$,$J$/$FL$FI%a%C%;!<%8$,$"$k(B
+$B%U%)%k%@$N(B face $B$G$9!#(B
+
+@item wl-highlight-folder-killed-face
+$B%U%)%k%@%b!<%I$G!"%"%/%;%9%0%k!<%WCf$N:o=|$5$l$?%U%)%k%@$N(B face $B$G$9!#(B
+
+@item wl-highlight-folder-opened-face
+$B%U%)%k%@%b!<%I$G!"3+$$$?%0%k!<%W$K$D$/(B face $B$G$9!#(B
+$BJQ?t(B @code{wl-highlight-group-folder-by-numbers} $B$,(B nil $B$N$H$-M-8z$G$9!#(B
+
+@item wl-highlight-folder-closed-face
+$B%U%)%k%@%b!<%I$G!"JD$8$?%0%k!<%W$K$D$/(B face $B$G$9!#(B
+$BJQ?t(B @code{wl-highlight-group-folder-by-numbers} $B$,(B nil $B$N$H$-M-8z$G$9!#(B
+
+@item wl-highlight-folder-path-face
+$B%U%)%k%@%b!<%I$G!"8=:_A*BrCf$N%U%)%k%@$^$G$N%Q%9$K$D$/(B face $B$G$9!#(B
+
+@item wl-highlight-logo-face
+$B%G%b$G%m%4$K$D$/(B face $B$G$9!#(B
+
+@item wl-highlight-demo-face
+$B%G%b$NJ8;zNs(B($B%P!<%8%g%sHV9f$J$I(B)$B$K$D$/(B face $B$G$9!#(B
+@end table
+
+
+@node Advanced Settings, Customizable Valiables, Highlights, Customization
+@section $B%+%9%?%^%$%:!A1~MQJT!A(B
+
+@menu
+* Draft for Reply::             $BJV;vMQ%I%i%U%H(B
+* Thread Format::               $B%9%l%C%I$N8+$?L\(B
+* User-Agent Header::           User-Agent $B%X%C%@(B
+@end menu
+
+
+@node Draft for Reply, Thread Format, Advanced Settings, Advanced Settings
+@subsection $BJV;vMQ%I%i%U%H(B
+
+Mailng List $B$N5-;v$KJV;v$r=q$/$H$-$O!"%5%^%j%b!<%I$G(B @kbd{a} $B$r2!$7$?$@$1$G(B
+$B855-;v$N(B Reply-To $B$K$"$k%"%I%l%9$r(B To $B$KMQ0U$7$F$[$7$$!"$H$$$&>l9g$O!"(B
+$B0J2<$N$h$&$K$7$?$i$h$$$G$7$g$&!#(B
+
+@lisp
+(setq wl-draft-reply-without-argument-list
+      '(("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+        ("Followup-To" . (nil nil ("Followup-To")))
+        (("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
+        ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+@end lisp
+
+@noindent
+("X-ML-Name" $B%U%#!<%k%I5Z$S(B "Reply-To" $B%U%#!<%k%I$NN>J}$,855-;v$K(B
+$BB8:_$9$k>l9g$@$1(B To: $B$K855-;vCf$N(B Reply-To: $B%U%#!<%k%I$,=`Hw$5$l$^$9!#(B)
+
+@c @noindent
+@c ($B:G8e$N9T$N0UL#$O!"(BTo: $B$K855-;vCf$N(B From $B%U%#!<%k%I$,!"(BCc: $B$K855-;v$N(B 
+@c To $B%U%#!<%k%I$*$h$S(B Cc $B%U%#!<%k%I!"$=$7$F(B Newsgroups: $B$K855-;v$N(B 
+@c Newsgroups $B%U%#!<%k%I$,$=$l$>$l(B ($B$"$l$P(B) $B=`Hw$5$l$k$H$$$&$3$H$G$9!#(B)
+
+
+@node Thread Format, User-Agent Header, Draft for Reply, Advanced Settings
+@subsection $B%9%l%C%I$N8+$?$a(B
+
+@example
+  389  09/18($B6b(B)01:07 [ $B$F$i$K$7(B          ] wl-0.6.3
+  390  09/18($B6b(B)07:25 +-[ $BDEM8$5$s(B          ]
+  391  09/18($B6b(B)19:24 +-[ $BB<ED$5$s(B          ]
+  392  09/20($BF|(B)21:49 +-[ $B1|@>$5$s(B          ]
+  396  09/20($BF|(B)22:11 | +-[ $BDEM8$5$s(B          ]
+  398  09/21($B7n(B)00:17 |   +-[ $BDEM8$5$s(B          ]
+  408  09/21($B7n(B)22:37 |     +-[ $B1|@>$5$s(B          ]
+  411  09/22($B2P(B)01:34 |       +-[ $BDEM8$5$s(B          ]
+  412  09/22($B2P(B)09:28 |       +-[ $B$F$i$K$7(B          ]
+  415  09/22($B2P(B)11:52 |         +-[ $BDEM8$5$s(B          ]
+  416  09/22($B2P(B)12:38 |           +-[ $B$F$i$K$7(B          ]
+  395  09/20($BF|(B)21:49 +-[ $B1|@>$5$s(B          ]
+  397  09/21($B7n(B)00:15 +-[ $B1|@>$5$s(B          ]
+@end example
+
+$B%9%l%C%I$N8+$?$a$r>e5-$N$h$&$K$7$?$$>l9g$N@_Dj$O0J2<$NDL$j$G$9!#(B
+
+@lisp
+(setq wl-thread-indent-level 2)
+(setq wl-thread-have-younger-brother-str "+")
+(setq wl-thread-youngest-child-str       "+")
+(setq wl-thread-vertical-str             "|")
+(setq wl-thread-horizontal-str           "-")
+(setq wl-thread-space-str                " ")
+@end lisp
+
+$B;^$rI=<($7$J$$$h$&$K$7$?$$>l9g$N@_Dj$O0J2<$N$h$&$K$7$^$9!#(B
+
+@lisp
+(setq wl-thread-indent-level 2)
+(setq wl-thread-have-younger-brother-str " ")
+(setq wl-thread-youngest-child-str       " ")
+(setq wl-thread-vertical-str             " ")
+(setq wl-thread-horizontal-str           " ")
+(setq wl-thread-space-str                " ")
+@end lisp
+
+@node User-Agent Header,  , Thread Format, Advanced Settings
+@subsection User-Agent
+
+ X-Mailer $B%U%#!<%k%I$d(B User-Agent $B%U%#!<%k%I$K6E$j$?$$$H$$$&(B
+$BJQ$o$C$?$R$H$O!"E,Ev$KJ8;zNs$r(B insert $B$9$k4X?t$r<+J,$N9%$-$J$h$&$KDj5A$7$F(B
+@code{wl-generate-mailer-string-func} $B$K@_Dj$7$F$/$@$5$$!#(B
+
+$B0J2<$O@_Dj$N0lNc$G$9!#(B
+
+@lisp
+(setq wl-generate-mailer-string-func
+      (function
+       (lambda ()
+         (concat "X-Mailer: "
+                 (format "%s/%s (%s)" wl-appname wl-version wl-codename)))))
+@end lisp
+
+
+@node Customizable Valiables,  , Advanced Settings, Customization
+@section $B$=$NB>$N%+%9%?%^%$%:JQ?t0lMw(B
+
+$B$=$NB>$N%+%9%?%^%$%:JQ?t0lMw!#(B
+
+@table @code
+@item wl-default-folder
+@vindex wl-default-folder
+$B=i4|@_Dj$O(B "%inbox"$B!#%U%)%k%@0\F0;~$J$I$N%G%U%)%k%HCM$H$J$j$^$9!#(B
+
+@item wl-draft-folder
+@vindex wl-draft-folder
+$B=i4|@_Dj$O(B "+draft"$B!#%I%i%U%H$r%;!<%V$9$k%U%)%k%@$G$9!#(B
+localdir $B%U%)%k%@$G$"$kI,MW$,$"$j$^$9!#(B
+
+@item wl-trash-folder
+@vindex wl-trash-folder
+$B=i4|@_Dj$O(B "+trash"$B!#%4%_H"%U%)%k%@$G$9!#(B
+$B$3$NCM$rJQ99$7$?$H$-$O(B Wanderlust $B$r:F5/F0$9$k$3$H$r$*4+$a$7$^$9!#(B
+
+@item wl-interactive-exit
+@vindex wl-interactive-exit
+$B=i4|@_Dj$O(B t$B!#(B
+Non-nil $B$J$i$P!"(BWanderlust $B=*N;;~$K3NG'$r9T$$$^$9!#(B
+
+@item wl-interactive-send
+@vindex wl-interactive-send
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i$P!"%a!<%kAw?.;~$KK\Ev$KAw?.$7$F$h$$$+$r3NG'$7$^$9!#(B
+
+@item wl-folder-sync-range-alist
+@vindex wl-folder-sync-range-alist
+$B=i4|@_Dj$O!"0J2<$NCM!#(B
+@example
+(("^&.*$" . "all")
+ ("^\\+draft$\\|^\\+queue$" . "all"))
+@end example
+$B%U%)%k%@L>$N@55,I=8=$H%U%)%k%@0\F0;~$N%5%^%j99?7%l%s%8O"A[%j%9%H$G$9!#(B
+$B99?7%l%s%8$K$O(B wl-summary-sync $B$GF~NO$G$-$kCM$N$$$:$l$+(B
+(all, update, rescan, rescan-noscore, first, last) $B$r;XDj$7$^$9!#(B
+$B%^%C%A$7$J$+$C$?>l9g$O!"(Bupdate $B$H$J$j$^$9!#(B
+
+@item wl-ask-range
+@vindex wl-ask-range
+$B=i4|@_Dj$O(B t$B!#(B
+nil $B$J$i!"(Bfolder $B0\F0;~$N%5%^%j99?7$G(B @code{wl-folder-sync-range-alist} $B$NCM$r(B
+$B;HMQ$7$^$9!#(B
+
+@item wl-mime-charset
+@vindex wl-mime-charset
+$B=i4|@_Dj$O(B 'x-ctext$B!#(B
+MIME $B$G$O$J$$%a%C%;!<%8$N>l9g(B (Content-Type $B$,$J$$%a!<%k$J$I(B) $B$d!"(B
+$B%5%^%j$NI=<($GMQ$$$i$l$k(B MIME charset $B$G$9!#(B
+(Nemacs $B$H$=$NB>$N(B Emacs $B$G%5%^%j$r6&M-$7$?$$>l9g$O!"(B
+$B$3$NCM$r(B 'iso-2022-jp $B$H$7$F$/$@$5$$!#(B)
+
+@item wl-search-mime-charset
+@vindex wl-search-mime-charset
+$B=i4|@_Dj$O(B 'iso-2022-jp$B!#(B
+$B8!:w$GMQ$$$k(B MIME charset $B$G$9!#(B
+
+@item wl-highlight-folder-with-icon
+@vindex wl-highlight-folder-with-icon
+XEmacs $B$N$_M-8z$G$9!#=i4|@_Dj$O(B XEmacs $B$K0MB8$7$^$9(B($B%"%$%3%s$r;HMQ$G$-$k(BXEmacs $B$G$O(B t $B$K$J$j$^$9(B)$B!#(B
+
+@item wl-strict-diff-folders
+@vindex wl-strict-diff-folders
+$B%U%)%k%@L>$N@55,I=8=$N%j%9%H$G$9!#(B
+$B%U%)%k%@%b!<%I$G(B @kbd{s} $B$r2!$9$J$I$7$FL$FI$N%a%C%;!<%8?t$r(B
+$B%A%'%C%/$7$?>l9g!"DL>o$O4J0WE*$JJ}K!$G%A%'%C%/$7$F$$$^$9(B($B=hM}$OB.$$$,!"@53N$G$O$J$$(B)$B!#(B
+$B$3$NJQ?t$K%^%C%A$9$k%U%)%k%@$O$^$8$a$K%A%'%C%/$7$^$9!#(B
+IMAP4 $B%U%)%k%@$KBP$9$k>r7o%U%#%k%?%U%)%k%@$N$h$&$J>l9g$K$O!"(B
+$B$3$NJQ?t$K%^%C%A$9$k$h$&@_Dj$9$k$H$h$$$G$7$g$&!#(B
+$B=i4|@_Dj$O(B nil$B!#(B
+
+@item wl-folder-use-server-diff
+@vindex wl-folder-use-server-diff
+$B%U%)%k%@%b!<%I$G(B @kbd{s} $B$r2!$9$J$I$7$FL$FI$N%a%C%;!<%8?t$r%A%'%C%/$7$?(B
+$B>l9g!"DL>o$O(B($B%5!<%P>e$N%a%C%;!<%8?t(B)$B!](B($B%m!<%+%k$K$"$k%a%C%;!<%8?t(B)$B$,L$FI(B
+$B$H$_$J$5$l$^$9!#$7$+$7!"$3$NJQ?t$,(BNon-nil $B$J$i$P!"%5!<%P>e$NL$FI$N%a%C%;!<(B
+$B%8?t$r%A%'%C%/$7$^$9!#(BIMAP4 $B%U%)%k%@$K$N$_1F6A$,$"$j$^$9!#$?$@$7!"JQ?t(B 
+@code{elmo-imap4-disuse-server-flag-mailbox-regexp} $B$K%^%C%A$9$k%a!<%k%\%C%/%9(B
+$B$N(B IMAP4 $B%U%)%k%@$O!"$3$NJQ?t$K%^%C%A$7$F$b%5!<%P>e$NL$FI$N%a%C%;!<%8?t(B
+$B$r%A%'%C%/$7$^$;$s!#=i4|@_Dj$O(B t$B!#(B
+
+@item wl-auto-check-folder-name
+@vindex wl-auto-check-folder-name
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i$P!"@_Dj$5$l$?CM$r;}$D%U%)%k%@$NL$FI?t$r5/F0;~$K%A%'%C%/$7$^$9!#(B
+'none $B$J$i$P!"5/F0;~$K%A%'%C%/$7$^$;$s!#(B
+list $B$J$i$P!"(Blist $B$K@_Dj$5$l$?A4$F$N%U%)%k%@$r5/F0;~$K%A%'%C%/$7$^$9!#(B
+
+@item wl-auto-uncheck-folder-list
+@vindex wl-auto-uncheck-folder-list
+$B=i4|@_Dj$O(B '("\\$.*")$B!#(B
+@code{wl-auto-check-folder-name} $B$K;XDj$5$l$?%0%k!<%W$K4^$^$l$F$$$F$b(B
+$B5/F0;~$KL$FI%A%'%C%/$7$J$$%U%)%k%@L>$N@55,I=8=$N%j%9%H$G$9!#(B
+
+@item wl-auto-check-folder-list
+@vindex wl-auto-check-folder-list
+$B=i4|@_Dj$O(B nil$B!#(B
+@code{wl-auto-check-folder-name} $B$K;XDj$5$l$?%0%k!<%W$K4^$^$l$F$$$?$i(B
+$B5/F0;~$KI,$:L$FI%A%'%C%/$9$k%U%)%k%@L>$N@55,I=8=$N%j%9%H$G$9!#(B
+@code{wl-auto-uncheck-folder-list} $B$h$j$bM%@h$7$^$9!#(B
+
+@item wl-no-save-folder-list
+@vindex wl-no-save-folder-list
+$B=i4|@_Dj$O(B '("^/.*$")$B!#(B
+$B%;!<%V$7$J$$%U%)%k%@L>$N@55,I=8=$N%j%9%H$G$9!#(B
+
+@item wl-save-folder-list
+@vindex wl-save-folder-list
+$B=i4|@_Dj$O(B nil$B!#(B
+$B%;!<%V$9$k%U%)%k%@L>$N@55,I=8=$N%j%9%H$G$9!#(B
+@code{wl-no-save-folder-list} $B$h$j$bM%@h$7$^$9!#(B
+
+@item wl-folder-mime-charset-alist
+@vindex wl-folder-mime-charset-alist
+$B=i4|@_Dj$O0J2<$N%j%9%H!#(B
+
+@lisp
+'(("^-alt\\.chinese" . big5)
+  ("^-relcom\\." . koi8-r)
+  ("^-tw\\." . big5)
+  ("^-han\\." . euc-kr)
+  )
+@end lisp
+
+$B%U%)%k%@L>$N@55,I=8=$H(B MIME charset $B$NO"A[%j%9%H$G$9!#(B
+$B%^%C%A$7$J$+$C$?>l9g$O(B @code{wl-mime-charset} $B$,;H$o$l$^$9!#(B
+
+@item wl-folder-init-load-access-folders
+@vindex wl-folder-init-load-access-folders
+$B=i4|@_Dj$O(B nil$B!#(B
+$B=i4|2=;~$KFCDj$N%"%/%;%9%0%k!<%W$N$_%m!<%I$9$k>l9g$K!"$=$N%0%k!<%W$N%j(B
+$B%9%H$r;XDj$7$^$9!#(B
+nil$B$N>l9g$O(B @code{wl-folder-init-no-load-access-folders} $B$,;2>H$5$l$^$9!#(B
+
+@item wl-folder-init-no-load-access-folders
+@vindex wl-folder-init-no-load-access-folders
+$B=i4|@_Dj$O(B nil$B!#(B
+$B=i4|2=;~$KFCDj$N%"%/%;%9%0%k!<%W$r=|$$$F%m!<%I$9$k>l9g$K!"%m!<%I$7$J$$(B
+$B%"%/%;%9%0%k!<%W$N%j%9%H$r;XDj$7$^$9!#(B
+@code{wl-folder-init-load-access-folders} $B$,(B non-nil $B$N>l9g$OL5;k$5$l$^$9!#(B
+
+@item wl-delete-folder-alist
+@vindex wl-delete-folder-alist
+$B=i4|@_Dj$O(B '(("^-" . remove))$B!#(B
+delete mark $B$r$D$1$?%a%C%;!<%8$r:o=|$9$kJ}?K$r@_Dj$7$^$9!#(B
+$B%j%9%H$N3FMWAG$O%U%)%k%@$H:o=|@h$K$J$C$F$*$j!":o=|@h$K$O<!$N$b$N$,;XDj$G(B
+$B$-$^$9!#(B
+
+@example
+'remove or 'null : $B%a%C%;!<%8$rB(:o=|$9$k!#(B
+string           : $B;XDj$7$?%U%)%k%@$K0\F0$9$k!#(B
+'trash or $B$=$NB>(B : `wl-trash-folder'$B$K0\F0$9$k!#(B
+@end example
+
+@item wl-refile-policy-alist
+@vindex wl-refile-policy-alist
+$B=i4|@_Dj$O(B '(("^[-=]" . copy) (".*" . move))$B!#(B
+refile mark $B$r$D$1$k:]!"%a%C%;!<%8$r0\F0$9$k$+%3%T!<$9$k$+$r;XDj$7$^$9!#(B
+$B%j%9%H$N3FMWAG$K$O%U%)%k%@$H(B copy $B$^$?$O(B move $B$N(B cons cell $B$r;XDj$7$^$9!#(B
+
+@item wl-x-face-file
+@vindex wl-x-face-file
+$B=i4|@_Dj$O(B "~/.xface"$B!#(B
+Encode $B:Q$_$N(B X-Face $BJ8;zNs$rFbMF$H$9$k%U%!%$%kL>$G$9!#(B
+@xref{x-face-mule}.
+
+@item wl-demo-display-logo
+@vindex wl-demo-display-logo
+Non-nil $B$J$i$P%*!<%W%K%s%0%G%b$G%S%C%H%^%C%W$N%$%a!<%8$rI=<($7$^$9!#(B
+
+@item elmo-use-database
+@vindex  elmo-use-database
+XEmacs $B$N$_M-8z$G$9!#=i4|@_Dj$O!"(BXEmacs $B$K0MB8$7$^$9!#(B
+(dbm $B$N5!G=$r$b$D(B XEmacs $B$J$i$P(B t $B$H$J$j$^$9!#(B)
+Non-nil $B$J$i$P(B dbm $B$r;H$C$F(B Message-ID $B$N4IM}$r9T$J$$$^$9!#(B
+
+@item elmo-passwd-alist-file-name
+@vindex  elmo-passwd-alist-file-name
+$B=i4|@_Dj$O(B "passwd"$B!#(B
+$B%Q%9%o!<%I$r%;!<%V$7$F$*$/%U%!%$%k$NL>A0$G$9!#(B
+$B%3%^%s%I(B @code{elmo-passwd-alist-save} $B$r<B9T$9$k$H$3$N%U%!%$%k$K8=:_@_Dj(B
+$B$5$l$F$$$k%Q%9%o!<%I$,%;!<%V$5$l$^$9!#(B
+
+@item elmo-nntp-list-folders-use-cache
+@vindex elmo-nntp-list-folders-use-cache
+$B=i4|@_Dj$O(B 600 ($BIC(B)$B!#(B
+NNTP $B$K$*$$$F(B @samp{list} $B$d(B @samp{list active} $B$N7k2L$r(B
+cache$B$7$F$*$/;~4V$rICC10L$G;XDj$7$^$9!#(B
+nil $B$J$i(B cache $B$7$^$;$s!#(B
+
+@item elmo-nntp-max-number-precedes-list-active
+@vindex elmo-nntp-max-number-precedes-list-active
+$B=i4|@_Dj$O(B nil$B!#(B
+NNTP $B$K$*$$$F(B @samp{list active} $B$N7k2LF@$i$l$k5-;vHV9f$r(B
+$B%U%)%k%@$N:GBg5-;vHV9f$H$7$FMxMQ$7$^$9!#(B
+NNTP $B%5!<%P$H$7$F(B INN 2.3 $B$J$I$r;HMQ$7$F$$$F!"%U%)%k%@%b!<%I$G$N4{FI?t(B
+$B$,0lCW$7$J$$>l9g$O(B t $B$K$7$F$/$@$5$$!#(B
+@c non-nil means?
+
+@item elmo-nntp-default-use-listgroup
+@vindex elmo-nntp-default-use-listgroup
+$B=i4|@_Dj$O(B t$B!#(B
+NNTP $B$K$*$$$F(B $BAm5-;v?t$rD4$Y$k$?$a$K!"(B@samp{listgroup} $B$r;H$&!#(B
+nil $B$J$i$P(B @samp{group} $B$N7k2L$rMQ$$$^$9!#(B
+@samp{group} $B$r;H$&$H!"@53N$5$K$O7g$1$^$9$,!"<c439bB.2=$5$l$^$9!#(B
+
+@item elmo-pop3-send-command-synchronously
+@vindex elmo-pop3-send-command-synchronously
+$B=i4|@_Dj$O(B nil$B!#(B
+Non-nil $B$J$i(B POP3 $B$N%3%^%s%I$rF14|E*$KH/9T$7$^$9!#%5!<%P$K$h$C$F$O$3$NCM$r@_Dj$7$J$$$H%5%^%j>pJs$r<h$j=P$;$J$$>l9g$,$"$k$h$&$G$9!#(B
+POP3 $B;2>H;~$K=hM}$,%O%s%0$9$k$h$&$J>l9g$O!"(Bt$B$K$9$k$H$$$$$+$b$7$l$^$;$s!#(B
+
+@item elmo-dop-flush-confirm
+@vindex elmo-dop-flush-confirm
+$B=i4|@_Dj$O!"(Bt$B!#(B
+Non-nil $B$J$i$P%*%U%i%$%s=hM}$GN/$C$?=hM}$r<B9T$9$k$+$I$&$+$r3NG'$7$^$9!#(B
+@end table
+
+
+@c
+@c  Mailing List
+@c
+@node Mailing List, Addition, Customization, Top
+@chapter $B%a!<%j%s%0%j%9%H(B
+
+@display
+Wanderlust Mailing List @t{<wl@@lists.airs.net>}
+@end display
+
+Wanderlust $B$K4X$9$k5DO@$O$3$N%a%$%j%s%0%j%9%H$G9T$o$l$^$9!#(B
+$B:G?7%P!<%8%g%s$N%"%J%&%s%9$b$3$A$i$KN.$l$^$9!#(B
+
+@t{wl-ctl@@lists.airs.net} $B08$N%a!<%k$NK\J8$K!"(B
+
+@example
+# guide
+@end example
+
+@noindent
+$B$H=q$$$?%a!<%k$rAw$k$HF~2q$N%,%$%I$,<+F0E*$K$b$i$($^$9!#(B
+
+$B%P%0Js9p$d%Q%C%A$NAwIU$b$3$A$i$N%a!<%j%s%0%j%9%H$XAw$C$F$/$@$5$$!#(B
+$B%a!<%j%s%0%j%9%H$N%a%s%P$G$J$/$H$b!"Aw?.$G$-$k@_Dj$K$J$C$F$$$^$9!#(B
+
+$B%a!<%j%s%0%j%9%H$N3'MM$K$O5.=E$J8f=u8@!"(B
+$B%3!<%I$r$?$/$5$s8fDs6!$$$?$@$$$F$*$j$^$9!#(B
+$B$3$N>l$r<Z$j$F$*Ni?=$7>e$2$^$9!#(B
+
+@c
+@c  Addition
+@c
+@node Addition, Index, Mailing List, Top
+@chapter $B$*$^$1(B
+
+@section $BN,Nr(B
+
+@example
+1998  3/05    MH $B%a%C%;!<%8$r%9%l%C%II=<($9$k%W%m%H%?%$%W$r:n$C$F$_$k!#(B
+      3/10    elisp $B$K$h$k(B msgdb $B$N$7$/$_$r$D$/$k!#(B
+      3/26    IMAP $B$H(B NNTP $B$b%9%l%C%II=<($G$-$k$h$&$K$J$k!#(B
+      4/13    $B%9%l%C%II=<(MQ%b%8%e!<%k$r(B elmo $B$H$7$F$^$H$a$O$8$a$k!#(B
+      5/01    0.1.0 $B%\%m%\%m$N(B initial version $B$,40@.!#(B
+      6/12    tm-ja ML $B$G!"(BIMAP $BBP1~$N(B elisp $B%a!<%i$r:n$C$F$$$k!"(B
+              $B$H$D$$8}$r3j$Y$i$;$F$7$^$&!#(B
+      6/16    tm-ja, elips ML $B$G(B 0.1.3 $B$r%"%J%&%s%9!#(B
+      6/22    $BKLL\$5$s$N$*$+$2$G(B northeye.org $B$G%a!<%j%s%0%j%9%H$,%9%?!<%H!#(B
+      7/01    mm-backend $BBP1~(B(0.3.0)$B!#(B
+      8/25    multi $B%U%)%k%@DI2C(B(0.5.0)$B!#(B
+      8/28    filter $B%U%)%k%@DI2C(B(0.5.1)$B!#(B
+      9/10    $B%9%l%C%I$,3+JD$G$-$k$h$&$K$J$k(B(0.6.0)$B!#(B
+      9/11    fldmgr by $BB<ED$5$s(B $B$K$h$j%U%)%k%@$NJT=8$,4JC1$K!#(B
+      9/18    lha $B%U%)%k%@DI2C(B by $B1|@>$5$s(B(0.6.3)$B!#(B
+      9/24    $B%9%l%C%I$N;^$rI=<((B(0.6.5)$B!#(B
+      9/28    $B05=L%U%)%k%@$,%^%k%A%"!<%+%$%P$KBP1~(B by $B1|@>$5$s!#(B
+     10/28    $B%*%U%i%$%s=hM}(B (0.7.4)$B!#(B
+     12/09    $B%Y!<%?%P!<%8%g%s$K!#(B
+     12/21    wl-expire by $BB<ED$5$s!#(B
+1999  2/03    auto-refile by $BDEM8$5$s!#(B
+      4/28    wl-template by $BB<ED$5$s!#(B
+      5/18    1.0.0 stable $B%j%j!<%9!#(B
+      7/05    $B%9%3%"5!G=(B by $BB<ED$5$s(B(2.1.0)$B!#(B
+@end example
+
+$B$/$o$7$$JQA+$O(B @file{ChangeLog} $B$r8fMw$/$@$5$$!#(B
+
+@section $BL>A0(B
+
+Wanderlust $B$K$O!"8&5f<R1QOB<-E5$K$h$l$P!"(B
+
+@display
+wanderlust   wan$B!&(Bder$B!&(Blust
+  $B"x%I%$%D8l(B 'desire to wander' $B$N0U$+$i"x(B
+  $B!]L>(B $BJ|O2JJ!$(B $BN99TG.!$(B $BN9?4!'(B have $B!A(B $BJ|O2JJ$,$"$k!%(B
+@end display
+
+@noindent
+$B$H$$$&0UL#$,$"$j$^$9!#$,!"L>A0$K$?$$$7$F?<$$0U?^$O$"$j$^$;$s!#(B
+($B6/$$$F8@$($P!"(BIMAP @t{=>} $B$I$3$G$b%a!<%k$,FI$a$k(B @t{=>} $BJ|O2JJ(B ?)
+
+elmo $B$O!"(B@samp{Elisp Library for Message Orchestration} $B$NN,$G$9!#(B
+$B:G=i$O$"$N@V$$$L$$$0$k$_$N$D$b$j$G$7$?$,!"(B
+$BJ|O2(B @t{=>} $BI:N.(B @t{=>} $BF;I8(B @t{=>} St.@: Elmo's fire @t{=>} elmo $B$H$$$&!"(B
+$B$=$l$C$]$$O"A[$b2DG=$G$9!#(B
+
+@section $B%3!<%I%M!<%`(B
+
+$B3F%P!<%8%g%s$K$O%3!<%I%M!<%`$,$D$$$F$$$^$9(B($B$[$H$s$I>iCL$G$9(B)$B!#(B
+$B$$$^$N$H$3$m(B 1980 $BG/Be$NJF%S%k%\!<%I;o%H%C%W(B 40 $B%R%C%H(B
+
+(@samp{http://www.summer.com.br/~pfilho/html/top40/index.html})
+
+$B$+$i%"%k%U%!%Y%C%H=g$KE,Ev$K9%$-$J$b$N$r%T%C%/%"%C%W$7$F;H$C$F$$$^$9!#(B
+
+
+@node Index,  , Addition, Top
+@unnumbered $B:w0z(B
+
+@menu
+* Concept Index::               $B35G0:w0z(B
+* Key Index::                   $B%-!<%P%$%s%I:w0z(B
+* Variable Index::              $BJQ?t:w0z(B
+* Function Index::              $B4X?t:w0z(B
+@end menu
+
+@node Concept Index, Key Index, Index, Index
+@unnumberedsec $B35G0:w0z(B
+@printindex cp
+
+@node Key Index, Variable Index, Concept Index, Index
+@unnumberedsec $B%-!<%P%$%s%I:w0z(B
+@printindex ky
+
+@node Variable Index, Function Index, Key Index, Index
+@unnumberedsec $BJQ?t:w0z(B
+@printindex vr
+
+@node Function Index,  , Variable Index, Index
+@unnumberedsec $B4X?t:w0z(B
+@printindex fn
+
+@summarycontents
+@contents
+@bye
diff --git a/doc/wl.texi b/doc/wl.texi
new file mode 100644
index 0000000..dd54aaf
--- /dev/null
+++ b/doc/wl.texi
@@ -0,0 +1,6031 @@
+\input texinfo @c -*-texinfo -*- coding: iso-2022-jp -*-
+@c %**start of header
+@setfilename wl.info
+@settitle Wanderlust -- Yet Another Message Interface On Emacsen --
+@c @documentlanguage en
+@c %**end of header
+@c texinfo of Wanderlust
+@set Time-stamp: <2000-04-03 14:30:38 teranisi>
+@set version 1.1.0
+@synindex pg cp
+@finalout
+
+@direntry
+* Wanderlust: (wl).         Yet Another Message Interface On Emacsen
+@end direntry
+
+@c permissions text appears in an Info file before the first node.
+@ifinfo
+This file documents Wanderlust,
+Yet another message interface on Emacsen.
+
+Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}.
+@c Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}, @*
+@c @w{Fujikazu Okunishi}, @w{Masahiro Murata},
+@c @w{Kenichi Okada}, @w{Kaoru Takahashi}, @w{Bun Mizuhara}
+and @w{Masayuki Osada}.
+
+This edition is for Wanderlust version @value{version}.
+
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+
+@ignore
+Permission is granted to process this file through TeX and print the
+results, provided the printed document carries copying permission
+notice identical to this one except for the removal of this paragraph
+(this paragraph not being relevant to the printed manual).
+
+@end ignore
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions.
+
+@end ifinfo
+
+@titlepage
+@sp 10
+@title Wanderlust User's Manual (ver. @value{version})
+@author Yuuichi Teranishi
+@author Fujikazu Okunishi
+@author Masahiro Murata
+@author Kenichi Okada
+@author Kaoru Takahashi
+@author Bun Mizuhara
+@author Masayuki Osada
+@page
+
+@vskip 0pt plus 1filll
+Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}.
+@c Copyright @copyright{} 1998, 1999, 2000 @w{Yuuichi Teranishi}, @*
+@c @w{Fujikazu Okunishi}, @w{Masahiro Murata},
+@c @w{Kenichi Okada}, @w{Kaoru Takahashi}, 
+@c @w{Bun Mizuhara} and @w {Masayuki Osada}
+
+This manual is for Wanderlust version @value{version}.
+
+Permission is granted to make and distribute verbatim copies of
+this manual provided the copyright notice and this permission notice
+are preserved on all copies.
+
+Permission is granted to copy and distribute modified versions of this
+manual under the conditions for verbatim copying, provided that the entire
+resulting derived work is distributed under the terms of a permission
+notice identical to this one.
+
+Permission is granted to copy and distribute translations of this manual
+into another language, under the above conditions for modified versions.
+
+@end titlepage
+
+
+@c
+@c  Top
+@c 
+@ifinfo
+@node Top, Introduction, (dir), (dir)
+@top Wanderlust User's Manual
+
+@flushright
+Yuuichi Teranishi
+Fujikazu Okunishi
+Masahiro Murata
+Kenichi Okada
+Kaoru Takahashi
+Bun Mizuhara
+Masayuki Osada
+Last Modified@value{Time-stamp:}
+@end flushright
+
+This manual is for Wanderlust@value{version}.
+
+@end ifinfo
+
+@menu
+* Introduction::             Read this first.
+* Start Me Up::              Invoking Wanderlust.
+* Folders::                  How to specify folders.
+* Folder::                   Selecting and editing folders.
+* Summary::                  Reading and refiling messages.
+* Message::                  Saving and playing MIME multipart entities.
+* Draft::                    Draft buffer, sending mail and news.
+* Disconnected Operations::  Off-Line management
+* Expire and Archive::       Automatic expiration and archiving of messages.
+* Scoring::                  Score of the messages.
+* Customization::            Customizing Wanderlust.
+* Mailing List::             Wanderlust mailing list
+* Addition::                 Additional Information
+* Index::                    Key index.
+@end menu
+
+
+@c
+@c  Introduction
+@c 
+@node Introduction, Start Me Up, Top, Top
+@chapter Introduction of Wanderlust
+@cindex Introduction
+
+Wanderlust is an mail/news management system on Emacsen.
+It supports IMAP4rev1(RFC2060), NNTP, POP and local message files.
+
+The main features of Wanderlust:
+
+@itemize @minus
+@item Pure elisp implementation.
+@item Supports IMAP4rev1, NNTP, POP(POP3/APOP), MH and Maildir format.
+@item Unified access method to messages based on Mew-like Folder Specification.
+@item Mew-like Key-bind and mark handling.
+@item Manages unread messages.
+@item Interactive thread display.
+@item Folder Mode shows the list of subscribed folders.
+@item Message Cache, Disconnected Operation (Read Only).
+@item MH-like FCC. (FCC: %Backup and FCC: $Backup is allowed).
+@item MIME compliant (by SEMI or tm).
+@item Transmission of news and mail are unified by Message transmitting draft.
+@item Graphical list of folders (XEmacs).
+@item View a part of message without retrieving the whole message (IMAP4).
+@item Server-side message look up (IMAP4). Multi-byte characters are allowed.
+@item Virtual Folders.
+@item Supports compressed folder using common archiving utilities.
+@item Old articles in folders are automatically removed/archived (Expiration).
+@item Automatic re-file.
+@item Template function makes it convenient to send fixed form messages.
+@end itemize
+
+Wanderlust is supposed to run on Mules based on Emacs 19.28, 19.34, 
+Emacs 20.2 or later, XEmacs 20.4 or later, Meadow 1.00 or later(on MS Windows),
+Mule for Windows v1.22 (on MS Windows), NTEmacs(Windows NT).
+PMMule on OS/2 is also supported. Wanderlust runs even on Nemacs 3.3.2
+based on Emacs 18.55, 18.59 (with limited functionality).
+
+IMAP4 connectivity with UW imapd 4.2, 4.3, 4.4, 4.5, 4.6, 4.7, 4.7a,
+Cyrus imapd 1.4, Cyrus imapd 1.5.19, AIR MAIL(AIRCimapd release 2.00)
+and ExpressMail are confirmed to work with Wanderlust.
+
+@c
+@c  Start Me Up
+@c 
+@node Start Me Up, Folders, Introduction, Top
+@chapter Start up Wanderlust
+@cindex Start up
+
+
+The necessary procedure for starting Wanderlust is explained in steps here.
+
+(Of course, you need a mail/news readable environment in advance)
+
+@menu
+* MIME Modules::      Installing the MIME modules.
+* Download::          Download and extract the packages.
+* Install::           Byte-compile and install.
+* Minimal Settings::  @file{.emacs} setup.
+* Mail Addresses::    Address book definition.
+* Folder Definition:: Folder definition.
+* Start Wanderlust::  Starting Wanderlust
+@end menu
+
+
+@node MIME Modules, Download, Start Me Up, Start Me Up
+@section Installing MIME modules
+@cindex MIME modules
+@pindex APEL
+@pindex FLIM
+@pindex SEMI
+@pindex tm
+
+SEMI or tm must be installed to make Wanderlust work correctly.
+
+SEMI does not run on Emacs19.28 or earlier
+@footnote{SEMI runs on Emacs 19.34. @*
+@samp{http://www.jpl.org/elips/INSTALL-SEMI-ja.html} describes how to.},
+so you must install tm, the predecessor of SEMI. (tm version 8.7 or later
+is needed.)
+
+However, SEMI is recommended because of its wider functionality.
+Partial download function in IMAP4 is enabled only when SEMI is installed.
+
+Refer to the documents of each package for detailed installation procedure.
+
+SEMI and tm can be downloaded from these sites:
+
+@example
+SEMI: ftp://ftp.m17n.org/mule/semi/
+tm:   http://cvs.m17n.org/tomo/comp/emacsen/tm/tm-8/
+@end example
+
+You need packages named APEL and FLIM to use SEMI.
+You can download FLIM and APEL from following URLs.
+
+@example
+FLIM:     ftp://ftp.m17n.org/mule/flim/
+APEL:     ftp://ftp.m17n.org/mule/apel/
+@end example
+
+You have to install APEL, FLIM and SEMI in this order.
+Generally @samp{make install} will do the job.
+(In XEmacs 21, @samp{make install-package}.)
+
+Recommended combination of APEL, FLIM and SEMI are:
+
+@itemize @minus
+@item APEL 10.2, FLIM 1.12.7 and SEMI 1.13.4
+@item APEL 10.2, FLIM 1.13.2 and SEMI 1.13.7
+@end itemize
+
+Combination of APEL 10.2 and FLIM 1.12.7 makes following error
+while compiling FLIM 1.12.7.
+
+@example
+Please install latest APEL 7.3 or later.
+@end example
+
+In this case, please comment out following lines in FLIM-CFG.
+
+@example
+(or (fboundp 'write-region-as-binary)
+    (error "Please install latest APEL 7.3 or later."))
+(or (fboundp 'insert-file-contents-as-binary)
+    (error "Please install latest APEL 7.3 or later."))
+@end example
+
+You can also use many other FLIM/SEMI variants. Combination of the
+latest versions should work.  For example, following combination is
+confirmed to work.
+
+@itemize @minus
+@item APEL 10.2, Chao 1.14.1 and REMI 1.14.1
+@end itemize
+
+@c You have to re-install Wanderlust
+@c if you upgraded APEL, FLIM, SEMI or tm.
+
+@node Download, Install, MIME Modules, Start Me Up
+@section Download and Extract the Package
+@cindex Download
+
+You can download Wanderlust package from following sites:
+
+Original site:
+@example
+ftp://ftp.gohome.org/wl/
+@end example
+
+Mirrored ftp/http sites:
+
+@example
+ftp://ftp.jaist.ac.jp/pub/GNU/elisp/ftp.gohome.org/wl/
+ftp://daidai.kuis.kyoto-u.ac.jp/pub/mirror/ftp.gohome.org/pub/elisp/wl/
+http://www.jpl.org/elips/
+http://www.ring.gr.jp/archives/text/elisp/wl/
+ftp://ftp.ring.gr.jp/pub/text/elisp/wl/
+ftp://opaopa.org/pub/mirror/elisp/wl/
+@end example
+
+Extract the obtained package to your working directory:
+
+@example
+% cd ~/work
+% tar zxvf wl-(@var{version}).tar.gz
+% cd wl-(@var{version})
+@end example
+
+@subsection To use SSL (Secure Socket Layer)
+
+SSL (Secure Socket Layer) can be used for 
+SMTP, IMAP, NNTP and POP connections in Wanderlust.
+
+There are two ways to use SSL. One is to start SSL negotiation just after
+the connection establishment (generic way). 
+The other one is to start SSL negotiation by invoking STARTTLS command in
+the each session.
+
+To use the formar SSL (generic SSL), you must install @file{ssl.el} in the 
+@file{utils} directory. OpenSSL command @file{openssl} is also required
+to use @file{ssl.el}. You must set PATH to the directory that OpenSSL
+commands are installed.
+
+To use the latter SSL(STARTTLS), you must install starttls package in
+addition to above. 
+You can download starttls package from the following site.
+
+@example
+ftp://opaopa.org/pub/elisp/
+@end example
+
+@node Install, Minimal Settings, Download, Start Me Up
+@section Byte-compile and install
+@cindex Byte-compile
+@cindex Compile
+@cindex Install
+@cindex Makefile
+@cindex Make
+
+@subsection Installation
+
+Edit @code{LISPDIR} and @code{EMACS} in @file{Makefile}.
+Set the Emacs's command name to @code{EMACS}.
+Set package installation directory to @code{LISPDIR}.
+Then, please execute following commands.
+
+@example
+% make
+% make install
+@end example
+
+Destination directory is auto-probed if you leave @code{LISPDIR}
+in @file{Makefile} as is. (That is, leave it as NONE)
+
+If you are using an Emacs variant which does not merge specified directory
+to load-path (e.g. Mule 2.3 based on Emacs 19.28), 
+then you will see the error message:
+
+@example
+Cannot open load file: mime-setup
+@end example
+
+@noindent
+In this case, either add destination directories of custom, apel, flim and semi
+to environmental variable EMACSLOADPATH, or define load-path in @file{WL-CFG}
+in extracted directory.
+
+If you want to use BBDB, then the necessary modules are byte-compiled and
+installed when BBDB directory is added to load-path.
+@xref{BBDB}.
+
+@subsection WL-CFG
+
+Contents of the file @file{WL-CFG} is loaded under installation if a file
+with that name exists in extracted directory. You can use @file{WL-CFG} to
+configure load-path to extra packages such as SEMI if needed.
+
+If you want to specify the install directory of Wanderlust related
+files, then set following variables in @file{WL-CFG}
+
+@table @code
+@item WL_PREFIX
+A directory to install WL modules.
+This directory is relative directory from @code{LISPDIR}.
+WL modules include @file{wl*.el}, @file{wl*.elc} files.
+@c  Modules under the directory @file{util/} are also installed if 
+@c it detected as necessary.
+
+@item ELMO_PREFIX
+A directory to install ELMO modules.
+This directory is relative directory from @code{LISPDIR}.
+ELMO modules include @file{elmo*.el}, @file{elmo*.elc} files.
+@c  @file{utf7.el}, @file{utf7.elc} are also included in the ELMO.
+@end table
+  
+@noindent
+Default value of @code{WL_PREFIX} and @code{ELMO_PREFIX} are @file{wl}.
+
+If you want to install ELMO related files under a sub-directory
+such as "elmo" then add following to @file{WL-CFG}:
+
+@lisp
+(setq ELMO_PREFIX "elmo")
+@end lisp
+
+@noindent
+
+@subsection Install as a XEmacs package
+@cindex XEmacs package
+@cindex XEmacs package install
+@cindex Package, XEmacs
+@cindex Package install, XEmacs
+@c @cindex install-package
+
+It is possible to install Wanderlust as one of packages of XEmacs (21.0
+or greater). Configuration for autoload and icon-path in local
+@file{.emacs} files are no longer necessary, if you install Wanderlust
+as a package.
+
+Follow the next example to install Wanderlust as an XEmacs package.
+
+@example
+% vi Makefile
+% make package
+% make install-package
+@end example
+
+package directory is auto-probed, if SEMI is installed.
+(you can also specify it with @code{PACKAGEDIR} in @file{Makefile})
+
+@subsection Run in place
+
+If wl and elmo directories are defined in load-path, then byte-compilation
+and installation are not necessary to start Wanderlust. For example,
+if package is extracted in @file{~/work}, Wanderlust can be invoked with
+following setting in @file{.emacs}.
+
+@lisp
+(add-to-list 'load-path "~/work/wl-(@var{version})")
+(add-to-list 'load-path "~/work/wl-(@var{version})/elmo")
+@end lisp
+
+@node Minimal Settings, Mail Addresses, Install, Start Me Up
+@section Set up .emacs
+@cindex Minimal Settings
+@cindex Settings
+@cindex Configuration
+@cindex .emacs
+@cindex .wl
+
+The Wanderlust package contains two module groups.
+
+@table @samp
+@item ELMO (elmo-*.el)
+These modules show everything as folders. This is the back-end for Wanderlust.
+@item WL (wl-*.el)
+These modules controls the behavior of main body of Wanderlust.
+They are also the front-end for ELMO.
+@end table
+
+You can customize the  behavior of Wanderlust by changing the value
+of environmental variables which begins with @code{elmo-*} and @code{wl-*}.
+
+The minimal requirement for settings is as the following.
+
+@lisp
+;; The setting to use SEMI/tm
+(load "mime-setup")
+
+;; autoload configuration
+;; (These are not required if Wanderlust is installed as XEmacs package)
+(autoload 'wl "wl" "Wanderlust" t)
+(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
+
+;; Directory where icons are placed (XEmacs Only). Default value is nil.
+;; (This is not required if Wanderlust is installed as XEmacs package)
+(setq wl-icon-dir "~/work/wl/etc")
+
+;; SMTP server for mail posting. Default: "localhost"
+(setq wl-smtp-posting-server "your.smtp.server.com")
+;; NNTP server for news posting. Default: "localhost"
+(setq wl-nntp-posting-server "your.nntp.server.com")
+@end lisp
+
+@file{~/.wl} is automatically loaded when Wanderlust starts up (if such a
+file exists). So it is convenient to gather Wanderlust specific settings
+in @file{~/.wl}. Settings for "face" must be written in @file{~/.wl},
+because you can't write them in @file{.emacs}
+(if you write it to @file{.emacs}, you'll get an error).
+@xref{Highlights}.
+
+All above described settings except (load "mime-setup") can be written in
+@file{~/.wl}).
+
+@subsection mail-user-agent
+@cindex Default Mailer
+@cindex Mailer, Default
+@vindex mail-user-agent
+@findex compose-mail
+
+If you write following setting in you @file{.emacs}, you can
+start Wanderlust draft mode by typing @kbd{C-x m} (@code{compose-mail}). 
+This means it enables you to run Wanderlust as a default mail composer
+ of Emacs.
+
+It is effective only when your Emacs can define @code{mail-user-agent}.
+@c @xref{Mail Methods, , ,emacs}.
+
+@lisp
+(autoload 'wl-user-agent-compose "wl-draft" nil t)
+(if (boundp 'mail-user-agent)
+    (setq mail-user-agent 'wl-user-agent))
+(if (fboundp 'define-mail-user-agent)
+    (define-mail-user-agent
+      'wl-user-agent
+      'wl-user-agent-compose
+      'wl-draft-send
+      'wl-draft-kill
+      'mail-send-hook))
+@end lisp
+
+
+@node Mail Addresses, Folder Definition, Minimal Settings, Start Me Up
+@section Address book
+@cindex Address book Definition
+@cindex .addresses
+@cindex Alias, Address
+
+The file @file{~/.addresses} is a simple address book for Wanderlust.
+Make address file @file{~/.addresses}, and edit to suit your requirement.
+
+The data written in @file{~/.addresses} are used for address completion
+under draft editing mode. Furthermore, they are used when showing names
+in summary display mode. You can safely skip this section, if you don't
+want to customize address completion and summary display.
+It is possible to add/change/remove addresses from @file{~/.addresses} in
+summary buffer after Wanderlust is invoked. @refill
+
+The format is very simple. Like this. @refill
+
+@example
+#
+# @r{Lines begin with @samp{#} are comment.}
+# @r{Empty lines are ignored}
+#
+# @r{Format of each line:}
+# @r{email-address  ``nickname'' ``realname''}
+#
+teranisi@@gohome.org            "Yuuichi"      "Yuuichi Teranishi"
+foo@@bar.gohome.org             "Mr. Foo"    "John Foo"
+bar@@foo.gohome.org             "Mr. Bar"    "Michael Bar"
+@end example
+
+@noindent
+
+One line defines one persons description.
+
+Actually, in default setup, "nickname" is used in summary-mode and "real name"
+is used in draft preparation mode. This behavior is better understood if you
+try it and confirmed the function first. You can write and try a small
+definition, so you will know the idea of the address book before writing a big
+one.
+
+And, if MH alias file is specified in variable @code{wl-alias-file},
+it is used as an address information in the draft preparation mode.
+
+@node Folder Definition, Start Wanderlust, Mail Addresses, Start Me Up
+@section Folder Definition
+@cindex Folder Definition
+@cindex .folders
+
+Define the folders you want to subscribe in file @file{~/.folders}.
+The contents written in @file{~/.folders} become the folders which
+you subscribe to as it is.
+
+You can skip this section because it is possible to add/edit the
+subscribe folders from the buffer for list of folders.
+
+Format for @file{~/.folders} is very simple. Here is an example:
+
+@example
+#
+# @r{Lines begin with @samp{#} are comment.}
+# @r{Empty lines are ignored}
+#
+# @r{folder name}  "@r{folder nickname}"
+# @r{(nicknames are not necessary)}
+#
+%inbox  "Inbox"
++trash  "Trash"
++draft  "Drafts"
+%#mh/Backup@@my.imap.server.com "Sent"
+# Folder Group
+Emacsen@{
+    %#mh/spool/wl            "Wanderlust ML"
+    %#mh/spool/elips         "ELIPS ML"
+    %#mh/spool/tm-ja         "tm Japanese ML"
+    %#mh/spool/xemacs-beta   "XEmacs beta"
+    -fj.news.reader.gnus@@other.nntp.server.com "Gnus Net news"
+    *-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs "fj's Emacsen"
+@}
+#
+# @r{If folder name ends with @samp{/}, that means an `access group',}
+# @r{all subfolders automatically included in one folder group.}
+#
+%#mh/expire@@localhost /
+# @r{All MH folders are included in one folder group.}
++ /
+@end example
+
+Each line contains one folder you want to read. The definition of folders
+will be explained in detail in the next section.
+
+The part surrounded by @samp{@var{group name}@{} and @samp{@}} will become one folder group.
+One folder group is treated as a directory which can bed opened and closed in
+folder mode. It is convenient for collecting some folders and putting them
+in order.
+
+Please note that @samp{@var{group name}@{} and @samp{@}} occupies one
+line and you have to write it that way (It is because the parser sucks).
+
+There are two types of groups. One is like @samp{Emacsen} from above
+example which the user chooses his favorite folders as a group.
+
+The other one is @dfn{access group} like @samp{+} from above example.
+It makes all the sub-folders in a folder to a group.
+(It differs from the type of the folder. For example, @samp{+} makes entire
+ MH sub-directories to one group)
+
+This behavior is better understood if you try it and confirmed the function
+first. You can write and try a small folder definition, so you will know the
+idea of the folder function before writing the real one.
+
+@node Start Wanderlust,  , Folder Definition, Start Me Up
+@section Start Wanderlust
+@cindex Start Wanderlust
+
+If installation and configuration worked well, you can invoke Wanderlust by
+typing following command in Emacs.
+
+@example
+M-x wl
+@end example
+
+@noindent
+
+After initialization, Folder Mode which shows the list of folders will appear.
+That means the folders you defined in the @file{~/.folders} are listed
+If you start Wanderlust with prefix argument like @kbd{C-u M-x wl}, you
+can skip folder checking.
+
+@c
+@c  Folders
+@c
+@node Folders, Folder, Start Me Up, Top
+@chapter Wanderlust's folders 
+@cindex Folder Type
+
+This chapter describes the folder types which Wanderlust is able to handle.
+
+Wanderlust uses ELMO as it's interface, so every folder types supported
+by ELMO is usable in Wanderlust.
+
+As of version @value{version}, 10 types of folders are predefined. These are
+IMAP, NNTP, LocalDir(MH), News Spool, POP, Archive, Multi, Filter, Pipe
+and Internal folder types.
+
+@menu
+* IMAP Folder::              @samp{%} -- IMAP folder
+* NNTP Folder::              @samp{-} -- NNTP folder
+* MH Folder::                @samp{+} -- MH folder
+* Maildir Folder::           @samp{.} -- Maildir folder
+* News Spool Folder::        @samp{=} -- News spool folder
+* Archive Folder::           @samp{$} -- Archive folder
+* POP Folder::               @samp{&} -- POP folder
+* Multi Folder::             @samp{*} -- Multi folder
+* Filter Folder::            @samp{/} -- Filter folder
+* Pipe Folder::              @samp{|} -- Pipe folder
+* Internal Folder::          @samp{'} -- Internal folder
+@end menu
+
+
+@node IMAP Folder, NNTP Folder, Folders, Folders
+@section IMAP Folder
+@cindex IMAP Folder
+@cindex @samp{%}
+@cindex RFC 2060
+@cindex IMAP4rev1
+
+A folder to access e-mails via IMAP4rev1 protocol (RFC 2060).
+
+@example
+Format: '%' 'IMAP mailbox'[':' 'username' ['/' 'authenticate-type']]['@@' 'hostname'][':' 'port']['!']
+
+You can specify
+"auth" (encoded password transmission), "cram-md5" (cram-md5 authentication)
+and "login" (plain password transmission) as authenticate-type.
+(To use cram-md5 authentication, you must install utils/sasl package.)
+
+default:
+
+username  -> The value of @code{elmo-default-imap4-user}.
+             Initial setting is `USER' environment variable or
+             `LOGNAME' environment variable or return value of
+             (user-login-name).
+authenticate-type -> The value of @code{elmo-default-imap4-authenticate-type}.
+             Initial setting is "auth".
+hostname  -> The value of @code{elmo-default-imap4-server}.
+             Initial setting is "localhost".
+port -> The value of @code{elmo-default-imap4-port}.
+             Initial setting is 143.
+
+You can omit the hostname from folder names if you set
+@code{elmo-default-imap4-server} as your main IMAP server.
+For example, you can specify a folder as @samp{foo%imap@@geteway} even
+if you have to go through a firewall.
+
+SSL (Secure Socket Layer) connection will be used if a folder name
+ends with '!'. Or, if the value of @code{elmo-default-imap4-ssl} is non-nil,
+SSL will be the default connection.
+If a folder name ends with '!!', STARTTLS connection will be established.
+if the value of @code{elmo-default-imap4-ssl} is 'starttls,
+STARTTLS will be the default connection.
+
+If you specify "auth" or "cram-md5" as authentication method, the password
+is sent in encoded form. But, if your server is unable to receive an encoded
+password, authentication will fall back to "login" (that is, sending password
+in raw format) after confirmation to user. If @code{elmo-imap4-force-login}
+is non-nil, authentication will fall back to "login" without confirmation
+(default value is nil).
+
+Example: %inbox     -> IMAP mailbox "inbox"
+         %#mh/inbox -> IMAP mailbox "#mh/inbox"
+
+         %inbox:hoge -> IMAP mailbox "inbox" of user "hoge".
+         %inbox:hoge/login@@server1
+                     -> server1's IMAP mailbox "inbox"
+                        of user "hoge", with plain password authentication
+                        ("login").
+@end example
+
+@subsection International mailbox names (Modified UTF7)
+
+You can use international mailbox names in 'IMAP mailbox' part, if you
+are using Emacs which can treat unicode and
+@code{elmo-imap4-use-modified-utf7} is set to non-nil value (default
+value is nil).
+
+Currently, following Emacsen can treat unicode.
+
+@itemize @bullet
+@item Emacs 20.3 or later + Mule-UCS
+
+If you installed Mule-UCS package, Emacs can treat unicode.
+You can obtain Mule-UCS package from following URL.
+
+@example
+ftp://ftp.m17n.org/pub/mule/Mule-UCS/
+@end example
+
+@item XEmacs 21.2.13 or later + ucs-conv package
+
+By default, XEmacs 21 cannot treat unicodes, but if you installed
+ucs-conv package, it can.
+You can obtain ucs-conv package from following anonymous CVS.
+
+@example
+:pserver:anonymous@@cvs.m17n.org:/cvs/root
+Password: NULL (Just enter return key)
+@end example
+
+You also need utf7 conversion programs, u7tou8 and u8tou7 to use international
+mailbox name in the current XEmacs. 
+These programs are included in the UTF7 package which can be obtained 
+from following URL.
+
+@example
+ftp://ftp.ifcss.org/pub/software/unix/convert/utf7.tar.gz
+@end example
+@end itemize
+
+@node NNTP Folder, MH Folder, IMAP Folder, Folders
+@section NNTP Folder
+@cindex NNTP Folder
+@cindex @samp{-}
+
+A folder to access USENET news via NNTP protocol (RFC 977).
+One newsgroup is treated as a folder.
+
+@example
+Format: '-' 'newsgroup'[[':' 'username']['@@' 'hostname'][':' 'port']]['!']
+
+default:
+hostname  -> The value of @code{elmo-default-nntp-server}.
+             Initial setting is "localhost".
+username  -> The value of @code{elmo-default-nntp-user}. 
+             Initial setting is nil.
+port      -> The value of @code{elmo-default-nntp-port}.
+             Initial setting is 119.
+
+AUTHINFO is used as authentication method if the username is non-nil.
+SSL will be default method if @code{elmo-default-nntp-ssl} is non-nil even
+if the folder name doesn't end with '!'
+If a folder name ends with '!!', STARTTLS connection will be established.
+if the value of @code{elmo-default-nntp-ssl} is 'starttls,
+STARTTLS will be the default connection.
+
+Example: -fj.rec.tv            -> Newsgroup `fj.rec.tv'.
+         -fj.rec.tv@@newsserver -> Newsgroup `fj.rec.tv' on newsserver.
+@end example
+
+@node MH Folder, Maildir Folder, NNTP Folder, Folders
+@section MH Folder
+@cindex MH Folder
+@cindex @samp{+}
+@pindex MH
+
+A folder to access MH format mail (1 file is 1 mail).
+
+@example
+Format: '+' 'directory-name'
+
+Normally, directory paths are relative to variable
+@code{elmo-localdir-folder-path} (default is @file{~/Mail}), but if it
+starts with @samp{/} or @samp{~}, then it is treated as an absolute path
+(this is also true for drive-letters).
+
+Message number is used for the name of the message file.
+
+Example: +inbox         -> "~/Mail/inbox"
+         +from/teranisi -> "~/Mail/from/teranisi"
+         +~/test        -> "~/test"
+@end example
+
+@node Maildir Folder, News Spool Folder, MH Folder, Folders
+@section Maildir Folder
+@cindex Maildir Folder
+@cindex @samp{.}
+@pindex Maildir
+
+A folder to access to Maildir format (1 file is 1 mail).
+
+@example
+Format: '.' 'directory-name'
+
+Normally, directory paths are relative to variable
+@code{elmo-maildir-folder-path} (default is @file{~/Maildir}), but if it
+starts with @samp{/} or @samp{~}, then it is treated as an absolute path
+(this is also true for drive-letters).
+
+Maildir contains @file{cur}, @file{new} and @file{tmp} subdirectories.
+Messages are contained in the @file{cur} directory.  All
+message files in the @file{new} directory are moved to @file{cur}
+directory when you access to the folder. All message files contained in
+the @file{tmp} directory and not accessed for 36 hours are deleted.
+
+These behaviors are defined the @samp{http://cr.yp.to/proto/maildir.html}.
+
+Example: .              -> "~/Maildir"
+         .inbox         -> "~/Maildir/inbox"
+         .from/teranisi -> "~/Maildir/from/teranisi"
+         .~/test        -> "~/test"
+@end example
+
+@node News Spool Folder, Archive Folder, Maildir Folder, Folders
+@section News Spool Folder
+@cindex News spool Folder
+@cindex @samp{=}
+@pindex gnspool
+
+This folder handles locally saved news articles which are proposed by Mew/IM.
+You can also read articles directly from a spool-file which is retrieved
+by an utility like gnspool.
+
+@example
+Format: '=' 'directory-name'
+
+directory-name is sub-directory to the directory defined by variable
+@code{elmo-localnews-folder-path} (default is "~/News")
+You can use @samp{.} as directory delimiter as well as @samp{/}.
+
+Example: =fj/os/os2         -> "~/News/fj/os/os2"
+         =fj.os.bsd.freebsd -> "~/News/fj/os/bsd/freebsd"
+@end example
+
+@node Archive Folder, POP Folder, News Spool Folder, Folders
+@section Archive Folder
+@cindex Archive Folder
+@cindex @samp{$}
+@c @pindex ange-ftp
+
+This method can handle archive files, which are compressed by utilities
+such as Info-ZIP or LHA, as one folder.
+
+@example
+Format: '$' 'path-name' [';' archiver-type ';' prefix]
+
+`path-name' is the relative path from @code{elmo-archive-folder-path}
+(initial setting is @file{~/Mail}).
+If path-name begins with @samp{/} or @samp{~} or `drive-letter of DOS',
+path-name is treated as absolute path.
+ange-ftp format is also permitted under the environment of ange-ftp, efs.
+
+The actual file name of the archive folder is 
+@code{elmo-archive-basename}(Initial setting is "elmo-archive")
+under the path-name. If a file named path-name exists, it is treated as
+folder. The suffix is automatically decided for archiver-type.
+
+If `archiver-type' is omitted, @code{elmo-archive-default-type}
+(Initial setting is 'zip) is referred.
+
+`prefix' specifies the internal directory structure of the archive.
+For example, if the ML server is fml, @file{msend.tar.gz} has a structure like 
+@file{spool/1}, so you have to specify "spool" as `prefix'.
+
+Example: $teranisi         -> "~/Mail/teranisi/elmo-archive.zip"
+         $bsd/freebsd;lha  -> "~/Mail/bsd/freebsd/elmo-archive.lzh"
+         $/foo@@server:~/bar;zoo     -> "~/bar/elmo-archive.zoo" on ftp server
+         $d:/msend.tar.gz;tgz;spool -> "d:/msend.tar.gz"
+@end example
+
+@menu
+* Archiver::     Archivers supported
+* Archive Tips:: TIPS
+* Archive Vars:: Customization
+@end menu
+
+
+@node Archiver, Archive Tips, Archive Folder, Archive Folder
+@subsection Supported Archives
+@cindex Archiver
+@pindex LHA
+@pindex Info-ZIP
+@pindex UNZIP
+@pindex ZOO
+@pindex RAR
+@pindex TAR
+@pindex GNU TAR
+
+By default, following archives are supported.
+
+@example
+        LHA, Info-ZIP/UNZIP, ZOO, RAR  ;; full-access
+        GNU TAR('tgz, 'tar)            ;; read-only
+@end example
+
+If your archiver can include multiple files in one archive, you have a
+possibility use it as an archiver of Wanderlust (ARJ/UNARJ, ARC is one
+of the candidate. TAR is supported read-only because it cannot delete
+file in the archive ('mv)).
+
+gzip, bzip, bzip2 cannot be used as an archiver of Wanderlust because
+they cannot include multiple files. Archivers that cannot extract files
+to standard output are also not supported.
+
+@subsection OS specific information about archiver.
+
+Behaviors of the following archivers are confirmed by further experiences.
+(@samp{*} mark means recommended archiver).
+
+@example
+[OS/2]  Warp4.0J(w/o VoiceType)+Fx00505/emx0.9c(fix04)/PMMule,EmacsPM
+         LHA  OS/2 version Rel.2.06b    Feb 18, 1998
+        *UnZip 5.32 of 3 November 1997, by Info-ZIP.
+        *Zip 2.2 (November 3rd 1997).
+         Zoo archiver, zoo 2.1 $@asis{}Date: 91/07/09 02:10:34 $
+         GNU tar version 1.10 - AK 2.58 (DBCS/SJIS) 981216(homy) version
+         gzip 1.2.4 (18 Aug 93) + bzip2 patch(by Iida-san)
+
+[UN|X]  FreeBSD 2.2.7-RELEASE, Linux 2.0.30, Solaris2.6, HP-UX 9.07
+         LHa for UNIX  V 1.14c
+         UnZip 5.32 of 3 November 1997
+         Zip 2.2 (November 3rd 1997)
+         GNU tar 1.12 (1.11.x is no good)
+         gzip 1.2.4 (18 Aug 93)
+
+[Win32] Win.98/Meadow
+         Lha32 version 1.28
+         Zip 2.2
+         UnZip 5.40
+         GNU tar 1.11.8 + 1.5(WIN32)
+         GZIP 1.2.4
+         RAR 2.06
+
+* Caution about LHA
+
+If you are an OS/2 user, Peter Fitzsimmons's LH/2 is not supported.
+Hiramatsu version of LHA is only supported.
+In Win32, LHa32 is only supported (DOS version is no good).
+
+* Caution about GNU tar
+
+You have to take care about GNU tar's version because
+many version has problem on deleting file from archive.
+
+Please test --delete -f options work. Otherwise, your archive will be
+destroyed. No problem is reported on above versions of GNU tar.
+@end example
+
+
+@node Archive Tips, Archive Vars, Archiver, Archive Folder
+@subsection TIPS
+@cindex Archive Tips
+
+For comfortable migration, usage of wl-summary-archive() (@pxref{Archive}) or 
+Expire (@pxref{Expire}) is recommended.
+To treat archive folders created by expiration, 
+you must set non-nil value to @code{elmo-archive-treat-file}.
+
+On the OS/2, there is a great difference between Mule2.3(19.28) and Emacs20.2
+in processing speed. For comfortable use, Emacs20 is recommended.
+(If re-search's performance is the problem, 19.3x or later may be okay.)
+
+If many files are included in one archive,
+it takes long time to access to the archive folder because 
+archiver starting overhead is increased (especially LHA).
+150-200 messages in one archive is recommended.
+
+Of course, following is possible @t{:-)} 
+(meanings of these variables are described later.)
+@lisp
+(setq wl-fcc "$backup")
+(setq wl-trash-folder "$trash;lha")
+@end lisp
+
+@noindent
+
+
+@node Archive Vars,  , Archive Tips, Archive Folder
+@subsection Variables About Archive Folder
+@cindex Archive variables
+
+@table @code
+@item elmo-archive-default-type
+@vindex elmo-archive-default-type
+The initial setting is 'zip.
+Set archiver type by symbol. 
+
+@item elmo-archive-@var{type}-method-alist
+@vindex elmo-archive-TYPE-method-alist
+Define archiver @var{type}'s methods.
+(@var{type} is @samp{lha}, @samp{zip}, @samp{zoo}, @samp{tgz} etc)
+Each element of the alist is following.
+
+@example
+        (action . (exec-name options))   ;; external program and its option.
+        (action . function)              ;; function
+@end example
+
+Currently available actions are following.
+
+@example
+        'ls, 'cat ('cat-headers)        ;; Minimal setting(read-only)
+        'mv ('mv-pipe), 'rm ('rm-pipe)  ;; full-access (with above)
+        'cp ('cp-pipe)                  ;;
+@end example
+
+@noindent
+In above actions, 
+actions enclosed with braces are optional (They are used for better
+performance).
+
+@item elmo-archive-suffix-alist
+@vindex elmo-archive-suffix-alist
+An alist of archiver-type (symbol) and suffix.
+
+@item elmo-archive-file-regexp-alist
+@vindex elmo-archive-file-regexp-alist
+An alist of a regexp to get file number from list output of archiver
+and archiver-type (symbol).
+
+@item elmo-archive-method-list
+@vindex elmo-archive-method-list
+A list of elmo-archive-@var{type}-method-alist
+(@var{type} is a symbol of archiver-type).
+
+@item elmo-archive-lha-dos-compatible
+@vindex elmo-archive-lha-dos-compatible
+The initial setting is t on OS/2 and Win32.
+If non-nil, LHA is DOS (Mr. Yoshizaki original) compatible.
+
+@item elmo-archive-cmdstr-max-length
+@vindex elmo-archive-cmdstr-max-length
+The initial setting is 8000.
+
+Max length of command line argument for external archiver program.
+Emacs does not have a limit of command line byte length, but some OS
+(e.x OS/2) have. It depends on the OS. Archive folder is affected by
+this limit because it calls external archiver program directly (not
+called via shell).  For example, you cannot delete messages if archiver
+program must receive larger bytes of arguments to delete.  OS/2 have a
+command line argument limit of 8190 bytes, so we defined default as 8000
+with some margin.
+
+However, you don't have an influence of command line argument limit
+if the archiver has `actions' to receive target file information from
+standard input (rm-pipe, mv-pipe, cat-headers action).
+@end table
+
+@node POP Folder, Multi Folder, Archive Folder, Folders
+@section POP Folder
+@cindex POP Folder
+@cindex @samp{&}
+@cindex RFC 1939
+@cindex POP3
+@cindex APOP
+
+A folder to access e-mails via POP3 protocol (RFC 1939).
+
+@example
+Format: '&' ['username'][['/' 'authenticate-type']['@@' 'hostname'][':' 'port']]['!']
+
+You can specify
+"user"  (plain password transmission) or "apop"  (APOP authentication)
+as authenticate-type.
+
+default:
+username   -> The value of @code{elmo-default-pop3-user}.
+              Initial setting is `USER' environment variable or
+             `LOGNAME' environment variable or return value of
+             (user-login-name).
+authenticate-type -> The value of @code{elmo-default-pop3-authenticate-type}.
+              Initial setting is "user".
+hostname   -> The value of @code{elmo-default-pop3-server}.
+              Initial setting is "localhost".
+port       -> The value of @code{elmo-pop3-default-port}.
+              Initial setting is 110.
+
+Example: &hoge@@localhost -> access to localhost as user "hoge".
+         &hoge@@popserver:109 -> access to the server "popserver" on port 109
+                                 as user "hoge".
+@end example
+
+To use apop as an authenticate-type, @file{md5.el} is needed
+(XEmacs doesn't need @file{md5.el}).
+@file{md5.el} is included in @file{utils/sasl/lisp/} or Emacs/W3 package
+
+@example
+http://www.cs.indiana.edu/elisp/w3/docs.html
+@end example
+
+or LCD archive (GPL2).
+
+If the last character of the folder name is '!', Wanderlust connects to
+the POP server via SSL (Secure Socket Layer).  If you set non-nil
+value to @code{elmo-default-pop-ssl}, you don't have to put '!' in the
+end of the folder name to use SSL. 
+If a folder name ends with '!!', STARTTLS connection will be established.
+if the value of @code{elmo-default-pop-ssl} is 'starttls,
+STARTTLS will be the default connection.
+
+@node Multi Folder, Filter Folder, POP Folder, Folders
+@section Multi Folder
+@cindex Multi Folder
+@cindex @samp{*}
+@cindex Folder, Multiple
+@cindex Folder, Marge
+
+A folder to access to a folder which collects messages from
+multiple folders virtually.
+
+@example
+Format: '*' 'folder' [',' 'folder'] ... [',' 'folder']
+
+After '*' character, specify multiple folders you want to collect 
+separated by ',' like folder1,folder2,@dots{},folderN.
+
+Example:
+  *-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs
+  -> -fj.editor.xemacs, -fj.editor.mule and -fj.editor.emacs are
+     treated as one folder.
+
+  *+inbox,-fj.rec.tv,%inbox
+  -> +inbox, -fj.rec.tv and %inbox are treated as one folder.
+
+@end example
+
+
+@node Filter Folder, Pipe Folder, Multi Folder, Folders
+@section Filter Folder
+@cindex Filter Folder
+@cindex @samp{/}
+@cindex Folder, Filtering
+@cindex Folder, Virtual
+
+A folder to access to a folder which collects all messages that 
+satisfy a condition virtually.
+
+@example
+Format: '/' 'condition' '/' 'target-folder'
+
+In the 'condition' part, you can specify following.
+
+1. Partial filter: "first:NUMBER", "last:NUMBER"
+
+first: 'NUMBER' messages are picked from top of folder.
+last:  'NUMBER' messages are picked from bottom of folder.
+
+Example:
+  /last:10/-fj.os.linux -> Latest 10 messages from -fj.os.linux are picked.
+  /first:20/%inbox      -> First 20 messages from %inbox are picked.
+
+2. Date filter: "since:DATE" "before:DATE"
+
+since: only messages arrived since 'DATE' are picked.
+before: only messages arrived before 'DATE' are picked.
+
+You can specify following as 'DATE'.
+
+yesterday ->  a day before today.
+lastweek  ->  same day of last week.
+lastmonth ->  same day of last month.
+lastyear  ->  same day of last year.
+'NUMBER'daysago -> 'NUMBER' days ago. (e.x. '3daysago')
+'DAY'-'MONTH'-'YEAR' -> specify date directly (ex. 1-Nov-1998)
+
+Example:
+  /since:3daysago/+inbox -> messages arrived since 3 days ago in +inbox
+                            are picked.
+  /before:yesterday/+inbox -> messages arrived before yesterday in +inbox
+                            are picked. 
+
+3. Field filter: "FIELD=VALUE"
+
+All messages that have FIELD and its value is VALUE are picked.
+'FIELD' and 'VALUE' are case insensitive.
+
+Example:
+  /from=teranisi/+inbox -> In +inbox, messages which have From: field
+                           and its value includes "teranisi" string are picked.
+  /body=foo/%inbox      -> In %inbox, messages which have "foo" text
+                           are picked.
+
+If you can split conditions by character "|", it is considered as OR condition.
+/tocc=xxxx/ is an abbreviation of /to=xxxx|cc=xxxx/.
+
+Example:
+
+  /from=teranisi|to=teranisi/+inbox
+                        -> In +inbox, messages are picked if
+                           the message's To: field includes
+                           "teranisi" or From: field includes "teranisi".
+  /tocc=teranisi/+inbox -> In +inbox, messages are picked if
+                           the message's To: field or Cc: field includes
+                          "teranisi".
+
+Advanced example:
+
+  %inbox,/from=teranisi/%inbox@@server
+         -> Messages in %inbox or
+            message is in the %inbox@@server folder and it's From field
+            includes "teranisi" are collected.
+
+  /last:100//to=teranisi/*+inbox,%inbox
+         -> Latest 100 messages which is in the +inbox or %inbox folder
+            and To: field matches "teranisi".
+
+  /from=hogehoge//last:20//tocc=teranisi/%#mh/inbox@@localhost
+         -> Pick messages which have From: field and it includes "hogehoge"
+            from latest 20 messages in the %#mh/inbox@@localhost
+            and To: or Cc: field includes "teranisi".
+
+;;; --- Limit of implementation ---
+;;; In the current implementation, NNTP folder does not treat date filter and
+;;; field filter.
+;;; In IMAP4 folder, field filter only supports fields which can be 
+;;; passed directly to rfc2060's search command.
+;;; (i.e. to,cc,from,subject and body)
+;;; Localdir folder treats arbitrary field name.
+@end example
+
+@node Pipe Folder, Internal Folder, Filter Folder, Folders
+@section Pipe Folder
+@cindex Pipe Folder
+@cindex @samp{|}
+@cindex Get Message
+@cindex Download Message
+@cindex Incorporate Message
+
+In the pipe folder, messages are automatically transferred from the source
+folder to destination folder.
+
+@example
+Format: '|' source-folder '|' destination-folder
+
+When you access to the pipe folder, messages are automatically transferred
+from source-folder to destination-folder.
+It is convenient if you want to download messages to local disk via POP.
+For example, if you specify following
+
+|&username@@popserver|+inbox
+
+and access to it, messages are downloaded automatically from
+&username@@popserver to +inbox.
+
+Example: %inbox|%myinbox   -> Download %inbox to %myinbox.
+         *&user@@popserver1,&user@@popserver2|+inbox
+         -> Download from &user@@popserver1 and &user@@popserver2 to +inbox.
+@end example
+
+After messages are moved, a hook @code{elmo-pipe-drained-hook} is called.
+
+@node Internal Folder,  , Pipe Folder, Folders
+@section Internal folder
+@cindex Internal Folder
+@cindex @samp{'}
+@cindex Folder, @samp{$} mark
+
+A folder to access to internal messages of Wanderlust.
+
+@example
+Format: 'mark
+        or
+        'cache/00 - 1F
+
+A folder named 'mark is a special virtual folder which collects messages
+which have important mark @samp{$}.
+
+You can review important messages at once after you put important marks
+on the messages in the different folders.
+
+In this folder, if you delete message, important mark @samp{$} put on
+the message is removed.  If you append messages to this folder, the
+message will have @samp{$} mark.
+
+You can access to the cached messages fetched via network by accessing
+to the folders named 'cache/00 - 1F. 00 - 1F are the name of the
+subdirectories of the cache directory (@file{~/.elmo/cache}).
+@end example
+
+@c
+@c  Folder
+@c
+@node Folder, Summary, Folders, Top
+@chapter Folder mode
+@cindex Folder
+
+After you start Wanderlust, folder mode is appeared firstly.
+It contains folder list you subscribed.
+You can select and edit folders in this mode.
+
+@menu
+* Selecting Folder:: Select folder you want to read.
+* Folder Manager::   Editing folders.
+@end menu
+
+
+@node Selecting Folder, Folder Manager, Folder, Folder
+@section Selecting Folder
+@cindex Selecting Folder
+
+@subsection Usage (TIPS)
+
+@subsubsection Check new, unread number
+
+Folder mode looks like this.
+(In XEmacs, it looks much nicer @t{;-)})
+
+@example
+[-]Desktop:14186/35580/67263
+   Inbox:3/10/10
+   Trash:2/7/10
+   Drafts:0/0/3
+   Sent:0/9/348
+   [-]Emacsen:0/34/4837
+     Wanderlust ML:0/0/558
+     ELIPS ML:0/0/626
+     tm:0/0/821
+     XEmacs Beta:0/29/255
+     Mew:0/0/998
+     Mule-Win32:0/0/1491
+     fj's Emacsen:0/5/88
+@end example
+
+
+Each line means:
+
+@example
+FOLDER-NAME:NEW-NUMBER/UNREAD-NUMBER/ALL-NUMBER
+@end example
+
+@noindent
+
+@kbd{s} key on the folder line updates these numbers.
+It changes its color if it has many new messages.
+
+The whole folder mode is a folder group named @samp{Desktop}.
+Folder group open/close by return key.
+A operation to a folder group is treated as operations on the
+children folders.
+For example, when you type @kbd{s} on @samp{[-]Emacsen},
+six children folders update its unread number status.
+
+@subsubsection Select Folder
+
+To enter summary mode of the folder, type return (or spece) key on
+the folder line.
+If the variable @code{wl-stay-folder-window} has non-nil value, 
+summary window appears on the right of the folder mode window.
+
+@subsection Key bindings
+
+Folder mode's key binding (related to selecting folders) is following.
+
+@table @kbd
+@item @key{SPC}
+@itemx @key{RET}
+@kindex @key{SPC} (Folder)
+@kindex @key{RET} (Folder)
+@findex wl-folder-jump-to-current-entity
+Enter to the summary mode of the folder at the current cursor point.
+If the cursor is on the top of folder group line, 
+the folder group is opened or closed.
+When the cursor is on the access group and this command is called 
+with prefix argument, folder children list is updated to the newest one.
+(Children list is updated recursively if the access folder has hierarchical
+structure.)
+(@code{wl-folder-jump-to-current-entity})
+
+@item M-@key{RET}
+@kindex M-@key{RET} (Folder)
+@findex wl-folder-update-recursive-current-entity
+Folder children list of the access group at the current cursor point
+is updated to the newest one.
+(Children list is updated recursively if the access folder has hierarchical
+structure.)
+(@code{wl-folder-update-recursive-current-entity})
+
+@item w
+@kindex w (Folder)
+@findex wl-summary-write
+Create a new draft message.
+(@code{wl-summary-write})
+
+@item W
+@kindex W (Folder)
+@findex wl-summary-write-current-newsgroup
+If the current cursor point is on the NNTP folder,
+create a new draft message which already has newsgroups field.
+(@code{wl-summary-write-current-newsgroup})
+
+@item s
+@kindex s (Folder)
+@findex wl-folder-check-current-entity
+Update new and unread number information of the folder at the current 
+cursor point.
+(@code{wl-folder-check-current-entity})
+
+@item S
+@kindex S (Folder)
+@findex wl-folder-sync-current-entity
+Update summary information of the folder at the current cursor point.
+(@code{wl-folder-sync-current-entity})
+
+@item r s
+@kindex r s (Folder)
+@findex wl-folder-check-region
+Update new and unread number information of the folders in the currently
+selected region.
+(@code{wl-folder-check-region})
+
+@item r S
+@kindex r S (Folder)
+@findex wl-folder-sync-region
+Update summary information of the folders in the currently selected region.
+(@code{wl-folder-sync-region})
+
+@item P
+@kindex P (Folder)
+@findex wl-folder-prev-unread
+Jump cursor to the folder which have unread messages on the upward from
+current cursor point.
+(@code{wl-folder-prev-unread})
+
+@item N
+@kindex N (Folder)
+Jump cursor to the folder which have unread messages on the downward
+from current cursor point.
+(@code{wl-folder-next-unread})
+
+@item p
+@kindex p (Folder)
+Move cursor to the folder on the previous line.
+(@code{wl-folder-prev-entity})
+
+@item n
+@kindex n (Folder)
+Move cursor to the folder on the next line.
+(@code{wl-folder-next-entity})
+
+@item J
+@kindex J (Folder)
+Jump to the folder specified by the user input.
+(@code{wl-folder-jump-folder})
+
+@item I
+@kindex I (Folder)
+@findex wl-folder-prefetch-current-entity
+Prefetch new messages of the folder at the current cursor point by
+@code{wl-summary-incorporate}.
+If the cursor is on the folder group, it is executed recursively.
+(@code{wl-folder-prefetch-current-entity})
+
+@item c
+@kindex c (Folder)
+@findex wl-folder-mark-as-read-all-current-entity
+Mark all unread messages of the folder at the current cursor point as read.
+If the cursor is on the folder group, it is executed recursively.
+(@code{wl-folder-mark-as-read-all-current-entity})
+
+@item f
+@kindex f (Folder)
+@findex wl-folder-goto-first-unread-folder
+Enter summary mode of the first unread folder.
+(@code{wl-folder-goto-first-unread-folder})
+
+@item E
+@kindex E (Folder)
+@findex wl-folder-empty-trash
+Empty trash.
+(@code{wl-folder-empty-trash})
+
+@item o
+@kindex o (Folder)
+@findex wl-folder-open-all-unread-folder
+All unread folder is opened.
+(@code{wl-folder-open-all-unread-folder})
+
+@item /
+@kindex / (Folder)
+@findex wl-folder-open-close
+Folder group is opened/closed.
+(@code{wl-thread-open-close})
+
+@item [
+@kindex [ (Folder)
+All folder group is opened.
+(@code{wl-folder-open-all})
+
+@item ]
+@kindex ] (Folder)
+All folder group is closed.
+(@code{wl-folder-close-all})
+
+@item q
+@kindex q (Folder)
+Quit Wanderlust.
+(@code{wl-exit})
+
+@item z
+@kindex z (Folder)
+Suspend Wanderlust.
+(@code{wl-folder-suspend})
+
+@item M-s
+@kindex M-s (Folder)
+Save current folder status.
+(@code{wl-save})
+
+@item M-t
+@kindex M-t (Folder)
+Toggle Wanderlust's offline/online status.
+(@code{wl-toggle-plugged})
+
+@item C-t
+@kindex C-t (Folder)
+Start Wanderlust's plug-status manager.
+(@code{wl-plugged-change})
+@end table
+
+@subsection Customize variables
+
+@table @code
+@item wl-folders-file
+@vindex wl-folders-file
+The initial setting is "~/.folders".
+Subscribed folders are described (saved) in this file.
+
+@item wl-folder-info-save
+@vindex wl-folder-info-save
+The initial setting is t.
+If non-nil, unread information is saved and used in the next Wanderlust session.
+
+@item wl-stay-folder-window
+@vindex wl-stay-folder-window
+The initial setting is nil.
+If non-nil, summary window is appeared on the right side of the folder buffer.
+
+@item wl-folder-window-width
+@vindex wl-folder-window-width
+The initial setting is 20.
+Folder mode's window width when @code{wl-stay-folder-window} is non-nil.
+
+@item wl-folder-many-unsync-threshold
+@vindex wl-folder-many-unsync-threshold
+The initial setting is 70.
+If the number of unread messages is more than this value,
+folder color is changed.
+
+@item wl-folder-desktop-name
+@vindex wl-folder-desktop-name
+The initial setting is "Desktop".
+The name of top folder group.
+
+@item wl-folder-petname-alist
+@vindex wl-folder-petname-alist
+The initial setting is nil.
+An alist of folder's realname and its nickname.
+
+@item wl-folder-access-subscribe-alist
+@vindex wl-folder-access-subscribe-alist
+The initial setting is nil.
+
+Control automatic subscribing and unsubscribing of the children list
+of access groups.
+
+Each element is:
+
+('regexp of access-folder' . ('subscribe-flag' 'regexp-of-folders' @dots{}))
+
+If subscribe-flag is non-nil, folders which have name matched to
+regexp-of-folders are displayed. Otherwise, hidden.
+However, already unsubscribed folder is not displayed even 
+when the subscribe-flag is non-nil. Multiple regexp-of-folders can be specified.
+
+Example:
+
+@example
+'(("^-fj$" . (t   "^-fj\\.\\(comp\\|editor\\|mail\\)"
+                  "^-fj\\.\\(net\\|news\\|os\\|rec\\)"))
+  ("^-$" . (t   "^-\\(fj\\|tnn\\|japan\\|gnu\\|comp\\)"))
+  ("^\\+ml$" . (nil "^\\+ml$" "^\\+ml/tmp")))
+@end example
+
+@item wl-folder-hierarchy-access-folders
+@vindex wl-folder-hierarchy-access-folders
+The initial setting is '("-" "-alt").
+A list of access groups which creates children folder list hierarchically.
+
+For example, if you specify
+@code{wl-folder-hierarchy-access-folders} like following,
+
+@lisp
+(setq wl-folder-hierarchy-access-folders
+     '("-" "-alt" "-japan" "-comp" "-comp.unix"))
+@end lisp
+
+such access group hierarchy is obtained.
+
+@example
+   [-]-:912/912/3011
+     [-]-fj:674/674/1314
+       -fj.comp.announce:0/0/2
+       -fj.comp.dev.cdrom:0/0/0
+       @dots{}
+     [+]-japan:238/238/1688
+     [-]-comp:0/0/4
+       [-]-comp.unix:0/0/0
+         -comp.unix.admin:0/0/0
+         -comp.unix.dos-under-unix:0/0/0
+         -comp.unix.programmer:0/0/0
+         [-]-comp.unix.bsd:0/0/23
+           -comp.unix.bsd.freebsd.announce:0/0/0
+     @dots{}
+@end example
+
+If you opened @samp{-} in this example, only the direct children is created
+(@samp{-fj}, @samp{-japan}, @samp{-tnn}, @dots{}).
+second hierarchy (@samp{-fj.comp.announce}, @dots{}, @samp{-comp.unix}, @dots{})
+is not created until the children access group is opened.
+@end table
+
+
+@node Folder Manager,  , Selecting Folder, Folder
+@section Editing Folders
+@cindex Folder Manager
+@cindex Folder, Edit
+@cindex Folder, Subscribe
+@cindex Folder, Unsubscribe
+
+As described before, subscribed folder list is saved in @file{~/.folders} file.
+But you don't have to edit @file{~/.folders} directly.
+You can append, delete, edit folders from folder mode.
+
+@subsection Usage (Tips)
+
+@subsubsection Append Folder
+
+@kbd{m a} appends new folder to the folder mode.
+@kbd{m g} appends new folder group.
+To append new folder to this group, firstly open it,
+then execute append command in the next line.
+
+@subsubsection Edit Folder
+
+You can cut folder by @kbd{C-k}, paste by @kbd{C-y}.
+Thus, you can change folder position as if you were editing a normal file.
+
+@subsubsection Create Multi Folder.
+
+@enumerate
+@item
+Type @kbd{m q} to clear @code{wl-fldmgr-cut-entity-list}.
+@item
+Cut folder by @kbd{C-k} or copy folder by @kbd{M-c}.
+@item
+Type @kbd{m m}, then you can create multi folder.
+@end enumerate
+
+@subsubsection Delete Nickname, Filter
+
+You can delete nickname or filter by putting ""(NULL) from the minibuffer
+while appending.
+
+@subsubsection Append Folder to Empty Group
+
+To append new folder to the empty folder group
+(after you create folder group by typing @kbd{m g}),
+firstly open it, then execute append command in the next line.
+If it is closed, folder is appended on the same level with
+the above folder group. It is difficult to explain by words so try it.
+In other words, appended position depends on the 
+above folder group's open/close status.
+
+@subsubsection Charset of the Folders File.
+
+@code{wl-mime-charset} is used for saving @code{wl-folders-file}.
+
+@subsubsection Create Filter
+
+@kbd{m f} adds filter to the folder at the current cursor point.
+To create new filter folder and leave the current folder unchanged, 
+copy it @kbd{M-c}, make filter @kbd{m f} and paste it @kbd{C-y}.
+Multiple filter can be specified while appending filter.
+If you put ""(NULL), filter is deleted.
+
+@subsubsection Sort Folders
+
+Sorting of the folders is executed by the function specified by 
+@code{wl-fldmgr-sort-func}. 
+The initial setting is @code{wl-fldmgr-sort-standard}, 
+which sorts alphabetically.
+Sorting affects only on the current folder group. It does not 
+affect on the child groups.
+
+@subsubsection Hiding Folders in the Access Group
+
+Usually, access group displays all children folders, but you can set
+some folders hidden. Following operations are only available on access
+group.
+
+Command @code{wl-fldmgr-unsubscribe} (@kbd{u}) toggles
+the visibility (subscribe/unsubscribe) of the folder at current cursor point.
+
+Against this, @code{wl-fldmgr-unsubscribe-region} (@kbd{U}) hides folders
+in the specified region.  Note that @code{wl-fldmgr-unsubscribe-region}
+does not toggle while @code{wl-fldmgr-unsubscribe} toggles.  These two
+commands accept prefix argument and if the argument has positive number,
+the unsubscribe it.  If the prefix argument has negative value, folder
+becomes visible and if zero, folder visibility is toggled.
+
+The other commands, @code{wl-fldmgr-subscribe} and
+@code{wl-fldmgr-subscribe-region} are also prepared (not binded to the
+key).
+
+Moreover, if @code{wl-fldmgr-cut} or @code{wl-fldmgr-cut-region} is
+executed in the access group, they have a same effect with
+@code{wl-fldmgr-unsubscribe} and @code{wl-fldmgr-unsubscribe-region}.
+The difference is that cut(-region) commands deletes folders from the
+current buffer.
+
+@subsubsection Operations in the Access Group
+
+You can insert and delete folders in the access group like usual folder
+group.  But insert and delete commands can be only available for the
+children folders of the access group and they only sets the subscribe
+status.  In other words, insertion of the folder means subscribing,
+deletion means unsubscribing.
+@footnote{In the current implementation, 
+it is faster to delete region than to unsubscribe region.}
+
+To update the access group when children folders are inserted or deleted
+by other way (other than Wanderlust), 
+open the access group by typing @kbd{C-u @key{RET}}.
+@xref{Selecting Folder}.
+
+The order of children folders of access group is saved after
+insertion/deletion/sorting.
+If you set @code{wl-force-fetch-folders} to non-nil or open access group
+by typing @kbd{C-u @key{RET}}, disappeared folders are deleted and
+newly created folders are inserted on the top of the access group.
+
+@subsection Key bindings
+@cindex Keybind, Folder Mode
+@cindex Keybind, Folder Buffer
+
+Key bindings on the folder mode related to folder editing are shown below.
+All bindings starts with @kbd{m}, and primary commands are binded to 
+one stroke key binding.
+
+@table @kbd
+@item m a
+@kindex m a (Folder)
+@findex wl-fldmgr-add
+Insert a folder.
+(@code{wl-fldmgr-add})
+
+@item +
+@itemx m g
+@kindex + (Folder)
+@kindex m g (Folder)
+@findex wl-fldmgr-make-group
+Create a folder group.
+(@code{wl-fldmgr-make-group})
+
+@itemx m A
+@kindex m A (Folder)
+@findex wl-fldmgr-make-access-group
+Create an access group. 
+(@code{wl-fldmgr-make-access-group})
+
+@item m d
+@kindex m d (Folder)
+@findex wl-fldmgr-delete
+Delete folder itself and msgdb.
+If the folder itself cannot be deleted like NNTP folder,
+only msgdb is deleted.
+(@code{wl-fldmgr-delete})
+
+@item R
+@itemx m R
+@kindex R (Folder)
+@kindex m R (Folder)
+@findex wl-fldmgr-rename
+Change the name of folder or folder group.
+msgdb's path is also changed.
+(@code{wl-fldmgr-rename})
+
+@item *
+@itemx m m
+@kindex * (Folder)
+@kindex m m(Folder)
+@findex wl-fldmgr-make-multi
+Create a multi folders in the cutlist (cut, copied folders).
+(@code{wl-fldmgr-make-multi})
+
+@item |
+@itemx m f
+@kindex | (Folder)
+@kindex m f (Folder)
+@findex wl-fldmgr-make-filter
+Create a filter folder. (Put a filter on the folder).
+(@code{wl-fldmgr-make-filter})
+
+@item M-c
+@itemx m c
+@kindex M-c (Folder)
+@kindex m c (Folder)
+@findex wl-fldmgr-copy
+Copy folder (it is not available on folder group).
+(@code{wl-fldmgr-copy})
+
+@item M-w
+@itemx m W
+@kindex M-w (Folder)
+@kindex m W (Folder)
+@findex wl-fldmgr-copy-region
+Copy folders in the specified region.
+(@code{wl-fldmgr-copy-region})
+
+@item C-k
+@itemx m k
+@kindex C-k (Folder)
+@kindex m k (Folder)
+@findex wl-fldmgr-cut
+Cut folder. Folder itself is not deleted.
+(@code{wl-fldmgr-cut})
+
+@item C-w
+@itemx m C-w
+@kindex C-w (Folder)
+@kindex m C-w (Folder)
+@findex wl-fldmgr-cut-region
+Cut folders in the specified region.
+(@code{wl-fldmgr-cut-region})
+
+@item C-y
+@itemx m y
+@kindex C-y (Folder)
+@kindex m y (Folder)
+@findex wl-fldmgr-yank
+Paste folders that are copied or cut (folders in the cut-list).
+(@code{wl-fldmgr-yank})
+
+@item m p
+@kindex m p (Folder)
+@findex wl-fldmgr-set-petname
+Put nickname on the folder.
+(@code{wl-fldmgr-set-petname})
+
+@item m q
+@kindex m q (Folder)
+@findex wl-fldmgr-clear-cut-entity-list
+Clear the cut-list. (cut, copied folder information is cleared,
+you cannot paste after this)
+(@code{wl-fldmgr-clear-cut-entity-list})
+
+@item m s
+@kindex m s (Folder)
+@findex wl-fldmgr-sort
+Sort folders in the current folder group.
+(@code{wl-fldmgr-sort})
+
+@item m C-s
+@kindex m C-s (Folder)
+@findex wl-fldmgr-save
+Save current folder view to the @file{wl-folders-file}.
+(@code{wl-fldmgr-save})
+@end table
+
+[Following commands are only available on the access groups]
+
+@table @kbd
+@item u
+@itemx m u
+@kindex u (Folder)
+@kindex m u (Folder)
+@findex wl-fldmgr-unsubscribe
+Set the visibility of folder (subscribe/unsubscribe).
+(@code{wl-fldmgr-unsubscribe})
+
+@item U
+@itemx r u
+@kindex U (Folder)
+@kindex r u (Folder)
+@findex wl-fldmgr-unsubscribe-region
+Set the visibility of the folders (subscribe/unsubscribe) in the
+specified region. 
+(@code{wl-fldmgr-unsubscribe-region})
+
+@item l
+@itemx m l
+@kindex l (Folder)
+@kindex m l (Folder)
+@findex wl-fldmgr-access-display-normal
+List folders that are currently available.
+(@code{wl-fldmgr-access-display-normal})
+
+@item L
+@itemx m L
+@kindex L (Folder)
+@kindex m L (Folder)
+@findex wl-fldmgr-access-display-all
+List all folders regardless of the subscription status.
+(@code{wl-fldmgr-access-display-all})
+
+@item C-c C-o
+@kindex C-c C-o (Folder)
+@findex wl-jump-to-draft-buffer
+Move to the draft buffer if available.  If multiple draft buffer exists,
+moved to one after another.  If prefix argument is specified, load draft
+folder's message to the draft buffer and jump to it.
+(@code{wl-jump-to-draft-buffer})
+@end table
+
+
+@subsection Customize variables
+
+@table @code
+@item  wl-interactive-save-folders
+@vindex wl-interactive-save-folders
+The initial setting is t.
+If non-nil and folder view is modified, confirm saving it before
+Wanderlust or Emacs exits.
+If nil, save without confirmation.
+
+@item wl-fldmgr-make-backup
+@vindex wl-fldmgr-make-backup
+The initial setting is t.
+If non-nil, @file{~/.folders.bak} is created before saving the folder status.
+
+@item wl-fldmgr-sort-func
+@vindex wl-fldmgr-sort-func
+The initial setting is 'wl-fldmgr-sort-standard.
+A function to sort folders.
+By default function, folders are sorted alphabetically and
+folder group is put on top
+(when @code{wl-fldmgr-sort-group-first} is non-nil).
+
+@item wl-fldmgr-sort-group-first
+@vindex wl-fldmgr-sort-group-first
+The initial setting is t.
+If non-nil, @code{wl-fldmgr-sort-standard} precedes folder group.
+If nil, it does not care whether it is folder group or not.
+
+@item wl-folder-check-async
+@vindex wl-folder-check-async
+The initial setting is t.
+If non-nil, check folder's unread status asynchronously.
+It boosts newsgroup checking.
+
+@item wl-folder-check-fast
+@vindex wl-folder-check-fast
+The initial setting is nil.
+If non-nil, it does not update folder status while checking.
+@c it is obsolete?
+@item wl-folder-notify-deleted
+@vindex wl-folder-notify-deleted
+The initial setting is nil.
+@c  nil means?
+If non-nil, negative value is displayed when the message is deleted.
+If 'sync, folder is synchronized when the message is deleted.
+If nil, message deletion is ignored.
+@end table
+
+@subsection Miscellanea
+
+Following is a note for folder editing.
+
+@enumerate
+@item
+cut or copy stacks the folder in the @code{wl-fldmgr-cut-entity-list}.
+paste(yank) command pastes the folders on one cut or copy command
+(If copy command is executed by region, folders in the region are pasted
+by one paste command)
+
+@item
+You cannot cut 'Desktop' group.
+Also, you cannot paste folders at the outside of the 'Desktop'.
+
+@item
+You cannot copy folder group.
+
+@item
+Operations on the access group are only available for the folders
+in the same access group.
+
+@item
+You cannot create a folder which has same name with the folders already exist.
+
+@item
+You cannot insert folders which have same name in one group.
+You can insert them in the different groups.
+You cannot put same nickname to the different folders.
+@end enumerate
+
+
+@c
+@c  Summary
+@c
+@node Summary, Message, Folder, Top
+@chapter Summary Mode
+
+@section Usage (Tips)
+
+@subsection Summary Content
+
+After you select the folder via folder mode, you enter to the summary mode.
+In the summary mode, messages are displayed like following.
+
+@example
+  377  09/16(Wed)11:57 [+1: Takuro Kitame  ] Bug?
+  381  09/17(Thu)00:16 [+3: Fujikazu Okuni ] elmo-lha.el -- LHA interface
+  384  09/17(Thu)01:32 [+1: Yuuichi Terani ] wl-0.6.2
+  389 N09/18(Fri)01:07 [+2: Yuuichi Terani ] wl-0.6.3
+@end example
+
+Each line displays:
+
+@example
+Message number, Temporal mark, Persistent mark, Date, Sender, Subject
+@end example
+
+@noindent
+You cannot change this in the current version.
+
+'Message number' is the message's unique number in the folder. In the NNTP
+folder, it is article number, in the IMAP folder, it is UID and in the
+MH folder, it is the filename of the message.
+
+Temporal and Persistent marks are described later.
+
+'Date' is displayed like 'Month/Day(Week Day)Hour:Minute'.
+Default setting displays week day in Japanese, but if you want to 
+display it in English, set the value of @code{wl-summary-weekday-name-lang}
+as "en".
+
+'Sender's indentation corresponds to the depth of the thread.
+Sender name is displayed as nickname if it is defined in the address book.
+Set @code{wl-use-petname} as nil, if you want to quit displaying with nickname.
+
+If number is printed at the head of 'sender' part like @samp{+2},
+that means the message have 2 follow messages.
+
+'Subject' is the Subject header field of the message.  If the message
+have same subject with the parent message, it is not displayed.  Some
+mailing list puts its sequence number in the subject field, but it is
+ignored. @code{wl-summary-no-subject-message} is displayed when the
+message has empty subject field.
+
+@subsection Temporary Marks
+@cindex Mark, Temporary
+
+There are four temporary marks, 
+@samp{*}, @samp{D}, @samp{o} and @samp{O}.
+Temporary marks indicates message operations.
+
+@table @samp
+@item *
+Target mark.
+You can execute a command on the all messages that have @samp{*} mark,
+with the key bindings which begins with @kbd{m}.
+
+@item D
+The mark to delete. You can put @samp{D} by typing @kbd{d} key.
+
+@item o
+The mark to refile.
+After you type @kbd{o} key, prompt appears to input refile destination.
+Your answer is printed in the summary line.
+
+@item O
+The mark to refile.
+You can put this mark by typing @kbd{O} key.
+The difference between this mark and refile mark is, 
+this mark does not delete the message while latter does.
+@end table
+
+@kbd{x} key executes @samp{D}, @samp{o} and @samp{O} marks.
+
+@subsection Persistent Marks
+
+There are five persistent marks,
+@samp{N}, @samp{U}, @samp{!}, @samp{u} and @samp{$}.
+
+The persistent mark indicates the message's status and it is saved.
+Each persistent mark indicates:
+
+@table @samp
+@item N
+It is new message.
+@item U
+It is unread message.
+@item !
+It is unread but cached message.
+@item u
+It is read but it is not cached.
+@item $
+It is important message.  You can put @samp{$} mark by typing @kbd{$}
+key (if already exists, the mark is deleted).  It is convenient to put
+this mark on the messages to remember (If you want to remember to write
+a reply for the message, for example) because this mark remains after
+you exited Emacs.  Messages with the @samp{$} mark remains in the folder
+even the message itself is deleted in the actual folder.
+
+@item None
+If the message is read and cached (or local message),there are no
+persistent mark.
+@end table
+
+@samp{N}, @samp{U} and @samp{u} indicates that the message have no
+cache.  Messages with the marks other than these, you can read them in
+the offline status even they are in the IMAP folder or netnews folder.
+
+@subsection How To Read
+
+Basically, you can read messages only typing space key again and again.
+
+To update summary status to the newest status (synchronize),
+type @kbd{s} key.
+
+You can jump to next unread message by typing @kbd{N} key, and @kbd{n} key
+moves cursor to the next message.
+Enter message buffer by typing @kbd{j} key.
+To operate multipart, you have to enter to the message buffer.
+
+@subsection Thread Operations
+
+For example, the following line indicates one thread (a context of a topic).
+
+@example
+  384  09/17(Thu)01:32 [+1: Teranishi       ] wl-0.6.2
+@end example
+
+@noindent
+
+If you type @kbd{/} on this line, the thread is opened and it changes
+the appearance like following.
+
+@example
+  384  09/17(Thu)01:32 [ Teranishi          ] wl-0.6.2
+  388  09/17(Thu)22:34 +-[ Murata san         ]
+@end example
+
+(Message 388 is the replied message to the message 384.)
+If you type @kbd{/} key once again, the thread is closed.
+With prefix argument, @kbd{/} opens all children threads.
+
+Commands with the key binding that begins with @kbd{t} executes commands
+on the messages in the thread.
+
+@subsection Cache File
+
+The messages which have to access via network (e.x. IMAP, NNTP folder) 
+are cached as a local file.
+The cache file is saved under the directory @file{~/.elmo/cache}.
+
+To expire cache, type following.
+
+@example
+M-x elmo-cache-expire-by-size
+@end example
+
+@noindent
+
+The command deletes cache files to the specified size by the order of
+last accessed time.
+
+@subsection Buffer Cache and Prefetching
+
+If the value of @code{elmo-use-buffer-cache} is non-nil,
+the messages that are read are kept in the cache buffer.
+It is called `buffer cache'. 
+The number of cache buffer is specified by @code{elmo-buffer-cache-size}.
+
+There are message prefetching mechanism in the Wanderlust that prefetches next
+message while you are reading.  This function requires that the value of
+@code{elmo-use-buffer-cache} is non-nil.
+
+You can control the message prefetching mechanism by these two variables.
+
+@table @code
+@item wl-cache-prefetch-folder-type-list
+@vindex wl-cache-prefetch-folder-type-list
+The initial setting is '(nntp imap4).
+It specifies the folder types in which message prefetching is enabled.
+In the initial setting, multi folder that contains localdir and imap4 
+prefetches only imap4 messages.
+This variable precedes the value of @code{wl-cache-prefetch-folder-list}.
+
+If you want to prefetch localdir and localnews also, following setting is needed.
+@lisp
+(setq wl-cache-prefetch-folder-type-list
+      '(nntp imap4 localdir localnews))
+@end lisp
+
+@item wl-cache-prefetch-folder-list
+@vindex wl-cache-prefetch-folder-list
+The initial setting is nil.
+A list of regexp of folders to enable message prefetching.
+@end table
+
+@subsection Auto Refile
+
+You refile messages automatically, by typing @kbd{C-o}
+(@code{wl-summary-auto-refile}). It decides destination of refile by
+the content of the message header information (information in the msgdb).
+
+By default, @samp{From}, @samp{Subject}, @samp{To} and @samp{Cc} is available.
+If you want to decide destination by other header fields, 
+set the variable @code{elmo-msgdb-extra-fields} like following.
+
+@lisp
+(setq elmo-msgdb-extra-fields
+      '("x-ml-name"
+      "reply-to"
+      "sender"
+      "mailing-list"
+      "newsgroups"))
+@end lisp
+
+@noindent
+
+By this setting, Wanderlust saves extra fields in the msgdb.  You have
+to type @kbd{s all} to get extra fields for the messages that are
+already exists in the summary.
+
+Then, specify the refile rule in the @code{wl-refile-rule-alist} like
+following.
+
+@lisp
+(setq wl-refile-rule-alist
+      '(
+        ("x-ml-name"
+         ("^Wanderlust" . "+wl")
+         ("^Elisp" . "+elisp"))
+        ("From"
+         ("teranisi@@isl.ntt.co.jp" . "+teranisi"))))
+@end lisp
+
+After these setting, refile marks are automatically put on the condition
+matched messages by typing @kbd{C-o} (@code{wl-summary-auto-refile}).
+The rule matched first is applied.
+
+Messages which have @code{wl-summary-auto-refile-skip-marks} is skipped
+auto refiling. 
+By default, @samp{N}, @samp{U} and @samp{!} is specified, so the messages
+with these persistent marks are not automatically refiled.
+It means Wanderlust does not execute auto refile on unread messages by
+the default setting.
+To execute auto refile on all messages, set following.
+
+@lisp
+(setq wl-summary-auto-refile-skip-marks nil)
+@end lisp
+
+@subsection Sticky Summary
+@cindex Summary, Sticky
+@cindex Sticky Summary
+
+The buffer of the `sticky summary' does not killed by typing @kbd{q}. 
+
+Sticky buffer is created by entering the summary by typing @kbd{C-u g} or
+type @kbd{M-s} (@code{wl-summary-stick}) on the normal summary.
+
+The buffer name of the sticky summary becomes like 
+@samp{Summary:@var{folder-name}}.
+
+You can visit the sticky summary at any time by @kbd{C-x b}
+(@code{switch-to-buffer}).  To exit sticky summary, type @kbd{C-u
+q}. Other operations in the sticky summary are same as normal summary.
+
+@code{wl-summary-always-sticky-folder-list} specifies the folders that are
+automatically sticked.
+
+@section Key bindings
+@cindex Keybind, Summary Mode
+@cindex Keybind, Summary Buffer
+
+Key bindings of the summary mode are shown below.
+
+@table @kbd
+@item @key{SPC}
+@kindex @key{SPC} (Summary)
+@findex wl-summary-read
+Proceed reading a message at the current cursor point.
+(@code{wl-summary-read})
+
+@item .
+@kindex . (Summary)
+@findex wl-summary-redisplay
+Redisplay a message at the current cursor point.
+If this command is called with prefix argument, 
+Redisplay message regardless of the message cache (message is re-loaded
+from source). 
+(@code{wl-summary-redisplay})
+
+@item <
+@kindex < (Summary)
+@findex wl-summary-display-top
+Display the top message in the folder.
+(@code{wl-summary-display-top})
+
+@item >
+@kindex > (Summary)
+@findex wl-summary-display-bottom
+Display the bottom message in the folder.
+(@code{wl-summary-display-bottom})
+
+@item @key{BS}
+@itemx @key{DEL}
+@kindex @key{BS} (Summary)
+@kindex @key{DEL} (Summary)
+Display the previous page of the message at the current cursor point.
+@findex wl-summary-prev-page
+(@code{wl-summary-prev-page})
+
+@item @key{RET}
+@kindex @key{RET} (Summary)
+@findex wl-summary-next-line-content
+Display the next line of the message at the current cursor point.
+Display the message at the current cursor point if it is not displayed yet.
+(@code{wl-summary-next-line-content})
+
+@item /
+@kindex / (Summary)
+@findex wl-thread-open-close
+Toggle open or close the thread at the current cursor point.
+(@code{wl-thread-open-close})
+
+@item [
+@kindex [ (Summary)
+Open all threads.
+@findex wl-thread-open-all
+(@code{wl-thread-open-all})
+
+@item ]
+@kindex ] (Summary)
+Close all threads.
+@findex wl-thread-close-all
+(@code{wl-thread-close-all})
+
+@item -
+@itemx M-@key{RET}
+@kindex - (Summary)
+@kindex M-@key{RET} (Summary)
+@findex wl-summary-prev-line-content
+Display the previous line of the message at the current cursor point.
+Display the message at the current cursor point if it is not displayed yet.
+(@code{wl-summary-prev-line-content})
+
+@item g
+@kindex g (Summary)
+@findex wl-summary-goto-folder
+Go to other folder.
+(@code{wl-summary-goto-folder})
+
+@item c
+@kindex c (Summary)
+Mark all messages in the folder as read.
+@findex wl-summary-mark-as-read-all
+(@code{wl-summary-mark-as-read-all})
+
+@item a
+@kindex a (Summary)
+@findex wl-summary-reply
+Prepare a draft for reply the message at the current cursor point.
+(@code{wl-summary-reply})
+
+@item A
+@kindex A (Summary)
+@findex wl-summary-reply-with-citation
+Prepare a draft for reply the message at the current cursor point.
+(@code{wl-summary-reply-with-citation})
+
+@item C
+@kindex C (Summary)
+@findex wl-summary-cancel-message
+If the message at current cursor point is your own netnews article,
+cancel it.
+(@code{wl-summary-cancel-message})
+
+@item E
+@kindex E (Summary)
+@findex wl-summary-reedit
+Prepare a draft for re-editing the message at current cursor point.
+If the message at current cursor point is your own netnews article,
+a draft for `supersedes message' for the message is prepared.
+(@code{wl-summary-reedit})
+
+@item M-e
+@kindex M-e (Summary)
+@findex wl-summary-resend-bounced-mail
+If the message at current cursor point is a bounced message,
+a draft for re-sending original message is prepared.
+(@code{wl-summary-resend-bounced-mail})
+
+@item f
+@kindex f (Summary)
+@findex wl-summary-forward
+A draft for forwarding the message at current cursor point is prepared.
+(@code{wl-summary-forward})
+
+@item $
+@kindex $ (Summary)
+@findex wl-summary-mark-as-important
+Put @samp{$} mark on the message at current cursor point.
+If already marked as @samp{$}, delete it.
+(@code{wl-summary-mark-as-important})
+
+@item y
+@itemx e
+@kindex y (Summary)
+@kindex e (Summary)
+Save the message at current cursor point.
+@findex wl-summary-save
+(@code{wl-summary-save})
+
+@item n
+@kindex n (Summary)
+@findex wl-summary-next
+Move cursor to the next message.
+(@code{wl-summary-next})
+
+@item p
+@kindex p (Summary)
+@findex wl-summary-prev
+Move cursor to the previous message.
+(@code{wl-summary-prev})
+
+@item N
+@kindex N (Summary)
+@findex wl-summary-down
+Move cursor to the downward message which is unread or marked
+as @samp{$}.
+(@code{wl-summary-down})
+
+@item P
+@kindex P (Summary)
+@findex wl-summary-up
+Move cursor to the upward message which is unread or marked
+as @samp{$}.
+(@code{wl-summary-up})
+
+@item w
+@kindex w (Summary)
+@findex wl-draft
+Prepare a new draft.
+(@code{wl-draft})
+
+@item W
+@kindex W (Summary)
+@findex wl-draft-write-current-newsgroup
+Prepare a new draft.
+If the current folder is netnews folder, Newsgroups: field is completed.
+(@code{wl-draft-write-current-newsgroup})
+
+@item H
+@kindex H (Summary)
+@findex wl-summary-redisplay-all-header
+Redisplay the message at current cursor point with all header fields.
+(@code{wl-summary-redisplay-all-header})
+
+@item M
+@kindex M (Summary)
+@findex wl-summary-redisplay-no-mime
+Redisplay the message at current cursor point without MIME analysis.
+(@code{wl-summary-redisplay-no-mime})
+
+@item B
+@kindex B (Summary)
+@findex wl-summary-burst
+If the message at current cursor point has 
+encapsulates multiple messages using MIME,
+de-capsulate and extract them on the current folder.
+(@code{wl-summary-burst})
+
+@item @@
+@kindex @@ (Summary)
+@findex wl-summary-edit-addresses
+Append/change/delete the message's sender information to the address book
+@file{~/.addresses} interactively.
+If this command is called with prefix argument, arbitrary address can be edited.
+(@code{wl-summary-edit-petname})
+
+@item Z
+@kindex Z (Summary)
+@findex wl-status-update
+Sync up address book status with @file{~/.addresses}'s content.
+(@code{wl-status-update})
+
+@item |
+@kindex | (Summary)
+@findex wl-summary-pipe-message
+Pipe current message's content to the external process.
+(@code{wl-summary-pipe-message})
+
+@item #
+@kindex # (Summary)
+@findex wl-summary-print-message
+Print out current message's content.
+It uses ps-print module in Emacs 20.x.
+If you don't use color printer, you might want to set
+@code{wl-ps-print-buffer-func} to 'ps-print-buffer.
+(@code{wl-summary-print-message})
+
+@item q
+@kindex q (Summary)
+@findex wl-summary-exit
+Exit current folder.
+(@code{wl-summary-exit})
+
+@item j
+@kindex j (Summary)
+@findex wl-summary-jump-to-current-message
+Jump cursor to the currently displayed message's window.
+(@code{wl-summary-jump-to-current-message})
+
+@item J
+@kindex J (Summary)
+Jump cursor to the other message.
+@findex wl-summary-jump-to-msg
+(@code{wl-summary-jump-to-msg})
+
+@item I
+@kindex I (Summary)
+Update summary status and
+prefetch all messages which have marks included in the 
+@code{wl-summary-incorporate-marks}.
+@findex wl-summary-incorporate
+(@code{wl-summary-incorporate})
+
+@item M-j
+@kindex M-j (Summary)
+@findex wl-summary-jump-to-msg-by-message-id
+Jump cursor to the message which have specified Message-Id.
+If @code{elmo-use-database} is non-nil, other folder is also searched.
+(@code{wl-summary-jump-to-msg-by-message-id})
+
+@item ^
+@kindex ^ (Summary)
+Jump to parent message.
+@findex wl-summary-jump-to-parent-message
+(@code{wl-summary-jump-to-parent-message})
+
+@item !
+@kindex ! (Summary)
+@findex wl-summary-mark-as-unread
+Mark as unread the message at current cursor point.
+(@code{wl-summary-mark-as-unread})
+
+@item s
+@kindex s (Summary)
+@findex wl-summary-sync
+Synchronize summary view after prompting the update range
+(all, update, rescan, first, last).
+
+@example
+all            ...Discard current summary and update all message.
+update         ...Update the difference between summary and the folder itself.
+rescan         ...Rescan the msgdb and display again.
+rescan-noscore ...Rescan the msgdb and display again (without scoring).
+first, last    ...Move to the filter folder(partial filter).
+@end example
+
+@noindent
+(@code{wl-summary-sync})
+
+@item S
+@kindex S (Summary)
+@findex wl-summary-sort
+Sort summary order.
+You can sort by date, from, number and subject.
+(@code{wl-summary-sort})
+
+@item T
+@kindex T (Summary)
+@findex wl-summary-toggle-thread
+Toggle the threading.
+(@code{wl-summary-toggle-thread})
+
+@item l
+@kindex l (Summary)
+@findex wl-summary-toggle-disp-folder
+Toggle displaying of folder window.
+(@code{wl-summary-toggle-disp-folder})
+
+@item v
+@kindex v (Summary)
+Toggle displaying of message window.
+@findex wl-summary-toggle-disp-msg
+(@code{wl-summary-toggle-disp-msg})
+
+@item V
+@kindex V (Summary)
+Move to the virtual folder with the condition specified.
+If called with prefix argument and current folder is virtual, exit it.
+@findex wl-summary-virtual
+(@code{wl-summary-virtual})
+
+@item @key{TAB}
+@kindex @key{TAB} (Summary)
+@findex wl-summary-goto-last-displayed-msg
+Jump to the message which is displayed last.
+(@code{wl-summary-goto-last-displayed-msg})
+
+@item ?
+@kindex ? (Summary)
+Put @samp{*} mark on the messages that satisfies the specified condition.
+@findex wl-summary-pick
+(@code{wl-summary-pick})
+
+@item R
+@kindex R (Summary)
+@findex wl-summary-mark-as-read
+Mark as read the message at the current cursor point.
+(@code{wl-summary-mark-as-read})
+
+@item i
+@kindex i (Summary)
+Prefetch the message at the current cursor point.
+@findex wl-summary-prefetch
+(@code{wl-summary-prefetch})
+
+@item x
+@kindex x (Summary)
+Execute @samp{D}, @samp{o} and @samp{O} marks.
+@findex wl-summary-exec
+(@code{wl-summary-exec})
+
+@item *
+@kindex * (Summary)
+@findex wl-summary-target-mark-line
+Put target mark on the message at the current cursor point.
+(@code{wl-summary-target-mark-line})
+
+@item o
+@kindex o (Summary)
+Put refile mark on the message at the current cursor point.
+@findex wl-summary-refile
+(@code{wl-summary-refile})
+
+@item C-o
+@kindex C-o (Summary)
+Execute auto refile.
+@findex wl-summary-auto-refile
+(@code{wl-summary-auto-refile})
+
+@item O
+@kindex O (Summary)
+Put copy mark on the message at the current cursor point.
+@findex wl-summary-copy
+(@code{wl-summary-copy})
+
+@item M-o
+@kindex M-o (Summary)
+Put refile mark on the message at the current cursor point with the destination
+previously specified.
+@findex wl-summary-refile-prev-destination
+(@code{wl-summary-refile-prev-destination})
+
+@item d
+@kindex d (Summary)
+@findex wl-summary-delete
+Put delete mark on the message at the current cursor point.
+(@code{wl-summary-delete})
+
+@item u
+@kindex u (Summary)
+@findex wl-summary-unmark
+Unmark the temporal mark on the message at the current cursor point.
+(@code{wl-summary-unmark})
+
+@item U
+@kindex U (Summary)
+Unmark all the temporal marks.
+@findex wl-summary-unmark-all
+(@code{wl-summary-unmark-all})
+
+@item r R
+@kindex r R (Summary)
+@findex wl-summary-mark-as-read-region
+Mark as read messages in the specified region.
+(@code{wl-summary-mark-as-read-region})
+
+@item r $
+@kindex r $ (Summary)
+@findex wl-summary-mark-as-important-region
+Mark as important @samp{$} messages in the specified region.
+If @samp{$} already exists, it is deleted.
+(@code{wl-summary-mark-as-important-region})
+
+@item r !
+@kindex r ! (Summary)
+@findex wl-summary-mark-as-unread-region
+Mark as unread messages in the specified region.
+(@code{wl-summary-mark-as-unread-region})
+
+@item r i
+@kindex r i (Summary)
+@findex wl-summary-prefetch-region
+Prefetch messages in the specified region.
+(@code{wl-summary-prefetch-region})
+
+@item r x
+@kindex r x (Summary)
+@findex wl-summary-exec-region
+Execute @samp{D}, @samp{o} and @samp{O} marks on the messages in the
+specified region.
+(@code{wl-summary-exec-region})
+
+@item r *
+@kindex r * (Summary)
+@findex wl-summary-target-mark-region
+Put target mark on the messages in the specified region.
+(@code{wl-summary-target-mark-region})
+
+@item r o
+@kindex r o (Summary)
+@findex wl-summary-refile-region
+Put refile mark on the messages in the specified region.
+(@code{wl-summary-refile-region})
+
+@item r O
+@kindex r O (Summary)
+@findex wl-summary-copy-region
+Put copy mark on the messages in the specified region.
+(@code{wl-summary-copy-region})
+
+@item r d
+@kindex r d (Summary)
+@findex wl-summary-delete-region
+Put delete mark on the messages in the specified region.
+(@code{wl-summary-delete-region})
+
+@item r u
+@kindex r u (Summary)
+@findex wl-summary-unmark-region
+Delete temporal mark on the messages in the specified region.
+(@code{wl-summary-unmark-region})
+
+@item r y
+@kindex r y (Summary)
+Save messages in the specified region.
+@findex wl-summary-save-region
+(@code{wl-summary-save-region})
+
+@item t R
+@kindex t R (Summary)
+@findex wl-thread-mark-as-read
+Mark as read messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-mark-as-read})
+
+@item t $
+@kindex t $ (Summary)
+@findex wl-thread-mark-as-important
+Put important mark @samp{$} on the messages which are the 
+descendant of the current thread.
+If @samp{$} mark exists, it is deleted.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-mark-as-important})
+
+@item t !
+@kindex t ! (Summary)
+@findex wl-thread-mark-as-unread
+Mark as unread messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-mark-as-unread})
+
+@item t i
+@kindex t i (Summary)
+@findex wl-thread-prefetch
+Prefetch messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-prefetch})
+
+@item t x
+@kindex t x (Summary)
+@findex wl-thread-exec
+Execute @samp{D}, @samp{o} and @samp{O} marks on the messages which are
+the descendant of the current thread.  With prefix argument, it affects
+on the all messages in the thread tree.
+(@code{wl-thread-exec})
+
+@item t *
+@kindex t * (Summary)
+@findex wl-thread-target-mark
+Put target mark @samp{*} on the messages which are the descendant of the
+current thread.  With prefix argument, it affects on the all messages in
+the thread tree.
+(@code{wl-thread-target-mark})
+
+@item t o
+@kindex t o (Summary)
+@findex wl-thread-refile
+Put refile mark on the messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-refile})
+
+@item t O
+@kindex t O (Summary)
+@findex wl-thread-copy
+Put copy mark on the messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-copy})
+
+@item t d
+@kindex t d (Summary)
+@findex wl-thread-delete
+Put delete mar on the messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-delete})
+
+@item t u
+@kindex t u (Summary)
+@findex wl-thread-unmark
+
+Unmark temporal mark on the messages which are the descendant of the
+current thread. With prefix argument, it affects on the all messages in
+the thread tree. 
+(@code{wl-thread-unmark})
+
+@item t y
+@kindex t y (Summary)
+@findex wl-thread-save
+Save messages which are the descendant of the current thread.
+With prefix argument, it affects on the all messages in the thread tree.
+(@code{wl-thread-save})
+
+@item m i
+@kindex m i (Summary)
+@findex wl-summary-target-mark-prefetch
+Prefetch all messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-prefetch})
+
+@item m R
+@kindex m R (Summary)
+@findex wl-summary-target-mark-mark-as-read
+Mark as read all messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-mark-as-read})
+
+@item m $
+@kindex m $ (Summary)
+@findex wl-summary-target-mark-mark-as-important
+Mark as important all messages which have target mark @samp{*}.
+If already marked as @samp{$}, it is deleted.
+(@code{wl-summary-target-mark-mark-as-important})
+
+@item m !
+@kindex m ! (Summary)
+@findex wl-summary-target-mark-mark-as-unread
+Mark as unread all messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-mark-as-unread})
+
+@item m o
+@kindex m o (Summary)
+@findex wl-summary-target-mark-refile
+Put refile mark on the messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-refile})
+
+@item m O
+@kindex m O (Summary)
+@findex wl-summary-target-mark-copy
+Put copy mark on the messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-copy})
+
+@item m d
+@kindex m d (Summary)
+@findex wl-summary-target-mark-delete
+Put delete mark on the messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-delete})
+
+@item m y
+@kindex m y (Summary)
+@findex wl-summary-target-mark-save
+Save messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-save})
+
+@item m u
+@kindex m u (Summary)
+Unmark all temporal marks.
+(@code{wl-summary-delete-all-temp-marks})
+@findex wl-summary-delete-all-temp-marks
+
+@item m a
+@kindex m a (Summary)
+Put target mark @samp{*} on the all messages.
+(@code{wl-summary-target-mark-all})
+@findex wl-summary-target-mark-all
+
+@item m t
+@kindex m t (Summary)
+Put target mark @samp{*} on the messages in the current thread.
+@findex wl-summary-target-mark-thread
+(@code{wl-summary-target-mark-thread})
+
+@item m r
+@kindex m r (Summary)
+@findex wl-summary-target-mark-region
+Put target mark @samp{*} on the messages in the specified region.
+(@code{wl-summary-target-mark-region})
+
+@item m A
+@kindex m A (Summary)
+@findex wl-summary-target-mark-reply-with-citation
+Prepare a draft which cites all messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-reply-with-citation})
+
+@item m f
+@kindex m f (Summary)
+@findex wl-summary-target-mark-forward
+Prepare a draft which forwards all messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-forward})
+
+@item m U
+@kindex m U (Summary)
+@findex wl-summary-target-mark-uudecode
+Uudecode the messages which have target mark @samp{*}.
+(@code{wl-summary-target-mark-uudecode})
+
+@item m ?
+@kindex m ? (Summary)
+@findex wl-summary-target-mark-pick
+Pick messages from the @samp{*} marked messages. 
+That is, @samp{*} marks on the messages are remained
+if the specified condition is satisfied.
+(@code{wl-summary-target-mark-pick})
+
+@item M-t
+@kindex M-t (Summary)
+@findex wl-toggle-plugged
+Toggle offline/online status of Wanderlust.
+(@code{wl-toggle-plugged})
+
+@item C-t
+@kindex C-t (Summary)
+Start Wanderlust's plug-status manager.
+(@code{wl-plugged-change})
+
+@item C-c C-o
+@kindex C-c C-o (Summary)
+@findex wl-jump-to-draft-buffer
+Move to the draft buffer if available.  If multiple draft buffer exists,
+moved to one after another.  If prefix argument is specified, load draft
+folder's message to the draft buffer and jump to it.
+(@code{wl-jump-to-draft-buffer})
+@end table
+
+@section Customize variables
+
+@table @code
+@item wl-summary-move-order
+@vindex wl-summary-move-order
+The initial setting is 'unread.
+Specify cursor moving policy.
+If you want to precede new messages, set 'new.
+If you want to precede unread messages, set 'unread.
+If nil, proceed to next message.
+
+@item wl-auto-select-first
+@vindex wl-auto-select-first
+The initial setting is nil.
+If non-nil, first message is automatically displayed.
+
+@item wl-auto-select-next
+@vindex wl-auto-select-next
+The initial setting is nil.
+If non-nil, jump to next summary automatically.
+If 'unread, jump to next unread folder's summary after confirmation.
+If 'skip-no-unread, unread folders are automatically skipped.
+
+@item wl-thread-insert-opened
+@vindex wl-thread-insert-opened
+The initial setting is nil.
+If non-nil, thread is inserted as opened.
+
+@item wl-thread-open-reading-thread
+@vindex wl-thread-open-reading-thread
+The initial setting is t.
+If non-nil, reading thread is automatically opened though it is closed thread.
+
+@item wl-summary-exit-next-move
+@vindex wl-summary-exit-next-move
+The initial setting is t.
+If non-nil, move to next folder at summary exit.
+
+@item wl-folder-move-cur-folder
+@vindex wl-folder-move-cur-folder
+The initial setting is nil.
+If non-nil, cursor position on the folder is moved.
+
+@item wl-summary-weekday-name-lang
+@vindex  wl-summary-weekday-name-lang
+The initial setting is "ja".
+Specify language of the weekday.
+"en" displays English, "fr" displays French, "de" displays Deutsch.
+
+@item wl-summary-fix-timezone
+@vindex  wl-summary-fix-timezone
+The initial setting is "JST".
+Timezone to adjust summary's timezone.
+If nil, adjust to UTC.
+
+@item wl-use-petname
+@vindex  wl-use-petname
+The initial setting is t.
+If non-nil, sender part displays nickname.
+
+@item wl-break-pages
+@vindex  wl-break-pages
+The initial setting is t.
+If non-nil, message is splitted as pages by @samp{^L}.
+
+@item wl-message-window-size
+@vindex  wl-message-window-size
+The initial setting is '(1 . 4).
+A cons cell to specify the rate of summary and message window.
+car:cdr corresponds summary:message.
+
+@item wl-summary-recenter
+@vindex  wl-summary-recenter
+The initial setting is t.
+If non-nil, cursor point is moved to the center of the summary window.
+
+@item wl-summary-indent-length-limit
+@vindex  wl-summary-indent-length-limit
+The initial setting is 46.
+Specify the limit of thread indent level.
+If nil, max indent level is unlimited.
+
+@item wl-summary-no-from-message
+@vindex  wl-summary-no-from-message
+The initial setting is "nobody@@nowhere?".
+A string which is displayed when there's no From: field in the message.
+
+@item wl-summary-no-subject-message
+@vindex  wl-summary-no-subject-message
+The initial setting is "(WL:No Subject in original.)".
+A string which is displayed when there's no Subject: field in the message.
+
+@item wl-summary-width
+@vindex  wl-summary-width
+The initial setting is 80.
+Width of summary line. If nil, summary line's width is as is.
+
+@item wl-use-folder-petname
+@vindex  wl-use-folder-petname
+The initial setting is '(modeline).
+A list of display policy (symbol) of folder nickname.
+Available symbols are:
+
+@table @code
+@item modeline
+Display folder petname on modeline.
+@item ask-folder
+Destination folder is notified as nickname if
+@code{wl-auto-select-next} is non-nil.
+@item read-folder
+You can input folder name by nickname in the function
+@code{wl-summary-read-folder}.
+@end table
+
+@item wl-summary-move-direction-toggle
+@vindex  wl-summary-move-direction-toggle
+The initial setting is t.
+If non-nil, last executed @kbd{p}, @kbd{P}, @kbd{n}, @kbd{N} toggles
+the direction of cursor move.
+If you want to aware of reading direction, set this to t.
+
+@item wl-from-width
+@vindex wl-from-width
+The initial setting is 17.
+Width of sender part of summary line.
+
+@item wl-summary-divide-thread-when-subject-changed
+@vindex wl-summary-divide-thread-when-subject-changed
+The initial setting is nil.
+If non-nil, thread is splitted if the subject is changed.
+
+@item wl-summary-search-via-nntp
+@vindex wl-summary-search-via-nntp
+The initial setting is 'confirm.
+If non-nil and @code{wl-summary-jump-to-msg-by-message-id} failed,
+call @code{wl-summary-jump-to-msg-by-message-id-via-nntp} and
+search message from the NNTP server @code{elmo-default-nntp-server}.
+The value of @code{elmo-default-nntp-user}, @code{elmo-default-nntp-port}, 
+@code{elmo-default-nntp-ssl} are used. If 'confirm, server name can
+be specified. You can specify NNTP folder format like 
+@samp{-:username@@servername:119!}.
+
+@item wl-summary-keep-cursor-command
+@vindex wl-summary-keep-cursor-command
+The initial setting is 
+'(wl-summary-goto-folder wl-summary-goto-last-visited-folder).
+When you entered to summary by these commands and the target summary
+buffer already exists, summary status is not automatically updated and 
+cursor position is saved.
+
+@item wl-summary-update-confirm-threshold
+@vindex wl-summary-update-confirm-threshold
+The initial setting is 500.
+If updated message number is larger than this value, 
+confirm whether drop them or not.
+
+@item wl-summary-always-sticky-folder-list
+@vindex wl-summary-always-sticky-folder-list
+The initial setting is nil.
+@code{wl-summary-always-sticky-folder-list} specifies the folders that are
+automatically sticked. Each element is regexp of folder name.
+
+@item wl-summary-reserve-mark-list
+@vindex wl-summary-reserve-mark-list
+The initial setting is '("o" "O" "D").
+If a message is already marked as temporal marks in this list, 
+the message is not marked by any mark command.
+
+@item wl-summary-skip-mark-list
+@vindex wl-summary-skip-mark-list
+The initial setting is '("D").
+If a message is already marked as temporal marks in this list, 
+the message is skipped at cursor move.
+
+@item wl-fetch-confirm-threshold
+@vindex wl-fetch-confirm-threshold
+The initial setting is 30000 (bytes).
+If displaying message has larger size than this value,
+Wanderlust confirms whether fetch the message or not.
+If nil, the message is fetched without confirmation.
+
+@item wl-prefetch-threshold
+@vindex wl-prefetch-threshold
+The initial setting is 30000 (bytes). 
+If prefetching message has larger size than this value and
+@code{wl-prefetch-confirm} is non-nil,
+Wanderlust confirms whether prefetch the message or not.
+If @code{wl-prefetch-threshold} is nil, the message is prefetched
+without confirmation.
+
+@item wl-prefetch-confirm
+@vindex wl-prefetch-confirm
+The initial setting is t. If non-nil, 
+Wanderlust confirms whether prefetch the message or not if the
+message has larger size than @code{wl-prefetch-threshold}.
+
+@item wl-cache-fetch-threshold
+@vindex wl-cache-fetch-threshold
+The initial setting is 30000 (bytes).
+The messages which have larger size than @code{wl-fetch-confirm-threshold}
+are skipped buffer caching mechanism. If nil, any messages are prefetched by
+buffer caching mechanism.
+
+@item elmo-imap4-use-cache
+@vindex elmo-imap4-use-cache
+The initial setting is t.
+If non-nil, messages read via IMAP4 are cached.
+
+@item elmo-nntp-use-cache
+@vindex elmo-nntp-use-cache
+The initial setting is t.
+If non-nil, messages read via NNTP are cached.
+
+@item elmo-pop3-use-cache
+@vindex elmo-pop3-use-cache
+The initial setting is t.
+If non-nil, messages read via POP3 are cached.
+@end table
+
+@c
+@c  Message
+@c
+@node Message, Draft, Summary, Top
+@chapter Message Buffer
+
+Message Buffers utilize MIME-View mode of SEMI/tm.
+For operational procedures and key bindings, refer to respective
+documents.
+@xref{MIME-View, , ,mime-ui-ja, a MIME user interface for GNU Emacs}.
+
+@kbd{p} at the top of a message or @kbd{n} at the bottom of a message
+brings you back to Summary mode.
+@kbd{l} toggles display of Summary mode buffer.
+
+@section Key Bindings
+
+@table @kbd
+
+@item l
+@kindex l (Message)
+@findex wl-message-toggle-disp-summary
+Toggles display of Summary mode buffer.
+(@code{wl-message-toggle-disp-summary})
+
+@item Button-2
+@findex wl-message-refer-article-or-url
+@kindex Button-2 (Message)
+Assumes Message-ID at the mouse pointer, and shows the corresponding
+message if found.
+(@code{wl-message-refer-article-or-url})
+
+@item Button-4 (upward movement of a wheel)
+@kindex Button-4 (Message)
+@findex wl-message-wheel-down
+Scrolls the message backwards.  When the top of the message is hit,
+moves to the previous message.
+(@code{wl-message-wheel-down})
+
+@item Button-5 (downward movement of a wheel)
+@kindex Button-5 (Message)
+@findex wl-message-wheel-up
+Scrolls the message forward.  When the bottom of the message is hit,
+moves to the next message.
+(@code{wl-message-wheel-up})
+@end table
+
+@section Customizable Variables
+
+@table @code
+@item wl-message-window-size
+@vindex wl-message-window-size
+Initial setting is @code{'(1 . 4)}.  It is a cons cell and the ratio of
+its car and cdr value corresponds to the ratio of Summary and Message
+windows.
+@end table
+
+@c
+@c  Draft
+@c
+@node Draft, Disconnected Operations, Message, Top
+@chapter Draft Buffer
+
+At Summary mode, pressing @kbd{w} and the like creates a new draft
+buffer.  You can edit and send mail and news articles in this buffer.
+
+@section Tips
+
+Basically it is Emacs-standard mail mode.
+
+@subsection Address Completion
+
+Initially, the cursor is at the To: field.  Fill in recipients
+addresses.  @kbd{@key{TAB}} completes them.
+
+If you want to submit a news article, add Newsgroups: field by
+yourself.  Field names can be completed by @kbd{@key{TAB}}.
+
+If you save the draft buffer you are editing, it is appended to the
+folder specified by @code{wl-draft-folder}.
+
+Using FCC: field, you can specify the folder to which a copy of the
+message is saved when it is sent.
+
+@subsection Editing Messages
+
+Multi-part editing utilize MIME edit mode of SEMI/tm.  For procedures of
+editing, refer to respective documents.
+@xref{Mail Methods, , ,mime-ui-ja, a MIME user interface for GNU Emacs}.
+
+@subsection Dynamic Modification of Messages
+@vindex wl-draft-config-alist
+
+@c @cindex Change Message
+@c @cindex Message, Change Dynamic
+
+You can set @code{wl-draft-config-alist} so that header and body of the
+message will automatically modified depending on information of header
+and others.
+
+The initial setting of @code{wl-draft-config-alist} is nil.
+
+In the example below, the header is modified when
+@code{wl-draft-send-and-exit} or @code{wl-draft-send} is invoked.
+You can set @code{wl-interactive-send} to non-nil so as to confirm
+changes before sending the message.
+
+@lisp
+(setq wl-draft-config-alist
+      '(((string-match "aaa.ne.jp$" (system-name))
+         ;; @r{applied if the expression is non-nil}
+         (wl-smtp-posting-server . "mailserver-B")
+         (wl-nntp-posting-server . "newsserver-B")
+         ;; @r{settings of temporary variables}
+         )
+        ("^To: .*user@@aaa.bbb.com"
+         ;; @r{applied if it matches the header of the draft buffer}
+         ("Organization" . (format "Go %s" my-webpage)))
+                       ;; @r{you can write elisp expressions here (eval only)}
+         (top . "Hello.\n")    ;; @r{inserted at the top of the body}
+         (bottom . "\nBye.\n") ;; @r{inserted at the bottom of the body}
+        ))
+@end lisp
+
+The format of @code{wl-draft-config-alist} is:
+
+@example
+'(("regexp of the header" or elisp expression
+  ("Field" . value(elisp expression))
+   (variable . value(elisp expression))
+   (sub-function . value(elisp expression))
+   function
+   @dots{})
+  ("regexp of the header" or elisp expression
+   ("Field" . value(elisp expression))
+   @dots{}))
+@end example
+
+Per default, there are 10 following sub-functions.
+
+@example
+'header:      Inserts the specified string at the bottom of the header.
+'header-file: Inserts the specified file at the bottom of the header.
+'x-face:      Inserts "X-Face" field with the content of the specified file.
+'top:         Inserts the specified string at the top of the body.
+'top-file:    Inserts the specified file at the top of the body.
+'body:        Replaces the body with the specified string.
+              Specifying nil deletes the entire body string.
+'body-file:   Replaces the body with the content of the specified file.
+'bottom:      Inserts the specified string at the bottom of the body.
+'bottom-file: Inserts the specified file at the top of the body.
+'template:    Applies the specified template.
+              (refer to the next subsection)
+@end example
+
+These are defined in @code{wl-draft-config-sub-func-alist} and you can
+change them or add your own functions.  If you read the code, you can
+easily find how to write the functions.
+
+At the first of each item, "a regular expression of the header" or an
+elisp expression should be specified.  In the case of an elisp
+expression, the item is applied when the expression is evaluated
+non-nil.
+
+Per default, when multiple items match or are evaluated non-nil, all
+such items are applied, but if you set a variable
+@code{wl-draft-config-matchone} to t, only the first matching one is
+applied.
+
+At the second of the item, a cons or a list of functions should be
+specified.  The car part of the cons should be a header field, a
+variable, or a sub-function.  When a header field is specified, the field
+will be modified.  If a variable is specified, the value of the variable
+will be modified temporarily.
+
+In the cdr part of a cons, not only a variable but also an elisp
+expression can be specified as is.  If the car part is a header field
+and the cdr part is nil, the field will be deleted.
+
+See the next example as well:
+
+@lisp
+(setq wl-draft-config-alist
+      '((reply                         ;; @r{(1)}
+         "X-ML-Name: \\(Wanderlust\\|emacs-mime-ja\\|apel-ja\\)"
+         ;; @r{applied if it matches the header of the buffer being replied}
+         (body . "  Hello.\n")
+         (template . "default")
+         )))
+@end lisp
+
+As in the (1) above, if a header regexp is prepended with @code{reply},
+it is applied when the draft is prepared by @code{wl-summary-reply} for
+example, and when it matches the header being replied.  It is ignored
+when there is no buffer being replied, like after @code{wl-draft} was
+invoked.
+
+Note that @code{wl-draft-config-alist} is applied only once when
+@code{wl-draft-send-and-exit} or @code{wl-draft-send} is invoked.
+Therefore, if you want to apply @code{wl-draft-config-alist} again after 
+aborting transmission, execute @kbd{C-c C-e}
+(@code{wl-draft-config-exec}).
+
+If you want to apply @code{wl-draft-config-alist} when a draft buffer is 
+prepared, do the following:
+
+@lisp
+(add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
+@end lisp
+
+@subsection Inserting Templates
+@cindex Template
+@cindex Apply Template
+
+Set a variable @code{wl-template-alist}, and type
+@kbd{C-c C-j} or @kbd{M-x wl-template-select}
+in the draft buffer.
+
+The format of @code{wl-template-alist} is almost the same as
+@code{wl-draft-config-alist}.
+
+@lisp
+(setq wl-template-alist
+      '(("default"
+         ("From" . wl-from)
+         ("Organization" . "~/.wl sample")
+         (body . "Hello.\n"))
+        ("report"
+         (template . "default")                 ;; @r{(a)}
+         ("To" . "jousi@@kaisha.jp")
+         ("Subject" . "Report")
+         (body-file . "~/work/report.txt")
+         )
+        ))
+@end lisp
+
+As you can see, the only difference is item (template) names such as
+"default" and "report", instead of a regexp of header.
+Because definition of each item is the same as
+@code{wl-draft-config-alist}, you can call another template, like (a).
+
+Executing the command @code{wl-template-select} results in template
+selection, but the result differs depending on variable
+@code{wl-template-visible-select}.
+
+If @code{wl-template-visible-select} is t (default), a buffer window is
+shown below the draft buffer.  You can select a template by @kbd{n} and
+@kbd{p} seeing the buffer window.
+
+Press the RETURN key and the template is actually applied to the draft
+buffer.  If you press @kbd{q}, nothing is applied.  In addition, you can 
+adjust the window size by @code{wl-template-buffer-lines}.
+
+If @code{wl-template-visible-select} is nil, you should type the name of
+the template in the mini buffer.
+
+As shown in the example in @code{wl-draft-config-alist}, you can select
+"default" template by writing:
+
+@example
+(template . "default")
+@end example
+
+@noindent
+
+@subsection Sending mail by POP-before-SMTP
+@cindex POP-before-SMTP
+
+You can send mail by POP-before-SMTP with this single line:
+
+@lisp
+(setq wl-draft-send-mail-func 'wl-draft-send-mail-with-pop-before-smtp)
+@end lisp
+
+@noindent
+Configure the following variables if you need.
+
+@table @code
+@item wl-pop-before-smtp-user
+The POP user name for POP-before-SMTP authentication.
+If unset, @code{elmo-default-pop3-user} is used.
+
+@item wl-pop-before-smtp-server
+The POP server name for POP-before-SMTP authentication.
+If unset, @code{elmo-default-pop3-server} is used.
+
+@item wl-pop-before-smtp-authenticate-type
+The POP authentication method for POP-before-SMTP authentication.
+If unset, @code{elmo-default-pop3-authenticate-type} is used.
+
+@item wl-pop-before-smtp-port
+The POP port number for POP-before-SMTP authentication.
+If unset, @code{elmo-default-pop3-port} is used.
+
+@item wl-pop-before-smtp-ssl
+If non-nil, POP connection is established using SSL.
+If 'starttls, STARTTLS (RFC2595) connection will be established.
+If unset, @code{elmo-default-pop3-ssl} is used.
+@end table
+
+If variables for POP-before-SMTP (@code{wl-pop-before-smtp-*}) are 
+unset, settings for POP folders (@code{elmo-default-pop3-*}) are
+used.
+Therefore, if SMTP server and POP server are actually the same, and if
+POP folder per default (such as @samp{&}) is available, no settings are
+required.
+
+Refer to the following URL about POP-before-SMTP.
+
+@example
+http://spam.ayamura.org/tools/smPbS.html
+http://www.iecc.com/pop-before-smtp.html
+@end example
+
+@section Key Bindings
+@cindex Keybind, Draft Mode
+@cindex Keybind, Draft Buffer
+
+@table @kbd
+
+@item C-c C-y
+@kindex C-c C-y (Draft)
+@findex wl-draft-yank-original
+Cites the content of the current message buffer.
+(@code{wl-draft-yank-original})
+
+@item C-c C-p
+@kindex C-c C-p (Draft)
+@findex wl-draft-preview-message
+Previews the content of the current draft.
+This is useful for previewing MIME multi-part messages.
+(@code{wl-draft-preview-message})
+
+@item C-c C-s
+@kindex C-c C-s (Draft)
+@findex wl-draft-send
+Sends the content of the current draft.  Does not erase the draft buffer.
+This is useful for sending multiple messages, which are a little different
+from each other.
+(@code{wl-draft-send})
+
+@item C-c C-c
+@kindex C-c C-c (Draft)
+@findex wl-draft-send-and-exit
+Sends the content of the current draft and erases the draft buffer.
+(@code{wl-draft-send-and-exit})
+
+@item C-x C-s
+@kindex C-x C-s (Draft)
+@findex wl-draft-save
+Save the current draft.
+(@code{wl-draft-save})
+
+@item C-c C-k
+@kindex C-c C-k (Draft)
+@findex wl-draft-kill
+Kills the current draft.
+(@code{wl-draft-kill})
+
+@c @item C-x k
+@c @kindex C-x k (Draft)
+@c @findex wl-draft-mimic-kill-buffer
+@c Kills the current draft.
+@c (@code{wl-draft-mimic-kill-buffer})
+
+@item C-c C-z
+@kindex C-c C-z (Draft)
+@findex wl-draft-save-and-exit
+Saves the current draft, and erases the draft buffer.
+This is useful if you want to suspend editing of the draft.
+You can resume editing by pressing @kbd{E} (@code{wl-summary-reedit}) in
+the @samp{+draft} folder.
+(@code{wl-draft-save-and-exit})
+
+@item C-c C-r
+@kindex C-c C-r (Draft)
+@findex wl-caesar-region
+Encodes or decodes the specified region in Caesar cipher.
+(@code{wl-caesar-region})
+
+@item M-t
+@kindex M-t (Draft)
+@findex wl-toggle-plugged
+Toggles off-line/on-line states of Wanderlust.
+(@code{wl-toggle-plugged})
+
+@item C-c C-o
+@kindex C-c C-o (Draft)
+@findex wl-jump-to-draft-buffer
+Jumps to the other draft buffer, if exists.
+With prefix argument, reads a file (if any) from the draft folder when
+there is no such buffer.
+(@code{wl-jump-to-draft-buffer})
+
+@item C-c C-e
+@kindex C-c C-e (Draft)
+@findex wl-draft-config-exec
+Applies @code{wl-draft-config-alist}.
+(@code{wl-draft-config-exec})
+
+@item C-c C-j
+@kindex C-c C-j (Draft)
+@findex wl-template-select
+Selects a template.
+(@code{wl-template-select})
+
+@item C-c C-a
+@kindex C-c C-a (Draft)
+@findex wl-draft-insert-x-face-field
+Inserts the content of a file @file{~/.xface} (the value of the variable
+@code{wl-x-face-file}) as an X-Face field in the draft buffer.
+
+There should be encoded X-Face strings as a content of a file @file{~/.xface}.
+(@code{wl-draft-insert-x-face-field})
+@end table
+
+@section Customizable Variables
+
+@table @code
+@item wl-subscribed-mailing-list
+@vindex wl-subscribed-mailing-list
+The initial setting is nil.
+Mailing lists to which you subscribe.
+If any of these are contained in To or Cc field of a reply draft,
+removes your own address from Mail-Followup-To and Cc.
+And if any of these are contained in To or Cc field of a message to be
+automatically re-filed, the destination folder will be leaned in
+connection with the address.
+@item wl-insert-mail-followup-to
+@vindex wl-insert-mail-followup-to
+The initial setting is nil.
+If non-nil, Mail-Followup-To field is automatically inserted in the
+draft buffer.
+
+@item wl-insert-mail-reply-to
+@vindex wl-insert-mail-reply-to
+The initial setting is nil.
+If non-nil, Mail-Reply-To field is automatically inserted in the
+draft buffer.
+
+@item wl-auto-insert-x-face
+@vindex wl-auto-insert-x-face
+The initial setting is t.
+If non-nil and there is an encoded X-Face string in a file
+@file{~/.xface} (the value of the variable @code{wl-x-face-file}),
+inserts it as an X-Face field in the draft buffer.
+If nil, it is not automatically inserted. Press @kbd{C-c C-a} to insert.
+
+@item wl-insert-message-id
+@vindex wl-insert-message-id
+The initial setting is t.
+If non-nil, Message-ID field is automatically inserted on the
+transmission.
+
+@item wl-local-domain
+@vindex wl-local-domain
+The initial setting is nil.
+If nil, the return value of the function @code{system-name} will be
+used as the domain part of Message-ID.
+
+If @code{system-name} does not return FQDN (i.e. the full name of the
+host, like @samp{smtp.gohome.org}), you @strong{must} set this variable to the
+string of the local domain name without hostname (like @samp{gohome.org}). 
+That is, a concatenation of @code{system-name} "." @code{wl-local-domain} 
+is used as domain part of the Message-ID.
+
+If your terminal does not have global IP, set the value of
+@code{wl-message-id-domain}.
+(You might be beaten up on the Net News if you use invalid Message-ID.)
+
+Moreover, 
+concatenation of @code{system-name} "." @code{wl-local-domain} 
+will be used as an argument to the HELO command in SMTP.
+
+@item wl-message-id-domain
+@vindex wl-message-id-domain
+The initial setting is nil.
+If non-nil, this value is used as a domain part of the Message-ID.
+If your terminal does not have global IP, set unique string to this value
+(e.x. your e-mail address).
+
+@item wl-message-id-domain
+@vindex wl-message-id-domain
+The initial setting is nil.
+If nil, the return value of the function @code{system-name} will be
+used as the domain part of Message-ID.
+If @code{system-name} does not return FQDN (i.e. the full name of the
+host, like smtp.gohome.org), you @strong{must} set this variable to the
+string of the full name of the host.  Otherwise, you might be beaten up
+on the Net News.
+
+@item wl-draft-config-alist
+@vindex wl-draft-config-alist
+The initial setting is nil.
+Modifies the draft message just before the transmission.
+The content of @code{wl-draft-config-alist} will be automatically
+applied only once on the transmission.  If you want to apply it
+manually, use @kbd{C-c C-e}.  This command can be used many times.
+
+@item wl-template-alist
+@vindex wl-template-alist
+The initial setting is nil.
+This variable specifies the template to be applied in the draft buffer.
+
+@item wl-draft-config-matchone
+@vindex wl-draft-config-matchone
+The initial setting is nil.
+If non-nil, only the first matching item is used when
+@code{wl-draft-config-alist} is applied.  If nil, all matching items are 
+used.
+
+@item wl-template-visible-select
+@vindex wl-template-visible-select
+The initial setting is t.
+If non-nil, you can preview the result of the template selection in
+another window.
+
+@item wl-template-confirm
+@vindex wl-template-confirm
+The initial setting is nil.
+If non-nil, asks for confirmation when you press the enter key to select
+template while previewing.
+
+@item wl-template-buffer-lines
+@vindex wl-template-buffer-lines
+The initial setting is 7.
+If @code{wl-template-visible-select} is non-nil, this variable specifies 
+the size of the preview window.
+
+@item wl-draft-reply-buffer-style
+@vindex wl-draft-reply-buffer-style
+The initial setting is 'split.
+'split or 'full can be specified.
+In the case of 'full, the whole frame will be used for a reply draft
+buffer when it is prepared.
+
+@item wl-from
+@vindex wl-from
+The initial setting is the value of the variable @code{user-mail-address}.
+The value of this variable is inserted as a From field of the draft when
+it is prepared.
+
+@item wl-envelope-from
+@vindex wl-envelope-from
+The initial setting is nil.
+The value of this variable is used for envelope from (MAIL FROM).
+If nil, the address part of @code{wl-from} is used.
+
+@item wl-user-mail-address-list
+@vindex wl-user-mail-address-list
+The initial setting is nil.
+This is the User's address list.  If you have multiple addresses,
+set this variable.
+
+@item wl-fcc
+@vindex wl-fcc
+The initial setting is nil.
+If non-nil, the value of this variable is inserted as a FCC of the draft
+when it is prepared.
+
+@item wl-bcc
+@vindex wl-bcc
+The initial setting is nil.
+If non-nil, the value of this variable is inserted as a Bcc of the draft
+when it is prepared.
+
+@item wl-reply-subject-prefix
+@vindex wl-reply-subject-prefix
+The initial setting is "Re: ".
+In the Subject of the reply draft, this string is prepended to the
+Subject of being replied.
+
+@item wl-draft-enable-queuing
+@vindex wl-draft-enable-queuing
+The initial setting is t.
+This flag controls off-line transmission.  If non-nil, the draft is
+sent off-line.
+
+@item wl-auto-flush-queue
+@vindex wl-auto-flush-queue
+The initial setting is t.
+This flag controls automatic transmission of the queue when Wanderlust
+becomes on-line.  If non-nil, the queue is automatically transmitted
+(with confirmation by @code{y-or-n-p}).  If you want to transmit it
+manually, press @kbd{F} in the folder mode.
+
+@item wl-draft-always-delete-myself
+@vindex wl-draft-always-delete-myself
+If non-nil, always removes your own address from To and CC when you are
+replying to the mail addressed to you.
+
+@item wl-smtp-posting-server
+@vindex wl-smtp-posting-server
+The initial setting is nil.
+This is the SMTP server name for mail transmission.
+
+@item wl-smtp-posting-user
+@vindex wl-smtp-posting-user
+The initial setting is nil.
+This is the user name for SMTP AUTH authentication.
+If nil, @code{smtp-authenticate-user} is used.
+
+@item wl-smtp-authenticate-type
+@vindex wl-smtp-authenticate-type
+The initial setting is nil.
+This is the authentication method for SMTP AUTH authentication.
+If nil, @code{smtp-authenticate-type} is used.
+If it is still nil, authentication will not be carried out.
+
+@item wl-smtp-connection-type
+@vindex wl-smtp-connection-type
+The initial setting is nil.
+This variable specifies how to establish SMTP connections.
+If nil, @code{smtp-connection-type} is used.
+If it is 'starttls, STARTTLS (RFC2595) is used.
+
+@item wl-nntp-posting-server
+@vindex wl-nntp-posting-server
+The initial setting is nil.
+This is the NNTP server name used for news submission.
+If nil, @code{elmo-default-nntp-server} is used.
+
+@item wl-nntp-posting-user
+@vindex wl-nntp-posting-user
+The initial setting is nil.
+This is the user name for AUTHINFO authentication on news submission.
+If nil, @code{elmo-default-nntp-user} is used.
+If it is still nil, AUTHINFO authentication will not be carried out.
+
+@item wl-nntp-posting-port
+@vindex wl-nntp-posting-port
+The initial setting is nil.
+This is the port number of the NNTP server used for news submission.
+If nil, @code{elmo-default-nntp-server} is used.
+
+@item wl-nntp-posting-ssl
+@vindex wl-nntp-posting-ssl
+The initial setting is nil.
+If nil, @code{elmo-default-nntp-ssl} is evaluated.
+If non-nil, SSL is used for news submission.
+If 'starttls, STARTTLS (RFC2595) connection will be established.
+
+@item wl-pop-before-smtp-user
+@vindex wl-pop-before-smtp-user
+The initial setting is nil.
+This is the POP user name for POP-before-SMTP.
+If it is nil, @code{elmo-default-pop3-user} is used.
+
+@item wl-pop-before-smtp-server
+@vindex wl-pop-before-smtp-server
+The initial setting is nil.
+This is the POP server name for POP-before-SMTP.
+If it is nil, @code{elmo-default-pop3-server} is used.
+
+@item wl-pop-before-smtp-authenticate-type
+@vindex wl-pop-before-smtp-authenticate-type
+The initial setting is nil.
+This is the authentication method for POP-before-SMTP authentication.
+If it is nil, @code{elmo-default-pop3-authenticate} is used.
+
+@item wl-pop-before-smtp-port
+@vindex wl-pop-before-smtp-port
+The initial setting is nil.
+This is the POP port number for POP-before-SMTP.
+If it is nil, @code{elmo-default-pop3-port} is used.
+
+@item wl-pop-before-smtp-ssl
+@vindex wl-pop-before-smtp-ssl
+The initial setting is nil.
+This flag controls the use of SSL for POP-before-SMTP.
+If it is nil, @code{elmo-default-pop3-ssl} is used.
+
+@item wl-draft-queue-save-variables
+@vindex wl-draft-queue-save-variables
+Specifies a list of variable to which queued messages are saved on the
+off-line transmission.
+
+@item wl-draft-sendlog
+@vindex wl-draft-sendlog
+The initial setting is t.
+If t, transmission log is written in @file{~/.elmo/sendlog}.
+It is written when drafts are sent by smtp or qmail, and when they are
+saved into folders by fcc or queuing (it is written even if the
+transmission fails).
+But transmission by im-wl.el is not written in the sendlog and left to
+the logging function of imput.
+
+@item wl-draft-sendlog-max-size
+@vindex wl-draft-sendlog-max-size
+The initial setting is 20000 (in bytes).
+If @code{wl-draft-sendlog} is t, the log is rotated when it grows beyond 
+the size specified by this variable.
+@end table
+
+
+@c
+@c  Disconnected Operations
+@c
+@node Disconnected Operations, Expire and Archive, Draft, Top
+@chapter Off-line Management
+@cindex Disconnected Operations
+
+@section Off-line State
+
+Wanderlust has on-line and off-line states.
+In the off-line state, you cannot access messages via network, unless
+they are cached.
+
+@samp{[ON]} in the mode line indicates the on-line state.
+@samp{[--]} in the mode line indicates the off-line state.
+In folder or summary modes, press @kbd{M-t} to switch between off-
+and on-line.
+
+You can invoke Wanderlust in the off-line state by setting
+@code{wl-plugged} to nil in @file{~/.wl} or anything appropriate.
+
+Even in the off-line state, provided that relevant messages are cached,
+and the variable @code{elmo-enable-disconnected-operation} (described
+later) is non-nil, you can:
+
+@itemize @minus
+@item transmit messages
+@item re-file and copy (IMAP4)
+@item create folders (IMAP4)
+@item mark (IMAP4)
+@item pre-fetch (IMAP4, NNTP)
+@end itemize
+
+As soon as Wanderlust becomes on-line, such operations invoked
+off-line are reflected in the servers via network.
+
+@section Transmission of Messages
+
+You can send mail/news messages off-line (if you are using im-wl.el, it
+is irrelevant).  Messages sent off-line are accumulated in the queue
+folder, @samp{+queue}.  These messages are transmitted at once when
+Wanderlust becomes on-line.
+
+You can visit @samp{+queue} in the off-line state and confirm content
+of messages in the queue.  You can also remove messages.  Removed messages
+are not transmitted even in the on-line state.
+
+@section Re-file and Copy (IMAP4)
+
+Re-file and copy operations to IMAP folders invoked during the off-line
+state are accumulated in the queue, and reflected in the server side
+when Wanderlust becomes on-line.  If you visit destination folders after
+off-line re-file or copy, it looks as if messages were appended even in
+off-line state.
+
+For the safety reasons, messages re-filed off-line are removed from
+source folders only if their Message-ID match messages on the servers.
+While the queue is processed, messages that failed to be re-filed or
+copied to the specified folders are appended to the folder
+@samp{+lost+found}.
+
+@section Creation of Folders (IMAP4)
+
+You can create IMAP folders off-line.  The creation of folders are
+reflected in the servers when Wanderlust becomes on-line.  At that time, 
+if folders failed to be created on the servers for any reasons, messages
+re-filed to such folders are appended to the folder "+lost+found".
+
+@section Marking (IMAP4)
+
+Off-line changes in unread/read and importance mark @samp{$} information
+are also reflected in the servers when Wanderlust becomes on-line.
+
+@section Pre-fetching (IMAP4, NNTP)
+
+You can make reservations for pre-fetching messages in IMAP or NNTP
+folders.  Reserved messages are marked with @samp{!} but not cached
+yet.  When Wanderlust becomes on-line, they are pre-fetched from
+servers.
+
+If the variable @code{elmo-enable-disconnected-operation} is nil, these
+off-line operations for IMAP4 and NNTP do not take place, and off-line
+re-file, copy or suchlike simply results in error.
+
+Because off-line operations use cache files, it is a bad idea to erase
+them by hand; it may cause Wanderlust to malfunction.
+
+If you want to remove caches, be sure to execute
+@kbd{M-x elmo-cache-expire-by-size}.
+@code{elmo-cache-expire-by-size} does not remove caches for messages
+relevant to off-line operations.
+
+@section Switching On-line/Off-line per Server/Port
+
+@kbd{M-t} described above switches networking states as a whole, but you 
+can switch on-line/off-line per server/port.
+
+Pressing @kbd{C-t} in the folder or summary modes brings you in
+wl-plugged-mode shown below, in which you can change the plugged state
+for each port.
+
+@example
+Queuing:[ON] AutoFlushQueue:[--] DisconnectedOperation:[ON]
+[ON](wl-plugged)
+  [--]hosta
+    [--]smtp        +queue: 2 msgs (1,2)        @dots{}@r{sending queue}
+    [--]nntp(119)   +queue: 1 msg (3)           @dots{}@r{sending queue}
+  [ON]hostb
+    [--]imap4/cram-md5(143) %#mh/wl(prefetch-msgs:3,mark-as-important:1)
+                            %inbox(delete-msgids:1)    @dots{}@r{dop queue}
+    [ON]nntp(119)
+    [ON]smtp
+@end example
+
+The first line indicates status of the following three variables, and
+simply pressing @kbd{@key{SPC}} or @kbd{@key{RET}} in each labelled
+column modifies the values of these variables.
+
+@example
+"Queuing"               wl-draft-enable-queuing
+"AutoFlushQueue"        wl-auto-flush-queue
+"DisconnectedOperation" elmo-enable-disconnected-operation
+@end example
+
+where @samp{[ON]} means its value is t, and @samp{[--]} means nil.
+
+The second and after lines indicate on-line/off-line states of servers
+and ports, where @samp{[ON]} stands for on-line and @samp{[--]} for
+off-line (in XEmacs, they are shown with icons).  Pressing
+@kbd{@key{SPC}} or @kbd{@key{RET}} in each line switches its state.
+
+"sending queue" means messages accumulated in the folder @samp{+queue}
+for off-line transmission, and "dop queue" means off-line operations
+when @code{elmo-enable-disconnected-operation} is t.
+@c If the variable @code{elmo-enable-disconnected-operation} is non-nil, 
+@c off-line operations are enabled.
+
+They are displayed if there are any of them.  In the example above,
+in the sending queue there are two messages (the first and the second
+in the queue folder) for smtp to hosta and one (the third) for nntp to
+hosta, and in the dop queue there are one for @samp{%inbox} and two for
+@samp{%#mh/wl}.
+
+If you change (wl-plugged) in the second line, the variable
+@code{wl-plugged} is changed, so that the mode line indicator and
+plugged states of all ports are affected.
+If you change plugged states of any servers or ports, wl-plugged in the
+second line is affected depending on @code{elmo-plugged-condition}
+settings and the plugged state of each port.
+
+@section Invoking Wanderlust in the Off-line State
+
+As described before, if you set @code{wl-plugged} to nil in @file{~/.wl}
+or anything appropriate, you can invoke Wanderlust in the off-line
+state.  You can specify off-line state on a per server or port basis.
+Refer to @code{wl-reset-plugged-alist} also.
+
+Usually, when Wanderlust starts up, the plugged state of each port is
+read from @file{~/.folder} and @code{wl-smtp-posting-server},
+@code{wl-nntp-posting-server} and so on.  If you want to change the
+plugged state of these ports or to add other ports, configure
+@code{wl-make-plugged-hook} with a function.
+
+@lisp
+(add-hook 'wl-make-plugged-hook
+          '(lambda ()
+             (elmo-set-plugged plugged-value(t/nil) server port)
+                 ;; @r{add or change plugged states of the port of the server}
+             (elmo-set-plugged plugged-value(t/nil) server)
+                 ;; @r{if the port is omitted, all ports are affected}
+                 ;; @r{(you cannot omit the port if you newly add the server)}
+             ))
+@end lisp
+
+@section Customizable Variables
+
+@table @code
+@item wl-plugged
+@vindex wl-plugged
+If this variable is set to nil, Wanderlust starts up in off-line mode from
+the beginning.
+
+@item wl-queue-folder
+@vindex wl-queue-folder
+The initial setting is "+queue".
+This is the folder in which messages in the transmission queue are
+accumulated.
+
+@item wl-auto-flush-queue
+@vindex wl-auto-flush-queue
+The initial setting is t.
+This flag controls automatic transmission of the queue when Wanderlust
+becomes on-line.  If non-nil, the queue is automatically transmitted
+(with confirmation by @code{y-or-n-p}).  If you want to transmit it
+manually, press @kbd{F} in the folder mode.
+
+@item elmo-enable-disconnected-operation
+@vindex elmo-enable-disconnected-operation
+The initial setting is nil.  Controls off-line operations regarding IMAP4.
+If non-nil, off-line operations are carried out.
+
+@item elmo-lost+found-folder
+@vindex elmo-lost+found-folder
+The initial setting is "+lost+found".
+This is the folder to which messages are saved when they fails to be
+appended while the off-line re-file/copy queue is processed.
+
+@item elmo-plugged-condition
+@vindex elmo-plugged-condition
+The initial setting is 'one.
+The value of @code{wl-plugged} reflects the return value of the function 
+@code{elmo-plugged-p} (without arguments).
+This variable @code{elmo-plugged-condition} specifies the condition on
+which the return value of (elmo-plugged-p) should be t depending on the
+plugged state of each port.
+
+@example
+'one         : plugged if one or more ports are plugged.
+'all         : plugged if all ports are plugged.
+'independent : reflects wl-plugged (elmo-plugged) regardless of plugged
+               states of the ports.
+function     : reflects the return value of the function
+ functions available per default
+ 'elmo-plug-on-by-servers
+             : reflects the plugged state of the servers specified by the
+               variable elmo-plug-on-servers.
+ 'elmo-plug-on-by-exclude-servers
+             : reflects the plugged state of the servers that are not
+               in elmo-plug-on-exclude-servers.
+                  elmo-plug-on-exclude-servers defaults to
+                   '("localhost"
+                     (system-name)
+                     (system-name)without the domain part)
+@end example
+
+@example
+Example 1:
+ (setq elmo-plugged-condition 'all)
+Example 2:
+ (setq elmo-plug-on-servers '("smtpserver" "newsserver"))
+ (setq elmo-plugged-condition 'elmo-plug-on-by-servers)
+Example 3:
+ (setq elmo-plug-on-exclude-servers '("localhost" "myname"))
+ (setq elmo-plugged-condition 'elmo-plug-on-by-exclude-servers)
+@end example
+
+@item wl-reset-plugged-alist
+@vindex wl-reset-plugged-alist
+The initial setting is t.  If non-nil, plugged states are initialized on
+a per server or port basis when Wanderlust starts up.
+
+If nil, plugged states are retained while Emacs is running.
+In other words, they are initialized when Emacs is restarted even if the
+value is nil.
+@end table
+
+@c
+@c  Expire and Archive
+@c
+@node Expire and Archive, Scoring, Disconnected Operations, Top
+@chapter Automatic Expiration and Archiving of Messages
+@cindex Expire and Archive
+
+@menu
+* Expire::      Expiration and Archiving
+* Archive::     Archiving All Messages
+@end menu
+
+
+@node Expire, Archive, Expire and Archive, Expire and Archive
+@section Expiration
+@cindex Expire Message
+
+Expiration means deletion of old messages which have outlasted a
+certain period of time.
+
+@code{wl-expire} supports not only simple deletion, but also moving to
+specified archiving folders.
+
+@section How to Use
+
+Configure @code{wl-expire-alist} and press @kbd{e} in the folder mode,
+or @kbd{M-e} in the summary mode.
+
+@subsection Configuring @code{wl-expire-alist}
+
+An example configuration of @code{wl-expire-alist} is shown below.
+Everything in this @code{wl-expire-alist} makes a great difference in
+expiration, so be careful.
+I advise you to set @code{wl-expire-use-log} to t, especially in the
+initial stage.
+
+@lisp
+(setq wl-expire-alist
+      '(("^\\+trash$"   (date 14) remove)
+                                  ;; @r{delete}
+        ("^\\+tmp$"     (date 7) trash)
+                                  ;; @r{re-file to @code{wl-trash-folder}}
+        ("^\\+outbox$"  (number 300) "$outbox;lha")
+                                  ;; @r{re-file to the specific folder}
+        ("^\\+ml/tmp$"  nil)
+                           ;; @r{do not expire}
+        ("^\\+ml/wl$"   (number 500 510) wl-expire-archive-number1 t)
+                           ;; @r{archive by message number (retaining numbers)}
+        ("^\\+ml/.*"    (number 300 310) wl-expire-archive-number2 t)
+                           ;; @r{archive by a fixed number (retaining numbers)}
+        ("^\\+nikki$"   (date 30) wl-expire-archive-date)
+                           ;; @r{archive by year and month (numbers discarded)}
+        ))
+@end lisp
+
+Items in the list has the format of:
+
+@example
+("regexp_for_folders"  (specification_of_messages_to_be_deleted) destination)
+@end example
+
+@noindent
+
+The folder is examined if it matches "regexp_for_folders" from the
+beginning of the list.  If you invoke expiration on the folder that does
+not match any of them, nothing will happen.
+And if either the second or the third element of the item is nil,
+expiration will not take place.
+
+You can use any one of the following for
+specification_of_message_to_be_deleted:
+
+@table @code
+@item (number n1 [n2])
+deletes messages depending on the number of messages in the folder.
+
+n1 is the number of messages which should survive deletion, for example
+if its value is 500, the newest 500 messages survive and the rests are
+deleted.
+
+n2 is the number of messages in the folder on which expiration should
+take place, which defaults to n1 + 1.  For example if its value is 510,
+folders with 510 or more messages are expired.
+If you configured automatic expiration, frequently used folders may
+expire every time it receive messages, and you may be annoyed with the
+long delay in reading mail.
+In that case, you can set a wide margin between n2 and n1, so that
+expiration would not take place until a certain number of messages
+accumulate.
+
+Messages with marks in @code{wl-summary-expire-reserve-marks} (marked
+with important/new/unread) are not deleted.
+If @code{wl-expire-number-with-reserve-marks} is non-nil, the folder
+will expire so as to have 500 messages including such ones.
+Otherwise, it will have 500 messages except such ones.
+
+@item (date d1)
+deletes messages depending on the dates.
+
+Messages dated d1 or more days ago are deleted, for example if its value
+is seven, messages seven days old or more are deleted.
+Note that the date is the one in the Date field of the message, not when 
+the message entered the folder.
+
+Messages with no or invalid Date field does not expire; you might have
+to delete them by hand.
+@end table
+
+You can use any one of the following in the place of destination:
+
+@table @code
+@item 'remove
+deletes the messages instantly.
+
+@item 'trash
+moves the messages to @code{wl-trash-folder}.
+
+@item string(folder)
+moves the messages to the specified folder.
+
+It would be useful for specifying an archiving folder, but because this
+does not move important messages, it might be better to use the
+standard functions described below.
+
+@item function
+invokes the specified function.
+
+To the function, three arguments are passed: a folder name, a list of
+messages to be deleted, and msgdb information of the summary.
+You can specify function-specific arguments after the name of the
+function.
+Note that the list contains messages with marks in
+@code{wl-summary-expire-reserve-marks}, be careful in writing your own
+function.
+
+These are three standard functions; they moves messages to an archive
+folder in the specified way.  This means old messages can be compressed
+and saved in a file, being deleted from the original folder.
+
+@table @code
+@item wl-expire-archive-number1
+re-files to archiving folders corresponding to the message numbers of
+the messages being deleted.
+For example, a message numbered 102 will be re-filed to
+@file{wl-00100.zip}, 390 to @file{wl-00300.zip}, and so on.
+If @code{wl-expire-archive-files} is 200, messages will be re-filed to
+@file{wl-00000.zip}, @file{wl-00200.zip}, @file{wl-00400.zip}, @dots{}.
+
+The archiving folders to which messages are re-filed are determined by
+the name of the folder as follows
+(in this case, archiving folders are handled as if
+@code{elmo-archive-treat-file} were non-nil).
+
+@table @code
+@item If the folder type is localdir:
+
+@code{$ArchiveDir/foldername-xxxxx.zip}
+For example, @samp{+ml/wl} corresponds to @samp{$ml/wl;zip}
+(@file{~/Mail/ml/wl-00100.zip}).
+
+@item The folder type is other than localdir:
+@code{$ArchiveDir/foldertype/foldername-xxxxx.zip}
+
+For example, @samp{%#mh/ml/wl} corresponds to
+@samp{$imap4/#mh/ml/wl;zip} (@file{~/Mail/imap4/#mh/ml/wl-00100.zip}).
+@end table
+
+As you can see, in the case of localdir, the folder type is not included
+in the path name, but otherwise it is included.
+And you can control the prefix to the archiving folder name by
+@code{wl-expire-archive-folder-prefix}.
+Refer to @code{wl-expire-archive-folder-prefix} for details.
+
+@item wl-expire-archive-number2
+re-files every certain number of messages to archiving folders.
+
+This differs from @samp{wl-expire-archive-number1} in that this re-files
+to the folder up to the specified number regardless of message numbers.
+The archiving folders to which messages are re-filed are determined in the 
+same way as @code{wl-expire-archive-number1}.
+
+@item wl-expire-archive-date
+re-files messages depending on its date (year and month) to archive
+folders.
+
+For example, a message dated December 1998 is re-filed to
+@code{$folder-199812;zip}.
+The name of the archiving folders except the date part are determined in
+the same way as @code{wl-expire-archive-number1}.
+@end table
+
+You can set the first argument to these three standard functions to non-nil
+in @code{wl-expire-alist} so as to retain message numbers in the folder.
+For example, it can be specified just after the name of the function:
+
+@example
+("^\\+ml/wl$" (number 300 310) wl-expire-archive-number1 t)
+@end example
+
+If you omit the argument, consecutive numbers from 1 are assigned for
+each archiving folder.
+@end table
+
+@subsection Treatment for Important or Unread Messages
+
+If you specify any of 'remove, 'trash, a folder name, or a standard
+function, messages with marks in @code{wl-summary-expire-reserve-marks}
+(which are called @dfn{reserved messages} thereafter) are retained.
+
+Per default, this variable include the important, new, and unread marks,
+so that messages with these marks are not removed.
+Note that you cannot include the temporary mark (i.e. temporary marks
+are removed anyway), and be sure to process temporary marks before you
+invoke expiration.
+
+@subsection Auto Expiration
+
+The following setup invokes expiration when you move into the summary
+mode.  There will be no confirmation, so make sure you made no mistake
+in regexp and other settings before you set up this.
+
+@lisp
+(add-hook 'wl-summary-prepared-pre-hook
+          'wl-summary-expire)
+@end lisp
+
+In the folder mode, you can invoke expiration per group as well as per
+folder.  Therefore, if you specify @samp{Desktop} group, all folders
+matching @code{wl-expire-alist} expire.
+
+@section Tips
+
+@subsection Treating archive folders.
+To treat archive folders created by @code{wl-expire-archive-number1} and so on,
+you must set non-nil value to @code{elmo-archive-treat-file}.
+
+@subsection Confirming
+
+If you are to use 'remove, try 'trash at first and see messages move to
+@code{wl-trash-folder} as expected, then replace it with 'remove.
+It would be dangerous to use 'remove from the beginning.
+
+If you are to use @code{wl-expire-archive-number1} and the like, try to
+make a folder of the archiver type ('zip or 'lha) and see if you can
+append messages to it.
+Even if settings in @code{wl-expire-alist} and @code{elmo-archive} are
+correct, messages would not be saved anywhere and disappeared in case
+the archiver program fails.
+
+After you make sure you can archive to the folder correctly, you can
+invoke expiration and utilize the log.
+
+If you set @code{wl-expire-use-log} to t, @file{~/.elmo/expired-log}
+should contain the log, for example:
+
+@example
+delete  +ml/wl  (593 594 595 596 597 598 599)
+move    +ml/wl -> $ml/wl-00600;tgz;wl  (600 601 602)
+@end example
+
+The first column indicates the operation, i.e. delete, copy, or move.
+The next is the name of the folder that expired.  In the case of copy
+and move, the destination folder is recorded after @samp{->}.
+The last is the list of message numbers that are actually deleted or
+moved (in the case of copy and move, the number is the one in the source 
+folder, rather than the destination folder).
+
+@subsection Re-filing Reserved Messages
+
+The three standard functions copy reserved messages to the archive
+folder, but do not delete them from the source folder.  Because
+reserved messages and the like always remain, they are recorded in
+@file{~/.elmo/expired-alist} so that they are not copied over and over
+again.  They are not recorded if copied by @code{wl-summary-archive}.
+
+If you enabled logging, usually "move" is recorded for re-filing, but
+instead "copy" and "delete" are recorded separately if reserved messages
+are involved.
+This is because it actually copies messages including reserved, then
+deletes ones except reserved in that case.
+
+@section Customizable Variables
+
+@table @code
+@item wl-expire-alist
+@vindex wl-expire-alist
+The initial setting is nil.
+This variable specifies folders and methods to expire.  For details,
+refer to @code{wl-expire-alist} settings above.
+
+@item wl-summary-expire-reserve-marks
+@vindex wl-summary-expire-reserve-marks
+The initial setting is the list below.
+
+@lisp
+(list wl-summary-important-mark
+      wl-summary-new-mark
+      wl-summary-unread-mark
+      wl-summary-unread-uncached-mark
+      wl-summary-unread-cached-mark)
+@end lisp
+
+Messages with these marks are retained in the folder, even after
+expiration.
+Only permanent marks can be listed, not temporary marks.
+
+You can list marks one by one as in the default; you can use the
+following settings as well:
+
+@table @code
+@item 'all
+All messages with permanent marks are retained,
+i.e. @code{wl-summary-read-uncached-mark} is included in addition to the 
+defaults.
+
+@item 'none
+All messages are handled as usual ones that are already read, no matter
+what marks they have; even important messages are deleted.
+@end table
+
+@item wl-expire-archive-files
+@vindex wl-expire-archive-files
+The initial setting is 100.
+This variable specifies the number of messages to be retained in one
+archiving folder.
+
+@item wl-expire-number-with-reserve-marks
+@vindex wl-expire-number-with-reserve-marks
+The initial setting is nil.
+If non-nil, if expiring messages are specified by "number", messages
+with @code{wl-summary-expire-reserve-marks} are also retained.
+
+@item wl-expire-archive-get-folder-func
+@vindex wl-expire-archive-get-folder-func
+The initial setting is 'wl-expire-archive-get-folder.
+
+This variable specifies a function that returns the name of an archiving 
+folder for standard functions in the place of destination.
+You can use the following three variables for simple modification of
+folder names; if you want more complex settings, define your own
+function in this variable.
+
+@code{wl-expire-archive-get-folder} can be customized by these
+variables:
+@itemize @bullet
+@item wl-expire-archive-folder-name-fmt
+@item wl-expire-archive-folder-type
+@item wl-expire-archive-folder-prefix
+@end itemize
+
+@item wl-expire-archive-folder-name-fmt
+@vindex wl-expire-archive-folder-name-fmt
+The initial setting is "%s-%%05d;%s".
+This is a format string for archiving folders used in
+@code{wl-expire-archive-number1} and @code{wl-expire-archive-number2}.
+Note that you must specify the message number by @samp{%%d}, because it
+is parsed twice by @code{format}.
+
+If you modify this, adjust @code{wl-expire-archive-folder-num-regexp} as 
+well.
+
+@item wl-expire-archive-date-folder-name-fmt
+@vindex wl-expire-archive-date-folder-name-fmt
+The initial setting is "%s-%%04d%%02d;%s".
+This is a format string for archiving folders used in
+@code{wl-expire-archive-date}.
+Note that you must specify the message number by @samp{%%d}, because it
+is parsed twice by @code{format}.
+There should be @code{%%d} twice, one for the year and the other for the
+month.
+
+If you modify this, adjust
+@code{wl-expire-archive-date-folder-num-regexp} as well.
+
+@item wl-expire-archive-folder-type
+@vindex wl-expire-archive-folder-type
+The initial setting is 'zip.
+This variable specifies an archiver type of the archiving folders.
+
+@item wl-expire-archive-folder-prefix
+@vindex wl-expire-archive-folder-prefix
+The initial setting is nil.
+This variable specifies the prefix (directory structure) to archiving
+folders.
+Exercise extreme caution in using this feature, as it has not been
+seriously tested.
+In the worst case, there is a fear of destructing archiving folders.
+
+@table @code
+@item nil
+There will be no prefix.
+
+@item 'short
+For example, @samp{+ml/wl} will be prefixed by @samp{wl}, resulting in
+@samp{$ml/wl-00000;zip;wl}.
+
+@item t
+For example, @samp{+ml/wl} will be prefixed by prefix @samp{ml/wl},
+resulting in
+
+@samp{$ml/wl-00000;zip;ml/wl}.
+@end table
+
+@item wl-expire-archive-folder-num-regexp
+@vindex wl-expire-archive-folder-num-regexp
+The initial setting is "-\\([-0-9]+\\);".
+This variable specifies the regular expression to be used for getting
+message numbers from multiple archiving folders specified by
+@code{elmo-list-folders}.
+Set it in accordance with @code{wl-expire-archive-folder-name-fmt}.
+
+@item wl-expire-archive-date-folder-num-regexp
+@vindex wl-expire-archive-date-folder-num-regexp
+The initial setting is "-\\([-0-9]+\\);".
+This is the regular expression to be used for getting message numbers
+from multiple archiving folders specified by @code{elmo-list-folders}.
+Set it in accordance with @code{wl-expire-archive-date-folder-name-fmt}.
+
+@item wl-expire-delete-oldmsg-confirm
+@vindex wl-expire-delete-oldmsg-confirm
+The initial setting is t.
+If non-nil, messages older than the one with the largest number will be
+deleted with confirmation.
+If nil, they are deleted without confirmation.
+
+This feature is valid only if non-nil is specified as a argument to the
+standard functions so as to retain numbers.
+
+@item wl-expire-use-log
+@vindex wl-expire-use-log
+The initial setting is nil.
+If non-nil, expiration logs are recorded in @file{~/.elmo/expired-log}.
+They are appended but not truncated or rotated automatically; you might
+need to remove it manually.
+
+@item wl-expire-add-seen-list
+@vindex wl-expire-add-seen-list
+The initial setting is t.
+
+If non-nil, when messages are re-filed by expiration, read/unread
+information is passed to the destination folder.
+
+However if you do not read the destination folder from Wanderlust,
+@file{seen} under @file{~/.elmo/} grows larger and larger, so you might
+want to set this to nil if you are simply saving to some archiving
+folders.  Even if its value is nil, messages in the archiving folders
+are simply treated as unread; it does not affect expiration itself.
+
+@item wl-expire-folder-update-msgdb
+@vindex wl-expire-folder-update-msgdb
+The initial setting is t.
+If t, in the folder mode, expiration is carried out after updating
+summary information.
+If you specified a list of regular expressions of folder names, summary
+information is updated for matching folders only.
+@end table
+
+
+@node Archive,  , Expire, Expire and Archive
+@section Archiving Messages
+
+@subsection Archiving Messages
+@kbd{M-x wl-summary-archive} copies the whole folder to archiving
+folders.  If there are the archiving folders already, only new messages
+are appended.
+
+You can use @code{wl-archive-alist} in order to specify how messages are 
+archived according to their folder names, as in @code{wl-expire-alist}.
+For example:
+
+@lisp
+(setq wl-archive-alist
+      '(("^\\+tmp$"     wl-archive-date)
+        ("^\\+outbox$"  wl-archive-number2)
+        (".*"           wl-archive-number1)
+        ))
+@end lisp
+
+Each item in the list has the following format:
+
+@example
+("folders_regexp"  deleting_function)
+@end example
+
+As you can see, you can only use a function after @samp{folders_regexp}.
+Per default, there are three functions:
+
+@itemize @bullet
+@item wl-archive-number1
+@item wl-archive-number2
+@item wl-archive-date
+@end itemize
+
+As inferred from their names, they work similarly to "expire" versions,
+other than the following points:
+
+@itemize @minus
+@item No messages are deleted
+@item Message numbers are retained even if invoked without arguments
+@end itemize
+
+These functions are good to archive all messages in a folder by their
+numbers or by their dates.
+These are also useful for backup or confirmation purposes before
+expiration.
+If you try to re-file them after they are archived, they are deleted but 
+not re-filed.
+
+Per default, the archiving folders to which messages are copied are
+determined automatically by @code{wl-expire-archive-get-folder-func}.
+You can copy to a specific folder by invoking with a prefix argument,
+i.e. @kbd{C-u M-x wl-summary-archive}.
+
+Note that this feature has not been seriously tested, because you can
+simply copy to an archiving folder, for example by
+@code{wl-summary-copy-region}.
+
+The archiving folders are determined by the same logic as in
+@code{wl-summary-expire}; the following customizable variables are
+relevant:
+
+@itemize @bullet
+@item wl-expire-archive-files
+@item wl-expire-archive-get-folder-func
+@item wl-expire-archive-folder-name-fmt
+@item wl-expire-archive-folder-type
+@item wl-expire-archive-folder-prefix
+@item wl-expire-archive-folder-num-regexp
+@end itemize
+
+@subsection Customizable Variables
+
+@table @code
+@item wl-archive-alist
+@vindex wl-archive-alist
+The initial setting is '((".*" wl-archive-number1)).
+
+This variable specifies a function that copies to archiving folders.
+To the function, three arguments are passed: a folder name, a list of
+messages in the folder, and msgdb information of the summary.
+Needless to say, you can use your own function.
+@end table
+
+
+@c
+@c  Scoring
+@c
+@node Scoring, Customization, Expire and Archive, Top
+@chapter Score of the Messages
+@cindex Scoring
+@c @cindex Kill File
+
+Scoring is the function that associates a score (value) with each
+message, and marks as read or deletes from the summary according to it.
+
+You can put temp or important marks on essential messages, or read marks
+on the ones you do not want to read, for example spam articles.
+
+This scoring function has a capability and a format similar to the one
+that Gnus has, although there are some unsupported features and
+Wanderlust specifics.
+
+@menu
+* Score Commands::             Score Commands
+* Score File Format::          Score File Format
+@end menu
+
+
+@node Score Commands, Score File Format, Scoring, Scoring
+@section Score Commands
+@cindex Score Commands
+
+@subsection Score File Specification
+
+@code{wl-score-folder-alist} specifies score files or variables in which 
+scores are defined, corresponding to folder names.
+
+@lisp
+(setq wl-score-folder-alist
+      '(("^-.*"
+         "news.SCORE"
+         "my.SCORE")
+        (".*"
+         "all.SCORE")))
+@end lisp
+
+If paths to the score files are omitted, the directory specified in the
+variable @code{wl-score-files-dir} is assumed.
+
+No matter what you write in @code{wl-score-folder-alist}, the default
+score file @code{wl-score-default-file} (@file{all.SCORE}) is always
+read (it does not have to exist).
+Therefore, in the example above, the three score files,
+@file{news.SCORE}, @file{my.SCORE}, and @file{all.SCORE} are read for
+the folders that matches @samp{^-.*}.
+
+@subsection Scored Messages
+
+Scores are attached to the messages that are specified by
+@code{wl-summary-score-marks} temporarily when the summary is updated;
+when you exit from the summary, the scores are removed and reverts to
+the defaults.
+
+@subsection Creation of Score Files
+
+In the summary buffer, move to an appropriate message and type @kbd{L}.
+Then type @kbd{s}, @kbd{s}, and @kbd{p} at a prompt in a mini-buffer.
+The string in Subject is presented.  Edit it and press @kbd{@key{RET}}.
+
+This makes -1000 are scored for messages with the same Subject as the
+string you entered.  That is, such a score file is created
+automatically.
+
+Then, try typing @kbd{h} and @kbd{e} in the same summary buffer.
+The score file you just made appears.
+This buffer is called "score editing buffer" thereafter.
+When you type @kbd{C-c C-e} in it, you are prompted in the mini-buffer
+as you are previously; type @kbd{a}.  Then a score entry for "From"
+should be inserted.
+In this way, you can create a score file easily either in the summary
+buffer or in the score editing buffer.
+
+By the way, you might be aware the numbers of key strokes are different
+between @kbd{s s p} and @kbd{a}.
+This is determined by @code{wl-score-header-default-entry}.
+This variable specifies the default score entries corresponding to
+header fields.
+For example, for "subject" field, a type and a time limit are prompted,
+but for "from" field, they are fixed upon automatically as substring and
+permanent respectively.
+However, score values can be modified by the prefix argument.
+Typing @kbd{?} at the mini-buffer shows a help on keys and corresponding 
+headers and types.
+
+At last, type @kbd{C-c C-c} in the score editing buffer.  This saves the 
+score file and terminates the edit mode.  Typing @kbd{C-c C-c} after
+erasing contents of the buffer deletes the score file being edited.
+
+@subsection Tips
+
+@subsubsection Selecting Score Files
+
+You can change score files to which scores are appended by
+@code{wl-summary-increase-score} and @code{wl-summary-lower-score} by
+@code{wl-score-change-score-file}.
+
+@subsubsection Summing Up the Score
+
+If you add the same entries by @code{wl-summary-increase-score},
+@code{wl-summary-lower-score}, and @code{wl-score-edit-insert-entry},
+scores for the entry is summed up.
+
+For example, if you create @samp{from} entry with the score of -1000 by
+@kbd{L a} and again @samp{from} with -200, one entry with the score of
+-1200 will be created as a result.
+
+@subsubsection Creating Thread Key
+
+Creating @samp{Thread} key by @code{wl-summary-increase-score} or
+@code{wl-summary-lower-score} appends @samp{Message-ID} of all children.
+
+@subsubsection Creating Followup Key
+
+Creating @samp{Followup} key by @code{wl-summary-increase-score} or
+@code{wl-summary-lower-score} appends @samp{Message-ID} of the message
+at the cursor to @samp{References} key.
+If @code{wl-score-auto-make-followup-entry} is non-nil,
+@samp{Message-ID} of all messages to be followed up within dates
+specified by @code{wl-score-expiry-days}.
+
+@subsection Key Bindings
+
+@table @kbd
+@item K
+@kindex K (Summary)
+@findex wl-summary-increase-score
+Increases the score for the current message.
+And the score entry is appended to the score file at the same moment.
+You can specify the score value by a prefix argument.
+
+@item L
+@kindex L (Summary)
+@findex wl-summary-lower-score
+Decreases the score for the current message.
+And the score entry is appended to the score file at the same moment.
+You can specify the score value by a prefix argument.
+
+@item h R
+@kindex h R (Summary)
+@findex wl-summary-rescore
+Re-applies the scoring.
+However, already scored messages are not scored anew.
+
+@item h c
+@kindex h c (Summary)
+@findex wl-score-change-score-file
+Changes the score file currently selected.
+
+@item h e
+@kindex h e (Summary)
+@findex wl-score-edit-current-scores
+Edits the score file currently selected.
+If there are multiple score files, the previously specified one is
+selected.
+
+@item h f
+@kindex h f (Summary)
+@findex wl-score-edit-file
+Edits an arbitrary score file and selects it.
+
+@item h F
+@kindex h F (Summary)
+@findex wl-score-flush-cache
+Erases caches associated to the score files that are read.
+If you modified score files directly (from other than Wanderlust), you
+need to re-read them after erasing the cache.
+
+@item h m
+@kindex h m (Summary)
+@findex wl-score-set-mark-below
+Specifies the criterion for scores to be marked as read.
+Messages with scores less than this value are marked as read.
+
+@item h x
+@kindex h x (Summary)
+@findex wl-score-set-expunge-below
+Specifies the criterion for scores to be deleted from the summary.
+Messages with scores less than this value are deleted.
+"Deleted" means it is not shown; they are not removed from the summary
+information or the folder.
+The deleted messages can be shown by rescan-noscore again.
+@end table
+
+@subsection Key Bindings in the Score Editing Buffer
+
+@table @kbd
+@item C-c C-k
+@kindex C-c C-k (Score Mode)
+@findex wl-score-edit-kill
+Abandons the file being edited.
+
+@item C-c C-c
+@kindex C-c C-c (Score Mode)
+@findex wl-score-edit-exit
+Saves the file being edited, and quits from the edit mode.
+
+@item C-c C-p
+@kindex C-c C-p (Score Mode)
+@findex wl-score-pretty-print
+Re-draws the score.
+
+@item C-c C-d
+@kindex C-c C-d (Score Mode)
+@findex wl-score-edit-insert-date
+Inserts the number of dates from Dec. 31, 1 B.C.
+It is used for creating the third factor of time-limited scores.
+
+@item C-c C-s
+@kindex C-c C-s (Score Mode)
+@findex wl-score-edit-insert-header
+Inserts the header of the message selected in the summary buffer.
+
+@item C-c C-e
+@kindex C-c C-e (Score Mode)
+@findex wl-score-edit-insert-entry
+Inserts the score entry of the message selected in the summary buffer.
+@end table
+
+@subsection Customizable Variables
+
+@table @code
+@item wl-summary-default-score
+@vindex wl-summary-default-score
+The initial setting is zero.
+This variable specifies the default value of the score.
+The score is increased or decreased based upon this value.
+
+@item wl-summary-important-above
+@vindex wl-summary-important-above
+The initial setting is nil.
+Messages with scores larger than this value are attached with the
+important mark (@samp{$}).
+If nil, no important marks are attached.
+
+@item wl-summary-temp-above
+@vindex wl-summary-temp-above
+The initial setting is nil.
+Messages with scores larger than this value are attached with the temp
+mark (@samp{*}).
+If nil, no temp marks are attached.
+
+@item wl-summary-mark-below
+@vindex wl-summary-mark-below
+The initial setting is zero.
+Messages with scores smaller than this value are marked as read.
+
+@item wl-summary-expunge-below
+@vindex wl-summary-expunge-below
+The initial setting is nil.
+Messages with scores smaller than this value are deleted from the
+summary.
+If nil, they are not deleted.
+
+@item wl-summary-score-marks
+@vindex wl-summary-score-marks
+The initial setting is '("N" "!" "U").
+Messages with these marks are scored.
+
+@item wl-use-scoring
+@vindex wl-use-scoring
+The initial setting is t.
+If non-nil, scoring is enabled.
+
+@item wl-score-files-dir
+@vindex wl-score-files-dir
+The initial setting is "~/.elmo/".
+The default directory for score files.
+
+@item wl-score-interactive-default-score
+@vindex wl-score-interactive-default-score
+The initial setting is 1000.
+This value is used as a score when a score factor is nil in the score
+file.
+It is also used in @code{wl-summary-increase-score} and
+@code{wl-summary-lower-score}, on condition that the value of
+@code{wl-score-header-default-entry} is nil.
+
+@item wl-score-expiry-days
+@vindex wl-score-expiry-days
+The initial setting is 7.
+This is the number of days before time-limited scores are deleted.
+
+@item wl-score-update-entry-dates
+@vindex wl-score-update-entry-dates
+The initial setting is t.
+If non-nil, it enables deletion of time-limited scores.
+
+@item wl-score-header-default-entry
+@vindex wl-score-header-default-entry
+Specifies the default value for each header field for score entries
+created by @code{wl-summary-increase-score},
+@code{wl-summary-lower-score}, and @code{wl-score-edit-insert-entry}.
+
+@item wl-score-simplify-fuzzy-regexp
+@vindex wl-score-simplify-fuzzy-regexp
+In the case of a type of a score entry is "fuzzy", this specifies a
+regular expression to be deleted from the string.
+Because this is usually used for Subject, the default is prefixes that
+are attached by mailing list programs.
+
+@item wl-summary-rescore-partial-threshold
+@vindex wl-summary-rescore-partial-threshold
+The initial setting is 200.
+When sync-all or rescan is executed, if there are messages more than
+this value, only the last same number of messages as this value are
+scored.
+
+@item wl-summary-auto-sync-marks
+@vindex wl-summary-auto-sync-marks
+If non-nil, unread/important marks are synchronized when the summary
+does.
+Unread marks reflect information on the IMAP4 server.
+Important marks reflect information on the IMAP4 server (flagged or
+not), and contents of 'mark folder.
+The initial setting is t.
+@end table
+
+
+@node Score File Format,  , Score Commands, Scoring
+@section Score File Format
+@cindex Score File Format
+
+The format of score files are the same as Gnus, and basically you can
+use Gnus score files as they are.  But they are not fully compatible
+because some keys are not supported and there are Wanderlust specifics.
+
+@example
+(("subject"
+  ("for sale" -1000 nil s)
+  ("profit" -1000 nil s))
+ ("from"
+  ("spam@@spamspamspam" -10000 nil s))
+ ("followup"
+  ("my@@address" 3001 nil s))
+ ("chars"
+  (1000000 -10 nil >))
+ (important 5000)
+ (temp 3000)
+ (mark 0)
+ (expunge -3000))
+@end example
+
+@table @code
+@item string
+If the key is a string, it is the name of the header to be matched.
+The following keys are available:
+@code{Subject}, @code{From}, @code{Date}, @code{Message-ID},
+@code{References}, @code{To}, @code{Cc}, @code{Chars}, @code{Lines},
+@code{Xref}, @code{Extra}, @code{Followup}, @code{Thread}
+@code{Chars} and @code{Lines} mean the size and the number of lines of
+the message, respectively.  @code{Extra}, @code{Followup}, @code{Thread}
+are described later.
+The rest corresponds the field of the same name.
+
+Arbitrary numbers of core entries are specified after the key.
+Each score entry consists of these five factors:
+
+@enumerate
+@item
+A factor that matches header.  This should be a number in the cases of
+"lines" and "chars", otherwise a string.
+
+@item
+A score factor.  When the first item matches, the score of the message
+is increased or decreased by this value.
+
+@item
+A time limiting factor.  If nil, the score is permanent, and in the case
+of a number, the score is deleted if it does not match for days
+(@code{wl-score-expiry-days}) from the date specified by this.
+The date is since Dec. 31, 1 B.C.
+
+@item
+A type factor.  This specifies the way the first factor matches.
+Available types depend on keys.
+
+@table @dfn
+@item From, Subject, References, Message-ID
+For these keys in string, @code{r} and @code{R} (regexp),
+@code{s} and @code{S} (substring), @code{e} and @code{E} (exact match),
+as well as @code{f} and @code{F} (fuzzy) can be used.
+@code{R}, @code{S}, @code{E}, and @code{F} are case sensitive.
+
+@item Lines, Chars
+For these keys, the following five numerical relative operators can be
+used: @code{<}, @code{>}, @code{=}, @code{>=}, @code{<=}.
+
+@item Followup
+This key matches @code{From} header, and scores all follow-ups to the
+message.
+For example, it would be useful for increasing scores for follow-ups to
+you own article.
+
+You can use the same types as @code{From} except for @code{f}.
+And a @samp{Followup} entry is automatically appended to the score file.
+
+@item Thread
+This key scores (sub-)threads beginning with @code{Message-ID} @var{x}.
+A @samp{Thread} entry is automatically appended for each article that
+has @var{x} in the @code{References} header.
+You can make sure the whole thread including messages that does not have
+all ancestors @code{Message-ID} in @code{References} is scored.
+
+You can use the same types as @code{References} except for @code{f}.
+And a @samp{Thread} entry is automatically appended to the score file.
+@end table
+
+@item
+A factor for extension header.  This is meaningful only if the key is
+@code{Extra}.
+This specifies headers to be matched other than standard headers like
+@code{Subject} and @code{From}.
+Note that you should specify the header in
+@code{elmo-msgdb-extra-fields} also.
+Therefore it does not work in folders where extension headers cannot be
+retrieved.
+
+@end enumerate
+
+The sum of these scores @emph{after all factors are applied} becomes the 
+score of the message.
+
+@cindex Score File Atoms
+@item mark
+Messages with a score less than this value is marked as read.
+The default is @code{wl-summary-mark-below}.
+
+@item expunge
+Messages with a score less than this value is deleted from the summary.
+The default is @code{wl-summary-expunge-below}.
+
+@item mark-and-expunge
+Both @code{mark} and @code{expunge} are applied,
+i.e. messages with a score less than this value is marked as read and
+deleted from the summary.
+
+@item temp
+Messages with a score greater than this value is attached with temp
+marks.
+The default is @code{wl-summary-temp-above}.
+
+@item important
+Messages with a score greater than this value is attached with important
+marks.
+The default is @code{wl-summary-important-above}.
+@end table
+
+@subsection Caveats
+
+Not to mention the @code{extra} key, if @code{lines} or @code{xref} keys 
+are used, you need to set @code{elmo-msgdb-extra-fields}.
+
+@lisp
+(setq elmo-msgdb-extra-fields '("lines" "xref"))
+@end lisp
+
+There are other restrictions as shown below:
+
+@itemize @bullet
+@item Because @samp{References} field in the summary information
+contains only the last @samp{Message-ID}, @code{references} key matches
+the last one only.
+@end itemize
+
+Keys that can be seen by folder of types:
+
+@example
+                        chars lines xref  extra
+localdir,localnews        Y     E     E     E
+nntp (supporting xover)   Y     E     E     N
+     (otherwise)          N     E     E     E
+imap4                     Y     E     E     E
+pop3                      N     E     E     E
+
+                Y: can be seen
+                N: cannot be seen (ignored)
+                E: can be seen with @code{elmo-msgdb-extra-fields} settings
+@end example
+
+
+@c
+@c  Customization
+@c
+@node Customization, Mailing List, Scoring, Top
+@chapter Customizing Wanderlust
+@cindex Customization
+
+@menu
+* Living with other packages:: Living with other packages
+* Highlights::                 Highlights
+* Advanced Settings::          Advanced Settings
+* Customizable Variables::     Customizable Variables
+@end menu
+
+
+@node Living with other packages, Highlights, Customization, Customization
+@section Living with other packages
+
+Examples with other packages.
+
+@menu
+* BBDB::                        BBDB
+* supercite::                   supercite.el
+* mu-cite::                     mu-cite.el
+* x-face-mule::                 x-face-mule.el
+* dired-dd::                    dired-dd.el
+@end menu
+
+
+@node BBDB, supercite, Living with other packages, Living with other packages
+@subsection bbdb.el
+@pindex BBDB
+
+Place @file{util/bbdb-wl.el} on the load-path and do the following
+settings.
+
+If BBDB is on the load-path at the installation, @file{bbdb-wl.el} is
+byte-compiled and installed.
+@xref{Install}.
+
+@lisp
+(require 'bbdb-wl)
+
+(bbdb-wl-setup)
+;; @r{enable pop-ups}
+(setq bbdb-use-pop-up t)
+;; @r{auto collection}
+(setq bbdb/mail-auto-create-p t)
+(setq signature-use-bbdb t)
+(setq bbdb-north-american-phone-numbers-p nil)
+;; @r{shows the name of bbdb in the summary} :-)
+(setq wl-summary-from-func 'bbdb-wl-from-func)
+;; @r{automatically add mailing list fields}
+(add-hook 'bbdb-notice-hook 'bbdb-auto-notes-hook)
+(setq bbdb-auto-notes-alist '(("X-ML-Name" (".*$" ML 0))))
+@end lisp
+
+@node supercite, mu-cite, BBDB, Living with other packages
+@subsection sc.el(supercite), sc-register.el
+@pindex sc
+@pindex supercite
+
+The same setting as usual mailers should be OK.  The following is an
+example of settings.
+
+@lisp
+(autoload 'sc-cite-original "sc" nil t)
+(setq mail-yank-hooks 'sc-cite-original)
+(setq sc-preferred-header-style 1)
+(setq sc-electric-references-p nil)
+(setq sc-citation-leader "")
+(setq sc-load-hook '(lambda () (require 'sc-register)))
+(setq sc-preferred-attribution 'registeredname)
+@end lisp
+
+
+@node mu-cite, x-face-mule, supercite, Living with other packages
+@subsection mu-cite.el
+@pindex mu-cite
+
+The same setting as usual mailers should be OK.  The following is an
+example of settings.
+
+If you use mu-cite version 8.0 or earlier:
+
+@lisp
+(autoload 'mu-cite/cite-original "mu-cite" nil t)
+(setq mail-citation-hook 'mu-cite/cite-original)
+@end lisp
+
+If you use mu-cite version 8.1 or later:
+
+@lisp
+(autoload 'mu-cite-original "mu-cite" nil t)
+(add-hook 'mail-citation-hook (function mu-cite-original))
+@end lisp
+
+@node x-face-mule, dired-dd, mu-cite, Living with other packages
+@subsection x-face-mule.el
+@pindex x-face-mule
+@pindex bitmap-mule
+
+It depends on the version of x-face-mule.
+If you use x-face-mule 0.19 or older, do the following:
+
+@lisp
+(setq wl-highlight-x-face-func
+      (function
+       (lambda (beg end)
+        (x-face-mule:x-face-decode-message-header))))
+
+If you use x-face-mule 0.20 or later, try the following.
+
+(setq wl-highlight-x-face-func
+      (function
+       (lambda (beg end)
+        (x-face-mule-x-face-decode-message-header))))
+(require 'x-face-mule)
+@end lisp
+
+Use these settings when you use @file{x-face-mule.el} attached to
+bitmap-mule 8.0 or later.
+
+@lisp
+(autoload 'x-face-decode-message-header "x-face-mule")
+(setq wl-highlight-x-face-func
+      (function x-face-decode-message-header))
+@end lisp
+
+If there is an encoded X-Face string in a file @file{~/.xface} (the value
+of the variable @code{wl-x-face-file}), it is inserted as a X-Face field
+in the draft buffer (if @code{wl-auto-insert-x-face} is non-nil).
+
+
+@node dired-dd,  , x-face-mule, Living with other packages
+@subsection dired-dd(Dired-DragDrop)
+@pindex Dired-DragDrop
+@pindex Dired-DD
+@cindex Drag and Drop
+
+If you embed @file{dired-dd-mime.el} in the dired-dd package, you can
+compose multi-part by simple Drag&Drop from dired to the draft buffer
+being edited in GNU Emacs (this feature is not Wanderlust specific, but
+general-purpose for tm/SEMI).
+
+@lisp
+;; @r{dired-dd:} http://www.asahi-net.or.jp/~pi9s-nnb/dired-dd-home.html
+(add-hook
+ 'dired-load-hook
+ (function
+  (lambda ()
+    (load "dired-x")
+    ;; @r{Set dired-x variables here.}
+    ;; @r{To and flo@dots{}}
+    (if window-system
+        (progn (require 'dired-dd)
+               (require 'dired-dd-mime))))))
+@end lisp
+
+
+@node Highlights, Advanced Settings, Living with other packages, Customization
+@section Highlights
+
+@subsection Customizable Variables
+
+@table @code
+@item  wl-summary-highlight
+@vindex wl-summary-highlight
+The initial setting is t.
+If non-nil, the summary is highlighted.
+
+@item  wl-highlight-max-summary-lines
+@vindex wl-highlight-max-summary-lines
+The initial setting is 10000.
+The summary is not highlighted if it has more lines than this value.
+
+@item  wl-summary-highlight-partial-threshold
+@vindex wl-summary-highlight-partial-threshold
+The initial setting is 1000.
+This is a threshold whether the whole summary is highlighted.
+If there are more lines of messages in the summary, it is partially
+highlighted.
+
+@item  wl-summary-partial-highlight-above-lines
+@vindex wl-summary-partial-highlight-above-lines
+The initial setting is 30.
+If there are more lines of messages than
+@code{wl-summary-highlight-partial-threshold} in the summary, messages
+after the point that is the same number of lines as this value above the
+cursor line are highlighted partially.
+(If this value is nil, the last same number of lines as the value of
+@code{wl-summary-highlight-partial-threshold} are highlighted.)
+
+@item wl-highlight-body-too
+@vindex  wl-highlight-body-too
+The initial setting is t.
+If non-nil, bodies of drafts and messages are also highlighted.
+
+@item  wl-highlight-message-header-alist
+@vindex wl-highlight-message-header-alist
+When highlighting headers of drafts and messages, this variable
+specifies which faces are allocated to important
+(@code{wl-highlight-message-important-header-contents}), secondly
+important (@code{wl-highlight-message-important-header-contents2}), and
+unimportant (@code{wl-highlight-message-unimportant-header-contents})
+message headers.
+Similarly, it can be used for allocating arbitrary faces to arbitrary
+regular expressions.
+
+@item wl-highlight-citation-prefix-regexp
+@vindex  wl-highlight-citation-prefix-regexp
+Specifies a regular expression to which quoted lines in bodies of 
+drafts and messages match.
+Bodies matching to this regular expression are highlighted by the faces
+specified by (@code{wl-highlight-message-cited-text-*}).
+
+@item  wl-highlight-highlight-citation-too
+@vindex wl-highlight-highlight-citation-too
+The initial setting is nil.
+If non-nil, the quoting regular expression itself given by
+@code{wl-highlight-citation-prefix-regexp} is also highlighted.
+
+@item  wl-highlight-citation-header-regexp
+@vindex wl-highlight-citation-header-regexp
+Specifies a regular expression that denotes beginning of quotation.
+Bodies matching to this regular expression are highlighted by the face
+specified by @code{wl-highlight-message-headers}.
+
+@item  wl-highlight-max-message-size
+@vindex wl-highlight-max-message-size
+The initial setting is 10000.
+If a message is larger than this value, it will not be highlighted.
+With this variable, highlight is suppressed for uuencode or huge digest
+messages.
+
+@item  wl-highlight-signature-separator
+@vindex wl-highlight-signature-separator
+Specifies regular expressions that denotes the boundary of a signature.
+It can be a regular expression, or a list of ones.
+Messages after the place that matches this regular expression are
+highlighted by the face specified by
+@code{wl-highlight-message-signature}.
+
+@item  wl-max-signature-size
+@vindex wl-max-signature-size
+The initial setting is 400.
+This is the largest size for a signature to be highlighted.
+
+@item wl-use-highlight-mouse-line
+@vindex  wl-use-highlight-mouse-line
+The initial setting is t.
+If non-nil, the line pointed by the mouse is highlighted in the folder
+mode, summary mode, and the like.
+@end table
+
+@subsection Setting Colors and Fonts of the Characters
+
+If you want to change colors or fonts of the characters, you need to
+modify faces defined in Wanderlust.  Use set-face-font if you want to
+change fonts, and set-face-foreground for colors, and so on.
+You cannot write face settings in @file{.emacs}; write in @file{~/.wl}.
+
+For example, if you want to change the color for signatures to yellow,
+write
+
+@lisp
+(set-face-foreground 'wl-highlight-message-signature "yellow")
+@end lisp
+
+@noindent
+in @file{~/.wl}.
+
+Faces defined in Wanderlust:
+
+@table @code
+@item wl-highlight-message-headers
+The face for field names of message headers.
+
+@item wl-highlight-message-header-contents
+The face for field bodies of message headers.
+
+@item wl-highlight-message-important-header-contents
+The face for important parts of message headers.
+Per default, this face is used for a body of Subject field.
+You can change its value by editing
+@code{wl-highlight-message-header-alist}.
+
+@item wl-highlight-message-important-header-contents2
+The face for secondly important parts of message headers.
+Per default, this face is used for bodies of From and To fields.
+You can change its value by editing
+@code{wl-highlight-message-header-alist}.
+
+@item wl-highlight-message-unimportant-header-contents
+The face for unimportant parts of message headers.
+Per default, this face is used for bodies of X- fields User-Agent fields.
+You can change its value by editing
+@code{wl-highlight-message-header-alist}.
+
+@item wl-highlight-message-citation-header
+The face for headers of quoted messages.
+
+@item wl-highlight-message-cited-text-*
+The face for texts of quoted messages.
+The last "*" is a single figure so that 10 different colors can be used
+according to citation levels.
+
+@item wl-highlight-message-signature
+The face for signatures of messages.
+The initial settings are khaki for light background colors, and
+DarkSlateBlue for dark background colors.
+
+@item wl-highlight-header-separator-face
+The face for header separators of draft messages.
+
+@item wl-highlight-summary-important-face
+The face for message lines with important marks in the summary.
+
+@item wl-highlight-summary-new-face
+The face for message lines with new marks in the summary.
+
+@item wl-highlight-summary-displaying-face
+The face for the message line that is currently displayed.
+This face is overlaid.
+
+@item wl-highlight-thread-indent-face
+The face for the threads that is currently displayed.
+
+@item wl-highlight-summary-unread-face
+The face for message lines with unread marks in the summary.
+
+@item wl-highlight-summary-deleted-face
+The face for message lines with delete marks in the summary.
+
+@item wl-highlight-summary-refiled-face
+The face for message lines with re-file marks in the summary.
+
+@item wl-highlight-refile-destination-face
+The face for re-file information part of message lines with re-file
+marks in the summary.
+
+@item wl-highlight-summary-copied-face
+The face for message lines with copy marks in the summary.
+
+@item wl-highlight-summary-target-face
+The face for message lines with temp marks @samp{*} in the summary.
+
+@item wl-highlight-summary-thread-top-face
+The face for message lines that are on the top of the thread in the
+summary.
+
+@item wl-highlight-summary-normal-face
+The face for message lines that are not on top of the thread in the
+summary.
+
+@item wl-highlight-folder-unknown-face
+The face for folders that are not known to have how many unsync messages
+in the folder mode.
+
+@item wl-highlight-folder-zero-face
+The face for folders that have no unsync messages in the folder mode.
+
+@item wl-highlight-folder-few-face
+The face for folders that have some unsync messages in the folder mode.
+
+@item wl-highlight-folder-many-face
+The face for folders that have many unsync messages in the folder mode.
+The boundary between `some' and `many' is specified by the variable
+@code{wl-folder-many-unsync-threshold}.
+
+@item wl-highlight-folder-unread-face
+The face for folders that have no unsync but unread messages in the
+folder mode.
+
+@item wl-highlight-folder-killed-face
+The face for folders that are deleted from the access group in the
+folder mode.
+
+@item wl-highlight-folder-opened-face
+The face for open groups in the folder mode.
+It is meaningful when @code{wl-highlight-group-folder-by-numbers} is nil.
+
+@item wl-highlight-folder-closed-face
+The face for close groups in the folder mode.
+It is meaningful when @code{wl-highlight-group-folder-by-numbers} is nil.
+
+@item wl-highlight-folder-path-face
+The face for the path to the currently selected folder in the folder
+mode.
+
+@item wl-highlight-logo-face
+The face for logo in the demo.
+
+@item wl-highlight-demo-face
+The face for strings (for example, a version number) in the demo.
+@end table
+
+@node Advanced Settings, Customizable Variables, Highlights, Customization
+@section Advanced Settings
+
+@menu
+* Draft for Reply::             Draft for Reply
+* Thread Format::               Appearance of Thread
+* User-Agent Header::           User-Agent Header
+@end menu
+
+
+@node Draft for Reply, Thread Format, Advanced Settings, Advanced Settings
+@subsection Draft for Replay
+
+If you want, when you replying to articles in mailing lists, the address
+in Reply-To field of the original message to be prepared to To field of
+the reply draft by simply pressing @kbd{a} in the summary mode, try the
+following settings:
+
+@lisp
+(setq wl-draft-reply-without-argument-list
+      '(("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+        ("Followup-To" . (nil nil ("Followup-To")))
+        (("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
+        ("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+@end lisp
+
+@noindent
+(Only if there are both of "X-ML-Name" and "Reply-To" fields in the
+original message, Reply-To: field in the original is copied to To:
+field.)
+
+@node Thread Format, User-Agent Header, Draft for Reply, Advanced Settings
+@subsection Appearance of Threads
+
+@example
+  389  09/18(Fri)01:07 [ Teranishi         ] wl-0.6.3
+  390  09/18(Fri)07:25 +-[ Tsumura-san       ]
+  391  09/18(Fri)19:24 +-[ Murata-san        ]
+  392  09/20(Sun)21:49 +-[ Okunishi-san      ]
+  396  09/20(Sun)22:11 | +-[ Tsumura-san       ]
+  398  09/21(Mon)00:17 |   +-[ Tsumura-san       ]
+  408  09/21(Mon)22:37 |     +-[ Okunishi-san      ]
+  411  09/22(Tue)01:34 |       +-[ Tsumura-san       ]
+  412  09/22(Tue)09:28 |       +-[ Teranishi         ]
+  415  09/22(Tue)11:52 |         +-[ Tsumura-san       ]
+  416  09/22(Tue)12:38 |           +-[ Teranishi         ]
+  395  09/20(Sun)21:49 +-[ Okunishi-san      ]
+  397  09/21(Mon)00:15 +-[ Okunishi-san      ]
+@end example
+
+Settings to make appearance of threads like shown above:
+
+@lisp
+(setq wl-thread-indent-level 2)
+(setq wl-thread-have-younger-brother-str "+")
+(setq wl-thread-youngest-child-str       "+")
+(setq wl-thread-vertical-str             "|")
+(setq wl-thread-horizontal-str           "-")
+(setq wl-thread-space-str                " ")
+@end lisp
+
+If you do not want to see branches, do the following:
+
+@lisp
+(setq wl-thread-indent-level 2)
+(setq wl-thread-have-younger-brother-str " ")
+(setq wl-thread-youngest-child-str       " ")
+(setq wl-thread-vertical-str             " ")
+(setq wl-thread-horizontal-str           " ")
+(setq wl-thread-space-str                " ")
+@end lisp
+
+
+@node User-Agent Header,  , Thread Format, Advanced Settings
+@subsection User-Agent
+
+If you are eccentric enough to elaborate X-Mailer or User-Agent fields,
+define a function that inserts appropriate strings as you like, and set
+it to @code{wl-generate-mailer-string-func}.
+
+The following is an example.
+
+@lisp
+(setq wl-generate-mailer-string-func
+      (function
+       (lambda ()
+         (concat "X-Mailer: "
+                 (format "%s/%s (%s)" wl-appname wl-version wl-codename)))))
+@end lisp
+
+@node Customizable Variables,  , Advanced Settings, Customization
+@section Customizable Variables
+
+Customizable variables that have not been described yet:
+
+@table @code
+@item wl-default-folder
+@vindex wl-default-folder
+The initial setting is "%inbox".  This is the default value for moving to
+a folder and the like.
+
+@item wl-draft-folder
+@vindex wl-draft-folder
+The initial setting is "+draft".  It is the folder to which drafts are
+saved.  It must be a localdir folder.
+
+@item wl-trash-folder
+@vindex wl-trash-folder
+The initial setting is "+trash".  It is the wastebasket folder.
+If you changed this variable, you had better restart Wanderlust.
+
+@item wl-interactive-exit
+@vindex wl-interactive-exit
+The initial setting is t.
+If non-nil, you are asked for confirmation when Wanderlust terminates.
+
+@item wl-interactive-send
+@vindex wl-interactive-send
+The initial setting is nil.
+If non-nil, you are asked for confirmation when mail is sent.
+
+@item wl-folder-sync-range-alist
+@vindex wl-folder-sync-range-alist
+The initial setting is the list shown below:
+@example
+(("^&.*$" . "all")
+ ("^\\+draft$\\|^\\+queue$" . "all"))
+@end example
+This is an associative list of regular expressions of folder names and
+update range of the summary.
+Update range is one of the "all", "update", "rescan", "rescan-noscore", "first"
+ and "last". If a folder do not match, "update" is used.
+
+@item wl-ask-range
+@vindex wl-ask-range
+The initial setting is t.
+If nil, the value of @code{wl-folder-sync-range-alist} is used for
+updating the summary when you changed folders.
+
+@item wl-mime-charset
+@vindex wl-mime-charset
+The initial setting is 'x-ctext.
+This is the MIME charset for messages that are not MIME (e.g. without
+Content-Type). This value also used as default charset for summary.
+(If you want to share Summary on Nemacs and other Emacsen,
+set this value as 'iso-2022-jp.)
+
+@item wl-search-mime-charset
+@vindex wl-search-mime-charset
+The initial setting is 'iso-2022-jp.
+This is used as a MIME charset for searching.
+
+@item wl-highlight-folder-with-icon
+@vindex wl-highlight-folder-with-icon
+This is meaningful for XEmacs only.  The initial setting depends on
+XEmacs (t for XEmacs with icons).
+
+@item wl-strict-diff-folders
+@vindex wl-strict-diff-folders
+This is a list of regular expressions of folders.
+Unread messages are checked, for example when you press @kbd{s} in
+the folder mode, usually in a brief way (rapidly processed but not
+accurate).
+The folders matching this variable are seriously checked.
+You may want to set this variable so as to match conditional filter
+folders for IMAP4 folders.
+The initial setting is nil.
+
+@item wl-folder-use-server-diff
+@vindex wl-folder-use-server-diff
+When unread messages are checked, for example when you press @kbd{s} in
+the folder mode, usually (the number of messages on the server) - (the
+number of local messages) will be the number of unread messages.
+However, if this variable is non-nil, the number of unread messages on
+the server is checked.  This affects IMAP4 folders only, but IMAP4
+folders in mail boxes matching
+@code{elmo-imap4-disuse-server-flag-mailbox-regexp} are not checked for
+the number of unread messages on the server, even if they matches this
+variable.  The initial setting is t.
+
+@item wl-auto-check-folder-name
+@vindex wl-auto-check-folder-name
+The initial setting is nil.
+If non-nil, the folder with the name of the value is checked for unread
+messages at the start.
+If it is 'none, no folders are checked.
+If it is a list, all folders in the list are checked at the start.
+
+@item wl-auto-uncheck-folder-list
+@vindex wl-auto-uncheck-folder-list
+The initial setting is '("\\$.*").
+Folders with the name matching this variable are not checked for unread
+messages at the start, even if they are included in the groups in
+@code{wl-auto-check-folder-name}.
+
+@item wl-auto-check-folder-list
+@vindex wl-auto-check-folder-list
+The initial setting is nil.
+Folders with the name matching this variable are always checked for
+unread messages at the start, if they are included in the groups in
+@code{wl-auto-check-folder-name}.
+This takes precedence over @code{wl-auto-uncheck-folder-list}.
+
+@item wl-no-save-folder-list
+@vindex wl-no-save-folder-list
+The initial setting is '("^/.*$").
+This is a list of regular expressions of folders not to be saved.
+
+@item wl-save-folder-list
+@vindex wl-save-folder-list
+The initial setting is nil.
+This is a list of regular expressions of folders to be saved.
+This takes precedence over @code{wl-no-save-folder-list}.
+
+@item wl-folder-mime-charset-alist
+@vindex wl-folder-mime-charset-alist
+The initial setting is the list shown below:
+
+@lisp
+'(("^-alt\\.chinese" . big5)
+  ("^-relcom\\." . koi8-r)
+  ("^-tw\\." . big5)
+  ("^-han\\." . euc-kr)
+  )
+@end lisp
+
+This is an associative list of regular expressions of folder names and
+MIME charsets.
+If a folder do not match, @code{wl-mime-charset} is used.
+
+@item wl-folder-init-load-access-folders
+@vindex wl-folder-init-load-access-folders
+The initial setting is nil.
+This is a list of access groups to be loaded specifically at the start.
+If it is  nil, @code{wl-folder-init-no-load-access-folders} is referred.
+
+@item wl-folder-init-no-load-access-folders
+@vindex wl-folder-init-no-load-access-folders
+The initial setting is nil.
+This is a list of access groups not to be loaded specifically at the
+start.
+It is ignored if @code{wl-folder-init-load-access-folders} is non-nil.
+
+@item wl-delete-folder-alist
+@vindex wl-delete-folder-alist
+The initial setting is '(("^-" . remove)).
+This list determines disposition of messages with delete marks.
+Each item in the list is a folder and destination; you can specify any
+one of the following in the place of destination:
+
+@example
+'remove or 'null : deletes the messages instantly.
+string           : moves the messages to the specific folder.
+'trash or others : moves the messages to `wl-trash-folder'.
+@end example
+
+@item wl-refile-policy-alist
+@vindex wl-refile-policy-alist
+The initial setting is '(("^[-=]" . copy) (".*" . move)).
+This list determines whether messages with re-file marks are moved or
+copied.
+Each item in the list is a cons cell of a folder and copy or move.
+
+@item wl-x-face-file
+@vindex wl-x-face-file
+The initial setting is "~/.xface".
+The name of the file that contains encoded X-Face strings.
+@xref{x-face-mule}.
+
+@item wl-demo-display-logo
+@vindex wl-demo-display-logo
+If non-nil, bitmap image is shown on the opening demo.
+
+@item elmo-use-database
+@vindex  elmo-use-database
+This is meaningful for XEmacs only.  The initial setting depends on
+XEmacs (t for XEmacs with dbm).
+If non-nil, Message-ID is controlled by dbm.
+
+@item elmo-passwd-alist-file-name
+@vindex  elmo-passwd-alist-file-name
+The initial setting is "passwd".
+This is the name of the file in which passwords are saved.
+@code{elmo-passwd-alist-save} saves current passwords to the file.
+
+@item elmo-nntp-list-folders-use-cache
+@vindex elmo-nntp-list-folders-use-cache
+The initial setting is 600 (in seconds).
+This is period in seconds during which results of @samp{list} and
+@samp{list active} in NNTP are cached.  If it is nil, they are not
+cached.
+
+@item elmo-nntp-max-number-precedes-list-active
+@vindex elmo-nntp-max-number-precedes-list-active
+The initial setting is nil.
+If non-nil, the number of article obtained by @samp{list active} in NNTP
+are used as the maximum article number of the folder.
+Set this to t if you are using for example INN 2.3 as an NNTP server,
+and if the number of read messages is not correct.
+
+@item elmo-nntp-default-use-listgroup
+@vindex elmo-nntp-default-use-listgroup
+The initial setting is t.
+If non-nil, @samp{listgroup} is used for checking the total number of
+articles.
+If it is nil, @samp{group} is used.  In the latter case, the processing
+will be a little faster at the sacrifice of accuracy.
+
+@item elmo-pop3-send-command-synchronously
+@vindex elmo-pop3-send-command-synchronously
+The initial setting is nil.
+If non-nil, POP3 commands are issued synchronously.  Some implementation
+of POP3 server fails to get summary information without this setting.
+You may have to set this variable to t, if the process hangs while
+looking up POP3.
+
+@item elmo-dop-flush-confirm
+@vindex elmo-dop-flush-confirm
+The initial setting is t.
+If non-nil, you are asked for confirmation if accumulated off-line
+operations are executed.
+@end table
+
+
+@c
+@c  Mailing List
+@c
+@node Mailing List, Addition, Customization, Top
+@chapter Wanderlust Mailing List
+
+@display
+Wanderlust Mailing List @t{<wl@@lists.airs.net>}
+@end display
+
+Topics related to Wanderlust are discussed in the mailing list.
+The latest version is also announced there (in Japanese, sorry).
+
+A guide can be obtained automatically by sending mail to
+@t{wl-ctl@@lists.airs.net} with the body
+
+@example
+# guide
+@end example
+Please send bug reports or patches to the mailing list.
+You can post to the mailing list even though you are not a member of it.
+
+I would like to express my thanks to the members of the mailing list for 
+valuable advice and many pieces of code they contributed.
+
+
+@c
+@c  Addition
+@c
+@node Addition, Index, Mailing List, Top
+@chapter Additional Information
+
+@section Brief History
+
+@example
+1998  3/05    Tried to make a prototype that displays MH messages in threads.
+      3/10    Made a msgdb mechanism by elisp.
+      3/26    IMAP and NNTP can be displayed in threads.
+      4/13    Began to assemble thread display modules as elmo.
+      5/01    Finished 0.1.0, initial version with many defects.
+      6/12    I made a slip of the tongue and said I was writing elisp
+              mailer supporting IMAP
+      6/16    0.1.3 was announced at tm-ja, elisp ML.
+      6/22    Thanks to Kitame-san, the mailing list started at northeye.org.
+      7/01    Support for mm-backend (0.3.0).
+      8/25    multi folder added (0.5.0).
+      8/28    filter folder added (0.5.1).
+      9/10    You can open/close threads (0.6.0).
+      9/11    fldmgr by Murata-san made editing folders easy.
+      9/18    lha folders added by Okunishi-san (0.6.3).
+      9/24    Display of branches of threads (0.6.5).
+      9/28    Compression folder supporting multiple archivers by Okunishi-san.
+     10/28    Off-line operations (0.7.4).
+     12/09    Becomes beta version.
+     12/21    wl-expire by Murata-san.
+1999  2/03    auto-refile by Tsumura-san.
+      4/28    wl-template by Murata-san.
+      5/18    Released 1.0.0 stable.
+      7/5     Scoring by Murata-san (2.1.0).
+@end example
+
+See @file{ChangeLog} for details.
+
+@section The Name
+
+According to a dictionary, Wanderlust has the meaning:
+
+@display
+wanderlust
+  n eager longing for or impulse towards travelling in distant lands
+  [Ger, fr wandern to wander + lust desire, pleasure]
+@end display
+
+@noindent
+but I had no profound intention.
+(if farfetched, IMAP @t{=>} you can read mail anywhere @t{=>} desire to
+wander ?)
+
+Elmo is the abbreviation of @samp{Elisp Library for Message
+Orchestration}.
+At first I meant the red puppet in the Sesame Street, but you may
+associate it with
+Wandering @t{=>} Drifting @t{=>} Guidepost @t{=>} St.@: Elmo's fire @t{=>} elmo.
+
+@section Code Names
+
+Each versions has code names (they are almost jokes).
+Currently they are picked up alphabetically from the top 40 hits of
+U.S. Billboard magazines in 1980s.
+
+(@samp{http://www.summer.com.br/~pfilho/html/top40/index.html})
+
+
+@node Index,  , Addition, Top
+@unnumbered Index
+
+@menu
+* Concept Index::               Concept Index
+* Key Index::                   Key Index
+* Variable Index::              Variable Index
+* Function Index::              Function Index
+@end menu
+
+@node Concept Index, Key Index, Index, Index
+@unnumberedsec Concept Index
+@printindex cp
+
+@node Key Index, Variable Index, Concept Index, Index
+@unnumberedsec Key Index
+@printindex ky
+
+@node Variable Index, Function Index, Key Index, Index
+@unnumberedsec Variable Index
+@printindex vr
+
+@node Function Index,  , Variable Index, Index
+@unnumberedsec Function Index
+@printindex fn
+
+@summarycontents
+@contents
+@bye
diff --git a/elmo/ChangeLog b/elmo/ChangeLog
new file mode 100644
index 0000000..11ba6ae
--- /dev/null
+++ b/elmo/ChangeLog
@@ -0,0 +1,14 @@
+2000-04-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-pop3.el (elmo-pop3-open-connection): Enclose with
+	as-binary-process.
+
+2000-03-29  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* elmo-util.el (elmo-display-progress): Fixed.
+
+2000-03-27  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* elmo-util.el (elmo-display-progress): New function.
+	All other related modules are changed.
+
diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
new file mode 100644
index 0000000..323d47b
--- /dev/null
+++ b/elmo/elmo-archive.el
@@ -0,0 +1,1054 @@
+;;; elmo-archive.el -- Archive folder of ELMO.
+
+;; Copyright 1998,1999,2000 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;;                          Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author:  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;; Keywords: mail, net news
+;; Created: Sep 13, 1998
+;; Revised: Dec 15, 1998
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+;; TODO:
+;; [$B%\%=(B] append-msgs() $B$,M_$7$$!J$1$I(B multi-refile $BIT2D!K!#(B
+;; Info-Zip $B@lMQ%(!<%8%'%s%H$rMQ$$$?F|K\8l8!:w!J(BOS/2 $B@lMQ!K!#(B
+
+;;; Code:
+;; 
+
+(require 'elmo-msgdb)
+(require 'emu)
+(require 'std11)
+(eval-when-compile (require 'elmo-localdir))
+
+;;; Const
+(defconst elmo-archive-version "v0.18 [990729/alpha]")
+
+;;; User vars.
+(defvar elmo-archive-lha-dos-compatible
+  (memq system-type '(OS/2 emx windows-nt))
+  "*If non-nil, regard your LHA as compatible to DOS version.")
+
+(defvar elmo-archive-use-izip-agent (memq system-type '(OS/2 emx))
+  "*If non-nil, use the special agent in fetching headers.")
+
+(defvar elmo-archive-folder-path "~/Mail"
+  "*Base directory for archive folders.")
+
+(defvar elmo-archive-basename "elmo-archive"
+  "*Common basename of archive folder file, w/o suffix.")
+
+(defvar elmo-archive-cmdstr-max-length 8000 ; SASAKI Osamu's suggestion
+  "*Command line string limitation under OS/2, exactly 8190 bytes.")
+
+(defvar elmo-archive-fetch-headers-volume 50
+  "*Quantity of article headers to fetch per once.")
+
+(defvar elmo-archive-dummy-file ".elmo-archive"
+  "*Name of dummy file that will be appended when the folder is null.")
+
+(defvar elmo-archive-check-existance-strict t
+  "*Check existance of archive contents if non-nil.")
+
+(defvar elmo-archive-load-hook nil
+  "*Hook called after loading elmo-archive.el.")
+
+(defvar elmo-archive-treat-file nil
+  "*Treat archive folder as a file if non-nil.")
+
+;;; MMDF parser -- info-zip agent w/ REXX
+(defvar elmo-mmdf-delimiter "^\01\01\01\01$"
+  "*Regular expression of MMDF delimiter.")
+
+(defvar elmo-unixmail-delimiter "^From \\([^ \t]+\\) \\(.+\\)"
+  "*Regular expression of UNIX Mail delimiter.")
+
+(defvar elmo-archive-header-regexp "^[ \t]*[-=][-=][-=][-=]"
+  "*Common regexp of the delimiter in listing archive.") ;; marche
+
+(defvar elmo-archive-file-regexp-alist
+  (append
+   (if elmo-archive-lha-dos-compatible
+       '((lha . "^%s\\([0-9]+\\)$"))		; OS/2,DOS w/  "-x"
+     '((lha . "^.*[ \t]%s\\([0-9]+\\)$")))
+   '((zip . "^.*[ \t]%s\\([0-9]+\\)$")
+     (zoo . "^.*[ \t]%s\\([0-9]+\\)$")
+     (tar . "^%s\\([0-9]+\\)$") ; ok
+     (tgz . "^%s\\([0-9]+\\)$") ; ok
+     (rar . "^[ \t]%s\\([0-9]+\\)$"))))
+
+(defvar elmo-archive-suffix-alist
+   '((lha . ".lzh")  ; default
+;    (lha . ".lzs")
+     (zip . ".zip")
+     (zoo . ".zoo")
+;    (arc . ".arc")
+;    (arj . ".arj")
+     (rar . ".rar")
+     (tar . ".tar")
+     (tgz . ".tar.gz")))
+
+;;; lha
+(defvar elmo-archive-lha-method-alist
+  (if elmo-archive-lha-dos-compatible
+      ;; OS/2
+      '((cp  . ("lha" "u" "-x"))
+	(mv  . ("lha" "m" "-x"))
+	(rm  . ("lha" "d"))
+	(ls  . ("lha" "l" "-x"))
+	(cat . ("lha" "p" "-n"))
+	(ext . ("lha" "x")) ; "-x"
+	)
+    ;; some UN|X
+    '((cp  . ("lha" "u"))
+      (mv  . ("lha" "m"))
+      (rm  . ("lha" "d"))
+      (ls  . ("lha" "l"))
+      (cat . ("lha" "pq"))
+      (ext . ("lha" "x")))))
+
+;;; info-zip/unzip
+(defvar elmo-archive-zip-method-alist
+  '((cp       . ("zip" "-9q"))
+    (cp-pipe  . ("zip" "-9q@"))
+    (mv       . ("zip" "-mDq9"))
+    (mv-pipe  . ("zip" "-mDq9@"))
+    (rm       . ("zip" "-dq"))
+    (rm-pipe  . ("zip" "-dq@"))
+    (ls       . ("unzip" "-lq"))
+    (cat      . ("unzip" "-pq"))
+    (ext      . ("unzip"))
+    (cat-headers . ("izwlagent" "--cat"))))
+
+;;; zoo
+(defvar elmo-archive-zoo-method-alist
+  '((cp       . ("zoo" "aq"))
+    (cp-pipe  . ("zoo" "aqI"))
+    (mv       . ("zoo" "aMq"))
+    (mv-pipe  . ("zoo" "aMqI"))
+    (rm       . ("zoo" "Dq"))
+    (ls       . ("zoo" "l"))  ; normal
+    (cat      . ("zoo" "xpq"))
+    (ext      . ("zoo" "xq"))))
+
+;;; rar
+(defvar elmo-archive-rar-method-alist
+  '((cp       . ("rar" "u" "-m5"))
+    (mv       . ("rar" "m" "-m5"))
+    (rm       . ("rar" "d"))
+    (ls       . ("rar" "v"))
+    (cat      . ("rar" "p" "-inul"))
+    (ext      . ("rar" "x"))))
+
+;;; GNU tar (*.tar)
+(defvar elmo-archive-tar-method-alist
+  (if elmo-archive-lha-dos-compatible
+      '((ls   . ("gtar" "-tf"))
+	(cat  . ("gtar" "--posix Oxf"))
+	(ext  . ("gtar" "-xf"))
+	;;(rm   . ("gtar" "--posix" "--delete" "-f")) ;; well not work
+	)
+  '((ls    . ("gtar" "-tf"))
+    (cat   . ("gtar" "-Oxf"))
+    (ext   . ("gtar" "-xf"))
+    ;;(rm    . ("gtar" "--delete" "-f")) ;; well not work
+    )))
+
+;;; GNU tar (*.tar.gz, *.tar.Z, *.tar.bz2)
+(defvar elmo-archive-tgz-method-alist
+  '((ls         . ("gtar" "-ztf"))
+    (cat        . ("gtar" "-Ozxf"))
+    (create     . ("gtar" "-zcf"))
+    ;;(rm       . elmo-archive-tgz-rm-func)
+    (cp         . elmo-archive-tgz-cp-func)
+    (mv         . elmo-archive-tgz-mv-func)
+    (ext        . ("gtar" "-zxf"))
+    ;; tgz special method
+    (decompress . ("gzip" "-d"))
+    (compress   . ("gzip"))
+    (append     . ("gtar" "-uf"))
+    ;;(delete     . ("gtar" "--delete" "-f")) ;; well not work
+    ))
+
+(defvar elmo-archive-method-list
+  '(elmo-archive-lha-method-alist
+    elmo-archive-zip-method-alist
+    elmo-archive-zoo-method-alist
+;   elmo-archive-tar-method-alist
+    elmo-archive-tgz-method-alist
+;   elmo-archive-arc-method-alist
+;   elmo-archive-arj-method-alist
+    elmo-archive-rar-method-alist))
+
+;;; Internal vars.
+(defvar elmo-archive-method-alist nil)
+(defvar elmo-archive-suffixes nil)
+
+
+;;; Macro
+(defmacro elmo-archive-get-method (type action)
+  (` (cdr (assq (, action) (cdr (assq (, type)
+				      elmo-archive-method-alist))))))
+
+(defmacro elmo-archive-get-suffix (type)
+  (` (cdr (assq (, type)
+		elmo-archive-suffix-alist))))
+
+(defmacro elmo-archive-get-regexp (type)
+  (` (cdr (assq (, type)
+		elmo-archive-file-regexp-alist))))
+
+(defsubst elmo-archive-call-process (prog args &optional output)
+  (= (apply 'call-process prog nil output nil args) 0))
+
+(defsubst elmo-archive-call-method (method args &optional output)
+  (cond
+   ((functionp method)
+    (funcall method args output))
+   (t
+    (elmo-archive-call-process
+     (car method) (append (cdr method) args) output))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Scan Folder
+
+(defsubst elmo-archive-list-folder-subr (file type prefix &optional nonsort)
+  "*Returns list of number-file(int, not string) in archive FILE.
+TYPE specifies the archiver's symbol."
+  (let* ((method (elmo-archive-get-method type 'ls))
+	 (args (list file))
+	 (file-regexp (format (elmo-archive-get-regexp type)
+			      (elmo-concat-path (regexp-quote prefix) "")))
+	 buf file-list header-end)
+    (when (file-exists-p file)
+      (save-excursion
+	(set-buffer (setq buf (get-buffer-create " *ELMO ARCHIVE ls*")))
+	(unless (elmo-archive-call-method method args t)
+	  (error "%s exited abnormally!" method))
+	(goto-char (point-min))
+	(when (re-search-forward elmo-archive-header-regexp nil t)
+	  (forward-line 1)
+	  (setq header-end (point))
+	  (when (re-search-forward elmo-archive-header-regexp nil t)
+	      (beginning-of-line)
+	      (narrow-to-region header-end (point))
+	      (goto-char (point-min))))
+	(while (and (re-search-forward file-regexp nil t)
+		    (not (eobp)))  ; for GNU tar 981010
+	  (setq file-list (nconc file-list (list (string-to-int
+						  (match-string 1))))))
+	(kill-buffer buf)))
+    (if nonsort
+	(cons (or (elmo-max-of-list file-list) 0) (length file-list))
+      (sort file-list '<))))
+
+(defun elmo-archive-list-folder (spec)
+  (let* ((type (nth 2 spec))
+	 (prefix (nth 3 spec))
+	 (arc (elmo-archive-get-archive-name (nth 1 spec) type spec)))
+    (elmo-archive-list-folder-subr arc type prefix)))
+
+(defun elmo-archive-max-of-folder (spec)
+  (let* ((type (nth 2 spec))
+	 (prefix (nth 3 spec))
+         (arc (elmo-archive-get-archive-name (nth 1 spec) type spec)))
+    (elmo-archive-list-folder-subr arc type prefix t)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Folder related functions
+
+(defsubst elmo-archive-get-archive-directory (name)
+  ;; allow fullpath. return format is "/foo/bar/".
+  (if (file-name-absolute-p name)
+      (if (find-file-name-handler name 'copy-file)
+	  name
+	(expand-file-name name))
+    (expand-file-name name elmo-archive-folder-path)))
+
+(defun elmo-archive-get-archive-name (folder type &optional spec)
+  (let ((dir (elmo-archive-get-archive-directory folder))
+        (suffix (elmo-archive-get-suffix type))
+	filename dbdir)
+    (if elmo-archive-treat-file
+	(if (string-match (concat (regexp-quote suffix) "$") folder)
+	    (expand-file-name
+	     folder
+	     elmo-archive-folder-path)
+	  (expand-file-name
+	   (concat folder suffix)
+	   elmo-archive-folder-path))
+      (if (and (not (find-file-name-handler dir 'copy-file)) ; dir is local.
+	       (or (not (file-exists-p dir))
+		   (file-directory-p dir)))
+	  (expand-file-name
+	   (concat elmo-archive-basename suffix)
+	   dir)
+	;; for full-path specification.
+	(if (and (find-file-name-handler dir 'copy-file) ; ange-ftp, efs
+		 spec)
+	    (progn
+	      (setq filename (expand-file-name 
+			      (concat elmo-archive-basename suffix)
+			      (setq dbdir (elmo-msgdb-expand-path nil spec))))
+	      (if (file-directory-p dbdir)
+		  (); ok.
+		(if (file-exists-p dbdir)
+		    (error "File %s already exists" dbdir)
+		  (elmo-make-directory dbdir)))
+	      (if (not (file-exists-p filename))
+		  (copy-file
+		   (if (file-directory-p dir)
+		       (expand-file-name
+			(concat elmo-archive-basename suffix)
+			dir)
+		     dir)
+		   filename))
+	      filename)
+	  dir)))))
+
+(defun elmo-archive-folder-exists-p (spec)
+  (file-exists-p
+   (elmo-archive-get-archive-name (nth 1 spec) (nth 2 spec) spec)))
+
+(defun elmo-archive-folder-creatable-p (spec)
+  t)
+
+(defun elmo-archive-create-folder (spec)
+  (let* ((dir (directory-file-name ;; remove tail slash.
+	       (elmo-archive-get-archive-directory (nth 1 spec))))
+         (type (nth 2 spec))
+         (arc (elmo-archive-get-archive-name (nth 1 spec) type)))
+    (if elmo-archive-treat-file
+	(setq dir (directory-file-name (file-name-directory dir))))
+    (cond ((and (file-exists-p dir)
+		(not (file-directory-p dir)))
+           ;; file exists
+           (error "Create folder failed; File \"%s\" exists" dir))
+          ((file-directory-p dir)
+           (if (file-exists-p arc)
+               t  ; return value
+	     (elmo-archive-create-file arc type spec)))
+          (t
+	   (elmo-make-directory dir)
+	   (elmo-archive-create-file arc type spec)
+	   t))))
+
+(defun elmo-archive-create-file (archive type spec)
+  (save-excursion
+    (let* ((tmp-dir (directory-file-name
+		     (elmo-msgdb-expand-path nil spec)))
+           (dummy elmo-archive-dummy-file)
+           (method (or (elmo-archive-get-method type 'create)
+		       (elmo-archive-get-method type 'mv)))
+	   (args (list archive dummy)))
+      (when (null method)
+	(ding)
+	(error "WARNING: read-only mode: %s (method undefined)" type))
+      (cond
+       ((file-directory-p tmp-dir)
+	()) ;nop
+       ((file-exists-p tmp-dir)
+	;; file exists
+	(error "Create directory failed; File \"%s\" exists" tmp-dir))
+       (t
+	(elmo-make-directory tmp-dir)))
+      (elmo-bind-directory
+       tmp-dir
+       (write-region (point) (point) dummy nil 'no-msg)
+       (prog1
+	   (elmo-archive-call-method method args)
+	 (if (file-exists-p dummy)
+	     (delete-file dummy)))
+       ))))
+
+(defun elmo-archive-delete-folder (spec)
+  (let* ((arc (elmo-archive-get-archive-name (nth 1 spec) (nth 2 spec))))
+    (if (not (file-exists-p arc))
+	(error "no such file: %s" arc)
+      (delete-file arc)
+      t)))
+
+(defun elmo-archive-rename-folder (old-spec new-spec)
+  (let* ((old-arc (elmo-archive-get-archive-name
+		   (nth 1 old-spec) (nth 2 old-spec)))
+	 (new-arc (elmo-archive-get-archive-name
+		   (nth 1 new-spec) (nth 2 new-spec))))
+    (unless (and (eq (nth 2 old-spec) (nth 2 new-spec))
+		 (equal (nth 3 old-spec) (nth 3 new-spec)))
+      (error "not same archive type and prefix"))
+    (if (not (file-exists-p old-arc))
+	(error "no such file: %s" old-arc)
+      (if (file-exists-p new-arc)
+	  (error "already exists: %s" new-arc)
+	(rename-file old-arc new-arc)
+	t))))
+
+(defun elmo-archive-list-folders (spec &optional hierarchy)
+  (let ((folder (concat "$" (nth 1 spec)))
+	(elmo-localdir-folder-path elmo-archive-folder-path))
+    (if elmo-archive-treat-file
+	(let* ((path (elmo-localdir-get-folder-directory spec))
+	       (base-folder (or (file-name-directory (nth 1 spec)) ""))
+	       (suffix (nth 2 spec))
+	       (prefix (if (string= (nth 3 spec) "")
+			   "" (concat ";" (nth 3 spec))))
+	       (dir (if (file-directory-p path)
+			path (file-name-directory path)))
+	       (name (if (file-directory-p path)
+			 "" (file-name-nondirectory path)))
+	       (flist (and (file-directory-p dir)
+			   (directory-files dir nil name nil)))
+	       (regexp (format "^\\(.*\\)\\(%s\\)$"
+			       (mapconcat
+				'(lambda (x) (regexp-quote (cdr x)))
+				elmo-archive-suffix-alist
+				"\\|"))))
+	  (delq
+	   nil
+	   (mapcar
+	    '(lambda (x)
+	       (when (and (string-match regexp x)
+			  (eq suffix
+			      (car
+			       (rassoc (elmo-match-string 2 x)
+				       elmo-archive-suffix-alist))))
+		 (format "$%s;%s%s"
+			 (elmo-concat-path base-folder (elmo-match-string 1 x))
+			 suffix prefix)
+		 ))
+	    flist)))
+      (elmo-localdir-list-folders-subr folder hierarchy))))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Article file related functions
+;;; read(extract) / append(move) / delete(delete) / query(list)
+
+(defun elmo-archive-read-msg (spec number outbuf)
+  (save-excursion
+    (let* ((type (nth 2 spec))
+	   (arc (elmo-archive-get-archive-name (nth 1 spec) type spec))
+	   (prefix (nth 3 spec))
+	   (method (elmo-archive-get-method type 'cat))
+	   (args (list arc (elmo-concat-path 
+			    prefix (int-to-string number)))))
+      (set-buffer outbuf)
+      (erase-buffer)
+      (when (file-exists-p arc)
+	(and
+	 (as-binary-process
+	  (elmo-archive-call-method method args t))
+	 (elmo-delete-cr-get-content-type))))))
+
+(defun elmo-archive-append-msg (spec string &optional msg no-see) ;;; verrrrrry slow!!
+  (let* ((type (nth 2 spec))
+	 (prefix (nth 3 spec))
+	 (arc (elmo-archive-get-archive-name (nth 1 spec) type))
+	 (method (elmo-archive-get-method type 'mv))
+	 (tmp-buffer (get-buffer-create " *ELMO ARCHIVE mv*"))
+	 (next-num (or msg
+		       (1+ (if (file-exists-p arc)
+			       (car (elmo-archive-max-of-folder spec)) 0))))
+	 (tmp-dir (elmo-msgdb-expand-path nil spec))
+	 newfile)
+    (when (null method)
+      (ding)
+      (error "WARNING: read-only mode: %s (method undefined)" type))
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (let ((tmp-dir (expand-file-name prefix tmp-dir)))
+	(when (not (file-directory-p tmp-dir))
+	  (elmo-make-directory (directory-file-name tmp-dir))))
+      (setq newfile (elmo-concat-path
+		     prefix
+		     (int-to-string next-num)))
+      (unwind-protect
+	  (elmo-bind-directory
+	   tmp-dir
+	   (if (and (or (functionp method) (car method))
+		    (file-writable-p newfile))
+	       (progn
+		 (insert string)
+		 (as-binary-output-file
+		  (write-region (point-min) (point-max) newfile nil 'no-msg))
+		 (elmo-archive-call-method method (list arc newfile)))
+	     nil))
+	(kill-buffer tmp-buffer)))))
+
+;;; (localdir, maildir, localnews, archive) -> archive
+(defun elmo-archive-copy-msgs (dst-spec msgs src-spec
+					&optional loc-alist same-number)
+  (let* ((dst-type (nth 2 dst-spec))
+	 (arc (elmo-archive-get-archive-name (nth 1 dst-spec) dst-type))
+	 (prefix (nth 3 dst-spec))
+	 (p-method (elmo-archive-get-method dst-type 'mv-pipe))
+	 (n-method (elmo-archive-get-method dst-type 'mv))
+	 (new (unless same-number
+		(1+ (car (elmo-archive-max-of-folder dst-spec)))))
+	 (src-dir (elmo-localdir-get-folder-directory src-spec))
+	 (tmp-dir
+	  (file-name-as-directory (elmo-msgdb-expand-path nil dst-spec)))
+	 (do-link t)
+	 src tmp newfile tmp-msgs)
+    (when (not (elmo-archive-folder-exists-p dst-spec))
+      (elmo-archive-create-folder dst-spec))
+    (when (null (or p-method n-method))
+      (ding)
+      (error "WARNING: read-only mode: %s (method undefined)" dst-type))
+    (when (and same-number
+	       (not (eq (car src-spec) 'maildir))
+	       (string-match (concat prefix "$") src-dir)
+	       (or
+		(elmo-archive-get-method dst-type 'cp-pipe)
+		(elmo-archive-get-method dst-type 'cp)))
+      (setq tmp-dir (substring src-dir 0 (match-beginning 0)))
+      (setq p-method (elmo-archive-get-method dst-type 'cp-pipe)
+	    n-method (elmo-archive-get-method dst-type 'cp))
+      (setq tmp-msgs (mapcar '(lambda (x) 
+				(elmo-concat-path prefix (int-to-string x)))
+			     msgs))
+      (setq do-link nil))
+    (when do-link
+      (let ((tmp-dir (expand-file-name prefix tmp-dir)))
+	(when (not (file-directory-p tmp-dir))
+	  (elmo-make-directory (directory-file-name tmp-dir))))
+      (while msgs
+	(setq newfile (elmo-concat-path prefix (int-to-string
+						(if same-number
+						    (car msgs)
+						  new))))
+	(setq tmp-msgs (nconc tmp-msgs (list newfile)))
+	(elmo-copy-file
+	 ;; src file
+	 (elmo-call-func src-spec "get-msg-filename" (car msgs) loc-alist)
+	 ;; tmp file
+	 (expand-file-name newfile tmp-dir))
+	(setq msgs (cdr msgs))
+	(unless same-number (setq new (1+ new)))))
+    (save-excursion
+      (elmo-bind-directory
+       tmp-dir
+       (cond
+	((functionp n-method)
+	 (funcall n-method (cons arc tmp-msgs)))
+	(p-method
+	 (let ((p-prog (car p-method))
+	       (p-prog-arg (cdr p-method)))
+	   (elmo-archive-exec-msgs-subr1
+	    p-prog (append p-prog-arg (list arc)) tmp-msgs)))
+	(t
+	 (let ((n-prog (car n-method))
+	       (n-prog-arg (cdr n-method)))
+	   (elmo-archive-exec-msgs-subr2
+	    n-prog (append n-prog-arg (list arc)) tmp-msgs (length arc)))))))))
+
+;;; archive -> (localdir, localnews, archive)
+(defun elmo-archive-copy-msgs-froms (dst-spec msgs src-spec
+					      &optional loc-alist same-number)
+  (let* ((src-type (nth 2 src-spec))
+	 (arc (elmo-archive-get-archive-name (nth 1 src-spec) src-type))
+	 (prefix (nth 3 src-spec))
+	 (p-method (elmo-archive-get-method src-type 'ext-pipe))
+	 (n-method (elmo-archive-get-method src-type 'ext))
+	 (tmp-dir
+	  (file-name-as-directory (elmo-msgdb-expand-path nil src-spec)))
+	 (tmp-msgs (mapcar '(lambda (x) (elmo-concat-path
+					 prefix
+					 (int-to-string x)))
+			   msgs))
+	 result)
+    (unwind-protect
+	(setq result
+	      (and
+	       ;; extract messages
+	       (save-excursion
+		 (elmo-bind-directory
+		  tmp-dir
+		  (cond
+		   ((functionp n-method)
+		    (funcall n-method (cons arc tmp-msgs)))
+		   (p-method
+		    (let ((p-prog (car p-method))
+			  (p-prog-arg (cdr p-method)))
+		      (elmo-archive-exec-msgs-subr1
+		       p-prog (append p-prog-arg (list arc)) tmp-msgs)))
+		   (t
+		    (let ((n-prog (car n-method))
+			  (n-prog-arg (cdr n-method)))
+		      (elmo-archive-exec-msgs-subr2
+		       n-prog (append n-prog-arg (list arc)) tmp-msgs (length arc)))))))
+	       ;; call elmo-*-copy-msgs of destination folder
+	       (elmo-call-func dst-spec "copy-msgs"
+			       msgs src-spec loc-alist same-number)))
+      ;; clean up tmp-dir
+      (elmo-bind-directory
+       tmp-dir
+       (while tmp-msgs
+	 (if (file-exists-p (car tmp-msgs))
+	     (delete-file (car tmp-msgs)))
+	 (setq tmp-msgs (cdr tmp-msgs))))
+      result)))
+
+(defun elmo-archive-delete-msgs (spec msgs)
+  (save-excursion
+    (let* ((type (nth 2 spec))
+	   (prefix (nth 3 spec))
+	   (arc (elmo-archive-get-archive-name (nth 1 spec) type))
+	   (p-method (elmo-archive-get-method type 'rm-pipe))
+	   (n-method (elmo-archive-get-method type 'rm))
+	   (msgs (mapcar '(lambda (x) (elmo-concat-path
+				       prefix
+				       (int-to-string x)))
+			 msgs)))
+      (cond ((functionp n-method)
+	     (funcall n-method (cons arc msgs)))
+            (p-method
+	     (let ((p-prog (car p-method))
+		   (p-prog-arg (cdr p-method)))
+	       (elmo-archive-exec-msgs-subr1
+		p-prog (append p-prog-arg (list arc)) msgs)))
+            (n-method
+	     (let ((n-prog (car n-method))
+		   (n-prog-arg (cdr n-method)))
+	       (elmo-archive-exec-msgs-subr2
+		n-prog (append n-prog-arg (list arc)) msgs (length arc))))
+	    (t
+	     (ding)
+	     (error "WARNING: not delete: %s (method undefined)" type))) )))
+
+(defun elmo-archive-exec-msgs-subr1 (prog args msgs)
+  (let ((buf (get-buffer-create " *ELMO ARCHIVE exec*")))
+    (set-buffer buf)
+    (insert (mapconcat 'concat msgs "\n")) ;string
+    (unwind-protect
+	(= 0
+	   (apply 'call-process-region (point-min) (point-max)
+		  prog nil nil nil args))
+      (kill-buffer buf))))
+
+(defun elmo-archive-exec-msgs-subr2 (prog args msgs arc-length)
+  (let ((max-len (- elmo-archive-cmdstr-max-length arc-length))
+	(n (length msgs))
+	rest i sum)
+    (setq rest msgs) ;string
+    (setq i 1)
+    (setq sum 0)
+    (catch 'done
+      (while (and rest (<= i n))
+	(mapcar '(lambda (x)
+		   (let* ((len (length x))
+			  (files (member x (reverse rest))))
+		     ;; total(previous) + current + white space
+		     (if (<= max-len (+ sum len 1))
+			 (progn
+			   (unless
+			       (elmo-archive-call-process
+				prog (append args files))
+			     (throw 'done nil))
+			   (setq sum 0) ;; reset
+			   (setq rest (nthcdr i rest)))
+		       (setq sum (+ sum len 1)))
+		     (setq i (1+ i)))) msgs))
+      (throw 'done
+	     (or (not rest)
+		 (elmo-archive-call-process prog (append args rest))))
+      )))
+
+(defsubst elmo-archive-article-exists-p (arc msg type)
+  (if (not elmo-archive-check-existance-strict)
+      t  ; nop
+    (save-excursion ;; added 980915
+      (let* ((method (elmo-archive-get-method type 'ls))
+	     (args (list arc msg))
+	     (buf (get-buffer-create " *ELMO ARCHIVE query*"))
+	     (error-msg "\\(no file\\|0 files\\)")
+	     ret-val)
+	(set-buffer buf)
+	(erase-buffer)
+	(elmo-archive-call-method method args t)
+	;; pointer: point-max
+	(setq ret-val (not (re-search-backward error-msg nil t)))
+	(kill-buffer buf)
+	ret-val))))
+
+(defun elmo-archive-tgz-common-func (args exec-type &optional copy)
+  (let* ((arc (car args))
+	 (tmp-msgs (cdr args))
+	 (decompress (elmo-archive-get-method 'tgz 'decompress))
+	 (compress (elmo-archive-get-method 'tgz 'compress))
+	 (exec (elmo-archive-get-method 'tgz exec-type))
+	 (suffix (elmo-archive-get-suffix 'tgz))
+	 (tar-suffix (elmo-archive-get-suffix 'tar))
+	 arc-tar ret-val
+	 )
+    (when (null (and decompress compress exec))
+      (ding)
+      (error "WARNING: special method undefined: %s of %s"
+	     (or (if (null decompress) 'decompress)
+		 (if (null compress) 'compress)
+		 (if (null exec) exec-type))
+	     'tgz))
+    (unless tar-suffix
+      (ding)
+      (error "WARNING: `tar' suffix undefined"))
+    (if (string-match (concat (regexp-quote suffix) "$") arc)
+	(setq arc-tar
+	      (concat (substring arc 0 (match-beginning 0)) tar-suffix))
+      (error "%s: not match suffix [%s]" arc suffix))
+    (and
+     ;; decompress
+     (elmo-archive-call-process
+      (car decompress) (append (cdr decompress) (list arc)))
+     ;; append (or delete)
+     (elmo-archive-exec-msgs-subr2
+      (car exec) (append (cdr exec) (list arc-tar)) tmp-msgs (length arc-tar))
+     ;; compress
+     (setq ret-val
+	   (elmo-archive-call-process
+	    (car compress) (append (cdr compress) (list arc-tar)))))
+    ;; delete tmporary messages
+    (if (and (not copy)
+	     (eq exec-type 'append))
+	(while tmp-msgs
+	  (if (file-exists-p (car tmp-msgs))
+	      (delete-file (car tmp-msgs)))
+	  (setq tmp-msgs (cdr tmp-msgs))))
+    ret-val))
+
+(defun elmo-archive-tgz-cp-func (args &optional output)
+  (elmo-archive-tgz-common-func args 'append t))
+
+(defun elmo-archive-tgz-mv-func (args &optional output)
+  (elmo-archive-tgz-common-func args 'append))
+
+(defun elmo-archive-tgz-rm-func (args &optional output)
+  (elmo-archive-tgz-common-func args 'delete))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; MessageDB functions (from elmo-localdir.el)
+
+(defsubst elmo-archive-msgdb-create-entity-subr (number)
+  (let (header-end)
+    (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+    (goto-char (point-min))
+    (if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
+	(setq header-end (point))
+      (setq header-end (point-max)))
+    (narrow-to-region (point-min) header-end)
+    (elmo-msgdb-create-overview-from-buffer number)))
+
+(defsubst elmo-archive-msgdb-create-entity (method archive number type &optional prefix) ;; verrrry slow!!
+  (let* ((msg (elmo-concat-path prefix (int-to-string number)))
+	 (arg-list (list archive msg)))
+    (when (elmo-archive-article-exists-p archive msg type)
+      ;; insert article.
+      (as-binary-process
+       (elmo-archive-call-method method arg-list t))
+      (elmo-archive-msgdb-create-entity-subr number))))
+
+(defun elmo-archive-msgdb-create-as-numlist (spec numlist new-mark
+						  already-mark seen-mark
+						  important-mark seen-list)
+  (when numlist
+    (save-excursion ;; 981005
+      (if (and elmo-archive-use-izip-agent
+	       (elmo-archive-get-method (nth 2 spec) 'cat-headers))
+	  (elmo-archive-msgdb-create-as-numlist-subr2
+           spec numlist new-mark already-mark seen-mark important-mark 
+	   seen-list)
+	(elmo-archive-msgdb-create-as-numlist-subr1
+         spec numlist new-mark already-mark seen-mark important-mark
+	 seen-list)))))
+
+(defalias 'elmo-archive-msgdb-create 'elmo-archive-msgdb-create-as-numlist)
+
+
+(defun elmo-archive-msgdb-create-as-numlist-subr1 (spec numlist new-mark
+							already-mark seen-mark
+							important-mark 
+							seen-list)
+  (let* ((type (nth 2 spec))
+	 (file (elmo-archive-get-archive-name (nth 1 spec) type spec))
+	 (method (elmo-archive-get-method type 'cat))
+	 (tmp-buf (get-buffer-create " *ELMO ARCHIVE msgdb*"))
+	 overview number-alist mark-alist entity
+	 i percent num message-id seen gmark)
+    (save-excursion
+      (set-buffer tmp-buf)
+      (setq num (length numlist))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while numlist
+	(erase-buffer)
+	(setq entity
+	      (elmo-archive-msgdb-create-entity
+	       method file (car numlist) type (nth 3 spec)))
+	(when entity
+	  (setq overview
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add
+		 number-alist
+		 (elmo-msgdb-overview-entity-get-number entity)
+		 (car entity)))
+	  (setq message-id (car entity))
+	  (setq seen (member message-id seen-list))
+	  (if (setq gmark
+		    (or (elmo-msgdb-global-mark-get message-id)
+			(if (elmo-cache-exists-p message-id) ; XXX
+			    (if seen
+				nil
+			      already-mark)
+			  (if seen
+			      seen-mark
+			    new-mark))))
+	      (setq mark-alist
+		    (elmo-msgdb-mark-append 
+		     mark-alist
+		     (elmo-msgdb-overview-entity-get-number entity)
+		     gmark))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) num))
+	(elmo-display-progress
+	 'elmo-archive-msgdb-create-as-numlist-subr1 "Creating msgdb..."
+	 percent)
+	(setq numlist (cdr numlist)))
+      (kill-buffer tmp-buf)
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist)) ))
+
+;;; info-zip agent
+(defun elmo-archive-msgdb-create-as-numlist-subr2 (spec numlist new-mark
+							already-mark seen-mark
+							important-mark
+							seen-list)
+  (let* ((buf (get-buffer-create " *ELMO ARCHIVE headers*"))
+	 (delim1 elmo-mmdf-delimiter)		;; MMDF
+	 (delim2 elmo-unixmail-delimiter)	;; UNIX Mail
+	 (type (nth 2 spec))
+	 (prefix (nth 3 spec))
+	 (method (elmo-archive-get-method type 'cat-headers))
+	 (prog (car method))
+	 (args (cdr method))
+	 (arc (elmo-archive-get-archive-name (nth 1 spec) type))
+	 n i percent num result overview number-alist mark-alist
+	 msgs case-fold-search)
+    (set-buffer buf)
+    (setq num (length numlist))
+    (setq i 0)
+    (message "Creating msgdb...")
+    (while numlist
+      (setq n (min (1- elmo-archive-fetch-headers-volume)
+		   (1- (length numlist))))
+      (setq msgs (reverse (memq (nth n numlist) (reverse numlist))))
+      (setq numlist (nthcdr (1+ n) numlist))
+      (erase-buffer)
+      (insert
+       (mapconcat
+	'concat
+	(mapcar '(lambda (x) (elmo-concat-path prefix (int-to-string x))) msgs)
+	"\n"))
+      (message "Fetching headers...")
+      (as-binary-process (apply 'call-process-region
+				(point-min) (point-max)
+				prog t t nil (append args (list arc))))
+      (goto-char (point-min))
+      (cond
+       ((looking-at delim1)	;; MMDF
+	(setq result (elmo-archive-parse-mmdf msgs
+					      new-mark
+					      already-mark seen-mark
+					      seen-list))
+	(setq overview (append overview (nth 0 result)))
+	(setq number-alist (append number-alist (nth 1 result)))
+	(setq mark-alist (append mark-alist (nth 2 result))))
+;      ((looking-at delim2)	;; UNIX MAIL
+;	(setq result (elmo-archive-parse-unixmail msgs))
+;	(setq overview (append overview (nth 0 result)))
+;	(setq number-alist (append number-alist (nth 1 result)))
+;	(setq mark-alist (append mark-alist (nth 2 result))))
+       (t			;; unknown format
+	(error "unknown format!")))
+      (setq i (+ n i))
+      (setq percent (/ (* i 100) num))
+      (elmo-display-progress
+       'elmo-archive-msgdb-create-as-numlist-subr2 "Creating msgdb..."
+       percent))
+    (kill-buffer buf)
+    (list overview number-alist mark-alist)) )
+
+(defun elmo-archive-parse-mmdf (msgs new-mark
+				     already-mark 
+				     seen-mark 
+				     seen-list)
+  (let ((delim elmo-mmdf-delimiter)
+	number sp ep rest entity overview number-alist mark-alist ret-val
+	message-id seen gmark)
+    (goto-char (point-min))
+    (setq rest msgs)
+    (while (and rest (re-search-forward delim nil t)
+                (not (eobp)))
+      (setq number (car rest))
+      (setq sp (1+ (point)))
+      (setq ep (prog2 (re-search-forward delim)
+		   (1+ (- (point) (length delim)))))
+      (if (>= sp ep) ; no article!
+	  ()  ; nop
+        (save-excursion
+          (narrow-to-region sp ep)
+          (setq entity (elmo-archive-msgdb-create-entity-subr number))
+	  (setq overview
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add
+		 number-alist
+		 (elmo-msgdb-overview-entity-get-number entity)
+		 (car entity)))
+	  (setq message-id (car entity))
+	  (setq seen (member message-id seen-list))
+	  (if (setq gmark 
+		    (or (elmo-msgdb-global-mark-get message-id)
+			(if (elmo-cache-exists-p message-id) ; XXX
+			    (if seen
+				nil
+			      already-mark)
+			  (if seen
+			      seen-mark
+			    new-mark))))
+	      (setq mark-alist
+		    (elmo-msgdb-mark-append 
+		     mark-alist
+		     (elmo-msgdb-overview-entity-get-number entity)
+		     gmark)))
+          (setq ret-val (append ret-val (list overview number-alist mark-alist)))
+	  (widen)))
+      (forward-line 1)
+      (setq rest (cdr rest)))
+    ret-val))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Search functions
+
+(defsubst elmo-archive-field-condition-match (spec number condition prefix)
+  (save-excursion
+    (let* ((type (nth 2 spec))
+	   (arc (elmo-archive-get-archive-name (nth 1 spec) type spec))
+	   (method (elmo-archive-get-method type 'cat))
+	   (args (list arc (elmo-concat-path prefix (int-to-string number)))))
+      (elmo-set-work-buf
+       (when (file-exists-p arc)
+	 (as-binary-process
+	  (elmo-archive-call-method method args t))
+	 (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+	 (decode-mime-charset-region (point-min)(point-max) elmo-mime-charset)
+	 (elmo-buffer-field-condition-match condition))))))
+
+(defun elmo-archive-search (spec condition &optional from-msgs)
+  (let* (;;(args (elmo-string-to-list key))
+	 ;; XXX: I don't know whether `elmo-archive-list-folder'
+	 ;;      updates match-data.
+	 ;; (msgs (or from-msgs (elmo-archive-list-folder spec)))
+	 (msgs (or from-msgs (elmo-archive-list-folder spec)))
+	 (num (length msgs))
+	 (i 0)
+	 (case-fold-search nil)
+	 ret-val)
+    (while msgs
+      (if (elmo-archive-field-condition-match spec (car msgs)
+					      condition
+					      (nth 3 spec))
+	  (setq ret-val (cons (car msgs) ret-val)))
+      (setq i (1+ i))
+      (elmo-display-progress
+       'elmo-archive-search "Searching..."
+       (/ (* i 100) num))
+      (setq msgs (cdr msgs)))
+    (nreverse ret-val)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Misc functions
+
+(defun elmo-archive-check-validity (spec validity-file)
+  t) ; ok.
+
+(defun elmo-archive-sync-validity (spec validity-file)
+  t) ; ok.
+
+
+;;; method(alist)
+(if (null elmo-archive-method-alist)
+    (let ((mlist elmo-archive-method-list) ; from mew-highlight.el
+	  method type str)
+      (while mlist
+	(setq method (car mlist))
+	(setq mlist (cdr mlist))
+	(setq str (symbol-name method))
+	(string-match "elmo-archive-\\([^-].*\\)-method-alist$" str)
+	(setq type (intern-soft
+		    (elmo-match-string 1 str)))
+	(setq elmo-archive-method-alist
+	      (cons (cons type
+			  (symbol-value method))
+		    elmo-archive-method-alist)))))
+
+;;; valid suffix(list)
+(if (null elmo-archive-suffixes)
+    (let ((slist elmo-archive-suffix-alist)
+	  tmp)
+      (while slist
+	(setq tmp (car slist))
+	(setq elmo-archive-suffixes
+	      (nconc elmo-archive-suffixes (list (cdr tmp))))
+	(setq slist (cdr slist)))))
+
+(defun elmo-archive-use-cache-p (spec number)
+  elmo-archive-use-cache)
+
+(defun elmo-archive-local-file-p (spec number)
+  nil)
+
+(defun elmo-archive-get-msg-filename (spec number &optional loc-alist)
+  (let ((tmp-dir (file-name-as-directory (elmo-msgdb-expand-path nil spec)))
+	(prefix (nth 3 spec)))
+    (expand-file-name
+     (elmo-concat-path prefix (int-to-string number))
+     tmp-dir)))
+
+(defalias 'elmo-archive-sync-number-alist 
+  'elmo-generic-sync-number-alist)
+(defalias 'elmo-archive-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-archive-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-archive-commit 'elmo-generic-commit)
+
+;;; End
+(run-hooks 'elmo-archive-load-hook)
+(provide 'elmo-archive)
+
+;;; elmo-archive.el ends here
diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el
new file mode 100644
index 0000000..f0ea53c
--- /dev/null
+++ b/elmo/elmo-cache.el
@@ -0,0 +1,737 @@
+;;; elmo-cache.el -- Cache modules for Elmo.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright 2000 Kenichi OKADA <okada@opaopa.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;;         Kenichi OKADA <okada@opaopa.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/01 09:57:55 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'elmo-vars)
+(require 'elmo-util)
+
+(defun elmo-cache-delete (msgid folder number)
+  "Delete cache file associated with message-id 'MSGID', FOLDER, NUMBER."
+  (let ((path (elmo-cache-exists-p msgid folder number)))
+    (if path (delete-file path))))
+
+(defsubst elmo-cache-to-msgid (filename)
+  (concat "<" (elmo-recover-msgid-from-filename filename) ">"))
+
+(defun elmo-cache-force-delete (path &optional locked)
+  "Delete cache file."
+  ;; for safety...
+  (unless (string-match elmo-cache-dirname path)
+    (error "%s is not cache file!" path))
+  (let (message-id)
+    (if (or (elmo-msgdb-global-mark-get 
+	     (setq message-id
+		   (elmo-cache-to-msgid (file-name-nondirectory path))))
+	    (member message-id locked))
+	nil ;; Don't delete caches with mark (or locked message).
+      (if (and path 
+	       (file-directory-p path))
+	  (progn
+	    (mapcar 'delete-file (directory-files path t "^[^\\.]"))
+	    (delete-directory path))
+	(delete-file path))
+      t)))
+
+(defun elmo-cache-delete-partial (msgid folder number)
+  "Delete cache file only if it is partial message."
+  (if msgid
+      (let ((path1 (elmo-cache-get-path msgid))
+	    path2)
+	(if (and path1 
+		 (file-exists-p path1))
+	    (if (and folder
+		     (file-directory-p path1))
+		(when (file-exists-p (setq path2 
+					   (expand-file-name
+					    (format "%s@%s" 
+						    number
+						    (elmo-safe-filename
+						     folder))
+					    path1)))
+		  (delete-file path2)
+		  (unless (directory-files path1 t "^[^\\.]")
+		    (delete-directory path1))))))))
+
+(defun elmo-cache-read (msgid &optional folder number outbuf)
+  "Read cache contents to outbuf"
+  (save-excursion
+    (let ((path (elmo-cache-exists-p msgid folder number)))
+      (when path
+	(if outbuf (set-buffer outbuf))
+	(erase-buffer)
+	(as-binary-input-file (insert-file-contents path))
+	t))))
+
+(defun elmo-cache-expire ()
+  (interactive)
+  (let* ((completion-ignore-case t)
+	 (method (completing-read (format "Expire by (%s): "
+					  elmo-cache-expire-default-method)
+				  '(("size" . "size")
+				    ("age" . "age")))))
+    (if (string= method "")
+	(setq method elmo-cache-expire-default-method))
+    (funcall (intern (concat "elmo-cache-expire-by-" method)))))
+
+(defun elmo-read-float-value-from-minibuffer (prompt &optional initial)
+  (let ((str (read-from-minibuffer prompt initial)))
+    (cond 
+     ((string-match "[0-9]*\\.[0-9]+" str)
+      (string-to-number str))
+     ((string-match "[0-9]+" str)
+      (string-to-number (concat str ".0")))
+     (t (error "%s is not number" str)))))
+
+(defun elmo-cache-expire-by-size (&optional kbytes)
+  "Expire cache file by size. 
+If KBYTES is kilo bytes (This value must be float)."
+  (interactive)
+  (let ((size (or kbytes
+		  (and (interactive-p)
+		       (elmo-read-float-value-from-minibuffer
+			"Enter cache disk size (Kbytes): "
+			(number-to-string
+			 (if (integerp elmo-cache-expire-default-size)
+			     (float elmo-cache-expire-default-size)
+			   elmo-cache-expire-default-size))))
+		  (if (integerp elmo-cache-expire-default-size)
+		      (float elmo-cache-expire-default-size))))
+	(locked (elmo-dop-lock-list-load))
+	(count 0)
+	(Kbytes 1024)
+	total beginning)
+    (message "Checking disk usage...")
+    (setq total (/ (elmo-disk-usage
+		    (expand-file-name
+		     elmo-cache-dirname elmo-msgdb-dir)) Kbytes))
+    (setq beginning total)
+    (message "Checking disk usage...done.")
+    (let ((cfl (elmo-cache-get-sorted-cache-file-list))
+	  (deleted 0)
+	  oldest 
+	  cur-size cur-file)
+      (while (and (<= size total)
+		  (setq oldest (elmo-cache-get-oldest-cache-file-entity cfl)))
+	(setq cur-file (expand-file-name (car (cdr oldest)) (car oldest)))
+	(if (file-directory-p cur-file)
+	    (setq cur-size (elmo-disk-usage cur-file))
+	  (setq cur-size 
+		(/ (float (nth 7 (file-attributes cur-file)))
+		   Kbytes)))
+	(when (elmo-cache-force-delete cur-file locked)
+	  (setq count (+ count 1))
+	  (message "%d cache(s) are expired." count))
+	(setq deleted (+ deleted cur-size))
+	(setq total (- total cur-size)))
+      (message "%d cache(s) are expired from disk (%d Kbytes/%d Kbytes)." 
+	       count deleted beginning))))
+
+(defun elmo-cache-make-file-entity (filename path)
+  (cons filename (elmo-get-last-accessed-time filename path)))
+
+(defun elmo-cache-get-oldest-cache-file-entity (cache-file-list)
+  (let ((cfl cache-file-list)
+	flist firsts oldest-entity wonlist)
+    (while cfl
+      (setq flist (cdr (car cfl)))
+      (setq firsts (append firsts (list 
+				   (cons (car (car cfl)) 
+					 (car flist)))))
+      (setq cfl (cdr cfl)))
+;    (prin1 firsts)
+    (while firsts
+      (if (and (not oldest-entity)
+	       (cdr (cdr (car firsts))))
+	  (setq oldest-entity (car firsts)))
+      (if (and (cdr (cdr (car firsts)))
+	       (cdr (cdr oldest-entity))
+	       (> (cdr (cdr oldest-entity)) (cdr (cdr (car firsts)))))
+	  (setq oldest-entity (car firsts)))
+      (setq firsts (cdr firsts)))
+    (setq wonlist (assoc (car oldest-entity) cache-file-list))
+    (and wonlist
+	 (setcdr wonlist (delete (car (cdr wonlist)) (cdr wonlist))))
+    oldest-entity))
+
+(defun elmo-cache-get-sorted-cache-file-list ()
+  (let ((dirs (directory-files 
+	       (expand-file-name elmo-cache-dirname elmo-msgdb-dir) 
+	       t "^[^\\.]"))
+	(i 0) num
+	elist
+	ret-val)
+    (setq num (length dirs))
+    (message "Collecting cache info...")
+    (while dirs
+      (setq elist (mapcar (lambda (x) 
+			    (elmo-cache-make-file-entity x (car dirs)))
+			  (directory-files (car dirs) nil "^[^\\.]")))
+      (setq ret-val (append ret-val
+			    (list (cons
+				   (car dirs)
+				   (sort 
+				    elist
+				    (lambda (x y)
+				      (< (cdr x)
+					 (cdr y))))))))
+      (setq i (+ i 1))
+      (elmo-display-progress
+       'elmo-cache-get-sorted-cache-file-list "Collecting cache info..."
+       (/ (* i 100) num))
+      (setq dirs (cdr dirs)))
+    ret-val))
+
+(defun elmo-cache-expire-by-age (&optional days)
+  (let ((age (or (and days (int-to-string days))
+		 (and (interactive-p)
+		      (read-from-minibuffer 
+		       (format "Enter days (%s): "
+			       elmo-cache-expire-default-age)))
+		 (int-to-string elmo-cache-expire-default-age)))
+	(dirs (directory-files 
+	       (expand-file-name elmo-cache-dirname elmo-msgdb-dir) 
+	       t "^[^\\.]"))
+	(locked (elmo-dop-lock-list-load))
+	(count 0)
+	curtime)
+    (if (string= age "")
+	(setq age elmo-cache-expire-default-age)
+      (setq age (string-to-int age)))
+    (setq curtime (current-time))
+    (setq curtime (+ (* (nth 0 curtime) 
+			(float 65536)) (nth 1 curtime)))
+    (while dirs
+      (let ((files (directory-files (car dirs) t "^[^\\.]"))
+	    (limit-age (* age 86400)))
+	(while files
+	  (when (> (- curtime (elmo-get-last-accessed-time (car files)))
+		   limit-age)
+	    (when (elmo-cache-force-delete (car files) locked)
+	      (setq count (+ 1 count))
+	      (message "%d cache file(s) are expired." count)))
+	  (setq files (cdr files))))
+      (setq dirs (cdr dirs)))))
+
+(defun elmo-cache-save (msgid partial folder number &optional inbuf)
+  "If partial is non-nil, save current buffer (or INBUF) as partial cache."
+  (condition-case nil
+  (save-excursion
+    (let* ((path (if partial
+		     (elmo-cache-get-path msgid folder number)
+		   (elmo-cache-get-path msgid)))
+	   dir tmp-buf)
+      (when path 
+	(setq dir (directory-file-name (file-name-directory path)))
+	(if (not (file-exists-p dir))
+	    (elmo-make-directory dir))
+	(if inbuf (set-buffer inbuf))
+	(goto-char (point-min))
+	(as-binary-output-file (write-region (point-min) (point-max)
+					     path nil 'no-msg)))))
+  (error)))
+
+(defun elmo-cache-exists-p (msgid &optional folder number)
+  "Returns the path if the cache exists."
+  (save-match-data
+    (if msgid
+	(let ((path (elmo-cache-get-path msgid)))
+	  (if (and path
+		   (file-exists-p path))
+	      (if (and folder
+		       (file-directory-p path))
+		  (if (file-exists-p (setq path (expand-file-name
+						 (format "%s@%s" 
+							 (or number "") 
+							 (elmo-safe-filename
+							  folder))
+						 path)))
+		      path
+		    )
+		;; not directory.
+		path))))))
+
+(defun elmo-cache-search-all (folder condition from-msgs)
+  (let* ((number-alist (elmo-msgdb-number-load
+			(elmo-msgdb-expand-path folder)))
+	 (nalist number-alist)
+	 (num (length number-alist))
+	 cache-file
+	 ret-val
+	 case-fold-search msg
+	 percent i)
+    (setq i 0)    
+    (while nalist
+      (if (and (setq cache-file (elmo-cache-exists-p (cdr (car nalist))
+						     folder 
+						     (car (car nalist))))
+	       (elmo-file-field-condition-match cache-file condition))
+	  (setq ret-val (append ret-val (list (caar nalist)))))
+      (setq i (1+ i))
+      (setq percent (/ (* i 100) num))
+      (elmo-display-progress
+       'elmo-cache-search-all "Searching..."
+       percent)
+      (setq nalist (cdr nalist)))
+    ret-val))
+
+(defun elmo-cache-collect-sub-directories (init dir &optional recursively)
+  "Collect subdirectories under 'dir'"
+  (let ((dirs 
+	 (delete (expand-file-name elmo-cache-dirname
+				   elmo-msgdb-dir)
+		 (directory-files dir t "^[^\\.]")))
+	ret-val)
+    (setq dirs (elmo-delete-if (lambda (x) (not (file-directory-p x))) dirs))
+    (setq ret-val (append init dirs))
+    (while (and recursively dirs)
+      (setq ret-val
+	    (elmo-cache-collect-sub-directories 
+	     ret-val
+	     (car dirs) recursively))
+      (setq dirs (cdr dirs)))
+    ret-val))
+
+(defun elmo-msgid-to-cache (msgid)
+  (when (and msgid 
+	     (string-match "<\\(.+\\)>$" msgid))
+    (elmo-replace-msgid-as-filename (elmo-match-string 1 msgid))))
+
+(defun elmo-cache-get-path (msgid &optional folder number)
+  "Get path for cache file associated with MSGID, FOLDER, and NUMBER."
+  (if (setq msgid (elmo-msgid-to-cache msgid))
+      (expand-file-name
+       (expand-file-name
+	(if folder
+	    (format "%s/%s/%s@%s" 
+		    (elmo-cache-get-path-subr msgid)
+		    msgid
+		    (or number "")
+		    (elmo-safe-filename folder))
+	  (format "%s/%s" 
+		  (elmo-cache-get-path-subr msgid)
+		  msgid))
+	(expand-file-name elmo-cache-dirname
+			  elmo-msgdb-dir)))))
+
+(defsubst elmo-cache-get-path-subr (msgid)
+  (let ((chars '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?A ?B ?C ?D ?E ?F))
+	(clist (string-to-char-list msgid))
+	(sum 0))
+    (while clist
+      (setq sum (+ sum (car clist)))
+      (setq clist (cdr clist)))
+    (format "%c%c"
+	    (nth (% (/ sum 16) 2) chars)
+	    (nth (% sum 16) chars))))
+  
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; buffer cache module
+
+(defconst elmo-buffer-cache-name " *elmo cache*")
+
+(defvar elmo-buffer-cache nil
+  "Message cache. (old ... new) order alist with association
+ ((\"folder\" message \"message-id\") . cache-buffer)")
+
+(defmacro elmo-buffer-cache-buffer-get (entry)
+  (` (cdr (, entry))))
+
+(defmacro elmo-buffer-cache-folder-get (entry)
+  (` (car (car (, entry)))))
+
+(defmacro elmo-buffer-cache-message-get (entry)
+  (` (cdr (car (, entry)))))
+
+(defmacro elmo-buffer-cache-entry-make (fld-msg-id buf)
+  (` (cons (, fld-msg-id) (, buf))))
+
+(defmacro elmo-buffer-cache-hit (fld-msg-id)
+  "Return value assosiated with key."
+  (` (elmo-buffer-cache-buffer-get
+      (assoc (, fld-msg-id) elmo-buffer-cache))))
+
+(defun elmo-buffer-cache-sort (entry)
+  (let* ((pointer (cons nil elmo-buffer-cache))
+	 (top pointer))
+    (while (cdr pointer)
+      (if (equal (car (cdr pointer)) entry)
+	  (setcdr pointer (cdr (cdr pointer)))
+	(setq pointer (cdr pointer))))
+    (setcdr pointer (list entry))
+    (setq elmo-buffer-cache (cdr top))))
+
+(defun elmo-buffer-cache-add (fld-msg-id)
+  "Adding (fld-msg-id . buf) to the top of \"elmo-buffer-cache\".
+Returning its cache buffer."
+  (let ((len (length elmo-buffer-cache))
+	(buf nil))
+    (if (< len elmo-buffer-cache-size)
+	(setq buf (get-buffer-create (format "%s%d" elmo-buffer-cache-name len)))
+      (setq buf (elmo-buffer-cache-buffer-get (nth (1- len) elmo-buffer-cache)))
+      (setcdr (nthcdr (- len 2) elmo-buffer-cache) nil))
+    (setq elmo-buffer-cache
+	  (cons (elmo-buffer-cache-entry-make fld-msg-id buf)
+		elmo-buffer-cache))
+    buf))
+
+(defun elmo-buffer-cache-delete ()
+  "Delete the most recent cache entry."
+  (let ((buf (elmo-buffer-cache-buffer-get (car elmo-buffer-cache))))
+    (setq elmo-buffer-cache
+	  (nconc (cdr elmo-buffer-cache)
+		 (list (elmo-buffer-cache-entry-make nil buf))))))
+
+(defun elmo-buffer-cache-clean-up ()
+  "A function to flush all decoded messages in cache list."
+  (interactive)
+  (let ((n 0) buf)
+    (while (< n elmo-buffer-cache-size)
+      (setq buf (concat elmo-buffer-cache-name (int-to-string n)))
+      (elmo-kill-buffer buf)
+      (setq n (1+ n))))
+  (setq elmo-buffer-cache nil))
+
+;;;
+;;; cache backend by Kenichi OKADA <okada@opaopa.org>
+;;;
+
+(defsubst elmo-cache-get-folder-directory (spec)
+  (if (file-name-absolute-p (nth 1 spec))
+      (nth 1 spec) ; already full path.
+    (expand-file-name (nth 1 spec)
+		      (expand-file-name elmo-cache-dirname elmo-msgdb-dir))))
+
+(defun elmo-cache-msgdb-expand-path (spec)
+  (let ((fld-name (nth 1 spec)))
+    (expand-file-name fld-name
+		      (expand-file-name "internal/cache"
+					elmo-msgdb-dir))))
+
+(defun elmo-cache-number-to-filename (spec number)
+  (let ((number-alist
+	 (elmo-cache-list-folder-subr spec nil t)))
+    (elmo-msgid-to-cache
+     (cdr (assq number number-alist)))))
+
+(if (boundp 'nemacs-version)
+    (defsubst elmo-cache-insert-header (file)
+      "Insert the header of the article (Does not work on nemacs)."
+      (as-binary-input-file
+       (insert-file-contents file)))
+  (defsubst elmo-cache-insert-header (file)
+    "Insert the header of the article."
+    (let ((beg 0)
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook
+	  format-alist)
+      (when (file-exists-p file)
+	;; Read until header separator is found.
+	(while (and (eq elmo-localdir-header-chop-length
+			(nth 1 
+			     (as-binary-input-file 
+			      (insert-file-contents
+			       file nil beg
+			       (incf beg elmo-localdir-header-chop-length)))))
+		    (prog1 (not (search-forward "\n\n" nil t))
+		      (goto-char (point-max)))))))))
+
+(defsubst elmo-cache-msgdb-create-overview-entity-from-file (number file)
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *ELMO Cache Temp*"))
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook header-end
+	  (attrib (file-attributes file))
+	  ret-val size mtime)
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (if (not (file-exists-p file))
+	  ()
+	(setq size (nth 7 attrib))
+	(setq mtime (timezone-make-date-arpa-standard
+		     (current-time-string (nth 5 attrib)) (current-time-zone)))
+	;; insert header from file.
+	(catch 'done
+	  (condition-case nil
+	      (elmo-cache-insert-header file)
+	    (error (throw 'done nil)))
+	  (goto-char (point-min))
+	  (setq header-end
+		(if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
+		    (point)
+		  (point-max)))
+	  (narrow-to-region (point-min) header-end)
+	  (setq ret-val (elmo-msgdb-create-overview-from-buffer number size mtime))
+	  (kill-buffer tmp-buffer))
+	ret-val))))
+
+(defun elmo-cache-msgdb-create-as-numlist (spec numlist new-mark
+						   already-mark seen-mark
+						   important-mark seen-list)
+  (when numlist
+    (let ((dir (elmo-cache-get-folder-directory spec))
+	  (nalist (elmo-cache-list-folder-subr spec nil t))
+	  overview number-alist mark-alist entity message-id
+	  i percent len num seen gmark)
+      (setq len (length numlist))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while numlist
+	(setq entity
+	      (elmo-cache-msgdb-create-overview-entity-from-file
+	       (car numlist)
+	       (expand-file-name
+		(elmo-msgid-to-cache
+		 (setq message-id (cdr (assq (car numlist) nalist)))) dir)))
+	(if (null entity)
+	    ()
+	  (setq num (elmo-msgdb-overview-entity-get-number entity))
+	  (setq overview
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add number-alist num message-id))
+	  (setq seen (member message-id seen-list))
+	  (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+			      (if seen
+				  nil
+				new-mark)))
+	      (setq mark-alist
+		    (elmo-msgdb-mark-append 
+		     mark-alist 
+		     num
+		     gmark))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) len))
+	(elmo-display-progress
+	 'elmo-cache-msgdb-create-as-numlist "Creating msgdb..."
+	 percent)
+	(setq numlist (cdr numlist)))
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist))))
+
+(defalias 'elmo-cache-msgdb-create 'elmo-cache-msgdb-create-as-numlist)
+
+(defun elmo-cache-list-folders (spec &optional hierarchy)
+  (let ((folder (concat "'cache" (nth 1 spec))))
+    (elmo-cache-list-folders-subr folder hierarchy)))
+
+(defun elmo-cache-list-folders-subr (folder &optional hierarchy)
+  (let ((case-fold-search t)
+	folders curdir dirent relpath abspath attr
+	subprefix subfolder)
+    (condition-case ()
+	(progn
+	  (setq curdir
+		(expand-file-name
+		 (nth 1 (elmo-folder-get-spec folder))
+		 (expand-file-name elmo-cache-dirname elmo-msgdb-dir)))
+	  (if (string-match "^[+=$!]$" folder) ;; localdir, archive, localnews
+	      (setq subprefix folder)
+	    (setq subprefix (concat folder elmo-path-sep)))
+	    ;; include parent
+	    ;(setq folders (list folder)))
+	  (setq dirent (directory-files curdir nil "^[01][0-9A-F]$"))
+	  (catch 'done
+	   (while dirent
+	    (setq relpath (car dirent))
+	    (setq dirent (cdr dirent))
+	    (setq abspath (expand-file-name relpath curdir))
+	    (and
+	     (eq (nth 0 (setq attr (file-attributes abspath))) t)
+	     (setq subfolder (concat subprefix relpath))
+	     (setq folders (nconc folders (list subfolder))))))
+	  folders)
+      (file-error folders))))
+
+(defsubst elmo-cache-list-folder-subr (spec &optional nonsort nonalist)
+  (let* ((dir (elmo-cache-get-folder-directory spec))
+	 (flist (mapcar 'file-name-nondirectory
+			(elmo-delete-if 'file-directory-p
+					(directory-files 
+					 dir t "^[^@]+@[^@]+$" t))))
+	 (folder (concat "'cache/" (nth 1 spec)))
+	 (number-alist (or (elmo-msgdb-number-load 
+			    (elmo-msgdb-expand-path folder))
+			   (list nil)))
+	 nlist)
+    (setq nlist
+	  (mapcar '(lambda (filename)
+		     (elmo-cache-filename-to-number filename number-alist))
+		  flist))
+    (if nonalist
+	number-alist
+      (if nonsort
+	  (cons (or (elmo-max-of-list nlist) 0) (length nlist))
+	(sort nlist '<)))))
+
+(defsubst elmo-cache-filename-to-number (filename number-alist)
+  (let* ((msgid (elmo-cache-to-msgid filename))
+	 number)
+    (or (car (rassoc msgid number-alist))
+	(prog1
+	    (setq number (+ (or (caar (last number-alist))
+				0) 1))
+	  (if (car number-alist)
+	      (nconc number-alist
+		     (list (cons number msgid)))
+	    (setcar number-alist (cons number msgid)))))))
+
+(defun elmo-cache-append-msg (spec string message-id &optional msg no-see)
+  (let ((dir (elmo-cache-get-folder-directory spec))
+	(tmp-buffer (get-buffer-create " *ELMO Temp buffer*"))
+	filename)
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (setq filename (expand-file-name (elmo-msgid-to-cache message-id) dir))
+      (unwind-protect
+	  (if (file-writable-p filename)
+	      (progn
+		(insert string)
+		(as-binary-output-file
+		 (write-region (point-min) (point-max) filename nil 'no-msg))
+		t)
+	    nil)
+	(kill-buffer tmp-buffer)))))
+
+(defun elmo-cache-delete-msg (spec number locked)
+  (let* ((dir (elmo-cache-get-folder-directory spec))
+	 (file (expand-file-name
+		(elmo-cache-number-to-filename spec number) dir)))
+    ;; return nil if failed.
+    (elmo-cache-force-delete file locked)))
+
+(defun elmo-cache-read-msg (spec number outbuf &optional set-mark)
+  (save-excursion
+    (let* ((dir (elmo-cache-get-folder-directory spec))
+	   (file (expand-file-name 
+		  (elmo-cache-number-to-filename spec number) dir)))
+      (set-buffer outbuf)
+      (erase-buffer)
+      (when (file-exists-p file)
+	(as-binary-input-file (insert-file-contents file))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-cache-delete-msgs (spec msgs)
+  (let ((locked (elmo-dop-lock-list-load)))
+    (not (memq nil
+	       (mapcar '(lambda (msg) (elmo-cache-delete-msg spec msg locked))
+		       msgs)))))
+
+(defun elmo-cache-list-folder (spec); called by elmo-cache-search()
+  (elmo-cache-list-folder-subr spec))
+
+(defun elmo-cache-max-of-folder (spec)
+  (elmo-cache-list-folder-subr spec t))
+
+(defun elmo-cache-check-validity (spec validity-file)
+  t)
+
+(defun elmo-cache-sync-validity (spec validity-file)
+  t)
+
+(defun elmo-cache-folder-exists-p (spec)
+  (file-directory-p (elmo-cache-get-folder-directory spec)))
+
+(defun elmo-cache-folder-creatable-p (spec)
+  nil)
+
+(defun elmo-cache-create-folder (spec)
+  nil)
+
+(defun elmo-cache-search (spec condition &optional from-msgs)
+  (let* ((number-alist (elmo-cache-list-folder-subr spec nil t))
+	 (msgs (or from-msgs (mapcar 'car number-alist)))
+	 (num (length msgs))
+	 (i 0) case-fold-search ret-val)
+    (while msgs
+      (if (elmo-file-field-condition-match
+	   (expand-file-name 
+	    (elmo-msgid-to-cache
+	     (cdr (assq (car msgs) number-alist)))
+	    (elmo-cache-get-folder-directory spec))
+					    condition)
+	  (setq ret-val (cons (car msgs) ret-val)))
+      (setq i (1+ i))
+      (elmo-display-progress
+       'elmo-cache-search "Searching..."
+       (/ (* i 100) num))
+      (setq msgs (cdr msgs)))
+    (nreverse ret-val)))
+
+;;; (localdir, maildir, localnews) -> cache
+(defun elmo-cache-copy-msgs (dst-spec msgs src-spec
+				      &optional loc-alist same-number)
+  (let ((dst-dir
+	 (elmo-cache-get-folder-directory dst-spec))
+	(next-num (1+ (car (elmo-cache-list-folder-subr dst-spec t))))
+	(number-alist
+	 (elmo-msgdb-number-load
+	  (elmo-msgdb-expand-path nil src-spec))))
+    (if same-number (error "Not implemented"))
+    (while msgs
+      (elmo-copy-file
+       ;; src file
+       (elmo-call-func src-spec "get-msg-filename" (car msgs) loc-alist)
+       ;; dst file
+       (expand-file-name
+	(elmo-msgid-to-cache
+	 (cdr (assq (if same-number (car msgs) next-num) number-alist)))
+	 dst-dir))
+      (if (and (setq msgs (cdr msgs))
+	       (not same-number))
+	  (setq next-num (1+ next-num))))
+    t))
+
+(defun elmo-cache-use-cache-p (spec number)
+  nil)
+
+(defun elmo-cache-local-file-p (spec number)
+  t)
+
+(defun elmo-cache-get-msg-filename (spec number &optional loc-alist)
+  (expand-file-name
+   (elmo-cache-number-to-filename spec number)
+   (elmo-cache-get-folder-directory spec)))
+
+(defalias 'elmo-cache-sync-number-alist 
+  'elmo-generic-sync-number-alist)
+(defalias 'elmo-cache-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-cache-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-cache-commit 'elmo-generic-commit)
+
+(provide 'elmo-cache)
+
+;;; elmo-cache.el ends here
diff --git a/elmo/elmo-cache2.el b/elmo/elmo-cache2.el
new file mode 100644
index 0000000..9c45e94
--- /dev/null
+++ b/elmo/elmo-cache2.el
@@ -0,0 +1,338 @@
+;;; elmo-cache2.el -- Cache Folder Interface for ELMO.
+
+;; Author: Kenichi OKADA <okada@opaopa.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/01 09:58:07 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'emu)
+(require 'std11)
+
+(require 'elmo-cache)
+(require 'elmo-msgdb)
+
+(defsubst elmo-cache-get-folder-directory (spec)
+  (if (file-name-absolute-p (nth 1 spec))
+      (nth 1 spec) ; already full path.
+    (expand-file-name (nth 1 spec)
+		      (expand-file-name elmo-cache-dirname elmo-msgdb-dir))))
+
+(defun elmo-cache-msgdb-expand-path (spec)
+  (let ((fld-name (nth 1 spec)))
+    (expand-file-name fld-name
+		      (expand-file-name "internal/cache"
+					elmo-msgdb-dir))))
+
+(defun elmo-cache-number-to-filename (spec number)
+  (let ((number-alist
+	 (elmo-cache-list-folder-subr spec nil t)))
+    (elmo-msgid-to-cache
+     (cdr (assq number number-alist)))))
+
+(if (boundp 'nemacs-version)
+    (defsubst elmo-cache-insert-header (file)
+      "Insert the header of the article (Does not work on nemacs)."
+      (as-binary-input-file
+       (insert-file-contents file)))
+  (defsubst elmo-cache-insert-header (file)
+    "Insert the header of the article."
+    (let ((beg 0)
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook
+	  format-alist)
+      (when (file-exists-p file)
+	;; Read until header separator is found.
+	(while (and (eq elmo-localdir-header-chop-length
+			(nth 1 
+			     (as-binary-input-file 
+			      (insert-file-contents
+			       file nil beg
+			       (incf beg elmo-localdir-header-chop-length)))))
+		    (prog1 (not (search-forward "\n\n" nil t))
+		      (goto-char (point-max)))))))))
+
+(defsubst elmo-cache-msgdb-create-overview-entity-from-file (number file)
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *ELMO Cache Temp*"))
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook header-end
+	  (attrib (file-attributes file))
+	  ret-val size mtime)
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (if (not (file-exists-p file))
+	  ()
+	(setq size (nth 7 attrib))
+	(setq mtime (timezone-make-date-arpa-standard
+		     (current-time-string (nth 5 attrib)) (current-time-zone)))
+	;; insert header from file.
+	(catch 'done
+	  (condition-case nil
+	      (elmo-cache-insert-header file)
+	    (error (throw 'done nil)))
+	  (goto-char (point-min))
+	  (setq header-end
+		(if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
+		    (point)
+		  (point-max)))
+	  (narrow-to-region (point-min) header-end)
+	  (setq ret-val (elmo-msgdb-create-overview-from-buffer number size mtime))
+	  (kill-buffer tmp-buffer))
+	ret-val))))
+
+(defun elmo-cache-msgdb-create-as-numlist (spec numlist new-mark
+						   already-mark seen-mark
+						   important-mark seen-list)
+  (when numlist
+    (let ((dir (elmo-cache-get-folder-directory spec))
+	  (nalist (elmo-cache-list-folder-subr spec nil t))
+	  overview number-alist mark-alist entity message-id
+	  i percent len num seen gmark)
+      (setq len (length numlist))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while numlist
+	(setq entity
+	      (elmo-cache-msgdb-create-overview-entity-from-file
+	       (car numlist)
+	       (expand-file-name
+		(elmo-msgid-to-cache
+		 (setq message-id (cdr (assq (car numlist) nalist)))) dir)))
+	(if (null entity)
+	    ()
+	  (setq num (elmo-msgdb-overview-entity-get-number entity))
+	  (setq overview
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add number-alist num message-id))
+	  (setq seen (member message-id seen-list))
+	  (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+			      (if seen
+				  nil
+				new-mark)))
+	      (setq mark-alist
+		    (elmo-msgdb-mark-append 
+		     mark-alist 
+		     num
+		     gmark))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) len))
+	(message "Creating msgdb...%d%%" percent)
+	(setq numlist (cdr numlist)))
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist))))
+
+(defalias 'elmo-cache-msgdb-create 'elmo-cache-msgdb-create-as-numlist)
+
+(defun elmo-cache-list-folders (spec &optional hierarchy)
+  (let ((folder (concat "!" (nth 1 spec))))
+    (elmo-cache-list-folders-subr folder hierarchy)))
+
+(defun elmo-cache-list-folders-subr (folder &optional hierarchy)
+  (let ((case-fold-search t)
+	folders curdir dirent relpath abspath attr
+	subprefix subfolder)
+    (condition-case ()
+	(progn
+	  (setq curdir
+		(expand-file-name (nth 1 (elmo-folder-get-spec folder))
+				  (expand-file-name elmo-cache-dirname elmo-msgdb-dir)))
+	  (if (string-match "^[+=$!]$" folder) ;; localdir, archive, localnews
+	      (setq subprefix folder)
+	    (setq subprefix (concat folder elmo-path-sep))
+	    ;; include parent
+	    (setq folders (list folder)))
+	  (setq dirent (directory-files curdir nil "^[01][0-9A-F]$"))
+	  (catch 'done
+	   (while dirent
+	    (setq relpath (car dirent))
+	    (setq dirent (cdr dirent))
+	    (setq abspath (expand-file-name relpath curdir))
+	    (and
+	     (eq (nth 0 (setq attr (file-attributes abspath))) t)
+	     (setq subfolder (concat subprefix relpath))
+	     (setq folders (nconc folders (list subfolder))))))
+	  folders)
+      (file-error folders))))
+
+(defsubst elmo-cache-list-folder-subr (spec &optional nonsort nonalist)
+  (let* ((dir (elmo-cache-get-folder-directory spec))
+	 (flist (directory-files dir nil "^[^@]+@[^@]+$" t))
+	 (folder (concat "!" (nth 1 spec)))
+	 (number-alist (or (elmo-msgdb-number-load (elmo-msgdb-expand-path folder))
+		       (list nil)))
+	 nlist)
+    (setq nlist
+	  (mapcar '(lambda (filename)
+		     (elmo-cache-filename-to-number filename number-alist))
+		  flist))
+    (if nonalist
+	number-alist
+      (if nonsort
+	  (cons (or (elmo-max-of-list nlist) 0) (length nlist))
+	(sort nlist '<)))))
+
+(defsubst elmo-cache-filename-to-number (filename number-alist)
+  (let* ((msgid (elmo-cache-to-msgid filename))
+	 number)
+    (or (car (rassoc msgid number-alist))
+	(prog1
+	    (setq number (+ (or (caar (last number-alist))
+				0) 1))
+	  (if (car number-alist)
+	      (nconc number-alist
+		     (list (cons number msgid)))
+	    (setcar number-alist (cons number msgid)))))))
+
+(defun elmo-cache-append-msg (spec string message-id &optional msg no-see)
+  (let ((dir (elmo-cache-get-folder-directory spec))
+	(tmp-buffer (get-buffer-create " *ELMO Temp buffer*"))
+	filename)
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (setq filename (expand-file-name (elmo-msgid-to-cache message-id) dir))
+      (unwind-protect
+	  (if (file-writable-p filename)
+	      (progn
+		(insert string)
+		(as-binary-output-file
+		 (write-region (point-min) (point-max) filename nil 'no-msg))
+		t)
+	    nil)
+	(kill-buffer tmp-buffer)))))
+
+(defun elmo-cache-delete-msg (spec number)
+  (let* ((dir (elmo-cache-get-folder-directory spec))
+	 (file (expand-file-name
+	       (elmo-cache-number-to-filename spec number) dir)))
+    (if (and (file-exists-p file)
+	     (file-writable-p file)
+	     (not (file-directory-p file)))
+	(progn (delete-file file)
+	       t))))
+
+(defun elmo-cache-read-msg (spec number outbuf &optional set-mark)
+  (save-excursion
+    (let* ((dir (elmo-cache-get-folder-directory spec))
+	   (file (expand-file-name 
+		  (elmo-cache-number-to-filename spec number) dir)))
+      (set-buffer outbuf)
+      (erase-buffer)
+      (when (file-exists-p file)
+	(as-binary-input-file (insert-file-contents file))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-cache-delete-msgs (spec msgs)
+  (mapcar '(lambda (msg) (elmo-cache-delete-msg spec msg))
+	  msgs))
+
+(defun elmo-cache-list-folder (spec); called by elmo-cache-search()
+  (elmo-cache-list-folder-subr spec))
+
+(defun elmo-cache-max-of-folder (spec)
+  (elmo-cache-list-folder-subr spec t))
+
+(defun elmo-cache-check-validity (spec validity-file)
+  t)
+
+(defun elmo-cache-sync-validity (spec validity-file)
+  t)
+
+(defun elmo-cache-folder-exists-p (spec)
+  (file-directory-p (elmo-cache-get-folder-directory spec)))
+
+(defun elmo-cache-folder-creatable-p (spec)
+  nil)
+
+(defun elmo-cache-create-folder (spec)
+  nil)
+
+(defun elmo-cache-search (spec condition &optional from-msgs)
+  (let* ((number-alist (elmo-cache-list-folder-subr spec nil t))
+	 (msgs (or from-msgs (mapcar 'car number-alist)))
+	 (num (length msgs))
+	 (i 0) case-fold-search ret-val)
+    (while msgs
+      (if (elmo-file-field-condition-match
+	   (expand-file-name 
+	    (elmo-msgid-to-cache
+	     (cdr (assq (car msgs) number-alist)))
+	    (elmo-cache-get-folder-directory spec))
+					    condition)
+	  (setq ret-val (cons (car msgs) ret-val)))
+      (setq i (1+ i))
+      (message "Searching...%d%%" (/ (* i 100) num))
+      (setq msgs (cdr msgs)))
+    (nreverse ret-val)))
+
+;;; (localdir, maildir, localnews) -> cache
+(defun elmo-cache-copy-msgs (dst-spec msgs src-spec
+				      &optional loc-alist same-number)
+  (let ((dst-dir
+	 (elmo-cache-get-folder-directory dst-spec))
+	(next-num (1+ (car (elmo-cache-list-folder-subr dst-spec t))))
+	(number-alist
+	 (elmo-msgdb-number-load
+	  (elmo-msgdb-expand-path nil src-spec))))
+    (if same-number (error "Not implemented"))
+    (while msgs
+      (elmo-copy-file
+       ;; src file
+       (elmo-call-func src-spec "get-msg-filename" (car msgs) loc-alist)
+       ;; dst file
+       (expand-file-name
+	(elmo-msgid-to-cache
+	 (cdr (assq (if same-number (car msgs) next-num) number-alist)))
+	 dst-dir))
+      (if (and (setq msgs (cdr msgs))
+	       (not same-number))
+	  (setq next-num (1+ next-num))))
+    t))
+
+(defun elmo-cache-use-cache-p (spec number)
+  nil)
+
+(defun elmo-cache-local-file-p (spec number)
+  t)
+
+(defun elmo-cache-get-msg-filename (spec number &optional loc-alist)
+  (expand-file-name
+   (elmo-cache-number-to-filename spec number)
+   (elmo-cache-get-folder-directory spec)))
+
+(defalias 'elmo-cache-sync-number-alist 
+  'elmo-generic-sync-number-alist)
+(defalias 'elmo-cache-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-cache-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-cache-commit 'elmo-generic-commit)
+
+(provide 'elmo-cache2)
+
+;;; elmo-cache2.el ends here
diff --git a/elmo/elmo-database.el b/elmo/elmo-database.el
new file mode 100644
index 0000000..2b6a61b
--- /dev/null
+++ b/elmo/elmo-database.el
@@ -0,0 +1,74 @@
+;;; elmo-database.el -- Database module for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-01-07 00:19:44 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'elmo-vars)
+(require 'elmo-msgdb)
+
+(defvar elmo-database-msgid nil)
+(defvar elmo-database-msgid-filename "msgid")
+
+(defun elmo-database-get (dbsym dbname)
+  (if (not (and (symbol-value dbsym)
+		(database-live-p (symbol-value dbsym))))
+      (set dbsym (open-database (expand-file-name
+				 dbname
+				 elmo-msgdb-dir
+				 )))
+    (symbol-value dbsym)))
+
+(defun elmo-database-close ()
+  (and elmo-database-msgid
+       (database-live-p elmo-database-msgid)
+       (close-database elmo-database-msgid)))
+
+(defun elmo-database-msgid-put (msgid folder number)
+  (let ((db (elmo-database-get 'elmo-database-msgid
+			       elmo-database-msgid-filename)))
+    (and msgid db
+	 (progn
+	   (remove-database msgid db)
+	   (put-database msgid (prin1-to-string 
+				(list folder number)) db)))))
+
+(defun elmo-database-msgid-delete (msgid)
+  (remove-database msgid (elmo-database-get 
+			  'elmo-database-msgid
+			  elmo-database-msgid-filename)))
+
+(defun elmo-database-msgid-get (msgid)
+  (let ((match (get-database msgid (elmo-database-get 
+				    'elmo-database-msgid
+				    elmo-database-msgid-filename))))
+    (and match (read match))))
+
+(provide 'elmo-database)
+
+;;; elmo-database.el ends here
diff --git a/elmo/elmo-date.el b/elmo/elmo-date.el
new file mode 100644
index 0000000..7dd66bb
--- /dev/null
+++ b/elmo/elmo-date.el
@@ -0,0 +1,144 @@
+;;; elmo-date.el -- Date processing module for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:38:44 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+
+(require 'path-util)
+(if (module-installed-p 'timezone)
+    (require 'timezone))
+(require 'elmo-vars)
+
+(defvar elmo-date-descriptions
+  '((yesterday . [0 0 1])
+    (lastweek  . [0 0 7])
+    (lastmonth . [0 1 0])
+    (lastyear  . [1 0 0])))
+
+(defun elmo-date-get-description (datevec)
+  (format "%d-%s-%d"
+	  (aref datevec 2)
+	  (car (rassq (aref datevec 1)
+		      timezone-months-assoc))
+	  (aref datevec 0)))
+
+(defun elmo-date-get-datevec (description)
+  (cond 
+   ((not elmo-date-match)
+    (error "date match is not available"))
+   ((string-match "^[ \t]*\\([0-9]+\\)?[ \t]*\\([a-zA-Z]+\\)$" description)
+    (let ((today 
+	   (save-match-data
+	     (timezone-fix-time (current-time-string) (current-time-zone)
+				nil)))
+	  (number 
+	   (string-to-int
+	    (if (match-beginning 1)
+		(elmo-match-string 1 description)
+	      "0")))
+	  (suffix (downcase (elmo-match-string 2 description)))
+	  pair)
+      (if (setq pair (assq (intern suffix) elmo-date-descriptions))
+	  (elmo-datevec-substitute today (cdr pair))
+	(if (string= "daysago" suffix)
+	    (elmo-date-get-offset-datevec today number)
+	  (error "%s is not supported yet" suffix)))))
+   ((string-match "[0-9]+-[A-Za-z]+-[0-9]+" description)
+    (timezone-fix-time 
+     (concat (elmo-replace-in-string description "-" " ") " 0:00")
+     nil nil))))
+
+(defun elmo-datevec-substitute (datevec1 datevec2)
+  (if (/= (aref datevec2 2) 0)
+      (elmo-date-get-offset-datevec datevec1 (aref datevec2 2))
+    (let ((year (- (aref datevec1 0) (aref datevec2 0)))
+	  (month (- (aref datevec1 1) (aref datevec2 1)))
+	  (timezone (current-time-zone)))
+      (while (<= month 0)
+	(setq year (1- year)
+	      month (+ 12 month)))
+      (timezone-fix-time
+       (format "%d %s %d 0:00 %s"
+	       (aref datevec1 2)
+	       (car (rassq month timezone-months-assoc))
+	       year
+	       (cadr timezone)) nil nil))))
+
+(defun elmo-date-get-week (year month mday)
+  (let ((wday (symbol-value (intern (format
+				     "elmo-weekday-name-%s"
+				     elmo-lang))))
+	y1 days p)
+    (setq y1 (- year 1))
+    (setq days (- (+ (* y1 365) (/ y1 400) (/ y1 4)) (/ y1 100)))
+    (setq p 1)
+    (while (< p month)
+      (setq days (+ days (timezone-last-day-of-month p year)))
+      (setq p (+ p 1))
+      )
+    (setq days (+ days mday))
+    (aref wday (% days 7))))
+
+(defun elmo-date-get-offset-datevec (datevec offset &optional time)
+  (let ((year  (aref datevec 0))
+	(month (aref datevec 1))
+	(day   (aref datevec 2))
+	(hour     (aref datevec 3))
+	(minute   (aref datevec 4))
+	(second   (aref datevec 5))
+	(timezone (aref datevec 6))
+	day-number p 
+	day-of-month)
+    (setq p 1)
+    (setq day-number (- (timezone-day-number month day year)
+			offset))
+    (while (<= day-number 0)
+      (setq year (1- year)
+	    day-number (+ (timezone-day-number 12 31 year)
+			  day-number)))
+    (while (> day-number (setq day-of-month
+			       (timezone-last-day-of-month p year)))
+      (setq day-number (- day-number day-of-month))
+      (setq p (1+ p)))
+    (setq month p)
+    (setq day day-number)
+    (timezone-fix-time
+     (format "%d %s %d %s %s"
+	     day
+	     (car (rassq month timezone-months-assoc))
+	     year
+	     (if time
+		 (format "%d:%d:%d" hour minute second)
+	       "0:00")
+	     (cadr timezone)) nil nil)))
+
+(provide 'elmo-date)
+
+;;; elmo-date.el ends here
diff --git a/elmo/elmo-dop.el b/elmo/elmo-dop.el
new file mode 100644
index 0000000..3643a42
--- /dev/null
+++ b/elmo/elmo-dop.el
@@ -0,0 +1,551 @@
+;;; elmo-dop.el -- Modules for Disconnected Operations on ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:39:23 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-vars)
+(require 'elmo-msgdb)
+(require 'elmo-util)
+(eval-when-compile
+  (require 'elmo-imap4)
+  (require 'elmo-localdir))
+
+;; global variable.
+(defvar elmo-dop-queue nil
+  "A list of (folder-name function-to-be-called argument-list).
+Automatically loaded/saved.")
+
+(defun elmo-dop-queue-append (folder function argument)
+  (let ((operation (list (format "%s" folder) function argument)))
+    (elmo-dop-queue-load)
+    (unless (member operation elmo-dop-queue) ;; don't append same operation
+      (setq elmo-dop-queue 
+	    (append elmo-dop-queue
+		    (list operation)))
+      (elmo-dop-queue-save))))
+
+(defun elmo-dop-queue-flush ()
+  (elmo-dop-queue-load) ; load cache.
+  (elmo-dop-queue-merge)
+  (let ((queue elmo-dop-queue)
+	(count 0)
+	len)
+    (while queue
+      (if (elmo-folder-plugged-p (caar queue))
+	  (setq count (1+ count)))
+      (setq queue (cdr queue)))
+    (when (> count 0)
+      (if (elmo-y-or-n-p 
+	   (format "%d pending operation(s) exists. Perform now?" count)
+	   (not elmo-dop-flush-confirm) t)
+	  (progn
+	    (message "")
+	    (sit-for 0)
+	    (let ((queue elmo-dop-queue)
+		  (performed 0)
+		  (i 0)
+		  (num (length elmo-dop-queue))
+		  folder func failure)
+	      (while queue
+		;; now perform pending processes.
+		(setq failure nil)
+		(setq i (+ 1 i))
+		(message "Flushing queue....%d/%d." i num)
+		(condition-case err
+		    (if (not (elmo-folder-plugged-p (nth 0 (car queue))))
+			(setq failure t)
+		      (setq folder (nth 0 (car queue))
+			    func (nth 1 (car queue)))
+		      (cond
+		       ((string= func "prefetch-msgs")
+			(elmo-prefetch-msgs
+			 folder
+			 (nth 2 (car queue)))) ;argunemt
+		       ((string= func "append-operations")
+			(elmo-dop-flush-pending-append-operations
+			 folder nil t))
+		       (t
+			(elmo-call-func
+			 folder
+			 func
+			 (nth 2 (car queue)) ;argunemt
+			 ))))
+		  (quit  (setq failure t))
+		  (error (setq failure err)))
+		(if failure 
+		    ;; create-folder was failed.
+		    (when (and (string= func "create-folder-maybe")
+			       (elmo-y-or-n-p 
+				(format 
+				 "Create folder %s failed. Abort creating?"
+				 folder)
+				(not elmo-dop-flush-confirm) t))
+		      (elmo-dop-save-pending-messages folder)
+		      (setq elmo-dop-queue (delq (car queue) elmo-dop-queue)))
+		  (setq elmo-dop-queue (delq (car queue) elmo-dop-queue))
+		  (setq performed (+ 1 performed)))
+		(setq queue (cdr queue)))
+	      (message "%d/%d operation(s) are performed successfully."
+		       performed num)
+	      (sit-for 1) ; 
+	      (elmo-dop-queue-save)))
+	(if (elmo-y-or-n-p "Clear all pending operations?"
+			   (not elmo-dop-flush-confirm) t)
+	    (let ((queue elmo-dop-queue))
+	      (while queue
+		(if (string= (nth 1 (car queue)) "append-operations")
+		    (elmo-dop-append-list-save (nth 0 (car queue)) nil))
+		(setq queue (cdr queue)))
+	      (setq elmo-dop-queue nil)
+	      (message "All pending operations are cleared.")
+	      (elmo-dop-queue-save))
+	  (message "")))
+      count)))
+
+(defconst elmo-dop-merge-funcs
+  '("delete-msgids"
+    "prefetch-msgs"
+    "unmark-important"
+    "mark-as-important"
+    "mark-as-read"
+    "mark-as-unread"))
+
+(defun elmo-dop-queue-merge ()
+  (let ((queue elmo-dop-queue)
+        new-queue match-queue que)
+    (while (setq que (car queue))
+      (if (and 
+	   (member (cadr que) elmo-dop-merge-funcs)
+	   (setq match-queue
+		 (car (delete nil
+			      (mapcar '(lambda (new-queue)
+					 (if (and 
+					      (string= (car que) (car new-queue))
+					      (string= (cadr que) (cadr new-queue)))
+					     new-queue))
+				      new-queue)))))
+	  (setcar (cddr match-queue)
+		  (append (nth 2 match-queue) (nth 2 que)))
+	(setq new-queue (append new-queue (list que))))
+      (setq queue (cdr queue)))
+    (setq elmo-dop-queue new-queue)))
+
+(defun elmo-dop-queue-load ()
+  (save-excursion
+    (setq elmo-dop-queue 
+	  (elmo-object-load
+	   (expand-file-name elmo-queue-filename
+			     elmo-msgdb-dir)))))
+
+(defun elmo-dop-queue-save ()
+  (save-excursion
+    (elmo-object-save
+     (expand-file-name elmo-queue-filename
+		       elmo-msgdb-dir)
+     elmo-dop-queue)))
+
+(defun elmo-dop-lock-message (message-id &optional lock-list)
+  (let ((locked (or lock-list
+		    (elmo-object-load 
+		     (expand-file-name
+		      elmo-msgdb-lock-list-filename
+		      elmo-msgdb-dir)))))
+    (setq locked (cons message-id locked))
+    (elmo-object-save
+     (expand-file-name elmo-msgdb-lock-list-filename
+		       elmo-msgdb-dir)
+     locked)))
+
+(defun elmo-dop-unlock-message (message-id &optional lock-list)
+  (let ((locked (or lock-list
+		    (elmo-object-load 
+		     (expand-file-name elmo-msgdb-lock-list-filename
+				       elmo-msgdb-dir)))))
+    (setq locked (delete message-id locked))
+    (elmo-object-save
+     (expand-file-name elmo-msgdb-lock-list-filename
+		       elmo-msgdb-dir)
+     locked)))
+
+(defun elmo-dop-lock-list-load ()
+  (elmo-object-load 
+   (expand-file-name elmo-msgdb-lock-list-filename
+		     elmo-msgdb-dir)))
+
+(defun elmo-dop-lock-list-save (lock-list)
+  (elmo-object-save
+   (expand-file-name elmo-msgdb-lock-list-filename
+		     elmo-msgdb-dir)
+   lock-list))
+
+(defun elmo-dop-append-list-load (folder &optional resume)
+  (elmo-object-load 
+   (expand-file-name (if resume
+			 elmo-msgdb-resume-list-filename
+		       elmo-msgdb-append-list-filename)
+		     (elmo-msgdb-expand-path folder))))
+
+(defun elmo-dop-append-list-save (folder append-list &optional resume)
+  (if append-list
+      (elmo-object-save
+       (expand-file-name (if resume
+			     elmo-msgdb-resume-list-filename
+			   elmo-msgdb-append-list-filename)
+			 (elmo-msgdb-expand-path folder))
+       append-list)
+    (condition-case ()
+	(delete-file (expand-file-name (if resume
+					   elmo-msgdb-resume-list-filename
+					 elmo-msgdb-append-list-filename)
+				       (elmo-msgdb-expand-path folder)))
+      (error))))
+
+(defun elmo-dop-deleting-numbers-to-msgids (alist numbers appended)
+  "returns (new-appended . deleting-msgids)."
+  (let (msgid deleting-msgids)
+    (while numbers
+      (setq msgid (cdr (assq (car numbers) alist)))
+      (if (member msgid appended)
+	  (setq appended (delete msgid appended))
+	(setq deleting-msgids (append deleting-msgids (list msgid))))
+      (setq numbers (cdr numbers)))
+    (cons appended deleting-msgids)))
+
+(defun elmo-dop-delete-msgs (folder msgs msgdb)
+  (save-match-data
+    (let ((folder-numbers (elmo-make-folder-numbers-list folder msgs))
+	  appended-deleting)
+      (while folder-numbers
+	(if (eq (elmo-folder-get-type (car (car folder-numbers))) 
+		'imap4)
+	    (if elmo-enable-disconnected-operation
+		(progn
+		  (setq appended-deleting
+			(elmo-dop-deleting-numbers-to-msgids
+			 (elmo-msgdb-get-number-alist msgdb)
+			 msgs ; virtual number
+			 (elmo-dop-append-list-load folder)))
+		  (if (cdr appended-deleting)
+		      (elmo-dop-queue-append 
+		       (car (car folder-numbers)) ; real folder
+		       "delete-msgids" ;; for secure removal.
+		       (cdr appended-deleting)))
+		  (elmo-dop-append-list-save folder (car appended-deleting)))
+	      (error "Unplugged"))
+	  ;; not imap4 folder...delete now!
+	  (elmo-call-func (car (car folder-numbers)) "delete-msgs"
+			  (cdr (car folder-numbers))))
+	(setq folder-numbers (cdr folder-numbers))))
+    t))
+
+(defun elmo-dop-prefetch-msgs (folder msgs)
+  (save-match-data
+    (elmo-dop-queue-append folder "prefetch-msgs" msgs)))
+
+(defun elmo-dop-list-folder (folder)
+  (if (or (memq (elmo-folder-get-type folder)
+		'(imap4 nntp pop3 filter pipe))
+	  (and (elmo-multi-p folder) (not (elmo-folder-local-p folder))))
+      (if elmo-enable-disconnected-operation
+	  (let* ((number-alist (elmo-msgdb-number-load
+				(elmo-msgdb-expand-path folder)))
+		 (number-list (mapcar 'car number-alist))
+		 (append-list (elmo-dop-append-list-load folder))
+		 (append-num (length append-list))
+		 alreadies
+		 (i 0)
+		 max-num)
+	    (while append-list
+	      (if (rassoc (car append-list) number-alist)
+		  (setq alreadies (append alreadies 
+					  (list (car append-list)))))
+	      (setq append-list (cdr append-list)))
+	    (setq append-num (- append-num (length alreadies)))
+	    (setq max-num 
+		  (or (nth (max (- (length number-list) 1) 0) 
+			   number-list) 0))
+	    (while (< i append-num)
+	      (setq number-list
+		    (append number-list
+			    (list (+ max-num i 1))))
+	      (setq i (+ 1 i)))
+	    number-list)
+	(error "Unplugged"))
+    ;; not imap4 folder...list folder
+    (elmo-call-func folder "list-folder")))
+
+(defun elmo-dop-count-appended (folder)
+  (length (elmo-dop-append-list-load folder)))
+
+(defun elmo-dop-call-func-on-msgs (folder func-name msgs msgdb)
+  (let ((append-list (elmo-dop-append-list-load folder))
+	(number-alist (elmo-msgdb-get-number-alist msgdb))
+	matched)
+    (if (eq (elmo-folder-get-type folder) 'imap4)
+	(progn
+	  (while append-list
+	    (if (setq matched (car (rassoc (car append-list) number-alist)))
+		(setq msgs (delete matched msgs)))
+	    (setq append-list (cdr append-list)))
+	  (if msgs
+	      (elmo-dop-queue-append folder func-name msgs)))
+      ;; maildir... XXX hard coding.....
+      (if (not (featurep 'elmo-maildir))
+	  (require 'maildir))
+      (funcall (intern (format "elmo-maildir-%s" func-name))
+	       (elmo-folder-get-spec folder)
+	       msgs msgdb))))
+
+(defun elmo-dop-max-of-folder (folder)
+  (if (eq (elmo-folder-get-type folder) 'imap4)
+      (if elmo-enable-disconnected-operation
+	  (let* ((number-alist (elmo-msgdb-number-load 
+				       (elmo-msgdb-expand-path folder)))
+		 (number-list (mapcar 'car number-alist))
+		 (append-list (elmo-dop-append-list-load folder))
+		 (append-num (length append-list))
+		 alreadies
+		 (i 0)
+		 max-num)
+	    (while append-list
+	      (if (rassoc (car append-list) number-alist)
+		  (setq alreadies (append alreadies 
+					  (list (car append-list)))))
+	      (setq append-list (cdr append-list)))
+	    (setq max-num 
+		  (or (nth (max (- (length number-list) 1) 0) number-list)
+		      0))
+	    (cons (- (+ max-num append-num) (length alreadies))
+		  (- (+ (length number-list) append-num) (length alreadies))))
+	(error "Unplugged"))
+    ;; not imap4 folder.
+    (elmo-call-func folder "max-of-folder")))
+
+(defun elmo-dop-save-pending-messages (folder)
+  (message (format "Saving queued message in %s..." elmo-lost+found-folder))
+  (let* ((append-list (elmo-dop-append-list-load folder))
+	 file-string)
+    (while append-list
+      (when (setq file-string (elmo-get-file-string  ; message string
+			       (elmo-cache-get-path 
+				(car append-list))))
+	(elmo-append-msg elmo-lost+found-folder file-string)
+	(elmo-dop-unlock-message (car append-list)))
+      (setq append-list (cdr append-list))
+      (elmo-dop-append-list-save folder nil)))
+  (message (format "Saving queued message in %s...done." 
+		   elmo-lost+found-folder)))
+
+(defun elmo-dop-flush-pending-append-operations (folder &optional appends resume)
+  (message "Appending queued messages...")
+  (let* ((append-list (or appends 
+			  (elmo-dop-append-list-load folder)))
+	 (appendings append-list)
+	 (i 0)
+	 (num (length append-list))
+	 failure file-string)
+    (when resume
+      ;; Resume msgdb changed by elmo-dop-msgdb-create.
+      (let* ((resumed-list (elmo-dop-append-list-load folder t))
+	     (number-alist (elmo-msgdb-number-load 
+			    (elmo-msgdb-expand-path folder)))
+	     (appendings append-list)
+	     pair dels)
+	(while appendings
+	  (if (setq pair (rassoc (car appendings) number-alist))
+	      (setq resumed-list (append resumed-list
+					 (list (car appendings)))))
+	  (setq appendings (cdr appendings)))
+	(elmo-dop-append-list-save folder resumed-list t)))
+    (while appendings
+      (setq failure nil)
+      (setq file-string (elmo-get-file-string  ; message string
+			 (elmo-cache-get-path 
+			  (car appendings))))
+      (when file-string
+	(condition-case ()
+	    (elmo-append-msg folder file-string (car appendings))
+	  (quit  (setq failure t))
+	  (error (setq failure t)))
+	(setq i (+ 1 i))
+	(message (format "Appending queued messages...%d" i))
+	(if failure
+	    (elmo-append-msg elmo-lost+found-folder
+			     file-string (car appendings))))
+      (elmo-dop-unlock-message (car appendings))
+      (setq appendings (cdr appendings)))
+    ;; All pending append operation is flushed.
+    (elmo-dop-append-list-save folder nil)
+    (elmo-commit folder)
+    (unless resume
+      ;; delete '(folder "append-operations") in elmo-dop-queue.
+      (let (elmo-dop-queue)
+	(elmo-dop-queue-load)
+	(setq elmo-dop-queue (delete (list folder "append-operations" nil)
+				     elmo-dop-queue))
+	(elmo-dop-queue-save))))
+  (message "Appending queued messages...done."))
+
+(defun elmo-dop-folder-exists-p (folder)
+  (if (and elmo-enable-disconnected-operation
+	   (eq (elmo-folder-get-type folder) 'imap4))
+      (file-exists-p (elmo-msgdb-expand-path folder))
+    (elmo-call-func folder "folder-exists-p")))
+
+(defun elmo-dop-create-folder (folder)
+  (if (eq (elmo-folder-get-type folder) 'imap4)
+      (if elmo-enable-disconnected-operation
+	  (elmo-dop-queue-append folder "create-folder-maybe" nil)
+	(error "Unplugged"))
+    (elmo-call-func folder "create-folder")))
+
+(defun elmo-dop-delete-folder (folder)
+  (error "Unplugged"))
+
+(defun elmo-dop-rename-folder (old-folder new-folder)
+  (error "Unplugged"))
+
+(defun elmo-dop-append-msg (folder string message-id &optional msg)
+  (if elmo-enable-disconnected-operation
+      (if message-id
+	  (progn
+	    (unless (elmo-cache-exists-p message-id)
+	      (elmo-set-work-buf
+	       (insert string)
+	       (elmo-cache-save message-id nil folder msg (current-buffer))))
+	    (let ((append-list (elmo-dop-append-list-load folder))
+		  (number-alist (elmo-msgdb-number-load 
+				 (elmo-msgdb-expand-path folder))))
+	      (when (and ; not in current folder.
+		     (not (rassoc message-id number-alist))
+		     (not (member message-id append-list)))
+		(setq append-list
+		      (append append-list (list message-id)))
+		(elmo-dop-lock-message message-id)
+		(elmo-dop-append-list-save folder append-list)
+		(elmo-dop-queue-append folder "append-operations" nil))
+	      t))
+	nil)
+    (error "Unplugged")))
+
+(defalias 'elmo-dop-msgdb-create 'elmo-dop-msgdb-create-as-numlist)
+
+(defun elmo-dop-msgdb-create-as-numlist (folder numlist new-mark already-mark
+						seen-mark important-mark
+						seen-list)
+  (if (or (eq (elmo-folder-get-type folder) 'imap4)
+	  (eq (elmo-folder-get-type folder) 'nntp))
+      (if elmo-enable-disconnected-operation
+	  (let* ((num-alist (elmo-msgdb-number-load 
+			     (elmo-msgdb-expand-path folder)))
+		 (number-list (mapcar 'car num-alist))
+		 (ov (elmo-msgdb-overview-load
+		      (elmo-msgdb-expand-path folder)))
+		 (append-list (elmo-dop-append-list-load folder))
+		 (num (length numlist))
+		 (i 0)
+		 overview number-alist mark-alist msgid ov-entity
+		 max-num percent seen gmark)
+	    (setq max-num
+		  (or (nth (max (- (length number-list) 1) 0) number-list)
+		      0))
+	    (while numlist
+	      (if (setq msgid
+			(nth (+ (length append-list) 
+				(- (car numlist) max-num 1 num))
+			     append-list))
+		  (progn
+		    (setq overview
+			  (elmo-msgdb-append-element
+			   overview
+			   (elmo-localdir-msgdb-create-overview-entity-from-file
+			    (car numlist)
+			    (elmo-cache-get-path msgid))))
+		    (setq number-alist
+			  (elmo-msgdb-number-add number-alist
+						 (car numlist) msgid))
+		    (setq seen (member msgid seen-list))
+		    (if (setq gmark
+			      (or (elmo-msgdb-global-mark-get msgid)
+				  (if (elmo-cache-exists-p 
+				       msgid
+				       folder
+				       (car number-alist))
+				      (if seen
+					  nil
+					already-mark)
+				    (if seen
+					seen-mark)
+				    new-mark)))
+			(setq mark-alist
+			      (elmo-msgdb-mark-append
+			       mark-alist (car numlist) gmark))))
+		
+		(when (setq ov-entity (assoc 
+				       (cdr (assq (car numlist) num-alist))
+				       ov))
+		  (setq overview
+			(elmo-msgdb-append-element
+			 overview ov-entity))
+		  (setq number-alist
+			(elmo-msgdb-number-add number-alist
+					       (car numlist)
+					       (car ov-entity)))
+		  (setq seen (member ov-entity seen-list))
+		  (if (setq gmark
+			    (or (elmo-msgdb-global-mark-get (car ov-entity))
+				(if (elmo-cache-exists-p
+				     msgid
+				     folder
+				     (car ov-entity))
+				    (if seen
+					nil
+				      already-mark)
+				  (if seen
+				      seen-mark)
+				  new-mark)))
+		      (setq mark-alist
+			    (elmo-msgdb-mark-append
+			     mark-alist (car numlist) gmark)))))
+	      (setq i (1+ i))
+	      (setq percent (/ (* i 100) num))
+	      (elmo-display-progress
+	       'elmo-dop-msgdb-create-as-numlist "Creating msgdb..."
+	       percent)
+	      (setq numlist (cdr numlist)))
+	    (list overview number-alist mark-alist))
+	(error "Unplugged"))
+    ;; not imap4 folder...
+    (elmo-call-func folder "msgdb-create" numlist new-mark already-mark
+		    seen-mark important-mark seen-list)))
+
+(provide 'elmo-dop)
+
+;;; elmo-dop.el ends here
diff --git a/elmo/elmo-filter.el b/elmo/elmo-filter.el
new file mode 100644
index 0000000..3446140
--- /dev/null
+++ b/elmo/elmo-filter.el
@@ -0,0 +1,197 @@
+;;; elmo-filter.el -- Filtered Folder Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/13 18:58:42 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'elmo-msgdb)
+
+(defun elmo-filter-msgdb-create (spec numlist new-mark already-mark 
+				      seen-mark important-mark seen-list)
+  (if (eq (nth 2 spec) 'partial)
+      (elmo-msgdb-create (nth 2 spec)
+			 numlist 
+			 new-mark
+			 already-mark
+			 seen-mark important-mark seen-list)
+    (elmo-msgdb-create-as-numlist (nth 2 spec)
+				  numlist
+				  new-mark
+				  already-mark
+				  seen-mark important-mark seen-list)))
+
+(defun elmo-filter-msgdb-create-as-numlist (spec numlist new-mark already-mark
+						 seen-mark important-mark 
+						 seen-list)
+  (elmo-msgdb-create-as-numlist (nth 2 spec)
+				numlist
+				new-mark
+				already-mark
+				seen-mark important-mark seen-list))
+  
+(defun elmo-filter-list-folders (spec &optional hierarchy)
+  nil)
+
+(defun elmo-filter-append-msg (spec string &optional msg no-see)
+  (elmo-call-func (nth 2 spec) "append" string))
+
+(defun elmo-filter-read-msg (spec number outbuf)
+  (elmo-call-func (nth 2 spec) "read-msg" number outbuf))
+
+(defun elmo-filter-delete-msgs (spec msgs)
+  (elmo-call-func (nth 2 spec) "delete-msgs" msgs))
+
+(defun elmo-filter-list-folder (spec)
+  (let ((filter (nth 1 spec))
+	(folder (nth 2 spec))
+	msgs)
+    (cond 
+     ((vectorp filter)
+      (cond ((string= (elmo-filter-key filter)
+		      "last")
+	     (setq msgs (elmo-list-folder folder))
+	     (nthcdr (max (- (length msgs) 
+			     (string-to-int (elmo-filter-value filter)))
+			  0)
+		     msgs))
+	    ((string= (elmo-filter-key filter)
+		      "first")
+	     (setq msgs (elmo-list-folder folder))
+	     (let ((rest (nthcdr (string-to-int (elmo-filter-value filter) )
+				 msgs)))
+	       (mapcar '(lambda (x) 
+			  (delete x msgs)) rest))
+	     msgs)))
+     ((listp filter)
+      (elmo-search folder filter)))))
+
+(defun elmo-filter-list-folder-unread (spec mark-alist unread-marks)
+  (let ((filter (nth 1 spec))
+	(folder (nth 2 spec))
+	msgs pair)
+    (cond 
+     ((vectorp filter)
+      (cond ((string= (elmo-filter-key filter)
+		      "last")
+	     (setq msgs (elmo-list-folder-unread folder mark-alist 
+						 unread-marks))
+	     (nthcdr (max (- (length msgs) 
+			     (string-to-int (elmo-filter-value filter)))
+			  0)
+		     msgs))
+	    ((string= (elmo-filter-key filter)
+		      "first")
+	     (setq msgs (elmo-list-folder-unread folder
+						 mark-alist
+						 unread-marks))
+	     (let ((rest (nthcdr (string-to-int (elmo-filter-value filter) )
+				 msgs)))
+	       (mapcar '(lambda (x) 
+			  (delete x msgs)) rest))
+	     msgs)))
+     ((listp filter)
+      (elmo-list-filter 
+       (elmo-search folder filter)
+       (elmo-list-folder-unread folder mark-alist unread-marks))))))
+
+(defun elmo-filter-list-folder-important (spec overview)
+  (let ((filter (nth 1 spec))
+	(folder (nth 2 spec))
+	msgs pair)
+    (cond 
+     ((vectorp filter)
+      (cond ((string= (elmo-filter-key filter)
+		      "last")
+	     (setq msgs (elmo-list-folder-important folder overview))
+	     (nthcdr (max (- (length msgs) 
+			     (string-to-int (elmo-filter-value filter)))
+			  0)
+		     msgs))
+	    ((string= (elmo-filter-key filter)
+		      "first")
+	     (setq msgs (elmo-list-folder-important folder overview))
+	     (let ((rest (nthcdr (string-to-int (elmo-filter-value filter) )
+				 msgs)))
+	       (mapcar '(lambda (x) 
+			  (delete x msgs)) rest))
+	     msgs)))
+     ((listp filter)
+      (elmo-list-filter 
+       (mapcar
+	'(lambda (x) (elmo-msgdb-overview-entity-get-number x))
+	overview)
+       (elmo-list-folder-important folder overview))))))
+
+(defun elmo-filter-max-of-folder (spec)
+  (elmo-max-of-folder (nth 2 spec)))
+
+(defun elmo-filter-folder-exists-p (spec)
+  (elmo-folder-exists-p (nth 2 spec)))
+
+(defun elmo-filter-folder-creatable-p (spec)
+  (elmo-call-func (nth 2 spec) "folder-creatable-p"))
+
+(defun elmo-filter-create-folder (spec)
+  (elmo-create-folder (nth 2 spec)))
+
+(defun elmo-filter-search (spec condition &optional numlist)
+  ;; search from messages in this folder
+  (elmo-list-filter 
+   numlist 
+   (elmo-call-func (nth 2 spec) "search" condition 
+		   (elmo-filter-list-folder spec))))
+
+(defun elmo-filter-use-cache-p (spec number)
+  (elmo-call-func (nth 2 spec) "use-cache-p" number))
+
+(defun elmo-filter-local-file-p (spec number)
+  (elmo-call-func (nth 2 spec) "local-file-p" number))
+
+(defun elmo-filter-commit (spec)
+  (elmo-commit (nth 2 spec)))
+
+(defun elmo-filter-plugged-p (spec)
+  (elmo-folder-plugged-p (nth 2 spec)))
+
+(defun elmo-filter-set-plugged (spec plugged add)
+  (elmo-folder-set-plugged (nth 2 spec) plugged add))
+
+(defun elmo-filter-get-msg-filename (spec number &optional loc-alist)
+  ;; This function may be called when elmo-filter-local-file-p()
+  ;; returns t.
+  (elmo-call-func (nth 2 spec) "get-msg-filename" number loc-alist))
+
+(defun elmo-filter-sync-number-alist (spec number-alist)
+  (elmo-call-func (nth 2 spec) "sync-number-alist" number-alist))
+
+(defun elmo-filter-server-diff (spec)
+  (elmo-call-func (nth 2 spec) "server-diff"))
+
+(provide 'elmo-filter)
+
+;;; elmo-filter.el ends here
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
new file mode 100644
index 0000000..66f3d0b
--- /dev/null
+++ b/elmo/elmo-imap4.el
@@ -0,0 +1,1588 @@
+;;; elmo-imap4.el -- IMAP4 Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:40:38 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+(require 'elmo-vars)
+(require 'elmo-util)
+(require 'elmo-msgdb)
+(require 'elmo-date)
+(require 'elmo-cache)
+(require 'utf7)
+
+;;; Code:
+(condition-case nil
+    (progn
+      (require 'sasl))
+  (error))
+;; silence byte compiler.
+(eval-when-compile
+  (require 'cl)
+  (condition-case nil
+      (progn
+	(require 'starttls)
+	(require 'sasl))
+    (error))
+  (defun-maybe sasl-cram-md5 (username passphrase challenge))
+  (defun-maybe sasl-digest-md5-digest-response 
+    (digest-challenge username passwd serv-type host &optional realm))
+  (defun-maybe starttls-negotiate (a))  
+  (defun-maybe elmo-generic-list-folder-unread (spec mark-alist unread-marks))
+  (defsubst-maybe utf7-decode-string (string &optional imap) string))
+
+(defvar elmo-imap4-use-lock t
+  "USE IMAP4 with locking process.")
+;;
+;; internal variables
+;;
+(defvar elmo-imap4-seq-prefix "elmo-imap4")
+(defvar elmo-imap4-seqno 0)
+(defvar elmo-imap4-connection-cache nil
+  "Cache of imap connection.")
+(defvar elmo-imap4-use-uid t
+  "Use UID as message number.")
+
+;; buffer local variable
+(defvar elmo-imap4-read-point 0)
+
+(defvar elmo-imap4-extra-namespace-alist
+  '(("^{.*/nntp}.*$" . ".")) ; Default is for UW's remote nntp mailbox...
+  "Extra namespace alist. A list of cons cell like: (REGEXP . DELIMITER) ")
+
+;; buffer local variable
+(defvar elmo-imap4-server-capability nil)
+(defvar elmo-imap4-server-namespace nil)
+
+(defvar elmo-imap4-lock nil)
+
+;; For debugging. 
+(defvar elmo-imap4-debug nil
+  "Non-nil forces IMAP4 folder as debug mode. 
+Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
+
+(defsubst elmo-imap4-debug (message &rest args)
+  (if elmo-imap4-debug
+      (with-current-buffer (get-buffer-create "*IMAP4 DEBUG*")
+	(goto-char (point-max))
+	(insert (apply 'format message args) "\n"))))
+
+(defun elmo-imap4-flush-connection ()
+  (interactive)
+  (let ((cache elmo-imap4-connection-cache)
+	buffer process)
+    (while cache
+      (setq buffer (car (cdr (car cache))))
+      (if buffer (kill-buffer buffer))
+      (setq process (car (cdr (cdr (car cache)))))
+      (if process (delete-process process))
+      (setq cache (cdr cache)))
+    (setq elmo-imap4-connection-cache nil)))
+
+(defsubst elmo-imap4-get-process (spec)
+  (elmo-imap4-connection-get-process (elmo-imap4-get-connection spec)))
+
+(defun elmo-imap4-process-folder-list (string)
+  (with-temp-buffer
+    (let ((case-fold-search t)
+	  mailbox-list val)
+      (elmo-set-buffer-multibyte nil)
+      (insert string)
+      (goto-char (point-min))
+      ;; XXX This doesn't consider literal name response.
+      (while (re-search-forward 
+	      "\\* LIST (\\([^)]*\\)) \"[^\"]*\" \\([^\n]*\\)$" nil t)
+	(unless (string-match "noselect"
+			      (elmo-match-buffer 1))
+	  (setq val (elmo-match-buffer 2))
+	  (if (string-match "^\"\\(.*\\)\"$" val)
+	      (setq val (match-string 1 val)))	    
+	  (setq mailbox-list 
+		(append mailbox-list 
+			(list val)))))
+      mailbox-list)))
+
+(defun elmo-imap4-list-folders (spec &optional hierarchy)
+  (save-excursion
+    (let* ((root (elmo-imap4-spec-folder spec))
+	   (process (elmo-imap4-get-process spec))
+	   (delim (or
+		 (cdr
+		  (elmo-string-matched-assoc root
+					     (save-excursion
+					       (set-buffer
+						(process-buffer process))
+					       elmo-imap4-server-namespace)))
+		 "/"))
+	   response result append-serv ssl)
+      ;; Append delimiter
+      (if (and root
+	       (not (string= root ""))
+	       (not (string-match (concat "\\(.*\\)" 
+					  (regexp-quote delim)
+					  "\\'")
+				  root)))
+	  (setq root (concat root delim)))
+      (elmo-imap4-send-command (process-buffer process) 
+			       process
+			       (format "list \"%s\" *" root))
+      (setq response (elmo-imap4-read-response (process-buffer process)
+					       process))
+      (setq result (elmo-imap4-process-folder-list response))
+      (unless (string= (elmo-imap4-spec-username spec)
+		       elmo-default-imap4-user)
+	(setq append-serv (concat ":" (elmo-imap4-spec-username spec))))
+      (unless (string= (elmo-imap4-spec-hostname spec) 
+		       elmo-default-imap4-server)
+	(setq append-serv (concat append-serv "@" (elmo-imap4-spec-hostname
+						   spec))))
+      (unless (eq (elmo-imap4-spec-port spec)
+		  elmo-default-imap4-port)
+	(setq append-serv (concat append-serv ":" 
+				  (int-to-string 
+				   (elmo-imap4-spec-port spec)))))
+      (unless (eq (setq ssl (elmo-imap4-spec-ssl spec))
+		  elmo-default-imap4-ssl)
+	(if ssl
+	    (setq append-serv (concat append-serv "!")))
+	(if (eq ssl 'starttls)
+	    (setq append-serv (concat append-serv "!"))))
+      (mapcar '(lambda (fld)
+		 (concat "%" (elmo-imap4-decode-folder-string fld)
+			 (and append-serv 
+			      (eval append-serv))))
+	      result))))
+
+(defun elmo-imap4-folder-exists-p (spec)
+  (let ((process (elmo-imap4-get-process spec)))
+    (elmo-imap4-send-command (process-buffer process)
+			     process
+			     (format "status \"%s\" (messages)"
+				     (elmo-imap4-spec-folder spec)))
+    (elmo-imap4-read-response (process-buffer process) process)))
+
+(defun elmo-imap4-folder-creatable-p (spec)
+  t)
+
+(defun elmo-imap4-create-folder-maybe (spec dummy)
+  "Create folder if necessary."
+  (if (not (elmo-imap4-folder-exists-p spec))
+      (elmo-imap4-create-folder spec)))
+
+(defun elmo-imap4-create-folder (spec)
+  (let ((process (elmo-imap4-get-process spec))
+	(folder (elmo-imap4-spec-folder spec)))
+    (when folder
+;;     For UW imapd 4.6, this workaround is needed to create #mh mailbox.
+;      (if (string-match "^\\(#mh/\\).*[^/]$" folder)
+;	  (setq folder (concat folder "/"))) ;; make directory
+      (elmo-imap4-send-command (process-buffer process)
+			       process
+			       (format "create %s" folder))
+      (if (null (elmo-imap4-read-response (process-buffer process)
+					  process))
+	  (error "Create folder %s failed" folder)
+	t))))
+
+(defun elmo-imap4-delete-folder (spec)
+  (let ((process (elmo-imap4-get-process spec))
+	msgs)
+    (when (elmo-imap4-spec-folder spec)
+      (when (setq msgs (elmo-imap4-list-folder spec))
+	(elmo-imap4-delete-msgs spec msgs))
+      (elmo-imap4-send-command (process-buffer process) process "close")
+      (elmo-imap4-read-response (process-buffer process) process)
+      (elmo-imap4-send-command (process-buffer process)
+			       process
+			       (format "delete %s"
+				       (elmo-imap4-spec-folder spec)))
+      (if (null (elmo-imap4-read-response (process-buffer process)
+					  process))
+	  (error "Delete folder %s failed" (elmo-imap4-spec-folder spec))
+	t))))
+
+(defun elmo-imap4-rename-folder (old-spec new-spec)
+  (let ((process (elmo-imap4-get-process old-spec)))
+    (when (elmo-imap4-spec-folder old-spec)
+      (elmo-imap4-send-command (process-buffer process) process "close")
+      (elmo-imap4-read-response (process-buffer process) process)
+      (elmo-imap4-send-command (process-buffer process)
+			       process
+			       (format "rename %s %s"
+				       (elmo-imap4-spec-folder old-spec)
+				       (elmo-imap4-spec-folder new-spec)))
+      (if (null (elmo-imap4-read-response (process-buffer process) process))
+	  (error "Rename folder from %s to %s failed"
+		 (elmo-imap4-spec-folder old-spec)
+		 (elmo-imap4-spec-folder new-spec))
+	t))))
+
+(defun elmo-imap4-max-of-folder (spec)
+  (save-excursion
+    (let* ((process (elmo-imap4-get-process spec))
+	   response)
+      (elmo-imap4-send-command (process-buffer process)
+			       process
+			       (format "status \"%s\" (uidnext messages)"
+				       (elmo-imap4-spec-folder spec)))
+      (setq response (elmo-imap4-read-response (process-buffer process)
+					       process))
+      (when (and response (string-match 
+			   "\\* STATUS [^(]* \\(([^)]*)\\)" response))
+	(setq response (read (downcase (elmo-match-string 1 response))))
+	(cons (- (cadr (memq 'uidnext response)) 1)
+	      (cadr (memq 'messages response)))))))
+
+(defun elmo-imap4-get-connection (spec)
+  (let* ((user   (elmo-imap4-spec-username spec))
+	 (server (elmo-imap4-spec-hostname spec))
+	 (port   (elmo-imap4-spec-port spec))
+	 (auth   (elmo-imap4-spec-auth spec))
+	 (ssl    (elmo-imap4-spec-ssl spec))
+	 (user-at-host (format "%s@%s" user server))
+	 ret-val result buffer process proc-stat
+	 user-at-host-on-port)
+    (if (not (elmo-plugged-p server port))
+	(error "Unplugged"))
+    (setq user-at-host-on-port 
+	  (concat user-at-host ":" (int-to-string port)
+		  (if (eq ssl 'starttls) "!!" (if ssl "!"))))
+    (setq ret-val (assoc user-at-host-on-port
+			 elmo-imap4-connection-cache))
+    (if (and ret-val 
+	     (or (eq (setq proc-stat 
+			   (process-status (cadr (cdr ret-val)))) 
+		     'closed)
+		 (eq proc-stat 'exit)))
+	;; connection is closed...
+	(progn
+	  (kill-buffer (car (cdr ret-val)))
+	  (setq elmo-imap4-connection-cache 
+		(delete ret-val elmo-imap4-connection-cache))
+	  (setq ret-val nil)))
+    (if ret-val
+	(progn 
+	  (setq ret-val (cdr ret-val)) ;; connection cache exists.
+	  ret-val)
+      (setq result
+	    (elmo-imap4-open-connection server user auth port
+					(elmo-get-passwd user-at-host)
+					ssl))
+      (if (null result)
+	  (error "Connection failed"))
+      (elmo-imap4-debug "Connected to %s" user-at-host-on-port)
+      (setq buffer (car result))
+      (setq process (cdr result))
+      (when (and process (null buffer))
+	(elmo-remove-passwd user-at-host)
+	(delete-process process)
+	(error "Login failed"))
+      (setq elmo-imap4-connection-cache 
+	    (append elmo-imap4-connection-cache 
+		    (list 
+		     (cons user-at-host-on-port
+			   (setq ret-val (list buffer process 
+					       ""; current-folder..
+					       ))))))
+      ret-val)))
+
+(defun elmo-imap4-process-filter (process output)
+  (save-match-data 
+    (with-current-buffer (process-buffer process)
+      (goto-char (point-max))
+      (insert output)
+      (forward-line -1)
+      (beginning-of-line)
+      (if (looking-at (concat 
+		       "\\(^" 
+		       elmo-imap4-seq-prefix 
+		       (int-to-string elmo-imap4-seqno)
+		       "\\|^\\* OK\\|^\\* BYE\\'\\|^\\+\\)[^\n]*\n\\'"))
+	  (progn
+	    (setq elmo-imap4-lock nil) ; unlock process buffer.
+	    (elmo-imap4-debug "unlock(%d) %s" elmo-imap4-seqno output))
+	(elmo-imap4-debug "continue(%d) %s" elmo-imap4-seqno output))
+      (goto-char (point-max)))))
+
+(defun elmo-imap4-read-response (buffer process &optional not-command)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  (response-string nil)
+	  (response-continue t)
+	  (return-value nil)
+	  match-end)
+      (while response-continue
+	(goto-char elmo-imap4-read-point)
+	(while (not (search-forward "\r\n" nil t))
+	  (accept-process-output process)
+	  (goto-char elmo-imap4-read-point))
+	
+	(setq match-end (point))
+	(setq response-string
+	      (buffer-substring elmo-imap4-read-point (- match-end 2)))
+	(goto-char elmo-imap4-read-point)
+	(if (looking-at (format "%s[0-9]+ OK.*$\\|\\+.*$" 
+				elmo-imap4-seq-prefix))
+	    (progn (setq response-continue nil)
+		   (setq elmo-imap4-read-point match-end)
+		   (setq return-value 
+			 (if return-value 
+			     (concat return-value "\n" response-string)
+			   response-string)))
+	  (if (looking-at (format "\\(. BYE.*\\|%s[0-9]+ \\(NO\\|BAD\\).*\\)$" 
+				  elmo-imap4-seq-prefix))
+	      (progn (setq response-continue nil)
+		     (setq elmo-imap4-read-point match-end)
+		     (elmo-imap4-debug "error response: %s" response-string)
+		     (setq return-value nil))
+	    (setq elmo-imap4-read-point match-end)
+	    (if not-command
+		(setq response-continue nil))
+	    (setq return-value 
+		  (if return-value 
+		      (concat return-value "\n" response-string)
+		    response-string)))
+	  (setq elmo-imap4-read-point match-end)))
+      return-value)))
+
+(defun elmo-imap4-read-contents (buffer process)
+  "Read OK response"
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  (response-string nil)
+	  match-end)
+      (goto-char elmo-imap4-read-point)
+      (while (not (re-search-forward 
+		   (format "%s[0-9]+ \\(NO\\|BAD\\|OK\\).*$" 
+			   elmo-imap4-seq-prefix)
+		   nil t))
+	(accept-process-output process)
+	(goto-char elmo-imap4-read-point))
+      (beginning-of-line)
+      (setq match-end (point))
+      (setq response-string (buffer-substring 
+			     elmo-imap4-read-point match-end))
+      (if (eq (length response-string) 0)
+	  nil
+	response-string))))
+
+(defun elmo-imap4-read-bytes (buffer process bytes)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  (return-value nil)
+	  start gc-message)
+      (setq start elmo-imap4-read-point);; starting point
+      (while (< (point-max) (+ start bytes))
+	(accept-process-output process))
+      (setq return-value (buffer-substring
+			  start (+ start bytes)))
+      (setq return-value (elmo-delete-cr return-value))
+      (setq elmo-imap4-read-point bytes)
+      return-value)))
+
+(defun elmo-imap4-read-body (buffer process bytes outbuf)
+  (let (start gc-message ret-val)
+    (with-current-buffer buffer
+      (setq start elmo-imap4-read-point)
+      (while (< (point-max) (+ start bytes))
+	(accept-process-output process))      
+      (with-current-buffer outbuf
+	(erase-buffer)
+	(insert-buffer-substring buffer start (+ start bytes))
+	(setq ret-val (elmo-delete-cr-get-content-type)))
+      (setq elmo-imap4-read-point (+ start bytes))
+      ret-val)))
+  
+(defun elmo-imap4-noop (connection)
+  (let ((buffer (car connection))
+	(process (cadr connection)))
+    (save-excursion
+      (elmo-imap4-send-command buffer 
+			       process "noop")
+      (elmo-imap4-read-response buffer process))))
+
+(defun elmo-imap4-commit (spec)
+  (save-excursion
+    (let ((connection (elmo-imap4-get-connection spec))
+	  response ret-val beg end)
+      (and (not (null (elmo-imap4-spec-folder spec)))
+	   (if (not (string= (elmo-imap4-connection-get-cwf connection) 
+			     (elmo-imap4-spec-folder spec)))
+	       (if (null (setq response 
+			       (elmo-imap4-select-folder 
+				(elmo-imap4-spec-folder spec)
+				connection)))
+		   (error "Select folder failed"))
+	     (if elmo-imap4-use-select-to-update-status
+		 (elmo-imap4-select-folder 
+		  (elmo-imap4-spec-folder spec)
+		  connection) 
+	       (elmo-imap4-check connection)))))))
+
+(defun elmo-imap4-check (connection)
+  (let ((process (elmo-imap4-connection-get-process connection)))
+    (save-excursion
+      (elmo-imap4-send-command (process-buffer process) 
+			       process "check")
+      (elmo-imap4-read-response (process-buffer process) process))))
+
+(defun elmo-imap4-select-folder (folder connection)
+  (let ((process (elmo-imap4-connection-get-process connection))
+	response)
+    (save-excursion
+      (unwind-protect
+	  (progn
+	    (elmo-imap4-send-command (process-buffer process)
+				     process (format "select \"%s\"" 
+						     folder))
+	    (setq response (elmo-imap4-read-response 
+			    (process-buffer process) process)))
+	(if (null response)
+	    (progn
+	      (setcar (cddr connection) nil)
+	      (error "Select folder failed"))
+	  (setcar (cddr connection) folder))))
+    response))
+
+(defun elmo-imap4-check-validity (spec validity-file)
+  "get uidvalidity value from server and compare it with validity-file."
+  (let* ((process (elmo-imap4-get-process spec))
+	 response)
+    (save-excursion
+      (elmo-imap4-send-command (process-buffer process)
+			       process 
+			       (format "status \"%s\" (uidvalidity)" 
+				       (elmo-imap4-spec-folder spec)))
+      (setq response (elmo-imap4-read-response 
+		      (process-buffer process) process))
+      (if (string-match "UIDVALIDITY \\([0-9]+\\)" response)
+	  (string= (elmo-get-file-string validity-file)
+		   (elmo-match-string 1 response))
+	nil))))
+
+(defun elmo-imap4-sync-validity  (spec validity-file)
+  "get uidvalidity value from server and save it to validity-file."
+  (let* ((process (elmo-imap4-get-process spec))
+	 response)
+    (save-excursion
+      (elmo-imap4-send-command (process-buffer process)
+			       process 
+			       (format "status \"%s\" (uidvalidity)" 
+				       (elmo-imap4-spec-folder spec)))
+      (setq response (elmo-imap4-read-response 
+		      (process-buffer process) process))
+      (if (string-match "UIDVALIDITY \\([0-9]+\\)" response)
+	  (progn
+	    (elmo-save-string
+	     (elmo-match-string 1 response)
+	     validity-file)
+	    t)
+	nil))))
+
+(defsubst elmo-imap4-list (spec str)
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   response ret-val beg end)
+      (and (elmo-imap4-spec-folder spec)
+	   (if (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	       (if (null (setq response 
+			       (elmo-imap4-select-folder 
+				(elmo-imap4-spec-folder spec)
+				connection)))
+		   (error "Select folder failed"))
+	     ;; for status update.
+	     (if elmo-imap4-use-select-to-update-status
+		 (elmo-imap4-select-folder (elmo-imap4-spec-folder spec) 
+					   connection)
+	       (unless (elmo-imap4-check connection)
+		 ;; Check failed...not selected??
+		 (elmo-imap4-select-folder (elmo-imap4-spec-folder spec) 
+					   connection)))))
+      (elmo-imap4-send-command (process-buffer process)
+			       process
+			       (format (if elmo-imap4-use-uid 
+					   "uid search %s"
+					 "search %s") str))
+      (setq response (elmo-imap4-read-response (process-buffer process)
+					       process))
+      (if (and response (string-match "\\* SEARCH" response))
+	  (progn
+	    (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 
+						   0 end) ")"))))
+	      (error "SEARCH failed"))))
+      ret-val)))
+
+(defun elmo-imap4-list-folder (spec)
+  (elmo-imap4-list spec "all"))
+
+(defun elmo-imap4-list-folder-unread (spec mark-alist unread-marks)
+  (if (elmo-imap4-use-flag-p spec)
+      (elmo-imap4-list spec "unseen")
+    (elmo-generic-list-folder-unread spec mark-alist unread-marks)))
+
+(defun elmo-imap4-list-folder-important (spec overview)
+  (and (elmo-imap4-use-flag-p spec)
+       (elmo-imap4-list spec "flagged")))
+
+(defun elmo-imap4-search-internal (process buffer filter)
+  (let ((search-key (elmo-filter-key filter))
+	word response)
+    (cond
+     ((or (string= "since" search-key)
+	  (string= "before" search-key))
+      (setq search-key (concat "sent" search-key))
+      (elmo-imap4-send-command buffer process
+			       (format 
+				(if elmo-imap4-use-uid
+				    "uid search %s %s" 
+				  " search %s %s")
+				search-key
+				(elmo-date-get-description
+				 (elmo-date-get-datevec 
+				  (elmo-filter-value filter))))))
+     (t
+      (setq word (encode-mime-charset-string (elmo-filter-value filter) 
+					     elmo-search-mime-charset))
+      (elmo-imap4-send-command buffer process 
+			       (format 
+				(if elmo-imap4-use-uid
+				    "uid search CHARSET %s%s %s {%d}" 
+				  " search CHARSET %s%s %s {%d}")
+				(symbol-name elmo-search-mime-charset)
+				(if (eq (elmo-filter-type filter) 'unmatch)
+				    " not" "")
+				(elmo-filter-key filter)
+				(length word)))
+      (if (null (elmo-imap4-read-response buffer process t))
+	  (error "Searching failed because of server capability??"))
+      (elmo-imap4-send-string buffer process word)))
+    (if (null (setq response (elmo-imap4-read-response buffer process)))
+	(error "Search failed for %s" (elmo-filter-key filter)))
+    (if (string-match "^\\* SEARCH\\([^\n]*\\)$" response)
+	(read (concat "(" (elmo-match-string 1 response) ")"))
+      (error "SEARCH failed"))))
+
+(defun elmo-imap4-search (spec condition &optional from-msgs)
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   response ret-val len word)
+      (if (and (elmo-imap4-spec-folder spec)
+	       (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	       (null (elmo-imap4-select-folder 
+		      (elmo-imap4-spec-folder spec) connection)))
+	  (error "Select folder failed"))
+      (while condition
+	(setq response (elmo-imap4-search-internal process
+						   (process-buffer process)
+						   (car condition)))
+	(setq ret-val (nconc ret-val response))
+	(setq condition (cdr condition)))
+      (if from-msgs
+	  (elmo-list-filter 
+	   from-msgs
+	   (elmo-uniq-list (sort ret-val '<)))
+	(elmo-uniq-list (sort ret-val '<))))))
+
+(defsubst elmo-imap4-value (value)
+  (if (eq value 'NIL) nil
+    value))
+
+(defmacro elmo-imap4-nth (pos list)
+  (` (let ((value (nth (, pos) (, list))))
+       (if (eq 'NIL value)
+	   nil
+	 value))))
+  
+(defun elmo-imap4-use-flag-p (spec)
+  (not (string-match elmo-imap4-disuse-server-flag-mailbox-regexp
+		     (elmo-imap4-spec-folder spec))))
+
+(defsubst elmo-imap4-make-address (name mbox host)
+  (cond (name
+	 (concat name " <" mbox "@" host ">"))
+	(t
+	 (concat mbox "@" host))))
+
+(static-cond 
+ ((fboundp 'float)
+  ;; Emacs can parse dot symbol.
+  (defvar elmo-imap4-rfc822-size "RFC822\.SIZE")
+  (defvar elmo-imap4-header-fields "HEADER\.FIELDS")
+  (defmacro elmo-imap4-replace-dot-symbols ()) ;; noop
+  )
+ (t 
+  ;; Cannot parse dot symbol, replace it.
+  (defvar elmo-imap4-rfc822-size "RFC822_SIZE")
+  (defvar elmo-imap4-header-fields "HEADER_FIELDS")
+  (defmacro elmo-imap4-replace-dot-symbols ()
+    (goto-char (point-min))
+    (while (re-search-forward "RFC822\\.SIZE" nil t)
+      (replace-match elmo-imap4-rfc822-size))
+    (goto-char (point-min))
+    (while (re-search-forward "HEADER\\.FIELDS" nil t)
+      (replace-match elmo-imap4-header-fields))
+    (goto-char (point-min)))))
+
+(defsubst elmo-imap4-make-attributes-object (string)
+  (save-match-data
+    (elmo-set-work-buf
+     (elmo-set-buffer-multibyte nil)
+     (insert string)
+     (goto-char (point-min))
+     (let ((case-fold-search t))
+       (goto-char (point-min))
+       (while (re-search-forward "{\\([0-9]+\\)}\r\n" nil t)
+	 (let (str)
+	   (goto-char (+ (point) 
+			 (string-to-int (elmo-match-buffer 1))))
+	   (setq str (save-match-data 
+		       (elmo-replace-in-string 
+			(buffer-substring (match-end 0) (point))
+			"\r" "")))
+	   (delete-region (match-beginning 0) (point))
+	   (insert (prin1-to-string str))))
+       (goto-char (point-min))
+       (elmo-imap4-replace-dot-symbols)
+       (read (current-buffer))))))
+
+
+(defun elmo-imap4-parse-overview-string (string)
+  (if (null string)
+      (error "Getting overview failed"))
+  (with-temp-buffer
+    (let (ret-val beg attr number)
+      (elmo-set-buffer-multibyte nil)
+      (insert string)
+      (goto-char (point-min))
+      (setq beg (point))
+      (if (re-search-forward "^\* \\([0-9]+\\) FETCH" 
+			     nil t)
+	  (progn
+	    (setq beg (point))
+	    (unless elmo-imap4-use-uid
+	      (setq number (string-to-int (elmo-match-buffer 1))))
+	    (while (re-search-forward 
+		    "^\* \\([0-9]+\\) FETCH" 
+		    nil t)
+	      (setq attr (elmo-imap4-make-attributes-object
+			  (buffer-substring beg (match-beginning 0))))
+	      (setq beg (point))
+	      (unless elmo-imap4-use-uid
+		(setq attr(nconc (list 'UID number) attr))
+		(setq number (string-to-int (elmo-match-buffer 1))))
+	      (setq ret-val (cons attr ret-val)))
+	    ;; process last one...
+	    (setq attr (elmo-imap4-make-attributes-object
+			(buffer-substring beg (point-max))))
+	    (unless elmo-imap4-use-uid
+	      (setq attr(nconc (list 'UID number) attr)))
+	    (setq ret-val (cons attr ret-val))))
+      (nreverse ret-val))))
+
+(defun elmo-imap4-create-msgdb-from-overview-string (str
+						     folder
+						     new-mark
+						     already-mark
+						     seen-mark
+						     important-mark
+						     seen-list
+						     &optional numlist)
+  (let ((case-fold-search t)
+	(size-sym (intern elmo-imap4-rfc822-size))
+	overview attr-list attr pair section
+	number important message-id from-list from-string
+	to-string cc-string
+	number-alist mark-alist
+	reference subject date-string size flags gmark seen
+	index extras extra-fields sym value)
+    (setq attr-list (elmo-imap4-parse-overview-string str))
+    (while attr-list
+      (setq attr (car attr-list))
+      ;; Remove section data. (origin octed is not considered.(OK?))
+      (setq section (cadr (memq 'BODY attr)))
+      (if (vectorp section)
+	  (delq section attr))
+      ;; number
+      (setq number (cadr (memq 'UID attr)))
+      (when (or (null numlist)
+		(memq number numlist))
+	(while attr
+	  (setq sym (car attr))
+	  (setq value (cadr attr))
+	  (setq attr (cdr (cdr attr)))
+	  (cond
+	   ((eq sym 'UID))
+	   ;; noop
+	   ((eq sym 'FLAGS)
+	    (setq flags value))
+	   ((eq sym size-sym)
+	    (setq size value))
+	   ((eq sym 'BODY)
+	    (setq extra-fields (elmo-collect-field-from-string value t)))
+	   ((eq sym 'ENVELOPE)
+	    ;; According to rfc2060, 
+	    ;; 0 date, 1 subject, 2 from, 3 sender,
+	    ;; 4 reply-to, 5 to, 6 cc, 7 bcc, 8 in-reply-to, 9 message-id.
+	    (setq date-string (elmo-imap4-nth 0 value))
+	    (setq subject (elmo-mime-string (or (elmo-imap4-nth 1 value)
+						elmo-no-subject)))
+	    (setq from-list (car (elmo-imap4-nth 2 value)))
+	    (setq from-string (or
+			       (and (or (elmo-imap4-nth 0 from-list)
+					(elmo-imap4-nth 2 from-list)
+					(elmo-imap4-nth 3 from-list))
+				    (elmo-delete-char 
+				     ?\"
+				     (elmo-imap4-make-address
+				      (elmo-imap4-nth 0 from-list)
+				      (elmo-imap4-nth 2 from-list)
+				      (elmo-imap4-nth 3 from-list))
+				     'uni))
+			       elmo-no-from))
+	    (setq to-string (mapconcat
+			     '(lambda (to)
+				(elmo-imap4-make-address
+				 (elmo-imap4-nth 0 to)
+				 (elmo-imap4-nth 2 to)
+				 (elmo-imap4-nth 3 to)))
+			     (elmo-imap4-nth 5 value) ","))
+	    (setq cc-string (mapconcat
+			     '(lambda (cc)
+				(elmo-imap4-make-address
+				 (elmo-imap4-nth 0 cc)
+				 (elmo-imap4-nth 2 cc)
+				 (elmo-imap4-nth 3 cc)))
+			     (elmo-imap4-nth 6 value) ","))	
+	    (setq reference (elmo-msgdb-get-last-message-id
+			     (elmo-imap4-nth 8 value)))
+	    (setq message-id (elmo-imap4-nth 9 value)))))
+	(when (setq pair (assoc "references" extra-fields))
+	  (setq extra-fields (delq pair extra-fields)))
+	(unless reference
+	  (setq reference (elmo-msgdb-get-last-message-id (cdr pair))))
+	(setq overview
+	      (elmo-msgdb-append-element
+	       overview
+	       (cons message-id
+		     (vector number
+			     reference
+			     (elmo-mime-string from-string)
+			     (elmo-mime-string subject)
+			     date-string
+			     to-string
+			     cc-string
+			     size
+			     extra-fields))))
+	(if (memq 'Flagged flags)
+	    (elmo-msgdb-global-mark-set message-id important-mark))
+	(setq number-alist
+	      (elmo-msgdb-number-add number-alist number message-id))
+	(setq seen (member message-id seen-list))
+	(if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+			    (if (elmo-cache-exists-p message-id) ;; XXX
+				(if (or (memq 'Seen flags) seen)
+				    nil
+				  already-mark)
+			      (if (or (memq 'Seen flags) seen)
+				  (if elmo-imap4-use-cache
+				      seen-mark)
+				new-mark))))
+	    (setq mark-alist (elmo-msgdb-mark-append
+			      mark-alist
+			      number
+			      ;; managing mark with message-id is evil.
+			      gmark))))
+      (setq attr-list (cdr attr-list)))
+    (list overview number-alist mark-alist)))
+
+(defun elmo-imap4-add-to-cont-list (cont-list msg)
+  (let ((elist cont-list)
+	(ret-val cont-list)
+	entity found)
+    (while (and elist (not found))
+      (setq entity (car elist))
+      (cond 
+       ((and (consp entity)
+	     (eq (+ 1 (cdr entity)) msg))
+	(setcdr entity msg)
+	(setq found t))
+       ((and (integerp entity)
+	     (eq (+ 1 entity) msg))
+	(setcar elist (cons entity msg))
+	(setq found t))
+       ((or (and (integerp entity) (eq entity msg))
+	    (and (consp entity) 
+		 (<= (car entity) msg)
+		 (<= msg (cdr entity)))) ; included
+	(setq found t))); noop
+      (setq elist (cdr elist)))
+    (if (not found)
+	(setq ret-val (append cont-list (list msg))))
+    ret-val))
+
+(defun elmo-imap4-make-number-set-list (msg-list &optional chop-length)
+  "Make RFC2060's message set specifier from MSG-LIST.
+Returns a list of (NUMBER . SET-STRING).
+SET-STRING is the message set specifier described in RFC2060.
+NUMBER is contained message number in SET-STRING.
+Every SET-STRING does not contain number of messages longer than CHOP-LENGTH.
+If CHOP-LENGTH is not specified, message set is not chopped."
+  (let (count cont-list set-list)
+    (setq msg-list (sort msg-list '<))
+    (while msg-list
+      (setq cont-list nil)
+      (setq count 0)
+      (unless chop-length
+	(setq chop-length (length msg-list)))
+      (while (and (not (null msg-list))
+		  (< count chop-length))
+	(setq cont-list 
+	      (elmo-imap4-add-to-cont-list 
+	       cont-list (car msg-list)))
+	(incf count)
+	(setq msg-list (cdr msg-list)))
+      (setq set-list 
+	    (cons
+	     (cons
+	      count
+	      (mapconcat
+	       (lambda (x)
+		 (cond ((consp x)
+			(format "%s:%s" (car x) (cdr x)))
+		       ((integerp x)
+			(int-to-string x))))
+	       cont-list
+	       ","))
+	     set-list)))
+    (nreverse set-list)))
+
+;;
+;; set mark
+;; read-mark -> "\\Seen"
+;; important -> "\\Flagged"
+;; 
+;; (delete -> \\Deleted)
+(defun elmo-imap4-mark-set-on-msgs (spec msgs mark &optional unmark no-expunge)
+  "SET flag of MSGS as MARK.
+If optional argument UNMARK is non-nil, unmark."
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   (msg-list (copy-sequence msgs))
+	   set-list ent)
+      (if (and (elmo-imap4-spec-folder spec)
+	       (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	       (null (elmo-imap4-select-folder 
+		      (elmo-imap4-spec-folder spec) connection)))
+	  (error "Select folder failed"))
+      (setq set-list (elmo-imap4-make-number-set-list msg-list))
+      (when set-list
+	(elmo-imap4-send-command (process-buffer process)
+				 process
+				 (format 
+				  (if elmo-imap4-use-uid 
+				      "uid store %s %sflags.silent (%s)"
+				    "store %s %sflags.silent (%s)")
+				  (cdr (car set-list))
+				  (if unmark "-" "+")
+				  mark))
+	(unless (elmo-imap4-read-response (process-buffer process) process)
+	  (error "Store %s flag failed" mark))
+	(unless no-expunge
+	  (elmo-imap4-send-command 
+	   (process-buffer process) process "expunge")
+	  (unless (elmo-imap4-read-response (process-buffer process) process)
+	    (error "Expunge failed"))))
+      t)))
+
+(defun elmo-imap4-mark-as-important (spec msgs)
+  (and (elmo-imap4-use-flag-p spec)
+       (elmo-imap4-mark-set-on-msgs spec msgs "\\Flagged" nil 'no-expunge)))
+
+(defun elmo-imap4-mark-as-read (spec msgs)
+  (and (elmo-imap4-use-flag-p spec)
+       (elmo-imap4-mark-set-on-msgs spec msgs "\\Seen" nil 'no-expunge)))
+
+(defun elmo-imap4-unmark-important (spec msgs)
+  (and (elmo-imap4-use-flag-p spec)
+       (elmo-imap4-mark-set-on-msgs spec msgs "\\Flagged" 'unmark 
+				    'no-expunge)))
+
+(defun elmo-imap4-mark-as-unread (spec msgs)
+  (and (elmo-imap4-use-flag-p spec)
+       (elmo-imap4-mark-set-on-msgs spec msgs "\\Seen" 'unmark 'no-expunge)))
+
+(defun elmo-imap4-delete-msgs (spec msgs)
+  (elmo-imap4-mark-set-on-msgs spec msgs "\\Deleted"))
+
+(defun elmo-imap4-delete-msgs-no-expunge (spec msgs)
+  (elmo-imap4-mark-set-on-msgs spec msgs "\\Deleted" nil 'no-expunge))
+
+(defun elmo-imap4-msgdb-create-as-numlist (spec numlist new-mark already-mark 
+						seen-mark important-mark 
+						seen-list)
+  "Create msgdb for SPEC for NUMLIST."
+  (elmo-imap4-msgdb-create spec numlist new-mark already-mark
+			   seen-mark important-mark seen-list t))
+
+(defun elmo-imap4-msgdb-create (spec numlist new-mark already-mark seen-mark 
+				     important-mark seen-list &optional as-num)
+  "Create msgdb for SPEC."
+  (when numlist
+    (save-excursion
+      (let* ((connection (elmo-imap4-get-connection spec))
+	     (process    (elmo-imap4-connection-get-process connection))
+	     (filter     (and as-num numlist))
+	     (case-fold-search t)
+	     (extra-fields (if elmo-msgdb-extra-fields
+			       (concat " " (mapconcat
+					    'identity
+					    elmo-msgdb-extra-fields " "))
+			     ""))
+	     rfc2060 count ret-val set-list ov-str length)
+	(setq rfc2060 (with-current-buffer (process-buffer process)
+			(if (memq 'imap4rev1 elmo-imap4-server-capability)
+			    t
+			  (if (memq 'imap4 elmo-imap4-server-capability)
+			      nil
+			    (error "No IMAP4 capability!!")))))
+	(setq count 0)
+	(setq length (length numlist))
+	(setq set-list (elmo-imap4-make-number-set-list 
+			numlist
+			elmo-imap4-overview-fetch-chop-length))
+	(message "Getting overview...")
+	(if (and (elmo-imap4-spec-folder spec)
+		 (not (string= (elmo-imap4-connection-get-cwf connection)
+			       (elmo-imap4-spec-folder spec)))
+		 (null (elmo-imap4-select-folder 
+			(elmo-imap4-spec-folder spec) connection)))
+	    (error "Select imap folder %s failed" 
+		   (elmo-imap4-spec-folder spec)))
+	(while set-list
+	  (elmo-imap4-send-command 
+	   (process-buffer process)
+	   process
+	   ;; get overview entity from IMAP4
+	   (format 
+	    (if rfc2060
+		(concat
+		 (if elmo-imap4-use-uid "uid " "")
+		 "fetch %s (envelope body.peek[header.fields (references"
+		 extra-fields
+		 ")] rfc822.size flags)")
+	      (concat
+	       (if elmo-imap4-use-uid "uid " "")
+	       "fetch %s (envelope rfc822.size flags)"))
+	    (cdr (car set-list))))
+	  ;; process string while waiting for response
+	  (with-current-buffer (process-buffer process)
+	    (if ov-str
+		(setq ret-val
+		      (elmo-msgdb-append 
+		       ret-val
+		       (elmo-imap4-create-msgdb-from-overview-string 
+			ov-str
+			(elmo-imap4-spec-folder spec)
+			new-mark already-mark seen-mark important-mark
+			seen-list filter)))))
+	  (setq count (+ count (car (car set-list))))
+	  (setq ov-str (elmo-imap4-read-contents (process-buffer process)
+						 process))
+	  (elmo-display-progress
+	   'elmo-imap4-msgdb-create "Getting overview..." 
+	   (/ (* count 100) length))
+	  (setq set-list (cdr set-list)))
+	;; process last one.
+	(with-current-buffer (process-buffer process)
+	  (if ov-str
+	      (setq ret-val
+		    (elmo-msgdb-append 
+		     ret-val
+		     (elmo-imap4-create-msgdb-from-overview-string 
+		      ov-str 
+		      (elmo-imap4-spec-folder spec)
+		      new-mark already-mark seen-mark important-mark
+		      seen-list filter)))))
+	(message "Getting overview...done.")
+	ret-val))))
+
+(defun elmo-imap4-parse-response (string)
+  (if (string-match "^\\*\\(.*\\)$" string)
+      (read (concat "(" (elmo-match-string 1 string) ")"))))
+
+(defun elmo-imap4-parse-capability (string)
+  (if (string-match "^\\*\\(.*\\)$" string)
+      (read (concat "(" (downcase (elmo-match-string 1 string)) ")"))))
+
+(defun elmo-imap4-parse-namespace (obj)
+  (let ((ns (cdr obj))
+	(i 0)
+	prefix delim
+	cur namespace-alist)
+    ;; 0: personal, 1: other, 2: shared
+    (while (< i 3)
+      (setq cur (elmo-imap4-nth i ns))
+      (incf i)
+      (while cur
+	(setq prefix (elmo-imap4-nth 0 (car cur)))
+	(setq delim    (elmo-imap4-nth 1 (car cur)))
+	(if (and prefix delim
+		 (string-match (concat "\\(.*\\)" 
+				       (regexp-quote delim)
+				       "\\'")
+			       prefix))
+	    (setq prefix (substring prefix (match-beginning 1)(match-end 1))))
+	(setq namespace-alist (nconc namespace-alist
+				     (list (cons
+					    (concat "^" (regexp-quote prefix)
+						    ".*$")
+					    delim))))
+	(setq cur (cdr cur))))
+    (append
+     elmo-imap4-extra-namespace-alist
+     (sort namespace-alist
+	   '(lambda (x y)
+	      (> (length (car x))
+		 (length (car y))))))))
+
+(defun elmo-imap4-open-connection (imap4-server user auth port passphrase ssl)
+  "Open Imap connection and returns 
+the list of (process session-buffer current-working-folder).
+Return nil if connection failed."
+  (let ((process nil)
+	(host imap4-server)
+	process-buffer ret-val response capability)
+    (catch 'done
+      (as-binary-process
+       (setq process-buffer
+	     (get-buffer-create (format " *IMAP session to %s:%d" host port)))
+       (save-excursion
+	 (set-buffer process-buffer)
+	 (elmo-set-buffer-multibyte nil)	 
+	 (make-variable-buffer-local 'elmo-imap4-server-capability)
+	 (make-variable-buffer-local 'elmo-imap4-lock)
+	 (erase-buffer))
+       (setq process
+	     (elmo-open-network-stream "IMAP" process-buffer host port ssl))
+       (and (null process) (throw 'done nil))
+       (set-process-filter process 'elmo-imap4-process-filter)
+       ;; flush connections when exiting...
+       (save-excursion
+	 (set-buffer process-buffer)
+	 (make-local-variable 'elmo-imap4-read-point)
+	 (setq elmo-imap4-read-point (point-min))
+	 (if (null (setq response
+			 (elmo-imap4-read-response process-buffer process t)))
+	     (throw 'done nil)
+	   (when (string-match "^\\* PREAUTH" response)
+	     (setq ret-val (cons process-buffer process))
+	     (throw 'done nil)))
+	 (elmo-imap4-send-command process-buffer process "capability")
+	 (setq elmo-imap4-server-capability
+	       (elmo-imap4-parse-capability
+		(elmo-imap4-read-response process-buffer process)))
+	 (setq capability elmo-imap4-server-capability)
+	 (if (eq ssl 'starttls)
+	     (if (and (memq 'starttls capability)
+		      (progn
+			(elmo-imap4-send-command process-buffer process "starttls")
+			(setq response
+			      (elmo-imap4-read-response process-buffer process)))
+		      
+		      (string-match 
+		       (concat "^\\(" elmo-imap4-seq-prefix 
+			       (int-to-string elmo-imap4-seqno)
+			       "\\|\\*\\) OK")
+		       response))
+		 (starttls-negotiate process)
+	       (error "STARTTLS aborted")))
+	 (if (or (and (string= "auth" auth)
+		      (not (memq 'auth=login capability)))
+		 (and (string= "cram-md5" auth)
+		      (not (memq 'auth=cram-md5 capability)))
+		 (and (string= "digest-md5" auth)
+		      (not (memq 'auth=digest-md5 capability))))
+	     (if (or elmo-imap4-force-login
+		     (y-or-n-p 
+		      (format 
+		       "There's no %s capability in server. continue?" auth)))
+		 (setq auth "login")
+	       (error "Login aborted")))
+	 (cond 
+	  ((string= "auth" auth)
+	   (elmo-imap4-send-command
+	    process-buffer process "authenticate login" 'no-lock)
+	   ;; Base64 
+	   (when (null (elmo-imap4-read-response process-buffer process t))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (elmo-imap4-send-string
+	    process-buffer process (elmo-base64-encode-string user))
+	   (when (null (elmo-imap4-read-response process-buffer process t))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (elmo-imap4-send-string
+	    process-buffer process (elmo-base64-encode-string passphrase))
+	   (when (null (elmo-imap4-read-response process-buffer process))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (setq ret-val (cons process-buffer process)))
+	  ((string= "cram-md5" auth)
+	   (elmo-imap4-send-command 
+	    process-buffer process "authenticate cram-md5" 'no-lock)
+	   (when (null (setq response 
+			     (elmo-imap4-read-response 
+			      process-buffer process t)))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (setq response (cadr (split-string response " ")))
+	   (elmo-imap4-send-string
+	    process-buffer process 
+	    (elmo-base64-encode-string
+	     (sasl-cram-md5 user passphrase 
+			    (elmo-base64-decode-string response))))
+	   (when (null (elmo-imap4-read-response process-buffer process))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (setq ret-val (cons process-buffer process)))
+	  ((string= "digest-md5" auth)
+	   (elmo-imap4-send-command 
+	    process-buffer process "authenticate digest-md5" 'no-lock)
+	   (when (null (setq response
+			     (elmo-imap4-read-response 
+			      process-buffer process t)))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (setq response (cadr (split-string response " ")))
+	   (elmo-imap4-send-string
+	    process-buffer process
+	    (elmo-base64-encode-string
+	     (sasl-digest-md5-digest-response
+	      (elmo-base64-decode-string response)
+	      user passphrase "imap" host)
+	     'no-line-break))
+	   (when (null (elmo-imap4-read-response
+			process-buffer process t))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (elmo-imap4-send-string process-buffer process "")
+	   (when (null (elmo-imap4-read-response process-buffer process))
+	     (setq ret-val (cons nil process))
+	     (throw 'done nil))
+	   (setq ret-val (cons process-buffer process)))
+	  (t ;; not auth... try login
+	   (elmo-imap4-send-command 
+	    process-buffer process 
+	    (format "login %s \"%s\"" user 
+		    (elmo-replace-in-string passphrase
+					    "\"" "\\\\\"")) 
+	    nil 'no-log) ;; No LOGGING.
+	   (if (null (elmo-imap4-read-response process-buffer process))
+	       (setq ret-val (cons nil process))
+	     (setq ret-val (cons process-buffer process)))))
+	 ;; get namespace of server if possible.
+	 (when (memq 'namespace elmo-imap4-server-capability)
+	   (elmo-imap4-send-command process-buffer process "namespace")
+	   (setq elmo-imap4-server-namespace
+		 (elmo-imap4-parse-namespace
+		  (elmo-imap4-parse-response
+		   (elmo-imap4-read-response process-buffer process))))))))
+    ret-val))
+	    
+(defun elmo-imap4-get-seqno ()
+  (setq elmo-imap4-seqno (+ 1 elmo-imap4-seqno)))
+
+(defun elmo-imap4-setup-send-buffer (string)
+  (let ((tmp-buf (get-buffer-create " *elmo-imap4-setup-send-buffer*")))
+    (save-excursion
+      (save-match-data
+	(set-buffer tmp-buf)
+	(erase-buffer)
+	(elmo-set-buffer-multibyte nil)
+	(insert string)
+	(goto-char (point-min))
+	(if (eq (re-search-forward "^$" nil t) 
+		(point-max))
+	    (insert "\n"))
+	(goto-char (point-min))
+	(while (search-forward "\n" nil t)
+	  (replace-match "\r\n"))))
+    tmp-buf))
+
+(defun elmo-imap4-send-command (buffer process command &optional no-lock
+				       no-log)
+  "Send COMMAND string to server with sequence number."
+  (save-excursion
+    (set-buffer buffer)
+    (when (and elmo-imap4-use-lock
+	       elmo-imap4-lock)
+      (elmo-imap4-debug "send: (%d) is still locking." elmo-imap4-seqno)
+      (error "IMAP4 process is locked; Please try later (or plug again)"))
+    (erase-buffer)
+    (goto-char (point-min))
+    (setq elmo-imap4-read-point (point))
+    (unless no-lock
+      ;; for debug.
+      (if no-log
+	  (elmo-imap4-debug "lock(%d): (No-logging command)." (+ elmo-imap4-seqno 1))
+	(elmo-imap4-debug "lock(%d): %s" (+ elmo-imap4-seqno 1) command))
+      (setq elmo-imap4-lock t))
+    (process-send-string process (concat (format "%s%d " 
+						 elmo-imap4-seq-prefix 
+						 (elmo-imap4-get-seqno))
+					 command))
+    (process-send-string process "\r\n")))
+
+(defun elmo-imap4-send-string (buffer process string)
+  "Send STRING to server."
+  (save-excursion
+    (set-buffer buffer)
+    (erase-buffer)
+    (goto-char (point-min))
+    (setq elmo-imap4-read-point (point))
+    (process-send-string process string)
+    (process-send-string process "\r\n")))
+
+(defun elmo-imap4-read-part (folder msg part)
+  (save-excursion
+    (let* ((spec (elmo-folder-get-spec folder))
+	   (connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   response ret-val bytes)
+      (when (elmo-imap4-spec-folder spec)
+	(when (not (string= (elmo-imap4-connection-get-cwf connection)
+			    (elmo-imap4-spec-folder spec)))
+	  (if (null (setq response 
+			  (elmo-imap4-select-folder 
+			   (elmo-imap4-spec-folder spec) connection)))
+	      (error "Select folder failed")))
+	(elmo-imap4-send-command (process-buffer process)
+				 process
+				 (format 
+				  (if elmo-imap4-use-uid 
+				      "uid fetch %s body.peek[%s]"
+				    "fetch %s body.peek[%s]")
+				  msg part))
+	(if (null (setq response (elmo-imap4-read-response 
+				  (process-buffer process) 
+				  process t)))
+	    (error "Fetch failed"))
+	(save-match-data
+	  (while (string-match "^\\* OK" response)
+	    (if (null (setq response (elmo-imap4-read-response 
+				      (process-buffer process) 
+				      process t)))
+		(error "Fetch failed"))))
+	(save-match-data
+	  (if (string-match ".*{\\([0-9]+\\)}" response)
+	      (setq bytes
+		    (string-to-int
+		     (elmo-match-string 1 response)))
+	    (error "Fetch failed")))
+	(if (null (setq response (elmo-imap4-read-bytes 
+				  (process-buffer process) process bytes)))
+	    (error "Fetch message failed"))
+	(setq ret-val response)
+	(elmo-imap4-read-response (process-buffer process)
+				  process)) ;; ignore remaining..
+      ret-val)))
+
+(defun elmo-imap4-prefetch-msg (spec msg outbuf)
+  (elmo-imap4-read-msg spec msg outbuf 'unseen))
+
+(defun elmo-imap4-read-msg (spec msg outbuf 
+				 &optional leave-seen-flag-untouched)
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   response ret-val bytes)
+      (as-binary-process
+       (when (elmo-imap4-spec-folder spec)
+	 (when (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	   (if (null (setq response 
+			   (elmo-imap4-select-folder 
+			    (elmo-imap4-spec-folder spec) 
+			    connection)))
+	       (error "Select folder failed")))
+	 (elmo-imap4-send-command (process-buffer process)
+				  process
+				  (format 
+				   (if elmo-imap4-use-uid 
+				       "uid fetch %s body%s[]" 
+				     "fetch %s body%s[]")
+				   msg
+				   (if leave-seen-flag-untouched
+				       ".peek" "")))
+	 (if (null (setq response (elmo-imap4-read-response 
+				   (process-buffer process)
+				   process t)))
+	     (error "Fetch failed"))
+	 (save-match-data
+	   (while (string-match "^\\* OK" response)
+	     (if (null (setq response (elmo-imap4-read-response 
+				       (process-buffer process) 
+				       process t)))
+		 (error "Fetch failed"))))
+	 (save-match-data
+	   (if (string-match ".*{\\([0-9]+\\)}" response)
+	       (setq bytes
+		     (string-to-int
+		      (elmo-match-string 1 response)))
+	     (error "Fetch failed")))
+	 (setq ret-val (elmo-imap4-read-body 
+			(process-buffer process) 
+			process bytes outbuf))
+	 (elmo-imap4-read-response (process-buffer process) 
+				   process)) ;; ignore remaining..
+       )
+      ret-val)))
+
+(defun elmo-imap4-setup-send-buffer-from-file (file)
+  (let ((tmp-buf (get-buffer-create 
+		  " *elmo-imap4-setup-send-buffer-from-file*")))
+    (save-excursion
+      (save-match-data
+	(set-buffer tmp-buf)
+	(erase-buffer)
+	(as-binary-input-file
+	 (insert-file-contents file))
+	(goto-char (point-min))
+	(if (eq (re-search-forward "^$" nil t) 
+		(point-max))
+	    (insert "\n"))	
+	(goto-char (point-min))
+	(while (search-forward "\n" nil t)
+	  (replace-match "\r\n"))))
+    tmp-buf))
+
+(defun elmo-imap4-delete-msgids (spec msgids)
+  "If actual message-id is matched, then delete it."
+  (let ((message-ids msgids)
+	(i 0)
+	(num (length msgids)))
+    (while message-ids
+      (setq i (+ 1 i))
+      (message "Deleting message...%d/%d" i num)
+      (elmo-imap4-delete-msg-by-id spec (car message-ids))
+      (setq message-ids (cdr message-ids)))
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection)))
+      (elmo-imap4-send-command (process-buffer process) 
+			       process "expunge")
+      (if (null (elmo-imap4-read-response (process-buffer process)
+					  process))
+	  (error "Expunge failed")))))
+
+(defun elmo-imap4-delete-msg-by-id (spec msgid)
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   ;;(size (length string))
+	   response msgs)
+      (if (and (elmo-imap4-spec-folder spec)
+	       (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	       (null (elmo-imap4-select-folder 
+		      (elmo-imap4-spec-folder spec) 
+		      connection)))
+	  (error "Select folder failed"))
+      (save-excursion
+	(elmo-imap4-send-command (process-buffer process)
+				 process
+				 (format 
+				  (if elmo-imap4-use-uid 
+				      "uid search header message-id \"%s\""
+				    "search header message-id \"%s\"")
+				  msgid))
+	(setq response (elmo-imap4-read-response 
+			(process-buffer process) process))
+	(if (and response 
+		 (string-match "^\\* SEARCH\\([^\n]*\\)$" response))
+	    (setq msgs (read (concat "(" (elmo-match-string 1 response) ")")))
+	  (error "SEARCH failed"))
+	(elmo-imap4-delete-msgs-no-expunge spec msgs)))))
+
+(defun elmo-imap4-append-msg-by-id (spec msgid)
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   send-buf)
+      (if (and (elmo-imap4-spec-folder spec)
+	       (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	       (null (elmo-imap4-select-folder 
+		      (elmo-imap4-spec-folder spec) connection)))
+	  (error "Select folder failed"))
+      (save-excursion
+	(setq send-buf (elmo-imap4-setup-send-buffer-from-file 
+			(elmo-cache-get-path msgid)))
+	(set-buffer send-buf)
+	(elmo-imap4-send-command (process-buffer process)
+				 process
+				 (format "append %s (\\Seen) {%d}"
+					 (elmo-imap4-spec-folder spec)
+					 (buffer-size)))
+	(process-send-string process (buffer-string))
+	(process-send-string process "\r\n") ; finished appending.
+	)
+      (kill-buffer send-buf)
+      (if (null (elmo-imap4-read-response (process-buffer process)
+					  process))
+	  (error "Append failed")))
+    t))
+
+(defun elmo-imap4-append-msg (spec string &optional msg no-see)
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   send-buf)
+      (if (and (elmo-imap4-spec-folder spec)
+	       (not (string= (elmo-imap4-connection-get-cwf connection)
+			     (elmo-imap4-spec-folder spec)))
+	       (null (elmo-imap4-select-folder (elmo-imap4-spec-folder spec)
+					       connection)))
+	  (error "Select folder failed"))
+      (save-excursion
+	(setq send-buf (elmo-imap4-setup-send-buffer string))
+	(set-buffer send-buf)
+	(elmo-imap4-send-command (process-buffer process)
+				 process
+				 (format "append %s %s{%d}"
+					 (elmo-imap4-spec-folder spec)
+					 (if no-see "" "(\\Seen) ")
+					 (buffer-size)))
+	(if (null (elmo-imap4-read-response (process-buffer process)
+					    process))
+	    (error "Cannot append messages to this folder"))
+	(process-send-string process (buffer-string))
+	(process-send-string process "\r\n") ; finished appending.
+	)
+      (kill-buffer send-buf)
+      (current-buffer)
+      (if (null (elmo-imap4-read-response (process-buffer process)
+					  process))
+	  (error "Append failed")))
+    t))
+
+(defun elmo-imap4-copy-msgs (dst-spec msgs src-spec &optional expunge-it same-number)
+  "Equivalence of hostname, username is assumed."
+  (save-excursion
+    (let* ((src-folder (elmo-imap4-spec-folder src-spec))
+	   (dst-folder (elmo-imap4-spec-folder dst-spec))
+	   (connection (elmo-imap4-get-connection src-spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   (mlist msgs))
+      (if (and src-folder
+	       (not (string= (elmo-imap4-connection-get-cwf connection)
+			     src-folder))
+	       (null (elmo-imap4-select-folder
+		      src-folder connection)))
+	  (error "Select folder failed"))
+      (while mlist
+	(elmo-imap4-send-command (process-buffer process)
+				 process
+				 (format
+				  (if elmo-imap4-use-uid 
+				      "uid copy %s %s" 
+				    "copy %s %s")
+				  (car mlist) dst-folder))
+	(if (null (elmo-imap4-read-response (process-buffer process)
+					    process))
+	    (error "Copy failed")
+	  (setq mlist (cdr mlist))))
+      (when expunge-it
+	(elmo-imap4-send-command (process-buffer process) 
+				 process "expunge")
+	(if (null (elmo-imap4-read-response (process-buffer process)
+					    process))
+	    (error "Expunge failed")))
+      t)))
+
+(defun elmo-imap4-server-diff (spec)
+  "get server status"
+  (save-excursion
+    (let* ((connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   response)
+      ;; commit when same folder.
+      (if (string= (elmo-imap4-connection-get-cwf connection)
+		   (elmo-imap4-spec-folder spec))
+	  (elmo-imap4-commit spec))
+      (elmo-imap4-send-command (process-buffer process)
+			       process
+			       (format
+				"status \"%s\" (unseen messages)"
+				(elmo-imap4-spec-folder spec)))
+      (setq response (elmo-imap4-read-response 
+		      (process-buffer process) process))
+      (when (string-match "\\* STATUS [^(]* \\(([^)]*)\\)" response)
+	(setq response (read (downcase (elmo-match-string 1 response))))
+	(cons (cadr (memq 'unseen response))
+	      (cadr (memq 'messages response)))))))
+
+(defun elmo-imap4-use-cache-p (spec number)
+  elmo-imap4-use-cache)
+
+(defun elmo-imap4-local-file-p (spec number)
+  nil)
+
+(defun elmo-imap4-port-label (spec)
+  (concat "imap4"
+	  (if (nth 6 spec) "!ssl" "")))
+
+(defsubst elmo-imap4-portinfo (spec)
+  (list (elmo-imap4-spec-hostname spec) (elmo-imap4-spec-port spec)))
+
+(defun elmo-imap4-plugged-p (spec)
+  (apply 'elmo-plugged-p
+	 (append (elmo-imap4-portinfo spec)
+		 (list nil (quote (elmo-imap4-port-label spec))))))
+
+(defun elmo-imap4-set-plugged (spec plugged add)
+  (apply 'elmo-set-plugged plugged
+	 (append (elmo-imap4-portinfo spec)
+		 (list nil nil (quote (elmo-imap4-port-label spec)) add))))
+
+(defalias 'elmo-imap4-sync-number-alist 'elmo-generic-sync-number-alist)
+
+(provide 'elmo-imap4)
+
+;;; elmo-imap4.el ends here
diff --git a/elmo/elmo-internal.el b/elmo/elmo-internal.el
new file mode 100644
index 0000000..2c5fd14
--- /dev/null
+++ b/elmo/elmo-internal.el
@@ -0,0 +1,263 @@
+;;; elmo-internal.el -- Internal Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-03 11:12:17 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'elmo-localdir)
+
+(defsubst elmo-internal-list-folder-subr (spec &optional nonsort)
+  (let* ((directive (nth 1 spec))
+	 (arg (nth 2 spec))
+	 (flist (elmo-list-folder-by-location
+		 spec
+		 (elmo-internal-list-location directive arg))))
+    (if nonsort
+	(cons (or (elmo-max-of-list flist) 0)
+	      (length flist))
+      (sort flist '<))))
+
+(defun elmo-internal-list-folder (spec)
+  (elmo-internal-list-folder-subr spec))
+
+(defun elmo-internal-list-folder-by-location (spec location &optional msgdb)
+  (let* ((path (elmo-msgdb-expand-path nil spec))
+	 (location-alist 
+	  (if msgdb
+	      (elmo-msgdb-get-location msgdb)
+	    (elmo-msgdb-location-load path)))
+	 (i 0)
+	 result pair
+	 location-max modified)
+    (setq location-max
+	  (or (elmo-max-of-list (mapcar 'car location-alist)) 0))
+    (when location-max
+      (while location
+	(if (setq pair (rassoc (car location) location-alist))
+	    (setq result
+		  (append result
+			  (list (cons (car pair) (car location)))))
+	  (setq i (1+ i))
+	  (setq result (append result
+			       (list 
+				(cons (+ location-max i) (car location))))))
+	(setq location (cdr location))))
+    (setq result (sort result '(lambda (x y)
+				 (< (car x)(car y)))))
+    (if (not (equal result location-alist))
+	(setq modified t))
+    (if modified
+	(elmo-msgdb-location-save path result))
+    (mapcar 'car result)))
+
+(defun elmo-internal-list-location (directive arg)
+  (let ((mark-alist 
+	 (or elmo-msgdb-global-mark-alist
+	     (setq elmo-msgdb-global-mark-alist
+		   (elmo-object-load (expand-file-name 
+				      elmo-msgdb-global-mark-filename
+				      elmo-msgdb-dir)))))
+	result)
+    (mapcar (function (lambda (x)
+			(setq result (cons (car x) result))))
+	    mark-alist)
+    (nreverse result)))
+
+(defun elmo-internal-msgdb-create-entity (number loc-alist)
+  (elmo-localdir-msgdb-create-overview-entity-from-file
+   number
+   (elmo-cache-get-path (cdr (assq number loc-alist)))))
+
+(defun elmo-internal-msgdb-create (spec numlist new-mark 
+				       already-mark seen-mark 
+				       important-mark 
+				       seen-list
+				       &optional msgdb)
+  (when numlist
+    (let* ((directive (nth 1 spec))
+	   (arg       (nth 2 spec))
+	   (loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+			(elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						   nil spec))))
+	   (loc-list (elmo-internal-list-location directive arg))
+	   overview number-alist mark-alist entity
+	   i percent num location pair)
+      (setq num (length numlist))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while numlist
+	(setq entity
+	      (elmo-internal-msgdb-create-entity
+	       (car numlist) loc-alist))
+	(if (null entity)
+	    ()
+	  (setq overview 
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add number-alist
+				       (elmo-msgdb-overview-entity-get-number
+					entity)
+				       (elmo-msgdb-overview-entity-get-id
+					entity)))
+	  (setq location (cdr (assq (car numlist) loc-alist)))
+	  (unless (memq location seen-list)
+	    (setq mark-alist
+		  (elmo-msgdb-mark-append
+		   mark-alist 
+		   (elmo-msgdb-overview-entity-get-number
+		    entity)
+					;(nth 0 entity)
+		   (or (elmo-msgdb-global-mark-get 
+			(elmo-msgdb-overview-entity-get-id
+			 entity))
+		       (if (elmo-cache-exists-p 
+			    (elmo-msgdb-overview-entity-get-id
+			     entity))
+			   already-mark
+			 new-mark))))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) num))
+	(elmo-display-progress
+	 'elmo-internal-msgdb-create "Creating msgdb..."
+	 percent)
+	(setq numlist (cdr numlist)))
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist loc-alist))))
+
+(defalias 'elmo-internal-msgdb-create-as-numlist 'elmo-internal-msgdb-create)
+
+(defun elmo-internal-list-folders (spec &optional hierarchy)
+  ;; XXX hard cording.
+  (unless (nth 1 spec) ; toplevel.
+    (list (list "'cache") "'mark")))
+
+(defvar elmo-internal-mark "$")
+
+(defun elmo-internal-append-msg (spec string &optional msg no-see)
+  (elmo-set-work-buf
+   (insert string)
+   (let* ((msgid (elmo-field-body "message-id"))
+	  (path (elmo-cache-get-path msgid))
+	  dir)
+     (when path 
+       (setq dir (directory-file-name (file-name-directory path)))
+       (if (not (file-exists-p dir))
+	   (elmo-make-directory dir))
+       (as-binary-output-file (write-region (point-min) (point-max)
+					    path nil 'no-msg)))
+     (elmo-msgdb-global-mark-set msgid elmo-internal-mark))))
+
+(defun elmo-internal-delete-msgs (spec msgs &optional msgdb)
+  (let ((loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+		     (elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						nil spec)))))
+    (mapcar '(lambda (msg) (elmo-internal-delete-msg spec msg
+						     loc-alist))
+	    msgs)))
+
+(defun elmo-internal-delete-msg (spec number loc-alist)
+  (let ((pair (assq number loc-alist)))
+    (elmo-msgdb-global-mark-delete (cdr pair))))
+
+(defun elmo-internal-read-msg (spec number outbuf &optional msgdb)
+  (save-excursion
+    (let* ((loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+			(elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						   nil spec))))
+	   (file (elmo-cache-get-path (cdr (assq number loc-alist)))))
+      (set-buffer outbuf)
+      (erase-buffer)
+      (when (file-exists-p file)
+	(as-binary-input-file (insert-file-contents file))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-internal-max-of-folder (spec)
+  (elmo-internal-list-folder-subr spec t))
+
+(defun elmo-internal-check-validity (spec)
+  nil)
+
+(defun elmo-internal-sync-validity (spec)
+  nil)
+
+(defun elmo-internal-folder-exists-p (spec)
+  t)
+
+(defun elmo-internal-folder-creatable-p (spec)
+  nil)
+
+(defun elmo-internal-create-folder (spec)
+  nil)
+
+(defun elmo-internal-search (spec condition &optional from-msgs msgdb)
+  (let* ((mark-alist 
+	 (or elmo-msgdb-global-mark-alist
+	     (setq elmo-msgdb-global-mark-alist
+		   (elmo-object-load (expand-file-name 
+				      elmo-msgdb-global-mark-filename
+				      elmo-msgdb-dir)))))
+	 (loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+		      (elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						 nil spec))))	 
+	 cache-file
+	 ret-val
+	 case-fold-search msg
+	 percent i num)
+    (setq num (length loc-alist))
+    (setq i 0)
+    (while loc-alist
+      (if (and (setq cache-file (elmo-cache-exists-p (cdr (car loc-alist))))
+	       (elmo-file-field-condition-match cache-file
+						condition))
+	  (setq ret-val (append ret-val (list (car (car loc-alist))))))
+      (setq i (1+ i))
+      (setq percent (/ (* i 100) num))
+      (elmo-display-progress
+       'elmo-internal-search "Searching..."
+       percent)
+      (setq loc-alist (cdr loc-alist)))
+    ret-val))
+
+(defun elmo-internal-use-cache-p (spec number)
+  nil)
+
+(defun elmo-internal-local-file-p (spec number)
+  nil ;; XXXX
+  )
+
+(defalias 'elmo-internal-sync-number-alist 'elmo-generic-sync-number-alist)
+(defalias 'elmo-internal-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-internal-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-internal-commit 'elmo-generic-commit)
+
+(provide 'elmo-internal)
+
+;;; elmo-internal.el ends here
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
new file mode 100644
index 0000000..068b076
--- /dev/null
+++ b/elmo/elmo-localdir.el
@@ -0,0 +1,466 @@
+;;; elmo-localdir.el -- Localdir Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/22 00:03:39 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'emu)
+(require 'std11)
+
+(eval-when-compile
+  (require 'elmo-cache))
+(require 'elmo-msgdb)
+
+(defsubst elmo-localdir-get-folder-directory (spec)
+  (if (file-name-absolute-p (nth 1 spec))
+      (nth 1 spec) ; already full path.
+    (expand-file-name (nth 1 spec)
+		      (cond ((eq (car spec) 'localnews)
+			     elmo-localnews-folder-path)
+			    (t
+			     elmo-localdir-folder-path)))))
+
+(defun elmo-localdir-msgdb-expand-path (spec)
+  (let ((fld-name (nth 1 spec)))
+    (expand-file-name fld-name
+		      (expand-file-name "localdir"
+					elmo-msgdb-dir))))
+
+(defun elmo-localdir-number-to-filename (spec dir number &optional loc-alist)
+  (expand-file-name (int-to-string number) dir))
+
+(if (boundp 'nemacs-version)
+    (defsubst elmo-localdir-insert-header (file)
+      "Insert the header of the article (Does not work on nemacs)."
+      (as-binary-input-file
+       (insert-file-contents file)))
+  (defsubst elmo-localdir-insert-header (file)
+    "Insert the header of the article."
+    (let ((beg 0)
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook
+	  format-alist)
+      (when (file-exists-p file)
+	;; Read until header separator is found.
+	(while (and (eq elmo-localdir-header-chop-length
+			(nth 1 
+			     (as-binary-input-file 
+			      (insert-file-contents
+			       file nil beg
+			       (incf beg elmo-localdir-header-chop-length)))))
+		    (prog1 (not (search-forward "\n\n" nil t))
+		      (goto-char (point-max)))))))))
+
+
+(defsubst elmo-localdir-msgdb-create-overview-entity-from-file (number file)
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *ELMO LocalDir Temp*"))
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook header-end
+	  (attrib (file-attributes file))
+	  ret-val size mtime)
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (if (not (file-exists-p file))
+	  ()
+	(setq size (nth 7 attrib))
+	(setq mtime (timezone-make-date-arpa-standard
+		     (current-time-string (nth 5 attrib)) (current-time-zone)))
+	;; insert header from file.
+	(catch 'done
+	  (condition-case nil
+	      (elmo-localdir-insert-header file)
+	    (error (throw 'done nil)))
+	  (goto-char (point-min))
+	  (setq header-end 
+		(if (re-search-forward "\\(^--.*$\\)\\|\\(\n\n\\)" nil t)
+		    (point)
+		  (point-max)))
+	  (narrow-to-region (point-min) header-end)
+	  (setq ret-val (elmo-msgdb-create-overview-from-buffer number size mtime))
+	  (kill-buffer tmp-buffer))
+	ret-val
+	))))
+
+(defun elmo-localdir-msgdb-create-entity (dir number)
+  (elmo-localdir-msgdb-create-overview-entity-from-file
+   number (expand-file-name (int-to-string number) dir)))
+
+(defun elmo-localdir-msgdb-create-as-numlist (spec numlist new-mark 
+						   already-mark seen-mark 
+						   important-mark seen-list)
+  (when numlist
+    (let ((dir (elmo-localdir-get-folder-directory spec))
+	  overview number-alist mark-alist entity message-id
+	  i percent len num seen gmark)
+      (setq len (length numlist))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while numlist
+	(setq entity
+	      (elmo-localdir-msgdb-create-entity 
+	       dir (car numlist)))
+	(if (null entity)
+	    ()
+	  (setq num (elmo-msgdb-overview-entity-get-number entity))
+	  (setq overview 
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add number-alist
+				       num
+				       (elmo-msgdb-overview-entity-get-id
+					entity)))
+	  (setq message-id (elmo-msgdb-overview-entity-get-id entity))
+	  (setq seen (member message-id seen-list))
+	  (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+			      (if (elmo-cache-exists-p message-id) ; XXX
+				  (if seen 
+				      nil
+				    already-mark)
+				(if seen 
+				    nil ;;seen-mark
+				  new-mark))))
+	      (setq mark-alist
+		    (elmo-msgdb-mark-append 
+		     mark-alist 
+		     num
+		     gmark))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) len))
+	(elmo-display-progress
+	 'elmo-localdir-msgdb-create-as-numlist "Creating msgdb..."
+	 percent)
+	(setq numlist (cdr numlist)))
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist))))
+
+(defalias 'elmo-localdir-msgdb-create 'elmo-localdir-msgdb-create-as-numlist)
+
+(defvar elmo-localdir-list-folders-spec-string "+")
+(defvar elmo-localdir-list-folders-filter-regexp "^\\(\\.\\.?\\|[0-9]+\\)$")
+
+(defun elmo-localdir-list-folders (spec &optional hierarchy)
+  (let ((folder (concat elmo-localdir-list-folders-spec-string (nth 1 spec))))
+    (elmo-localdir-list-folders-subr folder hierarchy)))
+
+(defun elmo-localdir-list-folders-subr (folder &optional hierarchy)
+  (let ((case-fold-search t)
+	folders curdir dirent relpath abspath attr
+	subprefix subfolder)
+    (condition-case ()
+	(progn
+	  (setq curdir
+		(expand-file-name (nth 1 (elmo-folder-get-spec folder))
+				  elmo-localdir-folder-path))
+	  (if (string-match "^[+=$.]$" folder) ; localdir, archive, localnews
+	      (setq subprefix folder)
+	    (setq subprefix (concat folder elmo-path-sep))
+	    ;; include parent
+	    (setq folders (list folder)))
+	  (setq dirent (directory-files curdir))
+	  (catch 'done
+	   (while dirent
+	    (setq relpath (car dirent))
+	    (setq dirent (cdr dirent))
+	    (setq abspath (expand-file-name relpath curdir))
+	    (and
+	     (not (string-match 
+		   elmo-localdir-list-folders-filter-regexp
+		   relpath))
+	     (eq (nth 0 (setq attr (file-attributes abspath))) t)
+	     (if (eq hierarchy 'check)
+		 (throw 'done (nconc folders t))
+	       t)
+	     (setq subfolder (concat subprefix relpath))
+	     (setq folders (nconc folders
+				  (if (and hierarchy
+					   (if elmo-have-link-count
+					       (< 2 (nth 1 attr))
+					     (cdr
+					      (elmo-localdir-list-folders-subr
+					       subfolder 'check))))
+				      (list (list subfolder))
+				    (list subfolder))))
+	     (or
+	      hierarchy
+	      (and elmo-have-link-count (>= 2 (nth 1 attr)))
+	      (setq folders
+		    (nconc folders (cdr (elmo-localdir-list-folders-subr
+					 subfolder hierarchy))))))))
+	  folders)
+      (file-error folders))))
+
+(defsubst elmo-localdir-list-folder-subr (spec &optional nonsort)
+  (let* ((dir (elmo-localdir-get-folder-directory spec))
+	 (flist (mapcar 'string-to-int
+			(directory-files dir nil "^[0-9]+$" t))))
+    (if nonsort
+	(cons (or (elmo-max-of-list flist) 0) (length flist))
+      (sort flist '<))))
+
+(defun elmo-localdir-append-msg (spec string &optional msg no-see)
+  (let ((dir (elmo-localdir-get-folder-directory spec))
+	(tmp-buffer (get-buffer-create " *ELMO Temp buffer*"))
+	(next-num (or msg
+		      (1+ (car (elmo-localdir-list-folder-subr spec t)))))
+	filename)
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (setq filename (expand-file-name (int-to-string
+					next-num)
+				       dir))
+      (unwind-protect
+	  (if (file-writable-p filename)
+	      (progn
+		(insert string)
+		(as-binary-output-file
+		 (write-region (point-min) (point-max) filename nil 'no-msg))
+		t)
+	    nil
+	    )
+	(kill-buffer tmp-buffer)))))
+
+(defun elmo-localdir-delete-msg (spec number)
+  (let (file
+	(dir (elmo-localdir-get-folder-directory spec))
+        (number (int-to-string number)))
+    (setq file (expand-file-name number dir))
+    (if (and (string-match "[0-9]+" number) ; for safety.
+	     (file-exists-p file)
+	     (file-writable-p file) 
+	     (not (file-directory-p file)))
+	(progn (delete-file file)
+	       t))))
+
+(defun elmo-localdir-read-msg (spec number outbuf &optional set-mark)
+  (save-excursion
+    (let* ((number (int-to-string number))
+	   (dir (elmo-localdir-get-folder-directory spec))
+	   (file (expand-file-name number dir)))
+      (set-buffer outbuf)
+      (erase-buffer)
+      (when (file-exists-p file)
+	(as-binary-input-file (insert-file-contents file))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-localdir-delete-msgs (spec msgs)
+  (mapcar '(lambda (msg) (elmo-localdir-delete-msg spec msg))
+	  msgs))
+
+(defun elmo-localdir-list-folder (spec); called by elmo-localdir-search()
+  (elmo-localdir-list-folder-subr spec))
+
+(defun elmo-localdir-max-of-folder (spec)
+  (elmo-localdir-list-folder-subr spec t))
+
+(defun elmo-localdir-check-validity (spec validity-file)
+  (let* ((dir (elmo-localdir-get-folder-directory spec))
+	 (cur-val (nth 5 (file-attributes dir)))
+	 (file-val (read 
+		    (or (elmo-get-file-string validity-file)
+			"nil"))))
+    (cond
+     ((or (null cur-val) (null file-val)) nil)
+     ((> (car cur-val) (car file-val)) nil)
+     ((= (car cur-val) (car file-val))
+      (if (> (cadr cur-val) (cadr file-val)) nil t)) ; t if same
+     (t t))))
+
+(defun elmo-localdir-sync-validity (spec validity-file)
+  (save-excursion
+    (let* ((dir (elmo-localdir-get-folder-directory spec))
+	   (tmp-buffer (get-buffer-create " *ELMO TMP*"))
+	   (number-file (expand-file-name elmo-msgdb-number-filename dir)))
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (prin1 (nth 5 (file-attributes dir)) tmp-buffer)
+      (princ "\n" tmp-buffer)
+      (if (file-writable-p validity-file)
+	  (write-region (point-min) (point-max) 
+			validity-file nil 'no-msg)
+	(message (format "%s is not writable." number-file)))
+      (kill-buffer tmp-buffer))))
+
+(defun elmo-localdir-folder-exists-p (spec)
+  (file-directory-p (elmo-localdir-get-folder-directory spec)))
+
+(defun elmo-localdir-folder-creatable-p (spec)
+  t)
+
+(defun elmo-localdir-create-folder (spec)
+  (save-excursion
+    (let ((dir (elmo-localdir-get-folder-directory spec)))
+      (if (file-directory-p dir)
+          ()
+	(if (file-exists-p dir)
+	    (error "Create folder failed")
+	  (elmo-make-directory dir))
+	t
+	))))
+
+(defun elmo-localdir-delete-folder (spec)
+  (let* ((dir (elmo-localdir-get-folder-directory spec)))
+    (if (not (file-directory-p dir))
+	(error "no such directory: %s" dir)
+      (elmo-delete-directory dir t)
+      t)))
+
+(defun elmo-localdir-rename-folder (old-spec new-spec)
+  (let* ((old (elmo-localdir-get-folder-directory old-spec))
+	 (new (elmo-localdir-get-folder-directory new-spec))
+	 (new-dir (directory-file-name (file-name-directory new))))
+    (if (not (file-directory-p old))
+	(error "no such directory: %s" old)
+      (if (file-exists-p new)
+	  (error "already exists directory: %s" new)
+	(if (not (file-exists-p new-dir))
+	    (elmo-make-directory new-dir))
+	(rename-file old new)
+	t))))
+
+(defsubst elmo-localdir-field-condition-match (spec number condition)
+  (elmo-file-field-condition-match 
+   (expand-file-name (int-to-string number)
+		     (elmo-localdir-get-folder-directory spec))
+   condition))
+
+(defun elmo-localdir-search (spec condition &optional from-msgs)
+  (let* ((msgs (or from-msgs (elmo-localdir-list-folder spec)))
+	 (num (length msgs))
+	 (i 0) case-fold-search ret-val)
+    (while msgs
+      (if (elmo-localdir-field-condition-match spec (car msgs)
+					       condition)
+	  (setq ret-val (cons (car msgs) ret-val)))
+      (setq i (1+ i))
+      (elmo-display-progress
+       'elmo-localdir-search "Searching..."
+       (/ (* i 100) num))
+      (setq msgs (cdr msgs)))
+    (nreverse ret-val)))
+
+;;; (localdir, maildir, localnews) -> localdir
+(defun elmo-localdir-copy-msgs (dst-spec msgs src-spec
+					 &optional loc-alist same-number)
+  (let ((dst-dir
+	 (elmo-localdir-get-folder-directory dst-spec))
+	(next-num (1+ (car (elmo-localdir-list-folder-subr dst-spec t)))))
+    (while msgs
+      (elmo-copy-file
+       ;; src file
+       (elmo-call-func src-spec "get-msg-filename" (car msgs) loc-alist)
+       ;; dst file
+       (expand-file-name (int-to-string
+			  (if same-number (car msgs) next-num))
+			 dst-dir))
+      (if (and (setq msgs (cdr msgs))
+	       (not same-number))
+	  (setq next-num
+		(if (and (eq (car dst-spec) 'localdir)
+			 (elmo-localdir-locked-p))
+		    ;; MDA is running.
+		    (1+ (car (elmo-localdir-list-folder-subr dst-spec t)))
+		  (1+ next-num)))))
+    t))
+
+(defun elmo-localdir-pack-number (spec msgdb arg)
+  (let ((dir (elmo-localdir-get-folder-directory spec))
+	(onum-alist (elmo-msgdb-get-number-alist msgdb))
+	(omark-alist (elmo-msgdb-get-mark-alist msgdb))
+	(oov (elmo-msgdb-get-overview msgdb))
+	i flist onum mark new-mark-alist total)
+    (setq i 1)
+    (setq flist
+	  (if elmo-pack-number-check-strict
+	      (elmo-call-func spec "list-folder") ;; allow localnews
+	    (mapcar 'car onum-alist)))
+    (setq total (length flist))
+    (while flist
+      (elmo-display-progress
+       'elmo-localdir-pack-number "Packing..."
+       (/ (* i 100) total))
+      (setq onum (car flist))
+      (when (not (eq onum i)) ;; why \=() is wrong..
+        (elmo-bind-directory
+	 dir
+	 ;; xxx  nfs,hardlink
+	 (rename-file (int-to-string onum) (int-to-string i) t))
+        ;; update overview
+        (elmo-msgdb-overview-entity-set-number
+	 (elmo-msgdb-overview-get-entity-by-number
+	  oov onum) i)
+	;; update number-alist
+	(setcar (assq onum onum-alist) i))
+      ;; update mark-alist
+      (when (setq mark (cadr (assq onum omark-alist)))
+	(setq new-mark-alist
+	      (elmo-msgdb-mark-append
+	       new-mark-alist
+	       i mark)))
+      (setq i (1+ i))
+      (setq flist (cdr flist)))
+    (message "Packing...done.")
+    (list (elmo-msgdb-get-overview msgdb)
+	  onum-alist
+	  new-mark-alist
+	  (elmo-msgdb-get-location msgdb))))
+
+(defun elmo-localdir-use-cache-p (spec number)
+  nil)
+
+(defun elmo-localdir-local-file-p (spec number)
+  t)
+
+(defun elmo-localdir-get-msg-filename (spec number &optional loc-alist)
+  (expand-file-name 
+   (int-to-string number)
+   (elmo-localdir-get-folder-directory spec)))
+
+(defun elmo-localdir-locked-p ()
+  (if elmo-localdir-lockfile-list
+      (let ((lock elmo-localdir-lockfile-list))
+	(catch 'found
+	  (while lock
+	    (if (file-exists-p (car lock))
+		(throw 'found t))
+	    (setq lock (cdr lock)))))))
+
+(defalias 'elmo-localdir-sync-number-alist 
+  'elmo-generic-sync-number-alist)
+(defalias 'elmo-localdir-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-localdir-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-localdir-commit 'elmo-generic-commit)
+
+(provide 'elmo-localdir)
+
+;;; elmo-localdir.el ends here
diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
new file mode 100644
index 0000000..67a3a6a
--- /dev/null
+++ b/elmo/elmo-localnews.el
@@ -0,0 +1,133 @@
+;;; elmo-localnews.el -- Local News Spool Interface for ELMO.
+
+;; Copyright 1998,1999,2000 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;;                          Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author:  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;; Time-stamp: <2000-01-24 12:20:07 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'elmo-localdir)
+
+(defmacro elmo-localnews-as-newsdir (&rest body)
+  (` (let ((elmo-localdir-folder-path elmo-localnews-folder-path))
+       (,@ body))))
+
+(defun elmo-localnews-msgdb-create-as-numlist (spec numlist new-mark
+						    already-mark seen-mark
+						    important-mark seen-list)
+  (when numlist
+    (elmo-localnews-as-newsdir
+     (elmo-localdir-msgdb-create-as-numlist spec numlist new-mark
+					    already-mark seen-mark
+					    important-mark seen-list))))
+
+(defalias 'elmo-localnews-msgdb-create 'elmo-localnews-msgdb-create-as-numlist)
+
+(defun elmo-localnews-list-folders (spec &optional hierarchy)
+  (let ((folder (concat "=" (nth 1 spec))))
+    (elmo-localnews-as-newsdir
+     (elmo-localdir-list-folders-subr folder hierarchy))))
+
+(defun elmo-localnews-append-msg (spec string &optional msg no-see)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-append-msg spec string)))
+
+(defun elmo-localnews-delete-msgs (dir number)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-delete-msgs dir number)))
+
+(defun elmo-localnews-read-msg (spec number outbuf)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-read-msg spec number outbuf)))
+
+(defun elmo-localnews-list-folder (spec)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-list-folder-subr spec)))
+
+(defun elmo-localnews-max-of-folder (spec)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-list-folder-subr spec t)))
+
+(defun elmo-localnews-check-validity (spec validity-file)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-check-validity spec validity-file)))
+
+(defun elmo-localnews-sync-validity (spec validity-file)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-sync-validity spec validity-file)))
+
+(defun elmo-localnews-folder-exists-p (spec)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-folder-exists-p spec)))
+
+(defun elmo-localnews-folder-creatable-p (spec)
+  t)
+
+(defun elmo-localnews-create-folder (spec)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-create-folder spec)))
+
+(defun elmo-localnews-delete-folder (spec)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-delete-folder spec)))
+
+(defun elmo-localnews-rename-folder (old-spec new-spec)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-rename-folder old-spec new-spec)))
+
+(defun elmo-localnews-search (spec condition &optional from-msgs)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-search spec condition from-msgs)))
+
+(defun elmo-localnews-copy-msgs (dst-spec msgs src-spec
+					  &optional loc-alist same-number)
+  (elmo-localdir-copy-msgs
+   dst-spec msgs src-spec loc-alist same-number))
+
+(defun elmo-localnews-pack-number (spec msgdb arg)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-pack-number spec msgdb arg)))
+
+(defun elmo-localnews-use-cache-p (spec number)
+  nil)
+
+(defun elmo-localnews-local-file-p (spec number)
+  t)
+
+(defun elmo-localnews-get-msg-filename (spec number &optional loc-alist)
+  (elmo-localnews-as-newsdir
+   (elmo-localdir-get-msg-filename spec number loc-alist)))
+
+(defalias 'elmo-localnews-sync-number-alist 'elmo-generic-sync-number-alist)
+(defalias 'elmo-localnews-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-localnews-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-localnews-commit 'elmo-generic-commit)
+
+(provide 'elmo-localnews)
+
+;;; elmo-localnews.el ends here
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
new file mode 100644
index 0000000..df092c4
--- /dev/null
+++ b/elmo/elmo-maildir.el
@@ -0,0 +1,478 @@
+;;; elmo-maildir.el -- Maildir interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/22 00:14:31 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(eval-when-compile (require 'cl))
+(require 'elmo-util)
+(require 'elmo-localdir)
+
+(defvar elmo-maildir-sequence-number-internal 0
+  "Sequence number for the pid part of unique filename.
+This variable should not be used in elsewhere.")
+
+(defsubst elmo-maildir-get-folder-directory (spec)
+  (if (file-name-absolute-p (nth 1 spec))
+      (nth 1 spec) ; already full path.
+    (expand-file-name (nth 1 spec)
+		      elmo-maildir-folder-path)))
+
+(defun elmo-maildir-number-to-filename (dir number loc-alist)
+  (let ((location (cdr (assq number loc-alist))))
+    (and location (elmo-maildir-get-filename location dir))))
+
+(defun elmo-maildir-get-filename (location dir)
+  "Get a filename that is corresponded to LOCATION in DIR."
+  (expand-file-name
+   (let ((file (file-name-completion (symbol-name location)
+				     (expand-file-name "cur" dir))))
+     (if (eq file t) location file))
+   (expand-file-name "cur" dir)))
+
+(defsubst elmo-maildir-list-location (dir &optional child-dir)
+  (let* ((cur-dir (expand-file-name (or child-dir "cur") dir))
+	 (cur (directory-files cur-dir
+			       nil "^[^.].*$" t))
+	 seen-list seen sym list)
+    (setq list
+	  (mapcar 
+	   (lambda (x)
+	     (if (string-match "^\\([^:]+\\):\\([^:]+\\)$" x)
+		 (progn
+		   (setq seen nil)
+		   (save-match-data
+		     (if (string-match
+			  "S"
+			  (elmo-match-string 2 x))
+			 (setq seen t)))
+		   (setq sym (intern (elmo-match-string 1 x)))
+		   (if seen
+		       (setq seen-list (cons sym seen-list)))
+		   sym)
+	       (intern x)))
+	   cur))
+    (cons list seen-list)))
+
+(defun elmo-maildir-msgdb-create-entity (dir number loc-alist)
+  (elmo-localdir-msgdb-create-overview-entity-from-file
+   number
+   (elmo-maildir-number-to-filename dir number loc-alist)))
+
+(defun elmo-maildir-cleanup-temporal (dir)
+  ;; Delete files in the tmp dir which are not accessed
+  ;; for more than 36 hours.
+  (let ((cur-time (current-time))
+	(count 0)
+	last-accessed)
+    (mapcar (function 
+	     (lambda (file)
+	       (setq last-accessed (nth 4 (file-attributes file)))
+	       (when (or (> (- (car cur-time)(car last-accessed)) 1)
+			 (and (eq (- (car cur-time)(car last-accessed)) 1)
+			      (> (- (cadr cur-time)(cadr last-accessed))
+				 64064))) ; 36 hours.
+		 (message "Maildir: %d tmp file(s) are cleared."
+			  (setq count (1+ count)))
+		 (delete-file file))))
+	    (directory-files (expand-file-name "tmp" dir)
+			     t ; full
+			     "^[^.].*$" t))))
+
+(defun elmo-maildir-update-current (spec)
+  "Move all new msgs to cur in the maildir"
+  (let* ((maildir (elmo-maildir-get-folder-directory spec))
+	 (news (directory-files (expand-file-name "new"
+						  maildir)
+				nil
+				"^[^.].*$" t)))
+    ;; cleanup tmp directory.
+    (elmo-maildir-cleanup-temporal maildir)
+    ;; move new msgs to cur directory.
+    (mapcar (lambda (x)
+	      (rename-file 
+	       (expand-file-name x (expand-file-name "new" maildir))
+	       (expand-file-name (concat x ":2,")
+				 (expand-file-name "cur" maildir))))
+	    news)))
+
+(defun elmo-maildir-set-mark (filename mark)
+  "Mark the file in the maildir. MARK is a character."
+  (if (string-match "^\\([^:]+:2,\\)\\(.*\\)$" filename)
+      (let ((flaglist (string-to-char-list (elmo-match-string 
+					    2 filename))))
+	(unless (memq mark flaglist)
+	  (setq flaglist (sort (cons mark flaglist) '<))
+	  (rename-file filename
+		       (concat (elmo-match-string 1 filename)
+			       (char-list-to-string flaglist)))))))
+
+(defun elmo-maildir-delete-mark (filename mark)
+  "Mark the file in the maildir. MARK is a character."
+  (if (string-match "^\\([^:]+:2,\\)\\(.*\\)$" filename)
+      (let ((flaglist (string-to-char-list (elmo-match-string 
+					    2 filename))))
+	(when (memq mark flaglist)
+	  (setq flaglist (delq mark flaglist))
+	  (rename-file filename
+		       (concat (elmo-match-string 1 filename)
+			       (if flaglist
+				   (char-list-to-string flaglist))))))))
+
+(defsubst elmo-maildir-set-mark-msgs (spec mark msgs msgdb)
+  (let ((dir (elmo-maildir-get-folder-directory spec))
+	(locs (if msgdb
+		  (elmo-msgdb-get-location msgdb)
+		(elmo-msgdb-location-load (elmo-msgdb-expand-path nil spec))))
+	file)
+    (while msgs
+      (if (setq file (elmo-maildir-number-to-filename dir (car msgs) locs))
+	  (elmo-maildir-set-mark file mark))
+      (setq msgs (cdr msgs)))))
+
+(defsubst elmo-maildir-delete-mark-msgs (spec mark msgs msgdb)
+  (let ((dir (elmo-maildir-get-folder-directory spec))
+	(locs (if msgdb
+		  (elmo-msgdb-get-location msgdb)
+		(elmo-msgdb-location-load (elmo-msgdb-expand-path nil spec))))
+	file)
+    (while msgs
+      (if (setq file (elmo-maildir-number-to-filename dir (car msgs) locs))
+	  (elmo-maildir-delete-mark file mark))
+      (setq msgs (cdr msgs)))))
+
+(defun elmo-maildir-mark-as-important (spec msgs &optional msgdb)
+  (elmo-maildir-set-mark-msgs spec ?F msgs msgdb))
+  
+(defun elmo-maildir-unmark-important (spec msgs &optional msgdb)
+  (elmo-maildir-delete-mark-msgs spec ?F msgs msgdb))
+
+(defun elmo-maildir-mark-as-read (spec msgs &optional msgdb)
+  (elmo-maildir-set-mark-msgs spec ?S msgs msgdb))
+
+(defun elmo-maildir-mark-as-unread (spec msgs &optional msgdb)
+  (elmo-maildir-delete-mark-msgs spec ?S msgs msgdb))
+
+(defun elmo-maildir-msgdb-create (spec numlist new-mark 
+				       already-mark seen-mark 
+				       important-mark 
+				       seen-list
+				       &optional msgdb)
+  (when numlist
+    (let* ((dir (elmo-maildir-get-folder-directory spec))
+	   (loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+			(elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						   nil spec))))
+	   (loc-seen (elmo-maildir-list-location dir))
+	   (loc-list  (car loc-seen))
+	   (seen-list (cdr loc-seen))
+	   overview number-alist mark-alist entity
+	   i percent num location pair)
+      (setq num (length numlist))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while numlist
+	(setq entity
+	      (elmo-maildir-msgdb-create-entity
+	       dir (car numlist) loc-alist))
+	(if (null entity)
+	    ()
+	  (setq overview 
+		(elmo-msgdb-append-element
+		 overview entity))
+	  (setq number-alist
+		(elmo-msgdb-number-add number-alist
+				       (elmo-msgdb-overview-entity-get-number
+					entity)
+				       (elmo-msgdb-overview-entity-get-id
+					entity)))
+	  (setq location (cdr (assq (car numlist) loc-alist)))
+	  (unless (member location seen-list)
+	    (setq mark-alist
+		  (elmo-msgdb-mark-append 
+		   mark-alist 
+		   (elmo-msgdb-overview-entity-get-number
+		    entity)
+		   (or (elmo-msgdb-global-mark-get 
+			(elmo-msgdb-overview-entity-get-id
+			 entity))
+		       new-mark)))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) num))
+	(elmo-display-progress
+	 'elmo-maildir-msgdb-create "Creating msgdb..."
+	 percent)
+	(setq numlist (cdr numlist)))
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist loc-alist))))
+
+(defalias 'elmo-maildir-msgdb-create-as-numlist 'elmo-maildir-msgdb-create)
+
+(defun elmo-maildir-list-folders (spec &optional hierarchy)
+  (let ((elmo-localdir-folder-path elmo-maildir-folder-path)
+	(elmo-localdir-list-folders-spec-string ".")
+	(elmo-localdir-list-folders-filter-regexp
+	 "^\\(\\.\\.?\\|cur\\|tmp\\|new\\)$")
+	elmo-have-link-count folders)
+    (setq folders (elmo-localdir-list-folders spec hierarchy))
+    (if (eq (length (nth 1 spec)) 0) ; top
+	(setq folders (append
+		       (list (concat elmo-localdir-list-folders-spec-string
+				     (nth 1 spec)))
+		       folders)))
+    (elmo-delete-if
+     (function (lambda (folder)
+		 (not (or (listp folder) (elmo-folder-exists-p folder)))))
+     folders)))
+
+(static-cond 
+ ((>= emacs-major-version 19)
+  (defun elmo-maildir-make-unique-string ()
+    "This function generates a string that can be used as a unique
+file name for maildir directories."    
+     (let ((cur-time (current-time)))
+       (format "%.0f.%d_%d.%s"
+ 	      (+ (* (car cur-time)
+                    (float 65536)) (cadr cur-time))
+	      (emacs-pid)
+	      (incf elmo-maildir-sequence-number-internal)
+	      (system-name)))))
+ ((eq emacs-major-version 18)
+  ;; A fake function for v18
+  (defun elmo-maildir-make-unique-string ()
+    "This function generates a string that can be used as a unique
+file name for maildir directories."
+    (unless (fboundp 'float-to-string)
+      (load-library "float"))
+    (let ((time (current-time)))
+      (format "%s%d.%d.%s"
+	      (substring
+	       (float-to-string
+		(f+ (f* (f (car time))
+			(f 65536))
+		    (f (cadr time)))) 
+	       0 5)                   
+	      (cadr time)
+	      (% (abs (random t)) 10000); dummy pid
+	      (system-name))))))
+
+(defun elmo-maildir-temporal-filename (basedir)
+  (let ((filename (expand-file-name 
+		   (concat "tmp/" (elmo-maildir-make-unique-string))
+		   basedir)))
+    (unless (file-exists-p (file-name-directory filename))
+      (make-directory (file-name-directory filename)))
+    (while (file-exists-p filename)
+      ;; (sleep-for 2) ; I don't want to wait.
+      (setq filename 
+	    (expand-file-name 
+	     (concat "tmp/" (elmo-maildir-make-unique-string))
+	     basedir)))
+    filename))
+
+(defun elmo-maildir-append-msg (spec string &optional msg no-see)
+  (let ((basedir (elmo-maildir-get-folder-directory spec))
+	filename)
+    (condition-case nil
+	(with-temp-buffer
+	  (setq filename (elmo-maildir-temporal-filename basedir))
+	  (insert string)
+	  (as-binary-output-file
+	   (write-region (point-min) (point-max) filename nil 'no-msg))
+	  ;; add link from new.
+	  (elmo-add-name-to-file
+	   filename
+	   (expand-file-name 
+	    (concat "new/" (file-name-nondirectory filename))
+	    basedir))
+	  t)
+      ;; If an error occured, return nil.
+      (error))))
+
+(defun elmo-maildir-delete-msg (spec number loc-alist)
+  (let ((dir (elmo-maildir-get-folder-directory spec))
+	file)
+    (setq file (elmo-maildir-number-to-filename dir number loc-alist))
+    (if (and (file-writable-p file) 
+	     (not (file-directory-p file)))
+	(progn (delete-file file)
+	       t))))
+
+(defun elmo-maildir-read-msg (spec number outbuf &optional msgdb)
+  (save-excursion
+    (let* ((loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+			(elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						   nil spec))))
+	   (dir (elmo-maildir-get-folder-directory spec))
+	   (file (elmo-maildir-number-to-filename dir number loc-alist)))
+      (set-buffer outbuf)
+      (erase-buffer)
+      (when (file-exists-p file)
+	(as-binary-input-file (insert-file-contents file))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-maildir-delete-msgs (spec msgs &optional msgdb)
+  (let ((loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+		     (elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						nil spec)))))
+    (mapcar '(lambda (msg) (elmo-maildir-delete-msg spec msg
+						    loc-alist))
+	    msgs)))
+
+(defsubst elmo-maildir-list-folder-subr (spec &optional nonsort)
+  (let* ((dir (elmo-maildir-get-folder-directory spec))
+	 (flist (elmo-list-folder-by-location 
+		 spec
+		 (car (elmo-maildir-list-location dir))))
+	 (news (car (elmo-maildir-list-location dir "new"))))
+    (if nonsort
+	(cons (+ (or (elmo-max-of-list flist) 0) (length news))
+	      (+ (length flist) (length news)))
+      (sort flist '<))))
+
+(defun elmo-maildir-list-folder (spec)
+  (elmo-maildir-update-current spec)
+  (elmo-maildir-list-folder-subr spec))
+
+(defun elmo-maildir-max-of-folder (spec)
+  (elmo-maildir-list-folder-subr spec t))
+
+(defalias 'elmo-maildir-check-validity 'elmo-localdir-check-validity)
+
+(defalias 'elmo-maildir-sync-validity  'elmo-localdir-sync-validity)
+
+(defun elmo-maildir-folder-exists-p (spec)
+  (let ((basedir (elmo-maildir-get-folder-directory spec)))
+    (and (file-directory-p (expand-file-name "new" basedir))
+	 (file-directory-p (expand-file-name "cur" basedir))
+	 (file-directory-p (expand-file-name "tmp" basedir)))))
+
+(defun elmo-maildir-folder-creatable-p (spec)
+  t)
+
+(defun elmo-maildir-create-folder (spec)
+  (let ((basedir (elmo-maildir-get-folder-directory spec)))
+    (condition-case nil
+	(progn
+	  (mapcar (function (lambda (dir)
+			      (setq dir (expand-file-name dir basedir))
+			      (or (file-directory-p dir)
+				  (progn
+				    (elmo-make-directory dir)
+				    (set-file-modes dir 448)))))
+		  '("." "new" "cur" "tmp"))
+	  t)
+      (error))))
+
+(defun elmo-maildir-delete-folder (spec)
+  (let ((basedir (elmo-maildir-get-folder-directory spec)))
+    (condition-case nil
+	(let ((tmp-files (directory-files
+			  (expand-file-name "tmp" basedir)
+			  t "[^.].*")))
+	  ;; Delete files in tmp.
+	  (and tmp-files (mapcar 'delete-file tmp-files))
+	  (mapcar
+	   (function
+	    (lambda (dir)
+	      (setq dir (expand-file-name dir basedir))
+	      (if (not (file-directory-p dir))
+		  (error)
+		(elmo-delete-directory dir t))))
+	   '("new" "cur" "tmp" "."))
+	  t)
+      (error))))
+
+(defun elmo-maildir-search (spec condition &optional from-msgs msgdb)
+  (save-excursion
+    (let* ((msgs (or from-msgs (elmo-maildir-list-folder spec)))
+	   (loc-alist (if msgdb (elmo-msgdb-get-location msgdb)
+			(elmo-msgdb-location-load (elmo-msgdb-expand-path 
+						   nil spec))))
+	   (dir (elmo-maildir-get-folder-directory spec))
+	   (i 0)
+	   case-fold-search ret-val
+	   percent num
+	   (num (length msgs))
+	   msg-num)
+      (while msgs
+	(setq msg-num (car msgs))
+	(if (elmo-file-field-condition-match 
+	     (elmo-maildir-number-to-filename
+	      dir (car msgs) loc-alist)
+	     condition)
+	    (setq ret-val (append ret-val (list msg-num))))
+	(setq i (1+ i))
+	(setq percent (/ (* i 100) num))
+	(elmo-display-progress
+	 'elmo-maildir-search "Searching..."
+	 percent)
+	(setq msgs (cdr msgs)))
+      ret-val)))
+
+;;; (maildir) -> maildir
+(defun elmo-maildir-copy-msgs (dst-spec msgs src-spec 
+					&optional loc-alist same-number)
+  (let (srcfile)
+    (while msgs
+      (setq srcfile 
+	    (elmo-maildir-get-msg-filename src-spec (car msgs) loc-alist))
+      (elmo-copy-file
+       ;; src file
+       srcfile
+       ;; dst file
+       (expand-file-name 
+	(file-name-nondirectory srcfile)
+	(concat (elmo-maildir-get-folder-directory dst-spec) "/cur")))
+      (setq msgs (cdr msgs))))
+  t)
+
+(defun elmo-maildir-use-cache-p (spec number)
+  nil)
+
+(defun elmo-maildir-local-file-p (spec number)
+  t)
+
+(defun elmo-maildir-get-msg-filename (spec number &optional loc-alist)
+  (elmo-maildir-number-to-filename 
+   (elmo-maildir-get-folder-directory spec)
+   number (or loc-alist (elmo-msgdb-location-load 
+			 (elmo-msgdb-expand-path 
+			  nil spec)))))
+
+(defalias 'elmo-maildir-sync-number-alist 
+  'elmo-generic-sync-number-alist)
+(defalias 'elmo-maildir-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-maildir-list-folder-important
+  'elmo-generic-list-folder-important)
+
+(provide 'elmo-maildir)
+
+;;; elmo-maildir.el ends here
diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
new file mode 100644
index 0000000..595a435
--- /dev/null
+++ b/elmo/elmo-msgdb.el
@@ -0,0 +1,720 @@
+;;; elmo-msgdb.el -- Message Database for Elmo.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/06 13:24:13 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(eval-when-compile (require 'cl))
+(require 'elmo-vars)
+(require 'elmo-util)
+(require 'emu)
+(require 'std11)
+(require 'elmo-cache)
+
+(defun elmo-msgdb-expand-path (folder &optional spec)
+  (convert-standard-filename
+   (let* ((spec (or spec (elmo-folder-get-spec folder)))
+	  (type (car spec))
+	  fld)
+     (cond 
+      ((eq type 'imap4)
+       (setq fld (elmo-imap4-spec-mailbox spec))
+       (if (string= "inbox" (downcase fld))
+	   (setq fld "inbox"))
+       (if (eq (string-to-char fld) ?/)
+	   (setq fld (substring fld 1 (length fld))))
+       (expand-file-name 
+	fld
+	(expand-file-name (or (elmo-imap4-spec-username spec) "nobody")
+			  (expand-file-name (or 
+					     (elmo-imap4-spec-hostname spec)
+					     "nowhere")
+					    (expand-file-name 
+					     "imap"
+					     elmo-msgdb-dir)))))
+      ((eq type 'nntp)
+       (expand-file-name 
+	(elmo-nntp-spec-group spec)
+	(expand-file-name (or (elmo-nntp-spec-hostname spec) "nowhere")
+			  (expand-file-name "nntp"
+					    elmo-msgdb-dir))))
+      ((eq type 'maildir)
+       (expand-file-name (elmo-safe-filename (nth 1 spec))
+			 (expand-file-name "maildir"
+					   elmo-msgdb-dir)))
+      ((eq type 'folder)
+       (expand-file-name (elmo-safe-filename (nth 1 spec))
+			 (expand-file-name "folder"
+					   elmo-msgdb-dir)))
+      ((eq type 'multi)
+       (expand-file-name (elmo-safe-filename folder)
+			 (expand-file-name "multi"
+					   elmo-msgdb-dir)))
+      ((eq type 'filter)
+       (expand-file-name
+	(elmo-safe-filename folder)
+	(expand-file-name "filter"
+			  elmo-msgdb-dir)))
+      ((eq type 'archive)
+       (expand-file-name 
+	(directory-file-name
+	 (concat
+	  (elmo-replace-in-string 
+	   (elmo-replace-in-string
+	    (elmo-replace-in-string 
+	     (nth 1 spec)
+	     "/" "_")
+	    ":" "__")
+	   "~" "___")
+	  "/" (nth 3 spec)))
+	(expand-file-name (concat (symbol-name type) "/" 
+				  (symbol-name (nth 2 spec)))
+			  elmo-msgdb-dir)))
+      ((eq type 'pop3)
+       (expand-file-name 
+	(elmo-safe-filename (elmo-pop3-spec-username spec))
+	(expand-file-name (elmo-pop3-spec-hostname spec)
+			  (expand-file-name
+			   "pop"
+			   elmo-msgdb-dir))))
+      ((eq type 'localnews)
+       (expand-file-name
+	(elmo-replace-in-string (nth 1 spec) "/" ".")
+	(expand-file-name "localnews"
+			  elmo-msgdb-dir)))
+      ((eq type 'internal)
+       (expand-file-name (elmo-safe-filename (concat (symbol-name (nth 1 spec))
+						     (nth 2 spec)))
+			 (expand-file-name "internal"
+					   elmo-msgdb-dir)))
+      ((eq type 'cache)
+       (expand-file-name (elmo-safe-filename (nth 1 spec))
+			 (expand-file-name "internal/cache"
+					   elmo-msgdb-dir)))
+      (t ; local dir or undefined type
+       ;; absolute path
+       (setq fld (nth 1 spec))
+       (if (file-name-absolute-p fld)
+	   (setq fld (elmo-safe-filename fld)))
+       (expand-file-name fld
+			 (expand-file-name (symbol-name type)
+					   elmo-msgdb-dir)))))))
+
+(defsubst elmo-msgdb-append-element (list element)
+  (if list
+      ;(append list (list element))
+      (nconc list (list element))
+    ;; list is nil
+    (list element)))
+
+(defsubst elmo-msgdb-get-overview (msgdb)
+  (car msgdb))
+(defsubst elmo-msgdb-get-number-alist (msgdb)
+  (cadr msgdb))
+(defsubst elmo-msgdb-get-mark-alist (msgdb)
+  (caddr msgdb))
+(defsubst elmo-msgdb-get-location (msgdb)
+  (cadddr msgdb))
+
+;;
+;; number <-> Message-ID handling
+;;
+(defsubst elmo-msgdb-number-add (alist number id)
+  (let ((ret-val alist))
+    (setq ret-val 
+	  (elmo-msgdb-append-element ret-val (cons number id)))
+    ret-val))
+
+;;;
+;; parsistent mark handling
+;; (for global!)
+
+(defvar elmo-msgdb-global-mark-alist nil)
+
+(defun elmo-msgdb-global-mark-delete (msgid)
+  (let* ((path (expand-file-name
+		elmo-msgdb-global-mark-filename
+		elmo-msgdb-dir))
+	 (malist (or elmo-msgdb-global-mark-alist 
+		     (setq elmo-msgdb-global-mark-alist 
+			   (elmo-object-load path))))
+	 match)
+    (when (setq match (assoc msgid malist))
+      (setq elmo-msgdb-global-mark-alist
+	    (delete match elmo-msgdb-global-mark-alist))
+      (elmo-object-save path elmo-msgdb-global-mark-alist))))
+
+(defun elmo-msgdb-global-mark-set (msgid mark)
+  (let* ((path (expand-file-name
+		elmo-msgdb-global-mark-filename
+		elmo-msgdb-dir))
+	 (malist (or elmo-msgdb-global-mark-alist 
+		     (setq elmo-msgdb-global-mark-alist 
+			   (elmo-object-load path))))
+	 match)
+    (if (setq match (assoc msgid malist))
+	(setcdr match mark)
+      (setq elmo-msgdb-global-mark-alist
+	    (nconc elmo-msgdb-global-mark-alist
+		   (list (cons msgid mark)))))
+    (elmo-object-save path elmo-msgdb-global-mark-alist)))
+
+(defun elmo-msgdb-global-mark-get (msgid)
+  (cdr (assoc msgid (or elmo-msgdb-global-mark-alist 
+			(setq elmo-msgdb-global-mark-alist 
+			      (elmo-object-load 
+			       (expand-file-name
+				elmo-msgdb-global-mark-filename
+				elmo-msgdb-dir)))))))
+
+;;
+;; number <-> location handling
+;;
+(defsubst elmo-msgdb-location-load (dir)
+  (elmo-object-load
+   (expand-file-name
+    elmo-msgdb-location-filename
+    dir)))
+			  
+(defsubst elmo-msgdb-location-add (alist number location)
+  (let ((ret-val alist))
+    (setq ret-val 
+	  (elmo-msgdb-append-element ret-val (cons number location)))
+    ret-val))
+
+(defsubst elmo-msgdb-location-save (dir alist)
+  (elmo-object-save 
+   (expand-file-name
+    elmo-msgdb-location-filename
+    dir) alist))
+
+(defun elmo-list-folder-by-location (spec locations &optional msgdb)
+  (let* ((path (elmo-msgdb-expand-path nil spec))
+	 (location-alist (if msgdb
+			     (elmo-msgdb-get-location msgdb)
+			   (elmo-msgdb-location-load path)))
+	 (locations-in-db (mapcar 'cdr location-alist))
+	 result new-locs new-alist deleted-locs i
+	 modified)
+    (setq new-locs
+	  (elmo-delete-if (function
+			   (lambda (x) (member x locations-in-db)))
+			  locations))
+    (setq deleted-locs
+	  (elmo-delete-if (function
+			   (lambda (x) (member x locations)))
+			  locations-in-db))
+    (setq modified new-locs)
+    (setq i (or (elmo-max-of-list (mapcar 'car location-alist)) 0))
+    (mapcar 
+     (function 
+      (lambda (x)
+	(setq location-alist
+	      (delq (rassoc x location-alist) location-alist))))
+     deleted-locs)
+    (while new-locs
+      (setq i (1+ i))
+      (setq new-alist (cons (cons i (car new-locs)) new-alist))
+      (setq new-locs (cdr new-locs)))
+    (setq result (nconc location-alist new-alist))
+    (setq result (sort result (lambda (x y) (< (car x)(car y)))))
+    (if modified (elmo-msgdb-location-save path result))
+    (mapcar 'car result)))
+
+;;;
+;; persistent mark handling
+;; (for each folder)
+(defun elmo-msgdb-mark-set (alist id mark)
+  (let ((ret-val alist)
+	entity)
+    (setq entity (assq id alist))
+    (if entity
+	(if (eq mark nil)
+	    ;; delete this entity
+	    (setq ret-val (delq entity alist))
+	  ;; set mark
+	  (setcar (cdr entity) mark))
+      (if mark 
+	  (setq ret-val (elmo-msgdb-append-element ret-val
+						   (list id mark)))))
+    ret-val))
+
+(defun elmo-msgdb-mark-append (alist id mark)
+  "Append mark"
+  (setq alist (elmo-msgdb-append-element alist
+					 (list id mark))))
+
+(defun elmo-msgdb-mark-alist-to-seen-list (number-alist mark-alist seen-marks)
+  "Make seen-list from mark-alist"
+  (let ((seen-mark-list (string-to-char-list seen-marks))
+	ret-val ent)
+    (while number-alist
+      (if (setq ent (assq (car (car number-alist)) mark-alist))
+	  (if (and (cadr ent)
+		   (memq (string-to-char (cadr ent)) seen-mark-list))
+	      (setq ret-val (cons (cdr (car number-alist)) ret-val)))
+	(setq ret-val (cons (cdr (car number-alist)) ret-val)))
+      (setq number-alist (cdr number-alist)))
+    ret-val))
+
+;;
+;; overview handling
+;;
+
+(defsubst elmo-msgdb-get-field-value (field-name beg end buffer)
+  (save-excursion
+    (save-restriction
+      (set-buffer buffer)
+      (narrow-to-region beg end)
+      (elmo-field-body field-name))))
+
+(defun elmo-multiple-field-body (name &optional boundary)
+  (save-excursion
+    (save-restriction
+      (std11-narrow-to-header boundary)
+      (goto-char (point-min))
+      (let ((case-fold-search t)
+	    (field-body nil))
+	(while (re-search-forward (concat "^" name ":[ \t]*") nil t)
+	  (setq field-body
+		(nconc field-body
+		       (list (buffer-substring-no-properties 
+			      (match-end 0) (std11-field-end))))))
+	field-body))))
+
+(defun elmo-multiple-fields-body-list (field-names &optional boundary)
+  "Return list of each field-bodies of FIELD-NAMES of the message header
+in current buffer. If BOUNDARY is not nil, it is used as message
+header separator."
+  (save-excursion
+    (save-restriction
+      (std11-narrow-to-header boundary)
+      (let* ((case-fold-search t)
+	     (s-rest field-names)
+	     field-name field-body)
+	(while (setq field-name (car s-rest))
+	  (goto-char (point-min))
+	  (while (re-search-forward (concat "^" field-name ":[ \t]*") nil t)
+	    (setq field-body
+		  (nconc field-body
+			 (list (buffer-substring-no-properties
+				(match-end 0) (std11-field-end))))))
+	  (setq s-rest (cdr s-rest)))
+	field-body))))
+
+(defsubst elmo-msgdb-remove-field-string (string)
+  (if (string-match (concat std11-field-head-regexp "[ \t]*") string)
+      (substring string (match-end 0))
+    string))
+
+(defsubst elmo-msgdb-get-last-message-id (string)
+  (if string
+      (save-match-data
+	(let (beg)
+	  (elmo-set-work-buf
+	   (insert string)
+	   (goto-char (point-max))
+	   (when (search-backward "<" nil t)
+	     (setq beg (point))
+	     (if (search-forward ">" nil t)
+		 (elmo-replace-in-string
+		  (buffer-substring beg (point)) "\n[ \t]*" ""))))))))
+
+(defun elmo-msgdb-number-load (dir)
+  (elmo-object-load 
+   (expand-file-name elmo-msgdb-number-filename dir)))
+
+(defun elmo-msgdb-overview-load (dir)
+  (elmo-object-load 
+   (expand-file-name elmo-msgdb-overview-filename dir)))
+
+(defun elmo-msgdb-mark-load (dir)
+  (elmo-object-load 
+   (expand-file-name elmo-msgdb-mark-filename dir)))
+
+(defsubst elmo-msgdb-seen-load (dir)
+  (elmo-object-load (expand-file-name
+		     elmo-msgdb-seen-filename
+		     dir)))
+
+(defun elmo-msgdb-number-save (dir obj)
+  (elmo-object-save 
+   (expand-file-name elmo-msgdb-number-filename dir)
+   obj))
+
+(defun elmo-msgdb-mark-save (dir obj)
+  (elmo-object-save 
+   (expand-file-name elmo-msgdb-mark-filename dir)
+   obj))
+
+(defsubst elmo-msgdb-seen-save (dir obj)
+  (elmo-object-save 
+   (expand-file-name elmo-msgdb-seen-filename dir)
+   obj))
+
+(defsubst elmo-msgdb-overview-save (dir overview)
+  (elmo-object-save 
+   (expand-file-name elmo-msgdb-overview-filename dir)
+   overview))
+
+(defun elmo-msgdb-delete-msgs (folder msgs msgdb &optional reserve-cache)
+  "Delete MSGS from FOLDER in MSGDB. 
+content of MSGDB is changed."
+  (save-excursion
+    (let* ((msg-list msgs)
+	   (dir (elmo-msgdb-expand-path folder))
+	   (overview (or (car msgdb)
+			 (elmo-msgdb-overview-load dir)))
+	   (number-alist (or (cadr msgdb)
+			     (elmo-msgdb-number-load dir)))
+	   (mark-alist (or (caddr msgdb)
+			   (elmo-msgdb-mark-load dir)))
+	   message-id)
+      ;; remove from current database.
+      (while msg-list
+	(setq message-id (cdr (assq (car msg-list) number-alist)))
+	(if (and (not reserve-cache) message-id) 
+	    (elmo-cache-delete message-id
+			       folder (car msg-list)))
+	;; This is no good!!!!
+	;(setq overview (delete (assoc message-id overview) overview))
+	(setq overview 
+	      (delq
+	       (elmo-msgdb-overview-get-entity-by-number overview 
+							 (car msg-list))
+	       overview))
+	(setq number-alist
+	      (delq (assq (car msg-list) number-alist) number-alist))
+	(setq mark-alist (delq (assq (car msg-list) mark-alist) mark-alist))
+	(setq msg-list (cdr msg-list)))
+      (setcar msgdb overview)
+      (setcar (cdr msgdb) number-alist)
+      (setcar (cddr msgdb) mark-alist))
+    t)) ;return value
+
+(defsubst elmo-msgdb-set-overview (msgdb overview)
+  (setcar msgdb overview))
+
+(defsubst elmo-msgdb-set-number-alist (msgdb number-alist)
+  (setcar (cdr msgdb) number-alist))
+
+(defsubst elmo-msgdb-set-mark-alist (msgdb mark-alist)
+  (setcar (cddr msgdb) mark-alist))
+
+(defsubst elmo-msgdb-overview-entity-get-references (entity)
+  (and entity (aref (cdr entity) 1)))
+
+;; entity -> parent-entity
+(defsubst elmo-msgdb-overview-get-parent-entity (entity database)
+  (setq entity (elmo-msgdb-overview-entity-get-references entity))
+  ;; entity is parent-id.
+  (and entity (assoc entity database)))
+  
+(defsubst elmo-msgdb-overview-entity-get-number (entity)
+  (and entity (aref (cdr entity) 0)))
+
+(defsubst elmo-msgdb-overview-entity-get-from-no-decode (entity)
+  (and entity (aref (cdr entity) 2)))
+
+(defsubst elmo-msgdb-overview-entity-get-from (entity)
+  (and entity
+       (aref (cdr entity) 2)
+       (decode-mime-charset-string (aref (cdr entity) 2) 
+				   elmo-mime-charset)))
+
+(defsubst elmo-msgdb-overview-entity-set-number (entity number)
+  (and entity (aset (cdr entity) 0 number))
+  entity)
+  ;(setcar (cadr entity) number) entity)
+
+(defsubst elmo-msgdb-overview-entity-set-from (entity from)
+  (and entity (aset (cdr entity) 2 from))
+  entity)
+
+(defsubst elmo-msgdb-overview-entity-get-subject (entity)
+  (and entity
+       (aref (cdr entity) 3)
+       (decode-mime-charset-string (aref (cdr entity) 3)
+				   elmo-mime-charset)))
+
+(defsubst elmo-msgdb-overview-entity-get-subject-no-decode (entity)
+  (and entity (aref (cdr entity) 3)))
+
+(defsubst elmo-msgdb-overview-entity-set-subject (entity subject)
+  (and entity (aset (cdr entity) 3 subject))
+  entity)
+
+(defsubst elmo-msgdb-overview-entity-get-date (entity)
+  (and entity (aref (cdr entity) 4)))
+
+(defsubst elmo-msgdb-overview-entity-get-to (entity)
+  (and entity (aref (cdr entity) 5)))
+
+(defsubst elmo-msgdb-overview-entity-get-cc (entity)
+  (and entity (aref (cdr entity) 6)))
+
+(defsubst elmo-msgdb-overview-entity-get-size (entity)
+  (and entity (aref (cdr entity) 7)))
+
+(defsubst elmo-msgdb-overview-entity-get-id (entity)
+  (and entity (car entity)))
+
+(defsubst elmo-msgdb-overview-entity-get-extra-field (entity field-name)
+  (let ((extra (and entity (aref (cdr entity) 8))))
+    (and extra
+	 (cdr (assoc field-name extra)))))
+
+(defun elmo-msgdb-overview-get-entity-by-number (database number)
+  (let ((db database)
+	entity)
+    (catch 'loop
+      (while db
+	(if (eq (elmo-msgdb-overview-entity-get-number (car db)) number)
+	    (progn
+	      (setq entity (car db))
+	      (throw 'loop nil))
+	  (setq db (cdr db)))))
+    entity))
+
+;;
+;; deleted message handling
+;;
+(defun elmo-msgdb-killed-list-load (dir)
+  (elmo-object-load
+   (expand-file-name elmo-msgdb-killed-filename dir)
+   nil t))
+
+(defun elmo-msgdb-killed-list-save (dir killed-list)
+  (elmo-object-save
+   (expand-file-name elmo-msgdb-killed-filename dir)
+   killed-list))
+
+(defun elmo-msgdb-killed-message-p (killed-list msg)
+  (and killed-list
+       (not (listp
+	     (catch 'found
+	       (mapcar 
+		(function 
+		 (lambda (entity)
+		   (cond 
+		    ((integerp entity)
+		     (if (eq entity msg)
+			 (throw 'found t)))
+		    ((consp entity)
+		     (if (and (<= (car entity) msg)
+			      (<= msg (cdr entity)))
+			 (throw 'found t)))))
+		 killed-list)))))))
+
+(defun elmo-msgdb-set-as-killed (killed-list msg)
+  "if cons cell, set car-cdr messages as killed.
+if integer, set number th message as killed."
+  (let ((dlist killed-list)
+	(ret-val killed-list)
+	entity found)
+    (cond
+     ((integerp msg)
+      (while (and dlist (not found))
+	(setq entity (car dlist))
+	(if (or (and (integerp entity) (eq entity msg))
+		(and (consp entity) 
+		     (<= (car entity) msg)
+		     (<= msg (cdr entity))))
+	    (setq found t))
+	(setq dlist (cdr dlist))
+	)
+      (if (not found)
+	  (setq ret-val (elmo-msgdb-append-element killed-list msg)))
+      )
+     ((consp msg)
+      (while (and dlist (not found))
+	(setq entity (car dlist))
+	(if (integerp entity)
+	    (cond 
+	     ((and (<= (car msg) entity)(<= entity (cdr msg)))
+	      (setcar dlist msg)
+	      (setq found t)
+	      )
+	     ((= (1- (car msg)) entity)
+	      (setcar dlist (cons entity (cdr msg)))
+	      (setq found t)
+	      )
+	     ((= (1+ (cdr msg)) entity)
+	      (setcar dlist (cons (car msg) entity))
+	      (setq found t)
+	      ))
+	  ;; entity is consp
+	  (cond  ; there are four patterns
+	   ((and (<= (car msg) (car entity))
+		 (<= (cdr entity) (cdr msg)))
+	    (setcar dlist msg)
+	    (setq found t))
+	   ((and (< (car entity)(car msg))
+		 (< (cdr msg) (cdr entity)))
+	    (setq found t))
+	   ((and (<= (car msg) (car entity))
+		 (<= (cdr msg) (cdr entity)))
+	    (setcar dlist (cons (car msg) (cdr entity)))
+	    (setq found t))
+	   ((and (<= (car entity) (car msg))
+		 (<= (cdr entity) (cdr msg)))
+	    (setcar dlist (cons (car entity) (cdr msg)))
+	    (setq found t))))
+	(setq dlist (cdr dlist)))
+      (if (not found)
+	  (setq ret-val (elmo-msgdb-append-element killed-list msg)))))
+    ret-val))
+
+(defun elmo-msgdb-finfo-load ()
+  (elmo-object-load (expand-file-name 
+		     elmo-msgdb-finfo-filename
+		     elmo-msgdb-dir)
+		    elmo-mime-charset t))
+
+(defun elmo-msgdb-finfo-save (finfo)
+  (elmo-object-save (expand-file-name
+		     elmo-msgdb-finfo-filename
+		     elmo-msgdb-dir)
+		    finfo elmo-mime-charset))
+
+(defun elmo-msgdb-flist-load (folder)
+  (let ((flist-file (expand-file-name
+		     elmo-msgdb-flist-filename
+		     (elmo-msgdb-expand-path folder (list 'folder folder)))))
+    (elmo-object-load flist-file nil t)))
+
+(defun elmo-msgdb-flist-save (folder flist)
+  (let ((flist-file (expand-file-name
+		     elmo-msgdb-flist-filename
+		     (elmo-msgdb-expand-path folder (list 'folder folder)))))
+    (elmo-object-save flist-file flist)))
+
+(defun elmo-crosspost-alist-load ()
+  (elmo-object-load (expand-file-name
+		     elmo-crosspost-alist-filename
+		     elmo-msgdb-dir)
+		    nil t))
+
+(defun elmo-crosspost-alist-save (alist)
+  (elmo-object-save (expand-file-name
+		     elmo-crosspost-alist-filename
+		     elmo-msgdb-dir)
+		    alist))
+
+(defsubst elmo-msgdb-create-overview-from-buffer (number &optional size time)
+  "Create overview entity from current buffer. 
+Header region is supposed to be narrowed."
+  (save-excursion
+    (let ((extras elmo-msgdb-extra-fields)
+	  message-id references from subject to cc date
+	  extra field-body)
+      (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+      (setq message-id (elmo-field-body "message-id"))
+      (setq references
+	    (or (elmo-msgdb-get-last-message-id
+		 (elmo-field-body "in-reply-to"))
+		(elmo-msgdb-get-last-message-id
+		 (elmo-field-body "references"))))
+      (setq from (elmo-mime-string (elmo-delete-char
+				    ?\"
+				    (or 
+				     (elmo-field-body "from")
+				     elmo-no-from))))
+      (setq subject (elmo-mime-string (or (elmo-field-body "subject")
+					  elmo-no-subject)))
+      (setq date (or (elmo-field-body "date") time))
+      (setq to   (mapconcat 'identity (elmo-multiple-field-body "to") ","))
+      (setq cc   (mapconcat 'identity (elmo-multiple-field-body "cc") ","))
+      (or size
+	  (if (setq size (elmo-field-body "content-length"))
+	      (setq size (string-to-int size))
+	    (setq size 0)));; No mean...
+      (while extras
+	(if (setq field-body (elmo-field-body (car extras)))
+	    (setq extra (cons (cons (downcase (car extras))
+				    field-body) extra)))
+	(setq extras (cdr extras)))
+      (cons message-id (vector number references 
+			       from subject date to cc
+			       size extra))
+      )))
+  
+(defun elmo-msgdb-overview-sort-by-date (overview)
+  (sort overview
+	(function
+	 (lambda (x y) 
+	   (condition-case nil
+	       (string<
+		(timezone-make-date-sortable 
+		 (elmo-msgdb-overview-entity-get-date x))
+		(timezone-make-date-sortable 
+		 (elmo-msgdb-overview-entity-get-date y)))
+	     (error))))))
+
+(defun elmo-msgdb-sort-by-date (msgdb)
+  (message "Sorting...")
+  (let ((overview (elmo-msgdb-get-overview msgdb)))
+    (setq overview (elmo-msgdb-overview-sort-by-date overview))
+    (message "Sorting...done.")
+    (list overview (nth 1 msgdb)(nth 2 msgdb))))
+
+(defsubst elmo-msgdb-search-overview-entity (number number-alist overview)
+  (let ((message-id (cdr (assq number number-alist)))
+	ovs)
+    (if message-id
+	(assoc message-id overview)
+      (elmo-msgdb-overview-get-entity-by-number overview number))))
+
+(defsubst elmo-msgdb-append (msgdb msgdb-append)
+  (list 
+   (nconc (car msgdb) (car msgdb-append))
+   (nconc (cadr msgdb) (cadr msgdb-append))
+   (nconc (caddr msgdb) (caddr msgdb-append))
+   (nconc (cadddr msgdb) (cadddr msgdb-append))))
+
+(defun elmo-msgdb-delete-path (folder &optional spec)
+  (let ((path (elmo-msgdb-expand-path folder spec)))
+    (if (file-directory-p path)
+	(elmo-delete-directory path t))))
+
+(defun elmo-msgdb-rename-path (old-folder new-folder &optional old-spec new-spec)
+  (let* ((old (directory-file-name (elmo-msgdb-expand-path old-folder old-spec)))
+	 (new (directory-file-name (elmo-msgdb-expand-path new-folder new-spec)))
+	 (new-dir (directory-file-name (file-name-directory new))))
+    (if (not (file-directory-p old))
+	()
+      (if (file-exists-p new)
+	  (error "already exists directory: %s" new)
+	(if (not (file-exists-p new-dir))
+	    (elmo-make-directory new-dir))
+	(rename-file old new)))))
+
+(provide 'elmo-msgdb)
+
+;;; elmo-msgdb.el ends here
diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
new file mode 100644
index 0000000..afa7669
--- /dev/null
+++ b/elmo/elmo-multi.el
@@ -0,0 +1,365 @@
+;;; elmo-multi.el -- Multiple Folder Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:41:07 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-msgdb)
+(require 'elmo-vars)
+(require 'elmo2)
+
+(defun elmo-multi-msgdb (msgdb base)
+  (list (mapcar (function
+		 (lambda (x) 
+		   (elmo-msgdb-overview-entity-set-number
+		    x
+		    (+ base
+		       (elmo-msgdb-overview-entity-get-number x)))))
+		(nth 0 msgdb))
+	(mapcar (function
+		 (lambda (x) (cons
+			      (+ base (car x))
+			      (cdr x))))
+		(nth 1 msgdb))
+	(mapcar (function
+		 (lambda (x) (cons
+			      (+ base (car x))
+			      (cdr x)))) (nth 2 msgdb))))
+
+(defun elmo-multi-msgdb-create-as-numlist (spec numlist new-mark already-mark
+						seen-mark important-mark
+						seen-list)
+  (when numlist
+    (let* ((flds (cdr spec))
+	   overview number-alist mark-alist entity
+	   one-list-list
+	   cur-number
+	   i percent num
+	   ret-val)
+      (setq one-list-list (elmo-multi-get-intlist-list numlist))
+      (setq cur-number 0)
+      (while (< cur-number (length flds))
+	(setq ret-val 
+	      (elmo-msgdb-append 
+	       ret-val
+	       (elmo-multi-msgdb
+		(elmo-msgdb-create-as-numlist (nth cur-number flds)
+					      (nth cur-number one-list-list)
+					      new-mark already-mark
+					      seen-mark important-mark
+					      seen-list)
+		(* elmo-multi-divide-number (1+ cur-number)))))
+	(setq cur-number (1+ cur-number)))
+      (elmo-msgdb-sort-by-date ret-val))))
+
+;; returns append-msgdb
+(defun elmo-multi-delete-crossposts (already-msgdb append-msgdb)
+  (let* ((number-alist (elmo-msgdb-get-number-alist append-msgdb))
+	 (dummy (copy-sequence (append 
+				number-alist
+				(elmo-msgdb-get-number-alist already-msgdb))))
+	 (cur number-alist)
+	 to-be-deleted
+	 overview mark-alist
+	 same)
+    (while cur
+      (setq dummy (delq (car cur) dummy))
+      (if (setq same (rassoc (cdr (car cur)) dummy)) ;; same message id is remained
+	  (unless (= (/ (car (car cur)) elmo-multi-divide-number)
+		     (/ (car same) elmo-multi-divide-number))
+	    ;; base is also same...delete it!
+	    (setq to-be-deleted (append to-be-deleted (list (car cur))))))
+      (setq cur (cdr cur)))
+    (setq overview (elmo-delete-if 
+		    (function
+		     (lambda (x)
+		       (assq
+			(elmo-msgdb-overview-entity-get-number x)
+			to-be-deleted)))
+		    (elmo-msgdb-get-overview append-msgdb)))
+    (setq mark-alist (elmo-delete-if 
+		      (function
+		       (lambda (x)
+			 (assq
+			  (car x) to-be-deleted)))
+		      (elmo-msgdb-get-mark-alist append-msgdb)))
+    ;; keep number-alist untouched for folder diff!!
+    (cons (and to-be-deleted (length to-be-deleted))
+	  (list overview number-alist mark-alist))))
+
+(defun elmo-multi-msgdb-create (spec numlist new-mark already-mark
+				     seen-mark important-mark seen-list)
+  (when numlist
+    (let* ((flds (cdr spec))
+	   overview number-alist mark-alist entity
+	   one-list-list
+	   cur-number
+	   i percent num
+	   ret-val)
+      (setq one-list-list (elmo-multi-get-intlist-list numlist))
+      (setq cur-number 0)
+      (while (< cur-number (length flds))
+	(setq ret-val 
+	      (elmo-msgdb-append 
+	       ret-val
+	       (elmo-multi-msgdb
+		(elmo-msgdb-create (nth cur-number flds)
+				   (nth cur-number one-list-list)
+				   new-mark already-mark
+				   seen-mark important-mark
+				   seen-list)
+		(* elmo-multi-divide-number (1+ cur-number)))))
+	(setq cur-number (1+ cur-number)))
+      (elmo-msgdb-sort-by-date ret-val))))
+
+(defun elmo-multi-list-folders (spec &optional hierarchy)
+  ;; not implemented.
+  nil)
+
+(defun elmo-multi-append-msg (spec string)
+  (error "Cannot append messages to multi folder"))
+
+(defun elmo-multi-read-msg (spec number outbuf)
+  (let* ((flds (cdr spec))
+	 (folder (nth (- (/ number elmo-multi-divide-number) 1) flds))
+	 (number (% number elmo-multi-divide-number)))
+    (elmo-call-func folder "read-msg" number outbuf)))
+
+(defun elmo-multi-delete-msgs (spec msgs)
+  (let ((flds (cdr spec))
+	one-list-list
+	(cur-number 0))
+    (setq one-list-list (elmo-multi-get-intlist-list msgs))
+    (while (< cur-number (length flds))
+      (elmo-delete-msgs (nth cur-number flds) 
+			(nth cur-number one-list-list))
+      (setq cur-number (+ 1 cur-number)))
+    t))
+
+(defun elmo-multi-mark-alist-list (mark-alist)
+  (let ((cur-number 0)
+	one-alist result)
+    (while mark-alist
+      (setq cur-number (+ cur-number 1))
+      (setq one-alist nil)
+      (while (and mark-alist
+		  (eq 0
+		      (/ (- (car (car mark-alist))
+			    (* elmo-multi-divide-number cur-number))
+			 elmo-multi-divide-number)))
+	(setq one-alist (nconc
+			 one-alist 
+			 (list 
+			  (list (% (car (car mark-alist))
+				   (* elmo-multi-divide-number cur-number))
+				(cadr (car mark-alist))))))
+	(setq mark-alist (cdr mark-alist)))
+      (setq result (nconc result (list one-alist))))
+    result))
+
+(defun elmo-multi-list-folder-unread (spec mark-alist unread-marks)
+  (let* ((flds (cdr spec))
+	 (cur-number 0)
+	 mark-alist-list
+	 ret-val)
+    (setq mark-alist-list (elmo-multi-mark-alist-list mark-alist))
+    (while flds
+      (setq cur-number (+ cur-number 1))
+      (setq ret-val (append 
+		     ret-val
+		     (mapcar 
+		      (function
+		       (lambda (x)
+			 (+ 
+			  (* elmo-multi-divide-number cur-number) x)))
+		      (elmo-list-folder-unread (car flds)
+					       (car mark-alist-list) 
+					       unread-marks))))
+      (setq mark-alist-list (cdr mark-alist-list))
+      (setq flds (cdr flds)))
+    ret-val))
+
+(defun elmo-multi-list-folder-important (spec overview)
+  (let* ((flds (cdr spec))
+	 (cur-number 0)
+	 ret-val)
+    (while flds
+      (setq cur-number (+ cur-number 1))
+      (setq ret-val (append 
+		     ret-val
+		     (mapcar 
+		      (function
+		       (lambda (x)
+			 (+ 
+			  (* elmo-multi-divide-number cur-number) x)))
+		      (elmo-list-folder-important (car flds) overview))))
+      (setq flds (cdr flds)))
+    ret-val))
+
+(defun elmo-multi-list-folder (spec)
+  (let* ((flds (cdr spec))
+	 (cur-number 0)
+	 ret-val)
+    (while flds
+      (setq cur-number (+ cur-number 1))
+      (setq ret-val (append 
+		     ret-val
+		     (mapcar 
+		      (function
+		       (lambda (x)
+			 (+ 
+			  (* elmo-multi-divide-number cur-number) x)))
+		      (elmo-list-folder (car flds)))))
+      (setq flds (cdr flds)))
+    ret-val))
+
+(defun elmo-multi-folder-exists-p (spec)
+  (let* ((flds (cdr spec)))
+    (catch 'exists
+      (while flds
+	(unless (elmo-folder-exists-p (car flds))
+	  (throw 'exists nil))
+	(setq flds (cdr flds)))
+      t)))
+
+(defun elmo-multi-folder-creatable-p (spec)
+  (let* ((flds (cdr spec)))
+    (catch 'creatable
+      (while flds
+	(when (and (elmo-call-func (car flds) "folder-creatable-p")
+		   (not (elmo-folder-exists-p (car flds))))
+	      ;; If folder already exists, don't to `creatable'.
+	      ;; Because this function is called, when folder doesn't exists.
+	  (throw 'creatable t))
+	(setq flds (cdr flds)))
+      nil)))
+
+(defun elmo-multi-create-folder (spec)
+  (let* ((flds (cdr spec)))
+    (catch 'create
+      (while flds
+	(unless (or (elmo-folder-exists-p (car flds))
+		    (elmo-create-folder (car flds)))
+	  (throw 'create nil))
+	(setq flds (cdr flds)))
+      t)))
+
+(defun elmo-multi-search (spec condition &optional numlist)
+  (let* ((flds (cdr spec))
+	 (cur-number 0)
+	 numlist-list cur-numlist ; for filtered search.
+	 ret-val)
+    (if numlist
+	(setq numlist-list
+	      (elmo-multi-get-intlist-list numlist t)))
+    (while flds
+      (setq cur-number (+ cur-number 1))
+      (when numlist
+	(setq cur-numlist (car numlist-list))
+	(if (null cur-numlist)
+	    ;; t means filter all.
+	    (setq cur-numlist t)))
+      (setq ret-val (append 
+		     ret-val
+		     (elmo-list-filter 
+		      cur-numlist
+		      (mapcar 
+		       (function
+			(lambda (x)
+			  (+ 
+			   (* elmo-multi-divide-number cur-number) x)))
+		       (elmo-call-func
+			(car flds) "search" condition)))))
+      (when numlist
+	(setq numlist-list (cdr numlist-list)))
+      (setq flds (cdr flds)))
+    ret-val))
+
+(defun elmo-multi-use-cache-p (spec number)
+  (elmo-call-func (nth (- (/ number elmo-multi-divide-number) 1) 
+		       (cdr spec))
+		  "use-cache-p" 
+		  (% number elmo-multi-divide-number)))
+
+(defun elmo-multi-local-file-p (spec number)
+  (elmo-call-func (nth (- (/ number elmo-multi-divide-number) 1) 
+		       (cdr spec))
+		  "local-file-p" 
+		  (% number elmo-multi-divide-number)))
+
+(defun elmo-multi-commit (spec)
+  (mapcar 'elmo-commit (cdr spec)))
+
+(defun elmo-multi-plugged-p (spec)
+  (let* ((flds (cdr spec)))
+    (catch 'plugged
+      (while flds
+	(unless (elmo-folder-plugged-p (car flds))
+	  (throw 'plugged nil))
+	(setq flds (cdr flds)))
+      t)))
+
+(defun elmo-multi-set-plugged (spec plugged add)
+  (let* ((flds (cdr spec)))
+    (while flds
+      (elmo-folder-set-plugged (car flds) plugged add)
+      (setq flds (cdr flds)))))
+
+(defun elmo-multi-get-msg-filename (spec number &optional loc-alist)
+  (elmo-call-func (nth (- (/ number elmo-multi-divide-number) 1)
+		       (cdr spec))
+		  "get-msg-filename"
+		  (% number elmo-multi-divide-number)
+		  loc-alist))
+
+(defun elmo-multi-sync-number-alist (spec number-alist)
+  (let ((folder-list (cdr spec))
+	(number-alist-list
+	 (elmo-multi-get-number-alist-list number-alist))
+	(multi-base 0)
+	append-alist result-alist)
+    (while folder-list
+      (incf multi-base)
+      (setq append-alist
+	    (elmo-call-func (nth (- multi-base 1) (cdr spec)) ;; folder name
+			    "sync-number-alist" 
+			    (nth (- multi-base 1) number-alist-list)))
+      (mapcar 
+       (function
+	(lambda (x)
+	  (setcar x 
+		  (+ (* elmo-multi-divide-number multi-base) (car x)))))
+       append-alist)
+      (setq result-alist (nconc result-alist append-alist))
+      (setq folder-list (cdr folder-list)))
+    result-alist))
+
+(provide 'elmo-multi)
+
+;;; elmo-multi.el ends here
diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
new file mode 100644
index 0000000..ee7dda8
--- /dev/null
+++ b/elmo/elmo-nntp.el
@@ -0,0 +1,1349 @@
+;;; elmo-nntp.el -- NNTP Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:41:50 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-msgdb)
+(eval-when-compile
+  (condition-case nil
+      (progn
+	(require 'starttls))
+    (error))
+  (require 'elmo-cache)
+  (require 'elmo-util)
+  (defun-maybe starttls-negotiate (a)))
+
+;;
+;; internal variables
+;;
+
+(defvar elmo-nntp-connection-cache nil
+  "Cache of NNTP connection.")
+;; buffer local variable
+
+(defvar elmo-nntp-list-folders-use-cache 600
+  "*Time to cache of list folders, as the number of seconds.
+Don't cache if nil.")
+
+(defvar elmo-nntp-list-folders-cache nil)
+(defvar elmo-nntp-groups-hashtb nil)
+(defvar elmo-nntp-groups-async nil)
+(defvar elmo-nntp-header-fetch-chop-length 200)
+
+(defvar elmo-nntp-read-point 0)
+
+(defvar elmo-nntp-send-mode-reader t)
+
+(defvar elmo-nntp-opened-hook nil)
+
+(defvar elmo-nntp-get-folders-securely nil)
+
+(defvar elmo-nntp-default-use-xover t)
+
+(defvar elmo-nntp-default-use-listgroup t)
+
+(defvar elmo-nntp-default-use-list-active t)
+
+(defvar elmo-nntp-server-command-alist nil)
+
+
+(defconst elmo-nntp-server-command-index '((xover . 0)
+					   (listgroup . 1)
+					   (list-active . 2)))
+
+(put 'elmo-nntp-setting 'lisp-indent-function 1)
+
+(defmacro elmo-nntp-setting (spec &rest body)
+  (` (let* ((ssl (elmo-nntp-spec-ssl (, spec)))
+	    (port (elmo-nntp-spec-port (, spec)))
+	    (user (elmo-nntp-spec-username (, spec)))
+	    (server (elmo-nntp-spec-hostname (, spec)))
+	    (folder (elmo-nntp-spec-group (, spec)))
+	    (connection (elmo-nntp-get-connection server user port ssl))
+	    (buffer  (car connection))
+	    (process (cadr connection)))
+       (,@ body))))
+
+(defmacro elmo-nntp-get-server-command (server port)
+  (` (assoc (cons (, server) (, port)) elmo-nntp-server-command-alist)))
+
+(defmacro elmo-nntp-set-server-command (server port com value)
+  (` (let (entry)
+       (unless (setq entry (cdr (elmo-nntp-get-server-command
+				 (, server) (, port))))
+	 (setq elmo-nntp-server-command-alist
+	       (nconc elmo-nntp-server-command-alist
+		      (list (cons (cons (, server) (, port))
+				  (setq entry
+					(vector
+					 elmo-nntp-default-use-xover
+					 elmo-nntp-default-use-listgroup
+					 elmo-nntp-default-use-list-active))
+				  )))))
+       (aset entry
+	     (cdr (assq (, com) elmo-nntp-server-command-index))
+	     (, value)))))
+
+(defmacro elmo-nntp-xover-p (server port)
+  (` (let ((entry (elmo-nntp-get-server-command (, server) (, port))))
+       (if entry
+	   (aref (cdr entry)
+		 (cdr (assq 'xover elmo-nntp-server-command-index)))
+	 elmo-nntp-default-use-xover))))
+
+(defmacro elmo-nntp-set-xover (server port value)
+  (` (elmo-nntp-set-server-command (, server) (, port) 'xover (, value))))
+
+(defmacro elmo-nntp-listgroup-p (server port)
+  (` (let ((entry (elmo-nntp-get-server-command (, server) (, port))))
+       (if entry
+	   (aref (cdr entry)
+		 (cdr (assq 'listgroup elmo-nntp-server-command-index)))
+	 elmo-nntp-default-use-listgroup))))
+
+(defmacro elmo-nntp-set-listgroup (server port value)
+  (` (elmo-nntp-set-server-command (, server) (, port) 'listgroup (, value))))
+
+(defmacro elmo-nntp-list-active-p (server port)
+  (` (let ((entry (elmo-nntp-get-server-command (, server) (, port))))
+       (if entry
+	   (aref (cdr entry)
+		 (cdr (assq 'list-active elmo-nntp-server-command-index)))
+	 elmo-nntp-default-use-list-active))))
+
+(defmacro elmo-nntp-set-list-active (server port value)
+  (` (elmo-nntp-set-server-command (, server) (, port) 'list-active (, value))))
+
+(defsubst elmo-nntp-max-number-precedes-list-active-p ()
+  elmo-nntp-max-number-precedes-list-active)
+
+(defsubst elmo-nntp-folder-postfix (user server port ssl)
+  (concat
+   (and user (concat ":" user))
+   (if (and server
+	    (null (string= server elmo-default-nntp-server)))
+       (concat "@" server))
+   (if (and port
+	    (null (eq port elmo-default-nntp-port)))
+       (concat ":" (if (numberp port)
+		       (int-to-string port) port)))
+   (unless (eq ssl elmo-default-nntp-ssl)
+     (if (eq ssl 'starttls)
+	 "!!"
+       (if ssl "!")))))
+
+(defun elmo-nntp-flush-connection ()
+  (interactive)
+  (let ((cache elmo-nntp-connection-cache)
+	buffer process)
+    (while cache
+      (setq buffer (car (cdr (car cache))))
+      (if buffer (kill-buffer buffer))
+      (setq process (car (cdr (cdr (car cache)))))
+      (if process (delete-process process))
+      (setq cache (cdr cache)))
+    (setq elmo-nntp-connection-cache nil)))
+
+(defun elmo-nntp-get-connection (server user port ssl)
+  (let* ((user-at-host (format "%s@%s" user server))
+	 (user-at-host-on-port (concat 
+				user-at-host ":" (int-to-string port)
+				(if (eq ssl 'starttls) "!!" (if ssl "!"))))
+	 ret-val result buffer process errmsg proc-stat)
+    (if (not (elmo-plugged-p server port))
+	(error "Unplugged"))
+    (setq ret-val (assoc user-at-host-on-port elmo-nntp-connection-cache))
+    (if (and ret-val 
+	     (or (eq  (setq proc-stat 
+			    (process-status (cadr (cdr ret-val))))
+		      'closed)
+		 (eq proc-stat 'exit)))
+	;; connection is closed...
+	(progn
+	  (kill-buffer (car (cdr ret-val)))
+	  (setq elmo-nntp-connection-cache 
+		(delete ret-val elmo-nntp-connection-cache))
+	  (setq ret-val nil)))
+    (if ret-val
+	(cdr ret-val)
+      (setq result (elmo-nntp-open-connection server user port ssl))
+      (if (null result)
+	  (progn
+	    (if process (delete-process process))
+	    (if buffer (kill-buffer buffer))
+	    (error "Connection failed"))
+	(setq buffer (car result))
+	(setq process (cdr result))
+	(setq elmo-nntp-connection-cache
+	      (nconc elmo-nntp-connection-cache
+		     (list
+		      (cons user-at-host-on-port
+			    (setq ret-val (list buffer process nil))))))
+	ret-val))))
+
+(defun elmo-nntp-process-filter (process output)
+  (save-excursion
+    (set-buffer (process-buffer process))
+    (goto-char (point-max))
+    (insert output)))
+
+(defun elmo-nntp-read-response (buffer process &optional not-command)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  (response-string nil)
+	  (response-continue t)
+	  (return-value nil)
+	  match-end)
+      (while response-continue
+	(goto-char elmo-nntp-read-point)
+	(while (not (search-forward "\r\n" nil t))
+	  (accept-process-output process)
+	  (goto-char elmo-nntp-read-point))
+
+	(setq match-end (point))
+	(setq response-string
+	      (buffer-substring elmo-nntp-read-point (- match-end 2)))
+	(goto-char elmo-nntp-read-point)
+	(if (looking-at "[23][0-9]+ .*$")
+	    (progn (setq response-continue nil)
+		   (setq elmo-nntp-read-point match-end)
+		   (setq return-value 
+			 (if return-value 
+			     (concat return-value "\n" response-string)
+			   response-string)))
+	  (if (looking-at "[^23][0-9]+ .*$")
+	      (progn (setq response-continue nil)
+		     (setq elmo-nntp-read-point match-end)
+		     (setq return-value nil))
+	    (setq elmo-nntp-read-point match-end)
+	    (if not-command
+		(setq response-continue nil))
+	    (setq return-value 
+		  (if return-value 
+		      (concat return-value "\n" response-string)
+		    response-string)))
+	  (setq elmo-nntp-read-point match-end)))
+      return-value)))
+
+(defun elmo-nntp-read-raw-response (buffer process)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil))
+      (goto-char elmo-nntp-read-point)
+      (while (not (search-forward "\r\n" nil t))
+	(accept-process-output process)
+	(goto-char elmo-nntp-read-point))
+      (buffer-substring elmo-nntp-read-point (- (point) 2)))))
+
+(defun elmo-nntp-read-contents (buffer process)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  match-end)
+      (goto-char elmo-nntp-read-point)
+      (while (not (re-search-forward "^\\.\r\n" nil t))
+	(accept-process-output process)
+	(goto-char elmo-nntp-read-point))
+      (setq match-end (point))
+      (elmo-delete-cr
+       (buffer-substring elmo-nntp-read-point 
+			 (- match-end 3))))))
+
+(defun elmo-nntp-read-body (buffer process outbuf)
+  (with-current-buffer buffer
+    (let ((start elmo-nntp-read-point)
+	  end)
+      (goto-char start)
+      (while (not (re-search-forward "^\\.\r\n" nil t))
+	(accept-process-output process)
+	(goto-char start))
+      (setq end (point))
+      (with-current-buffer outbuf
+	(erase-buffer)
+	(insert-buffer-substring buffer start (- end 3))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-nntp-goto-folder (server folder user port ssl)
+  (let* ((connection (elmo-nntp-get-connection server user port ssl))
+	 (buffer  (car connection))
+	 (process (cadr connection))
+	 (cwf     (caddr connection)))
+    (save-excursion
+      (condition-case ()
+	  (if (not (string= cwf folder))
+	      (progn
+		(elmo-nntp-send-command buffer 
+					process 
+					(format "group %s" folder))
+		(if (elmo-nntp-read-response buffer process)
+		    (setcar (cddr connection) folder)))
+	    t)
+	(error
+	 nil)))))
+
+(defun elmo-nntp-list-folders-get-cache (folder buf)
+  (when (and elmo-nntp-list-folders-use-cache
+	     elmo-nntp-list-folders-cache
+	     (string-match (concat "^"
+				   (regexp-quote
+				    (or
+				     (nth 1 elmo-nntp-list-folders-cache)
+				     "")))
+			   (or folder "")))
+    (let* ((cache-time (car elmo-nntp-list-folders-cache)))
+      (unless (elmo-time-expire cache-time
+				elmo-nntp-list-folders-use-cache)
+	(save-excursion
+	  (set-buffer buf)
+	  (erase-buffer)
+	  (insert (nth 2 elmo-nntp-list-folders-cache))
+	  (goto-char (point-min))
+	  (and folder
+	       (keep-lines (concat "^" (regexp-quote folder) "\\.")))
+	  t
+	  )))))
+
+(defsubst elmo-nntp-catchup-msgdb (msgdb max-number)
+  (let (msgdb-max number-alist)
+    (setq number-alist (elmo-msgdb-get-number-alist msgdb))
+    (setq msgdb-max (car (nth (max (- (length number-alist) 1) 0)
+			      number-alist)))
+    (if (or (not msgdb-max)
+	    (and msgdb-max max-number
+		 (< msgdb-max max-number)))
+	(elmo-msgdb-set-number-alist
+	 msgdb
+	 (nconc number-alist (list (cons max-number nil)))))))
+
+(defun elmo-nntp-list-folders (spec &optional hierarchy)
+  (elmo-nntp-setting spec
+   (let* ((cwf     (caddr connection))	 
+	  (tmp-buffer (get-buffer-create " *ELMO NNTP list folders TMP*"))
+	  response ret-val top-ng append-serv use-list-active start)
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (if (and folder
+	       (elmo-nntp-goto-folder server folder user port ssl))
+	  (setq ret-val (list folder))) ;; add top newsgroups
+      (unless (setq response (elmo-nntp-list-folders-get-cache
+			      folder tmp-buffer))
+	(when (setq use-list-active (elmo-nntp-list-active-p server port))
+	  (elmo-nntp-send-command buffer
+				  process
+				  (concat "list"
+					  (if (and folder
+						   (null (string= folder "")))
+					      (concat " active"
+						      (format " %s.*" folder) ""))))
+	  (if (elmo-nntp-read-response buffer process t)
+	      (if (null (setq response (elmo-nntp-read-contents
+					buffer process)))
+		  (error "NNTP List folders failed")
+		(when elmo-nntp-list-folders-use-cache
+		  (setq elmo-nntp-list-folders-cache
+			(list (current-time) folder response)))
+		(erase-buffer)
+		(insert response))
+	    (elmo-nntp-set-list-active server port nil)
+	    (setq use-list-active nil)))
+	(when (null use-list-active)
+	  (elmo-nntp-send-command buffer process "list")
+	  (if (null (and (elmo-nntp-read-response buffer process t)
+			 (setq response (elmo-nntp-read-contents
+					 buffer process))))
+	      (error "NNTP List folders failed"))
+	  (when elmo-nntp-list-folders-use-cache
+	    (setq elmo-nntp-list-folders-cache
+		  (list (current-time) nil response)))
+	  (erase-buffer)
+	  (setq start nil)
+	  (while (string-match (concat "^"
+				       (regexp-quote
+					(or folder "")) ".*$")
+			       response start)
+	    (insert (match-string 0 response) "\n")
+	    (setq start (match-end 0)))))
+      (goto-char (point-min))
+      (let ((len (count-lines (point-min) (point-max)))
+	    (i 0) regexp)
+	(if hierarchy
+	    (progn
+	      (setq regexp
+		    (format "^\\(%s[^. ]+\\)\\([. ]\\).*\n"
+			    (if folder (concat folder "\\.") "")))
+	      (while (looking-at regexp)
+		(setq top-ng (elmo-match-buffer 1))
+		(if (string= (elmo-match-buffer 2) " ")
+		    (if (not (or (member top-ng ret-val)
+				 (assoc top-ng ret-val)))
+			(setq ret-val (nconc ret-val (list top-ng))))
+		  (if (member top-ng ret-val)
+		      (setq ret-val (delete top-ng ret-val)))
+		  (if (not (assoc top-ng ret-val))
+		      (setq ret-val (nconc ret-val (list (list top-ng))))))
+		(setq i (1+ i))
+		(and (zerop (% i 10))
+		     (elmo-display-progress
+		      'elmo-nntp-list-folders "Parsing active..."
+		      (/ (* i 100) len)))
+		(forward-line 1)
+		))
+	  (while (re-search-forward "\\([^ ]+\\) .*\n" nil t)
+	    (setq ret-val (nconc ret-val
+				 (list (elmo-match-buffer 1))))
+	    (setq i (1+ i))
+	    (and (zerop (% i 10))
+		 (elmo-display-progress
+		  'elmo-nntp-list-folders "Parsing active..."
+		  (/ (* i 100) len))))))
+      (kill-buffer tmp-buffer)
+      (unless (string= server elmo-default-nntp-server)
+	(setq append-serv (concat "@" server)))
+      (unless (eq port elmo-default-nntp-port)
+	(setq append-serv (concat append-serv ":" (int-to-string port))))
+      (unless (eq ssl elmo-default-nntp-ssl)
+	(if ssl
+	    (setq append-serv (concat append-serv "!")))
+	(if (eq ssl 'starttls)
+	    (setq append-serv (concat append-serv "!"))))
+      (mapcar '(lambda (fld)
+		 (if (consp fld)
+		     (list (concat "-" (car fld)
+				   (and user
+					(concat ":" user))
+				   (and append-serv
+					(concat append-serv))))
+		   (concat "-" fld
+			   (and user
+				(concat ":" user))
+			   (and append-serv 
+				(concat append-serv)))))
+	      ret-val)))))
+
+(defun elmo-nntp-make-msglist (beg-str end-str)
+  (elmo-set-work-buf
+   (let ((beg-num (string-to-int beg-str))
+	 (end-num (string-to-int end-str))
+	 i)
+     (setq i beg-num)
+     (insert "(")
+     (while (<= i end-num)
+       (insert (format "%s " i))
+       (setq i (1+ i)))
+     (insert ")")
+     (goto-char (point-min))
+     (read (current-buffer)))))
+
+(defun elmo-nntp-list-folder (spec)
+  (elmo-nntp-setting spec
+   (let* ((server (format "%s" server)) ;; delete text property
+	  response retval use-listgroup)
+    (save-excursion
+      (when (setq use-listgroup (elmo-nntp-listgroup-p server port))
+	(elmo-nntp-send-command buffer
+				process
+				(format "listgroup %s" folder))
+	(if (not (elmo-nntp-read-response buffer process t))
+	    (progn
+	      (elmo-nntp-set-listgroup server port nil)
+	      (setq use-listgroup nil))
+	  (if (null (setq response (elmo-nntp-read-contents buffer process)))
+	      (error "Fetching listgroup failed"))
+	  (setq retval (elmo-string-to-list response))))
+      (if use-listgroup
+	  retval
+	(elmo-nntp-send-command buffer 
+				process 
+				(format "group %s" folder))
+	(if (null (setq response (elmo-nntp-read-response buffer process)))
+	    (error "Select folder failed"))
+	(setcar (cddr connection) folder)
+	(if (and
+	     (string-match "211 \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) [^.].+$" 
+			   response)
+	     (> (string-to-int (elmo-match-string 1 response)) 0))
+	    (elmo-nntp-make-msglist
+	     (elmo-match-string 2 response)
+	     (elmo-match-string 3 response))
+	  nil))))))
+
+(defun elmo-nntp-max-of-folder (spec)
+  (let* ((port (elmo-nntp-spec-port spec))
+	 (user (elmo-nntp-spec-username spec))
+	 (server (elmo-nntp-spec-hostname spec))
+	 (ssl (elmo-nntp-spec-ssl spec))
+	 (folder (elmo-nntp-spec-group spec)))
+    (if elmo-nntp-groups-async
+	(let* ((fld (concat folder
+			    (elmo-nntp-folder-postfix user server port ssl)))
+	       (entry (elmo-get-hash-val fld elmo-nntp-groups-hashtb)))
+	  (if entry
+	      (cons (nth 2 entry)
+		    (car entry))
+	    (error "No such newsgroup \"%s\"" fld)))
+      (let* ((connection (elmo-nntp-get-connection server user port ssl))
+	     (buffer  (car connection))
+	     (process (cadr connection))
+	     response e-num end-num)
+	(if (not connection)
+	    (error "Connection failed"))
+	(save-excursion
+	  (elmo-nntp-send-command buffer 
+				  process 
+				  (format "group %s" folder))
+	  (setq response (elmo-nntp-read-response buffer process))
+	  (if (and response 
+		   (string-match 
+		    "211 \\([0-9]+\\) \\([0-9]+\\) \\([0-9]+\\) [^.].+$" 
+		    response))
+	      (progn
+		(setq end-num (string-to-int
+			       (elmo-match-string 3 response)))
+		(setq e-num (string-to-int
+			     (elmo-match-string 1 response)))
+		(cons end-num e-num))
+	    (if (null response)
+		(error "Selecting newsgroup \"%s\" failed" folder)
+	      nil)))))))
+
+(defconst elmo-nntp-overview-index
+  '(("number" . 0)
+    ("subject" . 1)
+    ("from" . 2)
+    ("date" . 3)
+    ("message-id" . 4)
+    ("references" . 5)
+    ("size" . 6)
+    ("lines" . 7)
+    ("xref" . 8)))
+
+(defun elmo-nntp-create-msgdb-from-overview-string (str 
+						    folder
+						    new-mark
+						    already-mark
+						    seen-mark
+						    important-mark
+						    seen-list
+						    &optional numlist)
+  (let (ov-list gmark message-id seen
+	ov-entity overview number-alist mark-alist num
+	extras extra ext field field-index)
+    (setq ov-list (elmo-nntp-parse-overview-string str))
+    (while ov-list
+      (setq ov-entity (car ov-list))
+      ;; INN bug??
+;      (if (or (> (setq num (string-to-int (aref ov-entity 0)))
+;		 99999)
+;	      (<= num 0))
+;	  (setq num 0))
+;     (setq num (int-to-string num))
+      (setq num (string-to-int (aref ov-entity 0)))
+      (when (or (null numlist)
+		(memq num numlist))
+	(setq extras elmo-msgdb-extra-fields
+	      extra nil)
+	(while extras
+	  (setq ext (downcase (car extras)))
+	  (when (setq field-index (cdr (assoc ext elmo-nntp-overview-index)))
+	    (setq field (aref ov-entity field-index))
+	    (when (eq field-index 8) ;; xref
+	      (setq field (elmo-msgdb-remove-field-string field)))
+	    (setq extra (cons (cons ext field) extra)))
+	  (setq extras (cdr extras)))
+	(setq overview
+	      (elmo-msgdb-append-element 
+	       overview
+	       (cons (aref ov-entity 4)
+		     (vector num
+			     (elmo-msgdb-get-last-message-id 
+			      (aref ov-entity 5))
+			     ;; from
+			     (elmo-mime-string (elmo-delete-char 
+						?\"
+						(or 
+						 (aref ov-entity 2) 
+						 elmo-no-from) 'uni))
+			     ;; subject
+			     (elmo-mime-string (or (aref ov-entity 1)
+						   elmo-no-subject))
+			     (aref ov-entity 3) ;date
+			     nil ; to
+			     nil ; cc
+			     (string-to-int
+			      (aref ov-entity 6)) ; size
+			     extra ; extra-field-list
+			     ))))
+	(setq number-alist
+	      (elmo-msgdb-number-add number-alist num
+				     (aref ov-entity 4)))
+	(setq message-id (aref ov-entity 4))
+	(setq seen (member message-id seen-list))
+	(if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+			    (if (elmo-cache-exists-p message-id);; XXX
+				(if seen
+				    nil
+				  already-mark)
+			      (if seen
+				  (if elmo-nntp-use-cache
+				      seen-mark)
+				new-mark))))
+	    (setq mark-alist
+		  (elmo-msgdb-mark-append mark-alist 
+					  num gmark))))
+      (setq ov-list (cdr ov-list)))
+    (list overview number-alist mark-alist)))
+
+(defun elmo-nntp-msgdb-create-as-numlist (spec numlist new-mark already-mark
+					       seen-mark important-mark
+					       seen-list)
+  "Create msgdb for SPEC for NUMLIST."
+  (elmo-nntp-msgdb-create spec numlist new-mark already-mark
+			  seen-mark important-mark seen-list
+			  t))
+
+(defun elmo-nntp-msgdb-create (spec numlist new-mark already-mark
+				    seen-mark important-mark 
+				    seen-list &optional as-num)
+  (when numlist
+    (save-excursion
+     (elmo-nntp-setting spec
+      (let* ((cwf     (caddr connection))
+	     (filter  (and as-num numlist))
+	     beg-num end-num cur length
+	     ret-val ov-str use-xover)
+	(if (and folder
+		 (not (string= cwf folder))
+		 (null (elmo-nntp-goto-folder server folder user port ssl)))
+	    (error "group %s not found" folder))
+	(when (setq use-xover (elmo-nntp-xover-p server port))
+	  (setq beg-num (car numlist)
+		cur beg-num
+		end-num (nth (1- (length numlist)) numlist)
+		length  (+ (- end-num beg-num) 1))
+	  (message "Getting overview...")
+	  (while (<= cur end-num)
+	    (elmo-nntp-send-command buffer process 
+				    (format 
+				     "xover %s-%s" 
+				     (int-to-string cur)
+				     (int-to-string 
+				      (+ cur 
+					 elmo-nntp-overview-fetch-chop-length))))
+	    (with-current-buffer buffer
+	      (if ov-str
+		  (setq ret-val 
+			(elmo-msgdb-append
+			 ret-val
+			 (elmo-nntp-create-msgdb-from-overview-string 
+			  ov-str
+			  folder
+			  new-mark
+			  already-mark
+			  seen-mark
+			  important-mark
+			  seen-list
+			  filter
+			  )))))
+	    (if (null (elmo-nntp-read-response buffer process t))
+		(progn
+		  (setq cur end-num);; exit while loop
+		  (elmo-nntp-set-xover server port nil)
+		  (setq use-xover nil))
+	      (if (null (setq ov-str (elmo-nntp-read-contents buffer process)))
+		  (error "Fetching overview failed")))
+	    (setq cur (+ elmo-nntp-overview-fetch-chop-length cur 1))
+	    (elmo-display-progress
+	     'elmo-nntp-msgdb-create "Getting overview..." 
+	     (/ (* (+ (- (min cur
+			      end-num)
+			 beg-num) 1) 100) length))))
+	(if (not use-xover)
+	    (setq ret-val (elmo-nntp-msgdb-create-by-header
+			   folder buffer process numlist
+			   new-mark already-mark seen-mark seen-list))
+	  (with-current-buffer buffer
+	    (if ov-str
+		(setq ret-val 
+		      (elmo-msgdb-append
+		       ret-val
+		       (elmo-nntp-create-msgdb-from-overview-string 
+			ov-str
+			folder
+			new-mark
+			already-mark
+			seen-mark
+			important-mark
+			seen-list
+			filter)))))
+	  (message "Getting overview...done."))
+	;; If there are canceled messages, overviews are not obtained
+	;; to max-number(inn 2.3?).
+	(when (and (elmo-nntp-max-number-precedes-list-active-p)
+		   (elmo-nntp-list-active-p server port))
+	  (elmo-nntp-send-command buffer process 
+				  (format "list active %s" folder))
+	  (if (null (elmo-nntp-read-response buffer process))
+	      (progn
+		(elmo-nntp-set-list-active server port nil)
+		(error "NNTP list command failed")))
+	  (elmo-nntp-catchup-msgdb 
+	   ret-val 
+	   (nth 1 (read (concat "(" (elmo-nntp-read-contents 
+				     buffer process) ")")))))
+	ret-val)))))
+
+(defun elmo-nntp-sync-number-alist (spec number-alist)
+  (if (elmo-nntp-max-number-precedes-list-active-p)
+      (elmo-nntp-setting spec
+	(if (elmo-nntp-list-active-p server port)
+	    (let* ((cwf (caddr connection))
+		   msgdb-max max-number)
+	      ;; If there are canceled messages, overviews are not obtained
+	      ;; to max-number(inn 2.3?).
+	      (if (and folder
+		       (not (string= cwf folder))
+		       (null (elmo-nntp-goto-folder
+			      server folder user port ssl)))
+		  (error "group %s not found" folder))
+	      (elmo-nntp-send-command buffer process
+				      (format "list active %s" folder))
+	      (if (null (elmo-nntp-read-response buffer process))
+		  (error "NNTP list command failed"))
+	      (setq max-number
+		    (nth 1 (read (concat "(" (elmo-nntp-read-contents
+					      buffer process) ")"))))
+	      (setq msgdb-max
+		    (car (nth (max (- (length number-alist) 1) 0)
+			      number-alist)))
+	      (if (or (and number-alist (not msgdb-max))
+		      (and msgdb-max max-number
+			   (< msgdb-max max-number)))
+		  (nconc number-alist
+			 (list (cons max-number nil)))
+		number-alist))
+	  number-alist))))
+
+(defun elmo-nntp-msgdb-create-by-header (folder buffer process numlist
+						new-mark already-mark 
+						seen-mark seen-list)
+  (let ((tmp-buffer (get-buffer-create " *ELMO Overview TMP*"))
+	ret-val)
+    (elmo-nntp-retrieve-headers
+     buffer tmp-buffer process numlist)
+    (setq ret-val
+	  (elmo-nntp-msgdb-create-message
+	   tmp-buffer (length numlist) folder new-mark already-mark 
+	   seen-mark seen-list))
+    (kill-buffer tmp-buffer)
+    ret-val))
+
+(defun elmo-nntp-parse-overview-string (string)
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *ELMO Overview TMP*"))
+	  ret-list ret-val beg)
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (elmo-set-buffer-multibyte nil)
+      (insert string)
+      (goto-char (point-min))
+      (setq beg (point))
+      (while (not (eobp))
+	(end-of-line)
+	(setq ret-list (save-match-data
+			 (apply 'vector (split-string 
+					 (buffer-substring beg (point)) 
+					 "\t"))))
+	(beginning-of-line)
+	(forward-line 1)
+	(setq beg (point))
+	(setq ret-val (nconc ret-val (list ret-list))))
+;      (kill-buffer tmp-buffer)
+      ret-val)))
+
+(defun elmo-nntp-get-overview (server beg end folder user port ssl)
+  (save-excursion
+    (let* ((connection (elmo-nntp-get-connection server user port ssl))
+	   (buffer  (car connection))
+	   (process (cadr connection))
+;	   (cwf     (caddr connection))	 
+	   response errmsg ov-str)  
+      (catch 'done
+	(if folder
+	    (if (null (elmo-nntp-goto-folder server folder user port ssl))
+		(progn
+		  (setq errmsg (format "group %s not found." folder))
+		  (throw 'done nil))))
+	(elmo-nntp-send-command buffer process 
+				(format "xover %s-%s" beg end))
+	(if (null (setq response (elmo-nntp-read-response
+				  buffer process t)))
+	    (progn
+	      (setq errmsg "Getting overview failed.")
+	      (throw 'done nil)))
+	(if (null (setq response (elmo-nntp-read-contents
+				  buffer process)))
+	    (progn
+	      ;(setq errmsg "Fetching header failed")
+	      (throw 'done nil)))
+	(setq ov-str response)
+	)
+      (if errmsg
+	  (progn 
+	    (message errmsg)
+	    nil)
+	ov-str))))
+
+
+(defun elmo-nntp-get-message (server user number folder outbuf port ssl)
+  "Get nntp message on FOLDER at SERVER. 
+Returns message string."
+  (save-excursion
+    (let* ((connection (elmo-nntp-get-connection server user port ssl))
+	   (buffer  (car connection))
+	   (process (cadr connection))
+	   (cwf     (caddr connection))	 
+	   response errmsg)
+      (catch 'done
+	(if (and folder
+		 (not (string= cwf folder)))
+	    (if (null (elmo-nntp-goto-folder server folder user port ssl))
+		(progn
+		  (setq errmsg (format "group %s not found." folder))
+		  (throw 'done nil))))
+	(elmo-nntp-send-command buffer process 
+				(format "article %s" number))
+	(if (null (setq response (elmo-nntp-read-response
+				  buffer process t)))
+	    (progn
+	      (setq errmsg "Fetching message failed")
+	      (set-buffer outbuf)
+	      (erase-buffer)
+	      (insert "\n\n")
+	      (throw 'done nil)))
+	(setq response (elmo-nntp-read-body buffer process outbuf))
+	(set-buffer outbuf)
+	(goto-char (point-min))
+	(while (re-search-forward "^\\." nil t)
+	  (replace-match "")
+	  (forward-line))
+	)
+      (if errmsg
+	  (progn 
+	    (message errmsg)
+	    nil))
+      response)))
+
+(defun elmo-nntp-get-newsgroup-by-msgid (msgid server user port ssl)
+  "Get nntp header string."
+  (save-excursion
+    (let* ((connection (elmo-nntp-get-connection server user port ssl))
+	   (buffer  (car connection))
+	   (process (cadr connection)))
+      (elmo-nntp-send-command buffer process 
+			      (format "head %s" msgid))
+      (if (elmo-nntp-read-response buffer process)
+	  (elmo-nntp-read-contents buffer process))
+      (set-buffer buffer)
+      (std11-field-body "Newsgroups"))))
+
+(defun elmo-nntp-open-connection (server user portnum ssl)
+  "Open NNTP connection and returns 
+the list of (process session-buffer current-working-folder).
+Return nil if connection failed."
+  (let ((process nil)
+	(host server)
+	(port (or portnum
+		  elmo-default-nntp-port))
+	(user-at-host (format "%s@%s" user server))
+	process-buffer)
+    (as-binary-process
+     (catch 'done
+       (setq process-buffer
+	     (get-buffer-create (format " *NNTP session to %s:%d" host port)))
+       (save-excursion
+	 (set-buffer process-buffer)
+	 (elmo-set-buffer-multibyte nil)
+	 (erase-buffer))
+       (setq process
+	     (elmo-open-network-stream "NNTP" process-buffer host port ssl))
+       (and (null process) (throw 'done nil))
+       (set-process-filter process 'elmo-nntp-process-filter)
+       ;; flush connections when exiting...?
+       ;; (add-hook 'kill-emacs-hook 'elmo-nntp-flush-connection)
+       (save-excursion
+	 (set-buffer process-buffer)
+	 (elmo-set-buffer-multibyte nil)
+	 (make-local-variable 'elmo-nntp-read-point)
+	 (setq elmo-nntp-read-point (point-min))
+	 (if (null (elmo-nntp-read-response process-buffer process t))
+	     (throw 'done nil))
+	 (if elmo-nntp-send-mode-reader
+	     (elmo-nntp-send-mode-reader process-buffer process))
+ 	 ;; starttls
+ 	 (if (eq ssl 'starttls)
+ 	     (if (progn
+		   (elmo-nntp-send-command process-buffer process "starttls")
+		   (elmo-nntp-read-response process-buffer process))
+ 		 (starttls-negotiate process)
+ 	       (error "STARTTLS aborted")))
+ 	 (if user
+ 	     (progn
+ 	       (elmo-nntp-send-command process-buffer process
+ 				       (format "authinfo user %s" user))
+ 	       (if (null (elmo-nntp-read-response process-buffer process))
+ 		   (error "Authinfo failed"))
+ 	       (elmo-nntp-send-command process-buffer process
+ 				       (format "authinfo pass %s"
+ 					       (elmo-get-passwd user-at-host)))
+ 	       (if (null (elmo-nntp-read-response process-buffer process))
+ 		   (progn
+ 		     (elmo-remove-passwd user-at-host)
+ 		     (error "Authinfo failed")))))
+	 (run-hooks 'elmo-nntp-opened-hook)) ; XXX
+       (cons process-buffer process)))))
+
+(defun elmo-nntp-send-mode-reader (buffer process)
+  (elmo-nntp-send-command buffer
+			  process
+			  "mode reader")
+  (if (null (elmo-nntp-read-response buffer process t))
+      (error "mode reader failed")))
+  
+(defun elmo-nntp-send-command (buffer process command &optional noerase)
+  "Send COMMAND string to server with sequence number."
+  (save-excursion
+    (set-buffer buffer)
+    (when (not noerase)
+      (erase-buffer)
+      (goto-char (point-min)))
+    (setq elmo-nntp-read-point (point))
+    (process-send-string process command)
+    (process-send-string process "\r\n")))
+
+(defun elmo-nntp-read-msg (spec msg outbuf)
+  (elmo-nntp-get-message (elmo-nntp-spec-hostname spec)
+			 (elmo-nntp-spec-username spec)
+			 msg 
+			 (elmo-nntp-spec-group spec)
+			 outbuf 
+			 (elmo-nntp-spec-port spec)
+			 (elmo-nntp-spec-ssl spec)))
+
+;(defun elmo-msgdb-nntp-overview-create-range (spec beg end mark)
+;    (elmo-nntp-overview-create-range hostname beg end mark folder)))
+
+;(defun elmo-msgdb-nntp-max-of-folder (spec)
+;    (elmo-nntp-max-of-folder hostname folder)))
+
+(defun elmo-nntp-append-msg (spec string &optional msg no-see))
+
+(defun elmo-nntp-post (hostname content-buf)
+  (let* (;(folder (nth 1 spec))
+	 (connection 
+	  (elmo-nntp-get-connection 
+	   hostname 
+	   elmo-default-nntp-user
+	   elmo-default-nntp-port elmo-default-nntp-ssl))
+	 (buffer (car connection))
+	 (process (cadr connection))
+	 response has-message-id
+	 )
+    (save-excursion
+      (set-buffer content-buf)
+      (goto-char (point-min))
+      (if (search-forward mail-header-separator nil t)
+	  (delete-region (match-beginning 0)(match-end 0)))
+      (setq has-message-id (std11-field-body "message-id"))
+      (elmo-nntp-send-command buffer process "post")
+      (if (string-match "^340" (setq response 
+				     (elmo-nntp-read-raw-response 
+				      buffer process)))
+	  (if (string-match "recommended ID \\(<[^@]+@[^>]+>\\)" response)
+	      (unless has-message-id
+		(goto-char (point-min))
+		(insert (concat "Message-ID: "
+				(elmo-match-string 1 response)
+				"\n"))))
+	(error "POST failed"))
+      (current-buffer)
+      (run-hooks 'elmo-nntp-post-pre-hook)
+      (set-buffer buffer)
+      (elmo-nntp-send-data process content-buf)
+      (elmo-nntp-send-command buffer process ".")
+      ;(elmo-nntp-read-response buffer process t)
+      (if (not (string-match 
+		"^2" (setq response (elmo-nntp-read-raw-response
+				     buffer process))))
+	  (error (concat "NNTP error: " response))))))
+
+(defun elmo-nntp-send-data-line (process data)
+  (goto-char (point-max))
+
+  ;; Escape "." at start of a line
+  (if (eq (string-to-char data) ?.)
+      (process-send-string process "."))
+  (process-send-string process data)
+  (process-send-string process "\r\n"))
+
+(defun elmo-nntp-send-data (process buffer)
+  (let
+      ((data-continue t)
+       (sending-data nil)
+       this-line
+       this-line-end)
+    (save-excursion
+      (set-buffer buffer)
+      (goto-char (point-min)))
+
+    (while data-continue
+      (save-excursion
+	(set-buffer buffer)
+	(beginning-of-line)
+	(setq this-line (point))
+	(end-of-line)
+	(setq this-line-end (point))
+	(setq sending-data nil)
+	(setq sending-data (buffer-substring this-line this-line-end))
+	(if (/= (forward-line 1) 0)
+	    (setq data-continue nil)))
+
+      (elmo-nntp-send-data-line process sending-data))))
+
+
+(defun elmo-nntp-delete-msgs (spec msgs)
+  "MSGS on FOLDER at SERVER pretended as Deleted. Returns nil if failed."
+  (let* ((dir (elmo-msgdb-expand-path nil spec))
+;	 (msgs (mapcar 'string-to-int msgs))
+	 (killed-list (elmo-msgdb-killed-list-load dir)))
+    (mapcar '(lambda (msg)
+	       (setq killed-list
+		     (elmo-msgdb-set-as-killed killed-list msg)))
+	    msgs)
+    (elmo-msgdb-killed-list-save dir killed-list)
+    t))
+
+(defun elmo-nntp-check-validity (spec validity-file)
+  t)
+(defun elmo-nntp-sync-validity (spec validity-file)
+  t)
+
+(defun elmo-nntp-folder-exists-p (spec)
+  (if (elmo-nntp-plugged-p spec)
+      (elmo-nntp-setting spec
+	(elmo-nntp-send-command buffer
+				process
+				(format "group %s" folder))
+	(elmo-nntp-read-response buffer process))
+    t))
+
+(defun elmo-nntp-folder-creatable-p (spec)
+  nil)
+
+(defun elmo-nntp-create-folder (spec)
+  nil) ; noop
+
+(defun elmo-nntp-search (spec condition &optional from-msgs)
+  (error "Search by %s for %s is not implemented yet." condition (car spec))
+  nil)
+
+(defun elmo-nntp-get-folders-info-prepare (spec connection-keys)
+  (condition-case ()
+      (elmo-nntp-setting spec
+	(let (key count)
+	  (save-excursion
+	    (set-buffer buffer)
+	    (unless (setq key (assoc (cons buffer process) connection-keys))
+	      (erase-buffer)
+	      (setq key (cons (cons buffer process)
+			      (vector 0 server user port ssl)))
+	      (setq connection-keys (nconc connection-keys (list key))))
+	    (elmo-nntp-send-command buffer 
+				    process 
+				    (format "group %s" folder)
+				    t ;; don't erase-buffer
+				    )
+	    (if elmo-nntp-get-folders-securely
+		(accept-process-output process 1))
+	    (setq count (aref (cdr key) 0))
+	    (aset (cdr key) 0 (1+ count)))))
+    (error
+     (when elmo-auto-change-plugged
+       (sit-for 1))
+     nil))
+  connection-keys)
+
+(defun elmo-nntp-get-folders-info (connection-keys)
+  (let ((connections connection-keys)
+	(cur (get-buffer-create " *ELMO NNTP Temp*")))
+    (while connections
+      (let* ((connect (caar connections))
+	     (key     (cdar connections))
+	     (buffer  (car connect))
+	     (process (cdr connect))
+	     (count   (aref key 0))
+	     (server  (aref key 1))
+	     (user    (aref key 2))
+	     (port    (aref key 3))
+	     (ssl     (aref key 4))
+	     (hashtb (or elmo-nntp-groups-hashtb
+			 (setq elmo-nntp-groups-hashtb
+			       (elmo-make-hash count)))))
+	(save-excursion
+	  (elmo-nntp-groups-read-response buffer cur process count)
+	  (set-buffer cur)
+	  (goto-char (point-min))
+	  (let ((case-replace nil)
+		(postfix (elmo-nntp-folder-postfix user server port ssl)))
+	    (if (not (string= postfix ""))
+		(save-excursion
+		  (replace-regexp "^\\(211 [0-9]+ [0-9]+ [0-9]+ [^ \n]+\\).*$"
+				  (concat "\\1" postfix)))))
+	  (let (len min max group)
+	    (while (not (eobp))
+	      (condition-case ()
+		  (when (= (following-char) ?2)
+		    (read cur)
+		    (setq len (read cur)
+			  min (read cur)
+			  max (read cur))
+		    (set (setq group (let ((obarray hashtb)) (read cur)))
+			 (list len min max)))
+		(error (and group (symbolp group) (set group nil))))
+	      (forward-line 1))))
+	(setq connections (cdr connections))))
+    (kill-buffer cur)))
+
+;; original is 'nntp-retrieve-groups [Gnus]
+(defun elmo-nntp-groups-read-response (buffer tobuffer process count)
+  (let* ((received 0)
+	 (last-point (point-min)))
+    (save-excursion
+      (set-buffer buffer)
+      (accept-process-output process 1)
+      (discard-input)
+      ;; Wait for all replies.
+      (message "Getting folders info...")
+      (while (progn
+	       (goto-char last-point)
+	       ;; Count replies.
+	       (while (re-search-forward "^[0-9]" nil t)
+		 (setq received
+		       (1+ received)))
+	       (setq last-point (point))
+	       (< received count))
+	(accept-process-output process 1)
+	(discard-input)
+	(and (zerop (% received 10))
+	     (elmo-display-progress
+	      'elmo-nntp-groups-read-response "Getting folders info..."
+	      (/ (* received 100) count)))
+	)
+      ;; Wait for the reply from the final command.
+      (goto-char (point-max))
+      (re-search-backward "^[0-9]" nil t)
+      (when (looking-at "^[23]")
+	(while (progn
+		 (goto-char (point-max))
+		 (not (re-search-backward "\r?\n" (- (point) 3) t)))
+	  (accept-process-output process 1)
+	  (discard-input)))
+      ;; Now all replies are received.  We remove CRs.
+      (goto-char (point-min))
+      (while (search-forward "\r" nil t)
+	(replace-match "" t t))
+      (copy-to-buffer tobuffer (point-min) (point-max)))))
+
+(defun elmo-nntp-make-groups-hashtb (folders &optional size)
+  (let ((hashtb (or elmo-nntp-groups-hashtb
+		    (setq elmo-nntp-groups-hashtb
+			  (elmo-make-hash (or size (length folders)))))))
+    (mapcar
+     '(lambda (fld)
+	(or (elmo-get-hash-val fld hashtb)
+	    (elmo-set-hash-val fld nil hashtb)))
+     folders)
+    hashtb))
+
+;; from nntp.el [Gnus]
+
+(defsubst elmo-nntp-next-result-arrived-p ()
+  (cond
+   ((eq (following-char) ?2)
+    (if (re-search-forward "\n\\.\r?\n" nil t)
+	t
+      nil))
+   ((looking-at "[34]")
+    (if (search-forward "\n" nil t)
+	t
+      nil))
+   (t
+    nil)))
+
+(defun elmo-nntp-retrieve-headers (buffer tobuffer process articles)
+  "Retrieve the headers of ARTICLES."
+  (save-excursion
+    (set-buffer buffer)
+    (erase-buffer)
+    (let ((number (length articles))
+	  (count 0)
+	  (received 0)
+	  (last-point (point-min))
+	  article)
+      ;; Send HEAD commands.
+      (while (setq article (pop articles))
+	(elmo-nntp-send-command
+	 buffer
+	 process
+	 (format "head %s" article)
+	 t ;; not erase-buffer
+	 )
+	(setq count (1+ count))
+	;; Every 200 requests we have to read the stream in
+	;; order to avoid deadlocks.
+	(when (or (null articles)	;All requests have been sent.
+		  (zerop (% count elmo-nntp-header-fetch-chop-length)))
+	  (accept-process-output process 1)
+	  (discard-input)
+	  (while (progn
+		   (set-buffer buffer)
+		   (goto-char last-point)
+		   ;; Count replies.
+		   (while (elmo-nntp-next-result-arrived-p)
+		     (setq last-point (point))
+		     (setq received (1+ received)))
+		   (< received count))
+	    (and (zerop (% received 20))
+		 (elmo-display-progress
+		  'elmo-nntp-retrieve-headers "Getting headers..."
+		  (/ (* received 100) number)))
+	    (accept-process-output process 1)
+	    (discard-input)
+	    )))
+      (message "Getting headers...done")
+      ;; Remove all "\r"'s.
+      (goto-char (point-min))
+      (while (search-forward "\r\n" nil t)
+	(replace-match "\n"))
+      (copy-to-buffer tobuffer (point-min) (point-max)))))
+
+;; end of from Gnus
+
+(defun elmo-nntp-msgdb-create-message (buffer len folder new-mark 
+					      already-mark seen-mark seen-list)
+  (save-excursion
+    (let (beg
+	  overview number-alist mark-alist
+	  entity i num gmark seen message-id)
+      (set-buffer buffer)
+      (elmo-set-buffer-multibyte nil)
+      (goto-char (point-min))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while (not (eobp))
+	(setq beg (save-excursion (forward-line 1) (point)))
+	(setq num
+	      (and (looking-at "^2[0-9]*[ ]+\\([0-9]+\\)")
+		   (string-to-int 
+		    (elmo-match-buffer 1))))
+	(elmo-nntp-next-result-arrived-p)
+	(when num
+	  (save-excursion
+	    (forward-line -1)
+	    (save-restriction
+	      (narrow-to-region beg (point))
+	      (setq entity
+		    (elmo-msgdb-create-overview-from-buffer num))
+	      (when entity
+		(setq overview 
+		      (elmo-msgdb-append-element
+		       overview entity))
+		(setq number-alist
+		      (elmo-msgdb-number-add number-alist
+					     (elmo-msgdb-overview-entity-get-number entity)
+					     (car entity)))
+		(setq message-id (car entity))
+		(setq seen (member message-id seen-list))
+		(if (setq gmark 
+			  (or (elmo-msgdb-global-mark-get message-id)
+			      (if (elmo-cache-exists-p message-id);; XXX
+				  (if seen
+				      nil
+				    already-mark)
+				(if seen
+				    seen-mark
+				  new-mark))))
+		    (setq mark-alist
+			  (elmo-msgdb-mark-append 
+			   mark-alist 
+			   num gmark)))
+		))))
+	(setq i (1+ i))
+	(and (zerop (% i 20))
+	     (elmo-display-progress
+	      'elmo-nntp-msgdb-create-message "Creating msgdb..."
+	      (/ (* i 100) len)))
+	)
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist))))
+
+(defun elmo-nntp-use-cache-p (spec number)
+  elmo-nntp-use-cache)
+
+(defun elmo-nntp-local-file-p (spec number)
+  nil)
+
+(defun elmo-nntp-port-label (spec)
+  (concat "nntp"
+	  (if (elmo-nntp-spec-ssl spec) "!ssl" "")))
+
+(defsubst elmo-nntp-portinfo (spec)
+  (list (elmo-nntp-spec-hostname spec) 
+	(elmo-nntp-spec-port spec)))
+
+(defun elmo-nntp-plugged-p (spec)
+  (apply 'elmo-plugged-p
+	 (append (elmo-nntp-portinfo spec)
+		 (list nil (quote (elmo-nntp-port-label spec))))))
+
+(defun elmo-nntp-set-plugged (spec plugged add)
+  (apply 'elmo-set-plugged plugged
+	 (append (elmo-nntp-portinfo spec)
+		 (list nil nil (quote (elmo-nntp-port-label spec)) add))))
+
+(defalias 'elmo-nntp-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-nntp-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-nntp-commit 'elmo-generic-commit)
+
+(provide 'elmo-nntp)
+
+;;; elmo-nntp.el ends here
diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
new file mode 100644
index 0000000..a6d1c8f
--- /dev/null
+++ b/elmo/elmo-pipe.el
@@ -0,0 +1,142 @@
+;;; elmo-pipe.el -- PIPE Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-03 14:06:56 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-msgdb)
+
+(defsubst elmo-pipe-spec-src (spec)
+  (nth 1 spec))
+
+(defsubst elmo-pipe-spec-dst (spec)
+  (nth 2 spec))
+
+(defalias 'elmo-pipe-msgdb-create 'elmo-pipe-msgdb-create-as-numlist)
+
+(defun elmo-pipe-msgdb-create-as-numlist (spec numlist new-mark already-mark
+					       seen-mark important-mark 
+					       seen-list)
+  (elmo-msgdb-create-as-numlist (elmo-pipe-spec-dst spec)
+				numlist new-mark already-mark
+				seen-mark important-mark seen-list))
+
+(defun elmo-pipe-list-folders (spec &optional hierarchy)
+  nil)
+
+(defun elmo-pipe-append-msg (spec string &optional msg no-see)
+  (elmo-append-msg (elmo-pipe-spec-dst spec) string))
+
+(defun elmo-pipe-read-msg (spec number outbuf)
+  (elmo-call-func (elmo-pipe-spec-dst spec)
+		  "read-msg" 
+		  number outbuf))
+
+(defun elmo-pipe-delete-msgs (spec msgs)
+  (elmo-delete-msgs (elmo-pipe-spec-dst spec) msgs))
+
+(defvar elmo-pipe-drained-hook nil "A hook called when the pipe is flushed.")
+
+(defun elmo-pipe-drain (src dst)
+  (let ((msgdb (elmo-msgdb-load src))
+	elmo-nntp-use-cache 
+	elmo-imap4-use-cache
+	elmo-pop3-use-cache) ; Inhibit caching while moving messages.
+    (message "Checking %s..." src)
+    (elmo-move-msgs src (elmo-list-folder src) dst msgdb)
+    (elmo-msgdb-save src msgdb)
+    (run-hooks 'elmo-pipe-drained-hook)))
+
+(defun elmo-pipe-list-folder (spec)
+  (elmo-pipe-drain (elmo-pipe-spec-src spec)
+		   (elmo-pipe-spec-dst spec))
+  (elmo-list-folder (elmo-pipe-spec-dst spec)))
+
+(defun elmo-pipe-list-folder-unread (spec mark-alist unread-marks)
+  (elmo-list-folder-unread (elmo-pipe-spec-dst spec) mark-alist unread-marks))
+  
+(defun elmo-pipe-list-folder-important (spec overview)
+  (elmo-list-folder-important (elmo-pipe-spec-dst spec) overview))
+
+(defun elmo-pipe-max-of-folder (spec)
+  (let ((src-length (length (elmo-list-folder (elmo-pipe-spec-src spec))))
+	(dst-list (elmo-list-folder (elmo-pipe-spec-dst spec))))
+    (cons (+ src-length (elmo-max-of-list dst-list))
+	  (+ src-length (length dst-list)))))
+
+(defun elmo-pipe-folder-exists-p (spec)
+  (and (elmo-folder-exists-p (elmo-pipe-spec-src spec))
+       (elmo-folder-exists-p (elmo-pipe-spec-dst spec))))
+
+(defun elmo-pipe-folder-creatable-p (spec)
+  (or (elmo-folder-creatable-p (elmo-pipe-spec-src spec))
+      (elmo-folder-creatable-p (elmo-pipe-spec-dst spec))))
+
+(defun elmo-pipe-create-folder (spec)
+  (if (and (not (elmo-folder-exists-p (elmo-pipe-spec-src spec)))
+	   (elmo-folder-creatable-p (elmo-pipe-spec-src spec)))
+      (elmo-create-folder (elmo-pipe-spec-src spec)))
+  (if (and (not (elmo-folder-exists-p (elmo-pipe-spec-dst spec)))
+	   (elmo-folder-creatable-p (elmo-pipe-spec-dst spec)))
+      (elmo-create-folder (elmo-pipe-spec-dst spec))))
+
+(defun elmo-pipe-search (spec condition &optional numlist)
+  (elmo-search (elmo-pipe-spec-dst spec) condition numlist))
+
+(defun elmo-pipe-use-cache-p (spec number)
+  (elmo-use-cache-p (elmo-pipe-spec-dst spec) number))
+
+(defun elmo-pipe-commit (spec)
+  (elmo-commit (elmo-pipe-spec-src spec))
+  (elmo-commit (elmo-pipe-spec-dst spec)))
+
+(defun elmo-pipe-plugged-p (spec)
+  (and (elmo-folder-plugged-p (elmo-pipe-spec-src spec))
+       (elmo-folder-plugged-p (elmo-pipe-spec-dst spec))))
+
+(defun elmo-pipe-set-plugged (spec plugged add)
+  (elmo-folder-set-plugged (elmo-pipe-spec-src spec) plugged add)
+  (elmo-folder-set-plugged (elmo-pipe-spec-dst spec) plugged add))
+
+(defun elmo-pipe-local-file-p (spec number)
+  (elmo-local-file-p (elmo-pipe-spec-dst spec) number))
+
+(defun elmo-pipe-get-msg-filename (spec number &optional loc-alist)
+  (elmo-get-msg-filename (elmo-pipe-spec-dst spec) number loc-alist))
+
+(defun elmo-pipe-sync-number-alist (spec number-alist)
+  (elmo-call-func (elmo-pipe-spec-src spec) 
+		  "sync-number-alist" number-alist)) ; ??
+
+(defun elmo-pipe-server-diff (spec)
+  nil)
+
+(provide 'elmo-pipe)
+
+;;; elmo-pipe.el ends here
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
new file mode 100644
index 0000000..bef19c0
--- /dev/null
+++ b/elmo/elmo-pop3.el
@@ -0,0 +1,673 @@
+;;; elmo-pop3.el -- POP3 Interface for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-04-03 09:29:38 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-msgdb)
+(eval-when-compile
+  (require 'elmo-util)
+  (condition-case nil
+      (progn
+	(require 'starttls)
+	(require 'sasl))
+    (error))
+  (defun-maybe md5 (a))
+  (defun-maybe sasl-digest-md5-digest-response 
+    (digest-challenge username passwd serv-type host &optional realm))  
+  (defun-maybe sasl-scram-md5-client-msg-1
+    (authenticate-id &optional authorize-id))
+  (defun-maybe sasl-scram-md5-client-msg-2
+    (server-msg-1 client-msg-1 salted-pass))
+  (defun-maybe sasl-scram-md5-make-salted-pass
+    (server-msg-1 passphrase))
+  (defun-maybe sasl-scram-md5-authenticate-server
+    (server-msg-1 server-msg-2 client-msg-1 salted-pass))
+  (defun-maybe starttls-negotiate (a)))
+(condition-case nil
+    (progn
+      (require 'sasl))
+  (error))
+
+(defvar elmo-pop3-exists-exactly t)
+(defvar elmo-pop3-read-point nil)
+(defvar elmo-pop3-connection-cache nil
+  "Cache of pop3 connection.")
+
+(defun elmo-pop3-close-connection (connection &optional process buffer)
+  (save-excursion
+    (let* ((buffer  (or buffer (nth 0 connection)))
+	   (process (or process (nth 1 connection))))
+      (elmo-pop3-send-command buffer process "quit")
+      (when (null (elmo-pop3-read-response buffer process t))
+	(error "POP error: QUIT failed")))))
+
+(defun elmo-pop3-flush-connection ()
+  (interactive)
+  (let ((cache elmo-pop3-connection-cache)
+	buffer process proc-stat)
+    (while cache
+      (setq buffer (car (cdr (car cache))))
+      (setq process (car (cdr (cdr (car cache)))))
+      (if (and process
+	       (not (or (eq (setq proc-stat 
+				  (process-status process)) 
+			    'closed)
+			(eq proc-stat 'exit))))
+	  (condition-case ()
+	      (elmo-pop3-close-connection nil process buffer)
+	    (error)))
+      (if buffer (kill-buffer buffer))
+      ;;(setq process (car (cdr (cdr (car cache)))))
+      (if process (delete-process process))
+      (setq cache (cdr cache)))
+    (setq elmo-pop3-connection-cache nil)))
+
+(defun elmo-pop3-get-connection (spec)
+  (let* ((user   (elmo-pop3-spec-username spec))
+	 (server (elmo-pop3-spec-hostname spec))
+	 (port   (elmo-pop3-spec-port spec))
+	 (auth   (elmo-pop3-spec-auth spec))
+	 (ssl    (elmo-pop3-spec-ssl spec))
+	 (user-at-host (format "%s@%s" user server))
+	 ret-val result buffer process errmsg proc-stat
+	 user-at-host-on-port)
+    (if (not (elmo-plugged-p server port))
+	(error "Unplugged"))
+    (setq user-at-host-on-port 
+	  (concat user-at-host ":" (int-to-string port)
+		  (if (eq ssl 'starttls) "!!" (if ssl "!"))))
+    (setq ret-val (assoc user-at-host-on-port elmo-pop3-connection-cache))
+    (if (and ret-val 
+	     (or (eq (setq proc-stat 
+			   (process-status (cadr (cdr ret-val)))) 
+		     'closed)
+		 (eq proc-stat 'exit)))
+	;; connection is closed...
+	(progn
+	  (kill-buffer (car (cdr ret-val)))
+	  (setq elmo-pop3-connection-cache 
+		(delete ret-val elmo-pop3-connection-cache))
+	  (setq ret-val nil)
+	  ))
+    (if ret-val
+	(cdr ret-val)
+      (setq result
+	    (elmo-pop3-open-connection 
+	     server user port auth
+	     (elmo-get-passwd user-at-host) ssl))
+      (if (null result)
+	  (error "Connection failed"))
+      (setq buffer (car result))
+      (setq process (cdr result))
+      (when (and process (null buffer))
+	(elmo-remove-passwd user-at-host)
+	(delete-process process)
+	(error "Login failed")
+	)
+      (setq elmo-pop3-connection-cache 
+	    (append elmo-pop3-connection-cache 
+		    (list 
+		     (cons user-at-host-on-port
+			   (setq ret-val (list buffer process))))))
+      ret-val)))
+
+(defun elmo-pop3-send-command (buffer process command)
+  (save-excursion
+    (set-buffer buffer)
+    (erase-buffer)
+    (goto-char (point-min))
+    (setq elmo-pop3-read-point (point))
+    (process-send-string process command)
+    (process-send-string process "\r\n")))
+
+(defun elmo-pop3-send-command-no-erase (buffer process command)
+  (save-excursion
+    (set-buffer buffer)
+    ;(erase-buffer)
+    (goto-char (point-min))
+    (setq elmo-pop3-read-point (point))
+    (process-send-string process command)
+    (process-send-string process "\r\n")))
+
+(defun elmo-pop3-read-response (buffer process &optional not-command)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  (response-string nil)
+	  (response-continue t)
+	  (return-value nil)
+	  match-end)
+      (while response-continue
+	(goto-char elmo-pop3-read-point)
+	(while (not (re-search-forward "\r?\n" nil t))
+	  (accept-process-output process)
+	  (goto-char elmo-pop3-read-point))
+	(setq match-end (point))
+	(setq response-string
+	      (buffer-substring elmo-pop3-read-point (- match-end 2)))
+	(goto-char elmo-pop3-read-point)
+	(if (looking-at "\\+.*$")
+	    (progn 
+	      (setq response-continue nil)
+	      (setq elmo-pop3-read-point match-end)
+	      (setq return-value 
+		    (if return-value 
+			(concat return-value "\n" response-string)
+		      response-string
+		      )))
+	  (if (looking-at "\\-.*$")
+	      (progn 
+		(setq response-continue nil)
+		(setq elmo-pop3-read-point match-end)
+		(setq return-value nil))
+	    (setq elmo-pop3-read-point match-end)
+	    (if not-command
+		(setq response-continue nil))
+	    (setq return-value 
+		  (if return-value 
+		      (concat return-value "\n" response-string)
+		    response-string)))
+	  (setq elmo-pop3-read-point match-end)))
+      return-value)))
+
+(defun elmo-pop3-process-filter (process output)
+  (save-excursion
+    (set-buffer (process-buffer process))
+    (goto-char (point-max))
+    (insert output)))
+
+(defun elmo-pop3-open-connection (server user port auth passphrase ssl)
+  (let ((process nil)
+	(host server)
+	process-buffer ret-val response capability)
+    (catch 'done
+      (as-binary-process
+       (setq process-buffer
+	     (get-buffer-create (format " *POP session to %s:%d" host port)))
+       (save-excursion
+	 (set-buffer process-buffer)
+	 (elmo-set-buffer-multibyte nil)       	 
+	 (erase-buffer))
+       (setq process
+	     (elmo-open-network-stream "POP" process-buffer host port ssl))
+       (and (null process) (throw 'done nil))
+       (set-process-filter process 'elmo-pop3-process-filter)
+       ;; flush connections when exiting...
+       (save-excursion
+	 (set-buffer process-buffer)
+	 (make-local-variable 'elmo-pop3-read-point)
+	 (setq elmo-pop3-read-point (point-min))
+	 (when (null (setq response
+			   (elmo-pop3-read-response process-buffer process t)))
+	   (setq ret-val (cons nil process))
+	   (throw 'done nil))
+	 (when (eq ssl 'starttls)
+	   (elmo-pop3-send-command process-buffer process "stls")
+	   (string-match "^\+OK" 
+			 (elmo-pop3-read-response 
+			  process-buffer process))
+	   (starttls-negotiate process))
+	 (cond ((string= auth "apop")
+		;; try only APOP
+		(if (string-match "^\+OK .*\\(<[^\>]+>\\)" response)
+		    ;; good, APOP ready server
+		    (progn
+		      (require 'md5)
+		      (elmo-pop3-send-command  
+		       process-buffer process 
+		       (format "apop %s %s" 
+			       user
+			       (md5 
+				(concat (match-string 1 response)
+					    passphrase)))))
+		  ;; otherwise, fail (only APOP authentication)
+		  (setq ret-val (cons nil process))
+		  (throw 'done nil)))
+	       ((string= auth "cram-md5")
+		(elmo-pop3-send-command  
+		 process-buffer process "auth cram-md5")
+		(when (null (setq response
+				  (elmo-pop3-read-response
+				   process-buffer process t)))
+		  (setq ret-val (cons nil process))
+		  (throw 'done nil))
+		(elmo-pop3-send-command
+		 process-buffer process
+		 (elmo-base64-encode-string
+		  (sasl-cram-md5 user passphrase 
+				 (elmo-base64-decode-string
+				  (cadr (split-string response " ")))))))
+	       ((string= auth "digest-md5")
+		(elmo-pop3-send-command  
+		 process-buffer process "auth digest-md5")
+		(when (null (setq response
+				  (elmo-pop3-read-response
+				   process-buffer process t)))
+		  (setq ret-val (cons nil process))
+		  (throw 'done nil))
+		(elmo-pop3-send-command
+		 process-buffer process
+		 (elmo-base64-encode-string
+		  (sasl-digest-md5-digest-response
+		   (elmo-base64-decode-string
+		    (cadr (split-string response " ")))
+		   user passphrase "pop" host)
+		  'no-line-break))
+		(when (null (setq response
+				  (elmo-pop3-read-response
+				   process-buffer process t)))
+		  (setq ret-val (cons nil process))
+		  (throw 'done nil))
+		(elmo-pop3-send-command process-buffer process ""))
+	       ((string= auth "scram-md5")
+		(let (server-msg-1 server-msg-2 client-msg-1 client-msg-2
+				   salted-pass)
+		  (elmo-pop3-send-command
+		   process-buffer process
+		   (format "auth scram-md5 %s"
+			   (elmo-base64-encode-string
+			    (setq client-msg-1
+				  (sasl-scram-md5-client-msg-1 user)))))
+		  (when (null (setq response
+				    (elmo-pop3-read-response
+				     process-buffer process t)))
+		    (setq ret-val (cons nil process))
+		    (throw 'done nil))
+		  (setq server-msg-1
+			(elmo-base64-decode-string
+			 (cadr (split-string response " "))))
+		  (elmo-pop3-send-command
+		   process-buffer process
+		   (elmo-base64-encode-string
+		    (sasl-scram-md5-client-msg-2
+		     server-msg-1
+		     client-msg-1
+		     (setq salted-pass
+			   (sasl-scram-md5-make-salted-pass 
+			    server-msg-1 passphrase)))))
+		  (when (null (setq response
+				    (elmo-pop3-read-response
+				     process-buffer process t)))
+		    (setq ret-val (cons nil process))
+		    (throw 'done nil))
+		  (setq server-msg-2
+			(elmo-base64-decode-string
+			 (cadr (split-string response " "))))
+		  (if (null (sasl-scram-md5-authenticate-server
+			     server-msg-1
+			     server-msg-2
+			     client-msg-1
+			     salted-pass))
+		      (throw 'done nil))
+		  (elmo-pop3-send-command
+		   process-buffer process "") ))
+	       (t
+		;; try USER/PASS
+		(elmo-pop3-send-command  process-buffer process 
+					 (format "user %s" user))
+		(when (null (elmo-pop3-read-response process-buffer process t))
+		  (setq ret-val (cons nil process))
+		  (throw 'done nil))
+		(elmo-pop3-send-command  process-buffer process 
+					 (format "pass %s" passphrase))))
+	 ;; read PASS or APOP response
+	 (when (null (elmo-pop3-read-response process-buffer process t))
+	   (setq ret-val (cons nil process))
+	   (throw 'done nil))
+	 (setq ret-val (cons process-buffer process)))))
+    ret-val))
+
+(defun elmo-pop3-read-contents (buffer process)
+  (save-excursion
+    (set-buffer buffer)
+    (let ((case-fold-search nil)
+	  match-end)
+      (goto-char elmo-pop3-read-point)
+      (while (not (re-search-forward "^\\.\r\n" nil t))
+	(accept-process-output process)
+	(goto-char elmo-pop3-read-point))
+      (setq match-end (point))
+      (elmo-delete-cr
+       (buffer-substring elmo-pop3-read-point 
+			 (- match-end 3))))))
+
+;; dummy functions
+(defun elmo-pop3-list-folders (spec &optional hierarchy) nil)
+(defun elmo-pop3-append-msg (spec string) nil nil)
+(defun elmo-pop3-folder-creatable-p (spec) nil)
+(defun elmo-pop3-create-folder (spec) nil)
+
+(defun elmo-pop3-folder-exists-p (spec)
+  (if (and elmo-pop3-exists-exactly
+	   (elmo-pop3-plugged-p spec))
+      (save-excursion
+	(let (elmo-auto-change-plugged) ;;don't change plug status.
+	  (condition-case nil
+	      (prog1
+		  (elmo-pop3-get-connection spec)
+		(elmo-pop3-flush-connection))
+	    (error nil))))
+    t))
+
+(defun elmo-pop3-parse-list-response (string)
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *ELMO PARSE TMP*"))
+	  ret-val)
+      (set-buffer tmp-buffer)
+      (let ((case-fold-search t))
+	(erase-buffer)
+	(insert string)
+	(goto-char (point-min))
+	(while (re-search-forward "^\\([0-9]*\\)[\t ].*$" nil t)
+	  (setq ret-val
+		(cons
+		 (string-to-int
+		  (elmo-match-buffer 1))
+		 ret-val)))
+	(kill-buffer tmp-buffer)
+	(nreverse ret-val)))))
+
+(defun elmo-pop3-list-folder (spec)
+  (save-excursion
+    (elmo-pop3-flush-connection)
+    (let* ((connection (elmo-pop3-get-connection spec))
+	   (buffer  (nth 0 connection))
+	   (process (nth 1 connection))
+	   response errmsg ret-val)
+      (elmo-pop3-send-command buffer process "list")
+      (if (null (elmo-pop3-read-response buffer process))
+	  (error "POP List folder failed"))
+      (if (null (setq response (elmo-pop3-read-contents buffer process)))
+	  (error "POP List folder failed"))
+      ;; POP server always returns a sequence of serial numbers.
+      (elmo-pop3-parse-list-response response))))
+
+(defun elmo-pop3-max-of-folder (spec)
+  (save-excursion
+    (elmo-pop3-flush-connection)
+    (let* ((connection (elmo-pop3-get-connection spec))
+	   (buffer  (nth 0 connection))
+	   (process (nth 1 connection))
+	   (total 0)
+	   response)
+      (elmo-pop3-send-command buffer process "STAT")
+      (setq response (elmo-pop3-read-response buffer process))
+      ;; response: "^\+OK 2 7570$"
+      (if (not (string-match "^\+OK[ \t]*\\([0-9]*\\)" response))
+	  (error "POP STAT command failed")
+	(setq total
+	      (string-to-int
+	       (substring response (match-beginning 1)(match-end 1 ))))
+	(cons total total)))))
+
+(defvar elmo-pop3-header-fetch-chop-length 200)
+
+(defsubst elmo-pop3-next-result-arrived-p ()
+  (cond
+   ((eq (following-char) ?+)
+    (if (re-search-forward "\n\\.\r?\n" nil t)
+ 	t
+      nil))
+   ((looking-at "-")
+    (if (search-forward "\n" nil t)
+ 	t
+      nil))
+   (t
+    nil)))
+     
+(defun elmo-pop3-retrieve-headers (buffer tobuffer process articles)
+  (save-excursion
+    (set-buffer buffer)
+    (erase-buffer)
+    (let ((number (length articles))
+	  (count 0)
+	  (received 0)
+	  (last-point (point-min)))
+      ;; Send HEAD commands.
+      (while articles
+	(elmo-pop3-send-command-no-erase
+	 buffer
+	 process
+	 (format "top %s 0" (car articles))
+	 )
+	; (accept-process-output process 1)
+	(setq articles (cdr articles))
+	(setq count (1+ count))
+	;; Every 200 requests we have to read the stream in
+	;; order to avoid deadlocks.
+	(when (or elmo-pop3-send-command-synchronously
+		  (null articles)	;All requests have been sent.
+		  (zerop (% count elmo-pop3-header-fetch-chop-length)))
+	  (unless elmo-pop3-send-command-synchronously
+	    (accept-process-output process 1))
+	  (discard-input)
+	  (while (progn
+		   (set-buffer buffer)
+		   (goto-char last-point)
+		   ;; Count replies.
+		   (while (elmo-pop3-next-result-arrived-p)
+		     (setq last-point (point))
+		     (setq received (1+ received)))
+		   (< received count))
+	    (and (zerop (% received 20))
+		 (elmo-display-progress
+		  'elmo-pop3-retrieve-headers "Getting headers..."
+		  (/ (* received 100) number)))
+	    (accept-process-output process 1)
+	    ;(accept-process-output process)
+	    (discard-input)
+	    )))
+      (message "Getting headers...done")
+      ;; Remove all "\r"'s.
+      (goto-char (point-min))
+      (while (search-forward "\r\n" nil t)
+	(replace-match "\n"))
+      (copy-to-buffer tobuffer (point-min) (point-max))
+      ;(elmo-pop3-close-connection nil process buffer) ; close connection
+      )))
+
+(defalias 'elmo-pop3-msgdb-create 'elmo-pop3-msgdb-create-as-numlist)
+(defun elmo-pop3-msgdb-create-as-numlist (spec numlist new-mark
+					       already-mark seen-mark
+					       important-mark seen-list)
+  (when numlist
+    (let* ((connection (elmo-pop3-get-connection spec))
+	   (buffer (nth 0 connection))
+	   (process (nth 1 connection))
+	   response errmsg ret-val)
+      (elmo-pop3-msgdb-create-by-header buffer process numlist
+					new-mark already-mark 
+					seen-mark seen-list))))
+
+(defun elmo-pop3-msgdb-create-by-header (buffer process numlist
+						new-mark already-mark 
+						seen-mark
+						seen-list)
+  (let ((tmp-buffer (get-buffer-create " *ELMO Overview TMP*"))
+	ret-val)
+    (elmo-pop3-retrieve-headers
+     buffer tmp-buffer process numlist)
+    (setq ret-val
+	  (elmo-pop3-msgdb-create-message
+	   tmp-buffer 
+	   (length numlist)
+	   numlist
+	   new-mark already-mark seen-mark seen-list))
+    (kill-buffer tmp-buffer)
+    ret-val))
+
+(defun elmo-pop3-msgdb-create-message (buffer 
+				       num numlist new-mark already-mark 
+				       seen-mark
+				       seen-list)
+  (save-excursion
+    (let (beg
+	  overview number-alist mark-alist
+	  entity i number message-id gmark seen)
+      (set-buffer buffer)
+      (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+      (goto-char (point-min))
+      (setq i 0)
+      (message "Creating msgdb...")
+      (while (not (eobp))
+	(setq beg (save-excursion (forward-line 1) (point)))
+	(elmo-pop3-next-result-arrived-p)
+	(save-excursion
+	  (forward-line -1)
+	  (save-restriction
+	    (narrow-to-region beg (point))
+	    (setq entity
+		  (elmo-msgdb-create-overview-from-buffer 
+		   (car numlist)))
+	    (setq numlist (cdr numlist))
+	    (when entity
+	      (setq overview 
+		    (elmo-msgdb-append-element
+		     overview entity))
+	      (setq number-alist
+		    (elmo-msgdb-number-add number-alist
+					   (elmo-msgdb-overview-entity-get-number entity)
+					   (car entity)))
+	      (setq message-id (car entity))
+	      (setq seen (member message-id seen-list))
+	      (if (setq gmark (or (elmo-msgdb-global-mark-get message-id)
+				  (if (elmo-cache-exists-p 
+				       message-id) ; XXX
+				      (if seen
+					  nil
+					already-mark)
+				    (if seen
+					(if elmo-pop3-use-cache
+					    seen-mark)
+				      new-mark))))
+		  (setq mark-alist
+			(elmo-msgdb-mark-append 
+			 mark-alist
+			 (elmo-msgdb-overview-entity-get-number entity)
+			 gmark)))
+	      )))
+	(setq i (1+ i))
+	(and (zerop (% i 20))
+	     (elmo-display-progress
+	      'elmo-pop3-msgdb-create-message "Creating msgdb..."
+	      (/ (* i 100) num)))
+	)
+      (message "Creating msgdb...done.")
+      (list overview number-alist mark-alist))))
+
+(defun elmo-pop3-read-body (buffer process outbuf)
+  (with-current-buffer buffer
+    (let ((start elmo-pop3-read-point)
+	  end)
+      (goto-char start)
+      (while (not (re-search-forward "^\\.\r?\n" nil t))
+	(accept-process-output process)
+	(goto-char start))
+      (setq end (point))
+      (with-current-buffer outbuf
+	(erase-buffer)
+	(insert-buffer-substring buffer start (- end 3))
+	(elmo-delete-cr-get-content-type)))))
+
+(defun elmo-pop3-read-msg (spec number outbuf)
+  (save-excursion
+    (let* ((connection (elmo-pop3-get-connection spec))
+	   (buffer  (car connection))
+	   (process (cadr connection))
+	   (cwf     (caddr connection))	 
+	   response errmsg msg)
+      (elmo-pop3-send-command buffer process 
+			      (format "retr %s" number))
+      (when (null (setq response (elmo-pop3-read-response
+				  buffer process t)))
+	(error "Fetching message failed"))
+      (setq response (elmo-pop3-read-body buffer process outbuf))
+      (set-buffer outbuf)
+      (goto-char (point-min))
+      (while (re-search-forward "^\\." nil t)
+	(replace-match "")
+	(forward-line))
+      response)))
+
+(defun elmo-pop3-delete-msg (buffer process number)
+  (let (response errmsg msg)
+    (elmo-pop3-send-command buffer process 
+			    (format "dele %s" number))
+    (when (null (setq response (elmo-pop3-read-response
+				buffer process t)))
+      (error "Deleting message failed"))))
+
+(defun elmo-pop3-delete-msgs (spec msgs)
+  (save-excursion
+    (let* ((connection (elmo-pop3-get-connection spec))
+	   (buffer  (car connection))
+	   (process (cadr connection)))
+      (mapcar '(lambda (msg) (elmo-pop3-delete-msg 
+			      buffer process msg))
+	      msgs))))
+
+(defun elmo-pop3-search (spec condition &optional numlist)
+  (error "Searching in pop3 folder is not implemented yet"))
+
+(defun elmo-pop3-use-cache-p (spec number)
+  elmo-pop3-use-cache)
+
+(defun elmo-pop3-local-file-p (spec number)
+  nil)
+
+(defun elmo-pop3-port-label (spec)
+  (concat "pop3"
+	  (if (elmo-pop3-spec-ssl spec) "!ssl" "")))
+
+(defsubst elmo-pop3-portinfo (spec)
+  (list (elmo-pop3-spec-hostname spec) 
+	(elmo-pop3-spec-port spec)))
+
+(defun elmo-pop3-plugged-p (spec)
+  (apply 'elmo-plugged-p
+	 (append (elmo-pop3-portinfo spec)
+		 (list nil (quote (elmo-pop3-port-label spec))))))
+
+(defun elmo-pop3-set-plugged (spec plugged add)
+  (apply 'elmo-set-plugged plugged
+	 (append (elmo-pop3-portinfo spec)
+		 (list nil nil (quote (elmo-pop3-port-label spec)) add))))
+
+(defalias 'elmo-pop3-sync-number-alist 
+  'elmo-generic-sync-number-alist)
+(defalias 'elmo-pop3-list-folder-unread 
+  'elmo-generic-list-folder-unread)
+(defalias 'elmo-pop3-list-folder-important
+  'elmo-generic-list-folder-important)
+(defalias 'elmo-pop3-commit 'elmo-generic-commit)
+
+(provide 'elmo-pop3)
+
+;;; elmo-pop3.el ends here
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
new file mode 100644
index 0000000..9c6de8c
--- /dev/null
+++ b/elmo/elmo-util.el
@@ -0,0 +1,1617 @@
+;;; elmo-util.el -- Utilities for Elmo.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-29 09:42:41 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-vars)
+(require 'elmo-date)
+(eval-when-compile (require 'cl))
+(require 'std11)
+(require 'eword-decode)
+(require 'utf7)
+
+(eval-when-compile 
+  (condition-case nil 
+      (progn
+	(require 'ssl)
+	(require 'starttls))
+    (error))
+  (defun-maybe starttls-negotiate (a))
+  (defun-maybe starttls-open-stream (a b c d))
+  (defun-maybe open-ssl-stream (a b c d)))
+
+(defmacro elmo-set-buffer-multibyte (flag)
+  "Set the multibyte flag of the current buffer to FLAG."
+  (cond ((boundp 'MULE)
+         (list 'setq 'mc-flag flag))
+        ((featurep 'xemacs)
+         flag)
+        ((and (boundp 'emacs-major-version) (>= emacs-major-version 20))
+         (list 'set-buffer-multibyte flag))
+        (t
+         flag)))
+
+(defvar elmo-work-buf-name " *elmo work*")
+(defvar elmo-temp-buf-name " *elmo temp*")
+
+(or (boundp 'default-enable-multibyte-characters)
+    (defvar default-enable-multibyte-characters (featurep 'mule)
+      "The mock variable except for Emacs 20."))
+
+(defun elmo-base64-encode-string (string &optional no-line-break))
+(defun elmo-base64-decode-string (string))
+
+;; base64 encoding/decoding
+(require 'mel)
+(fset 'elmo-base64-encode-string 
+      (mel-find-function 'mime-encode-string "base64"))
+(fset 'elmo-base64-decode-string
+      (mel-find-function 'mime-decode-string "base64"))
+
+;; Any Emacsen may have add-name-to-file(), because loadup.el requires it. :-p
+;; Check make-symbolic-link() instead.  -- 981002 by Fuji
+(if (fboundp 'make-symbolic-link)  ;; xxx
+    (defalias 'elmo-add-name-to-file 'add-name-to-file)
+  (defun elmo-add-name-to-file 
+    (filename newname &optional ok-if-already-exists)
+    (copy-file filename newname ok-if-already-exists t)))
+
+(require 'broken)
+(broken-facility timezone-y2k
+  "timezone.el does not clear Y2K."
+  (or (not (featurep 'timezone))
+      (string= (aref (timezone-parse-date "Sat, 1 Jan 00 07:00:00 JST") 0) 
+	       "2000")))
+
+(when-broken timezone-y2k
+  (defun timezone-parse-date (date)
+    "Parse DATE and return a vector [YEAR MONTH DAY TIME TIMEZONE].
+19 is prepended to year if necessary.  Timezone may be nil if nothing.
+Understands the following styles:
+ (1) 14 Apr 89 03:20[:12] [GMT]
+ (2) Fri, 17 Mar 89 4:01[:33] [GMT]
+ (3) Mon Jan 16 16:12[:37] [GMT] 1989
+ (4) 6 May 1992 1641-JST (Wednesday)
+ (5) 22-AUG-1993 10:59:12.82
+ (6) Thu, 11 Apr 16:17:12 91 [MET]
+ (7) Mon, 6  Jul 16:47:20 T 1992 [MET]"
+    (condition-case nil
+	(progn
+	  ;; Get rid of any text properties.
+	  (and (stringp date)
+	       (or (text-properties-at 0 date)
+		   (next-property-change 0 date))
+	       (setq date (copy-sequence date))
+	       (set-text-properties 0 (length date) nil date))
+	  (let ((date (or date ""))
+		(year nil)
+		(month nil)
+		(day nil)
+		(time nil)
+		(zone nil))			;This may be nil.
+	    (cond ((string-match
+		    "\\([^ \t,]+\\),[ \t]+\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\(T[ \t]+\\|\\)\\([0-9]+\\)[ \t]*\\'" date)
+		   ;; Styles: (6) and (7) without timezone
+		   (setq year 6 month 3 day 2 time 4 zone nil))
+		  ((string-match
+		    "\\([^ \t,]+\\),[ \t]+\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\(T[ \t]+\\|\\)\\([0-9]+\\)[ \t]*\\([-+a-zA-Z0-9]+\\)" date)
+		   ;; Styles: (6) and (7) with timezone and buggy timezone
+		   (setq year 6 month 3 day 2 time 4 zone 7))
+		  ((string-match
+		    "\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]*\\'" date)
+		   ;; Styles: (1) and (2) without timezone
+		   (setq year 3 month 2 day 1 time 4 zone nil))
+		  ((string-match
+		    "\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]*\\([-+a-zA-Z0-9]+\\)" date)
+		   ;; Styles: (1) and (2) with timezone and buggy timezone
+		   (setq year 3 month 2 day 1 time 4 zone 5))
+		  ((string-match
+		    "\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\([0-9]+\\)" date)
+		   ;; Styles: (3) without timezone
+		   (setq year 4 month 1 day 2 time 3 zone nil))
+		  ((string-match
+		    "\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\([-+a-zA-Z0-9]+\\)[ \t]+\\([0-9]+\\)" date)
+		   ;; Styles: (3) with timezone
+		   (setq year 5 month 1 day 2 time 3 zone 4))
+		  ((string-match
+		    "\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+\\)[ \t]*\\([-+a-zA-Z0-9]+\\)" date)
+		   ;; Styles: (4) with timezone
+		   (setq year 3 month 2 day 1 time 4 zone 5))
+		  ((string-match
+		    "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)\\.[0-9]+" date)
+		   ;; Styles: (5) without timezone.
+		   (setq year 3 month 2 day 1 time 4 zone nil))
+		  )
+	    (if year
+		(progn
+		  (setq year
+			(substring date (match-beginning year) 
+				   (match-end year)))
+		  (if (< (length year) 4)
+		      (let ((yr (string-to-int year)))
+			(when (>= yr 100)
+			  (setq yr (- yr 100)))
+			(setq year (format "%d%02d"
+					   (if (< yr 70)
+					       20
+					     19)
+					   yr))))
+		  (let ((string (substring date
+					   (match-beginning month)
+					   (+ (match-beginning month) 3))))
+		    (setq month
+			  (int-to-string
+			   (cdr (assoc (upcase string) 
+				       timezone-months-assoc)))))
+		  (setq day
+			(substring date (match-beginning day) (match-end day)))
+		  (setq time
+			(substring date (match-beginning time) 
+				   (match-end time)))))
+	    (if zone
+		(setq zone
+		      (substring date (match-beginning zone) 
+				 (match-end zone))))
+	    (if year
+		(vector year month day time zone)
+	      (vector "0" "0" "0" "0" nil))
+	    )
+	  )
+      (t (signal 'invalid-date (list date))))))
+
+(defsubst elmo-call-func (folder func-name &rest args)
+  (let* ((spec (if (stringp folder)
+		   (elmo-folder-get-spec folder)
+		 folder))
+	 (type (symbol-name (car spec)))
+	 (backend-str (concat "elmo-" type))
+	 (backend-sym (intern backend-str)))
+    (unless (featurep backend-sym)
+      (require backend-sym))
+    (apply (intern (format "%s-%s" backend-str func-name))
+	   spec
+	   args)))
+
+(defmacro elmo-set-work-buf (&rest body)
+  "Execute BODY on work buffer. Work buffer remains."
+  (` (save-excursion
+       (set-buffer (get-buffer-create elmo-work-buf-name))
+       (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+       (erase-buffer)
+       (,@ body))))
+
+(defmacro elmo-match-substring (pos string from)
+  "Substring of POSth matched string of STRING. "
+  (` (substring (, string) 
+		(+ (match-beginning (, pos)) (, from))
+		(match-end (, pos)))))
+
+(defmacro elmo-match-string (pos string)
+  "Substring POSth matched string."
+  (` (substring (, string) (match-beginning (, pos)) (match-end (, pos)))))
+
+(defmacro elmo-match-buffer (pos)
+  "Substring POSth matched from the current buffer."
+  (` (buffer-substring-no-properties
+      (match-beginning (, pos)) (match-end (, pos)))))
+
+(defmacro elmo-bind-directory (dir &rest body)
+  "Set current directory DIR and execute BODY."
+  (` (let ((default-directory (file-name-as-directory (, dir))))
+       (,@ body))))
+
+(defmacro elmo-folder-get-type (folder)
+  "Get type of FOLDER."
+  (` (and (stringp (, folder))
+	  (cdr (assoc (string-to-char (, folder)) elmo-spec-alist)))))
+
+(defun elmo-object-load (filename &optional mime-charset no-err)
+  "Load OBJECT from the file specified by FILENAME.
+File content is decoded with MIME-CHARSET."
+    (if (not (file-readable-p filename))
+	nil
+      (elmo-set-work-buf
+       (as-binary-input-file
+	(insert-file-contents filename))
+       (when mime-charset
+	 (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+	 (decode-mime-charset-region (point-min) (point-max) mime-charset))
+       (condition-case nil
+	   (read (current-buffer)) 
+	 (error (unless no-err
+		  (message "Warning: Loading object from %s failed."
+			   filename)
+		  (elmo-object-save filename nil))
+		nil)))))
+
+(defsubst elmo-save-buffer (filename &optional mime-charset)
+  "Save current buffer to the file specified by FILENAME.
+Directory of the file is created if it doesn't exist.
+File content is encoded with MIME-CHARSET."
+  (let ((dir (directory-file-name (file-name-directory filename))))
+    (if (file-directory-p dir)
+	() ; ok.
+      (unless (file-exists-p dir)
+	(elmo-make-directory dir)))
+    (if (file-writable-p filename)
+	(progn
+	  (when mime-charset
+	    ;;(elmo-set-buffer-multibyte default-enable-multibyte-characters)
+	    (encode-mime-charset-region (point-min) (point-max) mime-charset))
+	  (as-binary-output-file
+	   (write-region (point-min) (point-max) filename nil 'no-msg)))
+      (message (format "%s is not writable." filename)))))
+
+(defun elmo-object-save (filename object &optional mime-charset)
+  "Save OBJECT to the file specified by FILENAME.
+Directory of the file is created if it doesn't exist.
+File content is encoded with MIME-CHARSET."
+  (elmo-set-work-buf
+   (prin1 object (current-buffer))
+   ;;(princ "\n" (current-buffer))
+   (elmo-save-buffer filename mime-charset)))
+
+(defsubst elmo-imap4-decode-folder-string (string)
+  (if elmo-imap4-use-modified-utf7
+      (utf7-decode-string string 'imap)
+    string))
+
+(defsubst elmo-imap4-encode-folder-string (string)
+  (if elmo-imap4-use-modified-utf7
+      (utf7-encode-string string 'imap)
+    string))
+
+(defun elmo-network-get-spec (folder default-server default-port default-tls)
+  (let (server port tls)
+    (if (string-match "\\(@[^@:/!]+\\)?\\(:[0-9]+\\)?\\(!*\\)$" folder)
+	(progn
+	  (if (match-beginning 1)
+	      (setq server (elmo-match-substring 1 folder 1))
+	    (setq server default-server))
+	  (if (match-beginning 2)
+	      (setq port 
+		    (string-to-int (elmo-match-substring 2 folder 1)))
+	    (setq port default-port))
+	  (setq tls (elmo-match-string 3 folder))
+	  (if (and (match-beginning 3)
+		   (> (length tls) 0))
+	      (setq tls (if (= 2 (length tls)) 'starttls
+			  (string= tls "!")))
+	    (setq tls default-tls))
+	  (setq folder (substring folder 0 (match-beginning 0))))
+      (setq server default-server
+	    port   default-port
+	    tls    default-tls))
+    (cons folder (list server port tls))))
+
+(defun elmo-imap4-get-spec (folder)
+  (let ((default-user    elmo-default-imap4-user)
+	(default-server  elmo-default-imap4-server)
+	(default-port    elmo-default-imap4-port)
+	(default-tls     elmo-default-imap4-ssl)
+	spec mailbox user auth)
+    (when (string-match "\\(.*\\)@\\(.*\\)" default-server)
+      ;; case: default-imap4-server is specified like 
+      ;; "hoge%imap.server@gateway".
+      (setq default-user (elmo-match-string 1 default-server))
+      (setq default-server (elmo-match-string 2 default-server)))
+    (setq spec (elmo-network-get-spec 
+		folder default-server default-port default-tls))
+    (setq folder (car spec))
+    (when (string-match
+	   "^\\(%\\)\\([^:@!]*\\)\\(:[^/!]+\\)?\\(/[^/:@!]+\\)?"
+	   folder)
+      (progn
+	(setq mailbox (if (match-beginning 2) 
+			  (elmo-match-string 2 folder)
+			elmo-default-imap4-mailbox))
+	(setq user (if (match-beginning 3)
+		       (elmo-match-substring 3 folder 1)
+		     default-user))
+	(setq auth (if (match-beginning 4)
+		       (elmo-match-substring 4 folder 1)
+		     elmo-default-imap4-authenticate-type))
+	(append (list 'imap4 
+		      (elmo-imap4-encode-folder-string mailbox)
+		      user auth)
+		(cdr spec))))))
+
+(defsubst elmo-imap4-spec-mailbox (spec)
+  (nth 1 spec))
+
+(defsubst elmo-imap4-spec-username (spec)
+  (nth 2 spec))
+
+(defsubst elmo-imap4-spec-auth (spec)
+  (nth 3 spec))
+
+(defsubst elmo-imap4-spec-hostname (spec)
+  (nth 4 spec))
+
+(defsubst elmo-imap4-spec-port (spec)
+  (nth 5 spec))
+
+(defsubst elmo-imap4-spec-ssl (spec)
+  (nth 6 spec))
+
+(defsubst elmo-imap4-spec-folder (spec) ;; obsolete
+  (nth 1 spec))
+
+(defsubst elmo-imap4-connection-get-process (conn)
+  (nth 1 conn))
+
+(defsubst elmo-imap4-connection-get-buffer (conn)
+  (nth 0 conn))
+
+(defsubst elmo-imap4-connection-get-cwf (conn)
+  (nth 2 conn))
+
+(defun elmo-nntp-get-spec (folder)
+  (let (spec group user)
+    (setq spec (elmo-network-get-spec folder
+				      elmo-default-nntp-server
+				      elmo-default-nntp-port
+				      elmo-default-nntp-ssl))
+    (setq folder (car spec))
+    (when (string-match
+	   "^\\(-\\)\\([^:@!]*\\)\\(:[^/!]+\\)?\\(/[^/:@!]+\\)?"
+	   folder)
+      (setq group 
+	    (if (match-beginning 2)
+		(elmo-match-string 2 folder)))
+      (setq user 
+	    (if (match-beginning 3) 
+		(elmo-match-substring 3 folder 1)
+	      elmo-default-nntp-user))
+      (append (list 'nntp group user)
+	      (cdr spec)))))
+
+(defsubst elmo-nntp-spec-group (spec)
+  (nth 1 spec))
+
+(defsubst elmo-nntp-spec-username (spec)  
+  (nth 2 spec))
+
+;; future use?
+;; (defsubst elmo-nntp-spec-auth (spec))
+
+(defsubst elmo-nntp-spec-hostname (spec)
+  (nth 3 spec))
+
+(defsubst elmo-nntp-spec-port (spec)
+  (nth 4 spec))
+
+(defsubst elmo-nntp-spec-ssl (spec)
+  (nth 5 spec))
+
+(defun elmo-localdir-get-spec (folder)
+  (let (fld-name path)
+    (when (string-match
+	   "^\\(\\+\\)\\(.*\\)$"
+	   folder)
+      (if (eq (length (setq fld-name
+			    (elmo-match-string 2 folder))) 0)
+	  (setq fld-name "")
+	)
+      (if (file-name-absolute-p fld-name)
+	  (setq path (expand-file-name fld-name))
+	(setq path fld-name))
+	;(setq path (expand-file-name fld-name
+	;elmo-localdir-folder-path)))
+      (list (if (elmo-folder-maildir-p folder)
+		'maildir
+	      'localdir) path))))
+
+(defun elmo-maildir-get-spec (folder)
+  (let (fld-name path)
+    (when (string-match
+	   "^\\(\\.\\)\\(.*\\)$"
+	   folder)
+      (if (eq (length (setq fld-name
+			    (elmo-match-string 2 folder))) 0)
+	  (setq fld-name ""))
+      (if (file-name-absolute-p fld-name)
+	  (setq path (expand-file-name fld-name))
+	(setq path fld-name))
+      (list 'maildir path))))
+
+(defun elmo-folder-maildir-p (folder)
+  (catch 'found
+    (let ((li elmo-maildir-list))
+      (while li
+	(if (string-match (car li) folder)
+	    (throw 'found t))
+	(setq li (cdr li))))))
+
+(defun elmo-localnews-get-spec (folder)
+  (let (fld-name)
+    (when (string-match
+	 "^\\(=\\)\\(.*\\)$"
+	 folder)
+      (if (eq (length (setq fld-name
+			    (elmo-match-string 2 folder))) 0)
+	  (setq fld-name "")
+	)
+      (list 'localnews 
+	    (elmo-replace-in-string fld-name "\\." "/")))))
+
+(defun elmo-cache-get-spec (folder)
+  (let (fld-name)
+    (when (string-match
+	 "^\\(!\\)\\(.*\\)$"
+	 folder)
+      (if (eq (length (setq fld-name
+			    (elmo-match-string 2 folder))) 0)
+	  (setq fld-name "")
+	)
+      (list 'cache
+	    (elmo-replace-in-string fld-name "\\." "/")))))
+
+;; Archive interface by OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+(defun elmo-archive-get-spec (folder)
+  (require 'elmo-archive)
+  (let (fld-name type prefix)
+    (when (string-match
+	   "^\\(\\$\\)\\([^;]*\\);?\\([^;]*\\);?\\([^;]*\\)$"
+	   folder)
+      ;; Drive letter is OK!
+      (if (eq (length (setq fld-name
+			    (elmo-match-string 2 folder))) 0)
+	  (setq fld-name "")
+	)
+      (if (eq (length (setq type
+			    (elmo-match-string 3 folder))) 0)
+	  (setq type (symbol-name elmo-archive-default-type)))
+      (if (eq (length (setq prefix
+			    (elmo-match-string 4 folder))) 0)
+	  (setq prefix ""))
+      (list 'archive fld-name (intern-soft type) prefix))))
+
+(defun elmo-pop3-get-spec (folder)
+  (let (spec user auth)
+    (setq spec (elmo-network-get-spec folder
+				      elmo-default-pop3-server
+				      elmo-default-pop3-port
+				      elmo-default-pop3-ssl))
+    (setq folder (car spec))
+    (when (string-match
+	   "^\\(&\\)\\([^:/!]*\\)\\(/[^/:@!]+\\)?"
+	   folder)
+      (setq user (if (match-beginning 2)
+		     (elmo-match-string 2 folder)))
+      (if (eq (length user) 0)
+	  (setq user elmo-default-pop3-user))
+      (setq auth (if (match-beginning 3)
+		     (elmo-match-substring 3 folder 1)
+		   elmo-default-pop3-authenticate-type))
+      (append (list 'pop3 user auth)
+	      (cdr spec)))))
+
+(defsubst elmo-pop3-spec-username (spec)
+  (nth 1 spec))
+
+(defsubst elmo-pop3-spec-auth (spec)
+  (nth 2 spec))
+
+(defsubst elmo-pop3-spec-hostname (spec)
+  (nth 3 spec))
+
+(defsubst elmo-pop3-spec-port (spec)
+  (nth 4 spec))
+
+(defsubst elmo-pop3-spec-ssl (spec)
+  (nth 5 spec))
+
+(defun elmo-internal-get-spec (folder)
+  (if (string-match "\\('\\)\\([^/]*\\)/?\\(.*\\)$" folder)
+      (let* ((item (downcase (elmo-match-string 2 folder)))
+	     (sym (and (> (length item) 0) (intern item))))
+	(cond ((or (null sym)
+		   (eq sym 'mark))
+	       (list 'internal sym (elmo-match-string 3 folder)))
+	      ((eq sym 'cache)
+	       (list 'cache (elmo-match-string 3 folder)))
+	      (t (error "Invalid internal folder spec"))))))
+
+(defun elmo-multi-get-spec (folder)
+  (save-match-data
+    (when (string-match
+	   "^\\(\\*\\)\\(.*\\)$"
+	   folder)
+      (append (list 'multi)
+	      (split-string
+	       (elmo-match-string 2 folder)
+	       ",")))))
+
+(defun elmo-filter-get-spec (folder)
+  (save-match-data
+    (when (string-match
+	   "^\\(/\\)\\(.*\\)$"
+	   folder)
+      (let ((spec (elmo-match-string 2 folder))
+	    filter)
+	(when (string-match "\\([^/]+\\)/" spec)
+	  (setq filter (elmo-match-string 1 spec))
+	  (setq spec (substring spec (match-end 0))))
+	(cond
+	 ((string-match "^\\(last\\|first\\):\\(.*\\)$" filter) ; partial
+	  (setq filter (vector 'partial
+			       (elmo-match-string 1 filter)
+			       (elmo-match-string 2 filter))))
+	 (t
+	  (setq filter (elmo-parse-search-condition filter))))
+	(list 'filter filter spec)))))
+
+(defun elmo-pipe-get-spec (folder)
+  (when (string-match "^\\(|\\)\\([^|]*\\)|\\(.*\\)$" folder)
+    (list 'pipe
+	  (elmo-match-string 2 folder)
+	  (elmo-match-string 3 folder))))
+
+(defun elmo-folder-get-spec (folder)
+  "return spec of folder"
+  (let ((type (elmo-folder-get-type folder)))
+    (if type
+	(funcall (intern (concat "elmo-" (symbol-name type) "-get-spec"))
+		 folder)
+      (error "%s is not supported folder type" folder))))
+
+(defun elmo-parse-search-condition (condition)
+  (let ((terms (split-string condition "|")) ; split by OR
+	term ret-val)
+    (while terms
+      (setq term (car terms))
+      (cond 
+       ((string-match "^\\([a-zA-Z\\-]+\\)=\\(.*\\)$" term)
+	(if (save-match-data
+	      (string-match "tocc" (elmo-match-string 1 term))) ;; syntax sugar
+	    (setq ret-val (nconc
+			   ret-val
+			   (list (vector 'match "to"
+					 (elmo-match-string 2 term))
+				 (vector 'match "cc"
+					 (elmo-match-string 2 term)))))
+	  (setq ret-val (cons (vector 'match 
+				      (elmo-match-string 1 term)
+				      (elmo-match-string 2 term))
+			      ret-val))))
+       ((string-match "^\\([a-zA-Z\\-]+\\)!=\\(.*\\)$" term)
+	(if (save-match-data
+	      (string-match "tocc" (elmo-match-string 1 term))) ;; syntax sugar
+	    (setq ret-val (nconc
+			   ret-val
+			   (list (vector 'unmatch "to"
+					 (elmo-match-string 2 term))
+				 (vector 'unmatch "cc"
+					 (elmo-match-string 2 term)))))
+	  (setq ret-val (cons (vector 'unmatch 
+				      (elmo-match-string 1 term)
+				      (elmo-match-string 2 term))
+			      ret-val))))
+       ((string-match "^\\(since\\|before\\):\\(.*\\)$" term)
+	(setq ret-val (cons (vector 'date
+				    (elmo-match-string 1 term)
+				    (elmo-match-string 2 term))
+			    ret-val))))
+      (setq terms (cdr terms)))
+    ret-val))
+
+(defun elmo-multi-get-real-folder-number (folder number)
+  (let* ((spec (elmo-folder-get-spec folder))
+	 (flds (cdr spec))
+	 (num number)
+	 (fld (nth (- (/ num elmo-multi-divide-number) 1) flds)))
+    (cons fld (% num elmo-multi-divide-number))))
+
+(defsubst elmo-buffer-replace (regexp &optional newtext)
+  (goto-char (point-min))
+  (while (re-search-forward regexp nil t)
+    (replace-match (or newtext ""))))
+
+(defsubst elmo-delete-char (char string &optional unibyte)
+  (save-match-data
+    (elmo-set-work-buf
+     (let ((coding-system-for-read 'no-conversion)
+	   (coding-system-for-write 'no-conversion))
+       (if unibyte (elmo-set-buffer-multibyte nil))
+       (insert string)
+       (goto-char (point-min))
+       (while (search-forward (char-to-string char) nil t)
+	 (replace-match ""))
+       (buffer-string)))))
+
+(defsubst elmo-delete-cr-get-content-type ()
+  (save-excursion
+    (goto-char (point-min))
+    (while (search-forward "\r\n" nil t)
+      (replace-match "\n"))
+    (goto-char (point-min))
+    (or (std11-field-body "content-type")
+	t)))
+
+(defun elmo-delete-cr (string)
+  (save-match-data
+    (elmo-set-work-buf
+     (insert string)
+     (goto-char (point-min))
+     (while (search-forward "\r\n" nil t)
+       (replace-match "\n"))
+     (buffer-string))))
+
+(defun elmo-uniq-list (lst)
+  "Distractively uniqfy elements of LST."
+  (let ((tmp lst))
+    (while tmp (setq tmp (setcdr tmp (and (cdr tmp) (delete (car tmp) (cdr tmp)))))))
+  lst)
+
+(defun elmo-string-partial-p (string)
+  (and (stringp string) (string-match "message/partial" string)))
+
+(defun elmo-get-file-string (filename &optional remove-final-newline)
+  (elmo-set-work-buf
+   (let (insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	 insert-file-contents-post-hook)
+     (when (file-exists-p filename)
+       (if filename
+	   (as-binary-input-file (insert-file-contents filename)))
+       (when (and remove-final-newline
+		  (> (buffer-size) 0)
+		  (= (char-after (1- (point-max))) ?\n))
+	 (goto-char (point-max))
+	 (delete-backward-char 1))
+       (buffer-string)))))
+
+(defun elmo-save-string (string filename)
+  (if string
+      (elmo-set-work-buf
+       (as-binary-output-file
+	(insert string)
+	(write-region (point-min) (point-max) 
+		      filename nil 'no-msg))
+       )))
+
+(defun elmo-max-of-list (nlist)
+  (let ((l nlist) 
+	(max-num 0))
+    (while l
+      (if (< max-num (car l))
+	  (setq max-num (car l)))
+      (setq l (cdr l)))
+    max-num))
+
+(defun elmo-concat-path (path filename)
+  (if (not (string= path ""))
+      (if (string= elmo-path-sep (substring path (- (length path) 1)))
+	  (concat path filename)
+	(concat path elmo-path-sep filename))
+    filename))
+
+(defvar elmo-passwd-alist nil)
+
+(defun elmo-passwd-alist-load ()
+  (save-excursion
+    (let ((filename (expand-file-name elmo-passwd-alist-file-name
+                                      elmo-msgdb-dir))
+          (tmp-buffer (get-buffer-create " *elmo-passwd-alist-tmp*"))
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+          insert-file-contents-post-hook 
+          ret-val)
+      (if (not (file-readable-p filename))
+          ()
+        (set-buffer tmp-buffer)
+        (insert-file-contents filename)
+        (setq ret-val
+              (condition-case nil
+                  (read (current-buffer)) 
+                (error nil nil))))
+      (kill-buffer tmp-buffer)
+      ret-val)))
+
+(defun elmo-passwd-alist-save ()
+  "Save password into file."
+  (interactive)
+  (save-excursion
+    (let ((filename (expand-file-name elmo-passwd-alist-file-name
+                                      elmo-msgdb-dir))
+          (tmp-buffer (get-buffer-create " *elmo-passwd-alist-tmp*")))
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (prin1 elmo-passwd-alist tmp-buffer)
+      (princ "\n" tmp-buffer)
+;      (if (and (file-exists-p filename)
+;             (not (equal 384 (file-modes filename))))
+;        (error "%s is not safe.chmod 600 %s!" filename filename))
+      (if (file-writable-p filename)
+         (progn
+           (write-region (point-min) (point-max) 
+                         filename nil 'no-msg)
+           (set-file-modes filename 384))
+        (message (format "%s is not writable." filename)))
+      (kill-buffer tmp-buffer))))
+
+(defun elmo-get-passwd (user-at-host)
+  "Get password from password pool."
+  (let (data pass)
+    (if (not elmo-passwd-alist)
+	(setq elmo-passwd-alist (elmo-passwd-alist-load)))
+    (setq data (assoc user-at-host elmo-passwd-alist))
+    (if data
+	(elmo-base64-decode-string (cdr data))
+      (setq pass (elmo-read-passwd (format "Password for %s: " 
+					   user-at-host) t))
+      (setq elmo-passwd-alist
+	    (append elmo-passwd-alist
+		    (list (cons user-at-host 
+				(elmo-base64-encode-string pass)))))
+      pass)))
+
+(defun elmo-remove-passwd (user-at-host)
+  "Remove password from password pool (for failure)."
+  (setq elmo-passwd-alist
+	(delete (assoc user-at-host elmo-passwd-alist)
+		elmo-passwd-alist
+		)))
+
+(defmacro elmo-read-char-exclusive ()
+  (cond ((featurep 'xemacs)
+         '(let ((table (quote ((backspace . ?\C-h) (delete . ?\C-?)
+                               (left . ?\C-h))))
+                event key)
+            (while (not
+                    (and
+                     (key-press-event-p (setq event (next-command-event)))
+                     (setq key (or (event-to-character event)
+                                   (cdr (assq (event-key event) table)))))))
+            key))
+        ((fboundp 'read-char-exclusive)
+         '(read-char-exclusive))
+        (t
+         '(read-char))))
+
+(defun elmo-read-passwd (prompt &optional stars)
+  "Read a single line of text from user without echoing, and return it."
+  (let ((ans "")
+	(c 0)
+	(echo-keystrokes 0)
+	(cursor-in-echo-area t)
+	(log-message-max-size 0)
+	message-log-max	done msg truncate)
+    (while (not done)
+      (if (or (not stars) (string= "" ans))
+	  (setq msg prompt)
+	(setq msg (concat prompt (make-string (length ans) ?.)))
+	(setq truncate
+	      (1+ (- (length msg) (window-width (minibuffer-window)))))
+	(and (> truncate 0)
+	     (setq msg (concat "$" (substring msg (1+ truncate))))))
+      (message "%s" msg)
+      (setq c (elmo-read-char-exclusive))
+      (cond ((= c ?\C-g)
+	     (setq quit-flag t
+		   done t))
+	    ((or (= c ?\r) (= c ?\n) (= c ?\e))
+	     (setq done t))
+	    ((= c ?\C-u)
+	     (setq ans ""))
+	    ((and (/= c ?\b) (/= c ?\177))
+	     (setq ans (concat ans (char-to-string c))))
+	    ((> (length ans) 0)
+	     (setq ans (substring ans 0 -1)))))
+    (if quit-flag
+	(prog1
+	    (setq quit-flag nil)
+	  (message "Quit")
+	  (beep t))
+      (message "")
+      ans)))
+
+;; from subr.el
+(defun elmo-replace-in-string (str regexp newtext &optional literal)
+  "Replaces all matches in STR for REGEXP with NEWTEXT string,
+ and returns the new string.
+Optional LITERAL non-nil means do a literal replacement.
+Otherwise treat \\ in NEWTEXT string as special:
+  \\& means substitute original matched text,
+  \\N means substitute match for \(...\) number N,
+  \\\\ means insert one \\."
+  (let ((rtn-str "")
+	(start 0)
+	(special)
+	match prev-start)
+    (while (setq match (string-match regexp str start))
+      (setq prev-start start
+	    start (match-end 0)
+	    rtn-str
+	    (concat
+	      rtn-str
+	      (substring str prev-start match)
+	      (cond (literal newtext)
+		    (t (mapconcat
+			(function
+			 (lambda (c)
+			   (if special
+			       (progn
+				 (setq special nil)
+				 (cond ((eq c ?\\) "\\")
+				       ((eq c ?&)
+					(elmo-match-string 0 str))
+				       ((and (>= c ?0) (<= c ?9))
+					(if (> c (+ ?0 (length
+							(match-data))))
+					; Invalid match num
+					    (error "Invalid match num: %c" c)
+					  (setq c (- c ?0))
+					  (elmo-match-string c str)))
+				       (t (char-to-string c))))
+			     (if (eq c ?\\) (progn (setq special t) nil)
+			       (char-to-string c)))))
+			newtext ""))))))
+    (concat rtn-str (substring str start))))
+
+(defun elmo-string-to-list (string)
+  (elmo-set-work-buf
+   (insert string)
+   (goto-char (point-min))
+   (insert "(")
+   (goto-char (point-max))
+   (insert ")")
+   (goto-char (point-min))
+   (read (current-buffer))))
+
+(defun elmo-plug-on-by-servers (alist &optional servers)
+  (let ((server-list (or servers elmo-plug-on-servers)))
+    (catch 'plugged
+      (while server-list
+	(if (elmo-plugged-p (car server-list))
+	    (throw 'plugged t))
+	(setq server-list (cdr server-list))))))
+
+(defun elmo-plug-on-by-exclude-servers (alist &optional servers)
+  (let ((server-list (or servers elmo-plug-on-exclude-servers))
+	server other-servers)
+    (while alist
+      (when (and (not (member (setq server (caaar alist)) server-list))
+		 (not (member server other-servers)))
+	(push server other-servers))
+      (setq alist (cdr alist)))
+    (elmo-plug-on-by-servers alist other-servers)))
+
+(defun elmo-plugged-p (&optional server port alist label-exp)
+  (let ((alist (or alist elmo-plugged-alist))
+	plugged-info)
+    (cond ((and (not port) (not server))
+	   (cond ((eq elmo-plugged-condition 'one)
+		  (catch 'plugged
+		    (while alist
+		      (if (nth 2 (car alist))
+			  (throw 'plugged t))
+		      (setq alist (cdr alist)))))
+		 ((eq elmo-plugged-condition 'all)
+		  (catch 'plugged
+		    (while alist
+		      (if (not (nth 2 (car alist)))
+			  (throw 'plugged nil))
+		      (setq alist (cdr alist)))
+		    t))
+		 ((functionp elmo-plugged-condition)
+		  (funcall elmo-plugged-condition alist))
+		 (t ;; independent
+		  elmo-plugged)))
+	  ((not port) ;; server
+	   (catch 'plugged
+	     (while alist
+	       (when (string= server (caaar alist))
+		 (if (nth 2 (car alist))
+		     (throw 'plugged t)))
+	       (setq alist (cdr alist)))))
+	  (t
+	   (setq plugged-info (assoc (cons server port) alist))
+	   (if (not plugged-info)
+	       ;; add elmo-plugged-alist automatically
+	       (progn
+		 (elmo-set-plugged elmo-plugged server port nil nil label-exp)
+		 elmo-plugged)
+	     (if (and elmo-auto-change-plugged
+		      (> elmo-auto-change-plugged 0)
+		      (nth 3 plugged-info)  ;; time
+		      (elmo-time-expire (nth 3 plugged-info)
+					elmo-auto-change-plugged))
+		 t
+	       (nth 2 plugged-info)))))))
+
+(defun elmo-set-plugged (plugged &optional server port time
+				 alist label-exp add)
+  (let ((alist (or alist elmo-plugged-alist))
+	label plugged-info)
+    (cond ((and (not port) (not server))
+	   (setq elmo-plugged plugged)
+	   ;; set plugged all element of elmo-plugged-alist.
+	   (while alist
+	     (setcdr (cdar alist) (list plugged time))
+	     (setq alist (cdr alist))))
+	  ((not port)
+	   ;; set plugged all port of server
+	   (while alist
+	     (when (string= server (caaar alist))
+	       (setcdr (cdar alist) (list plugged time)))
+	     (setq alist (cdr alist))))
+	  (t
+	   ;; set plugged one port of server
+	   (setq plugged-info (assoc (cons server port) alist))
+	   (setq label (if label-exp
+			   (eval label-exp)
+			 (nth 1 plugged-info)))
+	   (if plugged-info
+	       ;; if add is non-nil, don't reset plug state.
+	       (unless add
+		 (setcdr plugged-info (list label plugged time)))
+	     (setq alist
+		   (setq elmo-plugged-alist
+			 (nconc elmo-plugged-alist
+				(list
+				 (list (cons server port) label plugged time))))))))
+    alist))
+
+(defun elmo-delete-plugged (&optional server port alist)
+  (let* ((alist (or alist elmo-plugged-alist))
+	 (alist2 alist))
+    (cond ((and (not port) (not server))    
+	   (setq alist nil))
+	  ((not port)
+	   ;; delete plugged all port of server
+	   (while alist2
+	     (when (string= server (caaar alist2))
+	       (setq alist (delete (car alist2) alist)))
+	     (setq alist2 (cdr alist2))))
+	  (t
+	   ;; delete plugged one port of server
+	   (setq alist
+		 (delete (assoc (cons server port) alist)) alist)))
+    alist))
+
+(defun elmo-disk-usage (path)
+  "Get disk usage (bytes) in PATH."
+  (let ((file-attr 
+	 (condition-case () (file-attributes path) (error nil))))
+    (if file-attr
+	(if (nth 0 file-attr) ; directory
+	    (let ((files (condition-case () 
+			     (directory-files path t "^[^\\.]")
+			   (error nil)))
+		  (result 0.0))
+	      ;; (result (nth 7 file-attr))) ... directory size
+	      (while files
+		(setq result (+ result (or (elmo-disk-usage (car files)) 0)))
+		(setq files (cdr files)))
+	      result)
+	  (float (nth 7 file-attr))))))
+
+(defun elmo-get-last-accessed-time (path &optional dir)
+  "Returns last accessed time."
+  (let ((last-accessed (nth 4 (file-attributes (or (and dir
+							(expand-file-name
+							 path dir))
+						   path)))))
+    (if last-accessed
+	(setq last-accessed (+ (* (nth 0 last-accessed)
+				  (float 65536)) (nth 1 last-accessed)))
+      0)))
+
+(defun elmo-get-last-modification-time (path &optional dir)
+  "Returns last accessed time."
+  (let ((last-modified (nth 5 (file-attributes (or (and dir
+							(expand-file-name
+							 path dir))
+						   path)))))
+    (setq last-modified (+ (* (nth 0 last-modified)
+			      (float 65536)) (nth 1 last-modified)))))
+
+(defun elmo-make-directory (path)
+  "create directory recursively."
+  (let ((parent (directory-file-name (file-name-directory path))))
+    (if (null (file-directory-p parent))
+	(elmo-make-directory parent))
+    (make-directory path)
+    (if (string= path (expand-file-name elmo-msgdb-dir))
+	(set-file-modes path 448) ; 700
+      )))
+
+(defun elmo-delete-directory (path &optional no-hierarchy)
+  "delete directory recursively."
+  (let ((dirent (directory-files path))
+	relpath abspath hierarchy)
+    (while dirent
+      (setq relpath (car dirent)
+	    dirent (cdr dirent)
+	    abspath (expand-file-name relpath path))
+      (when (not (string-match "^\\.\\.?$" relpath))
+	(if (eq (nth 0 (file-attributes abspath)) t)
+	    (if no-hierarchy
+		(setq hierarchy t)
+	      (elmo-delete-directory abspath no-hierarchy))
+	  (delete-file abspath))))
+    (unless hierarchy
+      (delete-directory path))))
+
+(defun elmo-list-filter (l1 l2)
+  "L1 is filter."
+  (if (eq l1 t)
+      ;; t means filter all.
+      nil
+    (if l1
+	(elmo-delete-if (lambda (x) (not (memq x l1))) l2)
+      ;; filter is nil
+      l2)))
+
+(defun elmo-folder-local-p (folder)
+  "Return whether FOLDER is a local folder or not."
+  (let ((type (elmo-folder-get-type folder)))
+    (memq type '(localdir localnews archive maildir internal cache))))
+
+(defun elmo-folder-writable-p (folder)
+  (let ((type (elmo-folder-get-type folder)))
+    (memq type '(imap4 localdir archive))))
+
+(defun elmo-multi-get-intlist-list (numlist &optional as-is)
+  (let ((numbers (sort numlist '<))
+	(cur-number 0)
+	one-list int-list-list)
+    (while numbers
+      (setq cur-number (+ cur-number 1))
+      (setq one-list nil)
+      (while (and numbers 
+		  (eq 0
+		      (/ (- (car numbers)
+			    (* elmo-multi-divide-number cur-number))
+			 elmo-multi-divide-number)))
+	(setq one-list (nconc
+			one-list 
+			(list 
+			 (if as-is
+			     (car numbers)
+			   (% (car numbers)
+			      (* elmo-multi-divide-number cur-number))))))
+	(setq numbers (cdr numbers)))
+      (setq int-list-list (nconc int-list-list (list one-list))))
+    int-list-list))
+
+(defsubst elmo-list-delete-if-smaller (list number)
+  (let ((ret-val (copy-sequence list)))
+    (while list
+      (if (< (car list) number)
+	  (setq ret-val (delq (car list) ret-val)))
+      (setq list (cdr list)))
+    ret-val))
+
+(defun elmo-list-diff (list1 list2 &optional mes)
+  (if mes 
+      (message mes))
+  (let ((clist1 (copy-sequence list1))
+	(clist2 (copy-sequence list2)))
+    (while list2
+      (setq clist1 (delq (car list2) clist1))
+      (setq list2 (cdr list2)))
+    (while list1
+      (setq clist2 (delq (car list1) clist2))
+      (setq list1 (cdr list1)))
+    (if mes
+	(message (concat mes "done.")))
+    (list clist1 clist2)))
+
+(defun elmo-list-bigger-diff (list1 list2 &optional mes)
+  "Returns a list (- +). + is bigger than max of LIST1, in LIST2"
+  (if (null list2)
+      (cons list1  nil)
+    (let* ((l1 list1)
+	   (l2 list2)
+	   (max-of-l2 (or (nth (max 0 (1- (length l2))) l2) 0))
+	   diff1 num i percent
+	   )
+      (setq i 0)
+      (setq num (+ (length l1)))
+      (while l1
+	(if (memq (car l1) l2)
+	    (if (eq (car l1) (car l2))
+		(setq l2 (cdr l2))
+	      (delq (car l1) l2))
+	  (if (> (car l1) max-of-l2)
+	      (setq diff1 (nconc diff1 (list (car l1))))))
+	(if mes
+	    (progn
+	      (setq i (+ i 1))
+	      (setq percent (/ (* i 100) num))
+	      (if (eq (% percent 5) 0)
+		  (elmo-display-progress
+		   'elmo-list-bigger-diff "%s%d%%" percent mes))))
+	(setq l1 (cdr l1)))
+      (cons diff1 (list l2)))))
+
+(defun elmo-multi-list-bigger-diff (list1 list2 &optional mes)
+  (let ((list1-list (elmo-multi-get-intlist-list list1 t))
+	(list2-list (elmo-multi-get-intlist-list list2 t))
+	result
+	dels news)
+    (while (or list1-list list2-list)
+      (setq result (elmo-list-bigger-diff (car list1-list) (car list2-list) 
+					  mes))
+      (setq dels (append dels (car result)))
+      (setq news (append news (cadr result)))
+      (setq list1-list (cdr list1-list))
+      (setq list2-list (cdr list2-list)))
+    (cons dels (list news))))
+
+(defvar elmo-imap4-name-space-regexp-list nil)
+(defun elmo-imap4-identical-name-space-p (fld1 fld2)
+  ;; only on UW?
+  (if (or (eq (string-to-char fld1) ?#)
+	  (eq (string-to-char fld2) ?#))
+      (string= (car (split-string fld1 "/"))
+	       (car (split-string fld2 "/")))
+    t))
+
+(defun elmo-folder-identical-system-p (folder1 folder2)
+  "folder1 and folder2 should be real folder (not virtual)."
+  (cond ((eq (elmo-folder-get-type folder1) 'imap4)
+	 (let ((spec1 (elmo-folder-get-spec folder1))
+	       (spec2 (elmo-folder-get-spec folder2)))
+	   (and (elmo-imap4-identical-name-space-p
+		 (nth 1 spec1) (nth 1 spec2))
+		(string= (elmo-imap4-spec-hostname spec1)
+			 (elmo-imap4-spec-hostname spec2))    ; hostname
+		(string= (elmo-imap4-spec-username spec1)
+			 (elmo-imap4-spec-username spec2))))) ; username
+	(t
+	 (elmo-folder-direct-copy-p folder1 folder2))))
+
+(defconst elmo-folder-direct-copy-alist
+  '((localdir  . (localdir localnews archive))
+    (maildir   . (maildir  localdir localnews archive))
+    (localnews . (localdir localnews archive))
+    (archive   . (localdir localnews archive))
+    (cache     . (localdir localnews archive))))
+
+(defun elmo-folder-direct-copy-p (src-folder dst-folder)
+  (let ((src-type (car (elmo-folder-get-spec src-folder)))
+	(dst-type (car (elmo-folder-get-spec dst-folder)))
+	dst-copy-type)
+    (and (setq dst-copy-type
+	       (cdr (assq src-type elmo-folder-direct-copy-alist)))
+	 (memq dst-type dst-copy-type))))
+
+(defmacro elmo-filter-type (filter)
+  (` (aref (, filter) 0)))
+
+(defmacro elmo-filter-key (filter)
+  (` (aref (, filter) 1)))
+
+(defmacro elmo-filter-value (filter)
+  (` (aref (, filter) 2)))
+
+(defsubst elmo-buffer-field-condition-match (condition)
+  (let (term)
+    (catch 'done
+      (while condition
+	(goto-char (point-min))
+	(setq term (car condition))
+	(cond 
+	 ((and (eq (elmo-filter-type term) 'date)
+	       (string= (elmo-filter-key term) "since"))
+	  (let ((date (elmo-date-get-datevec (elmo-filter-value term))))
+	    (if (string<
+		 (timezone-make-sortable-date (aref date 0) 
+					      (aref date 1)
+					      (aref date 2)
+					      (timezone-make-time-string
+					       (aref date 3) 
+					       (aref date 4) 
+					       (aref date 5)))
+		 (timezone-make-date-sortable (std11-field-body "date")))
+		(throw 'done t))))
+	 ((and (eq (elmo-filter-type term) 'date)
+	       (string= (elmo-filter-key term) "before"))
+	  (let ((date (elmo-date-get-datevec (elmo-filter-value term))))
+	    (if (string<
+		 (timezone-make-date-sortable (std11-field-body "date"))
+		 (timezone-make-sortable-date (aref date 0) 
+					      (aref date 1)
+					      (aref date 2)
+					      (timezone-make-time-string
+					       (aref date 3) 
+					       (aref date 4) 
+					       (aref date 5))))
+		(throw 'done t))))
+	 ((eq (elmo-filter-type term) 'match)
+	  (if (string= "body" (elmo-filter-key term))
+	      (progn
+		(re-search-forward "^$" nil t)	   ; goto body
+		(if (search-forward (elmo-filter-value term) nil t)
+		    (throw 'done t)))
+	    (let ((fval (eword-decode-string
+			 (or (std11-field-body (elmo-filter-key term)) ""))))
+	      (if (and fval (string-match (elmo-filter-value term)
+					  fval))
+		  (throw 'done t)))))
+	 ((eq (elmo-filter-type term) 'unmatch)
+	  (if (string= "body" (elmo-filter-key term))
+	      (progn
+		(re-search-forward "^$" nil t)	   ; goto body
+		(if (not (search-forward (elmo-filter-value term) nil t))
+		    (throw 'done t)))
+	    (let ((fval (eword-decode-string
+			 (or (std11-field-body (elmo-filter-key term)) ""))))
+	      (if fval
+		  (if (not (string-match (elmo-filter-value term)
+					 fval))
+		      (throw 'done t))
+		(throw 'done t)))))) ; OK?
+	(setq condition (cdr condition)))
+      (throw 'done nil))))
+
+(defsubst elmo-file-field-condition-match (file condition)
+  (elmo-set-work-buf
+   (as-binary-input-file
+    (insert-file-contents file))
+   (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+   (decode-mime-charset-region (point-min)(point-max) elmo-mime-charset)
+   (elmo-buffer-field-condition-match condition)))
+
+(defun elmo-cross-device-link-error-p (err)
+  (let ((errobj err)
+	cur)
+    (catch 'done
+      (while errobj
+	(if (and (stringp (setq cur (car errobj)))
+		 (or (string-match "cross-device" cur)
+		     (string-match "operation not supported" cur)))
+	    (throw 'done t))
+	(setq errobj (cdr errobj)))
+      nil)))
+
+(defmacro elmo-get-hash-val (string hashtable)
+  (let ((sym (list 'intern-soft string hashtable)))
+    (list 'if (list 'boundp sym)
+       (list 'symbol-value sym))))
+
+(defmacro elmo-set-hash-val (string value hashtable)
+  (list 'set (list 'intern string hashtable) value))
+
+;; Make a hash table (default and minimum size is 1024).
+(defun elmo-make-hash (&optional hashsize)
+  (make-vector (if hashsize (max (elmo-create-hash-size hashsize) 1024) 1024) 0))
+
+(defsubst elmo-mime-string (string)
+  "Normalize MIME encoded string."
+    (and string
+	 (let (str)
+	   (elmo-set-work-buf
+	    (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+	    (setq str (eword-decode-string
+		       (decode-mime-charset-string string elmo-mime-charset)))
+	    (setq str (encode-mime-charset-string str elmo-mime-charset))
+	    (elmo-set-buffer-multibyte nil)
+	    str))))
+
+(defsubst elmo-collect-field (beg end downcase-field-name)
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (let ((regexp (concat "\\(" std11-field-head-regexp "\\)[ \t]*"))
+	    dest name body)
+	(while (re-search-forward regexp nil t)
+	  (setq name (buffer-substring-no-properties
+		      (match-beginning 1)(1- (match-end 1))))
+	  (if downcase-field-name
+	      (setq name (downcase name)))
+	  (setq body (buffer-substring-no-properties
+		      (match-end 0) (std11-field-end)))
+	  (or (assoc name dest)
+	      (setq dest (cons (cons name body) dest))))
+	dest))))
+
+(defsubst elmo-collect-field-from-string (string downcase-field-name)
+  (with-temp-buffer
+    (insert string)
+    (goto-char (point-min))
+    (let ((regexp (concat "\\(" std11-field-head-regexp "\\)[ \t]*"))
+	  dest name body)
+      (while (re-search-forward regexp nil t)
+	(setq name (buffer-substring-no-properties
+		    (match-beginning 1)(1- (match-end 1))))
+	(if downcase-field-name
+	    (setq name (downcase name)))
+	(setq body (buffer-substring-no-properties
+		    (match-end 0) (std11-field-end)))
+	(or (assoc name dest)
+	    (setq dest (cons (cons name body) dest))))
+      dest)))
+
+(defun elmo-create-hash-size (min)
+  (let ((i 1))
+    (while (< i min)
+      (setq i (* 2 i)))
+    i))
+
+(defun elmo-safe-filename (folder)
+  (elmo-replace-in-string
+   (elmo-replace-in-string
+    (elmo-replace-in-string folder "/" " ")
+    ":" "__")
+   "|" "_or_"))
+
+(defvar elmo-msgid-replace-chars nil)
+
+(defsubst elmo-replace-msgid-as-filename (msgid)
+  "Replace message-id string as filename." 
+  (setq msgid (elmo-replace-in-string msgid " " "  "))
+  (if (null elmo-msgid-replace-chars)
+      (setq elmo-msgid-replace-chars 
+	    (regexp-quote (mapconcat 
+			   'car elmo-msgid-replace-string-alist ""))))
+  (while (string-match (concat "[" elmo-msgid-replace-chars "]")
+		       msgid)
+    (setq msgid (concat 
+		 (substring msgid 0 (match-beginning 0))
+		 (cdr (assoc 
+		       (substring msgid 
+				  (match-beginning 0) (match-end 0))
+		       elmo-msgid-replace-string-alist))
+		 (substring msgid (match-end 0)))))
+  msgid)
+
+(defsubst elmo-recover-msgid-from-filename (filename)
+  "Recover Message-ID from filename."
+  (let (tmp result)
+    (while (string-match " " filename)
+      (setq tmp (substring filename 
+			   (match-beginning 0)
+			   (+ (match-end 0) 1)))
+      (if (string= tmp "  ")
+	  (setq tmp " ")
+	(setq tmp (car (rassoc tmp 
+			       elmo-msgid-replace-string-alist))))
+      (setq result
+	    (concat result 
+		    (substring filename 0 (match-beginning 0))
+		    tmp))
+      (setq filename (substring filename (+ (match-end 0) 1))))
+    (concat result filename)))
+
+(defsubst elmo-copy-file (src dst)
+  (condition-case err
+      (elmo-add-name-to-file src dst t)
+    (error (if (elmo-cross-device-link-error-p err)
+	       (copy-file src dst t)
+	     (error "copy file failed")))))
+
+(defmacro elmo-buffer-exists-p (buffer)
+  (` (when (, buffer)
+       (funcall (if (stringp (, buffer)) 'get-buffer 'buffer-name)
+		(, buffer)))))
+
+(defmacro elmo-kill-buffer (buffer)
+  (` (when (elmo-buffer-exists-p (, buffer))
+       (kill-buffer (, buffer)))))
+
+(defun elmo-delete-lists (keys list)
+  "Delete all entries in LIST that equal to KEYS."
+  (while keys
+    (setq list (delete (car keys) list))
+    (setq keys (cdr keys)))
+  list)
+
+(defun elmo-delete-if (pred lst)
+  "Returns new list contains items which don't satisfy PRED in LST."
+  (let (result)
+    (while lst
+      (unless (funcall pred (car lst))
+	(setq result (nconc result (list (car lst)))))
+      (setq lst (cdr lst)))
+    result))
+
+(defun elmo-list-delete (list1 list2)
+  "Any element of list1 is deleted from list2."
+  (while list1
+    (setq list2 (delete (car list1) list2))
+    (setq list1 (cdr list1)))  
+  list2)
+
+(defun elmo-list-member (list1 list2)
+  "If any element of list1 is member of list2, returns t."
+  (catch 'done
+    (while list1
+      (if (member (car list1) list2)
+	  (throw 'done t))
+      (setq list1 (cdr list1)))))
+
+(defun elmo-count-matches (regexp beg end)
+  (let ((count 0))
+    (save-excursion
+      (goto-char beg)
+      (while (re-search-forward regexp end t)
+	(setq count (1+ count)))
+      count)))
+
+(if (fboundp 'display-error)
+    (defalias 'elmo-display-error 'display-error)
+  (defun elmo-display-error (error-object stream)
+    "a tiny function to display error-object to the stream."
+    (let ((first t)
+	  (errobj error-object)
+	  err-mes)
+      (while errobj
+	(setq err-mes (concat err-mes (format 
+				       (if (stringp (car errobj))
+					   "%s"
+					 (if (boundp 'nemacs-version)
+					     "%s"
+					   "%S")) (car errobj))))
+	(setq errobj (cdr errobj))
+	(if errobj (setq err-mes (concat err-mes (if first ": " ", "))))
+	(setq first nil))
+      (princ err-mes stream))))
+
+(if (fboundp 'lprogress-display)
+    (defalias 'elmo-display-progress 'lprogress-display)
+  (defun elmo-display-progress (label format &optional value &rest args)
+    "Print a progress message."
+    (if (and (null format) (null args))
+	(message nil)
+      (apply (function message) (concat format " %d%%")
+	     (nconc args (list value))))))
+
+(defun elmo-time-expire (before-time diff-time)
+  (let* ((current (current-time))
+	 (rest (when (< (nth 1 current) (nth 1 before-time))
+		 (expt 2 16)))
+	 diff)
+    (setq diff
+	  (list (- (+ (car current) (if rest -1 0)) (car before-time))
+		(- (+ (or rest 0) (nth 1 current)) (nth 1 before-time))))
+    (and (eq (car diff) 0)
+	 (< diff-time (nth 1 diff)))))
+
+(defun elmo-open-network-stream (name buffer host service ssl)
+  (let ((auto-plugged (and elmo-auto-change-plugged
+			   (> elmo-auto-change-plugged 0)))
+	process)
+    (if (eq ssl 'starttls)
+	(require 'starttls)
+      (if ssl (require 'ssl)))
+    (condition-case err
+ 	(let (process-connection-type)
+	  (setq process
+		(if (eq ssl 'starttls)
+		    (starttls-open-stream name buffer host service)
+		  (if ssl
+		      (open-ssl-stream name buffer host service)
+		    (open-network-stream name buffer host service)))))
+      (error
+       (when auto-plugged
+	 (elmo-set-plugged nil host service (current-time))
+	 (message "Auto plugged off at %s:%d" host service)
+	 (sit-for 1))
+       (signal (car err) (cdr err))))
+    (when process
+      (process-kill-without-query process)
+      (when auto-plugged
+	(elmo-set-plugged t host service))
+      process)))
+
+(if (fboundp 'std11-fetch-field)
+    (defalias 'elmo-field-body 'std11-fetch-field) ;;no narrow-to-region
+  (defalias 'elmo-field-body 'std11-field-body))
+
+(defmacro elmo-string (string)
+  "String without text property"
+  (` (let ((obj (copy-sequence (, string))))
+       (set-text-properties 0 (length obj) nil obj)
+       obj)))
+
+(defun elmo-y-or-n-p (prompt &optional auto default)
+  "Same as `y-or-n-p'.
+But if optional argument AUTO is non-nil, DEFAULT is returned."
+  (if auto
+      default
+    (y-or-n-p prompt)))
+
+(defun elmo-string-member (string slist)
+  "Returns t if STRING is a member of the SLIST."
+  (catch 'found
+    (while slist
+      (if (and (stringp (car slist))
+	       (string= string (car slist)))
+	  (throw 'found t))
+      (setq slist (cdr slist)))))
+
+(defun elmo-string-match-member (str list &optional case-ignore)
+  (let ((case-fold-search case-ignore))
+    (catch 'member
+      (while list
+	(if (string-match (car list) str)
+	    (throw 'member (car list)))
+	(setq list (cdr list))))))
+
+(defsubst elmo-string-delete-match (string pos)
+  (concat (substring string
+		     0 (match-beginning pos))
+	  (substring string
+		     (match-end pos)
+		     (length string))))
+
+(defun elmo-string-match-assoc (key alist &optional case-ignore)
+  (let ((case-fold-search case-ignore)
+	a)
+    (catch 'loop
+      (while alist
+	(setq a (car alist))
+	(if (and (consp a)
+		 (stringp (car a))
+		 (string-match key (car a)))
+	    (throw 'loop a))
+	(setq alist (cdr alist))))))
+
+(defun elmo-string-matched-assoc (key alist &optional case-ignore)
+  (let ((case-fold-search case-ignore)
+	a)
+    (catch 'loop
+      (while alist
+	(setq a (car alist))
+	(if (and (consp a)
+		 (stringp (car a))
+		 (string-match (car a) key))
+	    (throw 'loop a))
+	(setq alist (cdr alist))))))
+
+(defun elmo-string-assoc (key alist)
+  (let (a)
+    (catch 'loop
+      (while alist
+	(setq a (car alist))
+	(if (and (consp a)
+		 (stringp (car a))
+		 (string= key (car a)))
+	    (throw 'loop a))
+	(setq alist (cdr alist))))))
+
+(defun elmo-string-rassoc (key alist)
+  (let (a)
+    (catch 'loop
+      (while alist
+	(setq a (car alist))
+	(if (and (consp a)
+		 (stringp (cdr a))
+		 (string= key (cdr a)))
+	    (throw 'loop a))
+	(setq alist (cdr alist))))))
+
+(provide 'elmo-util)
+
+;;; elmo-util.el ends here
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
new file mode 100644
index 0000000..43af0ce
--- /dev/null
+++ b/elmo/elmo-vars.el
@@ -0,0 +1,330 @@
+;;; elmo-vars.el -- User variables for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-24 14:46:43 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'poe)
+
+(eval-when-compile
+  (defun-maybe dynamic-link (a))
+  (defun-maybe dynamic-call (a b)))
+
+;; Version info.
+(defconst elmo-version "1.1.1")
+(defconst elmo-appname "ELMO")
+
+(defun elmo-version ()
+  (format "%s/%s" elmo-appname elmo-version))
+
+;; IMAP4
+(defvar elmo-default-imap4-mailbox "inbox"
+  "*Default IMAP4 mailbox.")
+(defvar elmo-default-imap4-server "localhost"
+  "*Default IMAP4 server.")
+(defvar elmo-default-imap4-authenticate-type "auth"
+  "*Default Authentication type for IMAP4.") ; "auth" or "login"
+(defvar elmo-default-imap4-user (or (getenv "USER") 
+				    (getenv "LOGNAME") 
+				    (user-login-name))
+  "*Default username for IMAP4")
+(defvar elmo-default-imap4-port 143 
+  "*Default Port number of IMAP.")
+(defvar elmo-default-imap4-ssl nil
+  "*Non-nil forces using SSL by default.")
+
+;; POP3
+(defvar elmo-default-pop3-user (or (getenv "USER") 
+				   (getenv "LOGNAME") 
+				   (user-login-name))
+  "*Default username for POP3")
+(defvar elmo-default-pop3-server  "localhost"
+  "*Default POP3 server.")
+(defvar elmo-default-pop3-authenticate-type "user"
+  "*Default Authentication type for POP3") ; "apop" or "user"
+(defvar elmo-default-pop3-port 110
+  "*Default POP3 port.")
+(defvar elmo-default-pop3-ssl nil
+  "*Non-nil forces using SSL by default.")
+
+;; NNTP
+(defvar elmo-default-nntp-server  "localhost"
+  "*Default NNTP server.")
+(defvar elmo-default-nntp-user nil
+  "*Default User of NNTP. nil means no user authentication.")
+(defvar elmo-default-nntp-port 119 
+  "*Default Port number of NNTP")
+(defvar elmo-default-nntp-ssl nil
+  "*Non-nil forces using SSL by default.")
+
+(defvar elmo-localdir-folder-path "~/Mail"
+  "*Local mail folder path.")
+(defvar elmo-localnews-folder-path "~/News"
+  "*Local news folder path.")
+(defvar elmo-maildir-folder-path "~/Maildir"
+  "*Maildir folder path.")
+(defvar elmo-maildir-list '("\\+~/Maildir")
+  "*All Folders that match this list will be treated as Maildir.
+Each elements are regexp of folder name (This is obsolete).")
+(defvar elmo-msgdb-dir "~/.elmo"
+  "*ELMO Message Database path.")
+(defvar elmo-passwd-alist-file-name "passwd"
+  "*ELMO Password filename.")
+(defvar elmo-warning-threshold 30000
+  "*Display warning when the bytes of message exceeds this value.")
+(defvar elmo-msg-appended-hook nil
+  "A hook called when message is appended to database.")
+(defvar elmo-msg-deleted-hook nil
+  "A hook called when message is deleted from database")
+(defvar elmo-nntp-post-pre-hook nil
+  "A hook called just before the nntp posting.")
+(defvar elmo-lang "ja"
+  "Language for displayed messages.")
+
+(defvar elmo-mime-charset 'iso-2022-jp)
+(defvar elmo-search-mime-charset 'iso-2022-jp)
+
+(defvar elmo-msgdb-mark-filename "mark"
+  "Mark database.")
+(defvar elmo-msgdb-overview-filename "overview"
+  "Overview database.")
+(defvar elmo-msgdb-number-filename "number"
+  "Message number <=> Message-ID database.")
+(defvar elmo-msgdb-location-filename "location"
+  "Message number <=> Actual location symbol.")
+(defvar elmo-msgdb-seen-filename "seen"
+  "Seen message list for append.")
+(defvar elmo-msgdb-killed-filename "killed"
+  "Deleted messages... contains elmo-killed-msgs-list.")
+(defvar elmo-msgdb-validity-filename "validity")
+(defvar elmo-msgdb-flist-filename "flist"
+  "Folder list cache (for access folder).")
+(defvar elmo-msgdb-finfo-filename "finfo"
+  "Folder information cache...list of '(filename . '(new unread all)).")
+(defvar elmo-msgdb-append-list-filename "append"
+  "Appended messages...Structure is same as number-alist. 
+For disconnected operations.")
+(defvar elmo-msgdb-resume-list-filename "resume"
+  "Resumed messages. For disconnected operations.")
+(defvar elmo-msgdb-lock-list-filename "lock"
+  "Locked messages...list of message-id. 
+For disconnected operations.")
+(defvar elmo-msgdb-global-mark-filename "global-mark"
+  "Alist of global mark .")
+(defvar elmo-lost+found-folder "+lost+found"
+  "Lost and found.")
+(defvar elmo-crosspost-alist-filename "crosspost-alist"
+  "Alist of crosspost messages.")
+
+(defvar elmo-use-server-diff t
+  "Non-nil forces to get unread message information on server.")
+
+(defvar elmo-imap4-disuse-server-flag-mailbox-regexp "^#mh" ; UW imapd
+  "If mailbox name matches this value, flags on server are not used except
+ \Delete flag.")
+
+(defvar elmo-msgdb-extra-fields nil
+  "Extra fields for msgdb.")
+
+(defvar elmo-queue-filename "queue"
+  "*IMAP pending event queue is saved in this file.")
+(defvar elmo-enable-disconnected-operation nil
+  "*Enable disconnected operations.")
+
+(defvar elmo-imap4-overview-fetch-chop-length 200
+  "*Number of overviews to fetch in one request in imap4.")
+(defvar elmo-nntp-overview-fetch-chop-length 200
+ "*Number of overviews to fetch in one request in nntp.") 
+(defvar elmo-localdir-header-chop-length 2048
+  "*Number of bytes to get header in one reading from file.")
+(defvar elmo-imap4-force-login nil
+  "*Non-nil forces to try 'login' if there is no 'auth' capability in imapd.")
+(defvar elmo-imap4-use-select-to-update-status nil
+  "*Some imapd have to send select command to update status.
+(ex. UW imapd 4.5-BETA?).  For these imapd, you must set this variable t.")
+
+(defvar elmo-imap4-use-modified-utf7 nil
+  "*Use mofidied UTF-7 (rfc2060) encoding for IMAP4 folder name.")
+
+(defvar elmo-auto-change-plugged 600
+  "*Time to expire change plugged state automatically,
+as the number of seconds. Don't change plugged state automatically if nil.")
+
+(defvar elmo-plugged-condition 'one
+  "*The condition for `elmo-plugged' becomes on.
+If `all', when all port is on. If `one', when even one port is on.
+If `independent', independent port plugged.
+If function, return value of function.")
+
+(defvar elmo-plug-on-servers nil)
+
+(defvar elmo-plug-on-exclude-servers
+  (list "localhost"
+	(system-name)
+	(and (string-match "[^.]+" (system-name))
+	     (substring (system-name) 0 (match-end 0)))))
+
+(defvar elmo-plugged-alist nil)
+
+(defvar elmo-dop-flush-confirm t
+  "*Flush disconnected operations queue with confirmation.")
+
+(defvar elmo-path-sep "/"
+  "*Path separator.")
+(defvar elmo-plugged t)
+(defvar elmo-use-semi nil)
+(defvar elmo-no-subject "(No Subject in original.)"
+  "*A string used when no subject field exists.")
+(defvar elmo-no-from "nobody@nowhere?"
+  "*A string used when no from field exists.")
+
+(defvar elmo-multi-divide-number 100000
+  "*Multi divider number.")
+
+;;; User variables for elmo-archive.
+(defvar elmo-archive-default-type 'zip
+  "*Default archiver type. The value must be a symbol.")
+
+;; database dynamic linking
+(defvar elmo-database-dl-module
+  (expand-file-name "database.so" exec-directory))
+
+(defvar elmo-database-dl-handle
+  (if (and (fboundp 'dynamic-link)
+	   (file-exists-p
+	    elmo-database-dl-module))
+      (if (fboundp 'open-database)
+	  t ;;
+	(dynamic-link elmo-database-dl-module))))
+
+(if (and elmo-database-dl-handle
+	 (integerp elmo-database-dl-handle))
+    (dynamic-call "emacs_database_init" elmo-database-dl-handle))
+
+(defvar elmo-use-database (or (featurep 'dbm)
+			      (featurep 'gnudbm)
+			      (featurep 'berkdb)
+			      (featurep 'berkeley-db)
+			      ;; static/dl-database
+			      (fboundp 'open-database)))
+
+(defvar elmo-date-match (not (boundp 'nemacs-version))
+  "Date match is available or not")
+
+(defconst elmo-spec-alist
+  '((?%  . imap4)
+    (?-  . nntp)
+    (?\+ . localdir)
+    (?\* . multi)
+    (?\/ . filter)
+    (?\$ . archive)
+    (?&  . pop3)
+    (?=  . localnews)
+    (?'  . internal)
+    (?|  . pipe)
+    (?.  . maildir)))
+
+(defvar elmo-debug nil)
+(defconst mmelmo-entity-buffer-name "*MMELMO-BUFFER*")
+
+(defvar elmo-folder-info-hashtb nil
+  "Array of folder database information '(max length new unread).")
+
+(defvar elmo-crosspost-message-alist nil
+  "List of crosspost message.")
+
+(defvar elmo-cache-expire-default-method "size"
+  "Default expiration method.")
+
+(defvar elmo-cache-expire-default-size 30000
+  "Cache expiration disk size (Kilo bytes). This must be float value.")
+
+(defvar elmo-cache-expire-default-age 50
+  "Cache expiration age (days).")
+(defvar elmo-cache-dirname "cache"
+  "Directory name for cache storage.")
+
+(defvar elmo-use-buffer-cache t
+  "Use buffer cache.")
+
+(defvar elmo-buffer-cache-size 10
+  "*Number of buffer for message cache.")
+
+(defvar elmo-pack-number-check-strict t
+  "Pack number strictly.")
+
+(defvar elmo-have-link-count
+  (not
+   ;; OS/2: EMX always returns the link count "1" :-(
+   (or (memq system-type '(OS/2 emx))
+       ;; Meadow seems to have pseudo link count.(suggestion by S.YAMAGUCHI)
+       (and (eq system-type 'windows-nt) (not (featurep 'meadow)))))
+  "Your file system has link count, or not.")
+
+(defvar elmo-weekday-name-en '["Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"])
+(defvar elmo-weekday-name-ja '["$BF|(B" "$B7n(B" "$B2P(B" "$B?e(B" "$BLZ(B" "$B6b(B" "$BEZ(B"])
+(defvar elmo-weekday-name-fr '["Dim" "Lun" "Mar" "Mer" "Jeu" "Ven" "Sam"])
+(defvar elmo-weekday-name-de '["Son" "Mon" "Die" "Mit" "Don" "Fre" "Sam"])
+
+(defvar elmo-msgid-replace-string-alist
+  '((":"  . " c")
+    ("*"  . " a")
+    ("?"  . " q")
+    ("<"  . " l")
+    (">"  . " g")
+    ("\"" . " d")
+    ("|"  . " p")
+    ("/"  . " s")
+    ("\\" . " b")))
+
+(defvar elmo-archive-use-cache nil
+  "Use cache in archive folder.")
+
+(defvar elmo-nntp-use-cache t
+  "Use cache in nntp folder.")
+
+(defvar elmo-imap4-use-cache t
+  "Use cache in imap4 folder.")
+
+(defvar elmo-pop3-use-cache t
+  "Use cache in pop3 folder.")
+
+(defvar elmo-localdir-lockfile-list nil)
+
+(defvar elmo-nntp-max-number-precedes-list-active nil
+  "If non-nil, max number of the msgdb is set as the max number of 
+'list active' (needed for inn 2.3 or later?). ")
+
+(defvar elmo-pop3-send-command-synchronously nil
+  "If non-nil, commands are send synchronously.
+If server doesn't accept asynchronous commands, this variable should be 
+set as non-nil.")
+
+(provide 'elmo-vars)
+
+;;; elmo-vars.el ends here
diff --git a/elmo/elmo2.el b/elmo/elmo2.el
new file mode 100644
index 0000000..79dc003
--- /dev/null
+++ b/elmo/elmo2.el
@@ -0,0 +1,1023 @@
+;;; elmo2.el -- ELMO main file (I don't remember why this is 2).
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:43:10 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-vars)
+(require 'elmo-msgdb)
+(require 'elmo-cache)
+(require 'elmo-util)
+(require 'elmo-dop)
+(provide 'elmo2)
+
+(eval-when-compile
+  (require 'elmo-localdir)
+  (require 'elmo-imap4)
+  (require 'elmo-nntp)
+  (require 'elmo-pop3)
+  (require 'elmo-pipe)
+;  (require 'elmo-multi)
+  (require 'elmo-filter)
+  (require 'elmo-archive)
+  ;(require 'elmo-cache2)
+  )
+
+(if (or (featurep 'dbm)
+	(featurep 'gnudbm)
+	(featurep 'berkdb)
+	(featurep 'berkeley-db))
+    (require 'elmo-database))
+
+(defun elmo-quit ()
+  (interactive)
+  (if (featurep 'elmo-imap4)
+      (elmo-imap4-flush-connection))
+  (if (featurep 'elmo-nntp)
+      (elmo-nntp-flush-connection))
+  (if (featurep 'elmo-pop3)
+      (elmo-pop3-flush-connection))
+  (if (get-buffer elmo-work-buf-name)
+      (kill-buffer elmo-work-buf-name))
+  )
+
+(defun elmo-cleanup-variables ()
+  (setq elmo-folder-info-hashtb nil
+	elmo-nntp-groups-hashtb nil
+	elmo-nntp-list-folders-cache nil
+	))
+
+;;  (cons of max . estimated message number) elmo-max-of-folder (folder)
+(defun elmo-max-of-folder (folder)
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "max-of-folder")
+    (elmo-dop-max-of-folder folder)))
+
+;;  list elmo-list-folder (folder)
+(defun elmo-list-folder (folder)
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "list-folder")
+    (elmo-dop-list-folder folder)))
+
+;;  list elmo-list-folders (folder)
+
+(defun elmo-list-folders (folder &optional hierarchy)
+  (elmo-call-func folder "list-folders" hierarchy))
+
+;; bool elmo-folder-exists-p (folder)
+(defun elmo-folder-exists-p (folder)
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "folder-exists-p")
+    (elmo-dop-folder-exists-p folder)))
+
+;; bool elmo-folder-creatable-p (folder)
+(defun elmo-folder-creatable-p (folder)
+  (elmo-call-func folder "folder-creatable-p"))
+
+;; bool elmo-create-folder (folder)
+;; create folder
+(defun elmo-create-folder (folder)
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "create-folder")
+    (elmo-dop-create-folder folder)))
+
+(defun elmo-delete-folder (folder)
+  (let ((type (elmo-folder-get-type folder)))
+    (if (or (not (memq type '(localdir localnews archive imap4 maildir)))
+	    (if (elmo-folder-plugged-p folder)
+		(elmo-call-func folder "delete-folder")
+	      (elmo-dop-delete-folder folder)))
+	;; If folder doesn't support delete folder, delete msgdb path only.
+	(elmo-msgdb-delete-path folder))))
+
+(defun elmo-rename-folder (old-folder new-folder)
+  (let ((old-type (elmo-folder-get-type old-folder))
+	(new-type (elmo-folder-get-type new-folder)))
+    (if (not (eq old-type new-type))
+	(error "not same folder type")
+      (unless (and (memq old-type '(localdir localnews archive imap4))
+		   (elmo-folder-identical-system-p old-folder new-folder))
+	(error "rename folder not supported"))
+      (if (elmo-folder-plugged-p old-folder)
+	  (and
+	   (if (or (file-exists-p (elmo-msgdb-expand-path new-folder))
+		   (elmo-folder-exists-p new-folder))
+	       (error "already exists folder: %s" new-folder)
+	     t)
+	   (elmo-call-func old-folder "rename-folder"
+			   (elmo-folder-get-spec new-folder))
+	   (elmo-msgdb-rename-path old-folder new-folder))
+	(elmo-dop-rename-folder old-folder new-folder)))))
+
+(defun elmo-read-msg-no-cache (folder msg outbuf &optional msgdb)
+  "Read messsage into outbuf without cacheing.
+If msgdb is specified, use cache."
+  (let (ret-val)
+    (when msgdb
+      (set-buffer outbuf)
+      (erase-buffer)
+      (setq ret-val
+	    (elmo-cache-read 
+	     ;; message-id
+	     (cdr (assq msg (elmo-msgdb-get-number-alist msgdb)))
+	     folder msg)))
+    (if (not ret-val)
+	(elmo-call-func folder "read-msg" msg outbuf))))
+
+(defun elmo-force-cache-msg (folder number msgid &optional loc-alist)
+  "Force cache message."
+  (let* ((cache-file (elmo-cache-get-path msgid))
+	 dir)
+    (when cache-file
+      (setq dir (directory-file-name (file-name-directory cache-file)))
+      (if (not (file-exists-p dir))
+	  (elmo-make-directory dir))
+      (if (elmo-local-file-p folder number)
+	  (elmo-copy-file (elmo-get-msg-filename folder number loc-alist)
+			  cache-file)
+	(with-temp-buffer
+	  (elmo-call-func folder "read-msg" number (current-buffer))
+	  (as-binary-output-file 
+	   (write-region (point-min) (point-max) cache-file nil 'no-msg)))))))
+
+(defun elmo-prefetch-msg (folder msg outbuf msgdb)
+  "Read message into outbuf with cacheing."
+  (save-excursion
+    (let* ((number-alist (elmo-msgdb-get-number-alist 
+			  (or msgdb (elmo-msgdb-load folder))))
+	   (dir (elmo-msgdb-expand-path folder))
+	   (message-id (cdr (assq msg number-alist)))
+	   type
+	   cache-status 
+	   ret-val part-num real-fld-num)
+      (set-buffer outbuf)
+      (if (elmo-cache-exists-p message-id)
+	  t
+	;; cache doesn't exist.
+	(setq real-fld-num (elmo-get-real-folder-number
+			    folder msg))
+	(setq type (elmo-folder-get-type (car real-fld-num)))
+	(cond ((eq type 'imap4)
+	       (setq ret-val (elmo-imap4-prefetch-msg 
+			      (elmo-folder-get-spec (car real-fld-num))
+			      (cdr real-fld-num) 
+			      outbuf)))
+	      ((elmo-folder-local-p (car real-fld-num)))
+	      (t (setq ret-val (elmo-call-func (car real-fld-num) 
+					       "read-msg" 
+					       (cdr real-fld-num) outbuf))))
+	(if ret-val
+	    (elmo-cache-save message-id
+			     (elmo-string-partial-p ret-val)
+			     folder msg))
+	(and ret-val t)))))
+
+(defun elmo-prefetch-msgs (folder msgs)
+  "prefetch messages for queueing."
+  (let* ((msgdb (elmo-msgdb-load folder))
+         (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (len (length msgs))
+	 (count 0)
+         msgid msg)
+    (while msgs
+      (setq msg (car msgs))
+      (setq msgid (cdr (assq msg number-alist)))
+      (message "%s:Prefetching... %d/%d message(s)"
+	       folder
+	       (setq count (+ 1 count)) len)
+      (elmo-force-cache-msg folder msg msgid)
+      (setq msgs (cdr msgs)))))
+
+;;  elmo-read-msg (folder msg outbuf msgdb)
+;;; read message 
+(defun elmo-read-msg (folder msg outbuf msgdb &optional force-reload)
+  "Read message into outbuf."
+  (let ((inhibit-read-only t))
+    (if (not (elmo-use-cache-p folder msg))
+	(elmo-read-msg-no-cache folder msg outbuf msgdb)
+      (elmo-read-msg-with-cache folder msg outbuf msgdb force-reload))))
+
+(defun elmo-read-msg-with-cache (folder msg outbuf msgdb 
+					&optional force-reload)
+  "Read message into outbuf with cacheing."
+  (let* ((number-alist (elmo-msgdb-get-number-alist 
+			(or msgdb (elmo-msgdb-load folder))))
+	 (dir (elmo-msgdb-expand-path folder))
+	 (message-id (cdr (assq msg number-alist)))
+	 (type (elmo-folder-number-get-type folder msg))
+	 cache-status 
+	 ret-val part-num real-fld-num)
+    (set-buffer outbuf)
+    (if (and (not force-reload)
+	     (not (elmo-local-file-p folder msg)))
+	(setq ret-val (elmo-cache-read message-id folder msg)))
+    (if ret-val 
+	t
+      ;; cache doesn't exist.
+      (setq real-fld-num (elmo-get-real-folder-number
+			  folder msg))
+      (if (setq ret-val (elmo-call-func (car real-fld-num) 
+					"read-msg" 
+					(cdr real-fld-num) outbuf))
+	  (if (not (elmo-local-file-p folder msg))
+	      (elmo-cache-save message-id
+			       (elmo-string-partial-p ret-val)
+			       folder msg)))
+      (and ret-val t))))
+
+(defun elmo-copy-msgs (src-folder msgs dst-folder &optional msgdb same-number)
+  (let* ((src-spec (elmo-folder-get-spec src-folder))
+	 (loc-alist (if msgdb
+			(elmo-msgdb-get-location msgdb)
+		      (elmo-msgdb-location-load
+		       (elmo-msgdb-expand-path nil src-spec)))))
+    (if (eq (car src-spec) 'archive)
+	(elmo-archive-copy-msgs-froms
+	 (elmo-folder-get-spec dst-folder)
+	 msgs src-spec loc-alist same-number)
+      (elmo-call-func dst-folder "copy-msgs"
+		      msgs src-spec loc-alist same-number))))
+
+(defun elmo-move-msgs (src-folder msgs dst-folder 
+				  &optional msgdb all done
+				  no-delete-info
+				  no-delete
+				  same-number
+				  unread-marks)
+  (save-excursion
+    (let* ((db (or msgdb (elmo-msgdb-load src-folder)))
+	   (number-alist (elmo-msgdb-get-number-alist db))
+	   (mark-alist   (elmo-msgdb-get-mark-alist db))
+	   (messages msgs)
+	   (len (length msgs))
+	   (all-msg-num (or all len))
+	   (done-msg-num (or done 0))
+	   (tmp-buf (get-buffer-create " *elmo-move-msg*"))
+	   ;elmo-no-cache-flag
+	   ret-val real-fld-num done-copy dir
+	   mes-string message-id src-cache i percent unseen seen-list)
+      (setq i done-msg-num)
+      (set-buffer tmp-buf)
+      (when (and (not (eq dst-folder 'null))
+		 (elmo-folder-direct-copy-p src-folder dst-folder))
+	(message (concat (if no-delete "Copying" "Moving")
+			 " %d message(s)...") (length messages))
+	(unless (elmo-copy-msgs src-folder
+				messages
+				dst-folder
+				db
+				same-number)
+	  (error "Copy message to %s failed" dst-folder))
+	(setq done-copy t))
+      (while messages
+	(setq real-fld-num (elmo-get-real-folder-number src-folder
+							(car messages)))
+	(setq message-id (cdr (assq (car messages) number-alist)))
+	;; seen-list.
+	(if (and (not (eq dst-folder 'null))
+		 (not (and unread-marks
+			   (member
+			    (cadr (assq (car messages) mark-alist))
+			    unread-marks))))
+	    (setq seen-list (cons message-id seen-list)))
+	(unless (or (eq dst-folder 'null) done-copy)
+	  (if (and (elmo-folder-plugged-p src-folder)
+		   (elmo-folder-plugged-p dst-folder)
+		   (elmo-folder-identical-system-p (car real-fld-num)
+						   dst-folder))
+	      ;; online and identical system...so copy 'em!
+	      (unless
+		  (elmo-copy-msgs (car real-fld-num) 
+				  (list (cdr real-fld-num))
+				  dst-folder 
+				  db
+				  same-number)
+		(error "Copy message to %s failed" dst-folder))
+	    ;; use cache if exists.
+	    (elmo-read-msg src-folder (car messages) tmp-buf msgdb)
+	    (unless (elmo-append-msg dst-folder (buffer-string) message-id
+				     (if same-number (car messages))
+				     ;; null means all unread.
+				     (or (null unread-marks) 
+					 unseen))
+	      (error "move: append message to %s failed" dst-folder))))
+	;; delete src cache if it is partial.
+	(elmo-cache-delete-partial message-id src-folder (car messages))
+	(setq ret-val (append ret-val (list (car messages))))
+	(setq i (+ i 1))
+	(setq percent (/ (* i 100) all-msg-num))
+	(if no-delete 
+	    (elmo-display-progress
+	     'elmo-move-msgs "Copying messages..."
+	     percent)
+	  (elmo-display-progress
+	   'elmo-move-msgs "Moving messages..."
+	   percent))
+	(setq messages (cdr messages)))
+      ;; Save seen-list.
+      (unless (eq dst-folder 'null)
+	(setq dir (elmo-msgdb-expand-path dst-folder))
+	(elmo-msgdb-seen-save dir
+			      (append (elmo-msgdb-seen-load dir) seen-list)))
+      (kill-buffer tmp-buf)
+      (if (and (not no-delete) ret-val)
+	  (progn
+	    (if (not no-delete-info) 
+		(message "Cleaning up src folder..."))
+	    (if (and (elmo-delete-msgs src-folder ret-val db)
+		     (elmo-msgdb-delete-msgs src-folder ret-val db t))
+		(setq ret-val t)
+	      (message "move: delete messages from %s failed." src-folder)
+	      (setq ret-val nil)
+	      )
+	    (if (and ret-val
+		     (not no-delete-info))
+		(message "Cleaning up src folder...done.")
+	      )
+	    ret-val)
+	(if no-delete
+	    (progn
+	      (message "Copying messages...done.")
+	      t)
+	  (if (eq len 0)
+	      (message "No message was moved.")
+	    (message "Moving messages failed.")
+	    nil ; failure
+	    ))))))
+
+;;  boolean elmo-delete-msgs (folder msgs)
+(defun elmo-delete-msgs (folder msgs &optional msgdb)
+  ;; remove from real folder.
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "delete-msgs" msgs)
+    (elmo-dop-delete-msgs folder msgs msgdb)))
+
+;;
+;; Server side search.
+;;
+(defun elmo-search (folder condition &optional from-msgs)
+  (let ((type (elmo-folder-get-type folder)))
+    (if (elmo-folder-plugged-p folder)
+	(elmo-call-func folder "search" condition from-msgs)
+      (elmo-cache-search-all folder condition from-msgs))))
+
+(defun elmo-msgdb-create (folder numlist new-mark already-mark 
+				 seen-mark important-mark seen-list)
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "msgdb-create" numlist new-mark already-mark 
+		      seen-mark important-mark seen-list)
+    (elmo-dop-msgdb-create folder numlist new-mark already-mark
+			   seen-mark important-mark seen-list)))
+
+(defun elmo-make-folder-numbers-list (folder msgs)
+  (let ((msg-list msgs)
+	pair fld-list
+	ret-val)
+    (while msg-list
+      (when (> (car msg-list) 0)
+	(setq pair (elmo-get-real-folder-number folder (car msg-list)))
+	(if (setq fld-list (assoc (car pair) ret-val))
+	    (setcdr fld-list (cons (cdr pair) (cdr fld-list)))
+	  (setq ret-val (cons (cons (car pair) (list (cdr pair))) ret-val))))
+      (setq msg-list (cdr msg-list)))
+    ret-val))
+
+(defun elmo-call-func-on-markable-msgs (folder func-name msgs msgdb)
+  (save-match-data
+    (let ((folder-numbers (elmo-make-folder-numbers-list folder msgs))
+	  type)
+      (while folder-numbers
+	(if (or (eq 
+		 (setq type (car
+			     (elmo-folder-get-spec 
+			      (car (car folder-numbers)))))
+		 'imap4)
+		(memq type '(maildir internal)))
+	    (if (elmo-folder-plugged-p folder)
+		(elmo-call-func (car (car folder-numbers)) func-name
+				(cdr (car folder-numbers)))
+	      (if elmo-enable-disconnected-operation
+		  (elmo-dop-call-func-on-msgs 
+		   (car (car folder-numbers)) ; real folder
+		   func-name 
+		   (cdr (car folder-numbers)) ; real number
+		   msgdb)
+		(error "Unplugged"))))
+	(setq folder-numbers (cdr folder-numbers))))))
+
+(defun elmo-unmark-important (folder msgs msgdb)
+  (elmo-call-func-on-markable-msgs folder "unmark-important" msgs msgdb))
+  
+(defun elmo-mark-as-important (folder msgs msgdb)
+  (elmo-call-func-on-markable-msgs folder "mark-as-important" msgs msgdb))
+
+(defun elmo-mark-as-read (folder msgs msgdb)
+  (elmo-call-func-on-markable-msgs folder "mark-as-read" msgs msgdb))
+
+(defun elmo-mark-as-unread (folder msgs msgdb)
+  (elmo-call-func-on-markable-msgs folder "mark-as-unread" msgs msgdb))
+
+(defun elmo-msgdb-create-as-numlist (folder numlist new-mark already-mark 
+					    seen-mark important-mark seen-list)
+  (if (elmo-folder-plugged-p folder)
+      (elmo-call-func folder "msgdb-create-as-numlist" numlist 
+		      new-mark already-mark seen-mark important-mark seen-list)
+    (elmo-dop-msgdb-create-as-numlist 
+     folder numlist new-mark already-mark
+     seen-mark important-mark seen-list)))
+
+;;   msgdb elmo-msgdb-load        (folder)
+(defun elmo-msgdb-load (folder &optional spec)
+  (message "Loading msgdb for %s..." folder)
+  (let* ((path (elmo-msgdb-expand-path folder spec))
+	 (ret-val 
+	  (list (elmo-msgdb-overview-load path)
+		(elmo-msgdb-number-load path)
+		(elmo-msgdb-mark-load path)
+		(elmo-msgdb-location-load path))))
+    (message "Loading msgdb for %s...done." folder)
+    (elmo-folder-set-info-max-by-numdb folder (nth 1 ret-val))
+    ret-val))
+
+;;   boolean elmo-msgdb-save (folder msgdb)
+(defun elmo-msgdb-save (folder msgdb)
+  (message "Saving msgdb for %s..." folder)
+  (save-excursion
+    (let ((path (elmo-msgdb-expand-path folder)))
+      (elmo-msgdb-overview-save path (car msgdb))
+      (elmo-msgdb-number-save path (cadr msgdb))
+      (elmo-msgdb-mark-save path (caddr msgdb))
+      (elmo-msgdb-location-save path (cadddr msgdb))
+    ;(elmo-sync-validity folder);; for validity check!!
+      ))
+  (message "Saving msgdb for %s...done." folder)
+  (elmo-folder-set-info-max-by-numdb folder (cadr msgdb)))
+
+(defun elmo-msgdb-add-msgs-to-seen-list-subr (msgs msgdb seen-marks seen-list)
+  "Add to seen list."
+  (let* ((seen-mark-list (string-to-char-list seen-marks))
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (mark-alist   (elmo-msgdb-get-mark-alist msgdb))
+	 ent)
+    (while msgs
+      (if (setq ent (assq (car msgs) mark-alist))
+	  (if (memq (string-to-char (cadr ent)) seen-mark-list)
+	      (setq seen-list
+		    (cons (cdr (assq (car msgs) number-alist)) seen-list)))
+	;; no mark ... seen...
+	(setq seen-list
+	      (cons (cdr (assq (car msgs) number-alist)) seen-list)))
+      (setq msgs (cdr msgs)))
+    seen-list))
+
+(defun elmo-msgdb-add-msgs-to-seen-list (folder msgs msgdb seen-marks)
+  "Add to seen list."
+  (unless (eq folder 'null) ;; black hole
+    (let* ((dir (elmo-msgdb-expand-path folder))
+	   (seen-list (elmo-msgdb-seen-load dir)))
+      (setq seen-list
+	    (elmo-msgdb-add-msgs-to-seen-list-subr
+	     msgs msgdb seen-marks seen-list))
+      (elmo-msgdb-seen-save dir seen-list))))
+
+;;  msgdb elmo-append-msg (folder string)
+(defun elmo-append-msg (folder string &optional message-id msg no-see)
+  (let ((type (elmo-folder-get-type folder))
+	filename)
+    (cond ((eq type 'imap4)
+	   (if (elmo-folder-plugged-p folder)
+	       (elmo-call-func folder "append-msg" string msg no-see)
+	     (elmo-dop-append-msg folder string message-id)))
+	  ((eq type 'cache)
+	   (if message-id
+	       (elmo-cache-append-msg
+		(elmo-folder-get-spec folder)
+		string message-id msg no-see)
+	     (error "elmo-cache-append-msg require message-id")))
+	  (t
+	   (elmo-call-func folder "append-msg" string msg no-see)))))
+
+(defun elmo-check-validity (folder)
+  (elmo-call-func folder "check-validity" 
+		  (expand-file-name
+		   elmo-msgdb-validity-filename
+		   (elmo-msgdb-expand-path folder))))
+
+(defun elmo-pack-number (folder msgdb arg)
+  (if (string-match "^[\\+=].*" folder)
+      (elmo-call-func folder "pack-number" msgdb arg)
+    (error "pack-number not supported")))
+
+(defun elmo-sync-validity (folder)
+  (elmo-call-func folder "sync-validity" 
+		  (expand-file-name
+		   elmo-msgdb-validity-filename
+		   (elmo-msgdb-expand-path folder))))
+
+(defun elmo-use-cache-p (folder number)
+  (elmo-call-func folder "use-cache-p" number)
+  )
+
+(defun elmo-local-file-p (folder number)
+  (elmo-call-func folder "local-file-p" number))
+
+(defun elmo-folder-portinfo (folder)
+  (condition-case nil
+      (elmo-call-func folder "portinfo")
+    (error)))
+
+(defun elmo-folder-plugged-p (folder)
+  (and folder
+       (or (elmo-folder-local-p folder)
+	   (elmo-call-func folder "plugged-p"))))
+
+(defun elmo-folder-set-plugged (folder plugged &optional add)
+  (if (elmo-folder-local-p folder)
+      nil	;; nop
+    (elmo-call-func folder "set-plugged" plugged add)))
+
+(defun elmo-generic-sync-number-alist (spec number-alist)
+  "Just return number-alist."
+  number-alist)
+
+(defun elmo-generic-list-folder-unread (spec mark-alist unread-marks)
+  (elmo-delete-if 
+   'null
+   (mapcar 
+    (function (lambda (x)
+		(if (member (cadr (assq (car x) mark-alist)) unread-marks)
+		    (car x))))
+    mark-alist)))
+
+(defun elmo-generic-list-folder-important (spec overview)
+  nil)
+
+(defun elmo-update-number (folder msgdb)
+  (when (elmo-folder-plugged-p folder)
+    (message "Synchronize number...")
+    (let* ((numlist (elmo-msgdb-get-number-alist msgdb))
+	   (len (length numlist))
+	   new-numlist)
+      (if (eq (length (setq 
+		       new-numlist
+		       (elmo-call-func folder "sync-number-alist" numlist)))
+	      len)
+	  nil
+	(elmo-msgdb-set-number-alist msgdb new-numlist)
+	(message "Synchronize number...done.")
+	new-numlist))))
+
+(defun elmo-get-msg-filename (folder number &optional loc-alist)
+  "Available if elmo-local-file-p is t."
+  (elmo-call-func folder "get-msg-filename" number loc-alist))
+
+(defun elmo-strict-folder-diff (fld &optional number-alist) 
+  (interactive)
+  (let* ((dir (elmo-msgdb-expand-path fld))
+	 (nalist (or number-alist 
+		     (elmo-msgdb-number-load dir)))
+	 (in-db (sort (mapcar 'car nalist) '<))
+	 (in-folder  (elmo-list-folder fld))
+	 append-list delete-list diff)
+    (cons (if (equal in-folder in-db)
+	      0
+	    (setq diff (elmo-list-diff
+			in-folder in-db
+			nil
+			))
+	    (setq append-list (car diff))
+	    (setq delete-list (cadr diff))
+	    (if append-list 
+		(length append-list)
+	      (if delete-list
+		  (- 0 (length delete-list))
+		0)))
+	  (length in-folder))))
+
+(defun elmo-list-folder-unread (folder mark-alist unread-marks)
+  (elmo-call-func folder "list-folder-unread" mark-alist unread-marks))
+
+(defun elmo-list-folder-important (folder overview)
+  (let (importants)
+    ;; server side importants...(append only.)
+    (if (elmo-folder-plugged-p folder)
+	(setq importants (elmo-call-func folder "list-folder-important"
+					 overview)))
+    (or elmo-msgdb-global-mark-alist
+	(setq elmo-msgdb-global-mark-alist
+	      (elmo-object-load (expand-file-name
+				 elmo-msgdb-global-mark-filename
+				 elmo-msgdb-dir))))
+    (while overview
+      (car overview)
+      (if (assoc (elmo-msgdb-overview-entity-get-id (car overview))
+		 elmo-msgdb-global-mark-alist)
+	  (setq importants (cons  
+			    (elmo-msgdb-overview-entity-get-number
+			     (car overview))
+			    importants)))
+      (setq overview (cdr overview)))
+    importants))
+
+(defun elmo-generic-commit (folder)
+  nil)
+
+(defun elmo-commit (folder)
+  (elmo-call-func folder "commit"))
+
+;; returns cons cell of (unsync . number-of-messages-in-folder)
+(defun elmo-folder-diff (fld &optional number-alist)
+  (interactive)
+  (let ((type (elmo-folder-get-type fld)))
+    (cond ((eq type 'multi)
+	   (elmo-multi-folder-diff fld))
+	  ((and (eq type 'filter)
+		(or (elmo-multi-p fld)
+		    (not 
+		     (vectorp (nth 1 (elmo-folder-get-spec fld)))))
+		;; not partial...unsync number is unknown.
+		(cons nil 
+		      (cdr (elmo-folder-diff 
+			    (nth 2 (elmo-folder-get-spec fld)))))))
+	  ((and (eq type 'imap4)
+		elmo-use-server-diff)
+	   (elmo-call-func fld "server-diff")) ;; imap4 server side diff.
+	  (t 
+	   (let ((cached-in-db-max (elmo-folder-get-info-max fld))
+		 (in-folder (elmo-max-of-folder fld))
+		 (in-db t)
+		 unsync nomif
+		 in-db-max)
+	     (if (or number-alist
+		     (not cached-in-db-max))
+		 (let* ((dir (elmo-msgdb-expand-path fld))
+			(nalist (or number-alist 
+				    (elmo-msgdb-number-load dir))))
+		   ;; No info-cache.
+		   (setq in-db (sort (mapcar 'car nalist) '<))
+		   (setq in-db-max (or (nth (max 0 (1- (length in-db))) in-db)
+				       0))
+		   (if (not number-alist)
+		       ;; Number-alist is not used.
+		       (elmo-folder-set-info-hashtb fld in-db-max
+						    nil))
+;; 						   (or 
+;; 						    (and in-db (length in-db)) 
+;; 						    0)))
+		   )
+	       ;; info-cache exists.
+	       (setq in-db-max cached-in-db-max))
+	     (setq unsync (if (and in-db 
+				   (car in-folder))
+			      (- (car in-folder) in-db-max)
+			    (if (and in-folder
+				     (null in-db))
+				(cdr in-folder)
+			      (if (null (car in-folder))
+				  nil))))
+	     (setq nomif (cdr in-folder))
+	     (if (and unsync nomif (> unsync nomif))
+		 (setq unsync nomif))
+	     (cons (or unsync 0) (or nomif 0)))))))
+    
+(defsubst elmo-folder-get-info (folder &optional hashtb)
+  (elmo-get-hash-val folder
+		     (or hashtb elmo-folder-info-hashtb)))
+
+(defun elmo-folder-set-info-hashtb (folder max numbers &optional new unread)
+  (let ((info (elmo-folder-get-info folder)))
+    (when info
+      (or new     (setq new     (nth 0 info)))
+      (or unread  (setq unread  (nth 1 info)))
+      (or numbers (setq numbers (nth 2 info)))
+      (or max     (setq max     (nth 3 info))))
+    (elmo-set-hash-val folder
+		       (list new unread numbers max)
+		       elmo-folder-info-hashtb)))
+
+(defun elmo-multi-get-number-alist-list (number-alist)
+  (let ((alist (sort number-alist (function (lambda (x y) (< (car x)
+							     (car y))))))
+	(cur-number 0)
+	one-alist ret-val num)
+    (while alist
+      (setq cur-number (+ cur-number 1))
+      (setq one-alist nil)
+      (while (and alist
+		  (eq 0
+		      (/ (- (setq num (car (car alist)))
+			    (* elmo-multi-divide-number cur-number))
+			 elmo-multi-divide-number)))
+	(setq one-alist (nconc
+			 one-alist 
+			 (list
+			  (cons
+			   (% num (* elmo-multi-divide-number cur-number))
+			   (cdr (car alist))))))
+	(setq alist (cdr alist)))
+      (setq ret-val (nconc ret-val (list one-alist))))
+    ret-val))
+
+(defun elmo-multi-folder-diff (fld)
+  (let ((flds (cdr (elmo-folder-get-spec fld)))
+	(num-alist-list
+	 (elmo-multi-get-number-alist-list 
+	  (elmo-msgdb-number-load (elmo-msgdb-expand-path fld))))
+	(count 0)
+	diffs (unsync 0) (nomif 0))
+    (while flds
+      (setq diffs (nconc diffs (list (elmo-folder-diff (car flds) 
+						       (nth count 
+							    num-alist-list)
+						       ))))
+      (setq count (+ 1 count))
+      (setq flds (cdr flds)))
+    (while diffs
+      (setq unsync (+ unsync (car (car diffs))))
+      (setq nomif  (+ nomif (cdr (car diffs))))
+      (setq diffs (cdr diffs)))
+    (elmo-folder-set-info-hashtb fld nil nomif)
+    (cons unsync nomif)))
+
+(defun elmo-folder-set-info-max-by-numdb (folder msgdb-number)
+  (let ((num-db (sort (mapcar 'car msgdb-number) '<)))
+    (elmo-folder-set-info-hashtb
+     folder
+     (or (nth (max 0 (1- (length num-db))) num-db) 0)
+     nil ;;(length num-db)
+     )))
+
+(defun elmo-folder-get-info-max (folder)
+  "Get folder info from cache."
+  (nth 3 (elmo-folder-get-info folder)))
+
+(defun elmo-folder-get-info-length (folder)
+  (nth 2 (elmo-folder-get-info folder)))
+
+(defun elmo-folder-get-info-unread (folder)
+  (nth 1 (elmo-folder-get-info folder)))
+
+(defun elmo-folder-info-make-hashtb (info-alist hashtb)
+  (let* ((hashtb (or hashtb
+		     (elmo-make-hash (length info-alist)))))
+    (mapcar
+     '(lambda (x)
+	(let ((info (cadr x)))
+	  (and (intern-soft (car x) hashtb)
+	       (elmo-set-hash-val (car x)
+				  (list (nth 2 info)   ;; new
+					(nth 3 info)   ;; unread
+					(nth 1 info)   ;; length
+					(nth 0 info))  ;; max
+				  hashtb))))
+     info-alist)
+    (setq elmo-folder-info-hashtb hashtb)))
+
+(defun elmo-crosspost-message-set (message-id folders &optional type)
+  (if (assoc message-id elmo-crosspost-message-alist)
+      (setcdr (assoc message-id elmo-crosspost-message-alist)
+	      (list folders type))
+    (setq elmo-crosspost-message-alist
+	  (nconc elmo-crosspost-message-alist
+		 (list (list message-id folders type))))))
+
+(defun elmo-crosspost-message-delete (message-id folders)
+  (let* ((id-fld (assoc message-id elmo-crosspost-message-alist))
+	 (folder-list (nth 1 id-fld)))
+    (when id-fld
+      (if (setq folder-list (elmo-delete-lists folders folder-list))
+	  (setcar (cdr id-fld) folder-list)
+	(setq elmo-crosspost-message-alist
+	      (delete id-fld elmo-crosspost-message-alist))))))
+
+
+(defun elmo-get-msgs-with-mark (mark-alist mark)
+  (let (ret-val)
+    (while mark-alist
+      (if (string= (cadr (car mark-alist)) mark)
+	  (cons (car (car mark-alist)) ret-val))
+      (setq mark-alist (cdr mark-alist)))
+    (nreverse ret-val)))
+
+(defun elmo-buffer-cache-message (fld msg &optional msgdb force-reload)
+  (let* ((msg-id (cdr (assq msg (elmo-msgdb-get-number-alist msgdb))))
+	 (hit (elmo-buffer-cache-hit (list fld msg msg-id)))
+	 (read nil))
+    (if hit
+	(elmo-buffer-cache-sort
+	 (elmo-buffer-cache-entry-make (list fld msg msg-id) hit))
+      (setq hit (elmo-buffer-cache-add (list fld msg msg-id)))
+      (setq read t))
+    (if (or force-reload read)
+	(condition-case err
+	    (save-excursion
+	      (set-buffer hit)
+	      (elmo-read-msg fld msg
+			     (current-buffer)
+			     msgdb force-reload))
+	  (quit
+	   (elmo-buffer-cache-delete)
+	   (error "read message %s/%s is quitted" fld msg))
+	  (error
+	   (elmo-buffer-cache-delete)
+	   (signal (car err) (cdr err))
+	   nil))) ;; will not be used
+    hit)) ;; retrun value
+
+(defun elmo-read-msg-with-buffer-cache (fld msg outbuf msgdb &optional force-reload)
+  (if elmo-use-buffer-cache
+      (let (hit start end)
+	(when (setq hit (elmo-buffer-cache-message
+			 (elmo-string fld) msg
+			 msgdb force-reload))
+	  (erase-buffer)
+	  (save-excursion
+	    (set-buffer hit)
+	    (setq start (point-min) end (point-max)))
+	  (insert-buffer-substring hit start end)))
+    (elmo-read-msg fld msg outbuf msgdb force-reload)))
+
+(defun elmo-folder-pipe-p (folder)
+  (let ((type (elmo-folder-get-type folder)))
+    (cond
+     ((eq type 'multi)
+      (let ((flds (cdr (elmo-folder-get-spec folder))))
+	(catch 'done
+	  (while flds
+	    (if (elmo-folder-pipe-p (car flds))
+		(throw 'done t)))
+	  nil)))
+     ((eq type 'pipe)
+      t)
+     ((eq type 'filter)
+      (elmo-folder-pipe-p
+       (nth 2 (elmo-folder-get-spec folder))))
+     (t
+      nil
+      ))))
+
+(defun elmo-multi-p (folder)
+  (let ((type (elmo-folder-get-type folder)))
+    (cond
+     ((eq type 'multi)
+      t)
+     ((eq type 'pipe)
+      (elmo-multi-p
+       (elmo-pipe-spec-dst (elmo-folder-get-spec folder))))
+     ((eq type 'filter)
+      (elmo-multi-p
+       (nth 2 (elmo-folder-get-spec folder))))
+     (t
+      nil
+      ))))
+
+(defun elmo-get-real-folder-number (folder number)
+  (let ((type (elmo-folder-get-type folder)))
+    (cond
+     ((eq type 'multi)
+      (elmo-multi-get-real-folder-number folder number))
+     ((eq type 'pipe)
+      (elmo-get-real-folder-number 
+       (elmo-pipe-spec-dst (elmo-folder-get-spec folder) )
+       number))
+     ((eq type 'filter)
+      (elmo-get-real-folder-number
+       (nth 2 (elmo-folder-get-spec folder)) number))
+     (t
+      (cons folder number)
+      ))))
+
+(defun elmo-folder-get-primitive-spec-list (folder &optional spec-list)
+  (let ((type (elmo-folder-get-type folder))
+	specs)
+    (cond
+     ((or (eq type 'multi)
+	  (eq type 'pipe))
+      (let ((flds (cdr (elmo-folder-get-spec folder)))
+	    spec)
+	(while flds
+	  (setq spec (elmo-folder-get-primitive-spec-list (car flds)))
+	  (if (not (memq (car spec) specs))
+	      (setq specs (append specs spec)))
+	  (setq flds (cdr flds)))))
+     ((eq type 'filter)
+      (setq specs
+	    (elmo-folder-get-primitive-spec-list
+	     (nth 2 (elmo-folder-get-spec folder)))))
+     (t
+      (setq specs (list (elmo-folder-get-spec folder)))
+      ))
+    specs))
+
+(defun elmo-folder-get-primitive-folder-list (folder)
+  (let* ((type (elmo-folder-get-type folder)))
+    (cond
+     ((or (eq type 'multi)
+	  (eq type 'pipe))
+      (let ((flds (cdr (elmo-folder-get-spec folder)))
+	    ret-val)
+	(while flds
+	  (setq ret-val (append ret-val
+				(elmo-folder-get-primitive-folder-list
+				 (car flds))))
+	  (setq flds (cdr flds)))
+	ret-val))
+     ((eq type 'filter)
+      (elmo-folder-get-primitive-folder-list
+       (nth 2 (elmo-folder-get-spec folder))))
+     (t
+      (list folder)
+      ))))
+
+(defun elmo-folder-contains-multi (folder)
+  (let ((cur-spec (elmo-folder-get-spec folder)))
+    (catch 'done
+      (while cur-spec
+	(cond 
+	 ((eq (car cur-spec) 'filter)
+	  (setq cur-spec (elmo-folder-get-spec (nth 2 cur-spec))))
+	 ((eq (car cur-spec) 'pipe)
+	  (setq cur-spec (elmo-folder-get-spec (elmo-pipe-spec-src cur-spec))))
+	 ((eq (car cur-spec) 'multi)
+	  (throw 'done nil))
+	 (t (setq cur-spec nil)))))
+    cur-spec))
+
+(defun elmo-folder-contains-type (folder type)
+  (let ((spec (elmo-folder-get-spec folder)))
+    (cond 
+     ((eq (car spec) 'filter)
+      (elmo-folder-contains-type (nth 2 spec) type))
+     ((eq (car spec) 'pipe)
+      (elmo-folder-contains-type (elmo-pipe-spec-dst spec) type))
+     ((eq (car spec) 'multi)
+      (let ((folders (cdr spec)))
+	(catch 'done
+	  (while folders
+	    (if (elmo-folder-contains-type (car folders) type)
+		(throw 'done t))
+	    (setq folders (cdr folders))))))
+     ((eq (car spec) type)
+      t)
+     (t nil))))
+
+(defun elmo-folder-number-get-spec (folder number)
+  (let ((type (elmo-folder-get-type folder)))
+    (cond
+     ((eq type 'multi)
+      (elmo-multi-folder-number-get-spec folder number))
+     ((eq type 'pipe)
+      (elmo-folder-number-get-spec
+       (elmo-pipe-spec-dst (elmo-folder-get-spec folder)) number))
+     ((eq type 'filter)
+      (elmo-folder-number-get-spec
+       (nth 2 (elmo-folder-get-spec folder)) number))
+     (t
+      (elmo-folder-get-spec folder)
+      ))))
+
+(defun elmo-folder-number-get-type (folder number)
+  (car (elmo-folder-number-get-spec folder number)))
+
+(defun elmo-multi-folder-number-get-spec (folder number)
+  (let* ((spec (elmo-folder-get-spec folder))
+	 (flds (cdr spec))
+	 (fld (nth (- (/ number elmo-multi-divide-number) 1) flds)))
+    (elmo-folder-number-get-spec fld number)))
+
+;; autoloads
+(autoload 'elmo-imap4-get-connection "elmo-imap4")
+(autoload 'elmo-nntp-make-groups-hashtb "elmo-nntp")
+(autoload 'elmo-nntp-post "elmo-nntp")
+(autoload 'elmo-localdir-max-of-folder "elmo-localdir")
+(autoload 'elmo-localdir-msgdb-create-overview-entity-from-file "elmo-localdir")
+(autoload 'elmo-multi-folder-diff "elmo-multi")
+(autoload 'elmo-archive-copy-msgs-froms "elmo-archive")
+
+;;; elmo2.el ends here
diff --git a/elmo/mmelmo-1.el b/elmo/mmelmo-1.el
new file mode 100644
index 0000000..9109817
--- /dev/null
+++ b/elmo/mmelmo-1.el
@@ -0,0 +1,110 @@
+;;; mmelmo-1.el -- mm-backend (for FLIM 1.12.x) by ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/06 18:35:49 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'mime)
+(require 'mime-parse)
+(eval-when-compile
+  (require 'std11))
+
+(require 'mmelmo)
+
+(defvar mmelmo-force-reload nil)
+(defvar mmelmo-sort-field-list nil)
+
+;;; mmelmo: Only the initialization method is different from mmbuffer.
+(mm-define-backend elmo (buffer))
+
+(mm-define-method initialize-instance ((entity elmo))
+  (mime-entity-set-buffer-internal 
+   entity
+   (get-buffer-create (concat mmelmo-entity-buffer-name "0")))
+    (save-excursion
+      (set-buffer (mime-entity-buffer-internal entity))
+      (mmelmo-original-mode)
+      (let ((buffer-read-only nil)
+	    (location (mime-entity-location-internal entity))
+	    header-start header-end body-start body-end)
+	(erase-buffer)
+	(setq mime-message-structure entity)
+	(elmo-read-msg-with-buffer-cache (nth 0 location)
+					 (nth 1 location)
+					 (current-buffer)
+					 (nth 2 location)
+					 mmelmo-force-reload)
+	(setq header-start (point-min))
+	(setq body-end (point-max))
+	(goto-char header-start)
+	(if (re-search-forward 
+	     (concat "^" (regexp-quote mail-header-separator) "$\\|^$" )
+	     nil t)
+	    (setq header-end (match-beginning 0)
+		  body-start (if (= header-end body-end)
+				 body-end
+			       (1+ (match-end 0))))
+	  (setq header-end (point-min)
+		body-start (point-min)))
+	(save-restriction
+	  (narrow-to-region header-start header-end)
+	  (mime-entity-set-content-type-internal
+	   entity
+	   (let ((str (std11-fetch-field "Content-Type")))
+	     (if str
+		 (mime-parse-Content-Type str)
+	       )))
+	  )
+	(mime-entity-set-header-start-internal entity header-start)
+	(mime-entity-set-header-end-internal entity header-end)
+	(mime-entity-set-body-start-internal entity body-start)
+	(mime-entity-set-body-end-internal entity body-end)
+	)))
+
+(mm-define-method insert-header ((entity elmo)
+				 &optional invisible-fields visible-fields)
+  (mmelmo-insert-sorted-header-from-buffer
+   (mime-entity-buffer entity)
+   (mime-entity-header-start-internal entity)
+   (mime-entity-header-end-internal entity)
+   invisible-fields visible-fields))
+
+(mm-define-method insert-text-content ((entity elmo))
+  (insert
+   (decode-mime-charset-string (mime-entity-content entity)
+                               (or (mime-content-type-parameter
+                                    (mime-entity-content-type entity)
+                                    "charset")
+                                   default-mime-charset)
+                               'CRLF))
+  (run-hooks 'mmelmo-entity-content-inserted-hook))
+
+(provide 'mmelmo-1)
+
+;;; mmelmo-1.el ends here
diff --git a/elmo/mmelmo-2.el b/elmo/mmelmo-2.el
new file mode 100644
index 0000000..c97f3b7
--- /dev/null
+++ b/elmo/mmelmo-2.el
@@ -0,0 +1,142 @@
+;;; mmelmo-2.el -- mm-backend (for FLIM 1.13.x) by ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-21 17:39:07 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'mmelmo-imap4)
+(require 'mmelmo)
+(require 'mmbuffer)
+
+(defvar mmelmo-force-reload nil)
+(defvar mmelmo-sort-field-list nil)
+
+(eval-and-compile
+  (luna-define-class mime-elmo-entity (mime-buffer-entity)
+		     (imap folder number msgdb size))
+  (luna-define-internal-accessors 'mime-elmo-entity))
+
+(luna-define-method initialize-instance :after ((entity mime-elmo-entity)
+						&rest init-args)
+  "The initialization method for elmo.
+mime-elmo-entity has its own member variable,
+`imap', `folder', `msgdb' and `size'.
+imap:   boolean. if non-nil, entity becomes mime-elmo-imap4-entity class.
+folder: string.  folder name.
+msgdb:  msgdb of elmo.
+size:   size of the entity."
+  (if (mime-elmo-entity-imap-internal entity)
+      ;; use imap part fetching.
+      ;; child mime-entity's class becomes `mime-elmo-imap4-entity'
+      ;; which implements `entity-buffer' method.
+      (progn
+	(let (new-entity)
+	  (mime-buffer-entity-set-buffer-internal entity nil)
+	  (setq new-entity
+		(mmelmo-imap4-get-mime-entity
+		 (mime-elmo-entity-folder-internal entity) ; folder
+		 (mime-elmo-entity-number-internal entity) ; number
+		 (mime-elmo-entity-msgdb-internal entity)  ; msgdb
+		 ))
+	  (mime-entity-set-content-type-internal
+	   entity
+	   (mime-entity-content-type-internal new-entity))
+	  (mime-entity-set-encoding-internal
+	   entity
+	   (mime-entity-encoding-internal new-entity))
+	  (mime-entity-set-children-internal
+	   entity
+	   (mime-entity-children-internal new-entity))
+	  (mime-elmo-entity-set-size-internal
+	   entity
+	   (mime-elmo-entity-size-internal new-entity))
+	  (mime-entity-set-representation-type-internal
+	   entity 'mime-elmo-imap4-entity)
+	  entity))
+    (set-buffer (mime-buffer-entity-buffer-internal entity))
+    (mmelmo-original-mode)
+    (when (mime-root-entity-p entity)
+      (let ((buffer-read-only nil)
+	    header-end body-start)
+	(erase-buffer)
+	(elmo-read-msg-with-buffer-cache
+	 (mime-elmo-entity-folder-internal entity)
+	 (mime-elmo-entity-number-internal entity)
+	 (current-buffer)
+	 (mime-elmo-entity-msgdb-internal entity)
+	 mmelmo-force-reload)
+	(goto-char (point-min))
+	(if (re-search-forward
+	     (concat "^" (regexp-quote mail-header-separator) "$\\|^$" )
+	     nil t)
+	    (setq header-end (match-beginning 0)
+		  body-start (if (= (match-end 0) (point-max))
+				 (point-max)
+			       (1+ (match-end 0))))
+	  (setq header-end (point-min)
+		body-start (point-min)))
+	(mime-buffer-entity-set-header-start-internal entity (point-min))
+	(mime-buffer-entity-set-header-end-internal entity header-end)
+	(mime-buffer-entity-set-body-start-internal entity body-start)
+	(mime-buffer-entity-set-body-end-internal entity (point-max))
+	(save-restriction
+	  (narrow-to-region (mime-buffer-entity-header-start-internal entity)
+			    (mime-buffer-entity-header-end-internal entity))
+	  (mime-entity-set-content-type-internal
+	   entity
+	   (let ((str (std11-fetch-field "Content-Type")))
+	     (if str
+		 (mime-parse-Content-Type str)
+	       ))))))
+    entity))
+
+(luna-define-method mime-insert-header ((entity mime-elmo-entity)
+					&optional invisible-fields
+					visible-fields)
+  (mmelmo-insert-sorted-header-from-buffer
+   (mime-entity-buffer entity)
+   (mime-buffer-entity-header-start-internal entity)
+   (mime-buffer-entity-header-end-internal entity)
+   invisible-fields visible-fields mmelmo-sort-field-list))
+
+(luna-define-method mime-insert-text-content :around ((entity
+						       mime-elmo-entity))
+  (luna-call-next-method)
+  (run-hooks 'mmelmo-entity-content-inserted-hook))
+
+;(luna-define-method mime-entity-content ((entity mime-elmo-entity))
+;  (mime-decode-string
+;   (with-current-buffer (mime-buffer-entity-buffer-internal entity)
+;     (buffer-substring (mime-buffer-entity-body-start-internal entity)
+;		       (mime-buffer-entity-body-end-internal entity)))
+;   (mime-entity-encoding entity)))
+
+(provide 'mmelmo-2)
+
+;;; mmelmo-2.el ends here
diff --git a/elmo/mmelmo-imap4-1.el b/elmo/mmelmo-imap4-1.el
new file mode 100644
index 0000000..1114063
--- /dev/null
+++ b/elmo/mmelmo-imap4-1.el
@@ -0,0 +1,350 @@
+;;; mmelmo-imap4-1.el -- MM backend of IMAP4 for ELMO (for FLIM 1.12.x).
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:43:18 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'mmelmo)
+
+(defvar mmelmo-imap4-threshold nil)
+(defvar mmelmo-imap4-skipped-parts nil)
+(defvar mmelmo-imap4-current-message-structure nil)
+
+(defun mmelmo-imap4-node-id-to-string (node-id)
+  (let ((i (length node-id))
+	result)
+    (while (> i 0)
+      (setq result 
+	    (concat result 
+		    (if result 
+			(concat "." (int-to-string 
+				     (+ 1 (nth (- i 1) node-id))))
+		      (int-to-string (or 
+				      (+ 1 (nth (- i 1) node-id))
+				      0)))))
+      (setq i (- i 1)))
+    (or result "0")))
+
+;; parse IMAP4 body structure entity recursively.
+(defun mmelmo-imap4-parse-bodystructure-entity (location node-id entity parent)
+  (cond
+   ((listp (car entity));; multipart
+    (let (cur-entity
+	  children
+	  content-type ret-val
+	  (num 0))
+      (setq ret-val
+	    (make-mime-entity-internal 'elmo-imap4
+				       location
+				       nil	; content-type
+				       nil            ; children
+				       parent         ; parent
+				       node-id	; node-id
+				       ))
+      (while (and (setq cur-entity (car entity))
+		  (listp cur-entity))
+	(setq children
+	      (append children
+		      (list
+		       (mmelmo-imap4-parse-bodystructure-entity
+			(list (nth 0 location)
+			      (nth 1 location)
+			      (nth 2 location)
+			      (append (list num) node-id))
+			(append (list num) node-id)
+			cur-entity
+			ret-val ; myself as parent
+			))))
+	(setq num (+ num 1))
+	(setq entity (cdr entity))
+	)
+      (mime-entity-set-children-internal ret-val children)
+      (setq content-type (list (cons 'type 'multipart)))
+      (setq content-type (append content-type 
+				 (list (cons 'subtype 
+					     (intern 
+					      (downcase (car entity)))))))
+      (setq content-type (append content-type 
+				 (mime-parse-parameters-from-list
+				  (elmo-imap4-nth 1 entity))))
+      (mime-entity-set-content-type-internal ret-val content-type)
+      ret-val))
+   (t ;; singlepart
+    (let (content-type result)
+      ;; append size information into location 
+      (setq location (append location (list (nth 6 entity))))
+      (setq content-type (list (cons 'type (intern (downcase (car entity))))))
+      (if (elmo-imap4-nth 1 entity)
+	  (setq content-type (append content-type
+				     (list 
+				      (cons 'subtype 
+					    (intern 
+					     (downcase
+					      (elmo-imap4-nth 1 entity))))))))
+      (if (elmo-imap4-nth 2 entity)
+	  (setq content-type (append content-type 
+				     (mime-parse-parameters-from-list
+				      (elmo-imap4-nth 2 entity)))))
+      (setq result (make-mime-entity-internal 'elmo-imap4
+					      location
+					      content-type	; content-type
+					      nil     ; children
+					      parent  ; parent 
+					      node-id ; node-id
+					      ))
+      (mime-entity-set-encoding-internal result 
+					 (and (elmo-imap4-nth 5 entity)
+					      (downcase 
+					       (elmo-imap4-nth 5 entity))))
+      result))))
+
+(defun mmelmo-imap4-parse-bodystructure-string (location string)
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *ELMO bodystructure TMP*"))
+	  (raw-buffer (current-buffer))
+	  str
+	  entity)
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (insert string)
+      (goto-char (point-min))
+      (when (search-forward "FETCH" nil t)
+	(narrow-to-region (match-end 0) (point-max))
+	(while (re-search-forward "{\\([0-9]+\\)}\r\n" nil t)
+	  (goto-char (+ (point) 
+			(string-to-int (elmo-match-buffer 1))))
+	  (setq str (buffer-substring (match-end 0) (point)))
+	  (delete-region (match-beginning 0) (point))
+	  (insert (prin1-to-string str))); (insert "\""))
+	(setq entity 
+	      (nth 1 (memq 'BODYSTRUCTURE 
+			   (read (buffer-string)))))
+	(set-buffer raw-buffer)
+	(mmelmo-imap4-parse-bodystructure-entity location nil entity nil)
+	))))
+
+(defun mmelmo-imap4-multipart-p (entity)
+  (eq (cdr (assq 'type (mime-entity-content-type entity))) 'multipart)
+  )
+
+(defun mmelmo-imap4-rfc822part-p (entity)
+  (eq (cdr (assq 'type (mime-entity-content-type entity))) 'rfc822)
+  )
+
+(defun mmelmo-imap4-textpart-p (entity)
+  (eq (cdr (assq 'type (mime-entity-content-type entity))) 'text)
+  )
+      
+(defun mmelmo-imap4-get-mime-entity (location)
+  (save-excursion
+    (let* ((spec (elmo-folder-get-spec (nth 0 location)))
+	   (msg (nth 1 location))
+	   (connection (elmo-imap4-get-connection spec))
+	   (process (elmo-imap4-connection-get-process connection))
+	   (read-it t)
+	   response errmsg ret-val bytes)
+      (when (elmo-imap4-spec-folder spec)
+	(save-excursion
+	  (when (not (string= (elmo-imap4-connection-get-cwf connection)
+			      (elmo-imap4-spec-folder spec)))
+	    (if (null (setq response 
+			    (elmo-imap4-select-folder 
+			     (elmo-imap4-spec-folder spec) connection)))
+		(error "Select folder failed")))
+	  (elmo-imap4-send-command (process-buffer process)
+				   process
+				   (format "uid fetch %s bodystructure" 
+					   msg))
+	  (if (null (setq response (elmo-imap4-read-contents
+				    (process-buffer process) process)))
+	      (error "Fetching body structure failed")))
+	(mmelmo-imap4-parse-bodystructure-string location 
+						 response); make mime-entity
+	))))
+
+(defun mmelmo-imap4-read-part (entity location)
+  (if (or (not mmelmo-imap4-threshold)
+	  (not (nth 4 location))
+	  (and (nth 4 location)
+	       mmelmo-imap4-threshold	
+	       (<= (nth 4 location) mmelmo-imap4-threshold)))
+      (cond ((mmelmo-imap4-multipart-p entity)) ; noop
+	    (t
+	     (insert (elmo-imap4-read-part 
+		      (nth 0 location)
+		      (nth 1 location)
+		      (mmelmo-imap4-node-id-to-string 
+		       (nth 3 location))))
+	     (mime-entity-set-body-start-internal entity (point-min))
+	     (mime-entity-set-body-end-internal entity (point-max))))
+    (setq mmelmo-imap4-skipped-parts 
+	  (append
+	   mmelmo-imap4-skipped-parts
+	   (list (mmelmo-imap4-node-id-to-string 
+		  (nth 3 location)))))))
+
+(defun mmelmo-imap4-read-body (entity)
+  (let ((location (mime-entity-location-internal entity)))
+    (mime-entity-set-body-start-internal entity (- (point) 1))
+    (if (or (not mmelmo-imap4-threshold)
+	    (not (nth 4 location))
+	    (and (nth 4 location)
+		 mmelmo-imap4-threshold	
+		 (<= (nth 4 location) mmelmo-imap4-threshold)))
+	(insert (elmo-imap4-read-part (nth 0 location)
+				      (nth 1 location)
+				      "1"
+				      ))
+      (setq mmelmo-imap4-skipped-parts 
+	    (append
+	     mmelmo-imap4-skipped-parts
+	     (list 
+	      (mmelmo-imap4-node-id-to-string 
+	       (nth 3 location))))))))
+
+;;; mm-backend definitions for elmo-imap4
+(mm-define-backend elmo-imap4 (elmo))
+
+(mm-define-method initialize-instance ((entity elmo-imap4))
+  (let ((new-entity (mmelmo-imap4-get-mime-entity 
+		     (mime-entity-location-internal entity))))
+    ;; ...
+    (aset entity 1
+	  (mime-entity-location-internal new-entity))
+    (mime-entity-set-content-type-internal 
+     entity
+     (mime-entity-content-type-internal new-entity))
+    (mime-entity-set-encoding-internal 
+     entity
+     (mime-entity-encoding-internal new-entity))
+    (mime-entity-set-children-internal
+     entity
+     (mime-entity-children-internal new-entity))
+    (mime-entity-set-body-start-internal
+     entity
+     (mime-entity-body-start-internal new-entity))
+    (mime-entity-set-body-end-internal
+     entity
+     (mime-entity-body-end-internal new-entity))))
+
+(mm-define-method entity-buffer ((entity elmo-imap4))
+  (let ((buffer (get-buffer-create 
+		 (concat mmelmo-entity-buffer-name
+			 (mmelmo-imap4-node-id-to-string 
+			  (mime-entity-node-id-internal entity)))))
+	(location (mime-entity-location-internal entity)))
+    (set-buffer buffer)
+    (mmelmo-original-mode)
+    (mime-entity-set-buffer-internal entity buffer)  ; set buffer.
+    (let ((buffer-read-only nil))
+      (erase-buffer)
+      (if (nth 3 location)   ; not top
+	  (progn
+	    (setq mime-message-structure mmelmo-imap4-current-message-structure)
+	    (mmelmo-imap4-read-part entity location))
+	;; TOP
+	(setq mmelmo-imap4-current-message-structure entity)
+	(setq mime-message-structure entity)
+	(setq mmelmo-imap4-skipped-parts nil)
+	;;      (setq mmelmo-fetched-entire-message nil)
+	;; header
+	(insert (elmo-imap4-read-part (nth 0 location)
+				      (nth 1 location)
+				      "header"
+				      ))
+	(mime-entity-set-header-start-internal entity (point-min))
+	(mime-entity-set-header-end-internal entity (- (point) 1))
+	(if (not (mime-entity-children-internal entity)) ; body part!
+	    (progn
+	      (mmelmo-imap4-read-body entity)
+	      (mime-entity-set-body-end-internal entity (point))
+	      ))))
+    buffer))
+
+(mm-define-method entity-point-min ((entity elmo-imap4))
+  (let ((buffer (mime-entity-buffer-internal entity)))
+    (set-buffer buffer)
+    (point-min)))
+
+(mm-define-method entity-point-max ((entity elmo-imap4))
+  (let ((buffer (mime-entity-buffer-internal entity)))
+    (set-buffer buffer)
+    (point-max)))
+
+(mm-define-method entity-children ((entity elmo-imap4))
+  (let* ((content-type (mime-entity-content-type entity))
+         (primary-type (mime-content-type-primary-type content-type)))
+    (cond ((eq primary-type 'multipart)
+           (mime-parse-multipart entity)
+           )
+          ((and (eq primary-type 'message)
+                (memq (mime-content-type-subtype content-type)
+                      '(rfc822 news external-body)
+                      ))
+	   (save-excursion
+	     (set-buffer (mime-entity-buffer-internal entity))
+	     (mime-entity-set-body-start-internal entity (point-min))
+	     (mime-entity-set-body-end-internal entity (point-max)))
+           (mime-parse-encapsulated entity)
+           ))
+    ))
+
+(mm-define-method entity-body-start ((entity elmo-imap4))
+  (point-min))
+
+(mm-define-method entity-body-end ((entity elmo-imap4))
+  (point-max))
+
+;; override generic function for dynamic body fetching.
+(mm-define-method entity-content ((entity elmo-imap4))
+  (save-excursion
+    (set-buffer (mime-entity-buffer entity))
+    (mime-decode-string
+     (buffer-substring (mime-entity-body-start entity)
+		       (mime-entity-body-end entity))
+     (mime-entity-encoding entity))))
+
+(mm-define-method fetch-field ((entity elmo-imap4) field-name)
+  (save-excursion
+    (let ((buf (mime-entity-buffer-internal entity)))
+      (when buf 
+	(set-buffer buf)
+	(save-restriction
+	  (if (and (mime-entity-header-start-internal entity)
+		   (mime-entity-header-end-internal entity))
+	      (progn
+		(narrow-to-region 
+		 (mime-entity-header-start-internal entity)
+		 (mime-entity-header-end-internal entity))
+		(std11-fetch-field field-name))
+	    nil))))))
+
+(provide 'mmelmo-imap4-1)
+
+;;; mmelmo-imap4-1.el ends here
diff --git a/elmo/mmelmo-imap4-2.el b/elmo/mmelmo-imap4-2.el
new file mode 100644
index 0000000..2b4f15c
--- /dev/null
+++ b/elmo/mmelmo-imap4-2.el
@@ -0,0 +1,394 @@
+;;; mmelmo-imap4-1.el -- MM backend of IMAP4 for ELMO (for FLIM 1.13.x).
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:43:27 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+(require 'mmbuffer)
+(require 'mmelmo)
+(defvar mmelmo-imap4-threshold nil)
+(defvar mmelmo-imap4-skipped-parts nil)
+(defvar mmelmo-imap4-current-message-structure nil)
+
+;; Buffer local variable.
+(defvar mmelmo-imap4-fetched nil)
+(make-variable-buffer-local 'mmelmo-imap4-fetched)
+
+(defun mmelmo-imap4-node-id-to-string (node-id)
+  (let ((i (length node-id))
+	result)
+    (while (> i 0)
+      (setq result 
+	    (concat result 
+		    (if result 
+			(concat "." (int-to-string 
+				     (+ 1 (nth (- i 1) node-id))))
+		      (int-to-string (or 
+				      (+ 1 (nth (- i 1) node-id))
+				      0)))))
+      (setq i (- i 1)))
+    (or result "0")))
+
+;; parse IMAP4 body structure entity recursively.
+(defun mmelmo-imap4-parse-bodystructure-object (folder 
+						number msgdb
+						node-id object parent)
+  (cond
+   ((listp (car object));; multipart
+    (let (cur-obj children content-type ret-val (num 0))
+      (setq ret-val
+	    (luna-make-entity
+	     (mm-expand-class-name 'elmo-imap4)
+	     :folder   folder
+	     :number   number
+	     :msgdb    msgdb
+	     :parent   parent
+	     :node-id  node-id))
+      (while (and (setq cur-obj (car object))
+		  (listp cur-obj))
+	(setq children
+	      (append children
+		      (list
+		       (mmelmo-imap4-parse-bodystructure-object
+			folder number msgdb
+			(append (list num) node-id)
+			cur-obj
+			ret-val ; myself as parent
+			))))
+	(setq num (+ num 1))
+	(setq object (cdr object)))
+      (mime-entity-set-children-internal ret-val children)
+      (setq content-type (list (cons 'type 'multipart)))
+      (if (elmo-imap4-nth 0 object)
+	  (setq content-type (append content-type 
+				     (list (cons 'subtype 
+						 (intern 
+						  (downcase
+						   (elmo-imap4-nth
+						    0
+						    object))))))))
+      (setq content-type (append content-type 
+				 (mime-parse-parameters-from-list
+				  (elmo-imap4-nth 1 object))))
+      (mime-entity-set-content-type-internal ret-val content-type)
+      ret-val))
+   (t ;; singlepart
+    (let (content-type ret-val)
+      ;; append size information into location
+      (setq content-type (list (cons 'type (intern (downcase (car object))))))
+      (if (elmo-imap4-nth 1 object)
+	  (setq content-type (append content-type
+				     (list 
+				      (cons 'subtype 
+					    (intern 
+					     (downcase
+					      (elmo-imap4-nth 1 object))))))))
+      (if (elmo-imap4-nth 2 object)
+	  (setq content-type (append content-type 
+				     (mime-parse-parameters-from-list
+				      (elmo-imap4-nth 2 object)))))
+      (setq ret-val 
+	    (luna-make-entity
+	     (mm-expand-class-name 'elmo-imap4)
+	     :folder folder
+	     :number number
+	     :size (nth 6 object)
+	     :content-type content-type
+	     :parent parent
+	     :node-id node-id))
+      (mime-entity-set-encoding-internal ret-val
+					 (and (elmo-imap4-nth 5 object)
+					      (downcase 
+					       (elmo-imap4-nth 5 object))))
+      ret-val))))
+
+(defun mmelmo-imap4-parse-bodystructure-string (folder number msgdb string)
+  (with-temp-buffer
+    (insert string)
+    (goto-char (point-min))
+    (when (search-forward "FETCH" nil t)
+      (narrow-to-region (match-end 0) (point-max))
+      (while (re-search-forward "{\\([0-9]+\\)}\r\n" nil t)
+	(let (str)
+	  (goto-char (+ (point) 
+			(string-to-int (elmo-match-buffer 1))))
+	  (setq str (buffer-substring (match-end 0) (point)))
+	  (delete-region (match-beginning 0) (point))
+	  (insert (prin1-to-string str))))
+      (goto-char (point-min))
+      (mmelmo-imap4-parse-bodystructure-object 
+       folder ; folder
+       number ; number
+       msgdb  ; msgdb
+       nil    ; node-id
+       (nth 1 (memq 'BODYSTRUCTURE (read (current-buffer)))) ; bodystructure-object
+       nil    ; parent
+       ))))
+
+(defun mmelmo-imap4-multipart-p (entity)
+  (eq (cdr (assq 'type (mime-entity-content-type entity))) 'multipart))
+
+(defun mmelmo-imap4-rfc822part-p (entity)
+  (eq (cdr (assq 'type (mime-entity-content-type entity))) 'rfc822))
+
+(defun mmelmo-imap4-textpart-p (entity)
+  (eq (cdr (assq 'type (mime-entity-content-type entity))) 'text))
+      
+(defun mmelmo-imap4-get-mime-entity (fld number msgdb)
+  (save-excursion
+    (let* ((spec (elmo-folder-get-spec fld))
+	   (connection (elmo-imap4-get-connection spec))
+	   (folder (elmo-imap4-spec-folder spec))
+	   response)
+      (when folder
+	(save-excursion
+	  (when (not (string= (elmo-imap4-connection-get-cwf connection)
+			      folder))
+	    (if (null (elmo-imap4-select-folder folder connection))
+		(error "Select folder failed")))
+	  (elmo-imap4-send-command (elmo-imap4-connection-get-buffer
+				    connection)
+				   (elmo-imap4-connection-get-process
+				    connection)
+				   (format 
+				    (if elmo-imap4-use-uid
+					"uid fetch %s bodystructure"
+				      "fetch %s bodystructure")
+				    number))
+	  (if (null (setq response (elmo-imap4-read-contents
+				    (elmo-imap4-connection-get-buffer
+				     connection)
+				    (elmo-imap4-connection-get-process
+				     connection))))
+	      (error "Fetching body structure failed")))
+	(mmelmo-imap4-parse-bodystructure-string fld number msgdb
+						 response)))))
+
+(defun mmelmo-imap4-read-part (entity)
+  (if (or (not mmelmo-imap4-threshold)
+	  (not (mime-elmo-entity-size-internal entity))
+	  (and (mime-elmo-entity-size-internal entity)
+	       mmelmo-imap4-threshold
+	       (<= (mime-elmo-entity-size-internal entity)
+		   mmelmo-imap4-threshold)))
+      (progn
+	(cond ((mmelmo-imap4-multipart-p entity)) ; noop
+	      (t (insert (elmo-imap4-read-part 
+			  (mime-elmo-entity-folder-internal entity)
+			  (mime-elmo-entity-number-internal entity)
+			  (mmelmo-imap4-node-id-to-string 
+			   (mime-entity-node-id-internal entity))))))
+	(setq mmelmo-imap4-fetched t)
+	(mime-buffer-entity-set-body-start-internal entity (point-min))
+	(mime-buffer-entity-set-body-end-internal entity (point-max)))
+    (setq mmelmo-imap4-fetched nil)
+    (mime-buffer-entity-set-body-start-internal entity (point-min))
+    (mime-buffer-entity-set-body-end-internal entity (point-min))
+    (setq mmelmo-imap4-skipped-parts 
+	  (append
+	   mmelmo-imap4-skipped-parts
+	   (list (mmelmo-imap4-node-id-to-string 
+		  (mime-entity-node-id-internal entity)))))))
+
+(defun mmelmo-imap4-insert-body (entity)
+  (mime-buffer-entity-set-body-start-internal entity (- (point) 1))
+  (if (or (not mmelmo-imap4-threshold)
+	  (not (mime-elmo-entity-size-internal entity))
+	  (and (mime-elmo-entity-size-internal entity)
+	       mmelmo-imap4-threshold	
+	       (<= (mime-elmo-entity-size-internal entity)
+		   mmelmo-imap4-threshold)))
+      (insert (elmo-imap4-read-part
+	       (mime-elmo-entity-folder-internal entity)
+	       (mime-elmo-entity-number-internal entity) "1"))
+    (setq mmelmo-imap4-skipped-parts 
+	  (append
+	   mmelmo-imap4-skipped-parts
+	   (list (mmelmo-imap4-node-id-to-string 
+		  (mime-entity-node-id-internal entity)))))))
+
+;;; mime-elmo-imap4-entity class definitions.
+(luna-define-class mime-elmo-imap4-entity (mime-buffer-entity)
+		   (imap folder number msgdb size))
+(luna-define-internal-accessors 'mime-elmo-imap4-entity)
+
+(luna-define-method initialize-instance ((entity mime-elmo-imap4-entity)
+					 &rest init-args)
+  "The initialization method for elmo-imap4.
+mime-elmo-entity has its own instance variable 
+`imap', `folder', `msgdb', and `size'.
+These value must be specified as argument for `luna-make-entity'."  
+  (apply (car (luna-class-find-functions
+	       (luna-find-class 'standard-object)
+	       'initialize-instance))
+	 entity init-args))
+
+(luna-define-method mime-entity-buffer ((entity mime-elmo-imap4-entity))
+  (if (mime-buffer-entity-buffer-internal entity)
+      (save-excursion
+	(set-buffer (mime-buffer-entity-buffer-internal entity))
+	(unless (mime-root-entity-p entity)
+	  (unless mmelmo-imap4-fetched
+	    (setq mmelmo-imap4-skipped-parts nil) ; No need?
+	    (let ((mmelmo-imap4-threshold
+		   (mime-elmo-entity-size-internal entity)))
+	      (mime-buffer-entity-set-buffer-internal entity nil)
+	      (message "Fetching skipped part...")
+	      (luna-send entity 'mime-entity-buffer entity)
+	      (message "Fetching skipped part...done."))
+	    (setq mmelmo-imap4-fetched t)))
+	(mime-buffer-entity-buffer-internal entity))
+    (save-excursion
+      (set-buffer (get-buffer-create 
+		   (concat mmelmo-entity-buffer-name
+			   (mmelmo-imap4-node-id-to-string 
+			    (mime-entity-node-id-internal entity)))))
+      (mmelmo-original-mode)
+      (mime-buffer-entity-set-buffer-internal entity (current-buffer))
+      (let ((buffer-read-only nil))
+	(erase-buffer)
+	(mime-entity-node-id entity)
+	(if (mime-root-entity-p entity)
+	    (progn
+	      ;; root entity
+	      (setq mmelmo-imap4-current-message-structure entity)
+	      (setq mime-message-structure entity)
+	      (setq mmelmo-imap4-skipped-parts nil)
+	      ;; insert header
+	      (insert (elmo-imap4-read-part 
+		       (mime-elmo-entity-folder-internal 
+			entity)
+		       (mime-elmo-entity-number-internal entity)
+		       "header"))
+	      (mime-buffer-entity-set-header-start-internal 
+	       entity (point-min))
+	      (mime-buffer-entity-set-header-end-internal
+	       entity (max (- (point) 1) 1))
+	      (if (null (mime-entity-children-internal entity))
+		  (progn
+		    (mime-buffer-entity-set-body-start-internal 
+		     entity (point))
+		    ;; insert body if size is OK.
+		    (mmelmo-imap4-insert-body entity)
+		    (mime-buffer-entity-set-body-end-internal 
+		     entity (point)))))
+	  (setq mime-message-structure 
+		mmelmo-imap4-current-message-structure)
+	  (mmelmo-imap4-read-part entity)))
+      (current-buffer))))
+
+(luna-define-method mime-goto-header-start-point ((entity mime-elmo-imap4-entity))
+  (set-buffer (mime-entity-buffer entity))
+  (point-min))
+
+(luna-define-method mime-goto-body-end-point ((entity mime-elmo-imap4-entity))
+  (set-buffer (mime-entity-buffer entity))
+  (point-max))
+
+(luna-define-method mime-entity-point-min ((entity mime-elmo-imap4-entity))
+  (set-buffer (mime-buffer-entity-buffer-internal entity))
+  (point-min))
+
+(luna-define-method mime-entity-point-max ((entity mime-elmo-imap4-entity))
+  (set-buffer (mime-buffer-entity-buffer-internal entity))
+  (point-max))
+
+(luna-define-method mime-entity-children ((entity mime-elmo-imap4-entity))
+  (let* ((content-type (mime-entity-content-type entity))
+         (primary-type (mime-content-type-primary-type content-type)))
+    (cond ((eq primary-type 'multipart)
+           (mime-parse-multipart entity))
+          ((and (eq primary-type 'message)
+                (memq (mime-content-type-subtype content-type)
+                      '(rfc822 news external-body)
+                      ))
+	   (save-excursion
+	     (set-buffer (luna-send entity 'mime-entity-buffer entity))
+	     (mime-buffer-entity-set-body-start-internal entity (point-min))
+	     (mime-buffer-entity-set-body-end-internal entity (point-max)))
+           (mime-parse-encapsulated entity)))))
+
+;; override generic function for dynamic body fetching.
+(luna-define-method mime-entity-content ((entity 
+					  mime-elmo-imap4-entity))
+  (save-excursion
+    (set-buffer (mime-entity-buffer entity))
+    (mime-decode-string
+     (buffer-substring (mime-buffer-entity-body-start-internal entity)
+		       (mime-buffer-entity-body-end-internal entity))
+     (mime-entity-encoding entity))))
+
+(luna-define-method mime-entity-fetch-field ((entity mime-elmo-imap4-entity) 
+					     field-name)
+  (save-excursion
+    (save-restriction
+      (when (mime-buffer-entity-buffer-internal entity)
+	(set-buffer (mime-buffer-entity-buffer-internal entity))
+	(if (and (mime-buffer-entity-header-start-internal entity)
+		 (mime-buffer-entity-header-end-internal entity))
+	    (progn
+	      (narrow-to-region 
+	       (mime-buffer-entity-header-start-internal entity)
+	       (mime-buffer-entity-header-end-internal entity))
+	      (std11-fetch-field field-name))
+	  nil)))))
+
+(luna-define-method mime-insert-header ((entity mime-elmo-imap4-entity)
+					&optional invisible-fields 
+					visible-fields)
+  (mmelmo-insert-sorted-header-from-buffer
+   (mime-entity-buffer entity)
+   (mime-buffer-entity-header-start-internal entity)
+   (mime-buffer-entity-header-end-internal entity)
+   invisible-fields visible-fields))
+
+(luna-define-method mime-entity-header-buffer ((entity mime-elmo-imap4-entity))
+  (mime-entity-buffer entity))
+
+(luna-define-method mime-entity-body-buffer ((entity mime-elmo-imap4-entity))
+  (mime-entity-buffer entity))
+
+(luna-define-method mime-write-entity-content ((entity mime-elmo-imap4-entity)
+					       filename)
+  (save-excursion
+    (set-buffer (mime-entity-buffer entity))
+    (unless mmelmo-imap4-fetched
+      (setq mmelmo-imap4-skipped-parts nil) ; No need?
+      (let ((mmelmo-imap4-threshold (mime-elmo-entity-size-internal entity)))
+	(mime-buffer-entity-set-buffer-internal entity nil) ; To re-fetch.
+	(message "Fetching skipped part...")
+	(luna-send entity 'mime-entity-buffer entity)
+	(message "Fetching skipped part...done.")))
+    (mime-write-decoded-region (mime-buffer-entity-body-start-internal entity)
+			       (mime-buffer-entity-body-end-internal entity)
+			       filename
+			       (or (mime-entity-encoding entity) "7bit"))))
+
+(provide 'mmelmo-imap4-2)
+
+;;; mmelmo-imap4-2.el ends here
diff --git a/elmo/mmelmo-imap4.el b/elmo/mmelmo-imap4.el
new file mode 100644
index 0000000..53c8f1c
--- /dev/null
+++ b/elmo/mmelmo-imap4.el
@@ -0,0 +1,41 @@
+;;; mmelmo-imap4.el -- MM backend of IMAP4 for ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/07 17:00:30 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(static-if (fboundp 'luna-define-method)
+    ;; FLIM 1.13 or later
+    (require 'mmelmo-imap4-2)
+  ;; FLIM 1.12
+  (require 'mmelmo-imap4-1))
+
+(provide 'mmelmo-imap4)
+
+;;; mmelmo-imap4.el ends here
diff --git a/elmo/mmelmo.el b/elmo/mmelmo.el
new file mode 100644
index 0000000..e7c541e
--- /dev/null
+++ b/elmo/mmelmo.el
@@ -0,0 +1,159 @@
+;;; mmelmo.el -- mm-backend by ELMO.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/07 17:00:43 teranisi>
+
+;; This file is part of ELMO (Elisp Library for Message Orchestration).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-vars)
+(require 'elmo-util)
+(require 'mime-parse)
+(require 'mmbuffer)
+
+(defvar mmelmo-header-max-column fill-column
+  "*Inserted header is folded with this value.
+If function is specified, its return value is used.")
+
+(defvar mmelmo-header-inserted-hook nil
+  "*A hook called when header is inserted.")
+
+(defvar mmelmo-entity-content-inserted-hook nil
+  "*A hook called when entity-content is inserted.")
+
+(defun mmelmo-get-original-buffer ()
+  (save-excursion
+    (let (ret-val)
+      (if (setq ret-val 
+		(get-buffer (concat mmelmo-entity-buffer-name "0")))
+	  ret-val
+	(set-buffer (setq ret-val
+			  (get-buffer-create 
+			   (concat mmelmo-entity-buffer-name "0"))))
+	(mmelmo-original-mode)
+	ret-val))))
+
+(defun mmelmo-cleanup-entity-buffers ()
+  "Cleanup entity buffers of mmelmo."
+  (mapcar (lambda (x)
+	    (if (string-match mmelmo-entity-buffer-name x)
+		(kill-buffer x)))
+	  (mapcar 'buffer-name (buffer-list))))
+
+(defun mmelmo-insert-sorted-header-from-buffer (buffer 
+						start end
+						&optional invisible-fields
+						visible-fields
+						sorted-fields)
+  (let ((the-buf (current-buffer))
+	(mode-obj (mime-find-field-presentation-method 'wide))
+	field-decoder
+	f-b p f-e field-name field field-body
+        vf-alist (sl sorted-fields))
+    (save-excursion
+      (set-buffer buffer)
+      (save-restriction
+	(narrow-to-region start end)
+	(goto-char start)
+	(while (re-search-forward std11-field-head-regexp nil t)
+	  (setq f-b (match-beginning 0)
+		p (match-end 0)
+		field-name (buffer-substring f-b p)
+		f-e (std11-field-end))
+	  (when (mime-visible-field-p field-name
+				      visible-fields invisible-fields)
+	    (setq field (intern
+			 (capitalize (buffer-substring f-b (1- p))))
+		  field-body (buffer-substring p f-e)
+		  field-decoder (inline (mime-find-field-decoder-internal
+					 field mode-obj)))
+            (setq vf-alist (append (list
+                                    (cons field-name
+                                          (list field-body field-decoder)))
+                                   vf-alist))))
+        (and vf-alist
+             (setq vf-alist
+                   (sort vf-alist
+                         (function (lambda (s d)
+                                     (let ((n 0) re
+                                           (sf (car s))
+                                           (df (car d)))
+                                       (catch 'done
+                                         (while (setq re (nth n sl))
+                                           (setq n (1+ n))
+                                           (and (string-match re sf)
+                                                (throw 'done t))
+                                           (and (string-match re df)
+                                                (throw 'done nil)))
+                                         t)))))))
+        (with-current-buffer the-buf
+          (while vf-alist
+            (let* ((vf (car vf-alist))
+                   (field-name (car vf))
+                   (field-body (car (cdr vf)))
+                   (field-decoder (car (cdr (cdr vf)))))
+              (insert field-name)
+	      (insert (if field-decoder
+			  (funcall field-decoder field-body
+                                   (string-width field-name)
+				   (if (functionp mmelmo-header-max-column)
+				       (funcall mmelmo-header-max-column)
+				     mmelmo-header-max-column))
+			;; Don't decode
+			field-body))
+              (insert "\n"))
+            (setq vf-alist (cdr vf-alist)))
+	  (run-hooks 'mmelmo-header-inserted-hook))))))
+
+(defun mmelmo-original-mode ()
+  (setq major-mode 'mmelmo-original-mode)
+  (setq buffer-read-only t)
+  (elmo-set-buffer-multibyte nil)
+  (setq mode-name "MMELMO-Original"))
+
+;; For FLIMs without rfc2231 feature .
+(if (not (fboundp 'mime-parse-parameters-from-list))
+    (defun mime-parse-parameters-from-list (attrlist)
+      (let (ret-val)
+	(if (not (eq (% (length attrlist) 2) 0))
+	    (message "Invalid attributes."))
+	(while attrlist
+	  (setq ret-val (append ret-val
+				(list (cons (downcase (car attrlist))
+					    (downcase (car (cdr attrlist)))))))
+	  (setq attrlist (cdr (cdr attrlist))))
+	ret-val)))
+
+(provide 'mmelmo) ; for circular dependency.
+(static-if (fboundp 'luna-define-method)
+    ;; FLIM 1.13 or later
+    (require 'mmelmo-2)
+  ;; FLIM 1.12
+  (require 'mmelmo-1))
+
+
+;;; mmelmo.el ends here
diff --git a/elmo/utf7.el b/elmo/utf7.el
new file mode 100644
index 0000000..81e66ee
--- /dev/null
+++ b/elmo/utf7.el
@@ -0,0 +1,258 @@
+;;; utf7.el --- UTF-7 encoding/decoding for Emacs
+;; Copyright (C) 1999 Free Software Foundation, Inc.
+
+;; Author: Jon K Hellan <hellan@item.ntnu.no>
+;; Keywords: mail
+
+;; This file is part of GNU Emacs, but the same permissions apply
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+;;; UTF-7 - A Mail-Safe Transformation Format of Unicode - RFC 2152
+;;; This is a transformation format of Unicode that contains only 7-bit
+;;; ASCII octets and is intended to be readable by humans in the limiting 
+;;; case that the document consists of characters from the US-ASCII
+;;; repertoire.
+;;; In short, runs of characters outside US-ASCII are encoded as base64 
+;;; inside delimiters.
+;;; A variation of UTF-7 is specified in IMAP 4rev1 (RFC 2060) as the way
+;;; to represent characters outside US-ASCII in mailbox names in IMAP.
+;;; This library supports both variants, but the IMAP variation was the
+;;; reason I wrote it. 
+;;; The routines convert UTF-7 -> UTF-16 (16 bit encoding of Unicode) 
+;;; -> current character set, and vice versa. 
+;;; However, until Emacs supports Unicode, the only Emacs character set
+;;; supported here is ISO-8859.1, which can trivially be converted to/from
+;;; Unicode.
+;;; When decoding results in a character outside the Emacs character set,
+;;; an error is thrown. It is up to the application to recover.
+
+;;; Modified 8 December 1999 by Yuuichi Teranishi so that it will work under
+;;; Emacs+Mule-UCS and XEmacs.
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+(eval-when-compile (require 'pces))
+(eval-when-compile (require 'static))
+
+;; base64 stuff.
+;;(static-if (and (fboundp 'base64-decode-region)
+;;		(subrp (symbol-function 'base64-decode-region)))
+;;    (eval-and-compile (fset 'utf7-base64-decode-region 'base64-decode-region))
+;;  (require 'mel)
+;;  (defun utf7-base64-decode-region (start end)
+;;    (fset 'utf7-base64-decode-string
+;;	  (symbol-function (mel-find-function 'mime-decode-region "base64")))
+;;    (utf7-base64-decode-region start end)))
+
+;;(static-if (and (fboundp 'base64-encode-region)
+;;		(subrp (symbol-function 'base64-encode-region)))
+;;    (eval-and-compile (fset 'utf7-base64-encode-region 'base64-encode-region))
+;;  (defun utf7-base64-encode-string (start end)
+;;    (fset 'utf7-base64-encode-region
+;;	  (symbol-function (mel-find-function 'mime-encode-region "base64")))
+;;    (utf7-base64-encode-region start end)))
+
+;; On XEmacs which does not support UTF-16 have to use u7tou8 and u8tou7. 
+;; These programs are included in
+;; ftp://ftp.ifcss.org/pub/software/unix/convert/utf7.tar.gz
+(defvar utf7-utf7-to-utf8-program "u7tou8"
+  "Program to convert utf7 to utf8.")
+(defvar utf7-utf8-to-utf7-program "u8tou7"
+  "Program to convert utf8 to utf7.")
+
+(defvar utf7-direct-encoding-chars " -%'-*,-[]-} \t\n\r"
+  "Characters ranges which do not need escaping in UTF-7")
+(defvar utf7-imap-direct-encoding-chars 
+  (concat utf7-direct-encoding-chars "+\\\\~")
+  "Characters ranges which do not need escaping in the IMAP modified variant of UTF-7")
+
+(defsubst utf7-imap-get-pad-length (len modulus)	  
+  "Return required length of padding for IMAP modified base64 fragment."
+  (mod (- len) modulus))
+
+(static-cond
+ ((and (featurep 'xemacs) 
+       (module-installed-p 'xemacs-ucs))
+  (defun utf7-fragment-decode (start end &optional imap)
+    "Decode base64 encoded fragment from START to END of UTF-7 text in buffer.
+Use IMAP modification if IMAP is non-nil."  
+    (require 'xemacs-ucs)
+    (save-restriction 
+      (narrow-to-region start end)
+      (when imap
+	(goto-char start)
+	(while (search-forward "," nil 'move-to-end) (replace-match "/")))
+      (goto-char (point-min))
+      (insert "+")
+      (as-binary-process
+       (call-process-region (point-min) (point-max)
+			    utf7-utf7-to-utf8-program
+			    t (current-buffer)))
+      (decode-coding-region (point-min) (point-max) 'utf-8)))
+
+  (defun utf7-fragment-encode (start end &optional imap)
+    "Decode base64 encoded fragment from START to END of UTF-7 text in buffer.
+Use IMAP modification if IMAP is non-nil."  
+    (require 'xemacs-ucs)
+    (let ((buffer (current-buffer))
+	  encoded-string)
+      (setq encoded-string
+	    (with-temp-buffer
+	      (insert-buffer-substring buffer start end)
+	      (save-excursion 
+		(goto-char (point-max))
+		(insert "\n"))
+	      (encode-coding-region (point-min) (point-max) 'utf-8)
+	      (as-binary-process
+	       (call-process-region (point-min) (point-max)
+				    utf7-utf8-to-utf7-program
+				    t (current-buffer)))
+	      (goto-char (point-min))
+	      (when imap
+		(skip-chars-forward "+")
+		(delete-region (point-min) (point))
+		(insert "&")
+		(while (search-forward "/" nil t)
+		  (replace-match ",")))
+	      (goto-char (point-max))
+	      (delete-backward-char 1)
+	      (insert "-")
+	      (buffer-string)))
+      (delete-region start end)
+      (insert encoded-string))))
+ ((module-installed-p 'un-define) ;; Emacs
+  (defun utf7-fragment-decode (start end &optional imap)
+    "Decode base64 encoded fragment from START to END of UTF-7 text in buffer.
+Use IMAP modification if IMAP is non-nil."
+    (require 'un-define)
+    (save-restriction
+      (narrow-to-region start end)
+      (goto-char (point-min))
+      (insert "+")
+      (when imap
+	(goto-char start)
+	(while (search-forward "," nil 'move-to-end) (replace-match "/")))
+      (decode-coding-region (point-min) (point-max) 'utf-7)
+      ))
+
+  (defun utf7-fragment-encode (start end &optional imap)
+    "Encode text from START to END in buffer as UTF-7 escape fragment.
+Use IMAP modification if IMAP is non-nil."
+    (require 'un-define)
+    (let ((buffer (current-buffer))
+	  encoded-string)
+      (setq encoded-string
+	    (with-temp-buffer
+	      (insert-buffer-substring buffer start end)
+	      (encode-coding-region (point-min) 
+				    (point-max) 'utf-7)
+	      (goto-char (point-min))
+	      (when imap
+		(skip-chars-forward "+")
+		(delete-region (point-min) (point))
+		(insert "&")
+		(while (search-forward "/" nil t)
+		  (replace-match ",")))
+	      (skip-chars-forward "^= \t\n" (point-max))
+	      (delete-region (point) (point-max))
+	      (buffer-string)))
+      (delete-region start end)
+      (insert encoded-string))))
+ (t
+  ;; Define as null function.
+  (defun utf7-fragment-decode (start end &optional imap)
+    "Encode text from START to END in buffer as UTF-7 escape fragment.
+Use IMAP modification if IMAP is non-nil."
+    )
+
+  (defun utf7-fragment-encode (start end &optional imap)
+    "Encode text from START to END in buffer as UTF-7 escape fragment.
+Use IMAP modification if IMAP is non-nil."
+    )))
+
+(defun utf7-encode-region (start end &optional imap)
+  "Encode text in region as UTF-7.
+Use IMAP modification if IMAP is non-nil."
+  (interactive "r")
+  (save-restriction
+    ;;(set-buffer-multibyte default-enable-multibyte-characters)
+    (narrow-to-region start end)
+    (goto-char start)
+    (let ((esc-char (if imap ?& ?+))
+	  (direct-encoding-chars 
+	   (if imap utf7-imap-direct-encoding-chars
+	     utf7-direct-encoding-chars)))
+      (while (not (eobp))
+	(skip-chars-forward direct-encoding-chars)
+	(unless (eobp)
+	  (let ((p (point))
+		(fc (following-char))
+		(run-length 
+		 (skip-chars-forward (concat "^" direct-encoding-chars))))
+	    (if (and (= fc esc-char)
+		     (= run-length 1))	; Lone esc-char?
+		(delete-backward-char 1) ; Now there's one too many
+	      (utf7-fragment-encode p (point) imap))))))))
+
+(defun utf7-decode-region (start end &optional imap)
+  "Decode UTF-7 text in region.
+Use IMAP modification if IMAP is non-nil."
+  (interactive "r")
+  (save-excursion
+    (goto-char start)
+    (let* ((esc-pattern (concat "^" (char-to-string (if imap ?& ?+))))
+	   (base64-chars (concat "A-Za-z0-9+" 
+				 (char-to-string (if imap ?, ?/)))))
+      (while (not (eobp))
+	(skip-chars-forward esc-pattern)
+	(unless (eobp)
+	  (forward-char)
+	  (let ((p (point))
+		(run-length (skip-chars-forward base64-chars)))
+	    (when (and (not (eobp)) (= (following-char) ?-))
+	      (delete-char 1))
+	    (unless (= run-length 0)	; Encoded lone esc-char?
+	      (save-excursion
+		(utf7-fragment-decode p (point) imap)
+		(goto-char p)
+		(delete-backward-char 1)))))))
+    ;;(set-buffer-multibyte default-enable-multibyte-characters)
+    ))
+
+(defun utf7-encode-string (string &optional imap)
+  "Encode UTF-7 string. Use IMAP modification if IMAP is non-nil."
+  (with-temp-buffer
+    (insert string)
+    (utf7-encode-region (point-min) (point-max) imap)
+    (buffer-string)))
+
+(defun utf7-decode-string (string &optional imap)
+  "Decode UTF-7 string. Use IMAP modification if IMAP is non-nil."
+  (with-temp-buffer
+    (insert string)
+    (utf7-decode-region (point-min) (point-max) imap)
+    (buffer-string)))
+
+;; For compatibility.
+(defalias 'utf7-decode 'utf7-decode-string)
+(defalias 'utf7-encode 'utf7-encode-string)
+
+(provide 'utf7)
+
+;;; utf7.el ends here
diff --git a/etc/ChangeLog.1.ja b/etc/ChangeLog.1.ja
new file mode 100644
index 0000000..b9e0896
--- /dev/null
+++ b/etc/ChangeLog.1.ja
@@ -0,0 +1,2031 @@
+1998-12-02  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.8.8 - "Veronica"
+	* news $B5-;v$r%-%c%s%;%k$9$k$H$-$b(B wl-mail-send-pre-hook $B$r8F$V(B
+	  $B$h$&$K$7$?!#(B
+	* im-wl.el $B$NHsF14|(B imput $B$r;H$C$F$$$k>l9g(B news $B5-;v$r(B
+	  $B%-%c%s%;%k$G$-$J$+$C$?$N$r=$@5!#(B
+	* Summary $B$G(B 'E' reedit $B$7$?$H$-!"(Bdraft $B$N%P%C%U%!$,(B read-only $B$K(B
+	  $B$J$C$F$7$^$&>l9g$,$"$kLdBj$KBP=h!#(B
+	  ($B?@V:$5$s(B <kamisima@etl.go.jp> $B$h$j8f;XE&!#(B)
+	* $BJD$8$?%9%l%C%I$r:o=|$7$?$H$-$K$=$N;R$I$b$,9TJ}ITL@$K$J$k$N$r(B
+	  $B=$@5(B($B?@V:$5$s(B <kamisima@etl.go.jp> $B$h$j8f;XE&!#(B)
+	* wl-mail-send-pre-hook $B$N8F$P$lJ}$rJQ99!#(B
+	  im-wl.el $B$G(B imput $B$r;H$&>l9g$H(B elisp $BHG$N>l9g$G%P%C%U%!$N>uBV$,(B
+	  $BF1$8$K$J$k$h$&$K$7$?!#(B
+
+1998-12-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $BJQ?t(B wl-insert-message-id $B$,$^$k$C$-$jL5;k$5$l$F$$$?$N$r=$@5!#(B
+
+1998-12-01  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* update all $B$G%5%^%j$r:n$jD>$9$H$-!$%9%l%C%I$N?F$h$j;R$,<c$$HV(B
+	  $B9f$@$H!$;R$,%5%^%j$KI=<($5$l$J$$$N$r=$@5$7$?!#(B
+	* wl-thread-insert-entity, wl-thread-update-line-on-buffer
+	  wl-thread-entity-get-children-num, wl-thread-entity-get-children-msgs
+	  wl-thread-entity-check-next-mark,wl-thread-entity-check-prev-mark
+	  wl-thread-entity-check-next-mark-from-younger-brother
+	  wl-thread-entity-check-prev-mark-from-older-brother
+	  $B0J>e$N4X?t$r:F5"E*$K8F$S=P$5$J$$$h$&=$@5!#(B
+	* $BJ6$i$o$7$$0l;~JQ?t$NL>A0$r=$@5(B (num -> len, number -> num)$B!#(B
+	* nntp (not xover) $B$G?75,%a%C%;!<%8$K(B "N" $B%^!<%/$,$D$+$J$$$N$r=$@5!#(B
+	* wl-auto-select-next $B$,(B t $B$N$H$-$K%5%^%jFb$r0\F0$7$F$b(B
+	  "Updated (-0/+1) message(s)" $B$J$I$NI=<($r>C$5$J$$$h$&$K$7$?!#(B
+
+1998-11-30  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* msgdb $B$K(B $B:G8e$N(B message-id $B$7$+J]B8$7$J$$$h$&$K$7$?!#(B
+	* wl-summary-weekday-name-lang $B$,<B$OH?1G$5$l$F$$$J$+$C$?$N$r=$@5!#(B
+	* 0.8.7 - "Union Of The Snake"
+	* pack $B$G!"L$FI%^!<%/$rJ]B8$9$k$h$&$K$7$?!#(B
+	* elmo-set-work-buf $B$N%^%/%m$,(B mule-2.3@19.28 $B$GF0$+$J$$$N$r=$@5!#(B
+
+1998-11-30  IMAI Takeshi <imai@ed2.com1.fc.nec.co.jp>
+
+	* wl-highlight-body-too$B$,(Bnil$B$N;~$O!"%I%i%U%H$N(B body $B$b%O%$%i%$%H$7(B
+	  $B$J$$$h$&$K$7$?!#(B
+
+1998-11-30  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo]elmo-localdir-msgdb-create-overview-entity-from-file $BCf$N(B
+	  insert-file-contents $B$G5/$3$k%(%i!<$rL5;k$9$k$h$&$K$7$?!#(B
+	  ($B2,ED$5$s(B <kokada@tamaru.kuee.kyoto-u.ac.jp> $B$h$j8f;XE&!#(B)
+	* wl-summary-mark-collect $B$,!"JD$8$?%9%l%C%I$G%a%C%;!<%8$r=EJ#$7$F(B
+	  $B=8$a$F$7$^$&$?$a!":o=|;~$K%9%l%C%I$,$*$+$7$/$J$k$3$H$,$"$k$N$r=$@5!#(B
+
+1998-11-29  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* local[dir|news] $B$@$1(B pack $B$r%5%]!<%H!#(B
+
+1998-11-29  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-thread-insert-entity, wl-thread-update-line-on-buffer,
+	  wl-thread-entity-check-prev-mark,
+	  wl-thread-entity-check-next-mark $B$N3F4X?t$G:F5"E*$K(B binding $B$5(B
+	  $B$l$k%m!<%+%kJQ?t$r:o8:$7$?!#(B
+	* wl-summary.el $B$H(B wl-thread.el $B$N%P%$%H%3%s%Q%$%k;~$N%a%C%;!<%8(B
+	  $B$r:o8:$7$?(B($B%m!<%+%kJQ?t$N@0M}$r$7$?(B)$B!#(B
+	* timezone-fix-time $B$G%(%i!<$,5/$3$C$F$b%5%^%j$r:n@.$G$-$k$h$&$K(B
+	  $B$7$?!#(B
+	* $BJ#?t%a%C%;!<%8$G$N%9%l%C%I%"%C%W%G!<%H$H%9%l%C%I:o=|$N9bB.2=$r(B
+	  $B9T$C$?!#(B
+	* $B%5%^%j>pJs$,$J$$>l9g(B wl-summary-buffer-msgdb $B$,(B '(nil nil nil
+	  nil) $B$K$J$k$3$H$,H?1G$5$l$F$$$J$+$C$?$N$rH?1G$7$?!#(B
+	* wl-summary-sync $B$N(B update all $B$G8E$$(B entity $B>pJs$,;D$C$F$7$^$&(B
+	  $B$N$r=$@5$7$?!#(Bwl-thread-entities $B$,(B nil $B$K(B set $B$5$l$F$$$J$+$C(B
+	  $B$?$?$a!#(B
+	* elmo-util.el $B$H(B wl-util.el $B$N4X?t$G8DJL$K%P%C%U%!$r:n$C$F$$$?$N(B
+	  $B$r(B1$B$D$K$^$H$a$F9bB.2=$7$?!#(B
+	* sample.dot.wl $B$r99?7$7$?!#(Bwl-highlight-group-folder-by-numbers
+	  $B$NDI2C$H!$(Bmy-wl-summary-from-func-petname $B$N%P%0=$@5!#(B
+
+1998-11-29  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-ja.texi $B$K2CI.!&=$@5!#(B
+	* [elmo] localdir, archive, pop3, nntp $B$N3F%^!<%/@8@.ItJ,$G(B seen-list
+	  $B$rMxMQ$9$k$h$&=$@5!#(B
+	* sync-all, sync-update $B$GA0$NL$FI>uBV$r0z$-7Q$0$h$&$K$7$?!#(B
+	* [elmo] elmo-msgdb-create $B$N0z?t$K(B seen-list $B$rDI2C!#(B
+
+1998-11-28  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-call-func $B$NJQ99$N$?$a!"5/F0;~$K(Barchive $B%U%)%k%@$N(B
+	  $B%U%)%k%@%A%'%C%/$K<:GT$9$k$h$&$K$J$C$F$7$^$C$?$N$r=$@5!#(B
+
+1998-11-28  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $B?75,JQ?t(B wl-summary-weekday-name-lang$B!#%G%U%)%k%H$O(B "ja"$B!#(B
+	* wl-summary-wday-use-japanese -> $BGQ;_!#(B
+	* [elmo] elmo-plugged $B$,(B 2 $B2s(B defvar $B$5$l$F$$$?$N$r=$@5(B
+	  ($B;{ED$5$s(B <te@isl.ntt.co.jp> $B$h$j8f;XE&!#(B)
+
+1998-11-27  Masayuki TERADA <te@isl.ntt.co.jp>
+
+	* [elmo] elmo-folder-identical-system-p $B$N%m%8%C%/$,:xAn$7$F$$$?$N(B
+	  $B$r2~A1!#(B
+
+1998-11-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-interactive-exit $B$,(B t $B$N$H$-!$=*N;3NG'$G(B n $B$HEz$($F$+$i:FEY(B
+	  M-x wl $B$r<B9T$9$k$H!$%G%b2hLL$,$G$F=i4|2=$,<B9T$5$l$F$7$^$&$N$r(B
+	  $B=$@5!#(B
+
+1998-11-27  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* elmo-date $B$,%$%s%9%H!<%i$KF~$C$F$$$J$+$C$?$N$r=$@5!#(B
+
+1998-11-27  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.8.6 - "True Colors"
+	* localdir, imap4 $B$O(B since $B$H(B before $B$GF|IU8!:w$G$-$k$h$&$K$7$?!#(B
+	  ($BKLL\$5$s(B <kitame@northeye.org> $B$N8fMWK>$K4p$E$/(B)$B!#(B
+	* $BF|IU$1=hM}%b%8%e!<%kMQ?75,%U%!%$%k(B elmo-date.el $B$rDI2C!#(B
+	* $B%9%l%C%I$,:o=|$5$l$?$H$-!"%9%l%C%I%H%C%W$N%j%9%H$,@5$7$/$J$/$J$k(B
+	  $B$N$r=$@5(B ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)$B!#(B
+	* elmo-localdir-copy-msgs $B$K(B (require 'elmo-archive) $B$rDI2C!#(B
+	  ($B;{ED$5$s(B <te@isl.ntt.co.jp> $B$h$j8f;XE&!#(B)
+
+1998-11-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-call-func $B$G(B elmo-folder-get-spec $B$,L5BL$K8F$P$l$F$$$?$N$r(B
+	  $B=$@5!#(B
+	* .folders $B$NF,$K$D$1$F$$$?%U%)%k%@%?%$%W$N@bL@$r:o=|!#(B
+
+1998-11-26  Shun-ichi GOTO <gotoh@taiyo.co.jp>
+
+	* elmo-read-passwd $B$G(B prompt $B$K(B '%' $B$,4^$^$l$F$$$k$H%(%i!<$K$J$k(B
+	  $B$N$r=$@5!#(B
+
+1998-11-26  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%9%l%C%I9=B$$N%;!<%V$K$+$+$k;~4V$rC;=L!#(B
+	  $B"*(B $B%;!<%V;~$K$$$A$$$A(B obarray $B$+$i%;!<%V$9$k(Blist $B$r@8@.$9$k$N$r$d$a!"(B
+	  $B%9%l%C%ILZ9=B$$N%N!<%I$N%j%9%H$r%P%C%U%!%m!<%+%kJQ?t$KJ];}$9$k$3$H(B
+	  $B$K$7$?!#(B
+	* $BJD$8$?%9%l%C%I$K1#$5$l$?%a%C%;!<%8$N=hM}$,<B9T$5$l$J$$%P%0$r=$@5!#(B
+	* pick $B$G$-$J$$%P%0$r=$@5!#(B
+
+1998-11-25  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.8.5 - "Sussudio"
+	* IMAP4 $B$G(B RFC822 $B$N%Q!<%H$,5pBg$G%9%-%C%W$5$l$?>l9g$K(B mime-entity $B$N(B
+	  body-start $B$H(B body-end $B$,<h$l$J$/$F%(%i!<$K$J$k$N$r=$@5!#(B
+	* $BF1$8(B Message-ID $B$N%a%C%;!<%8$,J#?t$"$k$H$-$K$=$N$&$A0l$D$r:o=|(B
+	  $B$9$k$H(B Summary $B$,$*$+$7$/$J$k$N$r=$@5!#(B
+	* Folder $B%b!<%I$G(B 'rc' $B$r2!$9$H(B 'c' $B$r%j!<%8%g%s<B9T$9$k$h$&$K$7$?!#(B
+	* Folder $B%b!<%I$G(B 'c' $B$r2!$9$H!"A4ItFI$s$@$3$H$K$9$k$h$&$K$7$?!#(B
+	  ($B2,ED$5$s(B <kokada@tamaru.kuee.kyoto-u.ac.jp> $B$h$j8fMWK>(B)
+	* $BB<ED$5$s$K$h$k$$$/$D$+$NJQ99$rH?1G$7K:$l$F$$$?$N$rH?1G(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)$B!#(B
+
+1998-11-25  Shun-ichi GOTO <gotoh@taiyo.co.jp>
+
+	* $B4X?t(B elmo-pop3-get-connection $B$K?7$7$$0z?t(B auth$B$rDI2C!#(B
+	* $B4X?t(B elmo-pop3-open-connection $B$K?7$7$$0z?t(B auth$B$rDI2C!#(B
+	* $B?75,4X?t(B elmo-pop-make-apop-digest<f> $B$rDI2C!#(B
+	* $B?75,JQ?t(B elmo-default-pop3-authenticate-type ($B%G%U%)%k%H$NG'>ZJ}K!(B)$B!#(B
+	* $B4X?t(B elmo-pop3-open-connection $B$K$F!"(BAPOP$B%3%^%s%I$K$h$kG'>Z$N$?$a$N(B
+	  $B%3!<%I$rDI2C!#(B
+	* POP $B%U%)%k%@$N=q<0$r(B user[/auth]@host[:port] $B$H$7$?!#(B
+	* [elmo-pop3] APOP $BBP1~!#(B
+
+1998-11-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.8.4 - "Rosanna"
+	* 'mo' 'mO' $B$G%^!<%/$,$J$$$H$-@hF,$K%^!<%/$,$D$$$F$7$^$&$N$r=$@5!#(B
+	* $B%9%l%C%I$,$^$@$&$^$/:o=|$G$-$F$J$+$C$?$N$r=$@5!#(B
+	  ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f;XE&(B)
+	* "#" $B$O$d$C$Q$j$^$:$$$N$G(B pop3 $B$N%U%)%k%@J8;z$r(B "&" $B$KJQ99!#(B
+	  ($B8eF#$5$s(BShun-ichi GOTO <gotoh@taiyo.co.jp>$B$N8f;XE&(B)$B!#(B
+
+1998-11-24  Shun-ichi GOTO <gotoh@taiyo.co.jp>
+
+	* POP3 $B$O%;%C%7%g%sCf$K?7Ce%a!<%k$r8!=P$9$k5!G=$,$J$$$?$a(B
+	  scan: update $B$7$F$b?7Ce$,8=$l$J$$BP:v$H$7$F(B
+	  list$B;~$K$O6/@)E*$K0lEY%;%C%7%g%s$r@Z$k$h$&$K$7$?!#(B
+
+1998-11-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.8.3 - "Pop Life"
+	* $B%9%l%C%I$,$&$^$/:o=|$G$-$J$$%P%0$r=$@5!#(B
+	* elmo-maildir.el $B$,%$%s%9%H!<%k$5$l$J$$$N$r=$@5!#(B
+	* 0.8.2 - "Open Arms"
+
+1998-11-23  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%m!<%+%k%K%e!<%9$N%Q%9$N%G%j%_%?$O(B "." $B$G$b$h$$$3$H$K$7$?!#(B
+
+1998-11-23  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B%m!<%+%k%K%e!<%9!"(B'=' $B$N%5%]!<%H!#(B
+
+1998-11-23  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* update $B;~$K%(%i!<$,$"$k$H(B Summary $B$,(B modified $B$K$J$C$F$7$^$&$N$r(B
+	  $B=$@5!#(B
+	* XEmacs $B$G%"%/%;%9%0%k!<%W$K4^$^$l$k<+J,<+?H$N%"%$%3%s$,(B
+	  $BI=<($5$l$J$$%P%0$r=$@5!#(B
+
+1998-11-22  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-thread-{open|close}-all $B$G=hM}$N?JD=$rI=<($9$k$h$&$K$7$?!#(B
+	* $B%9%l%C%I$NF~$l;R4IM}$r$d$a!"%9%l%C%I9=B$$N8!:w$K$O(B
+	  obarray (hashtable) $B$r;H$&$h$&$K$7$?!#(B
+	  ($B8eF#$5$s(B Shun-ichi GOTO <gotoh@taiyo.co.jp> $B$N8f=u8@$K4p$E$/(B)
+	* wl-thread-jump-to-next-unread $B$N(B hereto $B$,$&$^$/F0$+$J$$>l9g$,(B
+	  $B$"$C$?$N$r=$@5!#(B
+	* elmo-pop3.el $B$r<BAu!#(B($B%U%)%k%@J8;z$O(B "#" $B$H$7$?!#(B)
+	  ($B8eF#$5$s(B Shun-ichi GOTO <gotoh@taiyo.co.jp> $B$N8f=u8@$K4p$E$/(B)
+
+1998-11-21  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [typo] wl-draft-enable-queueing -> wl-draft-enable-queuing$B!#(B
+	* [typo] wl-interacitve-save-folders -> wl-interactive-save-folders$B!#(B
+	* [wl-ja.texi] x-face-mule $B$N@_DjNc$r=$@5!#(B
+
+1998-11-21  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [wl-ja.texi] $BJd4V(B -> $BJd40!#(B
+
+1998-11-21  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* elmo-maildir $B$NDI2C$KH<$&JQ99B??t!#(B
+	* $B?75,%U%!%$%k(B elmo-maildir.el$B!#(B
+	* $B?75,JQ?t(B elmo-maildir-list$B!#%^%C%A$9$k(B localdir $B%U%)%k%@$O(B
+	  Maildir $B$H$7$F07$&!#(B
+
+1998-11-20  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* sample.dot.wl $B$G(B msgdb $B$K(B jka-compr $B$rMxMQ$9$kNc$rDI2C!#(B
+
+1998-11-19  Susumu Wakabayashi <susumu-w@ops.dti.ne.jp>
+
+	* $B%I%-%e%a%s%H$NJ8>O$G$$$/$D$+$^$k$,H4$1$F$$$?$N$r=$@5!#(B
+
+1998-11-18  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,%U%!%$%k(B sample.dot.wl$B!#(B
+
+1998-11-17  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* elmo-cache-expire-by-size $B$,(B mule-2.3@19.28 $B$G$bF0$/$h$&$K$7$?!#(B
+	* $B%O%$%i%$%H$N%G%U%)%k%H@_Dj$O(B wl-highlight-background-mode $B$NCM$r8+$k(B
+	  $B$h$&$K$7$?(B(Takehama Hirohisa <thiro@kt.rim.or.jp> $B$5$s!"(B
+	   $B85LZ$5$s(B <mokkun@iname.com>$B$N8f0U8+$K4p$E$/(B)$B!#(B
+	* $B?75,JQ?t(B wl-highlight-background-mode$B!#(B
+	* $B?75,JQ?t(B wl-highlight-group-folder-by-numbers$B!#(B
+	* $B%0%k!<%W%U%)%k%@$r!"%a%C%;!<%8$N?t$K1~$8$F?'$rJQ$($i$l$k$h$&$K(B
+	  $B$7$?(B($BBg_7$5$s(B <ohsawa@pms.mmlab.toshiba.co.jp>$B!"(B
+	  $B85LZ$5$s(B <mokkun@iname.com> $B$h$j8fMWK>(B)$B!#(B
+
+1998-11-16  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* wl-summary-exit $B$9$k$H$-$K(B Message $B%P%C%U%!$r(B kill $B$9$k$h$&(B
+	  $B$K$7$?!#(B
+
+1998-11-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-delete-folder-alist $B$N(B docstring $B$N4V0c$$$r=$@5!#(B
+
+1998-11-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* summary $B$N(B update $B;~$K(B important mark $B$NIU$$$?%a%C%;!<%8$,4{$K(B
+	  $BB8:_$7$J$$$H!$%5%^%j$+$i>C$($F$7$^$&$N$r=$@5$7$?!#(B
+	* $B%a%C%;!<%8$r:o=|$7$?$H$-$N%]%j%7!<$r%f!<%6$,JQ99$G$-$k$h$&$K$7(B
+	  $B$?!#(B
+
+1998-11-15  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Message $B%P%C%U%!$,(B modified $B$K$J$C$F$7$^$&$N$r=$@5!#(B
+
+1998-11-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%9%l%C%I$,(B closed $B$J$H$-(B prefetch $B$K<:GT$9$k$N$r=$@5!#(B
+	* $B%9%l%C%I$N(B prefetch $B;~!"%a%C%;!<%8?t$,$*$+$7$+$C$?$N$r=$@5!#(B
+	* [elmo-archive] elmo-archive-get-archive-name $B$G!"B8:_$7$J$$(B
+	  $B%U%)%k%@$N$H$-$K4|BT$5$l$k%U%!%$%kL>$,JV$C$FMh$J$$$N$r=$@5!#(B
+	  ($B1|@>$5$s(B<fuji0924@mbox.kyoto-inet.or.jp> $B$N8f;XE&(B)
+
+1998-11-14  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* typo fix elmo-funcall() -> elmo-call-func()$B!#(B
+	* $B%G%#%l%/%H%j$r7!$kA0$KF1L>$N%U%!%$%k$,B8:_$9$k$+$r??LLL\$K(B
+	  $B%A%'%C%/!#(B
+	* [elmo-archive] $BIQHK$K8F$P$l$J$$4X?t$O(B defun $B$KLa$7$?!#(B
+
+1998-11-12  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-localdir.el, elmo-imap4.el, elmo-nntp.el $B$,5/F0;~$+$i(B
+	  load $B$5$l$J$$$h$&$K$7$?!#(B
+	* nntp$B%U%)%k%@$,(B1$B$D$b$J$/$F$b5/F0;~$K(B elmo-nntp.el $B$,(B load $B$5$l(B
+	  $B$k$N$r=$@5$7$?!#(B
+	* `wl-summary-prepared-hook' $B$rDI2C!#(B
+
+1998-11-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.8.1 - "Nasty"
+
+1998-11-09  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-toggle-plugged $B$G(B modeline $B$,IT@53N$JI=<($K$J$C$F$7$^$&>l9g(B
+	  $B$,$"$k$N$r=$@5!#(B
+	* ps-print.el $B$,L5$$4D6-MQ$N?75,JQ?t(B wl-print-message-func$B!#(B
+	  wl-summary-print-message->wl-summary-print-message-with-ps-print$B!#(B
+
+1998-11-09 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* unplugged $B$J>uBV$G(B local $B%U%)%k%@$N$_$N%0%k!<%W$r%A%'%C%/$9$k(B
+	  $B$H!$%A%'%C%/8e$K(B "Unplugged." $B$N%a%C%;!<%8$,=P$k$N$r=$@5!#(B
+
+1998-11-09  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* MsgDB $B$,(B vector $B2=$5$l$?$N$K(B elmo-archive-parse-mmdf() $B$,BP(B
+	  $B1~$7$F$J$+$C$?!J(BOS/2 $B$G(B 'zip $B$J>l9g$K(B msgdb $B:n@.Cf$K$3$1$k!K(B
+	  $BIT6q9g$r=$@5!#(B
+
+1998-11-08  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* unplugged $B$J$H$-$O%9%l%C%I%S%e!<$G$b(B wl-summary-cursor-down $B$G(B
+	  cache $B$5$l$F$$$k%a%C%;!<%8$KHt$V$h$&$K$7$?(B
+	  ($BC.@P$5$s(B<taru@sunicom.co.jp>$B$N8f;XE&(B)$B!#(B
+	* [elmo] autoload $B2=!#(B
+	* [elmo] elmo-call-func $B$G(B featurep $B$G$J$$(B backend $B$r(B
+	  require $B$9$k$h$&$K$7$?(B($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$N8f=u8@(B
+	  $B$K4p$E$/(B)$B!#(B
+
+1998-11-06  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* WL-ELS $B$r(B 0.7.4 $B$N>uBV$KLa$7$?!#(B
+	* elmo-enable-disconnected-operation $B$,(B nil $B$N$H$-$N(B
+	  $BIT6q9g$r$$$/$D$+=$@5(B($BC.@P$5$s(B<taru@sunicom.co.jp>$B!"(B
+	  $BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)
+
+1998-11-05 $BIpED(B $BK'?.(B <takeda@kumagaya.nikon-sys.co.jp>
+
+	* wl-summary-print-message (with ps-print)$B!#(B
+
+1998-11-05  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* [im-wl] imput $B%W%m%;%9$NHsF14|2=!#(B
+
+1998-11-05 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* rassq -> rassoc$B!#(B
+	* wl-summary-reedit(wl-draft-reedit) $B$,(Binteger$B2=$K$h$jF0$+$J$/(B
+	  $B$J$C$?$N$r=$@5!#(B
+
+1998-11-04 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* nntp (not xover) $B$,(Binteger$B2=$KBP1~$7$F$$$J$+$C$?$N$r=$@5!#(B
+
+1998-11-04  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $BAjJQ$o$i$:(B easymenu $B$N4X?t$,8+IU$+$i$:%(%i!<$K$J$k>l9g$,$"$k$N$G(B
+	  (require 'easymenu) $B$r(B wl-folder.el $B$KDI2C(B(take@isl.ntt.co.jp
+	  $B$h$j8f;XE&(B)$B!#(B
+	* reply $B$K<:GT$9$k%P%0$r=$@5!#(B
+	* 0.8.0 - "Manic Monday"
+	* WL-ELS $B$G(B mime-setup $B$N(B require $B$K<:GT$7$?$i!"(Bmail-mime-setup $B$b(B
+	  $B;n$9$h$&$K$7$?!#(B($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)
+
+1998-11-03  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $B?75,4X?t(B elmo-msgdb-overview-entity-get-extra-field$B!#(B
+	* $B?75,JQ?t(B elmo-msgdb-extra-fields$B!#(B
+	* '*' $B%^!<%/$,%S%e!<%-%c%C%7%e$K;D$C$F$7$^$&%P%0$r=$@5!#(B
+	* $B%P%C%U%!$+$i(B overview $B$r@8@.$9$k4X?t$r0l$D$K$^$H$a$?!#(B
+	* overview $B$r(B vector $B2=!#(B
+
+1998-11-02 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [fldmgr] access $B%?%$%W0J30$N%0%k!<%W$K$O(B petname $B$,IU$1$i$l$J(B
+	  $B$$$h$&$K$7$?!#(B
+	* [fldmgr] $B%"%/%;%9%0%k!<%W$rJQ99$7$F:o=|$7$?8e$K%;!<%V$9$k$H!$(B
+	  $B$=$N%"%/%;%9%0%k!<%W$N%j%9%H$,6u$K$J$k$N$r=$@5$7$?!#(B
+	* [fldmgr] append $B$r$G$-$k$+$.$j(B nconc $B$KCV$-49$($?!#(B
+	* wl-folder-access-info-alist $B$r(B wl-folder-entity $B$KE}9g$5$;$?!#(B
+	* new command `wl-folder-open-unread-current-entity',
+	  `wl-folder-open-only-unread-folder'.
+	* wl-folder-open-all-unread-folder, wl-folder-open-all,
+	  wl-folder-close-all $B$N3F%3%^%s%I$r<B9T$7$F$b!$%+!<%=%k$r85$"$C(B
+	  $B$?(B entity$B!$$b$7$/$O?F(B entity $B$N0LCV$KLa$9$h$&$K$7$?!#(B
+	* wl-folder-reconstruct-entity-alist $B$G(B id $B$r?6$jD>$9$H!$%P%C%U%!(B
+	  $B>e$N(B id $B$HJQ?t$N(B id $B$,0[$J$C$F$7$^$&$N$r=$@5$7$?!#(B
+	* wl-folder-exit $B$G=*N;$9$k$H$-!$<g$JJQ?t$O(B nil $B$K=i4|2=$9$k$h$&(B
+	  $B$K$7$?!#(B
+	* draft $B$G$NJd40$G8uJd$,(B1$B$D$K7h$^$l$P8uJd%j%9%H$N%P%C%U%!%&%#%s(B
+	  $B%I%&$r>C$9$h$&$K$7$?!#$^$?!$8uJd$,(B1$B2hLL$K<}$^$i$J$$$H$-$O%9%/(B
+	  $B%m!<%k$9$k$h$&$K$7$?!#(B
+
+1998-11-30  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] imap4, multi, dop $B$N(B msg-num $B$b(B integer $B2=!#(B
+
+1998-10-29  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [wl-*, elmo-*] msg-num $B$N(B integer $B2=!#(B
+	* [wl-*, elmo-*. smtp.el]
+	  integer, symbol $B$NHf3S$r(B eq, memq, assq, rassq $B$G$*$3$J$&!#(B
+	* [elmo-archive]
+	  macro $B$N5-=R0LCV$rA0$NJ}$K0\F0!#(B
+
+1998-10-29  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] $B%*%U%i%$%s!&%P!<%A%c%k(B(imap4 $B$N$_(B...)$B!#(B
+	* [elmo] $B%*%U%i%$%s!&%U%)%k%@@8@.!#(B
+
+1998-10-28  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.7.4 - "Luka"
+
+1998-10-27  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-ja.texi $B$NJ8;z%3!<%I$r(B JIS $B$K$7$?!#(B
+	* [elmo] $B%*%U%i%$%s!&%j%U%!%$%k(B/$B%3%T!<!#(B
+	* $BF1$8%U%)%k%@$X$N%j%U%!%$%k(B/$B%3%T!<$r6X;_$7$?!#(B
+	* unplugged $B$G(B 'i' (prefetch) $B$9$k$H%5%^%j$,$*$+$7$/$J$k$N$r=$@5!#(B
+	* burst $B$r<BAu!#(B
+	* [elmo] FLIM $B$G$O(B (require 'mel-b) $B$9$k$N$r$d$a!"(B
+	  mel-find-function $B$G(B base64 decoder $B$r8+$D$1$k$h$&$K$7$?!#(B
+
+1998-10-26  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* bbdb-wl.el $B$G!"(Bbbdb-user-mail-names $B$,8z$$$F$k$H$-$K(B To $B$K(B
+	  encoded-word $B$,$"$k$H$^$:$$$N$r=$@5!#(B
+
+1998-10-26  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [elmo] wl-match-buffer->elmo-match-buffer.
+
+1998-10-25  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-nntp.el $B$N(B typo $B=$@5!#(B
+
+1998-10-25  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-ja.texi $B$K2CI.(B/$B=$@5!#(B
+	* wl-generate-mailer-string-func $B$N(B default $B$r(B
+	  'wl-generate-user-agent-string $B$K$7$?!#(B
+	* Folder 'F' -- $B%-%e!<$K$"$k%a%C%;!<%8$rAw?.!#(B
+	* $B?75,JQ?t(B wl-auto-flush-queue $B%H%0%k$7$?$H$-$K<+F0E*$K%-%e!<$rAw$k!#(B
+	* $B?75,JQ?t(B wl-draft-enable-queueing$B!#(Boffline $B$J$iAw?.$r%-%e!<%$%s%0!#(B
+	* $B%*%U%i%$%s%a%C%;!<%8Aw?.!#(B
+	* Folder $B$G(B'$B%4%_H"$r6u$K(B'$B$7$?$"$H!"%5%^%j$,$*$+$7$/$J$k$N$r=$@5!#(B
+
+1998-10-24  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* bbdb-wl.el $B$G!"(Bbbdb-user-mail-names $B$,8z$/$h$&$K$7$?!#(B
+
+1998-10-24  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-archive.el $B$G(B 'tgz $B0J30$G$OFI$a$J$/$J$C$F$?$N$r=$@5!#(B
+
+1998-10-24  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $BB??t$N%K%e!<%9%0%k!<%W%U%)%k%@$N%A%'%C%/=hM}$rBgI}$K9bB.2=$7$?!#(B
+	* $BJQ?t(B `wl-folder-newsgroups-alist' $B$rG[Ns(B(vector)
+	  `wl-folder-newsgroups-hashtb' $B$KJQ99$7$?!#(B
+	* [elmo-nntp] xover $B$KBP1~$7$F$$$J$$%K%e!<%9%5!<%P$G$b(B overview
+	  $B>pJs$,<hF@=PMh$k$h$&$K$7$?!#(B
+	* wl-match-buffer $B$r(B elmo-match-buffer $B$KJQ$($F!$(Bwl-match-buffer
+	  $B$O$=$N(B alias $B$H$7$?!#$^$?!$(Belmo-match-string $B$r?75,:n@.$7!$(B
+	  wl-match-string $B$O$=$N(B alias $B$H$7$?!#(B
+	* wl-make-hash, wl-get-hash-val, wl-set-hash-val $B$r(B elmo $B$K0\$7!$(B
+	  wl $B$N4X?tL>$O$=$l$>$l(B elmo $B$NBP1~$9$k4X?t$N(B alias $B$H$7$?!#(B
+	* elmo-msgdb-get-field-value $B$,(B2$BEY(B narrow-to-region $B$9$k$N$G!$(B
+	  SEMI $B$N>l9g$K(B std11-fetch-field $B$,$"$k$J$i$=$l$r;H$&$h$&$K$7$?!#(B
+
+1998-10-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-use-semi $B$N(B default $B$r(B (module-installed-p 'mime-view) $B$K$7$?!#(B
+	* wl-from $B$N(B default $B$r(B user-mail-address $B$K$7$?!#(B
+	* $B3+;O;~$K(B wl-plugged $B$,(B nil $B$J$i%*%U%i%$%s>uBV$+$i3+;O(B
+	  $B$9$k$h$&$K$7$?!#(B
+	* view-cache $B$N%;!<%V;~$K0l;~E*%^!<%/$r>C$9$h$&$K$7$?!#(B
+	* Summary $B$KL$=hM}$N(B refile, delete, copy $B$N%^!<%/$,$"$k$N$K(B
+	  $B=*N;$7$h$&$H$7$?>l9g$O=hM}$9$k$+$I$&$+3NG'$9$k$h$&$K$7$?!#(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f=u8@(B)
+
+1998-10-22  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [elmo] localdir $B$r$A$g$C$H$@$19bB.2=!#(B
+
+1998-10-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.7.3 - "Kyrie"
+	* access $B%U%)%k%@$N%U%)%k%@>pJs%U%!%$%k$N(B old compatibility
+	  $B$N%A%'%C%/ItJ,(B(?)$B$r=$@5!#(B
+	* wl-thread-jump-to-prev-unread $B$r<BAu!#(B
+	* +foo $B$H(B +foo/ $B$,6&B8$G$-$J$$LdBj$r=$@5!#(B
+
+1998-10-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-ja.texi $B$K2CI.!#(B
+	* User-Agent $B%U%#!<%k%I$N@8@.$O4X?t(B wl-generate-user-agent-string $BFb$G(B
+	  $B$N$_9T$J$&$h$&$K$7$?!#(Bmime-edit-insert-user-agent-field $B$,(B t $B$J$i(B
+	  mime-edit-user-agent-value $B$NCM$r;H$&!#(B
+	* $B%^%k%A%U%)%k%@$G%a%C%;!<%8$,8:$C$?$H$-$K%9%l%C%I9=B$$,$*$+$7$/$J$k(B
+	  $B$3$H$,$"$C$?$N$r=$@5!#(B
+	* $BJD$8$?%9%l%C%I$N%"%C%W%G!<%H;~$K%O%$%i%$%H$,$*$+$7$+$C$?$r=$@5!#(B
+	* [elmo] mmelmo-imap4 $B%P%C%/%(%s%I$,%a%=%C%I(B
+	  content-entity $B$G%(%i!<$rH/@8$9$k>l9g$,$"$k$N$r=$@5!#(B
+
+1998-10-18  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* eq $B$G:Q$`$H$3$m!J(Bsymbol $B$NHf3S!K$^$G(B equal $B$,;H$o$l$F$?$N$,(B
+	  $BL\N)$C$?$N$G!"L@$i$+$K(B symbol $B$NHf3S$H$o$+$k$H$3$m$rCV49$7$?!#(B
+	* wl-folder-accessible-p() $B$K(B 'archive $B$r2C$($?!#(B
+	* wl-ja.texi $B$N%"!<%+%$%V%U%)%k%@It$N5-=R$N=$@5!#(B
+
+1998-10-18  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* fldmgr $B$G3F<oA`:n$r9T$&$H!$%0%k!<%W$NL$FI?t(B/$BAm?t$rH?1G$9$k$h$&(B
+	  $B$K$7$?!#(B
+	* fldmgr $B$G%0%k!<%W$NDI2C$r$7$?:]!$(Bwl-folder-entity-id-name-alist
+	  $B$K%0%k!<%W$N(B entity $B$,DI2C$5$l$J$$$N$r=$@5$7$?!#(B
+	* wl-folder-entity-alist $B$r(B finfo $B$r;H$C$FI|85$5$;$k$H$-!$F1$8(B
+	  entity $B$,J#?t$"$k$H(B1$B$D$7$+I|85$5$l$J$$$N$r=$@5$7$?!#(B
+	* $B%0%k!<%W$NL$FI?t$rH?1G$9$k:]!$%0%k!<%W$,2<$N3,AX$K$"$C$FI=<($5(B
+	  $B$l$F$$$J$$>l9g!$(BDesktop $B%0%k!<%W$KB?=E$KL$FI?t$,DI2C$5$l$k$N$r(B
+	  $B=$@5$7$?!#(B
+	* wl-fldmgr.el $B$N%3!<%I$N(B refine (equal->eq $BEy$r4^$`(B)$B!#(B
+
+1998-10-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] capability $B$N%A%'%C%/$,(B XEmacs $B0J30$G$&$^$/F0$+$:!"(B
+	  IMAP4rev1 $B$G$b(B IMAP4 $B$H4*0c$$$9$k$h$&$K$J$C$F$$$?$?$a!"(B
+	  References $B$r;H$C$?%9%l%C%I2=$,(B XEmacs $B0J30$GF0$+$J$/$J$C$F(B
+	  $B$7$^$C$F$$$?$N$r=$@5!#(B
+	* [fldmgr] $B%U%)%k%@$N%;!<%V;~!"(B.folders $B$,B8:_$7$J$$$H$-!"(B
+	  .bak $B$K(B rename-file $B$7$h$&$H$7$F%(%i!<$K$J$k$N$r=$@5!#(B
+	* convert-standard-filename $B$G%U%!%$%kL>$K;H$($J$$J8;z$rCV$-49$($k(B
+	  $B$h$&$K$7$?!#(BMule for Win32 $B$X$OFH<+$KBP1~!#(B
+	* [elmo] $B%M%C%H%o!<%/%W%m%;%9$N(B process-status $B$,(B 'exit $B$N$H$-$b(B
+	  $B%3%M%/%7%g%s$rD%$j$J$*$9$h$&$K$7$?!#(B
+
+1998-10-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] XEmacs 21.2 $B$G(B backspace $B$J$I$N(B event $B%-!<$N0lIt$r(B
+	  char $B$H$7$FFI$a$k$h$&$K$9$k%3!<%I$r(B x-pgp-sig $B$+$i%Q%/$i$;$F(B
+	  $B$$$?$@$$$?!#(B
+
+1998-10-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.7.2 - "Joanna"
+	* [elmo] RFC1730 $B$G$b$=$3$=$3F0$/$h$&$K$7$?!#(B
+	* $B%+%l%s%H%U%)%k%@$N%O%$%i%$%H$N(B regexp $B=$@5!#(B
+	* XEmacs $B$N%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$G$-$k$h$&$K$7$?!#(B
+	  (make package; make install-package)
+	* easymenu $B$O(B require $B$9$k$h$&$K$7$?!#(B
+
+1998-10-12  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder-open-folder $B$,@5>o$KF0:n$7$J$/$J$C$?$N$r=$@5$7$?!#(B
+	* wl-folder-unread-regex $B$N0z?t(B group $B$,(B nil $B$NF0:n$,JQ$o$C$?$N(B
+	  $B$r=$@5$7$?!#(B
+	* wl-folder-move-cur-folder $B$,(B non-nil $B$N;~$NF0:n$,JQ$o$C$?$N$r(B
+	  $B=$@5$7$?!#(B
+	* $BF1$8(B entity $B$,J#?t$"$C$?>l9g!$(Bwl-folder-update-unread $B$G$O(B
+	  wl-folder-entity-alist $B$d%0%k!<%W$NI=<(?t$,(B1$B$D$N(B entity $B$7$+99(B
+	  $B?7$5$l$J$$$N$r=$@5$7$?!#(B
+
+1998-10-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Folder $B%A%'%C%/;~$KL$FI?t$N99?7$,$*$+$7$+$C$?$N$r=$@5(B
+	* wl-thread- $B7O$N%3%^%s%I$G:G8e$N%a%C%;!<%8$,=hM}$5$l$J$/$J$C$F(B
+	  $B$7$^$C$?$N$r=$@5!#(B($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f;XE&(B)
+	* 0.7.1 - "In Too Deep"
+
+1998-10-11  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo-archive.el] $B%U%)%k%@$N:G8e$,(B "/" $B$@$H(B .folders $B$K(B
+	  $B=q$1$J$$$N$G%U%)%k%@$NBh(B 3 $B%9%Z%C%/(B ($B=q8KFb$N%Q%9>pJs(B)$B$NKvHx$K(B
+	  "/" $B$r$D$1$J$/$F$b$h$$$h$&$K$7$?!#(B
+	* [elmo] $B%*%U%i%$%s(B FCC$B!#(B
+	* Message-ID $B$,$J$$$H$-$K(B Summary $B$,$*$+$7$/$J$k$N$r=$@5!#(B
+	* Folder mode $B$G%0%k!<%W$K$bL$FI?tI=<(!#(B
+	* [im-wl.el] Message-Id -> Message-ID$B!#(B
+
+1998-10-11  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [elmo] filter$B$d(Bmulti$B%U%)%k%@Fb$N(B localdir $B%a%C%;!<%8$O(B
+	  cache $B$7$J$$$h$&$K$7$?!#(B
+	* $B%"%/%;%9%0%k!<%W$O(B rename $B$G$-$J$$$h$&$K$7$?!#(B
+	* save $B;~$K;HMQ$5$l$F$$$J$$(B petname $B$O:o=|$9$k$h$&$K$7$?!#(B
+
+1998-10-11  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	[elmo-archive.el]
+	* elmo-archive-header-delimiter $B$r=PNO$7$J$$%"!<%+%$%P!J(BGNU tar $B$J$I!K(B
+	  $B$N>l9g!"(Blist-folder-subr() $BFbIt$GL58B%k!<%W$K4Y$k$N$r=$@5$7$?!#(B
+	* $B1\Mw@lMQ%b!<%I$r@Q6KE*$K%5%]!<%H$9$k$?$a!"=q8K$N2~JQ$rH<$J$&4X?t$K$D(B
+	  $B$$$F$O%a%=%C%I$,Dj5A$5$l$F$k$+$I$&$+$rD4$Y$k$3$H$G%(%i!<$rH/@8$9$k$h(B
+	  $B$&$K$7$?!#(B
+	* Info-Zip $B$,:G$bE,$7$F$$$k$H$N7kO@$+$i!"%G%U%)%k%H$r(B 'zip $B$K$7$?!#(B
+	* tar => gtar
+	[elmo-util.el]
+	* elmo-archive-get-spec() $B$G%I%i%$%V%l%?!<$b<hF@$G$-$k$h$&=$@5$7$?!#(B
+	[im-wl.el]
+	* Message-ID: $B$NIU$1J}$,JQ99$5$l$?$?$a!"(Bim-wl.el $B$r;H$C$F$$$k>l9g$K(B
+	  Fcc $B$9$k$H(B Fcc $B$5$l$?%a%C%;!<%8$K(B Message-ID: $B$,$D$+$J$$IT6q9g$,H/@8(B
+	  $B$7$F$$$?$N$r=$@5$7$?!#(B
+	* more typo fix (s/strucuture/structure/g)
+
+1998-10-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-summary-temp-mark-region $B$NHO0O$rJQ99!#(B
+	  ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f;XE&(B)
+
+1998-10-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo-archive.el]
+	  ':'->';', ange-ftp/efs $B$X$NBP1~(B, tar+gz $BBP1~(B, $B=q8KFb%Q%9>pJs!#(B
+
+1998-10-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B$h$/8F$P$l$k(B defun $B$r(B defsubst $B$KCV$-49$($?(B (scan $B$NB.EY$,Ls(B 20%
+	  $B$/$i$$8~>e(B)$B!#(B
+
+1998-10-08  pf21 GOTO_Toshiya <pf21@pure.cpdc.canon.co.jp>
+
+	* wl-summary-temp-mark-copy $B$N%a%C%;!<%8$r=$@5!#(B
+
+1998-10-07  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Message-Id -> Message-ID$B!#(B
+	* wl-highlight-message $B$G!"(Bre-search-forward $B$N0z?t$,B-$j$J$+$C$?(B
+	  $B$?$a$K%(%i!<$,5/$3$k>l9g$,$"$k$N$r=$@5!#(B
+
+1998-10-05  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B$$$/$D$+$N%a%C%;!<%8$N(B typo $B$r=$@5!#(B
+	 ($B;086$5$s(B<mihara@prd.fc.nec.co.jp> $B$h$j8f;XE&(B)
+	* 0.7.0 - "Hungry Heart"
+
+1998-10-04  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%K%e!<%95-;v$N9TF,$K$"$k%I%C%H(B(.)$B$r:o$k=hM}$,4V0c$C$F$$$?(B($BM>J,$J(B
+	  $B%I%C%H$,IU$$$?$^$^$K$J$k(B)$B$N$r=$@5$7$?!#(B
+	* 1$BDL$b5-;v$,$J$$%K%e!<%9%0%k!<%W$G$O(B elmo-nntp-list-folder $B$NLa$jCM(B
+	  $B$,(B nil $B$K$J$k$h$&$K$7$?!#(B
+
+1998-10-04  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-ja.texi $B$N4V0c$$$r=$@5!#(B
+
+1998-10-04  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] $B%^!<%/!&%*%U%i%$%s=hM}$N<B83E*<BAu!#(B
+	* [elmo] $B?75,%U%!%$%k(B elmo-dop.el$B!#%*%U%i%$%s=hM}MQ%b%8%e!<%k!#(B
+	* [elmo] IMAP $B%U%)%k%@$G$OL$FI(B/$B4{FI(B/$B=EMW%^!<%/A`:n$r%5!<%P$K(B
+	  $BH?1G$5$;$k$h$&$K$7$?!#(B
+
+1998-10-03  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%0%k!<%W$G$b(B petname $B$r$D$1$i$l$k$h$&$K$7$?!#(B
+	* [elmo] auth->login $B@ZBX$(;~!"(By-or-n-p $B$G3NG'$9$k$h$&$K$7$?!#(B
+	 ($BC.@P(B $B$5$s(B<taru@sunicom.co.jp> $B$N8f=u8@$K4p$E$/(B)
+	* [elmo] imapd $B$N(B capability $B$r%A%'%C%/$9$k$h$&$K$7!"(Bauthenticate $B$,(B
+	  $B$G$-$J$1$l$P(B 'auth' $B$G$b(B 'login' $B$GG'>Z$9$k$h$&$K$7$?!#(B
+	* [elmo] append $B;~$K(B append $B2DG=$+$I$&$+%A%'%C%/$9$k$h$&$K$7$?!#(B
+	* [elmo] Cyrus imapd $B$KBP1~!#(B
+
+1998-10-03  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-archive-default-type $B$,;2>H$5$l$F$J$+$C$?$N$r=$@5!#(B
+	* $B%O!<%I%j%s%/2DG=$+$I$&$+$rD4$Y$k$N$K!"(Badd-name-to-file<f> $B$,$"$k$+(B
+	  $B$I$&$+$rD4$Y$k$N$OA4$/0UL#$,$J$$$N$G!"(Bmake-symbolic-link<f> $B$rD4$Y(B
+	  $B$k$3$H$GBeMQ$7$?!#(B
+	* elmo-archive-list-folders<f> $B$G:FMxMQ$9$k$?$a$K(B
+	  elmo-localdir-list-folders-subr<f> $B$G$N@55,I=8=$rJQ99!#(B
+	* elmo-archive-copy-msgs() $B$r<BAu!#(Blocaldir => archive $B$N;~$@$1M-8z!#(B
+
+1998-10-02  pf21 GOTO_Toshiya <pf21@pure.cpdc.canon.co.jp>
+
+	* Mule for win32 $B$G$bG'<1$G$-$k$h$&(B wl-highlight.el $B$N?'Dj5A$r(B
+	  $B=$@5!#(B
+
+1998-10-02  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+	    OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-ja.texi $B$N4V0c$$$r=$@5!#(B
+
+1998-10-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* citation $B$N%O%$%i%$%H?'$r0zMQ$4$H$KJQ$($k$h$&$K$7$?!#(B
+	  ($BKLL\$5$s(B <kitame@northeye.org> $B$N8fMWK>$K4p$E$/(B)$B!#(B
+	* wl-highlight-message-cited-text -> $BGQ;_!#(B
+	* 0.6.6 - "Get It On"
+
+1998-09-30  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-archive.el 0.09$B!#(B
+
+1998-09-30  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Folder, Summary $B$N%a%K%e!<%P!<$r$A$g$C$H@0M}!#(B
+	* Message-Id $B$OAw?.;~$K<+F0E*$K$D$1$k$h$&$K$7$?!#(B
+
+1998-09-30  Masato Taruishi <taru@sunicom.co.jp>
+
+	* [elmo] user-login-name -> (user-login-name) $B$N=$@5!#(B
+
+1998-09-30  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%"%/%;%9%0%k!<%W$G$b(B fldmgr $B$+$i$"$@L>$rDI2C$G$-$k$h$&$K$7$?!#(B
+
+1998-09-30  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* .folders $B$K$"$@L>$N$_$rDj5A$9$k(B syntax $B$rDI2C!#(B
+	* $B%3%^%s%I!"(Bwl-message-refer-article-or-url $B$G(B browse-url $B$r8F$V$N(B
+	  $B$r$d$a!"(Btm/SEMI $B$N(B button-dispatcher $B$r8F$V$h$&$K$7$?!#(B
+
+1998-09-29  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-summary-forward $B$GF|K\8l%5%V%8%'%/%H$,2=$1$k$N$r=$@5!#(B
+	  ($BIpED$5$s(B <takeda@kumagaya.nikon-sys.co.jp> $B$h$j8f;XE&(B)
+	* mime-edit-insert-user-agent-field $B$,(B t $B$J$i(B
+	  mime-edit-user-agent-value $B$NCM$r;H$C$F(B User-Agent:
+	  $B%U%#!<%k%I$rA^F~$9$k$h$&$K$7$?!#(Bnil $B$J$i=>MhDL$j!#(B
+
+1998-09-28  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* elmo-util.el $B$K(B (require 'cl) $B$rDI2C!#(B
+	  (Hermit-chan ($B$O$_$A$c$s(B) <hermit@tomato.saino.ne.jp> $B$5$s$N8f;XE&(B)
+	* elmo-filter-msgdb-create $B$N4V0c$$$r=$@5!#(B
+	  ($B1|@>$5$s(B<fuji0924@mbox.kyoto-inet.or.jp> $B$N8f;XE&(B)
+
+1998-09-28 Masato Taruishi <taru@sunicom.co.jp>
+
+	* [elmo] IMAP$B$N%0%k!<%W%U%)%k%@$r(B fetch $B$9$k$H$-$K%f!<%6L>$r(B
+	  $BIU2C$7$F$J$$$?$a%f!<%6L>$N0c$&(BIMAP$B%5!<%P$X%"%/%;%9$9$k$HLdBj$,(B
+	  $B5/$-$k$N$r=$@5!#(B
+
+1998-09-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%/%m%9%]%9%H5-;v$r4{FI=hM}$9$k;~$KL$FI?t$,@5>o$KH?1G$5$l$J$$$N$r(B
+	  $B=$@5!#(B
+	* $B%/%m%9%]%9%HBP>]$N%a%C%;!<%8$,JD$8$?%9%l%C%I$NCf$K$"$C$F$bI=<($7(B
+	  $B$F=hM}$9$k$h$&$K$7$?!#(B
+	* fldmgr $B$G%U%)%k%@$rDI2C$9$k$H$-!$%U%)%k%@>pJs$NH?1G$,$*$+$7$/$J$k(B
+	  $B$N$r=$@5!#(B
+
+1998-09-27  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,JQ?t!"(Bwl-draft-reply-buffer-style$B!#(B
+	  $BCM$,(B 'full $B$J$i!"%j%W%i%$;~$K%U%l!<%`A4BN$r;H$&(B
+	  ($BKLL\$5$s(B <kitame@northeye.org> $B$h$j8fMWK>(B)$B!#(B
+	* wl-mail-setup-hook $B$O(B reply $B;~$K$O%P%C%U%!$NFbMF$,3NDj$7$F$+$i(B
+	  $B8F$V$h$&$K$7$?!#(B
+	* update $B;~$K;R$I$b%9%l%C%I?t$N(B update $B$,$*$+$7$+$C$?$N$r=$@5!#(B
+
+1998-09-26  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-ja.texi $B$K(B elmo-archive $B$N@bL@$rDI2C!#(B
+
+1998-09-25  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-lha $B2~$a(B elmo-archive.el(lha, info-zip $BBP1~(B)
+
+1998-09-25  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* HTML $B$N%a!<%k$r(B cite $B$9$k$H(B w3 $B$N(B keymap $B$N(B text-property $B$,(B
+	  $B$D$$$F$-$F$7$^$&$N$r2sHr!#(B
+
+1998-09-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* update $B;~$N%O%$%i%$%HMQ(B regexp $B$,4V0c$C$F$$$?$N$r=$@5!#(B
+
+1998-09-23  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.6.5 - "Footloose"
+	* [elmo] Reference $B$H(B In-Reply-To $B$+$i(B message-id $B$r@Z$j=P$9(B
+	  $B%b%8%e!<%k$N(B regexp $B$r=$@5!#(B
+	* XEmacs $B$G%a%C%;!<%8$N%I%i%C%0!u%I%m%C%W$,I|3h(B
+	  (21.0 $B$N(B API $B$K9g$o$;$?(B)$B!#(B
+	* [elmo] imap4 $B$G!"%a%C%;!<%8HV9f$,Ht$s$G$$$k$H$-$K(B overview $B$N(B
+	  $B@8@.$K<:GT$9$k$N$r2sHr(B($BKLL\$5$s(B <kitame@northeye.org> $B$N8f;XE&(B)$B!#(B
+	* elmo-multi-max-of-folder $B$,$J$$$HE\$i$l$k$N$r2sHr!#(B
+	  ($B1|@>$5$s(B<fuji0924@mbox.kyoto-inet.or.jp>,
+	   $BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$h$j8f;XE&(B)
+	* $B%9%l%C%I;^$N2D;k2=$KH<$&JQ99B??t!#(B
+	  $B%9%l%C%IFb$N%a%C%;!<%8$,J#?t0lEY$K0\F0$7$?$H$-$KI=<($,$:$l$kLdBj(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)$B$bF1;~$K=$@5!#(B
+	* $B%9%l%C%I$N;^$r2D;k2=!#(B
+	 ($BC.@P(B $B$5$s(B<taru@sunicom.co.jp> $B$N8f=u8@$K4p$E$/(B)
+	* $B?75,JQ?t(B:
+		wl-thread-indent-level
+		wl-thread-have-younger-brother-str
+		wl-thread-youngest-child-str
+		wl-thread-vertical-str
+		wl-thread-horizontal-str
+		wl-thread-space-str
+	* wl-summary-indent-level -> $BGQ;_!#(B
+
+1998-09-22  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-thread-goto-bottom-of-sub-thread :
+	  $B%a%C%;!<%8$,;RB9$+$I$&$+!"8+$?$a$GH=CG$9$k$N$r$d$a$?!#(B
+	* [elmo] IMAP4 $B$@$H(B In-Reply-To $B$K$"$k(B Message-ID $B$r$b$H$K%9%l%C%I(B
+	  $B$,:n$i$l$J$+$C$?$N$r=$@5!#(B
+	* $B%U%!%$%k%7%9%F%`$r$^$?$,$k(B local $B$I$&$7$N(B refile $B$,%(%i!<$K$J$k$N(B
+	  $B$r=$@5!#(B($B8eF#(B($B$H(B) $B$5$s(B <pf21@pure.cpdc.canon.co.jp> $B$h$j8f;XE&(B)
+
+1998-09-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%4%_H"%U%)%k%@$G$R$H$D$E$D40A4:o=|$7$h$&$H$9$k$HL58B%k!<%W$9$k(B
+	  $B$N$r=$@5!#(B
+	  ($B8eF#(B($B$H(B) $B$5$s(B <pf21@pure.cpdc.canon.co.jp> $B$+$i$b8f;XE&(B)
+	* 0.6.4 - "Easy Lover"
+
+1998-09-21  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* elmo-lha $B$G!"(Bzip $B$J$I$G(B append $B;~$K(B directory $BL>$,$D$+$J$$(B
+	  $B$h$&$K$7$?!#(B
+
+1998-09-21  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B?75,%P%C%/%(%s%I$r:n$k;~!"4{B8%3!<%I$G$O(B elmo-msgdb $B$@$1$O(B
+	  $B%Q%C%AF~$l$J$$$H(B localdir $B$K$J$C$F$7$^$&$N$r2sHr$9$k:v!#(B
+
+1998-09-20  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* lha-prog-arg-get-list $B$@$1$,B>$N%*%W%7%g%sJQ?t$HHsBP>N$@$C$?$N$G!"(B
+	  *-getlist $B$K=L$a$?!#(B
+	* LHA $B<B8z7A<0$,(B DOS$B!"J?>>(B OS/2 $BHG$H%*%W%7%g%s8_49$+$I$&$+$r(B
+	  system-type $B$+$iH=Dj$7$F!"<+F0E*$KE,@Z$JCM$r%;%C%H$9$k$h$&$K$7$?!#(B
+	* lha-file-regexp $B$N(B UN|X $BHG(B LHA $BBP1~$K$h$j(B OS/2 $B$G%^%C%A$7$J$/$J$C$F(B
+	  $B$$$?$N$G0BD>$KD>$7$?!#(B
+	* elmo-localdir-folder-path $B$H$NBP>N@-$+$i(B elmo-lha-basedir $B$r(B
+	  elmo-lha-folder-path $B$KJQ99!#%G%U%)%k%H$O(B "~/Mail"
+	* $BB8:_$7$J$$(B LHA $B%U%)%k%@$N>l9g$K(B elmo-lha-list-folder() $B$+$i(B
+	  elmo-lha-list-folder-subr() $B$r8F$S=P$7$F(B lha $B$,0[>o=*N;$7$F$3$1$F$?(B
+	  $B$N$G!"B8:_$7$J$$;~$O%5%V%k!<%A%s$r8F$S=P$5$J$$$h$&$K$7$?!#(B
+	* elmo-lha-get-archive-name() $B$,%U%k%Q%9$N(B LHA $B%U%)%k%@$rDL$;$k$h$&$K(B
+	  $B$7$?!#(B$/foo/bar $B$N$h$&$K(B "/" $B$G;O$^$k>l9g$O(B /foo/bar.lzh $B$H8+Pv$9!#(B
+	  $B0l;~E*$KG$0U$N%U%)%k%@$r%^%&%s%H$7$?$$$H$-$J$I!#(B
+
+1998-09-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-ja.texi $B$r=q$$$F$_$?!#(B
+	* tm $B$G$O(B wl-use-folder-petname-on-modeline $B$rL5;k$7$F$$$?$N$r=$@5!#(B
+	* tm $B$G%*%U%i%$%s>uBV$G(B IMAP $B$N%a%C%;!<%8$rFI$b$&$H$9$k$H%a%C%;!<%8(B
+	  $B%P%C%U%!$K%+!<%=%k$,9T$C$F$7$^$&$N$r=$@5!#(B
+
+1998-09-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Summary $B$N(B From $BIt$KF|K\8l$,$"$k$HJD$8$?%9%l%C%I$N(B update $B$,(B
+	  $B$*$+$7$/$J$k$N$r=$@5!#(B
+	* $BFCDj$N%^!<%/$@$1A4$F>C$9!"(B'U' wl-summary-unmark-all$B!#(B
+	* $B4X?t(B wl-thread-force-open $B$,A4A3%9%l%C%I$r3+$+$J$/$J$C$F$$$?$N$r(B
+	  $BD>$9!#(B
+	* local->local, IMAP->IMAP $B$N%3%T!<$r:GE,2=!"%a%C%;!<%8$N0\F0$r(B
+	  ($B$?$V$s(B)$B9bB.2=!#(B
+	* $B%*%U%i%$%s>uBV$G$b(B fldmgr $B$G(B IMAP4 $B%U%)%k%@$rIU$1B-$;$k$h$&$K$7$?!#(B
+	* ~/.folders $B$,L5$/$F$b5/F0$G$-$k$h$&$K$7$?!#(B
+	* $B%O%$%i%$%H$,2?$+JQ$@$C$?$N$rD>$7$?(B($B$D$b$j(B)$B!#(B
+	* partial filter $B$J$i(B unsync $B$r(B nil $B$K$;$:!"IaDL$K%A%'%C%/$9$k(B
+	  $B$h$&$K$7$?(B ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$N8f=u8@(B)$B!#(B
+
+1998-09-18  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* Folder $B$NL$FI?t$r%A%'%C%/$9$k$?$S$KL$FI?t$,A}$($F9T$/$3$H$,$"$k(B
+	  $B$N$r=$@5!#(B
+	* elmo-folder-info-alist $B$N(B save $B;~$K$O!$B8:_$7$J$$(B entity $B$N>pJs(B
+	  $B$r:o=|$9$k$h$&$K$7$?!#(B
+	* fldmgr $B$G@hF,$K%U%)%k%@$rA^F~$7$?>l9g!$(Bwl-folder-entity-alist $B$N99(B
+	  $B?7J}K!$,4V0c$C$F$$$?$N$r=$@5$7$?!#(B
+
+1998-09-18  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* $BB8:_$7$J$$(B lha folder $B$K(B refile $B$7$?$H$-$J$I$K!"?75,$K(B lha folder
+	  $B$,:n@.$5$l$J$$$N$r=$@5!#(B
+
+1998-09-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.6.3 - "Danger Zone"
+
+1998-09-17  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo $B$G(B wl $B$N4X?t$r;HMQ$7$F$$$k$N$rD>$7$?!#(B
+	* Emacs-19 $B$NF1$8J8;zNs$NHf3S(B(equal)$B$G(B nil $B$K$J$k$3$H$,$"$k$?$a!$(B
+	  $B0lIt$N(B member $B$H(B assoc $B$r(B wl-string-member $B$d(B wl-string-assoc $B$K(B
+	  $BCV$-49$($?!#(Bwl-string-assoc $B$O(B $B?75,4X?t!#(B
+	* wl-folder-goto-first-unread-folder $B$G0lHV:G=i$N(B entity $B$,(B unread $B$N(B
+	  $B>l9g!$$=$N%U%)%k%@$K0\F0$7$J$$$N$r=$@5$7$?!#(B
+	* folder mode $B$G$N%U%)%k%@$N8!:w;~$K0[$J$k(B petname $B$,%^%C%A$9$k$3$H$,(B
+	  $B$"$k$N$r=$@5$7$?!#(B
+	* wl-summary-mark-as-read-region $B$N$_(B region $B$,9TKv$^$G$K$J$C$F$$$J$$(B
+	  $B$N$G!$(Bwl-thread-mark-as-read $B$,@5>o$KF0:n$7$J$$$N$r=$@5$7$?!#(B
+	* $BJ#?t%U%)%k%@$N(B crosspost $B=hM}$K$*$$$F!$(Bmulti $B$d(B filter $B$,J#?t$K$J$C(B
+	  $B$?%U%)%k%@$b9MN8$9$k$h$&$K$7$?!#$^$?!$4{FI=hM}$7$?%a%C%;!<%8?t$rI=(B
+	  $B<($9$k$h$&$K$7$?!#(B
+	* wl-summary.el $B$K$*$$$F%m!<%+%kJQ?t(B children $B$,(B let $B$G@k8@$5$l$F$$$J(B
+	  $B$+$C$?ItJ,$r=$@5!#(B
+
+1998-09-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* multi $B$N$H$-$K(B mmelmo-imap4 $B$,$*$+$7$+$C$?$N$r=$@5!#(B
+	* wl-summary-mark-as-read-all $B$,(B local,uncache $B$rL5;k$7$F$7$^$C$F$$$?(B
+	  $B$N$r=$@5!#(B
+
+1998-09-17  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-lha.el $B$r%^!<%8!#(B
+
+1998-09-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-thread-jump-to-next-unread $B$,(B hereto $B$rL5;k$7$F$$$?$N$r=$@5!#(B
+	* ':' $B$,%U%!%$%kL>$K;H$o$l$F$$$k$H$^$:$$>l9g$,$"$k$N$G;H$o$J$$$h$&(B
+	  $B$K=$@5(B($B1|@>$5$s(B<fuji0924@mbox.kyoto-inet.or.jp> $B$N8f;XE&(B)$B!#(B
+	* elmo-lha-search $B$r<BAu!#(B
+	* elmo-lha.el $B$rB?>/=$@5!#(B
+
+1998-09-16  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B?75,%U%!%$%k(B elmo-lha.el$B!#(BLHA $BMQ%$%s%?%U%'!<%9!#(B
+
+1998-09-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.6.2 - "China Girl"
+	* wl-stay-folder-window $B$,(B nil $B$J$i(B E $B$G(B trash $B$r6u$K$9$k$H$-$b(B
+	  $BJ,3d$7$J$$$h$&$K$7$?(B($BKLL\$5$s(B <kitame@northeye.org> $B$N8f;XE&(B)$B!#(B
+	* $B?75,JQ?t(B wl-summary-fix-timezone$B!#%5%^%j$N(B Timezone $B$r9g$o$;$k!#(B
+	* $B%9%l%C%IA`:n%3%^%s%I$r@0M}!#(B
+	  $B$D$$$G$K%^!<%/A`:n!"%j!<%8%g%sA`:n%3%^%s%I$b@0M}!#(B
+
+1998-09-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-thread-open-close $B$G(B refile $B%^!<%/$D$-$N%9%l%C%I$r3+$$$?;~!"(B
+	  refile $B@h$NI=<($,ESCf$^$G$7$+=P$J$+$C$?$N$r=$@5!#(B
+	* 'O' $B$G%3%T!<$r<B8=!#(B
+	* $B?75,JQ?t(B wl-highlight-summary-copied-face$B!#(B
+	* wl-summary-refer-article-or-url $B$r(B wl-message-refer-article-or-url
+	  $B$H$7!"(BMessage $B$N%\%?%s(B 2 $B$K3d$jEv$F$?!#(B
+	* wl-summary-move-direction-downward $B$N(B default $B$r(B t $B$K!#(B
+
+1998-09-15  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* Emacs-19.34 $B$G$O!$(Bwl-fldmgr-unsubscribe $B$,@5>o$K5!G=$;$:!"(B
+	  $B$^$?F1$8%0%k!<%W$KJ#?t$N(B entity $B$,:n$l$F$7$^$&IT6q9g$r=$@5!#(B
+	* XEmacs-21.0 $B$G$O!$(Bunsubscribe $B$d(B remove $B$5$l$?%U%)%k%@$K(B
+	  text-property $B$,IU$/$N$r=$@5!#(B
+	* wl-folder.el $B$NJQ99$KH4$1$,$"$C$?$N$r=$@5!#(B
+	* $B0[$J$k(B folder $B$NF1$8(B petname $B$O8!=P$9$k$h$&$K$7$?!#(B
+	* access$B%0%k!<%W$G$b%U%)%k%@$NDI2C!$A^F~!$:o=|$,9T$($k$h$&$K$7$?!#(B
+	* access$B%0%k!<%W$GI=<($7$J$$%U%)%k%@$r;XDj$G$-$k$h$&$K$7$?!#(B
+	* fldmgr $B$N(B region$BA`:n$r9bB.2=$7$?!#(B
+	* access $B%0%k!<%W$N(B fetching $B;~$K?7$7$$%U%)%k%@$H:o=|$5$l$?%U%)%k%@$,(B
+	  $BJ,$+$k$h$&$K$7$?!#?7$7$$%U%)%k%@$O@hF,$KI=<($5$l$^$9!#(B
+	* wl-summary-move-order $B$,(B 'new $B0J30$@$H(Bwl-thread-jump-to-next-unread
+	  $B$G%(%i!<$K$J$k$N$r=$@5!#(B
+	* wl-summary-read $B$G<!$NL$FI%U%)%k%@$K0\F0$9$k$H$-!$0\F0@h%U%)%k%@$N(B
+	  $BL$FI?t$,(B 0 $B$J$i!$$D$E$1$F<!$NL$FI%U%)%k%@$K0\$l$k$h$&$K$7$?!#(B
+	* folder mode $B$G%0%k!<%W$rA4$FJD$8$k%3%^%s%I(B(wl-folder-close-all)$B$H(B
+	  $BA4$F3+$/%3%^%s%I(B(wl-folder-open-all)$B$rDI2C$7$?!#(B
+	* summary $B$K0\F0$7$?:]!$(Bfolder mode $B$N%+!<%=%k0LCV$rBP1~$5$;$k$h$&$K(B
+	  $B$7$?!#%G%U%)%k%H$O$7$J$$!#(B
+	* $B?75,JQ?t(B wl-summary-next-no-unread (default $B$O(B t)
+	* $B?75,JQ?t(B wl-summary-exit-next-move (default $B$O(B t)
+	* $B?75,JQ?t(B wl-folder-move-cur-folder (default $B$O(B nil)
+	* $B?75,JQ?t(B wl-highlight-folder-killed-face (default $B$O(B gray50)
+	* fldmgr $B$N5!G=$r@bL@$9$k?75,%U%!%$%k!"(BREADME-fldmgr.ja$B!#(B
+
+1998-09-15 pf21 GOTO_Toshiya <pf21@pure.cpdc.canon.co.jp>
+
+	* Summary $B$G(B o $B$d(B d $B$G%^!<%/$9$k$H$-$K(B
+	  gnus, mh-e $BIw$K!"FI$s$G$$$kJ}8~$r0U<1$7$F0\F0$9$k$h$&$K$7$?!#(B
+	* $B?75,JQ?t(B wl-summary-move-direction-downward $B$,(B t $B$N;~!"(B
+	  $B:G8e$K<B9T$5$l$?(B p,P,n,N $B$N7k2L$G!"<!$N%a%C%;!<%8$,>e$+2<$+$r(B
+	  $B@Z$jBX$($k!#(B
+
+1998-09-13  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B4X?t(B wl-summary-refer-article-or-url$B!#(B
+
+1998-09-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.6.1 - "Billie Jean"
+	* $B%9%l%C%I$r3+JD$7$F$b0l;~E*%^!<%/$,>C$($J$$$h$&!"(Bdelete mark,
+	  temp mark $B$rJQ?t$KJ];}$9$k$h$&$K$7$?!#(B
+	* wl-thread-jump-to-next-unread $B$NCY$5$r$@$$$V7Z8:!#(B
+	* $B%9%l%C%I$r:o=|$7$?$H$-$KB>$N%a%C%;!<%89T$b>C$7$F$7$^$&>l9g$,$"$k(B
+	  $BIT6q9g$rD>$9!#(B
+	  ($B?9;3$5$s(B <taka@airlab.cs.ritsumei.ac.jp> $B$N8f;XE&$K$h$k!#(B)
+	* wl-address.el $BCf$N(B insert-file $B$r(B insert-file-contents $B$KCV$-49$((B
+	  $B$k$N$r$o$9$l$F$?!#(B
+	  ($B?9;3$5$s(B <taka@airlab.cs.ritsumei.ac.jp> $B$N8f;XE&$K$h$k!#(B)
+	* wl-fldmgr.el $B$,(B write-file-as-mime-charset $B$r;H$o$J$$$h$&$K$7$?!#(B
+	* wl-fldmgr.el $B$,(B alist.el $B$r(B require $B$7$J$$$h$&$K$7$?!#(B
+	* wl-fldmgr.el $B$r%^!<%8!#(B
+
+1998-09-11  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,%U%!%$%k(B wl-fldmgr.el$B!#(B
+	  $B%U%)%k%@%b!<%I$+$i(B .folders $B$NJT=8$,2DG=$K$J$C$?!#(B
+	* wl-folder.el $B$GF1$8(B petname $B$,$"$k$H$-$NIT6q9g$rD>$9!#(B
+
+1998-09-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* mt $B$N$H$-$K%9%l%C%I$r3+$/$h$&$K$7$?!#(B
+	 ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f=u8@$K4p$E$/(B)
+	* 0.6.0 - "Angelia"
+
+1998-09-10  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	 * wl-summary-jump-to-parent-message $B$G;2>H@h$N(B msg-id $B$rF@$k$H$-$K6u(B
+	   $BGr$,4^$^$l$k$?$a$K!$?F%a%C%;!<%8$,;2>H$G$-$J$$>l9g$,$"$k$N$r=$@5$7(B
+	   $B$?!#(B
+	 * wl-parse-newsgroups $B$G(B split-string $B$NBe$o$j$K(B wl-parse $B$r;H$&$h$&(B
+	   $B$K$7$?!#(B
+
+1998-09-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* pick $B$5$l$?%a%C%;!<%8$N%9%l%C%I$O3+$/$h$&$K$7$?!#(B
+	* thread $BA`:nMQ$N%-!<%P%$%s%I$r(B
+	  '/' -> wl-thread-open-close
+	  '[' -> wl-thread-open-all
+	  ']' -> wl-thread-close-all
+	  $B$H$9$k!#(B
+	* wl-thread.el $B$K:GDc8BI,MW$J%b%8%e!<%k$,$H$j$"$($:40@.!#(B
+	* $B?75,JQ?t(B wl-thread-insert-opened$B!#(B
+	  t   $B$J$i%9%l%C%I$r3+$$$FA^F~!#(B
+	  nil $B$J$i%9%l%C%I$rJD$8$FA^F~!#%G%U%)%k%H$O(B nil $B$H$7$?!#(B
+	* elmo $B$G$b0lIt(B append $B$r(B nconc $B$KJQ99$G$-$k$H$3$m$rCV$-49$($F$_$?!#(B
+
+1998-09-09  Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>
+
+	* wl-folder.el $B$G(Bappend$B$7$F$$$k$H$3$m$GJQ99$G$-$kItJ,$r(Bnconc$B$G(B
+	  $BCV$-49$($?!#(B
+	* wl-address.el $BCf$N(B insert-file $B$r(B insert-file-contents $B$KCV$-49$($?!#(B
+
+1998-09-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B4X?t(B wl-address-setup $B$G(B file-exists-p $B$H(B file-readable-p $B$N(B and $B$r(B
+	  $B<h$C$F$$$?$N$r(B file-exists-p $B$N$_$GH=Dj$9$k$h$&$K$7$?!#(B
+	  ($BC.@P(B $B$5$s(B Masato Taruishi <taru@sunicom.co.jp> $B$h$j8f;XE&(B)
+	* $B?75,JQ?t(B wl-use-folder-petname-on-modeline $B$,(B t (default $B$O(B t)$B$J$i(B
+	  modeline $B$K(B folder $B$N$"$@L>$r=P$9$h$&$K$7$?!#(B
+	* $B%5%^%j(B/$B%a%C%;!<%8$N%^%&%9%[%$!<%k40A4(B(?)$BBP1~!#(B
+	* multi $B$J$i%/%m%9%]%9%H$N5-;v$r>C$9$h$&$K$7$?!#(B
+	* [elmo] multi $B$O(B Date $B$G(B sort$B!#(B
+	* [elmo] mark-alist $B$r(B ("Message-Number" . "Mark") $B$N(B assoc list $B$K(B
+	  $BJQ99!#(B
+
+1998-09-08  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* petname $B$N<hF@$G%a!<%kBgJ8;z>.J8;z$,6hJL$5$l$F$$$?$N$rL5;k$9$k$h$&(B
+	  $B$K$7$?!#(B
+	* filter $B$d(B multi $B$K$J$k$H!$(Bimap, nntp,localdir $B$NH=CG$,$G$-$F$$$J$$(B
+	  $BItJ,$,$"$C$?$N$r=$@5!#(B
+
+1998-09-06  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-folder-diff $B$G(B info-alist $B$NCM$rJQ99$9$k$h$&$K$7$?!#(B
+	* $B?75,%U%!%$%k(B wl-thread.el$B!#(Binteractive $B$J(B thread $BI=<(%b%8%e!<%k72!#(B
+	 ($BC.@P$5$s(B Masato Taruishi <taru@sunicom.co.jp> $B$N8f=u8@$K4p$E$/(B)
+
+1998-09-05  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* .folders $B$G!"%U%)%k%@L>$N$&$7$m$K(B "" $B$G$/$/$C$F(B Petname $B$rDj5A(B
+	  $B$G$-$k$h$&$K$7$?!#(B
+	 ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp>$B!"(B
+	  $BC.@P$5$s(B Masato Taruishi <taru@sunicom.co.jp> $B$N8fDs0F$K4p$E$/(B)
+
+1998-09-04  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.5.4 - "You Might Think"
+	* $B?75,JQ?t(B wl-force-fetch-folders $B$,(B non-nil $B$J$i%"%/%;%97?%U%)%k%@$r(B
+	 $B3+$$$?$H$-$K>o$K:G?7$N%j%9%H$r<h$j$K9T$/$h$&$K$7$?!#(B
+	 ($BC.@P$5$s(B Masato Taruishi <taru@sunicom.co.jp> $B$N8f=u8@$K4p$E$/(B)
+
+1998-09-03  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* unplugged $B$N$H$-$K(B wl-summary-{next|prev} $B$NF0:n$,$*$+$7$/$J$C$F(B
+	  $B$$$?$N$rD>$9!#(B
+	* wl-draft-send-mail-with-smtp $B$H(B wl-draft-send-mail-with-qmail $B$b(B
+	  wl-mail-send-pre-hook $B$rI>2A$9$k$N$r(B wl-do-fcc() $B<B9TA0$K!#(B
+	* [elmo] IMAP $B$G(B \Seen $B%U%i%0$,IU$$$F$$$?$i!"?75,%a!<%k$G$b4{FI(B
+	  $B$"$D$+$$$9$k$h$&$K$7$F$_$?!#(B
+	* [elmo] elmo-imap4-list-folders $B$,$^$H$b$KF0$+$J$+$C$?$N$r=$@5!#(B
+	  ($BC.@P$5$s(B Masato Taruishi <taru@sunicom.co.jp> $B$N8f;XE&$K$h$k(B)
+	  $B$^$@IT40A4!)(B
+	* $BNc$($P(B /last:100/... $B$G(B 100 $B8D$J$+$C$?$i%(%i!<$,=P$k$N$r=$@5!#(B
+
+1998-09-03 Ishikawa Ichiro <ichiro@mail.ne.jp>
+
+	* Message-Id $B$dK\J8$,$J$$%a%C%;!<%8$,$"$k$H$-$NLdBj$r=$@5!#(B
+
+1998-09-03 TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Emacs20.2 $B$G(B update $B$,%(%i!<$K$J$kLdBj$r=$@5!#(B
+
+1998-09-03 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-init() $B$G(B wl-demo() $B$9$k%?%$%_%s%0$r(B ~/.wl $B%m!<%I8e$K!#(B
+	* im-wl.el $B$G(B wl-mail-send-pre-hook $B$rI>2A$9$k$N$r(B wl-do-fcc() $B<B9T(B
+	  $BA0$K!#(B
+
+1998-09-02  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,JQ?t(B wl-draft-reply-without-argument-list $B$*$h$S(B
+	  wl-draft-reply-with-argument-list $B$rDI2C!"(Breply $B;~$N%G%U%)%k%H$r(B
+	  $B%+%9%?%^%$%:$G$-$k$h$&$K$7$?!#(B
+	* ChangeLog $B$,4V0c$C$F$$$?$N$r=$@5!#(B
+	 ($BB<ED$5$s(B Masahiro MURATA <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)
+
+	* 0.5.3 - "Xanadu"
+	* elmo-nntp-msgdb-create-as-numlist $B$N$3$H$r$o$9$l$F$?$N$G:n$C$?!#(B
+	 ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$h$j8f;XE&(B)
+
+1998-09-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,%U%!%$%k!"(BREADME-FOLDER.ja$B!#(B $B%U%)%k%@$N=q<0$r@bL@$9$k%a%b!#(B
+	* Summary $B$G(B "V" $BEy$G:n$i$l$?2>A[%U%)%k%@$+$iC&=P$9$k?75,%3%^%s%I!"(B
+	  wl-summary-unvirtual $B$r(B "U" $B$K%P%$%s%I!#(B
+	* [elmo] elmo-filter-search $B$r$A$g$C$H$^$8$a$K<BAu!#(B
+	* [elmo] imap4 $B$N(B filter $B%9%Z%C%/MQ(B msgdb $B@8@.4X?t$G!"(B
+	  $B%a%C%;!<%8Kh$K(B envelope $B>pJs$r(B fetch $B$9$k$N$r$d$a!"(B
+	  $BEv3:ItJ,$N(B envelope $B$rA4It(B fetch $B$7$?$"$H%/%i%$%"%s%HB&$G(B filter
+	  $B$9$k$h$&$K$7$F9bB.2=(B($B%a%b%j;H$&$1$I(B)$B!#(B
+
+1998-09-01 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-auto-select-first $B$,(B nil $B$N$H$-!$:G=i$NL$FI%a%C%;!<%8$K(B
+	  $BHt$V$h$&=$@5!#(B
+
+1998-09-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* update $B$N(B message $B$r=P$9%?%$%_%s%0$rJQ99!#(B
+	* [elmo] "Message-ID: <>" $B$@$H:o=|$G$-$J$$$H$$$&LdBj$,;D$C$F$$$?$N(B
+	  $B$rD>$9!#(B
+
+1998-08-31  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.5.2 - "Wild Boys"
+	* [elmo] $B$^$?$b$d(B "Message-ID: <>" $B$@$HF0$+$J$/$J$C$F$$$?$N$rD>$9!#(B
+	* [elmo] localdir $B$G!"?t;z$,O"B3E*$G$J$$$HL5BL$K%k!<%W$r2s$k$N$r=$@5!#(B
+	* wl-summary-goto-folder $B$G!"(Bhighlight $B$N;EJ}$r4V0c$($F$$$?$N$rD>$9!#(B
+	* XEmacs $B$@$H(B .folders $B$K(B filter $B$r;XDj$7$F$$$k$H%(%i!<$K$J$k$N$r=$@5(B
+	  ($B%"%$%3%s$N$3$H$o$9$l$F$?(B)$B!#(B
+	 ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f;XE&$K4p$E$/JQ99(B)
+	* [elmo] elmo-folder-diff $B$G!"(Bfilter $B$N$H$-$K(B multi $B$r;XDj$7$F$$$k$H(B
+	  $B%(%i!<$K$J$k$N$rD>$9!#(B
+	 ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f;XE&$K4p$E$/JQ99(B)
+	* [elmo] elmo-filter-append-msg $B$rD>$9!#(B
+
+1998-08-28  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.5.1 - "Valotte"
+	* filter $B$NDI2C$KH<$&JQ99B??t!#(B
+	* $B?75,JQ?t(B wl-folder-no-save-list, wl-folder-save-list$B!#(B
+	* [elmo] $B?75,%U%!%$%k(B elmo-filter.el$B!#(B
+
+1998-08-26 Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.5.0 - "Uptown Girl"
+
+1998-08-25 Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* multi $B$NDI2C$KH<$&JQ99B??t!#(B
+	* [elmo] $B?75,%U%!%$%k(B elmo-multi.el$B!#(B
+	* elmo-cache-expire-by-size $B$r<BAu!#(B
+
+1998-08-25  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* XEmacs $B$GJ#?t(B frame $B$r;H$C$F$$$k>l9g!"(Bonly one window $B$J(B frame $B$G(B
+	  wl-draft-hide $B$9$k$H!"(Bframe $B$4$H>C$($F$7$^$&$N$r2sHr!#(B
+
+1998-08-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Summary $B$,0lDj9T?t0J>e$"$k>l9g$O!":G=i$KI=<($9$k%a%C%;!<%8$N(B
+	  $B$"$?$j$+$i2<$@$1%O%$%i%$%H$9$k$h$&$K$7$?!#(B
+	 ($B0lDj?t(B = wl-summary-highlight-partial-threshold, default $B$O(B 1000)
+	* Summary $B$N(B highlight $B$G(B looking-at $B$N2s?t$r8:$i$7$F$A$g$C$H$@$1(B
+	  $B9bB.2=(B(15% $B$/$i$$(B?)$B!#(B
+	* Summary $B$N(B $B%a%C%;!<%8HV9f$NI=<(7e?t$N@_Dj$rHFMQ2=!#(B
+
+1998-08-23  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-folder-info-save $B$,(B t $B$J$iL$FI>pJsI=<($b%j%8%e!<%`$9$k$h$&(B
+	  $B$K$7$?!#(B
+	* elmo-folder-info-save -> wl-folder-info-save (default $B$r(B t $B$K(B)$B!#(B
+	* fdbinfo -> finfo.
+
+1998-08-23  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B3F%U%)%k%@$N:GBg%a%C%;!<%8HV9f$dL$FI?t$r(B cache $B$7$F(B
+	  wl-folder-check-entity $B$r9bB.2=$7$?!#(B
+	  elmo-folder-info-save $B$,(B non-nil $B$J$i(B save $B$7$F<!2s5/F0;~$bMxMQ(B
+	  $B$9$k!#(B
+	* NetNews $B%U%)%k%@$K$F%/%m%9%]%9%H$5$l$?5-;v$rJL%U%)%k%@$G4{FI07$$$9$k(B
+	 $B$h$&$K$7$?!#(B
+	* draft mode $B$K$F(B Newsgroup $BL>$,Jd40$G$-$k$h$&$K$7$?!#(B
+	* alias $B%U%!%$%k$N2r@O;~$K9TF,$N(B '#' ';' $B$r%3%a%s%H07$$$K$7$?!#(B
+	* wl-folder-empty-trash $B<B9T8e$K(B msgdb $B$b(B save $B$9$k$h$&$K$7$?!#(B
+	* wl-summary-delete-all-msgs $B<B9T8e$K(B new-count $B$H(B unread-count
+	  $B$r99?7$9$k$h$&$K$7$?!#(B
+	* new $B%a%C%;!<%8$rFI$^$:$K(B delete $B$9$k$H!$(Bmark msgdb $B$,99?7$5$l$J(B
+	  $B$$$N$r=$@5$7$?!#$^$?(B wl-summary-exec-region $B<B9T8e$K(B
+	  wl-folder-set-folder-updated $B$K$F%a%C%;!<%8?t$J$I$r99?7$9$k$h$&(B
+	  $B$K$7$?!#(B
+
+1998-08-23  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* important-mark $B$r%0%m!<%P%k$K4IM}$9$k$h$&$K$7$?!#(B
+
+1998-08-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-summary-jump-to-parent-msg-by-message-id $B$G!"Ev3:%a%C%;!<%8$,(B
+	  $B0c$&%U%)%k%@$K$"$k>l9g$OHt$V$3$H$b$G$-$k$h$&$K$7$?!#(B
+	  (XEmacs $B$G(B elmo-use-database $B$,(B t $B$N>l9g$N$_(B)
+	* [elmo] dbm $B%b%8%e!<%k72MQ?75,%U%!%$%k!"(Belmo-database.el $B:n@.!#(B
+	  (XEmacs $B@lMQ(B)
+
+1998-08-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-summary-mark-as-read-all $B$G$$$A$$$A%-%c%C%7%e$,B8:_$9$k$+$I$&$+(B
+	  $B%A%'%C%/$7$J$$$h$&$K$7$?!#(B
+	* XEmacs $B8~$1(B Opening Logo $B$r0l?7!#(B
+	* [elmo] elmo-cache-search $B$r?7%-%c%C%7%eJ}<0$KDI=>!#(B
+
+1998-08-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] $B%-%c%C%7%e$r%0%m!<%P%k$K4IM}$9$k$h$&$K$7$?!#(B
+	* [elmo] $B%-%c%C%7%e4IM}%b%8%e!<%k72MQ?75,%U%!%$%k!"(Belmo-cache.el $B$r(B
+	  $B:n@.!#(B
+
+1998-08-18 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* search-parent $B$N=$@5!#(B
+
+1998-08-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] imap4 $B$G(B select $B$;$:$K(B list folder $B$9$k$H!"<B:]$OFbMF$,(B
+	  $BJQ2=$7$F$$$F$b7k2L$,99?7$5$l$J$$$N$G!"(Blist folder $B$NA0$K(B
+	  noop $B$rAw$k$h$&$K$7$?!#(B
+	* v0.4.4 - "Thriller"
+
+1998-08-17 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* search-parent $B$G2?HVA0$N?F$+$r;XDj$G$-$k$h$&$K$7$?!#(B
+
+1998-08-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-mime.el $B$G!"(Bfollow-current-entity $B$NA0$K(B widen $B$9$k$h$&$K$7$?!#(B
+	* original buffer $B$r(B read-only $B$K$7$?!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+
+1998-08-16 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-break-pages $B$,$A$c$s$HH?1G$5$l$J$$$N$r=$@5!#(B
+
+1998-08-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder-goto-first-unread-folder, wl-folder-open-all-unread-folder,
+	  wl-folder-open-folder $B$r(B wl-folder-get-path $B$r;H$&$h$&JQ99!#(B
+	* wl-highlight-folder-path $B$N2~NI!#(B
+
+1998-08-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* localdir $B$J(B access $B%0%k!<%W$r(B fetching $B$9$k$H$-$K!$%0%k!<%WL>$K(B
+	  property $B$,$D$$$F$$$k$;$$$G<hF@$7$?%j%9%H$K$bM>7W$J(B property $B$,IU$/(B
+	  $B$N$r=$@5!#(B
+	* wl-folder-goto-folder $B$G0\F0$9$k$H$-$K(B
+	  wl-folder-buffer-cur-entity-id $B$r%;%C%H$9$k$h$&$K$7$?!#(B
+	* $B?75,4X?t(B wl-folder-goto-first-unread-folder ('f')
+	  $BL$FI%a%C%;!<%8$,$"$k:G=i$N%U%)%k%@$K0\F0$9$k!#(B
+	* $B?75,4X?t(B wl-folder-jump-folder ('J')
+	  $B;XDj$7$?%U%)%k%@$K0\F0$9$k!#$=$N;~!$%U%)%k%@$,B0$7$F$$$k%0%k!<%W(B
+	  $B$r3+$/!#(B
+	* $B?75,4X?t(B wl-folder-open-all-unread-folder ('o')
+	  $BL$FI%a%C%;!<%8$,$"$k%U%)%k%@$N%0%k!<%W$rA4$F3+$/!#(B
+	* $B?75,4X?t(B wl-folder-open-folder
+	  $B;XDj$7$?%U%)%k%@$N%0%k!<%W$r3+$/!#(B
+
+1998-08-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] delete $B;~!"(Bexpunge $B$N%?%$%_%s%0$rJQ99(B($B$+$J$j9bB.2=(B)$B!#(B
+	* trash folder $B$G$N(B "D" $B%^!<%/$O(B($B??$N(B)$B:o=|$r<B9T$9$k$h$&$K$7$?!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+
+1998-08-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* msgdb $B$O(B save $B$5$l$F!$(Bsummary-cache $B$O(B save $B$5$l$J$$>u67$,H/@8$9$k(B
+	  $B>l9g$,$"$k$N$r2sHr!#(B
+
+1998-08-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Summary $B$KDI2C$5$l$k9T$N(B highlight $B$NJ}K!$rJQ99(B($BB?>/9bB.2=(B)$B!#(B
+	* $B%G%U%)%k%H$N(B cite $B$@$H(BFrom:$B$K4A;z$,4^$^$l$F$$$k$H(B internal $B$K$J$C$F(B
+	  $B$7$^$&$N$r=$@5!#(B(te@gohome.org $B$h$j8f;XE&(B)
+	* no-cache-folder $B$G$b!"(Bimportant-mark $B$r$D$1$k$H$-$K%-%c%C%7%e$9$k(B
+	  $B$h$&$K$7$?!#(B($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f0U8+(B)
+	* Message-Id: <> $B$N%a!<%k$,%-%c%C%7%e;~$K%(%i!<$K$J$k$N$r2sHr!#(B
+	  ($B1-;t$5$s(B <ukai@debian.or.jp> $B$h$j8f;XE&(B)
+	* [bbdb-wl.el] bbdb$B%(%s%H%j$r%-%c%C%7%e$9$k$h$&JQ99!#(B
+
+1998-08-13 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [bbdb-wl.el] Emacs20.x $B$G%(%i!<$,5/$3$k$N$r2sHr!#(B
+
+1998-08-11  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-set-string-width $B$G!"%;%C%H$7$h$&$H$7$F$$$kD9$5$,(B string $B$H(B
+	  $B$A$g$&$IF1$8$@$H(B XEmacs $B$G$O$J$<$+(B1$BJ8;zD9$/$J$C$F$7$^$&$N$r2sHr!#(B
+	* [elmo] imap4 $B$N(B bodystructure $B<h$j4s$;$G!"E:IU%U%!%$%k$N(B
+	  $B%U%!%$%kL>$,F|K\8l$@$C$?$j$9$k$H(B parse $B$K<:GT$9$k$N$r2sHr!#(B
+
+1998-08-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.4.3 - "Starting Over"
+	* wl-no-cache-folder-list $B$r?7@_!"%^%C%A$7$?%U%)%k%@$O(B
+	  $B%a%C%;!<%8$rFI$s$G$b%-%c%C%7%e$7$J$$!#(B
+	* elmo-imap4-msgdb-create-range, elmo-nntp-msgdb-create-range
+	  $B$K$*$1$k(B overview $B$N<h$j4s$;$H$=$N2r@O=hM}$rHsF14|2=!#(B
+
+1998-08-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* msgdb $B$N%;!<%V$r!"JQ99$,$"$C$?ItJ,$@$19T$&$h$&$K$7$?!#(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f;XE&(B)
+
+1998-08-07 Fumitoshi UKAI <ukai@debian.or.jp>
+
+	* elmo-imap4-msgdb-create-range  $B$r9bB.2=!#(B
+
+1998-08-06 Fumitoshi UKAI <ukai@debian.or.jp>
+
+	* msgdb $B$N(B load $B$H(B imap4 select folder $B$rHsF14|$K9T$&(B
+	  wl-summary-msgdb-load-async $B$N<B8=!#(B
+
+1998-08-06  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.4.2 - "Rock Me Amadeus"
+	* imap4, nntp $B$G(B overview $B$r<h$j4s$;$k$H$-$K$$$C$Z$s$KA4$F$G$O$J$/(B
+	  $B0lDj?t$E$D(B fetch $B$9$k$h$&$K$7$?!#%G%U%)%k%H$O(B 200 $B$E$D!#(B
+	  ($B1-;t$5$s(B <ukai@debian.or.jp> $B$h$j8f=u8@(B)
+	* Summary $B$N(B Update $B$G(B, $BDI2C$5$l$?%a%C%;!<%8$N(B highlight $B$NJ}K!$rJQ99!#(B
+
+1998-08-06  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-summary-reedit $B$r(B draft $B%U%)%k%@$G<B9T$9$k$H$-!$(B
+	  $BF1$8%a%C%;!<%8HV9f$r;HMQ$9$k$h$&$K$7$?!#(B
+	* $BJQ?t(B wl-draft-config-alist $B$r?7@_!#%X%C%@(B($B08@h$J$I(B)$B$K1~$8$FB>$N(B
+	  $B%X%C%@(B(From$B$J$I(B)$B$rJQ99$9$k5!G=$rDI2C$7$?!#(B
+
+1998-08-06  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] current folder $B$,F1$8$J$i(B select folder $B$7$J$$$h$&$K$7$?!#(B
+	  ($B1-;t$5$s(B <ukai@debian.or.jp> $B$h$j8f=u8@(B)
+
+1998-08-06 Fumitoshi UKAI <ukai@debian.or.jp>
+
+	* [elmo] elmo-msgdb-list-diff2 $B$r9bB.2=!#(B
+
+1998-08-05  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%a%C%;!<%8%X%C%@$N(B highlight $B$r$b$C$H<+M3$KDj5A$G$-$k$h$&$K$7$?!#(B
+
+1998-08-04  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] scan $B$NB.EY8~>e$N$?$a$K(B overview $B%G!<%?%Y!<%9$O!"%a%b%j>e!"(B
+	  HDD$B>e$$$:$l$b(B iso-2022-jp($B$=$N%U%)%k%@$N(B mime-charset)$B$GJ]B8$9$k(B
+	  $B$h$&$K$7$?!#(B
+	* wl-summary-toggle-thread $B$r<BAu!#(B't' $B$K(B bind$B!#(B
+
+1998-08-04  Yuji Yamano <u90156@uis-inf.co.jp>
+
+	* tm $B$G0zMQ$7$F%j%W%i%$$7$h$&$H$9$k$H(B
+	  (void-variable mime::preview/mother-buffer) $B$K$J$k>l9g$,$"$k$N$r(B
+	  $B2sHr!#(B
+
+1998-08-04  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $BJQ?t(B wl-summary-indent-length-limit $B$r?7@_!#(B
+	  $B$I$s$J$K%9%l%C%I$,?<$/$F$b$3$ND9$50J>e%$%s%G%s%H$7$J$$!#(B
+	  $B%G%U%)%k%H$O(B 46 ($B:,5r$J$7(B)$B!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+
+1998-08-03  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] localdir $B$N(B search $B;~!"$A$c$s$H(B elmo-mime-charset $B$G(B
+	  decode $B$9$k$h$&$K$7$?!#(B
+	* wl-summary-sort $B$r<BAu!"(B(by date, number, subject, from).
+	  'S' $B$K(B bind.
+	* wl-summary-jump-to-parent-message $B$N(B arg $B$N0UL#$r5U$K$7$?!#(B
+	* v0.4.1 - "Private Eyes"
+
+1998-08-02  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,%a%C%;!<%8$r(B prefetch $B$9$k4X?t(B wl-summary-incorporate $B$rDI2C!#(B
+	* tm $B$G5pBg%a%C%;!<%8$r<h$C$FMh$k$+$I$&$+<ALd$9$k$h$&$K$9$k$N$r(B
+	  $BK:$l$F$?$N$rD>$9!#(B
+	* prefetch $B$9$k$HL$FI?tI=<($,$*$+$7$/$J$k$N$r=$@5!#(B
+	* wl-folder-sync-entity $B$,@5$7$/%5%^%j%S%e!<%-%c%C%7%e$r99?7$7$J$$(B
+	  $B%P%0$r=$@5!#(B
+	* wl-summary-down $B$,(B interrupt $B$5$l$?;~$K%+%l%s%H%U%)%k%@>pJs$,(B
+	  $B$*$+$7$/$J$k$N$r=$@5!#(B
+	* 00README.ja $B$K(B install.el $B$K4X$9$kCm0U=q$-$rDI2C!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f=u8@(B)
+
+1998-07-31 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [elmo] elmo-nntp-list-folder $B$,(B XEmacs $B0J30$GF0$+$J$$%P%0$r=$@5!#(B
+
+1998-07-31  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] imap4 $B$G!"%7%s%0%k%Q!<%H$N5pBg$J%a%C%;!<%8$N>l9g!"(B
+	  $B<h$C$FMh$J$$$H8@$C$F$$$k$N$K<h$C$FMh$F$7$^$&%P%0$r=$@5!#(B
+	* [elmo] read-msg $B$G$N%3%T!<2s?t$r8:$i$7$F%a%b%j;HMQNL$r@aLs!#(B
+	* Emacs $B=*N;;~$K(B Summary $B$,;D$C$F$$$?$i(B cache $B$H(B mark $B$r%;!<%V$9$k(B
+	  $B$h$&$K$7$?!#(B
+
+1998-07-30  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%0%k!<%W%U%)%k%@>e$K%+!<%=%k$,$"$k$H$-$K%4%_H"$r6u$K$9$k$H!"(B
+	  summary window $B$,;D$C$F$7$^$&$N$r2sHr!#(B
+	* get-text-property $B$NB?MQ$G!"(Bwl-folder-update-unread $BEy$,(B
+	  $BCY$/$J$C$F$$$?$N$G!"6KNO(B get-text-property $B$r8:$i$7$?!#(B
+	* wl-message-window-size $B$N%G%U%)%k%H$r(B '(1 . 4) $B$K$7$?!#(B
+	* $BJQ?t(B wl-summary-recenter $B$,(B non-nil $B$J$i!"(Bredisplay $B;~$K(B
+	  recenter $B$9$k$h$&$K$7$?!#(B
+	* v0.4.0 - "One More Try"
+
+1998-07-29  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-folder-petname-alist $B$r?7@_!#%^%C%A$7$?$i%U%)%k%@$r$"$@L>I=<(!#(B
+	* wl-auto-select-next $B$,(B non-nil $B$N$H$-!"(BSPC $B$@$1$G$J$/!"(B
+	  $B8=:_$N%3%^%s%I$,<B9T$5$l$?%-!<!"$b$7$/$O%^%&%9%$%Y%s%H$,B3$1$F(B
+	  $BF~NO$5$l$?>l9g$G$b<!$N%U%)%k%@$K0\$l$k$h$&$K$7$?!#(B
+	* wl-auto-select-next $B$,(B non-nil $B$J$i!":G8e$N%a%C%;!<%8$G(B
+	  'n' $B$r2!$7$?$H$-$b<!$N%U%)%k%@$KB(0\F0$G$-$k$h$&$K$7$?!#(B
+	* [elmo] elmo-nntp-list-folder $B$rBgI}$K9bB.2=(B ($B:#$^$G$,CY$9$.!)(B)$B!#(B
+
+1998-07-28  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%X%C%@$N%U%)%s%H$N%G%U%)%k%H$r(B bold $B$K$7$?!#(B
+	* $B8=:_A*Br$5$l$F$$$k%U%)%k%@(B($B$N%Q%9(B)$B$H%a%C%;!<%8$r%O%$%i%$%H$9$k(B
+	  $B$h$&$K$7$?!#(B
+	* wl-summary-auto-select-next $B$G!"<!$NL$FI$,$"$k%U%)%k%@$,(B
+	  Folder $B%b!<%I$K8=$l$F$$$J$/$F$b(B($BJD$8$i$l$?%U%)%k%@Fb$K$"$C$F$b(B)
+	  $BE,Ev$J$b$N$r3d$j=P$7$F0\F0$9$k$h$&$K$7$?!#(B
+	* $B3F%U%)%k%@$K(B Id $B$r?6$k$h$&$K$7!"%P%C%U%!>e$G$O(B text-property,
+	  'wl-folder-entity-id $B$G;2>H$G$-$k$h$&$K$7$?!#(B
+	  wl-folder-entity-alist $B$N9=B$$K$b(B entity-id $B$rDI2C!#(B
+
+1998-07-26  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%-%c%C%7%e$GK\J88!:w(B($B%-%c%C%7%e8!:w(B)$B$G$-$k$h$&$K$7$?!#(Bimap4 $B$N(B
+	  offline $B>uBV!"$*$h$S!"(Bnntp $B$G$O!"$3$N%-%c%C%7%e8!:w$rMQ$$$k!#(B
+	* Message-ID $B$K(B "/" $B$,4^$^$l$k$H$-!"%-%c%C%7%e$N%U%!%$%kL>$G$O(B " "
+	  $B$KCV$-49$($k$3$H$K$7$?!#(B
+	* $B%j%U%!%$%k%^!<%/$rIU$1$?$^$^%U%)%k%@$rC&=P$9$k$H!"%4%_$,%;!<%V(B
+	  $B$5$l$k$N$r2sHr$7$?(B($B$D$b$j(B)$B!#(B
+	* $B%5%^%j%S%e!<%-%c%C%7%e$N(BHDD$B$X$N=q$-9~$_$r!"JQ99$,$"$k$?$S$G$O$J$/!"(B
+	  $B%U%)%k%@!<$r0\F0!&H4$1$k;~$K0l5$$K=q$-=P$9$h$&$K$7$?!#(B
+	* NNTP $B$G$b%U%)%k%@%j%9%H$N<h$j4s$;$r$G$-$k$h$&$K$7$?!#(B
+	  (.folders $B$K(B "-fj.rec /" $B$N$h$&$K=q$1$k$h$&$K$J$C$?!#(B)
+	* XEmacs $B$N%a%K%e!<$rF|K\8lI=<($9$k%j%=!<%9!"(Betc/ja.Emacs $B$rDI2C!#(B
+	* $BF1$8(B Message-ID $B$N%a%C%;!<%8$,J#?t$"$k>l9g!"L$FI%^!<%/$N?t$,(B
+	  $B$*$+$7$/$J$k$N$rD>$7$?(B($B$D$b$j(B)$B!#(B
+	* $B%U%)%k%@%j%9%H$r%-%c%C%7%e$9$k$h$&$K$7$?!#(B
+	  $B:G?7%j%9%H$K99?7$9$k$K$O!"(BC-u RET $B$G%U%)%k%@$r3+$-D>$9!#(B
+	  unplugged $B>uBV$G$b(B access $B7?%0%k!<%W%U%)%k%@$rMxMQ$G$-$k(B
+	  $B$h$&$K$J$C$?!#(B
+
+1998-07-24  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-auto-select-first $B$r(B non-nil $B$K$9$k$H!$(Bwl-folder-empty-trash
+	  $B$r<B9T$7$?$H$-$K!$(Bwl-folder-toggle-disp-summary $B$N(B select-window
+	  $B$G%(%i!<$K$J$k$N$r=$@5!#(B
+
+1998-07-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* folder-mode-map $B$G(B "P" $B$r(B wl-folder-prev-unread, "N" $B$r(B
+	  wl-folder-next-unread $B$K$7$?$[$&$,;H$$$d$9$$5$$,$7$F$-$?$N$G(B
+	  $B%G%U%)%k%H$r$=$N$h$&$KJQ99!#(B
+	* [elmo] elmo-localdir $B$G!"(Boverview $B@8@.;~$N%U%!%$%k$+$i$N%G!<%?(B
+	  $BFI$_9~$_NL$r:o8:!#%a%b%j;HMQNL$,8:$C$?(B($B$O$:(B)$B!#(B
+
+1998-07-23  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.6 - "Never Surrender"
+
+1998-07-23  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder.el $B$G!"(Bget-buffer-{window|buffer} $B$,<:GT$7$?$H$-$K(B
+	  $B8mF0:n$9$k$N$r=$@5!#(B
+
+1998-07-22  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,JQ?t(B wl-summary-buffer-mime-charset, wl-folder-mime-charset-alist
+	  $B$r@_CV!"(BSummary $B$N@8@.!"K\J8$N%G%3!<%I$GMxMQ$9$k$h$&$K$7$?!#(B
+	* MIME-Version $B$,$J$$$H$-$b@8(B JIS $B%5%V%8%'%/%H$r%G%3!<%I$7$FI=<(!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+	* wl-draft-normal-send-func $B$G!"(BDate field $B$rA^F~$9$k$h$&$K$7$?!#(B
+	* wl-mail-do-fcc-insert-date-header -> wl-draft-insert-date-field
+	  $BL>A0JQ99$HF1;~$K!"(Btimezone.el $B$r;H$&$h$&$K$7$?!#(B
+	* wl-summary-auto-select-next $B$,(B non-nil $B$N$H$-$NF0:n$,(B IMAP4
+	  $B%U%)%k%@$G$*$+$7$/$J$C$F$7$^$&$N$r=$@5!#(B
+	* IMAP4 $B$b%*!<%W%s$9$k$H!$(BEmacs $B$N=*N;;~$K3NG'$r9T$&$N$GL5;k$9$k$h(B
+	  $B$&$K$7$?!#(B
+
+1998-07-22 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $BL$FI%U%)%k%@!<4V$r0\F0$9$k(B wl-folder-(prev|next)-unread $B$r?75,(B
+	  $B:n@.$7$?!#(B
+	* $BJQ?t(B `wl-auto-select-first' $B$,(B non-nil $B$J$i!$%U%)%k%@$K0\F08e(B
+	  $B:G=i$NL$FI%a%C%;!<%8$rB(I=<($9$k$h$&$K$7$?!#(B
+	* $BJQ?t(B `wl-auto-select-next' $B$,(B non-nil $B$J$i!$:G8e$N%a%C%;!<%8$r(B
+	  $BFI$_=*$($?8e$K<!$NL$FI%U%)%k%@$KB(0\F0$9$k$h$&$K$7$?!#(B
+	* $BJQ?t(B `wl-summary-move-order' $B$K$h$j!$%a%C%;!<%80\F0;~$NM%@h=g(B
+	  $B0L$rJQ992DG=$K$7$?!#JQ?t$K$O(B `new' $B$H(B `unread' $B$,;XDj$G$-$k!#(B
+	* $BL$FI%U%)%k%@$N(B wl-highlight-folder-unread-face $B$r?75,DI2C$7$?!#(B
+	* (buffer-substring (match...)) $B$N%3!<%I$r@0M}$7$?!#(B
+	  (wl-folder.el, wl-summary.el $B$N$_(B)
+	* wl-draft-send-mail-with-qmail $B$r;HMQ$9$k$H!$(Bvoid-variable
+	  header-end $B%(%i!<$,=P$k$N$G=$@5$7$?!#(B
+	* NNTP $B$r%*!<%W%s$9$k$H!$(BEmacs $B$N=*N;;~$K3NG'$r9T$&$N$GL5;k$9$k$h$&$K(B
+	  $B$7$?!#(B
+
+1998-07-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] imap4 $B$NK\J88!:w$GF|K\8l$r%-!<$H$7$FM?$($i$l$k$h$&$K$7$?!#(B
+
+1998-07-21 TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-folder-empty-trash $B$G%U%)%k%@%G!<%?$r6u$K%;%C%H$9$k$H$-$N(B
+	  $B%P%0$rD>$9!#(B
+
+1998-07-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.5 - "Miss Me Blind"
+
+1998-07-21 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* WL-ELS $B$G(B ./WL.hack $B$r$A$c$s$H(B load $B$9$k$h$&(B "." $B$r(B load-path $B$K(B
+	  $BDI2C$9$k9T$r0\F0!#(B
+
+1998-07-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Folder $B$K$b(B unread $B?t$rI=<($9$k$h$&$K$7$?!#$$$/$D$+$N4XO"4X?t$b(B
+	  $BJQ99!#(B($BB<EDA442(B <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@$K4p$E$/JQ99(B)
+	* Summary $B$N(B modeline $B$K(B new $B$H(B unread $B$N?t$rI=<($9$k$h$&$K$7$?!#(B
+	  $B%P%C%U%!%m!<%+%kJQ?t!"(Bwl-summary-buffer-unread-count,
+	  wl-summary-buffer-new-count $B$G4IM}!#(B
+	  ($BB<EDA442(B <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@$K4p$E$/JQ99(B)
+	* $BL$FI%a!<%k$r(B1$BDLFI$`EY$K(B mark $B%U%!%$%k$r(BHDD$B$K=q$-9~$^$:!"(B
+	  $B%U%)%k%@!<$r0\F0!&H4$1$k;~$K0l5$$K=q$-=P$9$h$&$K$7$?!#(B
+	  ($BB<EDA442(B <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@$K4p$E$/JQ99(B)
+	* mark $B%U%!%$%k$K$?$^$K(B (("<Message-ID>" nil)) $B$,;D$k%P%0$r=$@5(B
+	  $B$7$?(B($B$D$b$j(B)$B!#(B($BB<EDA442(B <muse@ba2.so-net.ne.jp> $B$5$s$h$j8f;XE&(B)
+
+1998-07-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Semi-vm $B$N<jK!$r;29M$K!"J8;zNs$r8GDjD9$K$9$k=hM}$r9T$&(B
+	  $B?75,4X?t(B wl-set-string-width $B$rDI2C!#(B
+	* wl-display-error $B$,(B error $B$r=P$9$N$r2sHr$7$?(B($B$,!"$^$@$$$^$$$A(B)$B!#(B
+	* wl-draft-folder $B$,(B localdir $B$G$J$1$l$P!"(Bwl-init $B$G%(%i!<%a%C%;!<%8(B
+	  $B$r=P$9$h$&$K$7$?!#(B
+	* Folder mode $B$KLa$i$:$K(B goto-folder $B$P$C$+$j$7$F$$$k$H!"0\F0$9$kEY$K(B
+	  modeline $B>e$N(B `[ON]' $B$,A}2C$7$F$7$^$&%P%0$r=$@5!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+
+1998-07-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.4 - "La Bamba" wl release.
+
+1998-07-15 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $BM>7W$J%W%m%Q%F%#$r<h$C$F$[$7$$$H$3$m$rE,Ev$K8+A6$C$F(B
+	  buffer-substring->buffer-substring-no-properties $B$KCV49!#(B
+	* wl-summary-redisplay() $B$,I,$:$7$bI,MW$G$J$/!"(B
+	  wl-summary-set-message-buffer-or-redisplay() $B$G:Q$`$H$3$m$OCV49!#(B
+
+1998-07-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* mh $B7A<0$N(B alias file $B$,(B wl-alias-file $B$K@_Dj$5$l$F$$$?$i!"(B
+	  completion $B$G;H$($k$h$&$K$7$?(B($B$D$b$j(B)$B!#(B
+	* modeline $B$N(B toggle-status $B$r(B mode-line-buffer-identification $B$N(B
+	  $BA0$K=q$/$3$H$K$7$F$_$?!#(B
+	* wl-draft-insert-message $B$G(B mail-citation-hook $B$H(B mail-yank-hooks $B$r(B
+	  nil $B$K94B+$9$k$N$rK:$l$F$?!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+	* Mule2.3@19.28 $B$K$O(B display-error $B$,$J$$$h$&$J$N$G!"(B
+	  $B$=$l$C$]$$4X?t$r<+A0$GMQ0U$7$?!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+	* wl-summary-redisplay-all-header, wl-summary-redisplay-no-mime $B$G$b(B
+	  $BL$FI%^!<%/=hM}$9$k$h$&$K$7$?!#(B
+
+1998-07-14 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,4X?t(B wl-folder-goto-folder, wl-folder-suspend$B!#(B
+
+1998-07-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-mmelmo-message-redisplay: $B$9$G$K(B cache $B$5$l$F$$$k$K$b$+$+$o$i$:(B
+	  $BA4ItFI$`$+$I$&$+<ALd$7$F$7$^$&$N$rD>$9!#(B
+	* [elmo] message/partial $B$b%-%c%C%7%e4IM}$G$-$k$h$&$K$7$?!#(B
+	* [elmo] read-msg $B$NJV$jCM$r(B (content-type . message) $B$H$7$?!#(B
+	* wl-draft.el: (insert-body) -> (insert body)
+
+1998-07-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.3 - "Karma Chameleon" wl release.
+
+1998-07-13 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B?75,4X?t(B wl-summary-jump-to-parent-message$B!#(B
+
+1998-07-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $BL$FI$,$J$$$H$-$O(B update $B;~$K:G8e$N%a%C%;!<%8$K0\F0!#(B
+	($BB<EDA442(B <muse@ba2.so-net.ne.jp> $B$5$s$N8f;XE&$K4p$E$/JQ99(B)
+	* elmo-nntp-send-mode-reader $B$G(B response $B$rFI$`$h$&$K$7$?!#(B
+
+1998-07-12 Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B=i$a$F0\F0$9$k(B folder $B$K0\$k$H!$(Bsummary $B%b!<%I$G(B2$B$DL\$N%a%C%;!<%8$K(B
+	  $B%+!<%=%k$,0\F0$9$kIT6q9g$r=$@5!#(B
+	* NNTP $B$G:G=i$K(B "mode reader" $B%3%^%s%I$rAw?.$9$k!#(B
+	* from $B$K0[>o(B(?)$B$JJ8;z$,4^$^$l$F$$$k$H!$(Bwl-substring $BFb$N(B sref $B$G%(%i!<(B
+	  $B$,=P$k$N$rL5;k!#(B
+	* wl-auto-check-folder-pre-hook $B$rDI2C!#(B
+	* wl-interactive-exit $B$,(B nil $B$J$i=*N;;~$K3NG'$r<h$i$J$$!#(B
+	* wl-interactive-send $B$,(B t $B$J$iAw?.;~$K3NG'$r<h$k!#(B
+
+1998-07-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* News $B5-;v$N%-%c%s%;%k5-;v$r=P$9;~$K(B wl-draft-raw-send $B$r8F$V$h$&$K(B
+	  $B$7$?!#(B
+	* $B?75,4X?t(B wl-draft-raw-send$B!#(B
+	* $B?75,4X?t(B wl-mime-request-patrial-message$B!#(B
+	* WL-ELS, install.el $B$,%$%s%9%H!<%k$5$l$F$$$l$P!"(B
+	  $B<+F0E*$K(B ELISPDIR $B$r8!=P$G$-$k$h$&$K$9$k!#(B
+	* wl-summary-reedit, wl-draft-open-file  $B$N$H$-$O!"(B
+	  edit-again $B$r;H$&$h$&$K$7$?!#(B
+	* wl-draft-send $B$GAw?.;~$OJL%P%C%U%!$r;H$&$h$&$K$7$?!#(B
+	 ($B<i2,(B $BCNI'(B <morioka@jaist.ac.jp> $B$5$s$N8f=u8@$K4p$E$/JQ99(B)
+	* semi-wl.el -> wl-mime.el
+	 ($B<i2,(B $BCNI'(B <morioka@jaist.ac.jp> $B$5$s$N8f=u8@$K4p$E$/JQ99(B)
+	* $BJQ?t(B wl-init-file $B$rDI2C!#(Bwl-init $B$G(B load-file $B$9$k!#(B
+
+1998-07-11 OKUNISHI - PatchMan II - Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B5/F0$7$F(B Summary mode $B$K0\9T$;$:!"(BGroup mode $B$+$i$$$-$J$j(B "w" $B$9$k(B
+	  $B;~>l9g$K(B tm-wl.el $B$G4X?t$NL$Dj5A%(%i!<$,=P$kIT6q9g$KBP=h!#(B
+	* bbdb $B$,FI$^$l$F$$$k$K$b4X$o$i$:!"0l2sL\$N(B compose $B;~$K(B M-[TAB] $B$,(B
+	 $B!J(Btext-mode $B$N!K(Bispell-complete-word() $B$N$^$^!"$H$$$&Ff$N8=>]$KBP=h!#(B
+	* $B4X?t(B wl-summary-pipe-message $B$rDI2C!#(B
+
+1998-07-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* User-Agent $B%U%#!<%k%I$r@8@.$9$k4X?t!"(Bwl-generate-user-agent-string$B!#(B
+	* draft-send $BCf$N(B error, quit $B$r(B resume $B$9$k$h$&$K$7$F$_$?!#(B
+
+1998-07-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-folder-{next|prev}-unsync $B$N(B regexp $B$r=$@5!#(B
+	* Flim-Chao $B$K9g$o$;!"(Bmmelmo $B$N=q$-49$(!#(B
+	  mmelmo $B$r(B mmelmo $B$H(B mmelmo-imap4 $B$KJ,3d!#(B
+	  mmelmo $B$H(B mmelmo-imap4 $B$N(B dispatch $B$O(B FLIM $BB&$KG$$;$k$h$&$K$7$?!#(B
+
+1998-07-07  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.2 - "Jump" wl release.
+
+1998-07-06  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-draft-send $B$r=$@5!#%(%i!<$r8!CN$G$-$?$H$-$O!"(Bedit-mode $B$KLa$k!#(B
+	  im-wl.el $B$b$=$l$K9g$o$;$F=$@5!#(B
+	* utils/x-face-wl.el, utils/x-pgp-sig-wl.el deleted.
+	* elmo-imap4, elmo-nntp $B$b(B coding-system $B4X78$N94B+$r(B
+	  as-binary-* $B$r;H$&$h$&$K$7$?!#(B
+
+1998-07-06 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* coding-system $B4X78$N94B+$r(B as-binary-* $B$r;H$&$h$&$K$9$k!#(B
+
+1998-07-05 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* New im-wl.el
+
+1998-07-05  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* util/bbdb-wl.el
+	* wl-summary-update $B8e(B folder$B%b!<%I$NA4%a%C%;!<%8?tI=<($,4V0c$C$F(B
+	  $B$$$?$N$rD>$9!#(B
+	* wl-message-back-to-summary-hook -> wl-message-exit-hook
+	* wl-message-back-to-summary -> wl-message-exit
+	* wl-summary-toggle-disp-off-hook $BDI2C(B
+	* wl-summary-exit-hook $BDI2C(B
+	* wl-summary-goto-folder-mode -> wl-summary-exit
+	* wl-folder-{next|prev}-unsync $B$N(B regexp $B$r=$@5!#(B
+	* wl-auto-check-folder-name $BDI2C(B
+	* wl-plugged $B$+$I$&$+$r(B Folder $B%b!<%I$H(B Summary $B%b!<%I$N(B
+	  modeline $B$KI=<(!#(B
+	* wl-summary-next, wl-summary-prev, wl-summary-cursor-up,
+	  wl-summary-cursor-down $B$O(B unplugged $B$N;~$K$OFI$a$J$$%a%C%;!<%8$r(B
+	  $B$H$P$9$h$&$K$9$k!#(B
+	* wl-draft-kill $B$G$?$^$K%(%i!<$,=P$k%P%0$r=$@5!#(B
+	* [elmo] imap4, nntp $B$O(B plugged $B$G$J$1$l$P%(%i!<$H$9$k!#(B
+	* $B4X?t(B wl-toggle-plugged $B$r<B8=!#(BM-t $B$G%H%0%k!#(B
+	* wl-summary-goto-folder $B$G$b(B (wl-summary-folder-cache-save)$B!#(B
+	  ($BDEM88x6G(B <tsumura@kuis.kyoto-u.ac.jp> $B$5$s$N8f;XE&$K4p$E$/JQ99(B)
+
+1998-07-04  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* x-face-wl.el, x-pgp-sig-wl.el $B$O(B coding-system $B$r94B+$7$J$/$F$h$$!#(B
+
+1998-07-03  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Folder $B$N3+JD$r(B delete-region $B$G$d$k$h$&JQ99$7$?!#(B
+
+1998-07-02  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.1 - "Invisible Touch" wl release.
+	* [elmo] imap4 $B$G(B overview $B<hF@;~$K!"$X$s$J%a%C%;!<%8$N(B
+	  References $B%U%#!<%k%I$N(B parse $B$K<:GT$9$k%P%0$r=$@5!#(B
+	* [elmo] imap4 $B$G(B closed $B%3%M%/%7%g%s$rI|3h$7$?$H$-!"(Binbox $B$N(B fetch $B$K(B
+	  $B<:GT$9$k%P%0$r2r7h(B($B$7$?$D$b$j(B)$B!#(B
+	* mmelmo-imap4-node-id-to-string $B$,(B 0 (integer) $B$rJV$9%P%0$r=$@5!#(B
+	* wl-folders-file $B$,(B newline $B$G=*$o$C$F$$$J$$$H!"(BSyntax error
+	  $B$K$J$k$N$r2sHr!#(B
+	  ($B;3LnM5;J(B <u90156@uis-inf.co.jp> $B$5$s$N8f;XE&$K4p$E$/=$@5(B)
+	* wl-draft-send-with-smtp $B$G(B user-mail-address $B$,@_Dj$5$l$F$$$J(B
+	  $B$1$l$P!"(Bwl-from $B$+$i%a!<%k%"%I%l%9$r<h$j=P$7$F;H$&$h$&$K$9$k!#(B
+	  ($B;3LnM5;J(B <u90156@uis-inf.co.jp> $B$5$s$N8f;XE&$K4p$E$/JQ99(B)
+
+1998-07-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.3.0 - "Human Nature" wl release.
+	* mmelmo backend $B$N<BAu!#(B
+	  SEMI $B$r;H$&>l9g$O(B 1.8.2 $B0J9_$G$J$$$HF0$+$J$$!#(B
+	* wl-mmelmo-display-message $B$r<BAu!#(B
+	  (wl-fetch-confirm-threshold $B0J>e$N%Q!<%H$r!"<h$j4s$;$:$KI=<((B)
+	* wl-insert-mail-followup-to $B$,(B nil $B$N$H$-$K$*$+$7$J$3$H$K$J$k(B
+	  $B%P%0$KBP=h(B
+	* semi-elmo-imap4.el -> mmelmo.el
+	* (wl-message-mail-p) $B$+(B (wl-message-news-p) $B$N;~$N$_(B wl-draft-send
+	  $B$9$k!#(B
+
+1998-06-28  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.2.2 - "Girls Just Want To Have Fun" wl release.
+	* imap4, localdir $B$N%"%$%3%s$N3($rJQ99(B(XEmacs)$B!#(B
+	* Folder $B0lMw$NI=<($r!"!XL$F14|%a%C%;!<%8?t(B/$BA4%a%C%;!<%8?t!Y$K$7$?!#(B
+	* [elmo] elmo-localdir-search $B$r<BAu!#(B
+	  (localdir $B$G$b(B pick by Body $B$,$G$-$k$h$&$K$J$C$?!#(B)
+
+1998-06-27  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* WL-ELS $B$r(B Makefile $B$+$i8F$V$h$&$K$9$k!#(B
+	* WL-ELS $B$K(B install $B$H(B uninstall $B$rDI2C$7$F$_$?!#(B
+
+1998-06-26  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* byte-compile $B$r9bB.$K9T$&$?$a$N(B WL-ELS$B!#(B
+	* $B%-%c%C%7%e%U%!%$%k$NFI$_=q$-$r!"(Bfile-coding-system-for-read
+	  $B$G$O$J$/(B {in|out}put-coding-system $B$G94B+!#(B
+	* Makefile $B$N(B bytecomp $B$N%3%^%s%I$r(B -batch $B$,:G=i$KMh$k$h$&$KJQ99!#(B
+
+1998-06-25  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* folder $B$N3+JD$r$9$3$7%9%`!<%9$KI=<($9$k$h$&$K$7$?!#(B
+	* draft, trash $B%U%)%k%@$K$OFCJL$J%"%$%3%s$r=P$9$h$&$K$7$?(B(XEmacs)$B!#(B
+
+1998-06-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* elmo-imap4-search $B$r<BAu!#(B
+	  Body $B$N8!:w$r%5!<%PB&$G9T$&(B(imap4 $B$G(B pick $B;~(B)$B!#(B
+	  $BF|K\8l8!:w$,!"F0$+$J$$!#(B
+
+1998-06-23  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.2.1 - "Freedom" wl release.
+	* wl-draft-insert-signature $B$+$i(B signature.el $B$N(B
+	  insert-signature $B$r8F$V(B (XEmacs $B%D!<%k%P!<MQ(B)$B!#(B
+	* wl-draft-normal-send-func $B$rJQ99$7!"%K%e!<%9$K$N$_Aw$k>l9g(B
+	  $B$G$b(B mail-send-hook $B$r(B run-hooks $B$9$k$h$&$K$7$?!#(B
+	  ($BDEM88x6G(B <tsumura@kuis.kyoto-u.ac.jp> $B$5$s$N8f;XE&$K4p$E$/JQ99(B)
+	* wl-organization $B$,(B non-nil $B$J$i(B Organization $B%U%#!<%k%I$r(B
+	  $BA^F~$9$k$h$&$K$7$?!#(B
+	  ($BDEM88x6G(B <tsumura@kuis.kyoto-u.ac.jp> $B$5$s$N8f;XE&$K4p$E$/JQ99(B)
+	* 00README.ja $B$K%a!<%j%s%0%j%9%H$N@bL@$rDI2C!#(B
+
+1998-06-22  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.2.0 - "Every Breath You Take" wl release.
+	* [elmo] nntp $B$G$b%5%$%:$rFI$`$h$&$K$9$k!#(B
+	* $B%W%j%U%'%C%A;~$b(B wl-fetch-confirm-threshold $B$r1[$($k$b$N$O(B
+	  $B<ALd$9$k$h$&$K$7$?!#(B
+	* SEMI-1.7.0 $B0J9_$G(B wl-message-redisplay $B$r!"?75,4X?t(B
+	  wl-semi-message-redisplay $B$K$9$jBX$($k$h$&$K$7$?!#(B
+	  $BogCM(B wl-fetch-confirm-threshold $B$r1[$($k%P%$%H?t!"(B
+	  $B$+$D!"%^%k%A%Q!<%H$G:G=i$N%Q!<%H$,(B text $B$N>l9g!"(B
+	  $B:G=i$N%Q!<%H$@$1$rI=<($G$-$k$h$&$K$7$F$_$?!#(B
+	* $BJQ?t(B wl-fetch-confirm-threshold $B$rDI2C!#(B
+	  $B$3$N%P%$%H?t0J>e$N%a%C%;!<%8$K$D$$$F$O!"(B
+	  $BFI$`$+$I$&$+<ALd$9$k$h$&$K$9$k!#(B
+
+1998-06-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B4X?t(B semi-elmo-imap4-read-first-part,
+	  $B%^%k%A%Q!<%H$N:G=i$N%Q!<%H$@$1$N(B raw-buffer $B$r$D$/$k!#(B
+	* $B4X?t(B semi-elmo-imap4-get-mime-entity,
+	  bodystructure $B$rFI$s$G!"(Bmime-parse-message $B$N=PNOAjEv$r:n$k!#(B
+	* [elmo] imap4 $B$G%5%$%:$rFI$`$h$&$K$9$k!#(B
+	* $B%U%!%$%k(B semi-elmo-imap4.el $B$r?75,DI2C!#(B
+
+1998-06-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.1.4 - "Dancing In The Dark"
+	* $BJQ?t(B wl-strict-diff-folders $B$rDI2C!#(B
+	  $B$3$NJQ?t$K@_Dj$5$l$?(B IMAP4 $B%U%)%k%@$?$A$O(B
+	  $BL$F14|%a%C%;!<%8?t$N%A%'%C%/$r87L)$K$d$k$h$&$K$7$?!#(B
+	  "%inbox" $B$J$I!"IQHK$KJQ99$5$l$k%U%)%k%@8~$1!#(B
+	* $B%"%/%;%97?%0%k!<%W%U%)%k%@$r:G=i$K3+$$$?$H$-$K!"(B
+	  $BA4%U%)%k%@$NL$FI?t$,=i4|2=$5$l$F$7$^$&%P%0$r2r>C!#(B
+	* [elmo] IMAP4 $B$G(B read-msg $B$N$?$S$K(B select folder $B$9$k$N$r(B
+	  $B$d$a$?(B(UW v10.224 $B$h$j8E$$(B imapd $B$@$HLdBj$"$k$+$b(B)$B!#(B
+	* Summary $B$N(B view $B$r(B cache $B$9$k$H$-$K!"$$$A$$$A1JB3E*%^!<%/(B
+	  $B$r%j%8%e!<%`$5$;$k$N$r$d$a$?!#(B
+
+1998-06-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 00README.ja $B$N$$$/$D$+$N4V0c$$$rD>$9!#(B
+	($B;3LnM5;J(B <u90156@uis-inf.co.jp> $B$5$s$h$j8f;XE&(B)
+
+1998-06-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.1.3 - "Centerfold" announced in elips, tm-ja.
+
+1998-06-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Summary $B$N(B resume-mark $B$H(B highlight $B$r0l2s$N(B scan $B$G(B
+	  $B=*$i$;$k$h$&$K$7$?!#(B
+
+1998-06-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Folder $B%U%!%$%k$K(B "%#mh /" $B$_$?$$$K=q$1$k$h$&$K$9$k!#(B
+	* $B%"%/%;%97?%0%k!<%W%U%)%k%@$N>l9g!"3+$/$^$GFbMF$r<h$j(B
+	  $B4s$;$J$$$h$&$K$9$k!#(B
+	* wl-use-full-window -> wl-stay-folder-window$B!#(B
+
+1998-06-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* toolbar $B$N(B refine$B!#(B
+	* folder-mode $B$NF0:n$r=$@5!#(B
+	* replicate->prefetch$B!#(B
+	* refile $B$N?dB,$G<+J,$r3X=,$NBP>]$+$i30$9!#(B
+	* make $B$r$$$C$Q$D$G!#(B
+
+1998-06-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $BJV;v$r=q$/;~!"(BCc $B$K<+J,$,;22C$7$F$$$k(B ML $B$H<+J,$,4^$^$l$F$7$^$&(B
+	  $B;~$K$O<+J,$O>C$9$h$&$K$9$k(B($B@5$7$$(B?)$B!#(B
+	* Mail-Followup-To, Mail-Reply-To $B$KBP1~$7$F$_$?!#(B
+
+1998-06-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-summary-insert-summary $B$r8+D>$7!"%9%l%C%I@8@.B.EY$r(B
+	  $B9bB.2=(B($BLs(B 1.5 $BG\(B)$B!#(B
+
+1998-06-07  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Summary $B$G(B News $B5-;v$r%-%c%s%;%k$9$k4X?t(B wl-summary-cancel-message
+	  $B$r?7@_!"(B'C' $B$K%P%$%s%I!#(B
+	* Newsgroups $B$,IU$$$F$$$l$P(B News $B$K$b%]%9%H$9$k$h$&$K$7$?(B($B$D$b$j(B)$B!#(B
+	* $B$[$+$N(B SEMI MUA $B$N$3$H$r9M$($F(B toolbar $B$rIU$1$k$N$r(B hook $B$G$O$J$/$9!#(B
+
+1998-06-02  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo] "/" $B$r4^$`(B Message-ID $B$r%U%!%$%k$K%;!<%V$9$k$N$K<:GT$9(B
+	  $B$k$N$r2sHr!#(B ("_" $B$KCV49$9$k$h$&$K$7$?$,$$$$$N$+!#(B)
+	* wl-summary-redisplay $B$G!"(Brecenter $B$9$k$h$&$K$7$?!#(B
+	* wl-summary-cursor-up $B$G!"(Bimportant-mark $B$r(B regexp-quote $B$9$k$N(B
+	  $BK:$l$F$?!#(B
+
+1998-05-31  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $BJQ?t(B wl-draft-folder $B$r@_CV!"(BMew $B$HF1$8$h$&$K!"(BDraft $B%b!<%I$G(B
+	  $B%;!<%V$9$k$H(B wl-draft-folder $B$G;XDj$5$l$?%U%)%k%@$K(B
+	  $B?75,%a%C%;!<%8$H$7$FJ]B8$9$k$h$&$K$7$?!#(B
+	* Summary $B$G(B TAB $B$r2!$9$HA0$KI=<($7$?%a%C%;!<%8$KLa$k$h$&$K$9$k!#(B
+	* Summary $B$G!"(Bdefault-directory $B$r(B wl-tmp-dir $B$K$9$k!#(B
+	* wl-draft-open-file $B$rDI2C!#(B
+
+1998-05-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.1.2 - "Beat It" internal release.
+	* CVS $B$r;H$$$O$8$a$k!#(B
+	* Summary $B$N(B highlight $B$r(B2$B!A(B3$BG\9bB.2=!#(B
+	* te@isl.ntt.co.jp $B$N8f0U8+$K$h$j(B Folder $B$G%P%C%AE*$K(B msgdb $B$r(B
+	  Sync $B$9$k(B "S" wl-folder-sync-current-entity $B$rDI2C!#(B
+
+1998-05-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B$d$C$FMh$kJV;v$O:G6a$N%a%C%;!<%8$KBP$9$k$b$N$,B?$$$H$$$&(B
+	  $B%9%l%C%IDI2C$N6I=j@-$rMxMQ$7$F$A$g$C$H$@$1%9%l%C%I@8@.$r9bB.2=!#(B
+	* qmail-inject $B$r%5%]!<%H!#(B
+	* $BCfESH>C<$K(B miee.el $B$r%5%]!<%H$7$F$$$?$,!"$H$j$"$($:$d$a$F!"(B
+	  default $B$O(B Semi-gnus $B$K$D$$$F$$$?(B smtp.el $B$rMxMQ$9$k$h$&$K$9$k!#(B
+
+1998-05-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Makefile $B$N(B ELMODIR $B$r(B elmo $B$K$9$k(B (Report by te@isl.ntt.co.jp)$B!#(B
+
+1998-05-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Tiny toolbars for XEmacsen$B!#(B
+	* important $B%^!<%/(B "$" $BIU$-$N%a%C%;!<%8$O!"(Bexpire $B$5$l$F$b>C$5$J$$(B.
+	* Summary $B$G(B "i" $B$r2!$9$H!"(Breplicate-unreplicated-msgs $B$r<B9T!#(B
+	* "U", "u", "N" $B%^!<%/$r?7@_!#(B
+	* Summary $B$G(B undo $B$r(B disable$B!#(B
+	* refile $B;~$K%U%!%$%k@h$r3P$($k(B wl-refile.el$B!#(B
+
+1998-05-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Copyright $BI=<($r3F%U%!%$%k$K2C$($k!#(B
+	* [elmo] mule2.3@19.28 $B$N%@%5$$(B string-match $B$G$b$&$4$/$h$&$K(B imap4 $B$G(B
+	  search all $B$N7k2L$r<h$j=P$9(B regexp $B$rJQ99!#(B
+	* empty-trash $B$N$H$-(B goto-folder $B$G(B 'force-update $B$9$k$h$&$K$7$?!#(B
+
+1998-05-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.1.1 - "Amanda". internal release.
+	* 00README.ja, sample.addresses, sample.folders$B!#(B
+	* wl-vars.el $B$N@0M}!#(B
+	* $B$O$d$j$K$N$C$F(B X-MimeOLE: $B$r2C$($k$h$&$K$7$F$_$?!#(B
+	* XEmacs $B$N(B 'dragdrop $B$KBP1~!#(Bwl-dnd.el
+
+1998-05-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-folder.el $B:F5"E*(B folder $B%Q!<%5!#(B
+
+1998-05-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Wanderlust $B$H$7$F%Q%C%1!<%82=(B (v0.1.0)$B!#JQ99$,B?$9$.$F5-O?$G$-$:!#(B
+	  (wl-draft.el/wl-address.el/wl-highlight.el $B$NDI2C(B,
+	   SEMI/tm $B$N(B API $B$X$NBP1~(B,
+	   mule2.3 $B$GF0$/$h$&$K$9$k(B, $BEy(B)
+
+1998-04-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* nntp $B$G(B $BB8:_$7$J$$%0%k!<%W$N(B max-of-folder $B$,$3$1$k%P%0$H$j!#(B
+
+1998-04-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* create-summary-line $B$G(B From $B$,(B nil $B$N>l9g$KBP=h!#(BDate $B$b!#(B
+	* folder-quit $B$G(B kill-buffer $B$K0z?tEO$9$NK:$l$F$?!#(B
+	* nntp $B$GF1$8%0%k!<%W$X$NA`:n$,B3$$$?>l9g$K$3$1$k%P%0$H$j!#(B
+	* Makefile $B$G(B lp.el $B$N0MB84X78$r=$@5(B (Report by te@isl.ntt.co.jp)$B!#(B
+
+1998-03-26  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.09
+	* Summary $B$NJ8;z2=$1$r2r>C!"$G$b(B mule2.3 $B$G$&$4$+$J$/$J$C$?!#(B
+	* update $B$7$?$H$-!"8:$C$?%a%C%;!<%8$,%P%C%U%!$+$i>C$($J$$%P%0$r$H$k!#(B
+	* v0.08
+	* IMAP4 $B$KBP1~!#(B
+
+1998-03-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* folder diff $B$r(B integer list $B$NHf3S$K5"Ce$5$;$k$3$H$K$h$j9bB.2=!#(B
+
+1998-03-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.07
+	* Mule-2.3 $B$KBP1~!#(B
+	* update $B$H(B scan-all $B$rE}9g!#(B
+	* $B$"$H$G8+D>$7$?$$%a%C%;!<%8$K$D$1$k%^!<%/!"(B"$" -- important mark $B$r(B
+	  $B?7@_!#(B
+	* update $B$,I,MW$+$I$&$+$N%A%'%C%/$r(B list $B$NHf3S$K5"Ce$5$;$F9bB.2=!#(B
+	* $B%$%s%G%C%/%9$N%-%c%C%7%eMQ$K(B buffer-local-variable $B$r@_$1!"(B
+	  $BF1$8%P%C%U%!$KBP$9$k#22sL\0J9_$N99?7A`:n$r9bB.2=!#(B
+	* mt $B$G8=:_$N%9%l%C%I$K0l3g(B "*" $B%^!<%/!#(B
+	* c $B$GA4$F$N%a%C%;!<%8$r0l3g$7$F4{FI$K!#(B
+
+1998-03-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.06
+	* $BI=<(I}$r0lDj$K$9$k!#(B
+	* update $B$r7Z$/$9$k!#(B
+	* $B%a%C%;!<%8$,8:$C$?$3$H$b(B update$B!#(B
+	* cache $B%$%s%5!<%H;~$K%^!<%/$r%j%8%e!<%`!#(B
+	* font-lock $B$N(B regexp $B$rJQ99!#(B
+
+1998-03-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.05
+	* $BL$FI%^!<%/!"(B"!"$B!#(B
+	* update scan$B!#(B
+	* font-lock$B!#(B		
+	* $BMKF|$N1Q8l(B/$BF|K\8l@ZBX$($r2DG=$K!#(B
+	* Petname$B!#(B
+
+1998-03-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.04
+	* $BMKF|$rF|K\8l$GI=<(!#(B
+	* $B%U%#!<%k%ICM$N3MF@$K<:GT$7$J$$$h$&$K(B overview $B:n@.;~$N(B
+	  coding-system-for-read $B$r(B 'junet $B$K94B+!#(B
+
+1998-03-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.03
+	* $B%$%s%G%C%/%9$N(B elisp $B%*%V%8%'%/%H2=$K$h$j9bB.2=!#(B
+	* Date $B$r=P$9(B
+	* $BF1$8%9%l%C%I$G$b!"0c$&(B Subject $B$J$iI=<((B
+
+1998-03-06  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.02
+	* $B%9%l%C%I$N4V0c$$$rD>$9(B
+	* indent-level $B$r%+%9%?%^%$%:$G$-$k$h$&$K$9$k!#(B
+
+1998-03-05  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* v0.01 Summary $B$r%9%l%C%II=<($G$-$k$@$1$N%W%m%H%?%$%W!#(B
+
diff --git a/etc/ChangeLog.2 b/etc/ChangeLog.2
new file mode 100644
index 0000000..b6d749c
--- /dev/null
+++ b/etc/ChangeLog.2
@@ -0,0 +1,1608 @@
+1999-05-18  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* New File: [ChangeLog.en].
+
+1999-05-18  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	mouse-2 does not work in Message buffer.
+
+1999-05-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.0.0 pre2 - "Kokomo-pre2".
+	* Fix:
+	region of hilighting varies when the number of unread messages is
+	decreased.
+	(pointed out by Toshihiko Koadama
+		<kodama@ayame.mfd.cs.fujitsu.co.jp>).
+	* Change:
+	C-cC-s in draft and keybind of menubar is set as local-set-key in
+	each draft bufer.
+	* Fix:
+	wl-summary-mark-as-read-all does not work well when target
+	messages is hidden in close threads.
+	(pointed out by Hajime Ohsawa <ohsawa@mxq.mesh.ne.jp>).
+
+1999-05-18  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	insert mail body into a different position from position specified
+	by wl-draft-prepared-config-alist in wl-summary-reply-with-citation.
+
+1999-05-17  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Change: [bbdb-wl.el].
+	corresponding to change from wl-folder-exit-hook to wl-exit-hook.
+
+1999-05-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* pre 1.0.0 - "Kokomo-pre".
+	* Change:
+	not use replace-match().
+
+1999-05-17  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Add: [wl-ja.texi]
+	about POP-before-SMTP.
+	* Change:
+	corresponding to POP-before-SMTP.
+
+1999-05-17  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change:
+	add elmo-multi-get-msg-filename().
+	* Change:
+	wl-message-refer-article-or-url() corresponds to "mailto:".
+
+1999-05-17  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not change wl-folder-buffer-cur-{path|entity-id}, when
+	wl-summary-goto-folder is executed at interactive.
+	* Change:
+	not expire when, 2nd and 3rd elements of wl-expire-alist is nil.
+
+1999-05-17  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Add: [wl-ja.texi]
+	about AUTHINFO.
+
+1999-05-17  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	hilighting at a line pointed by a mouse.
+
+1999-05-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	remove BETA.
+	* Fix:
+	toobar is not available at Folders on XEmacs.
+	* Fix:
+	merging partial does not work well when Subjects are written in
+	Japanese.
+	* 0.10.3 - "Jumpin' Jack Flash".
+
+1999-05-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	not consider WL_PREFIX, ELMO_PREFIX when doing "make uninstall".
+	* Change:
+	not use (point-at-bol), (point-at-eol) for Mule2.3.
+	* Change:
+	wl-folder-exit-hook -> wl-exit-hook$B!#(B
+	* Change:
+	rename wl-folder-exit -> wl-exit$B!#(B
+	* Change:
+	update ja.Emacs.
+	* Add: [wl-ja.texi]
+	about wl-summary-print-message.
+
+1999-05-16  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not delete a message buffer when there are no unread messages,
+	even if wl-auto-select-first is t.
+
+1999-05-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Add: [wl-ja.texi]
+	about highlight$B!"(Binternal Folder.
+	* Change:
+	defvars in wl-highlight move into wl-vars, and is set as defcustom.
+	* Fix:
+	error happens when selecting nntp Folder in unplugged.
+	(pointed out by MARUYAMA Yoshio <maru@kthree.co.jp>).
+	* Fix:
+	some inconvinience related to Stick Summary happen when
+	wl-stay-folder-window is t.
+	* Change:
+	hilighting a line pointed by a mouse on Summary from begging of
+	line to end.
+	* Change:
+	change an order of initizalization and messages in wl-init.
+	not check existence of basic Folder with prefix-arg.
+	* Change:
+	save view cache when exiting Sticky Summary.
+
+1999-05-14  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	not call wl-mail-setup-hook when doing wl-summary-reedit().
+
+1999-05-14  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	modificaton of wl-summary-next-folder-or-exit() is not considered
+	in case that wl-auto-select-first is t.
+	* Change:
+	change of move command is enable when wl-summary-next-no-unread is
+	t.
+
+1999-05-14  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Add: [wl-ja.texi]
+	about wl-draft-write-current-newsgroup.
+
+1999-05-13  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Change:
+	hilight mouse-face without useing mode-motion-hook.
+	* Change:
+	add wl-version-show.
+
+1999-05-13  Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>
+
+	* Add: [wl-ja.texi]
+	about Sticky Summary.
+
+1999-05-13  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	select an unexpected window after doing wl-summary-forward at a
+	Folder wl-summary-stick does.
+
+1999-05-13  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	do wl-template without using recursive-edit.
+
+1999-05-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	add 'x-face as a sub function of wl-draft-config-alist.
+	* Change: [wl-template]
+	hilight select buffer.
+
+1999-05-13  Mito <mit@nines.nec.co.jp>
+
+	* Change:
+	do (wl-summary-toggle-disp-msg 'off) in
+	wl-summary-next-folder-or-exit() in order to avoid the event that
+	previous message is displayed when moveing to other folders.
+	* Fix:
+	error happens when calling wl-summary-toggle-disp-msg() if its arg
+	is off.
+
+1999-05-13  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	error happens when NNTP Folder is updated by
+	wl-folder-update-recursive-current-entity.
+
+1999-05-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	caching does not work in pop3 and imap4, nntp when
+	elmo-*-use-cache is nil.
+	(pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>).
+
+1999-05-12  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	not read messages in localnews.
+	args of elmo-localnews-local-file-p() is not enough.
+
+1999-05-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 0.10.2 - "I'm Your Man".
+
+1999-05-12  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Add: [wl-ja.texi]
+	about some commands.
+
+1999-05-12  Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>
+
+	* Add: [sample.dot.wl]
+	about auto-refile configuration.
+	* Add: [wl-ja.texi]
+	about wl-summary-auto-refile-skip-marks.
+
+1999-05-12  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	checking newsgroups with upper case letters fails.
+
+1999-05-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	read message is not cached in localdir.
+	* New Variables: wl-ps-print-buffer-func.
+	assign a function in ps-print.
+	default is  'ps-print-buffer-with-faces.
+	(requested by Mito <mit@nines.nec.co.jp>).
+	* Change:
+	display an error message if same name exists between group and
+	petname when analyzing .folders.
+
+1999-05-11  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	update sample.dot.wl.
+	* Fix:
+	description about access group and so on.
+
+1999-05-11  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	when messages targeted for "$" in filter Folder are local files,
+	they are marked but not cached.
+
+1999-05-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	implement partial unification functions for tm.
+	* Fix:
+	wl-defface does not work on Nemacs.
+	* Change:
+	speed up wl-summary-exec.
+	* Fix:
+	not assign 'D' on Summary.
+	* Fix:
+	when deleting messages in imap4, the case they are not deleted
+	from msgdb exists in some thread circumstances.
+	* Change:
+	do (sit-for 0) in order to display results at once in
+	wl-folder-check-one-entity.
+	* Change:
+	wl-message-redisplay-hook is unwind-protected in order to make
+	a cursor position a return to Summary when doing C-g at a prompt
+	like bbdb.
+
+1999-05-10  Tomokazu Matsumaru <matty@tamtam.co.jp>
+
+	* Fix:
+	hang up POP3 Folder with a lot of messages.
+
+1999-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New Variable: wl-folder-sync-range-alist, wl-default-sync-range.
+	change default of sync in each folder is enable.
+	(requested by Toshihiro KAMISHIMA <kamisima@etl.go.jp>).
+	* Fix:
+	"make" command fails on Mule 2.3.
+	(pointed out by Toshihiko Koadama
+		<kodama@ayame.mfd.cs.fujitsu.co.jp>).
+	* Fix:
+	display letters in an unexpected code because wl-vars.el is
+	written by EUC.
+	(pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>).
+	* 0.10.1 - "Harlem Shuffle".
+
+1999-05-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: (maybe)
+	make current Folder strange when doing C-g while select-folder in
+	imap4.
+	(pointed by Mizuhara <mizuhara@acm.org>).
+	* New Variable: elmo-archive-use-cache$B!"(Belmo-nntp-use-cache,
+			elmo-imap4-use-cache$B!"(Belmo-pop3-use-cache.
+	determine each read message to cache or not
+	* Change:
+	do away with wl-no-cache-folder-list.
+	* Change:
+	cache is enable at once after marking as important-mark.
+
+1999-05-08  Koichiro Ohba <koichiro@ca.mbn.or.jp>
+
+	* Change: [wl-ja.texi]
+	typo and so on.
+
+1999-05-08  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: [wl-ja.texi]
+	typo and so on.
+
+1999-05-05  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	a cursor does not return to Summary from message buffer after
+	wl-message-prev-page() in the case that ^L is used for starting a
+	new page.
+	* Change:
+	do rename-file() for *.elc files when doing "make install".
+	* Change:
+	because mode-motion-hook is particular for XEmacs, delete error
+	messages when it is byte-compiled on GNU Emacs.
+
+1999-05-05  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	errors happens in wl-summary-refile-region,
+	wl-summary-copy-region, wl-thread-refile,  wl-thread-copy.
+
+1999-05-05  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix: [elmo-{nntp|imap4|pop3}.el]
+	case-fold-search is not enable in target buffer.
+
+1999-05-04  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	variables of wl-draft-config-alist are not enable when
+	wl-draft-send is aborted once and retried.
+
+1999-05-01  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Change:
+	in NNTP Folder enable to read newsgroup having top categories
+	whose initials are numeral.
+
+1999-04-30  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* New Function: wl-defface.
+	define face as portable.
+
+1999-04-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	duplicate a name part of folder when re-editing drafts on edit
+	from Summary.
+	(pointed out by OKAZAKI Tetsurou <okazaki@be.to>).
+	* Fix:
+	asking where to jump when doing s->rescan in empty Folder occurs.
+	(pointed out by OKAZAKI Tetsurou <okazaki@be.to>).
+	* Change: [bbdb-wl]
+	add (require 'wl).
+	* Fix:
+	asking where to jump when doing wl-thread-open-close at a message
+	with no children and no parents of threads.
+	* New Commands: wl-summary-drop-unsync,
+		       wl-folder-drop-unsync-current-entity.
+	make all not synchronous messages no existence.
+	assing as 'D'.
+
+1999-04-28  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* New Variable: wl-draft-prepared-config-alist.
+	extend some functions in wl-draft-config-alist.
+	* New File: [wl-template].
+	new feature to select or insert template on draft buffer.
+
+1999-04-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	use wl-draft-mode-map except excepting Nemacs.
+	(advised by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-04-13  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	case-fold-search on Summery buffer is always treated as nil.
+	* Fix:
+	return value when elmo-nntp-open-connection fails is different
+	from it written in docstring.
+
+1999-04-28  Mito <mit@nines.nec.co.jp>
+
+	* Fix:
+	mail send command fails when wl-draft-buffer-cur-summary-buffer is
+	#<killed buffer>.
+
+1999-04-27  Mito <mit@nines.nec.co.jp>
+
+	* Change:
+	execute confirmation when printing out by '#' on Summary.
+
+1999-04-27  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	wl-summary-refile-region works wrong.
+
+1999-04-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	not work on Nemacs.
+	* Fix:
+	problems happen when custom does not exist.
+	* Fix:
+	merge forgotten patches (including modification for POP3 hang-up
+	problem).
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* 0.10.0 - "Got My Mind Set On You".
+	* Fix:
+	localnews is not treated as local in wl-summary-local-p.
+	(reported by Kentaro Toda <ktoda@v7.com>)
+
+1999-04-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	implement each backend function of elmo-internal.el.
+	* Fix:
+	modify (get-buffer wl-summary-buffer-name) all over for
+	correspondence to Sticky Summary.
+	* New command: wl-summary-stick.
+	change present summary to be sticky.
+	assign it as \M-s.
+
+1999-04-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	rewrite partial unification functions for SEMI.
+	* Change: [bbdb-wl].
+	corresponding to Sticky Summary.
+	* Fix:
+	wl-default-draft-cite works wrong.
+	(set a wrong citation title when a cursor on Summary get out of
+	position.)
+
+1999-04-23  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	jump to right message-id by clicking center of left message-id
+	when body has two message-id at one line.
+
+1999-04-23 Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	error happens if it is empty when doing wl-thread-{copy,refile} at
+	end of line on wl-summary mode.
+
+1999-04-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	moves to Sticky Summary when moving to Folder with prefix arg.
+	(former "wl-folder-goto-folder$B!"(Bwl-summary-goto-folder" changes to
+	wl-folder-goto-folder-subr$B!"(Bwl-summary-goto-folder-subr
+	respectively.)
+	* Change:
+	not re-highlight on draft-buffer by "^L" when
+	wl-highlight-body-too is nil.
+	(modified by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* Change:
+	Sticky Summary.
+	(requested by Mito <mit@nines.nec.co.jp>).
+	* Change:
+	mmelmo-imap4 succeeds to mmelmo.
+
+1999-04-21  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	some bugs in wl-folder-close-parent-entity.
+	* Change:
+	extend functions of wl-thread-open-close in order to close its
+	parents when having no children.
+	* Change:
+	wl-folder-close-parent-entity -> wl-folder-open-close.
+	* Change:
+	assign wl-folder-open-close as "/".
+
+1999-04-21  Mito <mit@nines.nec.co.jp>
+
+	* Change:
+	expand nested aliases.
+
+1999-04-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	not set cursor at a first message in wl-summary-goto-folder when
+	wl-summary-move-order is 'new and the message is marked as "$" and
+	no marks excepting "$" exists in Folder.
+	* Fix:
+	doing wl-summary-cursor-down twice(!) in wl-summary-goto-folder.
+
+1999-04-21  Kazuyuki IENAGA <ienaga@jsys.co.jp>
+
+	* corresponding to custom.
+
+1999-04-21  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not enable to get get information of folders with host name in the
+	case that server append extra messages to response against group
+	commands, ex. leafnode.
+
+1999-04-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* New File: [elmo-internal.el].
+	Folder for browsing internal data.
+
+1999-04-19  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* New Variable: wl-draft-highlight-and-recenter.
+	recenter after hilighting by C-l on draft.
+	* Fix: [elmo-nntp.el].
+	args of elmo-nntp-search are wrong.
+
+1999-04-19  Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>
+
+	* Change:
+	enable to specify port number in folder definition of nntp.
+
+1999-04-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	delete keybind \M-O (wl-summary-copy-prev-destination) to avoid
+	the problems as to a cursor on vt-100.
+	(pointed out by SUGANO KEI <siesta@mvd.biglobe.ne.jp>,
+	 advised by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* Fix:
+	each message number is always set as 0 when the number of messages
+	is beyond 6 digits.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+
+1999-04-19  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	not display additional messages on offline when visiting
+	destination Folder after doing offline refile/copy.
+	* Change:
+	execute processing of unread messages on offline.
+
+1999-04-19  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Change:
+	delete keybind \M-O in Summary.
+
+1999-04-17  Koichiro Ohba <koichiro@ca.mbn.or.jp>
+
+	* Add: [wl-ja.texi].
+	about wl-summary-auto-refile.
+	* Add: [wl-ja.texi].
+	about wl-summary-auto-refile.
+	* Change: [sample.dot.wl].
+	disable to add Mail-Followup-To and Mail-Reply-To by itself.
+
+1999-04-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	changes mode of draft buffer to wl-draft-mode that mail-mode
+	derived.
+	(advised by Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>)
+	* New Variable: [WL-ELS] WL_PREFIX$B!"(BELMO_PREFIX.
+	install wl and elmo modules using each values as relative
+	directory from ELISPDIR.
+	default is "".
+	(advised by Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>).
+	* Fix:
+	when *.elc files compiled by other meacs exists, "make clean" does
+	not work on other emacs because of loading WL-ELS.
+	* Fix:
+	POP hangs up when multiple messages exist.
+	(reported by Ishikawa Ichiro <ichiro@mail.ne.jp>).
+
+1999-04-13  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: [elmo-nntp.el].
+	about typo in docstring.
+
+1999-04-12  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	all bodies change to signature-face when re-edting by "E" summary
+	buffer.
+	* Change:
+	hilight at a line pointed by mouse in summary mode and folder mode
+	on XEmacs only.
+
+1999-04-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	when on draft a line begins from TAB and the next field is empty
+	bug to delete the line happens.
+	(pointed put by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* Fix:
+	buffer displaying in wrong code remains when doing C-g at once
+	after typing 'q' on Summary.
+	(pointed out by Abe <take@gohome.org>).
+	* Fix:
+	pick up Japanese Subject fails on XEmacs.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* Add: [ChangeLog].
+	forget to add a modification against the problem
+	elmo-nntp-get-folders-info hangs up on 4/2.
+	(pointed out by Nakagawa Makoto <nakagawa@pochi.tis.co.jp>).
+	* 0.9.8 - "Faith".
+
+1999-04-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* New Variable: elmo-msgid-replace-string-alist.
+	define rules of conversion from message-id to cache file name.
+
+1999-04-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix: [elmo-imap4.el].
+	LOGIN certification fails when password includes brank space.
+	(reported by Tadashi KUMANO <kumano@strl.nhk.or.jp>).
+
+1999-04-07  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Change:
+	[NNTP] corresponding to AUTHINFO.
+
+1999-04-07  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	re-load by C-u even if caches exist.
+	* Change:
+	enable to start up by C-g even if network is not connected when
+	initializing.
+
+1999-04-06 SHIMADA Mitsunobu <simm-wl@fan.gr.jp>
+
+	* Fix:
+	the bugs to fail to delete or refile mails in Maildir occur.
+
+1999-04-03 OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: [wl-ja.texi].
+	description about default value of
+	wl-insert-mail-(followup|reply)-to is wrong.
+
+1999-04-02  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* New Variable: elmo-nntp-get-folders-securely.
+	when non-nil, modification to avoid elmo-nntp-get-folders-info not
+	returing is enable.
+	default is nil.
+
+1999-04-02  Nakagawa Makoto  <nakagawa@pochi.tis.co.jp>
+
+	* Fix:
+	the bug that elmo-nntp-get-folders-info does not return and hangs
+	up occurs on cnews(?).
+
+1999-03-31  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	change petname-alist to obarray.
+	* New Variable: wl-summary-divide-thread-when-subject-changed.
+	makes thread when subject changes if it is t.
+	(requested by akira yamada <akira@arika.org>).
+	* New Variable: wl-summary-subject-filter-func.
+	assign a function to process before comparison with subjects.
+	* Change:
+	not funcall wl-summary-from-func and wl-summary-subject-func,
+	wl-summary-subject-filter-func and fset them at startup.
+	* Change:
+	change wl-draft-config-exec-flag to buffer local variable.
+	* Fix:
+	error happens by M->j->q on Summary.
+	(pointed out by Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>).
+	* Change:
+	default of face for signature is set as colorful fonts.
+
+1999-03-30  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Change:
+	disable to do 'd' at an empty line.
+	* Fix:
+	if there are multiple articles with target message-id in same
+	folder, elmo-imap4-delete-msg-by-id fails when doing
+	elmo-dop-queue-flush after deleting one of messages.
+
+1999-03-29  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Change:
+	detect signature region wiser.
+	* Change:
+	hilight signature.
+
+1999-03-26  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	summary is wrongly displayed when doing goto-folder to present
+	(same) folder.
+	(pointed out by OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>).
+	* New Variable: wl-draft-clone-local-variable-regexp.
+	default is "^mime".
+	copy values of local variables matching its value to sending
+	buffer.
+
+1999-03-26  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* New Command: wl-summary-write-current-newsgroup.
+	do completiton of Newsgroup: field and prepare draft buffer when
+	posting messages to the current-folder newsgroup in Summary
+	mode.
+	assign 'W'.
+
+1999-03-25  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* Fix:
+	not call wl-mail-setup-hook in wl-summary-forward().
+
+1999-03-25  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	merge MURATA's patch that lambda expression is available in
+	wl-draft-config-alist.
+
+1999-03-25  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not decode file created by only one message in
+	wl-summary-temp-mark-uudecode.
+
+1999-03-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	not send messages when default-case-fold-search is nil.
+	(pointed out by Kenji Kuzuhara <kuz@post1.com>).
+
+1999-03-24  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* New Command: wl-folder-close-parent-entity.
+	assign M-SPC.
+	* New Variable: wl-draft-config-exec-flag.
+	execute wl-draft-config-exec only once.
+
+1999-03-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix: [im-wl.el] (again).
+	message-id is wrongly added when wl-insert-message-id is nil.
+	(pointed out by Ishikawa Ichiro <ichiro@mail.ne.jp>).
+	* Fix: (again)
+	warning messages appear on xemacs with (featurep 'xpm) and -nw
+	option when startup.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+
+1999-03-18  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Add: [wl-ja.texi].
+	about completion.
+	* Change:
+	when doing completion of headers like "To:" or "Cc:" in draft
+	completion from lower case letters is enable.
+
+1999-03-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.7 - "Everything She Wants".
+	* Fix:
+	abort creating msgdb when there are some messages with strange
+	date in multi Folder.
+
+1999-03-17  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Add:
+	a function to edit petname interactively.
+
+1999-03-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	can do nothing in present folder when aborting to refile messages
+	to non-existent IMAP folder.
+	(pointed out by Abe <take@gohome.org>).
+	* Change:
+	dot distinguish between groups and normal Folders in
+	wl-folder-next-unsync.
+	* Fix:
+	messages is incomplete when doing syncing by toolbar button on
+	XEmacs.
+
+1999-03-12  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* Fix: [00README].
+
+1999-03-12  Masato Taruishi <taru@debian.or.jp>
+
+	* Add: [00README].
+
+1999-03-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	if a partial failure occurs in refile or copy, it does not affect
+	the whole action.
+	* Change: [wl-ja.texi].
+	change construction of each section to be obvious in using pTeX.
+	(pointed out by Morifuji <hajime@morito.org>)
+
+1999-03-09 Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* Change:
+	fix confusing problem that cursor moving to end of buffer while
+	doing refile.
+
+1999-03-06 Ishikawa Ichiro  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* Fix: [im-wl.el].
+	message-id is wrongly added when wl-insert-message-id is nil.
+
+1999-03-04 Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* Change: [tm-wl.el].
+	not use (fset 'mime-preview/x-face-function-use-highlight-headers
+	nil) in tm-wl-setup.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* New Command: wl-summary-refile-prev-destination.
+	assign 'M-o'.
+	(requested by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* New Command: wl-summary-copy-prev-destination.
+	assign 'M-O'.
+
+1999-03-05  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	'\n' is wrongly inserted into User-Agent: when using tm.
+	* Change:
+	corresponding to subject like [???, 0000].
+
+1999-03-04  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	warning messages appear on xemacs with (featurep 'xpm) and -nw
+	option when startup.
+	* New Variable: wl-auto-insert-x-face.
+	default is t.
+	* Change:
+	when wl-auto-insert-x-face is t and ~/.xface exists it is
+	automatically inserted. (as usual, default)
+	* Change:
+	insertion of X-Face: by wl-draft-insert-x-face-field is enable
+	when making draft.
+	* Change:
+	error messages are displayed if ~/.xface does not exist when doing
+	C-c C-a.
+
+1999-03-03  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* New Hook: hook wl-summary-refile-hook.
+
+1999-03-03  Hajime MORITO  <hajime@morito.org>
+
+	* Change: [wl-ja.texi].
+	remove errors in using ptex.
+	* Fix: [wl-ja.texi].
+	not display '{','}'.
+
+1999-03-03  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.6 - "Dirty Diana".
+	* Change:
+	[elmo] avoid the problem that expiring cache is disable when there
+	is a strange  cache file.
+	* New Variable: wl-summary-auto-refile-skip-marks.
+	unread messages is not target of auto-refile.
+	(requested by Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>).
+	* Fix:
+	set extra(!) unread flag when displaying messages in imap4
+	* Change: [wl-ja.texi].
+	delete about wl-summary-wday-use-japanese.
+	add about wl-summary-weekday-name-lang.
+	(pointed out by Kunihiro Ishiguro <kunihiro@zebra.org>).
+	* Add: [wl-ja.texi].
+	about wl-summary-fix-timezone.
+	(pointed out by Iba <iba+@andrew.cmu.edu>).
+
+1999-03-01  Hermit-chan <hermit@tomato.saino.ne.jp>
+
+	* Fix:
+	errors happen if M-x wl-draft is done before M-x wl when
+	wl-draft-folder is configured.
+
+1999-03-01  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* Fix: [wl-highlight.el, ChangeLog].
+	typo.
+
+1999-03-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	not distinguish between all events excepting XEmacs key in
+	wl-ask-folder.
+
+1999-02-28  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	extend expression of wl-draft-config-alist.
+
+1999-02-26  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Change: [wl-refile.el].
+	do downcase in getting extra-field.
+	* Change: [wl-refile.el].
+	delete unnecessary variables.
+
+1999-02-26  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix:
+	menues of Summary
+
+1999-02-25  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	fail to check unread messages in filter Folder.
+
+1999-02-10  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change:
+	avoid font-lock being enable in draft.
+
+1999-02-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.9.5 - "California Girls".
+
+1999-02-25  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	not display minus number and do synchronization when
+	wl-folder-notify-deleted is 'sync.
+
+1999-02-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* New Variable: wl-folder-notify-deleted.
+	display minus number when messages are deleted.
+	default is nil.
+	* Change:
+	execute wl-summary-auto-refile by default in closing threads.
+	execute it in opening all threads if with Prefix argument.
+	* New Variable: wl-x-face-file.
+	default is  "~/.xface".
+
+1999-02-16  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* New Variables: elmo-passwd-alist-{load,save}.
+	load/save password from/to file configured by new variable
+	elmo-passwd-alist-file-name.
+
+1999-02-11  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* Add: [wl-ja.texi].
+	about "~/.xface".
+
+1999-02-06  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Change:
+	concatinate "\n" firstly before insert header by
+	wl-draft-replace-field.
+
+1999-02-06  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Change:
+	in imap unread information is reported to destination of copy.
+
+1999-02-05  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* New Variable: wl-highlight-refile-destination-face.
+	face for destination of refile.
+	* Fix: [wl-ja.texi].
+	about '$'.
+	(advised by GOTO <pf21@pure.cpdc.canon.co.jp>)
+
+1999-02-04  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Fix:
+	hilighting is wrong after checking unread messages in folders on
+	XEmacs.
+
+1999-02-03  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* New Variable: wl-folder-prefetch-entity.
+	assign 'I'.
+
+1999-02-03  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* Change: [sample.dot.wl].
+	function to refer folder name in my-wl-summary-from-func-petname
+	is called in summary-mode only.
+
+1999-02-03  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* New Functions: wl-summary-auto-refile, wl-refile-rule-alist.
+
+1999-02-02  IMAI Takeshi <imai@ed2.com1.fc.nec.co.jp>
+
+	* Fix:
+	errors happen when doing refile to imap folder in wl-expire.
+
+1999-01-29  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* Change:
+	do widen when views in Summary mode is saved into cache.
+
+1999-01-22  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	extend wl-auto-check-folder-name.
+
+1999-01-19  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	update summary information before doing expire in folder mode.
+	* Fix:
+	errors happen because of omission of reserve-marked-msg when no
+	messages to expire exist.
+	* Change:
+	give consideration to year change in elmo-datevec-substitute.
+
+1999-01-19  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* New Variables: wl-auto-uncheck-folder-list,
+			 wl-auto-check-folder-list.
+	skip checking group when startup.
+	checking archive folders is skipped by default.
+	(requested by Akihiro Motoki <motoki@ptl.abk.nec.co.jp>).
+	* Fix: [elmo-nntp.el].
+	getting message-id from server does not work well.
+
+1999-01-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Add: [wl-ja.texi].
+	about mA, mf and so on.
+	* Change:
+	not jump to groups having no unread messages in
+	wl-folder-{prev,next}-unread. (if with Prefix ARG, jumps).
+	(pointed out by Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>).
+	* Change:
+	avoid errors when no folders exist in wl-folder-check-entity.
+	(pointed out by Ishikawa Ichiro <ichiro@mail.ne.jp>).
+
+1999-01-16  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* New Variable: wl-summary-temp-mark-uudecode.
+	* Change: [wl-ja.texi].
+	about @item->@defvar.
+
+1999-01-15  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	errors happen because of doing reference to non-existent
+	property when non-existent folders in ~/.foders is specified in
+	wl-{folder|summary}-goto-folder.
+
+1999-01-15  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Change: [elmo-archive.el].
+	check footer in header-regexp.
+	* CHange: [elmo-archive.el].
+	make compression rate of rar high.
+
+1999-01-15  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	wl-expire does not work on Emacs based on 19.28.
+	* Fix: [wl-fldmgr.el].
+	wl-fldmgr-add does not work on Emacs-19.
+
+1999-01-14  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not create hierarchical structure of access groups on Emacs-19 or
+	before.
+	* Fix: [wl-fldmgr.el].
+	errors happen when inserting folder into empty folder.
+	* Change: [wl-expire.el].
+	stop process in displaying error when calling elmo fails.
+
+1999-01-14  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	implement wl-summary-temp-mark-prefetch, which does not work well,
+	again.
+	(pointed out by Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>).
+	* Fix:
+	a subject of mail prepared in draft buffer is displayed in way of
+	including ESC code when trying to reply mails with Japanese
+	subject on Meadow.
+	(pointed out by Koji IIDA <iida@isl.ntt.co.jp>).
+
+1999-01-13  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Change:
+	LHA archive is enable on Windows.
+
+1999-01-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.4 - "Broken Wings".
+	* Fix:
+	not load information of all folders when both
+	wl-folder-init-no-load-access-folders and
+	wl-folder-init-load-access-folders are nil.
+	* Fix:
+	fetch errors happen when visiting to same folder after leaving
+	from multi folder in NNTP.
+
+1999-01-13  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	change wl-folder-entity-alist and wl-folder-entity-id-name-alist
+	to obarray (hashtable).
+	* Change:
+	merge wl-folder-entity-alist and elmo-folder-info-alist.
+	* Change:
+	fasten display update when checking.
+	abolish variable wl-folder-check-fast.
+	* Change:
+	definition of folder of access group loaded in initialization is
+	enable.
+	* Change:
+	getting lists of access group in hierarchical structure is enable.
+	* Change:
+	change mark of unsubscribe folders to '#'.
+	* Change:
+	display elapse time in case that processing of operations in
+	folder mode take a lot of time.
+
+1999-01-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	make wl-tmp-dir if it does not exist.
+	(pointed out by Tadashi Kadowaki <kadowaki@stat.phys.titech.ac.jp>).
+	* Change:
+	make wl-queue-folder when startup if it does not exist.
+
+1999-01-12  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	xpm is not in center in wl-demo in case that window-width is 100,
+	for example.
+
+1999-01-12  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Change: [elmo-archive.el].
+	add parameter of rar and fix for windows-nt.
+
+1999-01-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change: [elmo-nntp.el].
+	display all newsgroups by "-/".
+	(pointed out by Ichiro Ishikawa <ichiro@mail.ne.jp>).
+	(notes: this chenge is overwritten by MURATA's patch on 1999-1-13).
+	* Fix:
+	behaviour in filter folder at unplugged is wrong.
+	* Add:
+	'mA' (reply with multiple citation to messages with temporary mark).
+	'mf' (multiple forward messages with temporary mark).
+	  ($BKLL\$5$s(B <kitame@northeye.org> $B$N8fMWK>$K4p$E$/(B)$B!#(B
+	* Fix:
+	cache is not saved when leaving from Summary after being at
+	unplugged.
+	* Change: [elmo-nntp.el].
+	corresponding to Cancel-Lock.
+
+1999-01-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change: [wl-dnd.el].
+	adjust it to API on XEmacs21.2.8.
+
+1999-01-08  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not include parent folders in elmo-localdir-list-folders-subr.
+
+1999-01-06  Ken'ichi OKADA <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* New Hook: wl-highlight-message-hook.
+
+1999-01-05  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: [elmo-util.el].
+	specification of elmo-default-imap4-server in a form such as
+	"hoge%imap_server@gw" is enable.
+
+1999-01-05  Hironori Fukuchi <nory@valis.co.jp>
+
+	* Fix:
+	sending process fails though the message "sending...done" is
+	displayed in minibuffer when non-existent address is written in To
+	field.
+
+1999-01-03  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	To: field is always set as nil because of type in
+	wl-draft-edit-string.
+
+1998-12-31  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	wrongly duplicate parent folder having sub directory in
+	elmo-localdir-list-folders-subr.
+	* Change:
+	wl-break-pages is restricted by being always nil in
+	wl-summary-redisplay-no-mime.
+	* Change:
+	return value of two or more lower directories in
+	elmo-localdir-list-folders-subr even if file system does not have
+	concept of link count.
+	(it is enable on OS/2 version variant and Mule for Win32 by
+	default).
+	* Change:
+	delete uselessness functions not called.
+
+1998-12-27  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	errors happen when folder having the same name as group exists
+	before the group.
+
+1998-12-27  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: [wl-folder.el].
+	not move to all folders and only do catchup for folders with
+	new/unread messages in wl-folder-mark-as-read-all-current-entity
+	(for speed up).
+
+1998-12-25  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Fix:
+	modification to fix display of summary in wrong code does not work
+	on Emacs 20.2 or below including Meadow.
+	(pointed out by Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>).
+
+1998-12-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.9.3 - "Last Christmas". Christmas limited version(?).
+
+1998-12-23  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	fix not to use "/" as pass separator.
+	* CHange:
+	replace delq with delete if possible.
+
+1998-12-21  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* New File: [wl-expire.el].
+	add a new feature to delete or move old messages automatically.
+	* Change:
+	be to autoload wl-fldmgr.el.
+	* Change: [wl-folder.el].
+	arrange and speed up some commands related with automatic open of
+	groups.
+	* Change:
+	not load LOGO files excepting XEmacs in byte-compiling wl-demo.el.
+	* Fix: [elmo-archive.el].
+	errors happen if directories do not exist in
+	elmo-archive-list-folders when elmo-archive-treat-file is non-nil.
+	* Fix:
+	last two patches in [WL 838] is not used.
+
+1998-12-21  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	avoid wrong type argument errors when errors happen in sending
+	process on XEmacs.
+	(pointed out by Toshihiro KAMISHIMA <kamisima@etl.go.jp>).
+
+1998-12-18  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	show an atmosphere like Christmas.
+	* Change:
+	use decoded letters as arg of wl-draft.
+	(based on modification by Hidekazu NAKAMURA
+				  <u90121@uis-inf.co.jp>).
+	* Fix:
+	display summary in wrong code on Emacs 20.2 or below including
+	Meadow.
+	(pointed out by Hidekazu NAKAMURA <u90121@uis-inf.co.jp>,
+			Fujii <fujii@mail.fjts.fujitsu.co.jp>).
+
+1998-12-17  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* Change:
+	avoid result being "Re: Re:" in case of encoding letters including
+	"Re:".
+
+1998-12-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.2 - "Addicted To Love".
+
+1998-12-17  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix: [wl-fldmgr.el].
+	possible to destory wl-folder-entity-id-name-alist when an empty
+	folder is deleted.
+	* Change: [elmo-archive.el].
+	to use a function in method is enable.
+	* Change: [elmo-archive.el].
+	to add or to delete messages is enable in 'tgz.
+	change suffix of 'tgz to ".tar.gz".
+	* Fix: [elmo-archive.el].
+	not give consideration to prefix in
+	elmo-archive-msgdb-create-as-numlist-subr2.
+
+1998-12-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	replace contents of commands in menu for mail with it for wl in
+	draft buffer.
+	* Change:
+	define open-network-stream-as-binary if it is not defined so that
+	smtp.el works well when the latest version apel is not used.
+	* Change:
+	adjust smtp.el to the latest version FLIM.
+
+1998-12-16  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix: [wl-fldmgr.el].
+	wl-folder-newsgroups-hashtb is always nil when adding not nntp
+	folders.
+
+1998-12-16  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* Change: [WL-ELS].
+	not install smtp.el when using SEMI.
+
+1998-12-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	put date parts of In-Reply-To: in "".
+	* Change:
+	storage of summary created by wl-summary-rescan is executed in
+	finishment of summary not but of scan.
+	* New Variable: wl-folder-thread-indent-set-alist.
+	enable to select indent letters of thread in each folder.
+	change to use wl-thread-indent-level,
+	wl-thread-have-younger-brother-str, wl-thread-youngest-child-str,
+	wl-thread-vertical-str,	wl-thread-horizontal-str,
+	wl-thread-space-str as default value when nothing is matched by
+	using rules defined by it.
+	* New Variable: wl-folder-weekday-name-lang-alist.
+	enable to select method to display day of the week in each folder.
+	change to use wl-summary-weekday-name-lang as default value when
+	nothing is matched by rules defined by it.
+	* Fix: [elmo-nntp.el, elmo-imap4.el, elmo-msgdb.el].
+	display Chinese or Hangul letters in wrong code because of wrong
+	creattion of Subject or From for saving msgdb.
+	* Change:
+	to {insert|store} cache of summary is done in
+	as-binary-{input|output}-file, and to do encode/decode is done in
+	mime-charst of each buffer.
+	* Change:
+	call elmo-create-folder even when wl-draft-folder does not exist
+	in wl-init.
+	* Change:
+	become wl-generate-user-agent-string corresponding to Nemacs.
+	insert version information of tm.
+	* Fix:
+	insert child thread into an unexpected position if target message
+	is hidden in close thread when deleting messages. (maybe)
+	* Change: [bbdb-wl.el].
+	do require necessary modules in byte-compiling.
+	* Change:
+	put smtp-via-smtp in (as-binary-process).
+	(based on reports by
+	  Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp> and others).
+	* Change: [wl-ja.texi].
+	@directory is enable by default.
+	(pointed out by SENDA Shigeya <senda@iod.ricoh.co.jp>).
+
+1998-12-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* New File: [wl-mule.el, wl-nemacs.el].
+	* Change:
+	merge wl-nemacs and a main trunk.
+
+1998-12-10  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not refer Reference field instead of In-Reply-To field if
+	In-Reply-To field contains no message-id.
+
+1998-12-11  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.9.1 - "Yankee Rose".
+
+1998-12-10  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	change name of draft buffer ("1" -> "+draft/1").
+	* New Variable: wl-jump-to-draft-buffer.
+	* Change:
+	processing of matching in wl-draft-config-alist continues when is
+	succeeded once.
+	* Add Hook: wl-draft-config-exec-hook.
+	* New Variable: wl-draft-always-delete-myself.
+	* Fix:
+	elmo-archive-list-folder always returns nil wrongly when prefix of
+	archive folder includes numeral.
+	* Change:
+	elmo-*-copy-msgs returns non-nil if suceeded.
+	* Change:
+	not execute deletion if processing of copy in elmo-move-msgs
+	fails.
+
+1998-12-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	use elmo-match-string, elmo-match-buffer if possible.
+	* Change:
+	default value os wl-insert-mail-followup-to,
+	wl-insert-mail-reply-to is nil.
+	* Change: [wl-ja.info].
+	work well on Emacs 20.3.
+	* Change:
+	start up by "M-x wl-draft" work well.
+	* Change:
+	reduce warning messages in byte-compiling on Mule.
+
+1998-12-10  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Fix:
+	not update number-alist of msgdb after pack-number.
+
+1998-12-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	insert Bcc: field regardless of value of mail-self-blind when
+	wl-bcc is defined (adjustment to an action of wl-fcc).
+
+1998-12-10  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* New Variable: wl-bcc.
+	put value of wl-bcc into Bcc: field when non-nil.
+
+1998-12-10  SENDA Shigeya <senda@iod.ricoh.co.jp>
+
+	* Change: [wl-ja.texi].
+	fix for XEmacs.
+	* Fix: [wl-ja.texi].
+	one vindex is lack.
+	* Change: [WL-ELS].
+	install info when choosing install-package on XEmacs.
+
+1998-12-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Fix:
+	when in the middle of thread there are any messages in close thread
+	hereafter threads do not be inserted.
+
+1998-12-09  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Add Variables: elmo-move-msgs, elmo-copy-msgs, elmo-append-msg.
+	move or copy in keeping number in source folder by
+	elmo-{move|copy}-msg and copy in keeping number specified by
+	elmo-append-msg.
+	* Change:
+	deal with multiple message once when copying from 'localdir to
+	'archive.
+
+1998-12-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.0 - "With Or Without You".
+	* Change: [elmo-archive.el].
+	delete warning in byte-compiling.
+
+1998-12-09  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* New File: [elmo-archive.el]
+	"v0.16 [981208/alpha]".
+	* Change:
+	make folders of dst-spec in copy-msgs if not.
+	(pointed out by Masayuki TERADA <te@isl.ntt.co.jp>).
+	* Fix:
+	regexp-quote() of suffix is not executed in get-archive-name when
+	elmo-archive-treat-file is non-nil.
+
+1998-12-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	call elmo-create-folder if target folder does not exist in
+	wl-folder-check-entity.
+	* Change:
+	call elmo-create-folder if wl-trash-folder does not exist in
+	wl-init.
+	(pointed out by OKUNISHI Fujikazu
+			<fuji0924@mbox.kyoto-inet.or.jp>).
+
+1998-12-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Change:
+	reduce warnings in byte-compiling on XEmacs, Emacs.
+	* Fix:
+	errors happen because of wrong dealing with parent in processing
+	of mime-entity in mmelmo-imap4.
+
+1998-12-07  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Fix: [00README.ja]
+	address of ML is still old.
+
+1998-12-06  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	ignore hereto of wl-summary-cursor-up when wl-summary-buffer-view
+	is 'thread.
+	* Fix:
+	return value is wrongly nil if no success-mark exist and cursor
+	goes into position of failure-mark when hereto is non-nil in
+	wl-thread-jump-to-next-unread, wl-thread-jump-to-prev-unread.
+	* Change:
+	display progress of process in deletion of summary update.
+
+1998-12-06  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change:
+	remove debug code and display elapse time in
+	elmo-localdir-pack-number.
+	* Change:
+	use SPEC in elmo-call-func in order to avoid free var based on
+	data scope problem (for deletion of byte-compile warning).
+
+1998-12-05  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: [wl-ja.texi].
+	some errors.
+
+1998-12-05  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* New Variable: elmo-archive-treat-file.
+	targets of archive folder are files when non-nil.
+
+1998-12-04  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	temporary buffers created by elmo still remains after finishing
+	WL.
+	* Change:
+	after doing wl-summary-rescan cursor goes into same position as
+	before.
+	* Change:
+	two periods are not side by side in display of summary update.
+	* Change:
+	enable to compele value of Since and Before in wl-summary-pick.
+	* Change:
+	arrage lists of completing-read.
+	* Change:
+	not display messages if there are no marks excepting marks with
+	low pirority by wl-summary-move-order even when
+	wl-auto-select-first is t.
+	* Change:
+	return value is t when deletion by elmo-archive-delete-msgs is
+	success.
+
+1998-12-04  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	call wl-summary-unread-message-hook in wl-summary-mark-as-read.
+
+1998-12-04  Ken'ichi OKADA  <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* New Hook: wl-summary-unread-message-hook.
+	call it when reading unread messages.
+
+1998-12-03  Masahiro MURATA  <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	not update display after checking archive folder in folder mode.
+
+1998-12-03  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Change:
+	make a branch for wl_nemacs corresponding to Nemacs.
+	* Change:
+	replace old smtp.el with smtp.el in flim-1.12.
+	adjust to its API.
+	(deletion of smtp-do-bcc, change of args of smtp-via-smtp).
+	* Fix:
+	always ignore wl-insert-message-id in im-wl.el.
+	* Fix:
+	errors display in a large size in wl-summary-prefetch-msg.
+	* Change:
+	speed up all operations of multi folder by replacement append with
+	nconc.
+
+1998-12-02  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+	    Hironori Fukuchi <nory@valis.co.jp>
+
+	* Fix: [wl-ja.texi].
+	fix some errors.
+
+1998-12-02  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* alpha -> beta.
+	* Change:
+	move old ChangeLog to etc directory.
diff --git a/etc/ChangeLog.2.ja b/etc/ChangeLog.2.ja
new file mode 100644
index 0000000..31f2f27
--- /dev/null
+++ b/etc/ChangeLog.2.ja
@@ -0,0 +1,1290 @@
+1999-05-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.0.0 - "Kokomo"
+
+1999-05-18  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* $B?75,%U%!%$%k(B ChangeLog.en $BDI2C!#(B
+
+1999-05-18  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Message $B$G(B mouse-2 $B$,F0$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+
+1999-05-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.0.0 pre2 - "Kokomo-pre2"
+	* Folder $B$G(B $B%0%k!<%W$NCf$NL$FI?t$,8:$k$H%O%$%i%$%H$NHO0O$,JQ$o(B
+	  $B$C$F$7$^$&$N$r=$@5!#(B
+	  ($B>.6L$5$s(B <kodama@ayame.mfd.cs.fujitsu.co.jp> $B$N8f;XE&(B)
+	* Draft $B$N(B C-cC-s $B$H(B menubar $B$N%-!<%P%$%s%I$O%I%i%U%H%P%C%U%!Kh$K(B
+	  local-set-key $B$9$k$h$&$K$7$?!#(B
+	* wl-summary-mark-as-read-all $B$,!$%9%l%C%I$,JD$8$?>uBV$G1#$l$F(B
+	  $B$$$k%a%C%;!<%8$KBP$7$F8z$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	  ($BBg_7$5$s(B <ohsawa@mxq.mesh.ne.jp> $B$N8f;XE&(B)
+
+1999-05-18  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-summary-reply-with-citation $B$G$O(B
+	  wl-draft-prepared-config-alist $B$G$NK\J8A^F~0LCV$,68$&$N$r=$@5(B
+	  $B$7$?!#(B
+
+1999-05-17  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* [bbdb.el] wl-folder-exit-hook -> wl-exit-hook $B$KBP1~!#(B
+
+1999-05-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* pre 1.0.0 - "Kokomo-pre"
+	* replace-match () $B$r;H$o$J$$$h$&$K$7$?!#(B
+
+1999-05-17  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* POP-before-SMTP $B$N%I%-%e%a%s%HDI2C!#(B
+	* POP-before-SMTP $B$KBP1~!#(B
+
+1999-05-17  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-multi-get-msg-filename() $B$,B8:_$7$J$+$C$?$N$GDI2C!#(B
+	* wl-message-refer-article-or-url() $B$G(B mailto: $B$rDL$9!#(B
+
+1999-05-17  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-summary-goto-folder $B$r(B interactive $B$G<B9T$7$?>l9g!$(B
+	  wl-folder-buffer-cur-{path|entity-id} $B$,JQ99$5$l$J$$$N$r=$@5$7(B
+	  $B$?!#(B
+	* wl-expire-alist $B$N(B 2$B!$(B3$BHVL\$NMWAG$N$$$:$l$+$,(B nil $B$N>l9g$O(B
+	  expire $B$7$J$$$h$&$K$7$?!#(B
+
+1999-05-17  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* AUTHINFO $B$K4X$9$kItJ,$N%I%-%e%a%s%HDI2C!#(B
+
+1999-05-17  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* $B%^%&%99T%O%$%i%$%H$N%P%0=$@5!#(B
+
+1999-05-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B$"$A$3$A$+$i(B BETA $B$r<h$k!#(B
+	* XEmacs $B$G(B Folder $B$K(B toolbar $B$,IU$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	* $B%5%V%8%'%/%H$,F|K\8l$@$H(B partial $B$N%^!<%8$,$&$^$/$$$+$J$$$N$r=$@5!#(B
+	* 0.10.3 - "Jumpin' Jack Flash"
+
+1999-05-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* make uninstall $B$,(B WL_PREFIX, ELMO_PREFIX $B$r9MN8$7$F$$$J$+$C$?$N$r(B
+	  $B=$@5!#(B
+	* Mule2.3 $B8~$1$K(B (point-at-bol), (point-at-eol) $B$r;H$o$J$$$h$&$K$7$?!#(B
+	* $BL>A0JQ99(B wl-folder-exit-hook -> wl-exit-hook$B!#(B
+	* $BL>A0JQ99(B wl-folder-exit -> wl-exit$B!#(B
+	* ja.Emacs $B$r99?7!#(B
+	* [wl-ja.texi] wl-summary-print-message $B$N@bL@DI2C!#(B
+
+1999-05-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-auto-select-first $B$,(B t $B$G$"$C$F$bL$FI$,$J$$>l9g!$(B
+	  $B%a%C%;!<%8%P%C%U%!$,>C$($J$$$N$r=$@5!#(B
+
+1999-05-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* [wl-ja.texi] highlight$B!"(Binternal $B%U%)%k%@$N@bL@$rDI2C!#(B
+	* wl-highlight $B$+$i$$$/$D$+$N(B defvar $B$r(B wl-vars $B$K0\$7!"(B
+	  defcustom $B$K$7$?!#(B
+	* unplugged $B$G(B nntp $B%U%)%k%@$rA*Br$9$k$H%(%i!<$,=P$k$N$r=$@5!#(B
+	  ($B4];3$5$s(B <maru@kthree.co.jp> $B$h$j8f;XE&(B)
+	* wl-stay-folder-window $B$,(B t $B$N$H$-!"(BSticky Summary $B$,Mm$`$H(B
+	  $B%-%c%C%7%e$,99?7$5$l$J$$$J$I$NIT6q9g$,H/@8$7$F$$$?$N$r=$@5!#(B
+	* Summary $B$N%^%&%99T$N%O%$%i%$%H$r9TF,$+$i9TKv$^$G$K$7$?!#(B
+	* wl-init $B$N=i4|2=$N=g=x$H%a%C%;!<%8$r0lItJQ99!#(B
+	  prefix-arg $B$D$-$G$O!"4pK\%U%)%k%@$NB8:_$r%A%'%C%/$7$J$$$h$&$K$7$?!#(B
+	* Sticky Summary $B$r(B exit $B$9$k$H$-$K!"%S%e!<%-%c%C%7%e$b(B
+	  $B%;!<%V$9$k$h$&$K$7$?!#(B
+
+1999-05-14  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-summary-reedit() $B$7$?;~$K(B wl-mail-setup-hook $B$,;2>H$5$l$J$$(B
+	  $B$N$r=$@5!#(B
+
+1999-05-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-summary-next-folder-or-exit() $B$N=$@5$,(B
+	  wl-auto-select-first $B$,(B t $B$N>l9g$,9MN8$5$l$F$J$$$N$r=$@5!#(B
+	* wl-summary-next-no-unread $B$,(B t $B$N$H$-$N0\F0%3%^%s%I$rJQ99$G$-(B
+	  $B$k$h$&$K$7$?!#(B
+
+1999-05-14  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* [wl-ja.texi] wl-draft-write-current-newsgroup $B$N%I%-%e%a%s%HDI2C!#(B
+
+1999-05-13  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* mode-motion-hook $B$rMQ$$$:$K(B mouse-face $B$N(Bhighlight $B$r9T$&;v$K$7$?!#(B
+	* wl-version-show $B$rDI2C$7$?!#(B
+
+1999-05-13  Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>
+
+	* [wl-ja.texi] Sticky Summary $B$N@bL@$rDI2C!#(B
+
+1999-05-13  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* wl-summary-stick$B$7$?%U%)%k%@$G!$(Bwl-summary-forward$B$7$?8e!$(B
+	  $BJQ$J%&%$%s%I%&$K9T$C$F$7$^$&$N$r=$@5!#(B
+
+1999-05-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-template $B$,(B recursive-edit $B$r;H$o$J$$$h$&$K$7$?!#(B
+
+1999-05-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft-config-alist $B$N%5%V4X?t$K(B 'x-face $B$rDI2C!#(B
+	* [wl-template] select $B%P%C%U%!$r%O%$%i%$%H$9$k$h$&$K$7$?!#(B
+
+1999-05-13  Mito <mit@nines.nec.co.jp>
+
+	* $B%U%)%k%@$r0\F0$7$F$b!"D>A0$N%a%C%;!<%8$,I=<($5$l$?$^$^$J$N$r(B
+	  $BHr$1$k$?$a(B wl-summary-next-folder-or-exit() $B$G(B
+	  (wl-summary-toggle-disp-msg 'off) $B$9$k$h$&$K$7$?!#(B
+	* wl-summary-toggle-disp-msg() $B$G(B arg $B$K(B off $B$r;XDj$7$F8F(B
+	  $B$S=P$7$?>l9g%(%i!<$,=P$k$N$r=$@5!#(B
+
+1999-05-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* NNTP $B%U%)%k%@$r(B wl-folder-update-recursive-current-entity $B$G99(B
+	  $B?7$9$k$H%(%i!<$K$J$k$N$r=$@5$7$?!#(B
+
+1999-05-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* pop3, imap4, nntp $B$G!"(Belmo-*-use-cache $B$,(B nil $B$N$H$-$K(B
+	  uncached $B$K$J$C$F$7$^$&$N$r=$@5!#(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$N8f;XE&(B)
+
+1999-05-12  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	 * localnews $B$,FI$a$J$/$J$C$F$$$?%P%0$r=$@5!#$^$?!"(B
+	   elmo-localnews-local-file-p() $B$N0z?t$,B-$j$J$+$C$?$N$r=$@5!#(B
+
+1999-05-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 0.10.2 - "I'm Your Man"
+
+1999-05-12  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* [wl-ja.texi] $B$$$/$D$+$N%3%^%s%I$N@bL@$rDI2C!#(B
+
+1999-05-12  Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>
+
+	* [sample.dot.wl] auto-refile $B@_Dj$rDI2C!#(B
+	* [wl-ja.texi] wl-summary-auto-refile-skip-marks $B$N@bL@$rDI2C!#(B
+
+1999-05-12  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $BBgJ8;z$N%K%e!<%9%0%k!<%WL>$N%A%'%C%/$K<:GT$9$k$N$r=$@5!#(B
+
+1999-05-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* localdir $B$G4{FI%a%C%;!<%8$,(B uncached $B$K$J$C$F$7$^$&$N$r=$@5!#(B
+	* $B?75,JQ?t(B wl-ps-print-buffer-func$B!#(Bps-print $B$G;H$&4X?t$r;XDj!#(B
+	  default $B$O(B 'ps-print-buffer-with-faces$B!#(B
+	  ($B?e8M$5$s(B <mit@nines.nec.co.jp> $B$N8fMWK>$K4p$E$/(B)$B!#(B
+	* .folders $B2r@O;~$K%0%k!<%W$H(B petname $B$KF1$8L>A0$,$G$F$-$?$i(B
+	   $B%(%i!<$r=P$9$h$&$K$7$?!#(B
+
+1999-05-11  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* sample.dot.wl $B$r99?7!#(B
+	* $B%"%/%;%9%0%k!<%W$N5-=R$N=$@5B>!#(B
+
+1999-05-11  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B%U%#%k%?%U%)%k%@$G(B "$" $B$r$D$1$kBP>]$,%m!<%+%k%U%!%$%k$G$"$k(B
+	  $B>l9g$K!"%^!<%/$O$D$/$,%-%c%C%7%e$G$-$J$$%P%0$r=$@5!#(B
+
+1999-05-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* tm $B8~$1(B partial $B7k9g4X?t$r<BAu!#(B
+	* Nemacs $B$G(B wl-defface $B$,F0$+$J$+$C$?$N$r=$@5!#(B
+	* wl-summary-exec $B$r9bB.2=!#(B
+	* Summary $B$K(B 'D' $B$r3d$j?6$k$N$rK:$l$F$$$?!#(B
+	* imap4 $B$N%a%C%;!<%8:o=|;~!"%9%l%C%I$N6q9g$K$h$C$F$O(B msgdb $B$+$i(B
+	  $B:o=|$5$l$J$$>l9g$,$"$C$?$N$r=$@5!#(B
+	* wl-folder-check-one-entity $B$G$9$0$K7k2L$,I=<($5$l$k$h$&(B
+	  (sit-for 0) $B$9$k$h$&$K$7$?!#(B
+	* wl-message-redisplay-hook $B$r(B unwind-protect $B$7!"(B
+	  bbdb $B$J$I$N(B prompt $B$G(B C-g $B$7$?$H$-$K$b(B Summary
+	  $B$K%+!<%=%k$,La$k$h$&$K$7$?!#(B
+
+1999-05-10  Tomokazu Matsumaru <matty@tamtam.co.jp>
+
+	* $B$?$/$5$s%a%C%;!<%8$,$"$k(B POP3 $B%U%)%k%@$,%O%s%0$9$kLdBj$r=$@5!#(B
+
+1999-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B?75,JQ?t(B wl-folder-sync-range-alist, wl-default-sync-range$B!#(B
+	  $B%U%)%k%@$4$H$K(B sync $B$N%G%U%)%k%H$rJQ$($i$l$k$h$&$K$7$?!#(B
+	  ($B?@V:$5$s(B<kamisima@etl.go.jp>$B$h$j8fMWK>(B)
+	* Mule 2.3 $B$G(B make $B$K<:GT$9$k$N$r=$@5!#(B
+	  ($B>.6L$5$s(B <kodama@ayame.mfd.cs.fujitsu.co.jp> $B$N8f;XE&(B)
+	* wl-vars.el $B$,(B euc $B$K$J$C$F$$$F%9%l%C%I;^$,J8;z2=$1$9$k$N$r=$@5!#(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$N8f;XE&(B)
+	* 0.10.1 - "Harlem Shuffle"
+
+1999-05-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* imap4 $B$G!"(Bselect-folder $BCf$K(B C-g $B$9$k$H!"%+%l%s%H%U%)%k%@$,(B
+	  $B$*$+$7$/$J$k$N$r=$@5(B($B$7$?$D$b$j(B)$B!#(B
+	 ($B?e86!wI=@i2H(B <mizuhara@acm.org> $B$5$s$N8f;XE&(B)
+	* $B?75,JQ?t!"(Belmo-archive-use-cache$B!"(Belmo-nntp-use-cache
+	  elmo-imap4-use-cache$B!"(Belmo-pop3-use-cache$B!#(B
+	  $B$=$l$>$l!"FI$s$@;~$K%a%C%;!<%8$r%-%c%C%7%e$9$k$+$I$&$+$r@_Dj!#(B
+	* wl-no-cache-folder-list -> $BGQ;_!#(B
+	* important-mark $B$rIU$1$?=V4V$K%-%c%C%7%e$9$k$h$&$K$7$?!#(B
+
+1999-05-08  Koichiro Ohba <koichiro@ca.mbn.or.jp>
+
+	* [wl-ja.texi] typo $BB>$N=$@5!#(B
+
+1999-05-08  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [wl-ja.texi] typo $BB>$N=$@5!#(B
+
+1999-05-05  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* ^L $B$G2~JG$5$l$F$k;~$K8B$j(B wl-message-prev-page() $B$9$k$H%+!<(B
+	  $B%=%k$,%a%C%;!<%8%P%C%U%!$+$i%5%^%j$XLa$i$J$$%P%0$r=$@5!#(B
+	* make install $B;~$K$O(B *.elc $B$O(B rename-file() $B$9$k!#(B
+	* mode-motion-hook $B$O(B XEmacs $B8GM-$J$?$a!"(BGNU Emacs $B$G%P%$%H%3(B
+	  $B%s%Q%$%k$9$k$H%(%i!<%a%C%;!<%8$,=P$k$N$rL[$i$;$k!#(B
+
+1999-05-05  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-summary-refile-region, wl-summary-copy-region, wl-thread-refile,
+	  wl-thread-copy $B$,%P%0$C$F$$$?$N$r=$@5!#(B
+
+1999-05-05  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-{nntp|imap4|pop3}.el $B$G(B case-fold-search $B$,A`:nBP>]%P%C%U%!(B
+	  $B$GM-8z$K$J$C$F$$$J$+$C$?$N$r=$@5$7$?!#(B
+
+1999-05-04  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft-send $B$r(B1$BEYCfCG$7$?8e$KAw?.$r9T$&$H!$(B
+	  wl-draft-config-alist $B$NJQ?t$,E,MQ$5$l$J$$LdBj$r=$@5$7$?!#(B
+
+1999-05-01  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* NNTP $B%U%)%k%@$G(B top $B%+%F%4%j$NF,J8;z$,?t;z$K$J$C$F$$$k(B
+	  $B%K%e!<%9%0%k!<%W$rFI$a$kMM$K$7$?!#(B
+
+1999-04-30  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* face $B$r%]!<%?%V%k$KDj5A$9$k4X?t!"(Bwl-defface $B$rDj5A!#(B
+
+1999-04-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $BJT=8Cf$N%I%i%U%H$r(B Summary $B$+$i(B reedit $B$9$k$H%P%C%U%!L>$N(B
+	  $B%U%)%k%@L>ItJ,$,A}?#$7$F$7$^$&$N$r=$@5!#(B
+	  ($B2,:j$5$s(B OKAZAKI Tetsurou <okazaki@be.to> $B$h$j8f;XE&(B)
+	* $B6u%U%)%k%@$G(B s->rescan $B$9$k$H$I$3$K%8%c%s%W$9$k$+?V$$$F$7$^$&(B
+	  $B$N$r=$@5!#(B
+	  ($B2,:j$5$s(B OKAZAKI Tetsurou <okazaki@be.to> $B$h$j8f;XE&(B)
+	* [bbdb-wl] (require 'wl) $B$9$k$h$&$K$7$?!#(B
+	* Thread $B$N;R$b?F$b$J$$%a%C%;!<%8$G(B wl-thread-open-close $B$9$k$H(B
+	  $B$I$3$K%8%c%s%W$9$k$+?V$$$F$7$^$&$N$r=$@5!#(B
+	* $B?75,%3%^%s%I!"(Bwl-summary-drop-unsync,
+	  wl-folder-drop-unsync-current-entity$B!#(B
+	  $BA4$F$NL$F14|%a%C%;!<%8$r!"$J$+$C$?$3$H$K$9$k!#(B
+	  'D' $B$K3d$jEv$F!#(B
+
+1999-04-28  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,JQ?t(B wl-draft-prepared-config-alist$B!#(B
+	  wl-draft-config-alist $B$K4v$D$+$N5!G=3HD%$r9T$C$?!#(B
+	* $B?75,%U%!%$%k(B wl-template$B!#(B
+	  $B%I%i%U%H$K%F%s%W%l!<%H$rA*Br!&A^F~$9$k5!G=$rDI2C$7$?!#(B
+
+1999-04-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Nemacs $B0J30$O(B wl-draft-mode-map $B$r;H$&$h$&$K$7$?!#(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$h$j8f=u8@(B)
+
+1999-04-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* Summary $B%P%C%U%!$N(B case-fold-search $B$,>o$K(B nil $B$K$J$C$F$7$^$&$N$r(B
+	  $B=$@5!#(B
+	* elmo-nntp-open-connection $B$,<:GT$7$?$H$-$NJV$jCM$,(B docstring $B$H(B
+	  $B0[$J$C$F$$$?$N$r=$@5!#(B
+
+1999-04-28  Mito <mit@nines.nec.co.jp>
+
+	* wl-draft-buffer-cur-summary-buffer $B$,(B #<killed buffer> $B$K$J$C$?(B
+	  $B$H$-$KAw?.%3%^%s%I$,<:GT$7$F$7$^$&$N$r=$@5!#(B
+
+1999-04-27  Mito <mit@nines.nec.co.jp>
+
+	* Summary $B$+$i(B '#' $B$G%W%j%s%H$9$k;~$K3NG'$r5a$a$k$h$&$K$7$?!#(B
+
+1999-04-27  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* wl-summary-refile-region $B$,$*$+$7$/$J$C$F$?$N$r=$@5!#(B
+
+1999-04-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Nemacs $B$GF0$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	* custom $B$,$J$$4D6-$GLdBj$,$"$C$?$N$r=$@5!#(B
+	* $B$$$/$D$+K:$l$F$$$?%Q%C%A$N%^!<%8(B (pop3 $B$,%O%s%0$9$kLdBj$N=$@54^$`(B)$B!#(B
+	  ($B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp> $B$h$j8f;XE&(B)
+	* 0.10.0 - "Got My Mind Set On You"
+	* localnews $B$,(B wl-summary-local-p $B$G(B local $B07$$$5$l$F$$$J$+$C$?$N$r(B
+	  $B=$@5(B($B8MED$5$s(B <ktoda@v7.com> $B$h$j8fJs9p(B)
+
+1999-04-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-internal.el $B$N3F%P%C%/%(%s%I4X?t$r<BAu!#(B
+	* Sticky Summary $BBP1~$N$?$a!"(B
+	  (get-buffer wl-summary-buffer-name) $B$r$7$i$_$D$V$7$K=$@5!#(B
+	* $B8=:_$N%5%^%j$r(B sticky $B$K$9$k?75,%3%^%s%I!"(Bwl-summary-stick $B$rDI2C!#(B
+	  \M-s $B$K%P%$%s%I!#(B
+
+1999-04-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* SEMI $B$G(B partial $B$r7k9g$9$k4X?t$r=q$-D>$7$?!#(B
+	* [bbdb-wl] Sticky Summary $B$KBP1~!#(B
+	* wl-default-draft-cite $B$,%P%0$C$F$$$?$N$r=$@5!#(B
+	  ($B%5%^%j$N%+!<%=%k0LCV$,$:$l$F$$$k$H!"4V0c$C$?(B citation title $B$r(B
+	   $B$D$1$F$7$^$&(B)
+
+1999-04-23  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* body $B$N0l$D$N9T$KFs$D(B message-id$B$,$"$k$H$-$K!":8$N(Bmessage-id$B$r(B
+	  $B??Cf%/%j%C%/$9$k$H1&$N(B message-id $B$KHt$s$G$7$^$&$N$r=$@5!#(B
+
+1999-04-23 $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* wl-summary$B%b!<%I$N:G2<9T$N6u9T$G!$(Bwl-thread-{copy,refile}$B$9$k$H!$(B
+	  $B%(%i!<$,=P$k$N$r=$@5!#(B
+
+1999-04-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* prefix arg $B$D$-$G%U%)%k%@0\F0$9$k$H!"(BSticky Summary $B$K(B
+	  $B0\F0$9$k$h$&$K$7$?!#(B
+	  ($B$3$l$^$G$N(B wl-folder-goto-folder$B!"(Bwl-summary-goto-folder $B$r(B
+	   $B$=$l$>$l(B wl-folder-goto-folder-subr$B!"(Bwl-summary-goto-folder-subr
+	   $B$KJQ99(B)
+	* wl-highlight-body-too $B$,(B nil $B$N;~$K(B draft-buffer $B$G(B"^L" $B$7$F$b(B
+	  re-highlight $B$7$J$$$h$&$K$7$?!#(B
+	   ($B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp> $B$N=$@5(B)$B!#(B
+	* $B$7$D$3$$%5%^%j!"(BSticky Summary$B!#(B
+	  ($B?e8M$5$s(B <mit@nines.nec.co.jp> $B$N8fMWK>$K4p$E$/(B)$B!#(B
+	* mmelmo-imap4 $B$O(B mmelmo $B$r7Q>5$9$k$h$&$K$7$?!#(B
+
+1999-04-21  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* wl-folder-close-parent-entity $B$K%P%0$,$"$C$?$N$r=$@5!#(B
+	* wl-thread-open-close $B$N5!G=$r3HD%$7!";R$,$J$$>l9g$O?F$r(B close
+	  $B$9$k$h$&$K$7$?!#(B
+	* wl-folder-close-parent-entity -> wl-folder-open-close
+	* wl-folder-open-close $B$r(B "/" $B$K%P%$%s%I!#(B
+
+1999-04-21  Mito <mit@nines.nec.co.jp>
+
+	* $B%M%9%H$7$F$k(B alias $B$bE83+$9$k$h$&$K$7$?!#(B
+
+1999-04-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary-move-order $B$,(B 'new$B!"$+$D:G=i$N%a%C%;!<%8$N%^!<%/$,(B
+	  "$" $B$+$D%U%)%k%@Fb$K(B "$" $B0J30$N%^!<%/$,$J$$$H$-!"(B
+	  wl-summary-goto-folder $B$G:G=i$N%a%C%;!<%8$K%+!<%=%k$,9T$+$J$$(B
+	  $B$N$r=$@5!#(B
+	* wl-summary-goto-folder $B$GL@$i$+$K#22s(B wl-summary-cursor-down $B$r(B
+	  $B9T$C$F$$$?(B(!)$B$N$r=$@5!#(B
+
+1999-04-21  Kazuyuki IENAGA <ienaga@jsys.co.jp>
+
+	* custom $B$KBP1~!#(B
+
+1999-04-21  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* leafnode $B$J$I(B group $B%3%^%s%I$N%l%9%]%s%9$KM>J,$J%a%C%;!<%8$rIU(B
+	  $B$1$k%5!<%P$G$O!$%[%9%HL>$rIU2C$7$?%U%)%k%@$N>pJs$,<hF@$G$-$J$$(B
+	  $B%P%0$r=$@5$7$?!#(B
+
+1999-04-20  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,%U%!%$%k(B elmo-internal.el$B!#(B
+	  $BFbIt%G!<%?$r%V%i%&%:$9$k$?$a$N%U%)%k%@!#(B
+
+1999-04-19  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* $B?75,4X?t(B wl-draft-highlight-and-recenter$B!#%I%i%U%H$G(B C-l $B$9$k$H!"(B
+	  $B%O%$%i%$%H8e(B recenter$B!#(B
+	* [elmo-nntp] elmo-nntp-search $B$N0z?t$,0c$C$F$$$?$N$r=$@5!#(B
+
+1999-04-19  Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>
+
+	* nntp $B$N(B folder $BDj5A$K%]!<%H;XDj$r$G$-$k$h$&$K$7$?!#(B
+
+1999-04-19  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-summary-copy-prev-destination $B$r(B \M-O $B$K3d$j?6$C$F$$$?$N$,(B
+	  vt-100$B$N%+!<%=%k$^$o$j$GLdBj$,$"$C$?$N$G%-!<%P%$%s%I$r30$7$?!#(B
+	  ($B$9$,$N$5$s(B <siesta@mvd.biglobe.ne.jp> $B$h$j8f;XE&!"(B
+	   $B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp> $B$h$j8f=u8@(B)$B!#(B
+	* nntp $B$G%a%C%;!<%8HV9f$,(B 6 $B7e$r1[$($k$HHV9f$,A4It(B 0 $B$K$J$C$F(B
+	  $B$7$^$&$N$r=$@5(B($B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp>$B$N8f;XE&(B)$B!#(B
+
+1999-04-19  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B%*%U%i%$%s!&%j%U%!%$%k(B/$B%3%T!<$N$"$H!"%j%U%!%$%k(B/$B%3%T!<@h$N%U%)%k(B
+	  $B%@$rK,$l$k$H!"%*%U%i%$%s$G$b%a%C%;!<%8$,DI2C$5$l$F$$$k$h$&$K8+$($J$$(B
+	  $B$N$r=$@5!#(B
+	* $B%*%U%i%$%s;~$NL$FI=hM}$b$9$k$h$&$K=$@5!#(B
+
+1999-04-19  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* $B%5%^%j$N(B \M-O $B$N%P%$%s%I$r30$9!#(B
+
+1999-04-17  Koichiro Ohba <koichiro@ca.mbn.or.jp>
+
+	* wl-summary-auto-refile $B$N%I%-%e%a%s%HDI2C!#(B
+	* wl-summary-auto-refile $B$N%-!<%P%$%s%IDI2C!#(B
+	* sample.dot.wl $B$G(B Mail-Followup-To $B$H(B Mail-Reply-To $B$r<+A0$GIU$1(B
+	  $B$F$$$k$N$r=$@5!#(B
+
+1999-04-14  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%I%i%U%H%P%C%U%!$N%b!<%I$r(B mail-mode $B$r(B derive $B$7$?(B
+	  wl-draft-mode $B$K$7$?!#(B
+	  ($B>.NS$5$s(B <shuhei@aqua.ocn.ne.jp> $B$N8f=u8@(B)
+	* [WL-ELS] $B?75,JQ?t(B WL_PREFIX$B!"(BELMO_PREFIX $B$r@_$1!"(B
+	  $B$=$l$>$l$NCM$r(B ELISPDIR $B$+$i$NAjBP%G%#%l%/%H%j$H$7$F(B
+	   wl, elmo $B%b%8%e!<%k$r%$%s%9%H!<%k$9$k$h$&$K$7$?!#(Bdefault $B$O(B ""$B!#(B
+	   ($B>.NS$5$s(B <shuhei@aqua.ocn.ne.jp> $B$N8f=u8@(B)
+	* "make clean" $B$,(B WL-ELS $B$r(B load $B$7$F$7$^$&$N$G!"B>$N(B emacs $B$G(B
+	   compile $B$7$?(B *.elc $B$N$"$k(B source tree $B$GJL$N(B emacs $B$GF0$+$J$$$N$r(B
+	   $B=$@5!#(B
+	* $BJ#?t%a%C%;!<%8$,$"$k$H(B POP $B$,%O%s%0$7$F$7$^$&$N$r=$@5!#(B
+	  ($B@P@n$5$s(B <ichiro@mail.ne.jp> $B$h$j8fJs9p(B)
+
+1999-04-13  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* [elmo-nntp] docstring $B$N(B typo $B=$@5!#(B
+
+1999-04-12  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* summary buffer$B$G!"(B"E" $B$r2!$7$F(B reedit $B$9$k$H!"(Bbody $B$,A4It(B
+	  signature-face $B$K$J$C$F$7$^$&$N$r=$@5!#(B
+	* summary mode $B$H(B folder mode $B$N;~$K!"(Bmouse $B9T$r(B
+	  highlight $B$5$;$k(B(xemacs$B$N$_(B)$B!#(B
+
+1999-04-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B%I%i%U%H$G!"%?%V$G;O$^$k9T$N<!$N%U%#!<%k%I$,6u$@$H!"(B
+	  $B%?%V$G;O$^$k9T$^$G$b$,>C$5$l$F$7$^$&%P%0$r=$@5(B
+	  ($B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp>$B$N8f;XE&(B)$B!#(B
+	* Summary $B$G(B 'q' $B$r2!$7$?8e$9$+$5$:(B C-g $B$9$k$HJ8;z2=$1$7$?(B
+	  $B%P%C%U%!$,;D$C$F$7$^$&$N$r=$@5(B($B0$It$5$s(B <take@gohome.org> $B$N8f;XE&(B)$B!#(B
+	* XEmacs $B$GF|K\8l(B Subject $B$N(B pick $B$,<:GT$9$k$N$r=$@5(B
+	  ($B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp>$B$N8f;XE&(B)$B!#(B
+	* 4/2 $B$N(B elmo-nntp-get-folders-info $B$,%O%s%0$7$F$7$^$&=$@5$r(B
+	  ChangeLog $B$K2C$($k$N$rK:$l$F$$$?$N$GDI2C!#(B
+	  ($BCf@n$5$s(B <nakagawa@pochi.tis.co.jp> $B$h$j8f;XE&(B)$B!#(B
+	* 0.9.8 - "Faith"
+
+1999-04-10  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,JQ?t!"(Belmo-msgid-replace-string-alist
+	  Message-id ->$B%-%c%C%7%e$N%U%!%$%kL>$NJQ49%k!<%k$r@_Dj!#(B
+
+1999-04-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo-imap4] LOGIN $B$G%Q%9%o!<%I$K6uGrJ8;z$,$"$k$P$"$$$K(B
+	  $BG'>Z$K<:GT$9$k$N$r=$@5!#(B
+	  ($B7'Ln$5$s(B <kumano@strl.nhk.or.jp> $B$h$j8fJs9p(B)
+
+1999-04-07  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* [NNTP] AUTHINFO $B$KBP1~!#(B
+
+1999-04-07  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* C-u . $B$G!"%-%c%C%7%e$,$"$C$F$b:FFI$_9~$_$9$k$h$&$K$7$?!#(B
+	* $B=i4|2=;~!"%M%C%H%o!<%/$K$D$J$,$C$F$$$J$/$F$b(B C-g $B$r2!$;$P(B
+	  $B5/F0$G$-$k$h$&$K$7$?!#(B
+
+1999-04-06 SHIMADA Mitsunobu <simm-wl@fan.gr.jp>
+
+	*  Maildir $B$N%a!<%k$N:o=|!"%j%U%!%$%k$K<:GT$9$k>l9g$,$"$C$?$N$r=$@5!#(B
+
+1999-04-03 OKAZAKI Tetsurou <okazaki@be.to>
+
+	* [wl-ja.texi] $BJQ?t(B wl-insert-mail-(followup|reply)-to $B$N=i4|@_DjCM(B
+	  $B$N4V0c$$$r=$@5!#(B
+
+1999-04-02  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,JQ?t(B elmo-nntp-get-folders-securely$B!#(BNon-nil $B$K$9$k$H(B
+	  elmo-nntp-get-folders-info $B$,La$C$F$3$J$/$J$k$N$r=$@5$9$kJQ99$,(B
+	  $BM-8z$K$J$k!#(Bdefault $B$O(B nil$B!#(B
+
+1999-04-02  nakagawa@pochi.tis.co.jp ($BCf@n(B $B@?(B)
+
+	* cnews(?) $B$@$H(B elmo-nntp-get-folders-info $B$,La$C$F$3$J$/$J$j!"(B
+	  $B%O%s%0$7$F$7$^$&$N$r=$@5!#(B
+
+1999-03-31  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* petname-alist $B$r(B obarray $B2=!#(B
+	* $B?75,JQ?t(B wl-summary-divide-thread-when-subject-changed$B!#(B
+	  t $B$J$i%5%V%8%'%/%H$,JQ$o$C$?$H$-$K%9%l%C%I$r@Z$k$h$&$K$7$?!#(B
+	 ($B$d$^$@$"$-$i$5$s(B <akira@arika.org> $B$N8fMWK>(B)
+	* $B?75,JQ?t(B wl-summary-subject-filter-func $B%5%V%8%'%/%HHf3SA0$K(B
+	  $B=hM}$r9T$&4X?t$r;XDj!#(B
+	* wl-summary-from-func, wl-summary-subject-func,
+	  wl-summary-subject-filter-func $B$r(B funcall $B$9$k$N$r$d$a!"(B
+	  $B5/F0;~$K(B fset $B$9$k$h$&$K$7$?!#(B
+	* wl-draft-config-exec-flag $B$r%P%C%U%!%m!<%+%kJQ?t$K$7$?!#(B
+	* Summary $B$G(B M->j->q $B$9$k$H%(%i!<$,H/@8$9$k$N$r=$@5!#(B
+	  ($B2,ED$5$s(B<kokada@tamaru.kuee.kyoto-u.ac.jp>$B$N8f;XE&(B)
+	* signature $B$N(B face $B$N%G%U%)%k%H$r?'$D$-%U%)%s%H$K$7$?!#(B
+
+1999-03-30  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B6u9T$G(B'd'$B$G$-$J$$$h$&$K$7$?!#(B
+	* $B3:Ev$N(BMessage-Id$B$N5-;v$,F1$8%U%)%k%@$KJ#?t$"$k$H$-$K$=$N$&$A0l$D$r(B
+	  $B%*%U%i%$%s$G:o=|$7$F(B elmo-dop-queue-flush $B$9$k$H!$(B
+	  elmo-imap4-delete-msg-by-id$B$,<:GT$9$k$N$r=$@5!#(B
+
+1999-03-29  A. SAGATA <sagata@nttvdt.hil.ntt.co.jp>
+
+	* signature $BNN0h$N8!=P$r8-$/$7$?!#(B
+	* signature $B$r%O%$%i%$%H$9$k$h$&$K$7$?!#(B
+
+1999-03-26  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B8=:_$$$k!JF1$8!K%U%)%k%@$K8m$C$F(B goto-folder $B$9$k$H!"%5%^%j$,(B
+	  $B2=$1$F$7$^$&LdBj$r=$@5(B($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp>
+	  $B$N8f;XE&(B)$B!#(B
+	* $BJQ?t(B wl-draft-clone-local-variable-regexp ($B%G%U%)%k%H$O(B "^mime")
+	  $B$K%^%C%A$9$k%m!<%+%kJQ?t$NCM$rAw?.%P%C%U%!$K%3%T!<$9$k$h$&$K$7$?!#(B
+
+1999-03-26  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B?75,%3%^%s%I(B wl-summary-write-current-newsgroup ()
+	  Summary$B%b!<%I$G!$(Bcurrent-folder$B$N%K%e!<%9%0%k!<%W$KEj9F$9$k$H$-$K!$(B
+	  Newsgroup: $B%U%#!<%k%I$r$"$i$+$8$aJd4V$7$F$+$i(Bdraft$B%P%C%U%!$rMQ0U(B
+	  $B$9$k!#(B"W" $B$K%P%$%s%I!#(B
+
+1999-03-25  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* wl-summary-forward() $B$G!"(Bwl-mail-setup-hook $B$,8F$P$l$J$+$C$?(B
+	  $B$N$r=$@5!#(B
+
+1999-03-25  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $BB<ED$5$s$K$h$k(B wl-draft-config-alist $B$K(B lambda $B<0$r=q$1$k$h$&$K$9$k(B
+	  $B%Q%C%A$r%^!<%8$7$o$9$l$F$$$?$N$r%^!<%8!#(B
+
+1999-03-25  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-summary-temp-mark-uudecode $B$G%a%C%;!<%8(B1$B$D$@$1$N%U%!%$%k(B
+	  $B$,%G%3!<%I$G$-$J$$$N$r=$@5!#(B
+
+1999-03-24  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* default-case-fold-search $B$,(B nil $B$N>l9g!"%a%C%;!<%8$,Aw?.$5$l$J$$(B
+	  $B$N$r=$@5(B($B3k86$5$s(B<kuz@post1.com>$B$N8f;XE&(B)$B!#(B
+
+1999-03-24  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B?75,%3%^%s%I(B wl-folder-close-parent-entity$B!"(BM-SPC $B$K%P%$%s%I!#(B
+	* $B?75,JQ?t(B wl-draft-config-exec-flag $B$r@_$1!"(Bwl-draft-config-exec $B$O(B
+	  $B0lEY$7$+<B9T$5$l$J$$$h$&$K$7$?!#(B
+
+1999-03-21  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [im-wl.el] ($B:F(B) wl-insert-message-id $B$r(B nil $B$K@_Dj$7$F$b!"(BMessage-Id
+	  $B$r$D$1$F$7$^$&=$@5(B($B@P@n$5$s(B <ichiro@mail.ne.jp> $B$N8f;XE&(B)$B!#(B
+	* ($B:F(B)(featurep 'xpm) $B$N(B xemacs $B$r(B -nw $B$G$"$2$?$H$-$K(B wl $B$r5/F0$9$k$H(B
+	  warning $B$,=P$k=$@5(B($B:72eED$5$s(B<sagata@nttvdt.hil.ntt.co.jp>$B$N8f;XE&(B)$B!#(B
+
+1999-03-18  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* wl-ja.texi $B$K@bL@$rDI2C!#(B
+	* $B%I%i%U%H$G!"(B "To:" $B$d(B "Cc:" $B$N%X%C%@<+BN$NJd40$r$9$k$H$-$K!"(B
+	  $B>.J8;z$+$i$G$bJd40$9$k$h$&$K$7$?!#(B
+
+1999-03-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.7 - "Everything She Wants"
+	* multi $B%U%)%k%@$K$X$s$JF|IU$1$N%a%C%;!<%8$,$"$k$H(B msgdb $B@8@.$,(B
+	  $BCfCG$5$l$F$7$^$&$N$r=$@5!#(B
+
+1999-03-17  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* petname $B$r%$%s%?%i%/%F%#%V$KJT=8$9$k4X?t$rDI2C!#(B
+
+1999-03-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* IMAP $B$NB8:_$7$J$$%U%)%k%@$K%j%U%!%$%k$7$h$&$H$7$F$d$a$k$H!"$=$N8e(B
+	  $B8=:_$N%U%)%k%@$,A`:nITG=$K$J$C$F$7$^$&%P%0$r=$@5!#(B
+	 ($B0$It$5$s(B <take@gohome.org> $B$N8f;XE&(B)$B!#(B
+	* wl-folder-next-unsync $B$,%0%k!<%W$HDL>o%U%)%k%@$r6hJL$7$J$$$h$&(B
+	  $B$K$7$?!#(B
+	* XEmacs $B$N%D!<%k%P!<%\%?%s$r2!$7$F(B sync $B$7$?$H$-$K%a%C%;!<%8$,(B
+	  $BCfESH>C<$@$C$?$N$r=$@5!#(B
+
+1999-03-12  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* 00README $B$r=$@5!#(B
+
+1999-03-12  Masato Taruishi <taru@debian.or.jp>
+
+	* 00README $B$rDI2C!#(B
+
+1999-03-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* refile, copy $B$,0lIt<:GT$7$F$bA4BN$K1F6A$7$J$$$h$&$K$7$?!#(B
+	* wl-ja.texi $B$r(B ptex $B$G%U%)!<%^%C%H$7$F8+$d$9$$$h$&(Bsection $B3d$j$r(B
+	  $B9=@.$7$J$*$9(B ($B?9F#$5$s(B <hajime@morito.org> $B$h$j8f;XE&(B)$B!#(B
+
+1999-03-09 Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* $B$^$.$i$o$7$$$N$G%j%U%!%$%kCf!"%+!<%=%k$,%P%C%U%!KvHx$K(B
+	  $B0\F0$7$J$$$h$&$K$7$?!#(B
+
+1999-03-06 Ishikawa Ichiro  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* [im-wl.el] wl-insert-message-id $B$r(B nil $B$K@_Dj$7$F$b!"(BMessage-Id
+	  $B$r$D$1$F$7$^$&$N$r=$@5!#(B
+
+1999-03-04 Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* tm-wl.el $B$N(B tm-wl-setup() $B$G!"(B
+	  (fset 'mime-preview/x-face-function-use-highlight-headers nil)
+	  $B$7$F$$$?$N$r$d$a$k!#(B
+	  ($B:72eED$5$s(B <sagata@nttvdt.hil.ntt.co.jp> $B$h$j8f;XE&(B)
+	* $B?75,%3%^%s%I(B wl-summary-refile-prev-destination "M-o" $B$K%P%$%s%I!#(B
+	  ($B:72eED$5$s(B <sagata@nttvdt.hil.ntt.co.jp> $B$h$j8fMWK>(B)
+	* $B?75,%3%^%s%I(B wl-summary-copy-prev-destination "M-O" $B$K%P%$%s%I!#(B
+
+1999-03-05  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* tm $B$r;H$C$F$$$k;~$K(B User-Agent: $B$K(B '\n' $B$,F~$C$F$7$^$&$N$r=$@5!#(B
+	* Subject $B$r(B [???, 0000] $B$N$h$&$K$D$1$k(B ML $B$KBP1~!#(B
+
+1999-03-04  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* (featurep 'xpm) $B$N(B xemacs $B$r(B -nw $B$G$"$2$?$H$-$K(B wl $B$r5/F0$9$k$H(B
+	   warning $B$,=P$k$N$r=$@5!#(B
+	* $BJQ?t(B wl-auto-insert-x-face $B$NDI2C!#(B(default = t)
+	* wl-auto-insert-x-face t $B$G$+$D!"(B~/.xface $B$,$"$k$H$-$O<+F0E*$KA^F~!#(B
+	  ($B:#$^$GDL$j(B,default)
+	* draft $B:n@.;~$K(B wl-draft-insert-x-face-field$B$G(B X-Face: $B$rA^F~2DG=(B
+	  $B$H$7$?!#(B(C-c C-a $B$K%P%$%s%I(B)
+	* C-c C-a $B$N;~$K!"(B ~/.xface $B$,L5$1$l$P(B error message $B$rH/@8$5$;$k(B
+	  $B$h$&$K$7$?!#(B
+
+1999-03-03  A.SAGATA  <sagata@nttvdt.hil.ntt.co.jp>
+
+	* $B?75,(B hook wl-summary-refile-hook $B$rDI2C!#(B
+
+1999-03-03  Hajime MORITO  <hajime@morito.org>
+
+	* [wl-ja.texi] ptex $B$G@07A$9$k$H%(%i!<$K$J$k$N$r=$@5!#(B
+	* [wl-ja.texi] '{','}' $B$,I=<($5$l$F$$$J$$ItJ,$r=$@5!#(B
+
+1999-03-03  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.6 - "Dirty Diana"
+	* [elmo] $B$X$s$J(B cache $B%U%!%$%k$,$"$C$?$H$-$K(B cache $B$N(B expire $B$,(B
+	  $BF0$+$J$+$C$?$N$r2sHr!#(B
+	* $B?75,JQ?t(B wl-summary-auto-refile-skip-marks$B!#L$FI%a%C%;!<%8$O(B
+	  auto-refile $B$NBP>]$+$i30$7$?!#(B
+	  ($BBg>l$5$s(B <Koichiro.Ohba@nf-system.co.jp> $B$h$j8fMWK>(B)
+	* imap4 $B$G%a%C%;!<%8$rI=<($7$?$H$-$KM>J,$KL$FI%U%i%0$r%;%C%H(B
+	  $B$7$F$$$?(B(!)$B$N$r=$@5!#(B
+	* [wl-ja.texi] wl-summary-wday-use-japanese $B$N5-=R$r:o=|!#(B
+	  wl-summary-weekday-name-lang $B$N@bL@$rDI2C!#(B
+	  ($B@P9u$5$s(B <kunihiro@zebra.org> $B$h$j8f;XE&(B)
+	* [wl-ja.texi] wl-summary-fix-timezone $B$N5-=R$rDI2C!#(B
+	  ($B<M>l$5$s(B <iba+@andrew.cmu.edu> $B$h$j8f;XE&(B)
+
+1999-03-01  Hermit-chan <hermit@tomato.saino.ne.jp>
+
+	* wl-draft-folder $B$r@_Dj$7$F$$$k>l9g!"(B
+	  M-x wl $B$9$kA0$K(B M-x wl-draft $B$9$k$H!"(Berror $B$K$J$k$N$r=$@5!#(B
+
+1999-03-01  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* wl-highlight $B$H(B ChangeLog $B$N(B typo $B=$@5!#(B
+
+1999-03-01  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B4X?t(B wl-ask-folder $B$,(B XEmacs $B$N%-!<0J30$N%$%Y%s%H$r$9$Y$F(B
+	  $BF1$8$H$_$J$7$F$7$^$&$N$r=$@5!#(B
+
+1999-02-28  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft-config-alist $B$N=q<0$r3HD%!#(B
+
+1999-02-26  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* [wl-refile] extra-field $B$r<h$k$H$-$K(B downcase $B$9$k$h$&$K$7$?!#(B
+	* [wl-refile] $B$$$i$J$$JQ?t$r:o=|!#(B
+
+1999-02-26  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Summary $B$N%a%K%e!<$r=$@5!#(B
+
+1999-02-25  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B%U%#%k%?%U%)%k%@$NL$FI%A%'%C%/$,<:GT$9$k$N$r=$@5!#(B
+
+1999-02-10  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* draft $B$G(B font-lock $B$,M-8z$K$J$k$N$r2sHr!#(B
+
+1999-02-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.9.5 - "California Girls"
+
+1999-02-25  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder-notify-deleted $B$,(B 'sync $B$J$iIi$N?t$rI=<($;$:(B
+	  $BF14|$5$;$k$h$&$K$7$?!#(B
+
+1999-02-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $B?75,JQ?t(B wl-folder-notify-deleted$B!#%a%C%;!<%8$,:o=|$5$l$F$$$?$H$-(B
+	  $B$KIi$N?t;z$rI=<($7$FCN$i$;$k$+$I$&$+!#(Bdefault $B$O(B nil $B$K$7$?!#(B
+	* wl-summary-auto-refile $B$r%G%U%)%k%H$G$O%9%l%C%I$rJD$8$?$^$^(B
+	  $B=hM}$9$k$h$&$K$7$?!#(BPrefix argument $B$D$-$J$iA4%9%l%C%I$r3+$$$F(B
+	  $B$+$i<B9T!#(B
+	* $B?75,JQ?t(B wl-x-face-file$B!#%G%U%)%k%H$O(B "~/.xface"$B!#(B
+
+1999-02-16  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B?75,4X?t(B elmo-passwd-alist-{load,save}$B!#(B
+	  $B?75,JQ?t(B elmo-passwd-alist-file-name $B$K@_Dj$5$l$?%U%!%$%k(B{$B$+$i(B|$B$X(B}
+	  $B%Q%9%o!<%I$r(B{$B%m!<%I(B|$B%;!<%V(B}$B$9$k!#(B
+
+1999-02-11  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* [wl-ja.texi] $B$K(B "~/.xface" $B$N@bL@$rDI2C!#(B
+
+1999-02-06  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-draft-replace-field () $B$G(B header $B$r(B insert $B$9$k$H$-$K(B
+	  "\n" $B$r@h$K(B concatinate $B$7$F$+$i(B insert $B$9$k$h$&$K$7$?!#(B
+
+1999-02-06  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* imap $B$GL$FI>pJs$r%3%T!<@h$K$b0z$-7Q$0$h$&$K$7$?!#(B
+
+1999-02-05  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* refile $B$N08@hMQ$N(B face$B!"(Bwl-highlight-refile-destination-face
+	  $B$r?7@_!#(B
+	* [wl-ja.texi] '$' $B$N@bL@J8$r=$@5!#(B
+	  ($B8eF#(B($B$H(B)$B$5$s(B <pf21@pure.cpdc.canon.co.jp> $B$h$j8f=u8@(B)
+
+1999-02-04  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* XEmacs $B$G%U%)%k%@$NL$FI%A%'%C%/8e%O%$%i%$%H$,$*$+$7$/$J$k>l9g$,(B
+	  $B$"$C$?$N$r=$@5!#(B
+
+1999-02-03  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B?75,4X?t(B wl-folder-prefetch-entity$B!#(B"I" $B$K%P%$%s%I!#(B
+
+1999-02-03  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* [sample.dot.wl] my-wl-summary-from-func-petname $B$N(B
+	  folder $BL>$r;2>H$9$kItJ,$r(B summary-mode $B$G$N$_8F$P$l$k$h$&$K$7$?!#(B
+
+1999-02-03  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* $B4X?t(B wl-summary-auto-refile, wl-refile-rule-alist $B$NDI2C!#(B
+
+1999-02-02  IMAI Takeshi <imai@ed2.com1.fc.nec.co.jp>
+
+	* wl-expire $B$G(B imap $B@h$K(B refile $B$9$k$H%(%i!<$K$J$k$N$r=$@5!#(B
+
+1999-01-29  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* Summary$B%b!<%I$N(B view $B$r(B cache $B$K%;!<%V$9$k$H$-!$(B
+	  widen $B$9$k$h$&$KJQ99!#(B
+
+1999-01-22  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-auto-check-folder-name $B$N3HD%!#(B
+
+1999-01-19  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%U%)%k%@%b!<%I$G(B expire $B$r$9$k;~$K!$%5%^%j>pJs$r(Bupdate$B$7$F$+$i(B
+	  expire $B$,9T$($k$h$&$K$7$?!#(B
+	* reserve-marked-msg $B$r>J$$$?7k2L!$(Bexpire$B$9$k%a%C%;!<%8$,$J$/(B
+	  $B$J$k$H!$%(%i!<$,5/$3$k$N$r=$@5$7$?!#(B
+	* elmo-datevec-substitute $B$K$*$$$FG/$r$^$?$0>l9g$r9MN8$7$?!#(B
+
+1999-01-19  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $B?75,JQ?t(B wl-auto-uncheck-folder-list, wl-auto-check-folder-list$B!#(B
+	  $B5/F0;~$N%0%k!<%W%A%'%C%/$G%A%'%C%/$r%9%-%C%W$9$k$+$I$&$+@_Dj$G$-$k(B
+	  $B$h$&$K$7$?!#(B($B85LZ$5$s(B <motoki@ptl.abk.nec.co.jp> $B$h$j8fMWK>(B)
+	  $B%G%U%)%k%H$G$O(B archive $B%U%)%k%@$N%A%'%C%/$r%9%-%C%W!#(B
+	* [elmo-nntp] $B%5!<%P$+$i(B Message-ID $B$r$b$i$&ItJ,$,%P%0$C$F$$$?$N$r(B
+	  $B=$@5!#(B
+
+1999-01-18  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-ja.texi $B$r99?7(B (mA, mf $B$N@bL@DI2CEy(B)$B!#(B
+	* wl-folder-{prev,next}-unread $B$G(B unread $B$G$J$$(Bgroup$B$X$OHt$P$J$$(B
+	  $B$h$&$K$7$?(B(Prefix ARG $B$D$-$J$i(B group $B$X$bHt$V(B)$B!#(B
+	  ($B2,ED$5$s(B <kokada@tamaru.kuee.kyoto-u.ac.jp> $B$N8f;XE&(B)
+	* wl-folder-check-entity $B$G%U%)%k%@$,$J$/$J$C$F$$$?$H$-$J$I(B
+	  $B%(%i!<$G;_$^$C$F$7$^$&$N$r2sHr!#(B
+	  ($B@P@n$5$s(B <ichiro@mail.ne.jp> $B$h$j8f;XE&(B)
+
+1999-01-16  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B?75,4X?t(B wl-summary-temp-mark-uudecode$B!#(B
+	* wl-ja.texi $B$rJQ99(B (@item->@defvar $BEy(B)$B!#(B
+
+1999-01-15  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-{folder|summary}-goto-folder() $B$G(B ~/.folders $B$K$J$$%U%)%k(B
+	  $B%@$r;XDj$7$?>l9g$K$b!"B8:_$7$J$$(B property $B$r;2>H$7$h$&$H$7$F(B
+	  $B$3$1$k%P%0$r=$@5!#(B
+
+1999-01-15  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* [elmo-archive] header-regexp $B$G(B footer $B$b(B check$B!#(B
+	* [elmo-archive] rar $B$N05=LN($r>e$2$?!#(B
+
+1999-01-15  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* 19.28$B%Y!<%9$N(B Emacs $B$G(B wl-expire $B$,=PMh$J$+$C$?$N$r=$@5$7$?!#(B
+	* elmo-date $B$GG/$r$^$?$$$@;XDj$,9T$($k$h$&$K$7$?!#(B
+	* [fldmgr] Emacs-19 $B$G(B wl-fldmgr-add $B$,@5>o$KF0:n$7$J$+$C$?$N$r(B
+	  $B=$@5$7$?!#(B
+
+1999-01-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* Emacs-19 $B0JA0$G$O%"%/%;%9%0%k!<%W$N3,AX9=B$$,:n$i$l$J$$$N$r=$(B
+	  $B@5$7$?!#(B
+	* [fldmgr] $B6u$N%0%k!<%W$K%U%)%k%@$rA^F~$9$k$H%(%i!<$K$J$k$N$r=$(B
+	  $B@5$7$?!#(B
+	* [expire] elmo $B$N8F=P$7$G<:GT$7$?>l9g$O%(%i!<$G;_$a$k$h$&$K$7$?!#(B
+
+1999-01-14  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-summary-temp-mark-prefetch $B$,F0$+$J$/$J$C$F$$$?$N$G:F<BAu!#(B
+	  ($B2,ED$5$s(B <kokada@tamaru.kuee.kyoto-u.ac.jp> $B$N8f;XE&(B)
+	* Meadow$B$GF|K\8l(B Subject$B$N%a!<%k$KJV;v$r=q$3$&$H$9$k$H!$(B
+	  $B%I%i%U%H$KMQ0U$5$l$?%a!<%k$N%5%V%8%'%/%H$,!$%(%9%1!<%W(B
+	  $B%3!<%I4]=P$7$G2=$1$F$7$^$&$N$r=$@5!#(B
+	  ($BHSED$5$s(B <iida@isl.ntt.co.jp> $B$N8f;XE&(B)
+
+1999-01-13  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Windows $B$G(B LHA archive $B$,F0$/$h$&$K=$@5!#(B
+
+1999-01-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.4 - "Broken Wings"
+	* wl-folder-init-no-load-access-folders $B$H(B
+	  wl-folder-init-load-access-folders $B$NN>J}$,(B nil $B$N$H$-!"(B
+	  $BA4$F$N%U%)%k%@>pJs$r%m!<%I$7$J$+$C$?$N$r=$@5!#(B
+	* NNTP $B$N(B multi $B%U%)%k%@$rC&=P8e!"F1$8%U%)%k%@$K9T$-D>$9$H!"(B
+	  fetch error $B$,H/@8$9$k>l9g$,$"$C$?$N$r=$@5!#(B
+
+1999-01-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder-entity-alist $B$H(B wl-folder-entity-id-name-alist $B$r(B
+	  obarray (hashtable) $B$K$7$?!#(B
+	* wl-folder-entity-alist $B$H(B elmo-folder-info-alist $B$rE}9g$7$?!#(B
+	* check $B;~$NI=<(99?7$r9bB.2=$7$?!#$^$?!$JQ?t(B
+	  wl-folder-check-fast $B$rGQ;_$7$?!#(B
+	* $B=i4|2=;~$K%m!<%I$9$k%"%/%;%9%0%k!<%W$N%U%)%k%@$r;XDj$G$-$k$h$&$K(B
+	  $B$7$?!#(B
+	* $B%"%/%;%9%0%k!<%W$N%j%9%H$r3,AX9=B$$G<hF@$G$-$k$h$&$K$7$?!#(B
+	* unsubscribe$B$5$l$?%U%)%k%@$rI=<($9$k$H$-$N%^!<%/$r(B '#' $B$KJQ$($?!#(B
+	* $B%U%)%k%@%b!<%I$G$NA`:n$G;~4V$,$+$+$k$b$N$O7P2a$rI=<($9$k$h$&$K(B
+	  $B$7$?!#(B
+
+1999-01-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-tmp-dir $B$,$J$1$l$P5/F0;~$K$D$/$k$h$&$K$7$?!#(B
+	  ($BLgOF$5$s(B <kadowaki@stat.phys.titech.ac.jp> $B$h$j8f;XE&(B)
+	* wl-queue-folder $B$,$J$1$l$P5/F0;~$K:n$k$h$&$K$7$?!#(B
+
+1999-01-12  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* window-width $B$,(B 100 $B$N;~$J$I$K!$(Bwl-demo $B$G(B xpm $B$,??$sCf$K$G$J$$(B
+	  $B$N$r=$@5!#(B
+
+1999-01-12  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* [elmo-archive] rar $B$N%Q%i%a!<%?DI2C$H(B windows-nt $B8~$1=$@5!#(B
+
+1999-01-12  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* [elmo-nntp] "-/" $B$GA4%K%e!<%9%0%k!<%W$rI=<($9$k$h$&$K$7$?!#(B
+	  ($B@P@n$5$s(B <ichiro@mail.ne.jp> $B$h$j8f;XE&(B)
+	  ($B$7$+$7(B 1999-1-13 $B$NB<ED$5$s%Q%C%A$G$3$NJQ99$O>e=q$-!#(B)
+	* unplugged $B$G(B filter $B%U%)%k%@$NF0:n$,$*$+$7$+$C$?$N$r=$@5!#(B
+	* 'mA' ($B0l;~%^!<%/$D$-%a%C%;!<%8$KBP$9$k%^%k%A0zMQ$D$-%j%W%i%$(B)$B!$(B
+	  'mf' ($B0l;~%^!<%/$D$-%a%C%;!<%8$N%^%k%A%U%)%o!<%I(B)$B!#(B
+	  ($BKLL\$5$s(B <kitame@northeye.org> $B$N8fMWK>$K4p$E$/(B)$B!#(B
+	* unplugged $B$K$7$?$"$H%5%^%j$rC&=P$9$k$H%-%c%C%7%e$,%;!<%V$5$l$J$$(B
+	  $B%P%0$r=$@5!#(B
+	* [elmo-nntp] Cancel-Lock $B$KBP1~$7$?$D$b$j!#(B
+
+1999-01-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-dnd.el XEmacs21.2.8 $B$N(B API $B$K9g$o$;$?!#(B
+
+1999-01-08  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-localdir-list-folders-subr() $B$G(B
+	  $B?F%U%)%k%@$,4^$^$l$J$/$J$C$F$7$^$&$N$r=$@5!#(B
+
+1999-01-06  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $B?75,(B hook$B!$(Bwl-highlight-message-hook $BDI2C!%(B
+
+1999-01-05  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [elmo-util] elmo-default-imap4-server $B$r(B
+	  "hoge%imap_server@gw" $B$N$h$&$J7A<0$G$b;XDj$G$-$k$h$&$K$7$?!#(B
+
+1999-01-05  Hironori Fukuchi <nory@valis.co.jp>
+
+	* To$B$KB8:_$7$J$$%"%I%l%9$r=q$$$FAw?.$9$k$H!"%_%K%P%C%U%!$K$O(B
+	  sending...done$B$HI=<($5$l!"@5>o$KAw?.$5$l$?$+$N$h$&$K8+$($k$,(B
+	  $B<B:]$K$OAw?.$K<:GT$7$F$7$^$&%P%0$r=$@5!#(B
+
+1999-01-03  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-draft-edit-string() $B$G(B To: $B%U%#!<%k%I$,>o$K(B nil $B$K$5$l$F(B
+	  $B$7$^$&%P%0(B (typo) $B$r=$@5!#(B
+
+1998-12-31  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-localdir-list-folders-subr() $B$G%5%V%G%#%l%/%H%j$,B8:_$9(B
+	  $B$k?F%U%)%k%@$,=EJ#$7$F$7$^$&%P%0$r=$@5!#(B
+	* wl-summary-redisplay-no-mime() $B$G$O(B wl-break-pages $B$r(B nil $B$K(B
+	  $BB+G{$9$k!#(B
+	* elmo-localdir-list-folders-subr() $B$G(B link count $B35G0$N$J$$%U%!(B
+	  $B%$%k%7%9%F%`$G$bFs3,AX0J>e2<AX$N%G%#%l%/%H%j$bJV$9$h$&$K$7$?(B
+	  $B!J=i4|CM$G$O(B OS/2 $BHG(B variant $B$H(B Mule for Win32 $B$N$_!K!#(B
+	* $B<B:]$K8F$P$l$F$J$$L5BL$J4X?t$r>C$7$?!#(B
+
+1998-12-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $BF1$8L>A0$N%U%)%k%@$,%0%k!<%W$h$j$bA0$KB8:_$9$k$H%(%i!<$,H/@8$9$k$N$r(B
+	  $B=$@5!#(B
+
+1998-12-27  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [wl-folder] wl-folder-mark-as-read-all-current-entity() $B$GA4(B
+	  $B$F$N%U%)%k%@$K0\F0$;$:!"?75,!?L$FI$,B8:_$9$k%U%)%k%@$@$1$r(B
+	  catchup $B$9$k$h$&$K$7$?!J9bB.2=$N$?$a!K!#(B
+
+1998-12-25  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* Meadow $BEy$N(B Emacs20.2 $B0J2<$G%5%^%j$,J8;z2=$1$9$k%P%0$N=$@5$r(B
+	  $BH?1G$7K:$l$F$$$?!#(B
+	  ($B$P$P$5$s(B <tbaba@mtl.t.u-tokyo.ac.jp> $B$h$j8f;XE&(B)$B!#(B
+
+1998-12-24  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.9.3 - "Last Christmas" $B%/%j%9%^%98BDjHG(B(?)
+
+1998-12-23  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%Q%9%;%Q%l!<%?$H$7$F(B "/" $B$r;H$C$F$$$?$N$r=$@5$7$?!#(B
+	* delete $B$N;HMQ$G(B delq $B$G:Q$`$H$3$m$OCV$-49$($?!#(B
+
+1998-12-21  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,%U%!%$%k(B wl-expire$B!#(B
+	  $B8E$$%a%C%;!<%8$r<+F0E*$K:o=|!&0\F0$9$k5!G=$rDI2C$7$?!#(B
+	* wl-fldmgr $B$r(B autoload $B2=$7$?!#(B
+	* wl-folder $B$G4v$D$+$N%3%^%s%I(B($B%0%k!<%W$N<+F0(Bopen$B4X78(B)$B$N@0M}!&9b(B
+	  $BB.2=$r9T$C$?!#(B
+	* wl-demo.el $B$N%P%$%H%3%s%Q%$%k$G(B XEmacs $B0J30$G$O%m%4%U%!%$%k$r(B
+	  $BFI$_9~$^$J$$$h$&$K$7$?!#(B
+	* [elmo-archive] elmo-archive-treat-file $B$,(B non-nil $B$N$H$-!$(B
+	  elmo-archive-list-folders $B$G%G%#%l%/%H%j$,B8:_$7$J$$>l9g$K%(%i!<(B
+	  $B$K$J$k$3$H$,$"$k$N$r=$@5$7$?!#(B
+	* [WL 838] $B$K$"$k8e$m$N(B2$B$D$N%Q%C%A$,Ev$?$C$F$$$J$+$C$?$N$rH?1G$7(B
+	  $B$?!#(B
+
+1998-12-21  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $BAw?.;~$K(B XEmacs $B$G%(%i!<$,H/@8$9$k$H(B wrong type argument $B%(%i!<$,(B
+	  $BH/@8$9$k$N$r2sHr!#(B($B?@V:$5$s(B<kamisima@etl.go.jp>$B$h$j8f;XE&(B)
+
+1998-12-18  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $B%/%j%9%^%9$i$7$$5$J,$r=P$7$F$_$?!#(B
+	* wl-draft $B$N0z?t$O%G%3!<%I$5$l$?J8;zNs$H$9$k$3$H$K$7$?!#(B
+	  ($BCfB<$5$s(B<u90121@uis-inf.co.jp> $B$N=$@5$K4p$E$/JQ99(B)
+	* Meadow $BEy$N(B Emacs20.2 $B0J2<$G%5%^%j$,J8;z2=$1$9$k%P%0$N=$@5!#(B
+	  ($BCfB<$5$s(B<u90121@uis-inf.co.jp>$B!"(B
+	   $BF#0f$5$s(B<fujii@mail.fjts.fujitsu.co.jp> $B$h$j8fJs9p(B)
+
+1998-12-17  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* "Re:" $B$r4^$a$F%(%s%3!<%I$5$l$k>l9g$K(B "Re: Re:" $B$H$J$C$F$7$^$&(B
+	  $B$N$r2sHr!#(B
+
+1998-12-17  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.2 - "Addicted To Love"
+
+1998-12-17  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [fldmgr] $B6u$N%0%k!<%W$r:o=|$9$k$H!$(B
+	  wl-folder-entity-id-name-alist $B$,2u$l$k>l9g$,$"$k$N$r=$@5$7$?!#(B
+	* [elmo-archive] method $B$K4X?t$,Dj5A$G$-$k$h$&$K$7$?!#(B
+	* [elmo-archive] 'tgz $B7A<0$G$bDI2C$H:o=|$,9T$($k$h$&$K$7$?!#(B
+	  $B$^$?!$(B'tgz $B$N(B suffix $B$r(B ".tar.gz" $B$KJQ99$7$?!#(B
+	* [elmo-archive] elmo-archive-msgdb-create-as-numlist-subr2() $B$,(B
+	  prefix $B$r9MN8$7$F$J$+$C$?$N$r=$@5!#(B
+
+1998-12-16  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* Draft $B%P%C%U%!$G!"(BMail $BMQ%a%K%e!<$N%3%^%s%I$NFbMF$r(B
+	  wl $B$N$b$N$KCV$-49$($k$h$&$K$7$?!#(B
+	* smtp.el $B$,:G?7$N(B apel $B$G$J$/$H$bF0:n$9$k$h$&!"(B
+	  open-network-stream-as-binary $B$,L$Dj5A$J$iDj5A$9$k$h$&$K$7$?!#(B
+	* smtp.el $B$r:G?7$N(B FLIM $B$N$b$N$K9g$o$;$?!#(B
+
+1998-12-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* [fldmgr] nntp$B$G$J$$%U%)%k%@$rDI2C$9$k$H!$(B
+	  wl-folder-newsgroups-hashtb $B$,(B nil $B$K$J$k$N$r=$@5$7$?!#(B
+
+1998-12-16  Hidekazu NAKAMURA <u90121@uis-inf.co.jp>
+
+	* SEMI $B$rMxMQ$9$k>l9g(B smtp.el $B$r%$%s%9%H!<%k$7$J$$$h$&(B WL-ELS $B$r(B
+	  $BJQ99!#(B
+
+1998-12-15  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* In-Reply-To: $B$NF|IUItJ,$r(B "" $B$G3g$k$h$&$K$7$?!#(B
+	* wl-summary-rescan $B$G@8@.$5$l$?%5%^%j$NJ]B8$O!"%9%-%c%s=*N;;~$G$O(B
+	  $B$J$/%5%^%j=*N;;~$K$^$H$a$F$d$k$h$&$K$7$?!#(B
+	* $B?75,JQ?t(B wl-folder-thread-indent-set-alist$B!#%U%)%k%@$4$H$K(B
+	  $B%9%l%C%I$N%$%s%G%s%HJ8;zNs$rA*$Y$k$h$&$K$7$?!#(B
+	  wl-thread-indent-level, wl-thread-have-younger-brother-str,
+	  wl-thread-youngest-child-str, wl-thread-vertical-str,
+	  wl-thread-horizontal-str, wl-thread-space-str $B$O(B
+	  $B$3$l$K%^%C%A$7$J$$>l9g$N(B default $BCM$H$7$FMQ$$$k$h$&JQ99!#(B
+	* $B?75,JQ?t(B wl-folder-weekday-name-lang-alist$B!#%U%)%k%@$4$H$K(B
+	  $BMKF|I=<($N8@8l$rA*$Y$k$h$&$K$7$?!#(B
+	  wl-summary-weekday-name-lang $B$O$3$l$K%^%C%A$7$J$$>l9g$N(B
+	  default $BCM$H$7$FMQ$$$k$h$&JQ99!#(B
+	* elmo-nntp.el,elmo-imap4.el,elmo-msgdb.el $B$G!"(Bmsgdb $B$KJ]B8$9$k(B
+	  Subject, From $B$NJ8;zNs$N:n$jJ}$,4V0c$C$F$$$?$?$a!"Cf9q8l$d%O%s%0%k(B
+	  $B$,2=$1$F$7$^$C$F$$$?$N$r=$@5!#(B
+	* Summary $B$N(B cache $B$N(B{$BA^F~(B|$BJ]B8(B}$B$r(B as-binary-{input|output}-file
+	  $B$G9T$J$&$h$&$K$7!"%P%C%U%!$4$H$N(B mime-charset $B$G(B{encode|decode}$B$9$k(B
+	  $B$h$&$K$7$?!#(B
+	* wl-init $B$G(B wl-draft-folder $B$,B8:_$7$J$$$H$-$b(B elmo-create-folder ()
+	  $B$r8F$V$h$&$K$7$?!#(B
+	* wl-generate-user-agent-string $B$r(B Nemacs $BBP1~!#(B
+	  $B$D$$$G$K(B tm $B$N%P!<%8%g%s>pJs$bF~$l$k$h$&$K$7$?!#(B
+	* $B%a%C%;!<%8:o=|;~!"Ev3:%a%C%;!<%8$,JD$8$?%9%l%C%I$K1#$l$F$$$?$H$-$K!"(B
+	  $B;R$I$b%9%l%C%I$r$*$+$7$J0LCV$KA^F~$7$F$7$^$&$3$H$,$"$k$N$r=$@5(B
+	  ($B$7$?$D$b$j!D(B)$B!#(B
+	* bbdb-wl.el $B$G%P%$%H%3%s%Q%$%k$KI,MW$J%b%8%e!<%k$r(B require $B$9$k(B
+	  $B$h$&$K$7$?!#(B
+	* smtp-via-smtp $B$r(B (as-binary-process) $B$G3g$C$?!#(B
+	  ($B>.6L(B $B$5$s(B <kodama@ayame.mfd.cs.fujitsu.co.jp> $BB>$h$j$$$?$@$$$?(B
+	   $B8fJs9p$K4p$E$/(B)
+	* [wl-ja.texi] $B%G%U%)%k%H$G(B @directory $B$,M-8z$K$J$k$h$&$K$7$?!#(B
+	  ($B@iED$5$s(B <senda@iod.ricoh.co.jp> $B$h$j8f;XE&(B)
+
+1998-12-13  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* $B?75,%U%!%$%k(B wl-mule.el, wl-nemacs.el$B!#(B
+	* wl-nemacs $B%V%i%s%A$r%^!<%8!#(B
+
+1998-12-10  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* message-id $B$,4^$^$l$F$$$J$$(B In-Reply-To $B%U%#!<%k%I$,$"$k$H!$Be(B
+	  $B$o$j$K(B Reference $B%U%#!<%k%I$,$"$C$F$b;2>H$5$l$J$$%P%0$r=$@5!#(B
+
+1998-12-11  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 0.9.1 - "Yankee Rose"
+
+1998-12-10  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%I%i%U%H%P%C%U%!$NL>A0$rJQ99$7$?!#(B("1" -> "+draft/1")
+	* $B?75,4X?t(B wl-jump-to-draft-buffer$B!#(B
+	* wl-draft-config-alist $B$N=hM}$G(B1$B$D%^%C%A$7$F$bB3$1$F=hM}$r9T$&(B
+	  $B$h$&$K$7$?!#(B
+	* wl-draft-config-exec-hook $B$rDI2C!#(B
+	* $B?75,JQ?t(B wl-draft-always-delete-myself$B!#(B
+	* $B%"!<%+%$%V%U%)%k%@$N(B prefix $B$K?t;z$,4^$^$l$F$$$?>l9g!$(B
+	  elmo-archive-list-folder $B$,>o$K(B nil $B$rJV$9$N$r=$@5$7$?!#(B
+	* elmo-*-copy-msgs $B$O@.8y$9$l$P(B non-nil $B$rJV$9$h$&$K$7$?!#(B
+	* elmo-move-msgs $B$G$N%3%T!<$K<:GT$9$l$P:o=|$r<B9T$7$J$$$h$&$K$7(B
+	  $B$?!#(B
+
+1998-12-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* elmo-match-string, elmo-match-buffer $B$r;H$($k$H$3$m$O;H$&$h$&$K$7$?!#(B
+	* wl-insert-mail-followup-to, wl-insert-mail-reply-to $B$N(B default $B$r(B
+	  nil $B$K$7$?!#(B
+	* wl-ja.info $B$r(B Emacs 20.3 $B$G:n$k$h$&$K$7$?!#(B
+	* "M-x wl-draft" $B$G$b@5$7$/5/F0$G$-$k$h$&$K$7$?!#(B
+	* Mule $B$b%P%$%H%3%s%Q%$%k;~$N(B Warning $B$r8:$i$7$?!#(B
+
+1998-12-10  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* pack-number $B8e$K!"(Bmsgdb $B$N(B number-alist $B$,99?7$5$l$F$J$+$C$?(B
+	  $B$N$r=$@5!#(B
+
+1998-12-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-bcc $B$,@_Dj$5$l$F$$$l$P(B mail-self-blind $B$NCM$K4X78$J$/(B Bcc: $B$r(B
+	  $BA^F~$9$k$h$&$K$7$?(B (wl-fcc $B$HF0:n$r9g$o$;$?(B)$B!#(B
+
+1998-12-10  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* $B?75,JQ?t(B wl-bcc$B!#(Bnon-nil $B$N$H$-$O(B wl-bcc $B$NCM$,(B Bcc: $B$KF~$k!#(B
+
+1998-12-10  SENDA Shigeya <senda@iod.ricoh.co.jp>
+
+	* XEmacs $B8~$1$K(B wl-ja.texi $B$r=$@5!#(B
+	* wl-ja.texi $B$G(B vindex$B$,0l$DH4$1$F$$$?$N$r=$@5!#(B
+	* WL-ELS $B$G(B xemacs $B$N(B install-package $B$N$H$-(B info $B$,%$%s%9%H!<%k(B
+	  $B$5$l$k$h$&$K$7$?!#(B
+
+1998-12-10  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* $B%9%l%C%I$NESCf$G!"JD$8$?%9%l%C%I$N%a%C%;!<%8$,$"$C$?;~!"(B
+	  $B$=$N%a%C%;!<%80J9_$N%9%l%C%I$,A^F~$5$l$J$$%P%0$,$"$C$?$N$r=$@5!#(B
+
+1998-12-09  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-move-msgs, elmo-copy-msgs $B$G%*%W%7%g%s;XDj$K$h$j!$%U%)%k(B
+	  $B%@85$NHV9f$N$^$^0\F0!$%3%T!<$9$k5!G=$NDI2C!#4XO"$7$F!$(B
+	  elmo-append-msg $B$b%*%W%7%g%s$G;XDj$7$?HV9f$GDI2C$9$k5!G=$NDI2C!#(B
+	* 'localdir $B$+$i(B 'archive $B$K%3%T!<$9$k>l9g$O(B1$BEY$KJ#?t$N%a%C%;!<(B
+	  $B%8$r=hM}$9$k$h$&$K$7$?!#(B
+
+1998-12-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* 0.9.0 - "With Or Without You"
+	* elmo-archive.el $B$N%P%$%H%3%s%Q%$%k;~$K(B Warning $B$,=P$J$$$h$&$K(B
+	  $B$7$?!#(B
+
+1998-12-09  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-archive.el "v0.16 [981208/alpha]"$B!#(B
+	* copy-msgs() $B$G(B dst-spec $B$N%U%)%k%@$,$J$1$l$P:n$k$h$&$K$7$?(B
+	  $B!J;{ED$5$s(B Masayuki TERADA <te@isl.ntt.co.jp> $B$N$4;XE&!K!#(B
+	* elmo-archive-treat-file $B$,(B non-nil $B$N;~$K(B get-archive-name()
+	  $B$G(B suffix $B$,(B regexp-quote() $B$5$l$F$J$$%P%0$r=$@5!#(B
+
+1998-12-09  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* wl-folder-check-entity $B$GBP>]%U%)%k%@$,$^$@(B
+	  $BB8:_$7$J$$$H$-$O(B elmo-create-folder () $B$r8F$V$h$&$K$7$?!#(B
+	* wl-init $B$G(B wl-trash-folder $B$,B8:_$7$J$$$H$-$O(B
+	  elmo-create-folder () $B$r8F$V$h$&$K$7$?!#(B
+	  ($B1|@>$5$s(B<fuji0924@mbox.kyoto-inet.or.jp> $B$N8f;XE&(B)
+
+1998-12-08  Yuuichi Teranishi  <teranisi@isl.ntt.co.jp>
+
+	* XEmacs, Emacs $B$G%P%$%H%3%s%Q%$%i$,@8@.$9$k(B Warning $B$r8:$i$7$?!#(B
+	* mmelmo-imap4 $B$N(B mime-entity $B@8@.ItJ,$G(B parent $B$N07$$$,4V0c$C$F$$(B
+	  $B$?$?$a%(%i!<$,H/@8$9$k>l9g$,$"$C$?$N$r=$@5!#(B
+
+1998-12-07  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* 00README.ja $B$N%a!<%j%s%0%j%9%H%"%I%l%9$,8E$$$^$^$@$C$?$N$r=$@5!#(B
+
+1998-12-06  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-summary-buffer-view $B$,(B 'thread $B$N;~!$(Bwl-summary-cursor-up
+	  $B$N(B hereto $B$,L5;k$5$l$F$$$?$N$r=$@5$7$?!#(B
+	* wl-thread-jump-to-next-unread, wl-thread-jump-to-prev-unread$B$G(B
+	  hereto $B$,(B non-nil $B$N$H$-!$(Bsuccess-mark $B$,$J$/%+!<%=%k$,(B
+	  failure-mark $B$N0LCV$K$"$k$H!$La$jCM$,(B nil $B$K$J$k$N$r=$@5$7$?!#(B
+	* $B%5%^%j$N%"%C%W%G!<%H;~$N:o=|$G=hM}$N?JD=$rI=<($9$k$h$&$K$7$?!#(B
+
+1998-12-06  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-localdir-pack-number() $B$N%G%P%C%0%3!<%I=|5n$H7P2aI=<(!#(B
+	* data scope $BLdBj$G(B free var $B$K$J$i$J$$$h$&$K(B elmo-call-func()
+	  $B$G(B SPEC $B$rDL$9$h$&$K$7$?!J(Bbyte-compile warning $B$r>C$9$?$a!K!#(B
+
+1998-12-05  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-ja.texi $B$N$$$/$D$+$N$"$d$^$j$r=$@5!#(B
+
+1998-12-05  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,JQ?t(B elmo-archive-treat-file$B!#(Bnon-nil $B$N>l9g(B
+	  $B$O(B archive $B%U%)%k%@$,%U%!%$%k$rBP>]$H$9$k$h$&$K$7$?!#(B
+
+1998-12-04  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo $B$G:n@.$9$k0l;~%P%C%U%!$,(B WL $B$r=*N;$7$F$b;D$k>l9g$,$"$k$N(B
+	  $B$r=$@5$7$?!#(B
+	* wl-summary-rescan $B<B9T8e$b!$%+!<%=%k0LCV$r<B9TA0$HF1$8%a%C%;!<(B
+	  $B%8$N0LCV$K0\F0$9$k$h$&$K$7$?!#(B
+	* $B%5%^%j$N%"%C%W%G!<%HI=<($G%T%j%*%I$,(B2$B$D$+$5$J$i$J$$$h$&$K$7$?!#(B
+	* wl-summary-pick $B$G(B Since $B$H(B Before $B$NCM$rF~NO$9$k$H$-$O8uJd$,(B
+	  $BJd40$G$-$k$h$&$K$7$?!#(B
+	* completing-read $B$N%j%9%H$r@0M}$7$?!#(B
+	* wl-auto-select-first $B$,(B t $B$N$H$-$G$b!$(Bwl-summary-move-order $B$N(B
+	  $B;XDj$GM%@hEY$,Dc$$%^!<%/$7$+$J$$>l9g$O%a%C%;!<%8$rI=<($7$J$$$h(B
+	  $B$&$K$7$?!#(B
+	* elmo-archive-delete-msgs $B$,:o=|$K@.8y$7$?$H$-(B t $B$rJV$9$h$&$K$7$?!#(B
+
+1998-12-04  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl-summary-unread-message-hook $B$r(B
+	  wl-summary-mark-as-read  () $B$NCf$G8F$V$h$&JQ99!#(B
+
+1998-12-04  $B2,ED(B $B7r0l(B <kokada@tamaru.kuee.kyoto-u.ac.jp>
+
+	* $BL$FI5-;v$,FI$^$l$?$H$-$K8F$P$l$k(B wl-summary-unread-message-hook
+	  $B$rDI2C!#(B
+
+1998-12-03  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* folder mode $B$G%"!<%+%$%V%U%)%k%@$r(B check $B$7$F$bI=<($,99?7$5$l$J(B
+	  $B$$$H$-$,$"$k$N$r=$@5!#(B
+
+1998-12-03  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* wl_nemacs $B%V%i%s%A$r:n@.!"(BNemacs $BBP1~3+;O!#(B
+	* smtp.el $B$r(B flim-1.12 $BIUB0$N(B smtp.el $B$HF~$l49$(!"(B
+	  $BJQ99$5$l$?(B API $B$K9g$o$;$?(B
+	  (smtp-do-bcc $B$N:o=|!"(Bsmtp-via-smtp $B$N0z?t$NJQ99(B)$B!#(B
+	* im-wl.el $B$G$bJQ?t(B wl-insert-message-id $B$,$^$k$C$-$jL5;k$5$l$F$$$?(B
+	  $B$N$r=$@5!#(B
+	* wl-summary-prefetch-msg $B;~!"Bg$-$J%a%C%;!<%8$G%(%i!<$,$G$F$7$^$&(B
+	  $B%(%i!<$r=$@5!#(B
+	* $BIQHK$K;H$o$l$F$$$?(B append $B$r(B nconc $B$KCV$-49$($k$3$H$G(B
+	  multi $B%U%)%k%@$NF0:n$rA4HL$K9bB.2=!#(B
+
+1998-12-02  OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+	    Hironori Fukuchi <nory@valis.co.jp>
+
+	* wl-ja.texi $B$N$$$/$D$+$N$"$d$^$j$r=$@5!#(B
+
+1998-12-02  Yuuichi Teranishi  <teranisi@kyrie.dq.isl.ntt.co.jp>
+
+	* alpha -> beta$B!#(B
+	* $B$3$l$^$G$N(B ChangeLog $B$r(B etc $B$K0\F0!#(B
diff --git a/etc/ChangeLog.3 b/etc/ChangeLog.3
new file mode 100644
index 0000000..57e218a
--- /dev/null
+++ b/etc/ChangeLog.3
@@ -0,0 +1,2967 @@
+2000-03-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.1.0 - "Overjoyed"
+
+2000-03-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-refile.el (wl-refile-guess-func-list): Fixed defvar.
+	(Pointed out by KOYAMA Tetsuji <koyama@hoge.org>)
+	* 1.1.0pre6 - "Overjoyed-pre6"
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	Fixed localnews definition problem.
+	(Pointed out by AOXI Tenghe <fuji0924@mbox.kyoto-inet.or.jp>
+	and others)
+
+2000-03-23  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* wl-summary.el (wl-summary-mode-menu-spec): Changed wl-draft
+	to wl-summary-write.
+	(wl-summary-msg-marked-as-target):
+	Renamed from wl-summary-msg-marked-as-temp.
+	* wl-thread.el (wl-thread-close-all): Renamed local variable.
+
+2000-03-22  Akihiro MOTOKI <mokkun@iname.com>
+
+	* wl-refile.el (wl-refile-guess-func-list): New variable.
+	(wl-refile-guess): Use wl-refile-guess-func-list.
+
+2000-03-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el: Reduced byte compile warnings.
+	* wl-xmas.el,wl-mule.el,wl-nemacs.el (wl-make-modeline): Defined.
+	XEmacs shows plugged icon by default.
+	(Advised by Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>)
+	* wl-util.el (wl-make-modeline-subr): Renamed from wl-make-modeline.
+	* utils/bbdb-wl.el (bbdb-wl-update-record): Fixed sticky summary
+	problem.
+	(bbdb-wl-update-record, bbdb-wl-get-update-record):
+	Avoid raw buffer to be multibyte.
+	* wl-draft.el (wl-draft-reply):	Likewise.
+	* 1.1.0pre5 - "Overjoyed-pre5"
+
+2000-03-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* NEWS.ja: New file.
+	* elmo-maildir.el (elmo-maildir-list-folders):
+	Bind elmo-have-link-count as nil.
+	(Advised by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* wl-summary.el (wl-summary-edit-addresses-subr): Downcase addresses.
+
+2000-03-18  TAKAHASHI Kaoru <nil@din.or.jp>
+
+	* NEWS: New file.
+
+2000-03-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-message.el (wl-message-follow-current-entity):
+	Refer original buffer.
+	(Pointed out by OKAZAKI Tetsurou <okazaki@be.to>)
+	* elmo-maildir.el (elmo-maildir-list-folders):
+	Check if directory is Maildir.
+	(Pointed out by <hermit@lei.homeip.net>)
+
+2000-03-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	Fixed space regexp.
+	* wl-summary.el (wl-summary-edit-addresses): Get address from original
+	buffer.
+	(wl-summary-prefetch): Don't bind wl-prefetch-threshold as nil.
+
+2000-03-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.1.0pre4 - "Overjoyed-pre4"
+	* Fixed error messages in all files (don't finish message with ".")
+	* elmo/elmo-archive.el (elmo-archive-copy-msgs):
+	Don't use filename when same-number is non-nil in maildir.
+	* wl-expire.el (wl-expire-archive-get-folder):
+	Use elmo-replace-msgid-as-filename instead of elmo-safe-filename.
+	* wl-folder.el (wl-folder-goto-folder-subr): Set default as
+	wl-default-folder.
+	(Adviced by okada@opaopa.org (Kenichi OKADA))
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	Allow white space in folder name.
+	* wl-summary.el (wl-summary-jump-to-msg-by-message-id):
+	Use wl-thread-jump-to-msg when message was found in current folder.
+
+2000-03-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-summary-skip-mark-list): New variable.
+	* wl-summary.el (wl-summary-prefetch): Set wl-prefetch-threshold
+	nil only when interactive-p.
+	(Pointed out by Akihiro MOTOKI <motoki@ptl.abk.nec.co.jp>)
+	(wl-summary-exec-subr): Fixed mark counting bug.
+	(Pointed out by OKAZAKI Tetsurou <okazaki@be.to>)
+	(wl-summary-next, wl-summary-prev): Use wl-summary-skip-mark-list.
+	(wl-summary-move-cached-regex): defmacro->defun.
+	* etc/ja.Emacs: Update.
+	* elmo-imap4.el (elmo-imap4-search): Regard from-msgs.
+	* elmo-maildir.el (elmo-maildir-search): Fixed.
+	* mmelmo-imap4-1.el (mmelmo-imap4-parse-bodystructure-string):
+	Fixed literal parsing.
+
+2000-03-13  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-expire.el: Fixed problem of expiring in filter folder.
+	* wl-fldmgr.el: Inhibited newline character in folder name or petname.
+
+2000-03-12  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-fldmgr.el (wl-fldmgr-get-path-from-buffer):
+	Fixed problem when wl-desktop group is closed.
+
+2000-03-11  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-folder.el (wl-folder-mode-menu-spec): Updated.
+
+2000-03-08  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-vars.el (wl-score-files-dir): Renamed from
+	wl-score-files-directory.
+	* wl-score.el (wl-score-edit-file, wl-score-load-file,
+	wl-score-change-score-file): Ditto.
+
+2000-03-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-mime-charset): Set default value as x-ctext.
+
+2000-03-08  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-nntp.el (elmo-nntp-list-folders):
+	Fixed problem when root name is "".
+
+2000-03-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.1.0pre3 - "Overjoyed-pre3"
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	Use local unread information.
+	* elmo2.el (elmo-delete-folder): Added maildir folder.
+	(elmo-move-msgs): Local unread information was not taken over.
+	* elmo-maildir.el (elmo-maildir-delete-folder): Rewrite.
+	* mmelmo.el (mime-parse-parameters-from-list):
+	Moved from mmelmo-imap4.el.
+	* wl-message.el (wl-mmelmo-message-redisplay):
+	Bind mime-display-header-hook as nil.
+	* wl-mime.el (wl-mime-display-message): Fixed SEMI version detection.
+	(wl-summary-burst): Don't refer mime-message-structure.
+	(wl-mime-entity-read-field): New alias/macro.
+	(wl-mime-combine-message/partial-pieces):
+	Use wl-mime-entity-read-field.
+	(mime-edit-user-agent-value):
+	Workaround for duplicated XEmacs beta version (for SEMI 1.13.4
+	or earlier).
+
+2000-03-06  katsuta@cced.mt.nec.co.jp
+
+	* elmo-util.el (elmo-buffer-field-condition-match):
+	Fix problem when std11-field-body returns nil.
+
+2000-03-04  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-prefetch-msg): Don't refer mark.
+
+2000-03-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-read-folder): Use default when "".
+	* wl-fldmgr.el, wl-folder.el, etc: Begin message with upcase character.
+	* wl-draft.el (wl-draft-yank-original):
+	Fix problem in citation from kill-ring.
+	* mmelmo-1.el (insert-header):
+	Use mmelmo-insert-sorted-header-from-buffer.
+	(insert-text-content): New method.
+	Add (run-hooks 'mmelmo-entity-content-inserted-hook).
+	* utils/bbdb-wl.el (bbdb-wl-show-bbdb-buffer): New function.
+	Added to wl-summary-toggle-disp-folder-message-resumed-hook.
+	* 1.1.0pre2 - "Overjoyed-pre2"
+	* elmo-maildir.el (elmo-maildir-sequence-number-internal): New variable.
+	(elmo-maildir-make-unique-string): Definition for v19.
+	Don't use elmo-maildir-sequence-number-internal.
+	(elmo-maildir-temporal-filename): Don't wait 2 seconds.
+	(toplevel): Added (eval-when-compile (require 'cl).
+	* wl-summary.el (wl-summary-buffer-number-column-detect):
+	Don't use return value of re-search-forward.
+
+2000-03-06  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-pop3.el (elmo-pop3-port-label): Fixed typo (port->ssl).
+	* elmo-nntp.el (elmo-nntp-sync-number-alist):
+	Fixed bug that unread number sometimes becomes negative.
+
+2000-03-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-switch-to-clone-buffer):
+	Take over wl-summary-buffer-number-column,
+	wl-summary-buffer-number-regexp.
+	(wl-summary-write): New command. Binded to 'w'.
+	* wl-draft.el (wl-draft): Added behaviors for wl-summary-write.
+
+2000-03-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-cache.el (elmo-cache-list-folder-subr): Ignore directories.
+	* wl-summary.el (wl-summary-insert-line): New function.
+	(wl-summary-insert-summary, wl-summary-update-thread):
+	Use `wl-summary-insert-line'.
+	* wl-thread.el (wl-thread-update-line-on-buffer-sub):
+	Ditto.
+	* WL-MK (wl-info-lang): Install each element when listp.
+	* elmo/elmo-maildir.el (elmo-maildir-append-msg):
+	Use same name with tmp in new.
+	(elmo-maildir-list-folders): Contain root.
+
+2000-03-04  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-buffer-set-folder): Deleted column setting.
+	(wl-summary-goto-folder-subr): Dynamic detecting of column number.
+	(wl-summary-target-mark-forward): Fixed order of forward.
+	(wl-summary-cleanup-temp-marks): Delete target marks.
+
+2000-02-29  Ryota Nishikawa <nisikawa@nisikawa.org>
+
+	* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp):
+	Workaround for error which occurs in offline status.
+
+2000-03-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-thread.el (wl-thread-update-children-number):
+	Renamed from wl-thread-update-children-number.
+	New hook, wl-thread-update-children-number-hook.
+
+2000-03-04  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	wl-folder.el (wl-folder-sync-entity,
+	wl-folder-mark-as-read-all-entity,
+	wl-folder-prefetch-entity): Fixed highlighing in sticky
+	summary.
+
+2000-03-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo2.el (elmo-move-msgs): Skip saving unread info when target is
+	'null.
+	* elmo-maildir.el (elmo-maildir-make-unique-string):
+	Renamed from elmo-maildir-create-unique-string.
+	(Adviced by OKAZAKI Tetsurou <okazaki@be.to>)
+	* 1.1.0 pre1 - "Overjoyed-pre1"
+
+2000-03-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-reply-buffer): New buffer local variable.
+	(wl-draft-reply): Set `wl-draft-reply-buffer'.
+	(wl-draft-config-exec): Refer `wl-draft-reply-buffer'.
+	(wl-draft-reply<var>): Eliminated.
+	* WL-MK, WL-CFG (wl-info-lang): New variable.
+	* wl.texi: New file.
+	* Makefile, WL-MK, WL-CFG: ELISPDIR->LISPDIR.
+	(Adviced by TAKAHASHI Kaoru <kaoru@kaisei.org>)
+	* elmo-maildir.el: Rewrite.
+	* elmo-util.el, elmo-msgdb.el, elmo-vars.el: Define
+	maildir's spec as  '.'.
+	* wl-folder.el, wl-summary.el, elmo-pop3.el, etc:
+	Upcase messages' first character.
+	* elmo-vars.el (elmo-maildir-folder-path): New variable.
+	* elmo-internal.el (elmo-internal-list-folders): Return
+	'cache and 'mark in root.
+
+2000-03-02  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-nntp.el: Fixed starttls.
+	* elmo-nntp.el, elmo-imap4.el:
+	Fixed a bug that elmo-list-folders deletes "!".
+
+2000-03-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-score.el: Use "Invalid" instead of "Illegal" in error
+	message.
+
+2000-03-01  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-refile-subr): Adjust target name for cache.
+	* elmo-nntp.el: starttls feature. (experimental)
+
+2000-03-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-cache2.el: Merged to elmo-cache.el.
+	* elmo-internal.el, elmo-util.el, elmo-msgdb.el:
+	Tread 'cache' as a part of internal.
+
+2000-03-01  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-cache2.el: New backend 'cache'.
+
+2000-02-29  IMAI Takeshi <take-i@ceres.dti.ne.jp>
+
+	* wl-expire.el (wl-folder-expire-entity): Fixed highlighing in sticky
+	summary.
+
+2000-02-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo2.el (elmo-move-msgs): Take over unread status.
+	Added `unread-marks' argument.
+	* wl-summary.el (wl-summary-exec):
+	Take over unread marks to elmo-move-msgs.
+	(wl-summary-edit-petname): Now To and Cc are also candidate.
+	(wl-summary-edit-addresses): Renamed from `wl-summary-edit-petname'.
+	(wl-summary-edit-petname): Eliminated.
+	(wl-summary-mark-as-unread): Consider cache status.
+	* wl-vars.el (wl-summary-toggle-disp-folder-message-resumed-hook)
+	(wl-summary-line-inserted-hook): New hook.
+	(wl-summary-print-destination):
+	Put 'wl-summary-destination property.
+	* wl-thread.el, wl-summary.el: Call wl-summary-line-inserted-hook.
+	* utils/bbdb-wl.el:
+	Popup in wl-summary-toggle-disp-folder-message-resumed-hook.
+
+2000-02-28  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Scoring in wl-folder-sync-current-entity.
+	* wl-summary-buffer-disp-msg sometimes wrong in sticky summary.
+
+2000-02-25  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-message.el (wl-message-refer-article-or-url):
+	Don't call wl-summary-redisplay
+	when wl-summary-jump-to-msg-by-message-id failed.
+	* wl-vars.el (wl-local-domain): Changed initial setting.
+	* wl.el (wl-check-environment): Regard wl-local-domain as local domain
+	without hostname.
+	* wl-util.el (wl-draft-make-message-id-string): Ditto.
+
+2000-02-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-expire.el (wl-folder-expire-entity): Call wl-summary-save-status.
+
+2000-02-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-draft-send-hook): New hook.
+	* wl-draft.el (wl-draft-send): Call wl-draft-send-hook.
+	(Demand from Kenichi Sato <ksato@sonycom.com>)
+
+2000-02-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-cache.el (elmo-cache-save):
+	Added (condition-case), a workaround for long file name.
+	(Report by Mikya Tani <wani@mx2.nisiq.net>)
+	* wl-draft.el: Consider FCC IMAP's modified utf7.
+	(Pointed out by HIRATA Naoto <hirata-naoto@sannet.ne.jp>)
+
+2000-02-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-address.el (wl-address-header-extract-address): Don't
+	regard '\n' as a e-mail address character.
+	(Pointed out by
+	Tomotaka SUWA <cooper@saitama.fujimic.fujisankei-g.co.jp>)
+	* mmelmo.el (mmelmo-header-max-column): New variable.
+	(Demand by Kenichi Sato <ksato@sonycom.com>)
+	(mmelmo-header-inserted-hook): New hook.
+	(mmelmo-entity-content-inserted-hook): New hook.
+	* mmelmo-2.el (mime-insert-text-content): New entity method.
+	Call mmelmo-entity-content-inserted-hook.
+	* mmelmo.el (mmelmo-insert-sorted-header-from-buffer):
+	Moved from elmo-util.el and use `mmelmo-header-max-column'.
+	Call mmelmo-header-inserted-hook.
+
+2000-02-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-message.el (wl-mmelmo-message-redisplay):
+	Use wl-mime-display-message.
+	(Pointed out by Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp>)
+	* wl-mime.el (wl-mime-display-message): New macro/alias.
+	* 2.2.18 - "Please Forgive Me"
+	* wl-summary.el (wl-summary-move-cached-regex):
+	Added ignoring expression of 'D' mark for unplugged status.
+	* elmo-msgdb.el (elmo-msgdb-expand-path): Downcase IMAP4's INBOX
+	(Pointed out by Takeshi Chiba <chiba@d3.bs1.fc.nec.co.jp>).
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	Changed expression of detecting access group for '}'.
+	* wl-message.el (wl-mmelmo-message-redisplay):
+	Pass major-mode to mime-display-message.
+
+2000-02-18  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-demo.el: Fixed for Emacs 21.
+
+2000-02-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mime-entity-buffer): Don't change current buffer.
+	Fetch skipped part.
+	* mmelmo-imap4-2.el (mime-write-entity-content):
+	New method. Fetch skipped part.
+	* mmelmo-imap4-2.el (mmelmo-imap4-fetched):
+	New buffer local variable.
+	* elmo-imap4.el (elmo-imap4-server-namespace):
+	New buffer local variable.
+	(elmo-imap4-open-connection):
+	Set elmo-imap4-server-namespace.
+	(elmo-imap4-parse-namespace): New function.
+	(elmo-imap4-process-folder-list):
+	Use elmo-imap4-server-namespace.
+	(elmo-imap4-extra-namespace-alist): New variable.
+	* wl-util.el (wl-string-member, wl-string-match-member,
+	wl-string-delete-match, wl-string-match-assoc, wl-string-rassoc):
+	Renamed to elmo-* and define as defalias.
+
+2000-02-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* bbdb-wl.el: Added wl-summary-toggle-disp-folder-off-hook's setting.
+
+2000-02-16  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-demo.el: Caluculate frame's font parameter.
+
+2000-02-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-toggle-disp-folder): New implementation.
+	(Pointed out by Shigeru OKUMURA <sokumura@jaist.ac.jp>)
+	* wl-draft.el (wl-draft-insert-x-face-field-here): Delete white spaces.
+	(Pointed out by Akihiro MOTOKI <mokkun@iname.com>)
+
+2000-02-12  Akihiro MOTOKI <mokkun@iname.com>
+
+	* elmo/elmo-localdir.el
+	(elmo-localdir-msgdb-create-overview-entity-from-file):
+	Pass value of `current-time-zone' to `timezone-make-date-arpa-standard'.
+
+2000-02-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo/mmelmo-imap4-2.el (mmelmo-imap4-node-id-to-string):
+	"header" -> "0".
+	* elmo/mmelmo-imap4-1.el (mmelmo-imap4-node-id-to-string):
+	Ditto.
+	(Pointed out by TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>)
+	* wl-message.el (wl-message-follow-current-entity): wl-draft-reply
+	pass summary buffer to `wl-draft-reply'.
+	* wl-summary.el (wl-summary-reply):
+	pass current-buffer to `wl-draft-reply'.
+	(wl-summary-msgdb-load-async): enclose mailbox with "".
+	* elmo-imap4.el: Ditto.
+
+2000-02-09  UENO Kazuaki <kazu@a-u.net>
+
+	* wl-draft.el (wl-draft-queue-flush): Use `elmo-dop-flush-confirm'.
+
+2000-02-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft): Changed initialization order.
+	(Adviced by Taiji.Can@atesoft.advantest.co.jp)
+
+2000-02-08  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-score.el (wl-summary-score-update-all-lines):
+	Consider folder type when putting read-uncached mark.
+
+2000-02-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-target-mark-prefetch): Fixed for
+	uncached message's mark.
+	(Pointed out by Hironori Fukuchi <nory@valis.co.jp>)
+	* wl-summary.el (wl-summary-target-mark-prefetch):
+	Display progress. Remain '*' marks if not prefetched.
+	* wl-dnd.el (start-drag): defined with static-cond.
+	* elmo2.el (elmo-buffer-cache-message): Fixed the bug of `Quit'ting
+	while reading.
+	* elmo-filter.el (elmo-filter-list-folder-important):
+	Don't call 'elmo-search'.
+	(Adviced by Akihiro MOTOKI <mokkun@iname.com>)
+
+2000-02-07  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-xmas.el (wl-highlight-folder-current-line):
+	Don't use set-extent-properties.
+
+	* wl-draft.el (wl-smtp-extension-bind): Fixed.
+
+2000-02-07  Akihiro MOTOKI <mokkun@iname.com>
+
+	* elmo-util.el (elmo-buffer-field-condition-match):
+	Compare field value after `eword-decode-string'.
+
+2000-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-dnd.el: Eliminated byte-compile warnings.
+	(Pointed out by okada@opaopa.org (Kenichi OKADA).)
+	* utils/sasl/sha1.el, utils/sasl/md5-el.el,
+	utils/sasl/hex-util.el, utils/sasl/sha1-el.el: Update.
+	(Pointed out by okada@opaopa.org (Kenichi OKADA).)
+	* wl-vars.el (wl-demo-use-bitmap): Renamed to wl-demo-display-logo.
+	(wl-demo-display-logo): New variable.
+	* wl-demo.el: Use wl-demo-display-logo.
+
+2000-02-07  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-vars.el (wl-demo-use-bitmap): Changed initial value.
+
+2000-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.17 - "One Of Us"
+	* elmo-util.el (elmo-y-or-n-p): New function.
+	* elmo-vars.el (elmo-dop-flush-confirm): New variable.
+	* elmo-dop.el (elmo-dop-queue-flush): Use elmo-y-or-n-p,
+	elmo-dop-flush-confirm.
+	* elmo-imap4.el (elmo-delete-msgids): Display progress.
+	Call expunge once at last.
+
+2000-02-07  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-folder.el, wl-xmas.el: Display icons although a frame is opened
+	by XEmacsen invoked with -nw argument.
+
+2000-02-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-highlight.el (wl-highlight-summary-target-face): New face
+	(Renamed from ...-temp-face).
+	* wl-vars.el (wl-demo-use-bitmap): Moved from wl-demo.el.
+	Defined as defcustom. Initial value is
+	(module-installed-p 'bitmap).
+	* wl-demo.el (wl-demo-use-bitmap): Moved to wl-vars.el.
+	* elmo-vars.el: Require 'poe, eliminated bytecompiling warnings.
+	* wl-nemacs.el (buffer-disable-undo, rassoc, delete, string-to-number,
+	window-live-p, completing-read, accept-process-output,
+	get-buffer-window): Eliminated.
+
+2000-02-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-demo.el (wl-demo): Check wl-demo-use-bitmap at run-time.
+
+2000-02-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* INSTALL, INSTALL.ja: Changed tm-8's URL.
+	* utils/hmac -> utils/sasl.
+	* WL-ELS: HMAC->SASL.
+	* WL-MK: HMAC->SASL.
+
+2000-02-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-localdir.el
+	(elmo-localdir-msgdb-create-overview-entity-from-file):
+	Use `timezone-make-date-arpa-standard' instead of `format-time-string'.
+	* elmo-vars.el (elmo-time-format): Eliminated.
+
+2000-02-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-dop.el (elmo-dop-queue-flush): Added canceling process of
+	append-operations.
+	* wl-summary.el (wl-summary-refile-prev-destination,
+	wl-summary-copy-prev-destination): Fixed.
+	(Reported by IMAI Takeshi <take-i@ceres.dti.ne.jp>)
+
+2000-02-02  Akihiro MOTOKI <mokkun@iname.com>
+
+	* wl-vars.el (wl-prefetch-confirm-threshold): Eliminated and separated
+	to `wl-prefetch-confirm' and `wl-prefetch-threshold'.
+	(wl-prefetch-confirm, wl-prefetch-threshold): New variable.
+	* wl-summary.el (wl-summary-prefetch-msg): Use wl-prefetch-confirm,
+	wl-prefetch-threshold.
+
+2000-02-02  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-draft.el (wl-smtp-features): `smtp-authenticate-type' is changed
+	to symbol.
+
+2000-01-31  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-nntp.el (elmo-nntp-get-folders-info): Fixed.
+
+2000-01-31  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-demo.el: Display wl-logo.xpm in Emacs21.
+
+2000-01-30  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* INSTALL, INSTALL.ja: Fixed.
+
+2000-01-30  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* WL-ELS: Add elmo-database to ELMO-MODULES
+	if open-database is already defined.
+
+2000-01-30  Akihiro MOTOKI <mokkun@iname.com>
+
+	* elmo-loacaldir.el
+	(elmo-localdir-msgdb-create-overview-entity-from-file):
+	If Date: field does not exist, get file's modified time.
+	* elmo-msgdb.el (elmo-msgdb-create-overview-from-buffer):
+	Added argument time.
+	* elmo-vars.el (elmo-time-format): New variable.
+
+2000-01-29  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-jump-to-msg-by-message-id):
+	Added selecting NNTP server option.
+	(wl-summary-jump-to-msg-by-message-id-via-nntp)
+	Now server can be specified like "-:username@servername:8119!".
+	* elmo-nntp.el (elmo-nntp-folder-postfix): Added argument `ssl'.
+
+2000-01-29  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-vars.el (elmo-database-dl-module, elmo-database-dl-handle):
+	New variable.
+	(toplevel): if elmo-database-dl-handle is non-nil,
+	dynamic_call emacs_database_init.
+	(elmo-use-database): Set elmo-use-database when open-database
+	is bound.
+	* WL-ELS: If 'dynamic-link is bound, add elmo-database to ELMO-MODULES.
+
+2000-01-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-demo.el (wl-demo): Fix copyright information.
+
+2000-01-27  Takeshi Chiba <chiba@d3.bs1.fc.nec.co.jp>
+
+	* mmelmo-imap4-2.el ([luna]mime-entity-buffer):
+	section "0" -> "header".
+
+2000-01-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mmelmo-imap4-node-id-to-string):
+	section "0" -> "header".
+	* mmelmo-imap4-1.el: Ditto.
+
+2000-01-26  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* elmo-imap4.el (elmo-imap4-create-folder):
+	UW imapd-4.7 cannot create new folder.
+
+2000-01-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mmelmo-imap4-parse-bodystructure-string):
+	Retrieve BODYSTRUCTURE.
+	(mmelmo-imap4-parse-bodystructure-object):
+	Don't cause error when content-type subtype is NIL.
+	* mmelmo-imap4-1.el: Ditto.
+	* utils/hmac/unique-id.el: New file.
+	* WL-ELS (HMAC-MODULES): Added scram-md5, digest-md5, unique-id.
+	* wl-dnd.el (wl-dnd-drop-func): Fixed.
+	* 2.2.16 - "No Son Of Mine"
+
+2000-01-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-summary-reserve-mark-list): New variable.
+	* wl-summary.el: temp-mark -> target-mark changed name.
+	Use `wl-summary-reserve-mark-list' in mark commands.
+	* wl-score.el, wl-thread.el: Ditto.
+	* wl-folder.el (toplevel): require 'wl.
+
+2000-01-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mule.el, wl-xmas.el, wl-nemacs.el (wl-summary-format-date):
+	Moved to wl-summary.el.
+	* utils/hmac/lisp/sasl.el, utils/hmac/lisp/digest-md5.el,
+	utils/hmac/lisp/scram-md5.el: Update to latest SLIM.
+	* wl-fldmgr.el (wl-fldmgr-ext): Changed confirm message.
+	* doc/TODO.ja: Updated.
+
+2000-01-22  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* wl-folder.el (toplevel): Fixed menu.
+
+2000-01-21  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-imap4.el: Added DIGEST-MD5 authentication.
+	* elmo-pop3: Added CRAM-MD5, DIGEST-MD5, SCRAM-MD5 authentication.
+
+2000-01-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (toplevel): Changed binding position for
+	region commands.
+	(wl-summary-prefetch-region): Prefetch hided messages.
+	(Reported by OKAZAKI Tetsurou <okazaki@be.to>)
+	* elmo: Added argument no-see to append-msg, move-msgs.
+	* elmo-pipe: Specify 'no-see at elmo-msg-move.
+	* wl-folder.el (wl-folder-mimic-kill-buffer): New command.
+	(toplevel): Bind ` wl-folder-mimic-kill-buffer' to C-xk,
+	`wl-save' to C-xC-s.
+
+2000-01-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-nemacs.el (accept-process-output): New function.
+	* Makefile: Modified comment.
+
+2000-01-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-folder-identical-system-p): Don't treat
+	folders which have same mailbox name and different server
+	as identical folder.
+	(Pointed out by Tatsuya Matsui <t.matsui@rdc.east.ntt.co.jp>)
+	* wl-address.el (wl-complete-field-body-or-tab): Eliminated argument.
+
+2000-01-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el
+	(wl-prefetch-confirm-threshold, wl-cache-fetch-threshold):
+	New variables.
+	* wl-summary.el (wl-summary-prefetch-msg):
+	Use `wl-prefetch-confirm-threshold'.
+	(wl-cache-prefetch-message): Use `wl-cache-fetch-threshold'.
+
+2000-01-13  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-message.el
+	(wl-message-decide-backend, wl-normal-message-redisplay):
+	Force fetch if `wl-fetch-confirm-threshold' is nil.
+
+2000-01-11  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-draft.el (wl-draft-delete):
+	Conscious that `wl-draft-buffer-file-name' is nil.
+
+2000-01-11  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* wl-draft.el (wl-draft-save-and-exit):
+	Fix the bug that kills unexpected buffer.
+
+2000-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.15 - "More Than Words"
+
+2000-01-11  Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* samples/ja/dot.folders, samples/en/dot.folders: Added description
+	about 'access group'.
+
+2000-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el, tm-wl.el (wl-draft-preview-message): Display all header.
+	* wl-summary.el (wl-summary-mode): Don't set tab-width.
+	(Pointed out by Yoshinari NOMURA <nom@csce.kyushu-u.ac.jp>)
+	(wl-summary-copy, wl-summary-refile): Inhibited copying to
+	`wl-draft-folder'.
+	(Pointed out by okada@opaopa.org (Kenichi OKADA))
+	(wl-summary-overview-entity-compare-by-date): Ignore error.
+	(Pointed out by MIZUHARA Bun <mizuhara@acm.org>)
+	* wl.el (wl-plugged-mode): Don't set inhibit-read-only.
+	(Pointed out by Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>)
+	* wl-vars.el (wl-draft-reedit-hook): New hook.
+	* wl-draft.el (wl-draft-save, wl-draft-mimic-kill-buffer):
+	New function.
+	(wl-draft): Don't use buffer names which are already used.
+	(wl-draft-reedit): run-hook `wl-draft-reedit-hook' instead of
+	`wl-mail-setup-hook'.
+	(Requirement by okada@opaopa.org (Kenichi OKADA))
+	* wl-xmas.el, wl-mule.el (wl-draft-key-setup):
+	Binded `wl-draft-save' to `C-xC-s', `wl-draft-mimic-kill-buffer'
+	to `C-xk'.
+	* wl-nemacs.el (wl-draft-overload-functions): Ditto.
+
+2000-01-09  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-mule.el, wl-util.el: Fix run time (require 'static).
+	* wl.el (wl-save): Add docstring.
+
+2000-01-08  Mito <mit@nines.nec.co.jp>
+
+	* wl-score.el (wl-score-guess-like-gnus): Enclosed with
+	(when (stringp fld-name)..).
+
+2000-01-08  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-config-info-operation): New function.
+	(wl-draft-delete, wl-draft-save-and-exit, wl-draft-reedit):
+	Use `wl-draft-config-info-operation'.
+
+2000-01-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-demo.el (toplevel): Eliminated warnings when bitmap is not
+	installed.
+	(wl-demo-use-bitmap): New variable.
+	* WL-CFG: Added example of setting wl-demo-use-bitmap to nil.
+	* wl-nemacs.el (toplevel): Quit timezone emulating (Assume APEL 10).
+	* wl-demo.el, wl-draft.el, wl-folder.el, wl-util.el,
+	wl-message.el, wl-summary.el (toplevel): set the return value of
+	make-local-variable.
+	(Adviced by Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>)
+
+2000-01-07  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-draft.el (wl-smtp-features, wl-smtp-parse-extension): Fixed.
+
+2000-01-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-user-agent-compose): call wl-draft interactively.
+	(Pointed out by Atsushi Tada <tada@tworks.co.jp>)
+	* Makefile (EMACS): set default to `emacs'.
+	(XEMACS): New variable.
+	(package, install-package): Use $(XEMACS).
+	* 2.2.14 - "Layla"
+	* wl-summary.el (wl-summary-mode): Quit setting default-directory.
+	* wl-vars.el (wl-tmp-dir): set default as "~/tmp/"(cf. WL-ML 3735).
+
+2000-01-06  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-draft.el (wl-smtp-features): New variable.
+	(wl-smtp-extension-bind): New macro.
+	* wl-summary.el (wl-summary-mode-map):
+	Binded `wl-summary-prev-page' to backspace.
+
+2000-01-06  Kentaro Yoshitomi <yositomi-wl@center.osaka-wu.ac.jp>
+
+	* elmo-maildir.el (elmo-maildir-create-folder):
+	Fixed a bug which occurs when directory ends with "/".
+
+2000-01-06  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-draft.el: sync up with SLIM's smtp.el.
+
+2000-01-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-util.el (wl-load-profile): Moved from wl.el.
+	* COPYING: New file (renamed from etc/copyright).
+	* wl-vars.el (wl-smtp-connection-type): Renamed from wl-smtp-use-tls.
+	* wl-draft.el (wl-draft-send-mail-with-smtp):
+	Bind smtp-connection-type with wl-smtp-connection-type.
+	(wl-draft-queue-save-filename): fixed typo.
+	* wl-vars.el (wl-cs-*): Changed definitions for Nemacs.
+	* all files: Updated copyright information and checkdoc fix.
+
+2000-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-ja.texi: Add copyright and permissions text.
+
+2000-01-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-score.el (wl-summary-score-update-all-lines):
+	Mark as read-uncached when marked by scoring.
+	* elmo-util.el (elmo-imap4-get-spec):
+	Fixed a bug which occurs when elmo-default-imap4-ssl is t.
+	(Reported by Taro FUNAKI <taro@bear.ecl.ntt.co.jp>)
+	* tm-wl.el (wl-draft-yank-current-message-entity):
+	Fixed binding of mime-viewer/following-method-alist.
+	(Reported by Taiji.Can@atesoft.advantest.co.jp)
+
+2000-01-04  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-message.el (wl-message-decode):
+	Decode with wl-cs-autoconv when 'no-mime.
+
+1999-12-31  Kentaro Yoshitomi <yositomi-wl@center.osaka-wu.ac.jp>
+
+	* elmo-maildir.el, elmo-util.el:
+	Implemented create, delete and copy method of Maildir.
+
+1999-12-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft): Call `wl-load-profile'.
+	(Pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* elmo-imap4.el (elmo-imap4-make-number-set-list): New function.
+	(elmo-imap4-msgdb-create): Use `elmo-imap4-make-number-set-list'.
+	(elmo-imap4-mark-set-on-msgs): Ditto.
+
+1999-12-11  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-get-sync-range):
+	Don't claim unplugged in pop3.
+
+1999-12-28  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* elmo-msgdb.el (elmo-msgdb-expand-path): fixed wrong expansion.
+
+1999-12-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.13 - "Keep The Faith"
+
+1999-12-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-network-get-spec): New variable.
+	(elmo-*-get-spec): Rewrote so that 'user' can contain '@'.
+	(okada@opaopa.org (Kenichi OKADA)'s demand.)
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	Corresponded to Emacsen that cannot treat float.
+	* elmo-pop3.el (elmo-pop3-get-connection): Changed argument.
+	* check-paren fix.
+
+1999-12-21  Koga Masato <mkoga@mail7.dddd.ne.jp>
+
+	* wl-draft.el (wl-draft-reedit): Obey to `wl-draft-use-frame'.
+
+1999-12-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-vars.el (elmo-imap4-use-modified-utf7): New variable.
+
+1999-12-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el, tm-wl.el (wl-mime-save-content): Remember last
+	saved directory.
+	* wl.el (wl-save): New command. Save current folder status.
+	(A demand from JINMEI Tatuya <jinmei@isl.rdc.toshiba.co.jp>.)
+	* wl-folder.el (wl-folder-mode-map): Binded `wl-save' to "\M-s".
+	* elmo-util.el (elmo-imap4-get-spec): Use `utf7-encode-string'.
+	* elmo-imap4.el (elmo-imap4-list-folders): Use `utf7-decode-string'.
+	* elmo/utf7.el: New file.
+
+1999-12-20  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* elmo-imap4.el (elmo-imap4-open-connection): Fixed starttls.
+	* wl-draft.el: featurep->boundp.
+
+1999-12-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-search-mime-charset): New variable.
+	* wl-summary.el (wl-summary-pick): Use `wl-search-mime-charset'.
+
+1999-12-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* WL-MK (wl-texinfo-format): Add `@direntry' emulation for
+	old texinfmt.el.
+
+1999-12-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-config-exec): Re-highlight draft.
+	(Pointed out by Motomichi Matsuzaki <mzaki@e-mail.ne.jp>)
+	* wl-summary.el (toplevel): Changed key bind order of 
+	`wl-summary-temp-mark-region'.
+	(okada@opaopa.org (Kenichi OKADA)'s report.)
+
+1999-12-16  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-mark-as-important-region,
+	wl-summary-mark-as-unread-region,
+	wl-thread-mark-as-important,
+	wl-thread-mark-as-unread,
+	wl-summary-temp-mark-mark-as-important,
+	wl-summary-temp-mark-mark-as-unread): New functions.
+	(wl-summary-save-region): Eliminated bogus process.
+	(wl-summary-prefetch-region): Use `elmo-cache-exists-p'
+	instead of `wl-summary-message-uncached-marks'.
+	* wl-thread.el (wl-thread-get-children-msgs-uncached): Ditto.
+
+1999-12-14  okada@opaopa.org (Kenichi OKADA)
+
+	* Changed behavior of TLS in pop and imap 
+	when server does not provide TLS feature.
+
+1999-12-14  TSUMURA Tomoaki <tsumura@notredame.ac.jp>
+
+	* dot.wl: Added an example setting;
+	wl-default-folder shows ML-name and ML-count and
+	other folder shows ML-count.
+
+1999-12-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mmelmo-imap4-parse-bodystructure-string):
+	Fix: Parse fails if JIS filename is contained.
+	* wl-summary.el (wl-summary-copy): Fixed bug.
+	(Reported by Hiroshi Watanabe <whoami@din.or.jp>)
+
+1999-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-goto-folder-subr): Changed timing
+	to be sticky (Adviced by Masahiro MURATA <muse@ba2.so-net.ne.jp>).
+	* wl-vars.el (wl-folder-sync-range-alist): 
+	Changed range of draft and queue folder.
+
+1999-12-11  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-get-sync-range):
+	Don't claim unplugged in pop3.
+
+1999-12-10  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Eliminated defalias for elmo function in wl modules.
+
+1999-12-07  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-nntp.el: Changed behavior when
+	elmo-nntp-max-number-precedes-list-active is `t' and
+	list-active is not provided.
+
+1999-12-07  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* INSTALL.ja: Fixed.
+	* wl-summary.el (wl-summary-always-sticky-folder-p): New macro.
+	(wl-summary-goto-folder-subr): Use `wl-summary-always-sticky-folder-p'.
+
+1999-12-07  Akihiro MOTOKI <mokkun@iname.com>
+
+	* wl-vars.el (wl-summary-always-sticky-folder-list): New variable.
+	* wl-summary.el (wl-summary-stick): New optional argument.
+	(wl-summary-goto-folder-subr): Folders that match
+	`wl-summary-always-sticky-folder-list' stick automatically.
+
+1999-12-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* INSTALL.ja: Changed to ISO-2022-JP.
+	* wl-draft.el (wl-draft-send-mail-with-smtp): 
+	Fixed binding of (default-)?case-fold-search.
+	(Reported by Atsushi Tada <tada@tworks.co.jp>, <tao@pfu.co.jp>, etc.)
+	(wl-draft-send): Don't use `with-current-buffer'.
+	* 2.2.12 - "Joyride"
+
+1999-12-07  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* etc/icons/wl-logo.xbm: Christmas version.
+
+1999-12-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-parse-overview-string):
+	Fix: Cannot parse number when elmo-imap4-use-uid is nil.
+	* utils/hmac/scram-md5.el, utils/hmac/hmac-util.el: Removed.
+	* wl-summary.el (wl-summary-mark-as-unread):
+	Fixed wrong-type-argument error.
+	* wl-folder.el (wl-folder-empty-trash):
+	Fix: Summary information is incleased everytime.
+	(Reported by OKAZAKI Tetsurou <okazaki@be.to>)
+
+1999-12-07  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-condig-exec):
+	Set wl-draft-config-exec-flag as nil only if wl-draft-config-alist
+	was applied.
+
+1999-12-06  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* WL-ELS (HMAC-MODULES): Updated.
+
+1999-12-06  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* INSTALL: New file.
+
+1999-12-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	Fix: filter does not work correctly.
+	(Reported by Kazuyoshi Mii <mii@isl.ntt.co.jp>)
+	* 2.2.11 - "Iris"
+	* utils/hmac/elisp/*.el: Sync up with slim-1.13.4
+	* elmo-imap4.el
+	(elmo-imap4-open-connection): Use `sasl-cram-md5' for cram-md5.
+	(toplevel): (require 'sasl) instead of (require 'hmac-md5).
+	Eliminated eval-when-compile.
+
+1999-12-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-mark-as-read):
+	Avoid marking messages which is not in msgdb.
+	* wl-summary.el (wl-summary-pick):
+	Notify if no message was picked from msgdb.
+
+1999-12-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-msgdb.el (elmo-msgdb-overview-get-parent-entity):
+	Changed argument.
+	* wl-vars.el (wl-smtp-posting-server): Set default value as nil.
+	(Adviced by okada@opaopa.org (Kenichi OKADA))
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	downcase extra-field name.
+	(Pointed out by Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>)
+	* elmo-util.el (elmo-collect-field(-from-string)?):
+	Argument `downcase-field-name' is added.
+
+1999-12-03  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-folder.el (wl-folder-empty-trash):
+	Fix: Summary information is incleased everytime.
+
+1999-12-03  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* wl-summary.el (wl-summary-default-from): Newsgroup name is not
+	displayed.
+
+1999-12-03  TAKAHASHI Kaoru <nil@din.or.jp>
+
+	* INSTALL.ja: New file.
+	* wl-summary.el (wl-summary-reedit): When reedit draft
+	for news arcticle, don't add To: header.
+
+1999-12-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-mime-string): Enclose with elmo-set-work-buf.
+	(Pointed out by Mikiya Tani <m-tani@hml.cl.nec.co.jp>)
+	* etc/icons/wl-logo.xpm: Christmas version.
+	* elmo-imap4.el (elmo-imap4-make-attributes-object):
+	Nemacs causes error in read.
+	* elmo-dop.el (elmo-dop-list-folder): correspond to pipe feature.
+	(Pointed out by OKAZAKI Tetsurou <okazaki@be.to>)
+
+1999-12-03  sen_ml@eccosys.com
+
+	* utils/wl-mailto.el: 0.5.
+
+1999-12-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-1.el: eliminated buffer read only error.
+	* wl-mime.el, tm-wl.el: Changed key bind of wl-draft-preview-message.
+	(Based of the report by Makoto.Nakagawa@jp.compaq.com)
+	* utils/ssl.el: Sync up to newest version.
+	(Adviced by okada@opaopa.org (Kenichi OKADA))
+	* elmo-util.el (elmo-mime-string, elmo-decode-mime-charset-string):
+	New function.
+	* elmo-imap4.el: FETCH analyzing module is replaced.
+
+1999-12-02  Hironori Fukuchi <nory@valis.co.jp>
+
+	* wl-xmas.el: If (featurep 'dragdrop) is nil,
+	wl-dnd-set-drop-target causes error.
+
+1999-12-02  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-util.el: encolsed (require 'starttld) by condition-case.
+
+1999-12-01  okada@opaopa.org (Kenichi OKADA)
+
+	* Fix: Error occurs when wl-smtp-posting-user is nil in smtp auth.
+	* Fixed an error which occurs when nntp port number is specified.
+
+1999-11-27  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-reedit): eliminated judgement by
+	`(interactive-p)' because it is not interactive.
+	* New command: wl-fldmgr-delete.
+	* Rename: wl-fldmgr-rename-group -> wl-fldmgr-rename.
+	* New function: elmo-folder-creatable-p.
+	* Create directory when `#mh' type folder is created
+	  in IMAP4 folder.
+	* wl-folder-check-one-entity creates folder if it does't exist.
+	* New macro: wl-folder-clear-entity-info.
+
+1999-11-25  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-message.el (wl-message-narrow-to-page): Fixed
+	`beginning-of-buffer' error occurs, when read "^L\n^L"
+	inclueded message.
+
+1999-11-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-mode): Eliminated argument.
+	* wl-address.el (wl-address-petname-add-or-change):
+	Fix: When there's no newline character in the last line of
+	`.addresses', wrong entry is added.
+	* elmo-imap4-[12].el (mmelmo-imap4-parse-bodystructure-entity):
+	Use mime-parse-parameters-from-list.
+
+1999-11-24  Tetsuya Uemura <uemura@pp.iij4u.or.jp>
+
+	* x-face-xmas-mew-display-x-face -> x-face-xmas-wl-display-x-face
+
+1999-11-22  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-vars.el (wl-smtp-authenticate-type, wl-smtp-use-tls):
+	New variable.
+	* wl-draft.el (wl-draft-send-mail-with-smtp):
+	Added SMTP TLS feature.
+
+1999-11-21  okada@opaopa.org (Kenichi OKADA)
+
+	* When wl-summary-jump-to-msg-internal is called via
+	wl-summary-jump-to-msg-by-message-id-via-nntp,
+	`scan-type' becomes `update'.
+
+1999-11-22  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* elmo-imap4.el, elmo-pop3.el: Added STARTTLS feature.
+
+1999-11-20  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-send-mail-with-smtp):
+	Bind process-connection-type nil.
+
+1999-11-20  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-util.el (elmo-open-network-stream):
+	Bind process-connection-type nil.
+
+1999-11-20  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* Fixed an error when an important message is marked-as-important
+	by scoring, it disappeared.
+
+1999-11-19  Hironori Fukuchi <nory@valis.co.jp>
+
+	* tm-wl.el: fixed typo.
+
+1999-11-18  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* Signal an error when no message is displayed
+	at wl-draft-insert-message.
+
+1999-11-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el: New variable wl-summary-showto-folder-regexp.
+	* wl-summary.el (wl-summary-default-from):
+	renamed from my-wl-summary-from-func-petname in sample/../dot.wl
+	(adviced from Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* wl-summary.el (wl-summary-simple-from): wl-summary-default-from
+	renamed.
+
+1999-11-17  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-message.el (wl-message-get-buffer-create):
+	Fixed an error which occurs when sticky message is displayed.
+
+1999-11-17  sen_ml@eccosys.com
+
+	* wl-mailto.el: 0.5-pre1.
+
+1999-11-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-delete-cr-get-content-type):
+	If Content-Type does not exist, return t.
+	* 2.2.9 - "Gonna Make You Sweat"
+
+1999-11-15  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* wl-util.el (wl-unique-id): Don't use current-time and timezone.
+
+1999-11-14  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el, wl-summary.el: Set vaiable wl-draft-reply t in reply,
+	wl-draft-forward t in forward.
+	* wl-folder.el, wl.el: Make wl-make-plugged-alist only when
+	wl-folder made folder list.
+
+1999-11-14  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* elmo-pipe.el (elmo-pipe-use-cache-p): Implemented.
+	* elmo2.el (elmo-folder-number-get-spec): Fixed.
+
+1999-11-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el: insert-mail is implemented.
+	* If 'a' is pushed on MIME button, its part is cited in draft.
+	* wl-user-agent.el: Removed.
+	* wl-draft.el: Merged wl-user-agent.el.
+	* wl-mime.el, tm-wl.el: Rearranged API to MIME modules.
+
+1999-11-12  okada@opaopa.org (Kenichi OKADA)
+
+	* Fix: elmo-imap4.el: If folder does not exist,
+	wl-folder-check-current-entity fails.
+	* wl-draft.el: wl-draft-config-list, wl-template-alist can specify
+	`header', `header-file'.
+
+1999-11-12  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* wl-util.el (wl-draft-make-message-id-string, wl-unique-id,
+	wl-number-base36): New functions.
+	(wl-unique-id-char): New internal variable.
+
+	* wl-mule.el (wl-draft-make-message-id-string): Remove.
+	* wl-nemacs.el (wl-draft-make-message-id-string): Remove.
+	* wl-xmas.el (wl-draft-make-message-id-string): Remove.
+
+	* wl-draft.el (wl-draft-send-mail-with-smtp): Funcall `smtp-server'
+	if it is a function; leave the handling of Resent-* fields to
+	`smtp'.
+
+1999-11-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft (wl-draft-get-fcc-list): Create folder when FCC contains
+	new folder.
+	* Rename: wl-draft-config-body-goto-{top|bottom}
+	-> wl-draft-body-goto-{top|bottom}
+	* Rename: wl-summary-confirm-folder-existence ->
+	wl-folder-confirm-existence.
+	(Adviced by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* Rename: wl-mime-edit-preview-message-hook
+	-> wl-draft-preview-message-hook
+	* elmo-nntp.el (elmo-nntp-string-to-vector): Eliminated.
+	* elmo-util.el (elmo-tokenize-string): Eliminated.
+	Replaced with split-string
+	* wl-highlight.el: New face, wl-highlight-logo-face for logo.
+
+1999-11-11  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* wl-demo.el: Corresponded to bitmap-mule.
+	* wl-logo.xbm: New file.
+	* elmo-nntp.el (elmo-nntp-string-to-vector): Unlimit the length of
+	vector.
+	(elmo-nntp-parse-overview-string): Don't specify the 2nd arg of
+	`elmo-nntp-string-to-vector'.
+
+1999-11-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el: Searching fails if Message-ID contains '%'.
+	(Adviced by OKAZAKI Tetsurou <okazaki@be.to>)
+	* wl-message.el, mmelmo-[12].el: Rearranged read-only setting.
+	* Rename: wl-draft-save-and-hide -> wl-draft-save-and-exit.
+	  Binded to C-c C-z.
+
+1999-11-11  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* wl-summary.el (wl-summary-temp-mark-forward):
+	Enclose as multipart/digest if multiple messages are included.
+
+1999-11-11  okada@opaopa.org (Kenichi OKADA)
+
+	* New variable wl-nntp-posting-port, wl-nntp-posting-ssl.
+	wl-nntp-posting-{user,server,port,ssl} corresponds to
+	elmo-default-nntp-{user,server,port,ssl}.
+	* Set the initial value of wl-nntp-posting-* as nil.
+	If they are nil, use elmo-default-nntp-* value.
+	* utils/bbdb-wl.el: If bbdb-use-pop-up is nil, error occurs.
+	* wl-draft.el: New function wl-draft-save-and-hide.
+
+1999-11-10  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-demo.el: calculate the displayed position of wl-logo.xpm.
+
+1999-11-10  Tsutomu Okada <okada@furuno.co.jp>
+
+	* wl-message.el (wl-message-refer-article-or-url):
+	Not to move cursor to message buffer with mouse-button-2.
+
+1999-11-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-set-message-buffer-or-redisplay):
+	Sticky Message sometimes provides wrong message.
+	(Reported by Mito <mit@nines.nec.co.jp>)
+	* wl-util.el (wl-string): alias to elmo-string.
+	* elmo-util.el (elmo-string): New function.
+	* New variable: wl-smtp-posting-port.
+	* Binded wl-summary-resend-bounced-mail to "\eE".
+
+1999-11-10  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* WL-ELS: fixed typo.
+
+1999-11-10  kurati@bigfoot.com
+
+	* When new folder is created, add it to the completion candidate.
+	* FCC: If new folder is specified, confirm to create it.
+	* auto-refile: If new folder is specified, confirm to create it.
+
+1999-11-10  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* wl-summary.el (wl-summary-resend-message,
+	wl-summary-resend-bounced-mail): New command.
+	* wl-draft.el (wl-draft-dispatch-message): Dont send via nntp
+	if dispatched message includes Resent-to header.
+
+1999-11-09  okada@opaopa.org (Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-jump-to-msg-internal): message is not
+	displayed in some cases.
+	* wl-summary.el (wl-summary-jump-to-msg-by-message-id-via-nntp):
+	If there are multiple newsgroup candidates,
+	newsgroup in the wl-folder-newsgroups-hashtb is preceded.
+
+1999-11-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.8 - "Free As A Bird"
+
+1999-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: wl-draft.el (wl-draft-send): C-cC-s becomes insert-signature
+	after sending. (Reported by Akihiro MOTOKI <motoki@ptl.abk.nec.co.jp>)
+	* WL-MK: (fset 'file-executable-p 'file-exists-p) for Nemacs.
+	* WL-MK, WL-CFG: Changed default value of WL_PREFIX and ELMO_PREFIX
+	to "wl".
+	* New variable: wl-user-mail-address-list.
+	* New function: wl-address-user-mail-address-p
+	Judge whether an address is user's or not using
+	wl-user-mail-address-list and wl-from.
+	* wl-summary.el (wl-summary-cancel-message,
+	wl-summary-supersedes-message): Use wl-address-user-mail-address-p
+	to judge whether an address is user's or not.
+	(Based on the changes by okada@opaopa.org (Kenichi OKADA))
+	* wl-refile.el (wl-refile-learn, wl-refile-guess-by-history): Ditto.
+	* wl-draft.el (wl-draft-make-mail-followup-to, wl-draft-reply
+	wl-draft-delete-myself-from-cc): Ditto.
+	* elmo-filter.el (elmo-filter-list-folder-unread,
+	elmo-filter-list-folder-important): filtering was not valid.
+	(Reported by Kazuyoshi Mii <mii@isl.ntt.co.jp>)
+
+1999-11-08  okada@opaopa.org (Kenichi OKADA)
+
+	* Altered the initialization of POP-before-SMTP variables.
+
+1999-11-07  okada@opaopa.org (Kenichi OKADA)
+
+	* elmo-nntp.el: Use `list' if `list active' was in vain.
+
+1999-11-07  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Eliminated wl-draft-prepared-confi-alist and unified with
+	  wl-draft-config-alist.
+	* Take over local variables in wl-template-select.
+	* Process Fcc after the message sending is finished.
+	* Changed from user-mail-address to wl-envelope-from in
+	wl-draft-queue-save-variables.
+	* Fix: An error occurs in wl-draft-insert-from-field when
+	user-mail-address is nil.
+
+1999-11-06  Tetsuya Uemura <uemura@pp.iij4u.or.jp>
+
+	* Display mode map by describe-mode.
+
+1999-11-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-folder.el (wl-folder-mode-map): Change key bind of
+	wl-fldmgr-copy-region.
+
+1999-11-06  Hironori Fukuchi <nory@valis.co.jp>
+
+	* wl-summary.el (wl-summary-stick): parenthesis position is invalid.
+
+1999-11-06  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* utils/wl-user-agent.el: altered to unify the behavior with
+	sendmail-user-agent.
+
+1999-11-06  sen_ml@eccosys.com
+
+	* utils/wl-user-agent.el: 0.5.
+
+1999-11-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el: Rearranged all modules.
+	* elmo-imap4.el: New variable `elmo-imap4-debug'.
+	Non-nil forces debug information appair on "*IMAP4 DEBUG*" buffer.
+	* elmo-imap4.el, elmo-pop3.el, elmo-nntp.el:
+	Number of times of copying entire message is suppressed.
+	* elmo-imap4.el: Lock the process until the response is returned from
+	server.
+	* wl-summary.el: Auto refile failes if wl-refile-rule-alist is nil.
+	* WL-MK: install-package does not install info.
+	(Reported by "MATSUBAYASHI 'Shaolin' Kohji"
+	<shaolin@rins.st.ryukoku.ac.jp>)
+	* elmo-cache.el (elmo-cache-search): Corresponded to partial caching.
+	(Reported by Yasuo OKABE <okabe@i.kyoto-u.ac.jp>)
+
+1999-11-04  okada@opaopa.org (Kenichi OKADA)
+
+	* Rearranged POP-before-SMTP variables.
+	* New variable: elmo-default-pop3-user, wl-pop-before-smtp-user,
+	wl-pop-before-smtp-server, wl-pop-before-smtp-port,
+	wl-pop-before-smtp-ssl, wl-pop-before-smtp-authenticate-type.
+	* elmo-pop-before-smtp-* -> wl-pop-before-smtp-*
+
+1999-11-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el (wl-mime-edit-preview-message):
+	New hook: wl-mime-edit-preview-message-hook.
+	* elmo-util.el: Suppressed warnings.
+	* wl-summary.el (wl-summary-sync-marks): Make mark synchronization
+	faster.
+	* elmo-pipe.el (elmo-pipe-max-of-folder): Unread number is not valid
+	in IMAP4 folders.
+	(Reported by Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp>)
+
+1999-11-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.7 - "Escapade"
+	* WL-MK: install-info causes strange INFODIR message.
+	* Fix: Error occurs the first prefetch from Folder.
+	(Reported by Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>)
+	* mmelmo: changed mime-elmo-entity as subclass of mime-buffer-entity
+	to avoid effects on other MUAs.
+	* wl-thread.el: Number is not highlighted when message is appended to
+	the closed thread.
+	* Some functions are corresponded with pipe-folder.
+
+1999-11-03  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: folder petname can be used for folder name completion.
+	* Fix: If wl-force-fetch-folders is non-nil, access groups cannot
+	be opened in the unplugged status.
+	* wl-fldmgr.el: inhibited to call `wl-fldmgr-set-petname'
+	in the end of line.
+	* wl.el: If there is no change in wl-plugged-mode,
+	wl-toggle-plugged is not called.
+	* rearranged buffer removal of wl-exit and wl-folder-suspend.
+	* wl-folder.el: some functions are replaced with
+	wl-folder-buffer-group-p.
+	* wl-summary.el: some functions are replaced with
+	wl-summary-entity-info-msg.
+	* Change: changed wl-reset-plugged-alist's default value to t.
+	* Fix: plugged status is reset.
+
+1999-11-03  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-summary.el (wl-summary-reedit): When reedit draft
+	for news arcticle, don't add To: header.
+
+1999-11-03  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* wl-summary.el (wl-summary-write-current-newsgroup):
+	use elmo-folder-get-primitive-folder-list.
+	* New command: wl-folder-write-current-newsgroup
+	* elmo-util.el (elmo-folder-get-primitive-folder-list,
+	elmo-folder-get-primitive-spec-list): changed for pipe-folder.
+	* Fix: wl-toggle-plugged fails if the network downed before 
+	elmo-pop3-flush-connection.
+
+1999-11-03  sike@ic.netlaputa.ne.jp
+
+	* Fix: the problem when Message-Id contains newline. 
+
+1999-11-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.6 - "Diamonds And Pearls"
+	* Set plug status to wl-plugged in wl-init.
+	(Pointed out by Yasuo OKABE <okabe@i.kyoto-u.ac.jp>)
+	* WL-MK: rewrote for Nemacs.
+	* Rename: wl-address-complete-address
+	-> wl-complete-field-body
+	* Rename: wl-address-complete-address-or-tab
+	-> wl-complete-field-body-or-tab
+
+1999-11-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: simplified the icon init function.
+	* elmo-pipe: New module.
+
+1999-11-01  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: typo in WL-ELS.
+	* Fix: new WL-MK causes error when byte-compiling
+	wl-user-agent.el and wl-mailto.el.
+
+1999-10-29  Takaaki MORIYAMA  <taka@airlab.cs.ritsumei.ac.jp>
+
+	* Remove wl-save-status from kill-emacs-hook in wl-exit.
+
+1999-10-28  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* new file: WL-ELS.
+	* WL-MK: rewrote for install.el.
+
+1999-10-28  okada@opaopa.org (Kenichi OKADA)
+
+	* Fix: wl-ja.texi: key binding of wl-template-select was wrong.
+	* Fix: synchronize unread number for INN 2.3.
+
+1999-10-28  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* Fix: wl-ja.texi: many fixes.
+
+1999-10-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: binded 'Z' in Folder to `wl-status-update'.
+	* Fix: wl-summary-goto-last-displayed-msg doesn't jump to
+	previously displayed message when only one message was displayed.
+
+1999-10-26  kurati <kurati@bigfoot.com>
+
+	* Change: FCC: is also target of completion.
+
+1999-10-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: Sync important mark though folder is in the 
+	unplugged status.
+	* Change: Check existence of folder before auto-refile.
+	(Demanding feature by Toshihiko Kodama 
+	<kodama@ayame.mfd.cs.fujitsu.co.jp>)
+	* Fix: Mark expunged message as read on IMAP4 server.
+
+1999-10-22  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: marking of thread causes strange behavior when
+	cursor is not at the beginning of line.
+	* Change: Don't move cursor when same folder is specified in
+	wl-thread-refile.
+	* Change: Changed message when wl-summary-jump-to-parent-message
+	failed.
+	* Change: Changed region adjusting of wl-summary-exec-region to
+	intuitive way.
+
+1999-10-25  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: wl-fldmgr causes error when group folder is added.
+	* Change: define wl-defface statically.
+	* Change: wl-folder-buffer-search-entity matches unread
+	status unknown.
+	* Fix: wl-summary-redisplay-no-mime does not set
+	wl-summary-buffer-disp-msg and wl-current-summary-buffer.
+
+1999-10-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: Check domain name at startup time.
+	* New variable: wl-local-domain.
+	For those systems that doesn't return FQDN.
+	* Change: Deleted horizontal scrollbar for Folder in XEmacs.
+	(Pointed out by "MATSUBAYASHI 'Shaolin' Kohji"
+	<shaolin@rins.st.ryukoku.ac.jp>)
+	* New function: wl-mime-edit-preview-message.
+	* Change: Move cursor on readable message when entered to Summary
+	in the unplugged status.
+	* Fix:  typo in WL-CFG utils.
+	(Pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* Fix: cannot make info.
+	(Pointed out by Kazufumi Hayasaka <hayakazu@hauN.org>)
+	* 2.2.5 - "Come Undone"
+
+1999-10-24  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* Fix: simplified double negative.
+
+1999-10-24  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: If FCC is unplugged folder, append to dop-queue.
+	* Change: New elmo-dop-queue operation "append-operations".
+	* Change: wl-summary-flush-pending-append-operations takes over
+	existing message's unread status.
+
+1999-10-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New file: WL-CFG.
+	* Fix: FCC to IMAP4 Folder is ignored in the offline status.
+	(Reported by Masafumi NAKANE <max@wide.ad.jp>)
+	* Fix: refile-alist cannot be shared between Emacs and XEmacs.
+	(Reported by Takuro KITAME <kitame@northeye.org>)
+	* wl-ja.texi: fixed original site of tm, semi.
+	* Fix: If there are IMAP4 folders which have same name and different
+	servers, wrong folder is sometimes updated its unread number.
+	(Reported by Kazuyoshi Mii <mii@isl.ntt.co.jp>)
+
+1999-10-23  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Fix: queued functions not in elmo-dop-merge-funcs are discarded.
+
+1999-10-23  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: Plugged status:
+	display label of every port.
+	* Change: Plugged status:
+	displaying dop-queue displayed more in detail.
+	* Fix: elmo-dop-queue-merge sometimes set elmo-dop-queue to nil.
+
+1999-10-23  okada@opaopa.org (Kenichi OKADA)
+
+	* Change: elmo-prefetch-msgs displays the progress.
+
+1999-10-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Set wl-mime-save-content as Wanderlust specific method on SEMI.
+	* Fix: FLIM-1.12.x fails to merge partial messages.
+	* WL-MK: Rewrote configuration process.
+
+1999-10-22  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* Rename: wl-score-edit-exit-function -> wl-score-edit-exit-func
+
+1999-10-22  Takuro KITAME <kitame@northeye.org>
+
+	* Fix: etc/ja.Emacs: Some values are duplicated.
+
+1999-10-22  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Add: [wl-ja.texi]
+	Added explanations of wl-summary-save-*,
+	wl-summary-jump-to-msg-by-message-id-via-nntp,
+	offline prefetch, wl-folder-jump-to-current-entity, cram-md5, and SSL.
+
+1999-10-22  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: Set md5 CODING to 'binary for XEmacs built-in function.
+	* Fix: Move from sticky summary to other by "g",
+	temp mark face is not recovered.
+	* New variable: wl-prog-uudecode-no-stdout-option.
+	Non-nil forces save with filename specified in uuencode stream.
+
+1999-10-21  okada@opaopa.org (Kenichi OKADA)
+
+	* Merge offline queue.
+
+1999-10-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: Don't use std11.el in wl-address-header-extract-address.
+
+1999-10-20  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: Don't reset `elmo-plugged-alist' when startup.
+
+1999-10-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: Emacs 20.2 causes buffer-read-only error on Folder mode.
+	(Reported by Yasuhiro Ohta <yohta@acsu.buffalo.edu>
+	Adviced by TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>)
+	* Fix: Check the feature of scrollbar and toolbar on XEmacs.
+	(Adviced by Shigeru OKUMURA <sokumura@jaist.ac.jp>)
+
+1999-10-20  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Fix: An error occurs when message with invalid header is refiled.
+	* Fix: Access grop content is not appeared automatically at first
+	open operation.
+
+1999-10-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: 'E' in Folder causes error at wl-folder-toggle-disp-summary.
+	(Reported by Shigeru OKUMURA <sokumura@jaist.ac.jp>)
+	* Change: Don't use 'eval-after-load' for timezone y2k.
+	* 2.2.4 - "Black Or White"
+
+1999-10-19  okada@opaopa.org (Kenichi OKADA)
+
+	* Fix: prefetching removes mark in summary although it was canceled.
+	* Change: Offline Prefetch.
+
+1999-10-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: inhibit 'm f' command in the last line of Folder mode.
+	* Change: reduced warnings in byte-compile.
+	* Added hmac package and ssl.el in utils subdirectory.
+	(If wl-install-hmac is Non-nil, hmac package is installed.)
+	* Change: corresponded to FLIM-1.12.
+	* Fix: IMAP4 folder claims in unplugged status.
+	* Change: Ask update number in summary if message number is larger 
+	than wl-summary-update-confirm-threshold.
+	* New variable: wl-summary-update-confirm-threshold
+
+1999-10-18  okada@opaopa.org (Kenichi OKADA)
+
+	* New variable: wl-summary-search-via-nntp.
+	if Non-nil, call wl-summary-jump-to-msg-by-message-id-via-nntp in
+	wl-summary-jump-to-msg-by-message-id. If 'confirm, it confirms.
+	* New variable: wl-summary-jump-to-msg-by-message-id-via-nntp
+	Search message by Message-ID via NNTP and change folder.
+
+1999-10-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: call elmo-commit in elmo-imap4-server-diff.
+	* New function: elmo-commit.
+	* Fix: wl-folder-check-one-entity removed useless folder check.
+	* elmo-imap4-max-of-folder: new implementation.
+	* elmo-imap4-folder-exists-p: new implementation.
+
+1999-10-14  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* Fix: wl-ja.texi: typo (@kbd {l} -> @kbd{l}).
+
+1999-10-14  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* Fix: wl-local-variable-p does not work on xemacs.
+
+1999-10-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: flag on server was not changed when cached message was read.
+	(Pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* Change: Use std11.el in wl-address-header-extract-address.
+
+1999-10-14  Masafumi NAKANE <max@wide.ad.jp>
+
+	* Fixed Typo: exit-> exist.
+
+1999-10-13  okada@opaopa.org (Kenichi OKADA)
+
+	* Change: unplugged.xpm: added red.
+
+1999-10-13  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: elmo-filter-get-spec change was not completed
+	(elmo-folder-diff).
+
+1999-10-13  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: lighten wl-plugged-mode.
+	* Fix: wl-draft-raw-send
+	wl-draft-config-alist was binded to nil.
+
+1999-10-13  Sasaki Toshiya <toshi@unicorn.tohoku.nttcom.co.jp>
+
+	* Change: wl-folder-use-sever-diff-p
+	If multi-folder contains IMAP4 folder, then t.
+
+1999-10-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: Set filename in 'm U' (wl-summary-temp-mark-uudecode).
+	* Change: Wheel works in Folder mode.
+	* Fix: tm-wl.el was not completed.
+	(Pointed out by Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp>)
+	* Change: wl-ja.texi: added explanation of 'OR'.
+	* Change: removed dependency for time-stamp.el.
+
+1999-10-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.3 - "Always"
+	* read-directroy-name -> wl-read-directory-name.
+
+1999-10-12  okada@opaopa.org (Kenichi OKADA)
+
+	* New commands: wl-summary-save-region (ry), wl-thread-save (ty),
+	wl-summary-temp-mark-save (my).
+
+1999-10-11  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* New variable: wl-draft-sendlog
+	Sending log is saved when this value is non-nil.
+	* New plugged system-II.
+
+1999-10-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New command: wl-summary-temp-mark-pick (binded to m?).
+	* New variable: elmo-imap4-disuse-server-flag-mailbox-regexp.
+	* Rename: wl-address-file-name -> wl-address-file.
+	* Rename: wl-score-default-file-name -> wl-score-default-file.
+	* New variable: wl-summary-auto-sync-marks.
+	Non-nil forces summary to synchronize unread/important marks at 's'.
+	* Change: default value for wl-stirict-diff-folders is changed to nil.
+	* Change: important marks are synchronized in server.
+	* Change: IMAP4 Folder synchronizes unread status with server.
+	* New command: wl-summary-sync-marks.
+	* Change: IMAP4 Folder server can display side diff.
+	* New variable: wl-folder-use-server-diff.
+
+1999-10-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New variable: wl-envelope-from which sets envelope from.
+	If nil, wl-from is used as envelope from.
+
+1999-10-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: defined easy saving method as default (for SEMI).
+	* Change: wl-draft-send kills sending-buffer only when
+	it is buffer-live-p.
+	* Change: Folder existence is checked only when folder checking
+	was failed.
+	* Fix: wheel causes error when cursor is on message buffer.
+
+1999-10-04  okada@opaopa.org (Kenichi OKADA)
+
+	* Change: C-u SPC calls wl-folder-update-recursive-current-entity
+	on group folder.
+
+1999-10-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: filtered IMAP4 folder queues needless remove process.
+	(Pointed out by OKAZAKI Tetsurou <okazaki@be.to>)
+
+1999-10-04  okada@opaopa.org (Kenichi OKADA)
+
+	* Fix: wl-folder-update-recursive-current-entity does not work
+	when access group has petname.
+
+1999-10-03  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Fix: keys (mail addresses) are downcased when they are registered
+	to wl-refile-alist.
+
+1999-10-02  Tetsuya Uemura <uemura@pp.iij4u.or.jp>
+
+	* Change: If number is specified as prefix argument for C-l,
+	the number is passed to recenter.
+
+1999-10-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: Avoided mark as read entire message when part was fetched
+	in IMAP4.
+
+1999-09-30  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: Emacs 20 with argument '-nw' could not print out.
+
+1999-09-28  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: Summary sometimes appears on unexpected window
+	when moving from Folder to Summary.
+	* Fix: wl-plugged-change causes error.
+	* Change: wl-plugged-change can be called from Summary.
+
+1999-09-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: quit loading wl.el in compile time.
+	(Pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-09-27  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: New plugged system sometimes causes an error.
+
+1999-09-26  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: New plugged system.
+
+1999-09-24  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: execute wl-summary-redisplay-internal ()
+	instead of wl-summary-set-message-buffer-or-redisplay() to affect
+	wl-break-pages value in printing.
+	* Fix: If wl-break-pages is t, next page does not printed.
+
+1999-09-23  Kenichi OKADA <okada@opaopa.org>
+
+	* Change: set truncate-line t in folder-mode
+	when wl-stay-folder-window is non-nil.
+
+1999-09-23  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: elmo-filter-get-spec change was not completed
+	(elmo-folder-diff).
+
+1999-09-23  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: use file-name-absolute-p () for absolute path detecting.
+
+1999-09-20  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: kill buffers of mime-view-caesar when exit summary.
+
+1999-09-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: elmo-safe-filename: corresponded to OS/2 filesystem.
+
+1999-09-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.2 - "You Could Be Mine"
+	* Change: folders in Folder mode are saved ignoring
+	wl-save-folder-list.
+	* Change: 'tocc' field means 'To' or 'Cc' in filter spec.
+	* Change: OR condition, NOT condition are now available in filter
+	folder.
+	* Change: wl-uniq-list -> elmo-uniq-list
+	* Fix: wl-summary-save always complains "No message to save."
+	* Change: move local-variable-p definition to wl-util.el.
+	(according to the report from Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-02-02  IMAI Takeshi <imai@ed2.com1.fc.nec.co.jp>
+
+	* Fix: cannot expire to IMAP folder.
+
+1999-09-20  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: kill buffers of mime-view-caesar when exit summary.
+
+1999-09-19  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* Fix: set process-buffer of open-network-stream as unibyte.
+
+1999-09-19  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: wl-ja.texi
+
+1999-09-17  HAYAKAWA akio <akio-h@po.iijnet.or.jp>
+
+	* Change: consider multi folder as local folder if
+	it contains only local folder.
+
+1999-09-16  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* typo fix.
+
+1999-09-16  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: recycle message window in one frame.
+	* Change: resume message window status in wl-summary-goto-folder
+	according to wl-summary-buffer-disp-msg.
+
+1999-09-15  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* WL-MK:
+	  Fix: install-wl-package ignored wl-install-els for elmo modules.
+	  New function: wl-install-modules
+
+1999-09-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.1 - "Wild World"
+	* typo: stickey -> sticky.
+	* New function: wl-nemacs.el
+	local-variable-p for Nemacs.
+	* Rename: etc/ChangeLog.* -> etc/ChangeLog.*.ja
+	* Rename: etc/ChangeLog.*.en -> etc/ChangeLog.*
+	* Fix: XEmacs doesn't show logo.
+	* Fix: install fails in XEmacs package.
+	(Pointed out by Hidetomo Machi <machi@ailab.is.tsukuba.ac.jp>)
+	* Change: wl-ja.texi
+	Sync up section MIME modules.
+	* Change: keep info files.
+	* New function: wl-kill-buffers
+	* Change: delete Sticky Message buffer in
+	wl-summary-force-exit and wl-exit.
+	(Adviced by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-09-14  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: wl-summary-read causes error in sticky summary under
+	XEmacs-21.1.6.
+
+1999-09-14  Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>
+
+	* Fix: ja/dot.wl
+	elmo-eword-decode-string is still used.
+
+1999-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: tm-wl.el
+	defined some functions by defalias-maybe.
+	* Remove: smtp.el
+	flim or clime includes it.
+
+1999-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.0 - "Vogue"
+	* smtp.el: Sync up with flim-1.13.2.
+	* New variable: wl-install-els.
+	If nil, el files are not installed(for WL-CFG).
+	* Stickey Message changes for wl-draft-reply etc.
+	* Rename: wl-drfat-buffer-cur-message-buffer ->
+	wl-current-message-buffer(moved to wl-util.el)
+	* Change: elmo-cross-device-link-error-p definition
+	for MSDOS-mounted filesystem in UNIX.
+	(According to the report from pf21 GOTO_Toshiya
+	<pf21@pure.cpdc.canon.co.jp>)
+
+1999-09-13  Mito <mit@nines.nec.co.jp>
+
+	* Change: Stickey Message.
+	* Change: New guess module of score file.
+	* Change: el files are also installed with elc files.
+
+1999-09-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New file: samples/en/dot.*
+	* New directory: samples.
+	* Move: etc/*.xpm -> etc/icons/*.xpm
+	* Move: etc/TODO -> doc/TODO.ja
+
+1999-09-12 OKAZAKI Tetsurou <okazaki@be.to>
+
+	* Fix: filter syntax of since, before is changed.
+
+1999-09-10  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* im-wl-prog-imput-error-msg ->	im-wl-dispatcher-error-msg.
+
+1999-09-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* removed defmacro of convert-standard-filename.
+	* removed defmacro of open-network-stream-as-binary.
+	* removed defmacro of with-current-buffer, with-temp-buffer etc.
+	* elmo-eword-decode-string -> abolished.
+
+1999-09-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New variable elmo-default-imap4-user.
+	(According to the advice from Taiji.Can@atesoft.advantest.co.jp)
+	* 2.1.5 - "Unbelievable"
+
+1999-09-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New variable: elmo-nntp-max-number-precedes-list-active.
+	Non-nil precedes max number obtained by `list active' command in nntp.
+	* New function: elmo-update-number which synchronizes max number of
+	nntp folder when elmo-nntp-max-number-precedes-list-active is
+	non-nil.
+	(Based on Kenichi OKADA <okada@opaopa.org>'s report.)
+
+1999-09-06  Akihiro Motoki <mokkun@iname.com>
+
+	* Fix: elmo-localnews-append-msg has wrong number of arguments.
+
+1999-09-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* [im-wl] Copy `im-wl-prog-imput-error-msg' value to process buffer.
+	* Change: 'N','P' also ignores if current folder is
+	(elmo-folder-local-p).
+	(Adviced by Akihiro Motoki <mokkun@iname.com>)
+
+1999-09-03  Akihiro Motoki <mokkun@iname.com>
+
+	* Fix: 'p' skipps unread message even in localdir.
+	* New function: (elmo-folder-local-p)
+
+1999-09-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: key bind of wl-template-select is changed to `C-cC-j'.
+	(Adviced by TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+	Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-08-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: Message is changed for sending or queueing of draft.
+
+1999-08-31  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: [im-wl] quit setting buffer in sub-process.
+
+1999-08-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: [wl-ja.texi] now IMAP folder collects extra-fields.
+	(Pointed out by Sasaki Toshiya<toshi@unicorn.tohoku.nttcom.co.jp>)
+	* Fix: Splited MIME message causes deadlock.
+	(Pointed out by Mikio Nakajima <minakaji@osaka.email.ne.jp>)
+
+1999-08-30  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* new im-wl.el
+
+1999-08-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: `K'/`L' (wl-summary-increase/lower-score) proceeds to
+	rule input status in the last line of Summary.
+	(Adviced by TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>)
+	* New variable: elmo-pop3-send-command-synchronously.
+	Wait sending next command until server response is received.
+	(According to Atsushi Tada <tada@tworks.co.jp>'s patch)
+	* Fix: mime-store-message/partial-piece causes error in recent SEMI.
+	* Fix: Toolbar is not appeared in Draft mode in XEmacs.
+
+1999-08-26  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* Fix: wl-summary-save causes error in the last line of summary.
+
+1999-08-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: default color for light background.
+	* Fix: invalid filter syntax /last=200/ causes error.
+	* Fix: imap access group could not specify root.
+
+1999-08-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.1.4 - "Tears In Heaven"
+	* Change: [wl-ja.texi] Added explanation of C-u . in Summary.
+	(Pointed out by susumu-w@ops.dti.ne.jp)
+
+1999-08-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: Cause error when refile or delete was failed in
+	wl-summary-exit.
+	* Fix: headers in split messages are not encoded.
+	* Fix: Unread status is not reflected for messages read in
+	unplugged status.
+	* Fix: In unplugged status, previous message is displayed if
+	uncached message is read.
+	* Fix: temp-mark highlighting doesn't precedes persistent marks in
+	wl-thread-open-close. (Pointed out by susumu-w@ops.dti.ne.jp)
+	* Change: wl-thread-insert-message:
+	don't use wl-summary-goto-top-of-current-thread.
+	* Change: (wl-summary-goto-top-of-current-thread) new implementation.
+	* Fix: wl-mail-setup-hook is not called when draft is created by "W".
+	  (Pointed out by Kenichi OKADA <okada@opaopa.org>)
+	* Change: push -> wl-push.
+	  (Pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: quit defaliasing elmo-eword-decode-string.
+	* Change: display version of flim in User-Agent when tm is used.
+	* Fix: comparing function of partial ID.
+
+1999-08-22  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: elmo-nntp.el (elmo-nntp-catchup-msgdb):
+	if overview is not obtained, msgdb becomes (nil nil nil nil).
+
+1999-08-20  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-pop3.el: reorganized elmo-pop3-list-folder.
+
+1999-08-20  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* New variable: wl-score-folder-alist-matchone.
+	* Change: expanded syntax of wl-score-folder-alist.
+
+1999-08-20  Mito <mit@nines.nec.co.jp>
+
+	* Change: [wl-score] if symbol 'guess' is specified
+	instead of score file name in wl-score-folder-alist,
+	file name is guessed from folder name.
+
+1999-08-19  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: (wl-summary-switch-to-clone-buffer): added
+	  wl-summary-buffer-temp-mark-list, wl-summary-default-score,
+	  wl-summary-important-above, wl-summary-temp-above,
+	  wl-summary-mark-below, wl-summary-expunge-below to copy variables.
+
+1999-08-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: Implemented wl-thread-exec.
+	  (Pointed out by "KJ.TASAKI" <kj.tasaki@18software.co.jp>)
+	* Change: Check remaining temp-marks before sync-all.
+	  (Pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* Fix: [elmo-vars.el] berkeley-db fix was not reflected.
+	  (Pointed out by Mikio Nakajima <minakaji@osaka.email.ne.jp>)
+	* Fix: y2k problem in timezone-parse-date.
+	  (Pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+
+1999-08-17  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* Fix: autload setting of interactive commands in wl-fldmgr.el.
+
+1999-08-16  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: Speed up scoring functions.
+	* Change: wl-summary-sort-by-{from|subject}: faster implementation.
+	* Change: wl-summary-switch-to-clone-buffer copies
+	wl-current-score-file and wl-score-alist.
+	* Added wl-as-mime-charset.
+	* Change: Use wl-score-mode-mime-charset instead of
+	  wl-score-mode-coding-system.
+	* Change: set default table size of elmo-make-hash to 1024.
+
+1999-08-14  susumu-w@ops.dti.ne.jp
+
+	* Fix: wl-thread-jump-to-msg causes error when called as command.
+	* Change: bind "J" to wl-thread-jump-to-msg in Summary.
+	* Change: localdir, localnew, maildir ignores unplugged status
+	in cursor moving.
+	* Change: t d doesn't take direction into account.
+	* Fix: c-u t d marks previous thread.
+	* Fix: 'd' displays next message, but t d does not.
+	* Change: skip message marked with 'D' in n & p.
+
+1999-08-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: [elmo] Cannot access remote folder of UW imapd.
+
+1999-08-04  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: message body is not displayed in wl-queue-folder.
+	  (Pointed out by <no_bo@geocities.co.jp>)
+	* 2.1.3 - "Sukiyaki"
+
+1999-08-03  Kenichi OKADA <okada@opaopa.org>
+
+	* Change: Deleted extra Tab/Spaces from ChangeLogs.
+	* Fix: typo in wl-vars.el.
+	* Add: [wl-ja.texi]
+	wl-folder-{prefetch|mark-as-read-all}-current-entity.
+
+1999-08-03  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: even when queued messages caused error, they are deleted.
+	(Pointed out by Mikio Nakajima <minakaji@osaka.email.ne.jp>)
+	* mmelmo-imap4.el: mime-goto-header-start-point,
+	mime-goto-header-end-point, mime-entity-header-buffer,
+	mime-entity-body-buffer is implemented.
+	(Pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* smtp.el: Trial new option: smtp-notify-success.
+	* wl-mime.el: merging pertial mesages sometimes failed.
+	(Pointed out by Shuichi Nishioka <shu@gohome.org>)
+	* Fix: Multipart message could not be re-edited.
+	* Fix: temp mark processing is unwind-protected.
+	(Pointed out by Mito <mit@nines.nec.co.jp>,
+	Masahiro MURATA <muse@ba2.so-net.ne.jp>,
+	Taiji.Can@atesoft.advantest.co.jp)
+
+1999-08-02  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* Fix: cannot toggle to online when POP3 connection is disappeared.
+	* Fix: [wl-ja.texi]
+	wl-toggle-plugged -> wl-draft-toggle-plugged.
+
+1999-08-01  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* Fix: If XEmacs is build with configure --with-database=berkdb,
+	elmo-database.el is not loaded although elmo-use-database
+	is set as non-nil.
+
+1999-07-30  Mito <mit@nines.nec.co.jp>
+
+	* Fix: Error causes when Summary's (window-height) is small.
+
+1999-07-29  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: copy from (localdir, maildir, localnews, archive) to
+	 (localdir, localnews, archive).
+	* Fix: wl-summary-pick
+	If multiple messages have same Message-ID, temp mark is put on only
+	first message.
+	* Change: correspond to `Followup-To: poster'.
+	* New command: wl-summary-supersedes-message
+	* wl-util.el (wl-string): Use set-text-properties instead of
+	  format.
+
+1999-07-28  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix: cannot reply to mails which are sent by user.
+
+1999-07-27  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* New function: elmo-multiple-field-body and
+	elmo-multiple-fields-body-list.
+
+1999-07-26  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: elmo-localnews-copy-msgs is called although it is not defined.
+
+1999-07-24  HAYAKAWA akio <akio-h@po.iijnet.or.jp>
+
+	* Fix: error causes when wl-(un)plugged-hook is set.
+
+1999-07-23  Kenichi OKADA <okada@opaopa.org>
+
+	* Fix: wl-mail-setup-hook is not called when draft is created by "W".
+
+1999-07-22  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: wl-summary-cancel-message is not corresponded to
+	Sticky Summary.
+
+1999-07-16  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* Fix: [sample.dot.wl] To field is not decoded.
+
+1999-07-15  Masahiro Murata  <muse@ba2.so-net.ne.jp>
+
+	* Fix: void-function wl-summary-rescore-msgs.
+
+1999-07-15  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: elmo-imap4 also causes moji-bake in Emacs20 because of
+	wrong multibyte settings.
+	* 2.1.2 - "Rico Suave"
+
+1999-07-14  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Change: Skip checking when "I" in Summary is invoked with
+	prefix-arg.
+	* Fix: In elmo-nntp, multibyte setting for Emacs 20 was invalid.
+	* Fix: messages with 'u' mark couldn't be set as unread.
+	* Fix: 'M-x wl-draft' causes error in XEmacs.
+	  (pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* Fix: wl-summary-highlight is ignored in wl-summary-update3.
+	* Change: Display prefetched message number after "I".
+	* Fix: Summary buffer is set as modified after prefetching.
+	* Fix: messages marked with "U" cannot be prefetched by "I" in Folder.
+	  (susumu-w@ops.dti.ne.jp)
+
+1999-07-14  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: [wl-score] (wl-score-simplify-subject)
+	use wl-score-simplify-fuzzy-regexp instead of
+	wl-summary-subject-func.
+	* Fix: multiple same cache is created in buffer-cache.
+
+1999-07-13  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* delete-if -> elmo-delete-if.
+
+1999-07-13  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: skipped prefetching messages are not taken into account in 'I'.
+	  (reported by susumu-w@ops.dti.ne.jp)
+	* 2.1.1 - "Praying For Time"
+
+1999-07-12  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* wl-draft-insert-signature -> eliminated.
+	* wl-summary-prefetch-all-new -> eliminated.
+	* Fix: when password prompt is interrupted by C-g,
+	  wrong-type-argument databasep nil sometimes occurs.
+	  (pointed out by "MATSUBAYASHI 'Shaolin' Kohji"
+	   <shaolin@rins.st.ryukoku.ac.jp>)
+	* New variable: wl-summary-incorporate-marks.
+	 messages with specified marks are prefetched by 'I' in Summary.
+	* Fix: delete '(elmo-set-buffer-multibyte nil)' from elmo-nntp.el and
+	  mmelmo.el (adviced by Shigeru OKUMURA <sokumura@jaist.ac.jp>)
+	* Fix: define dummy make-face function in wl-mule.el if not bounded.
+	  (adviced by HAYAKAWA akio <akio-h@po.iijnet.or.jp>,
+	   OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>)
+	* Fix: pop3 folder caused in unplugged status.
+	  (pointed out by HAYAKAWA akio <akio-h@po.iijnet.or.jp>.)
+
+1999-07-12  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: fetcing failed if elmo-msgdb-extra-fields is nil.
+
+1999-07-11  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* save elmo-crosspost-message-alist.
+	* Change: use elmo-object-load and elmo-object-save if possible.
+	* Change: [Scoring]
+	references or thread entries are not added automatically
+	in wl-summary-rescan or sync-all.
+	* extra field can be fetched in imap4 folders.
+
+1999-07-10  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Change: 'W' in localnews also completes Newsgrops field.
+
+1999-07-08  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: internal("'mark") was not work on Nemacs.
+
+1999-07-07  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: custom group of wl-summary-mark-below is 'wl-score.
+	(Pointed out by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* Change: In wl-summary-incorporate, use
+	(wl-summary-prefetch-region (point-min) (point-max))
+	instead of wl-summary-prefetch-all-new.
+	(Adviced by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* Fix: C-u . does not work in Summary.
+	  (pointed out by Hideo Matsumoto <hideo-m@nerv.org>)
+
+1999-07-06  sen_ml@eccosys.com
+
+	* rfc2368.el - version 0.3.
+
+1999-07-06  Hideo Matsumoto <hideo-m@nerv.org>
+
+	* New variable: wl-draft-use-frame.
+	If non-nil, a new frame is created for draft.
+
+1999-07-06  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: quoted lambda in mapcar of wl-day-number.
+	* Change: [wl-score.el]
+	Simplify subject string matching in wl-summary-{increase|lower}-score.
+	Changed to buffer local variable: wl-current-score-file and
+	wl-score-alist.
+	* Change: [wl-summary.el]
+	timing of setting wl-summary-scored to nil.
+	* Rename:
+	  wl-score-simplify-subject-fuzzy-regexp ->
+	  wl-score-simplify-fuzzy-regexp
+	  wl-score-simplify-buffer-fuzzy-step -> elmo-buffer-replace.
+	* Change: [wl-ja.texi] score description is changed.
+	* Fix: [wl-draft.el] added autoload setting.
+	* Fix: [sample.dot.wl]
+	deleted wl-summary-next-no-unread. added score setting.
+
+1999-07-06  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: load timing for wl-nemacs.el etc. is changed.
+	* Fix: defined rassoc for Nemacs.
+	* Fix: Nemacs causes error when 'm' is typed in Folder mode.
+	* Fix: default value for wl-use-scoring is set to nil in Nemacs.
+	* New function: elmo-delete-if. replacement of delete-if.
+	* Fix: Nemacs bytecompiler causes error (defvar nil nil).
+	  (pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* 2.1.0 - "Ordinary World"
+
+1999-07-05  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: partial messages couldn't be merged.
+	(pointed out by Taiji.Can@atesoft.advantest.co.jp)
+	* Change:
+	wl-summary-rescore also uses wl-summary-rescore-partial-threshold.
+	* Change: display processing message in
+	wl-summary-score-update-all-lines.
+
+1999-07-04  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Add: New key wl-score.el: date, extra, followup, thread.
+	* Change: File specified by `wl-score-default-file-name'
+	is always loaded.
+	* New Feature: Score editing in Summary, Score.
+	* Change: [wl-vars.el] defcustoms are re-arranged.
+	* Add: [wl-highlight.el] defface group.
+
+1999-07-01  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* New Feature: New sync range: rescan-noscore.
+	* Change: score takes effect on read messages in rescan/sync-all.
+	* New variable: wl-summary-rescore-partial-threshold.
+	for scoring in rescan, sync-all.
+	* wl-edit-again-func->wl-edit-decode-message-func
+	(adviced by tomo@etl.go.jp (MORIOKA Tomohiko).)
+	* Change: eliminated japanese comment of elmo-util.el.
+	* Change: Implementation of wl-refile-alist-setup is changed.
+
+1999-06-29  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Change: Don't check wl-refile-(msgid-)alist is loaded or not
+	every wl-refile-(msgid-)learn or wl-refile-guess-*.
+	* Change: Don't execute wl-refile-alist-save every
+	wl-refile-(msgid-)learn.
+	* Change: return value of wl-refile-(msgid-)learn.
+
+1999-06-29  Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+	* Change: Enclosed require 'cl by eval-when-compile.
+
+1999-06-29  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: Nemacs couldn't exit folder by [Space] if unread was 0.
+	* Fix: cl.el' member () overrides poe-18.el' member ().
+
+1999-06-29  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Change: corresponded to AIR MAIL(AIRCimapd release 2.00).
+	(Based on the report from Sasaki Toshiya
+	<toshi@unicorn.tohoku.nttcom.co.jp>)
+
+1999-06-29  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Change: changed the meaning of expunge to
+	'mark as read and eliminate from summary buffer'.
+	* report expunged messages.
+
+1999-06-28  Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+	* Change: Eliminated to use md5-encode in elmo-pop3.el.
+
+1999-06-28  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* MK-MK:
+	quoted (mapcar (lambda ..)) for Emacsen based on v18.
+	* Fix: Nemacs installes wl-mule.elc.
+	redefined defgroup(), defcustom().
+	* Fix: wl-summary.el, wl-demo.el:
+	Avoided error for non-float Emacsen.
+	* Fix: wl-nemacs.el:
+	dummy completing-read() is added.
+	read-char-exclusive() causes error.
+
+1999-06-28  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: wl-summary-pick doesn't work correctly if
+	default-case-fold-search is nil.
+	* Fix: Although wl-auto-select-next is non-nil,
+	doesn't change folder if there are more than two important marks.
+
+1999-06-28  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* New function: wl-summary-delete-all-delete-marks.
+	* Fix: (wl-summary-cleanup-temp-marks) was called twice.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+
+1999-06-27  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: no scoring when changing folder by
+	wl-summary-goto-folder-subr.
+	* Change: Abolished wl-summary-next-no-unread.
+	* Change: default value of wl-summary-move-order: 'new -> 'unread.
+
+1999-06-27  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: Nemacs causes  (wrong-type-argument listp 1).
+	* Fix: Nemacs causes error because of absense of timer function.
+
+1999-06-27  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: set coding system for score file as ctext (*ctext).
+
+1999-06-26  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Add: Handle "nntp:" and "news:" URL like "mailto:".
+	  (-> wl-utils.el)
+
+1999-06-25  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: [wl-score.el]
+	coding-system processing was wrong.
+
+1999-06-25  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* New file: [wl-score.el]
+	Scoring feature!
+	* Change: [wl-summary.el] (wl-summary-sync-update3)
+	Changed the timing of wl-folder-set-folder-updated.
+	* Change: (wl-summary-update-crosspost)
+	mark as read without opening thread.
+	* New function: [wl-util.el] `wl-delete-alist'.
+	* New macro: [wl-util.el]
+	`wl-as-coding-system' and emulate function `pp'.
+
+1999-06-24  pf21 GOTO_Toshiya <pf21@pure.cpdc.canon.co.jp>
+
+	* Add: [wl-ja.texi]
+	added explanation of wl-thread-open-reading-thread.
+
+1999-06-24  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Fix: elmo-cache-expire causes error.
+
+1999-06-24  sen_ml@eccosys.com
+
+	* Fix: utils/rfc2368.el.
+
+1999-06-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.0.1 - "Now And Forever"
+	* Fix(incompletely):
+	wl-draft-reedit deletes lines before "--text follows this line--"
+	in message body.
+	(pointed out by Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>)
+
+1999-06-24  MAKINO Takashi <makino@cyber.office.ne.jp>
+
+	* New function: wl-refile-guess-by-msgid.
+
+1999-06-23  Akihiro Motoki <mokkun@iname.com>
+
+	* Fix: When (setq wl-stay-folder-window t) and started with
+	'wl-draft' command, wl-draft-send-and-exit and wl-draft-kill failes.
+
+1999-06-23  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Fix: [wl-ja.texi]
+	wl-template-alist : file -> body-file
+
+1999-06-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: C-c C-y with prefix in Draft cites from cut buffer.
+	* Change: elmo-imap4-int-string-to-list: abolished.
+	  (advised by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* Change: binded wl-summary-save to 'e' in Summary.
+	* Change: removed unused let binding in wl-set-string-width.
+	* Fix: Unplugged MH refile calls elmo-copy-msgs and elmo-append-msg.
+	  (pointed out by Koji IIDA <kiida@nttx.co.jp>)
+
+1999-06-22  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: wl-draft-prepared-config-exec was binded to C-c C-d and C-c C-e.
+	* Change: set wl-completion-buf-name as standard "*Completions*".
+	* Fix: wl-message-buffer-created-hook was not called correctly.
+	  (pointed out by Akihiro Motoki <mokkun@iname.com>)
+
+1999-06-22  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: [elmo-nntp.el] XOVER size value was wrong.
+	* Change: (elmo-nntp-string-to-vector): Renamed from
+	`elmo-nntp-string-to-list'.
+	* Change: [elmo-localdir.el] get file size by file-attributes.
+
+1999-06-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: [elmo-pop3]
+	elmo-pop3-max-of-folder: new implementation.
+
+1999-06-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: display syntax errors in .wl.
+	* tiny additional patch.
+
+1999-06-19  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* ignore defface definition when (featurep 'tinycustom).
+
+1999-06-18  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* Fix: nntp still causes moji-bake.
+
+1999-06-18  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix: '@' expands alias address correctly.
+
+1999-06-16  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* New variable: wl-use-dnd.
+
+1999-06-16  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change: [elmo-nntp]
+	elmo-list-folder uses "LISTGROUP" command.
+	* Change: [elmo-nntp]
+	keep xover settings for each server.
+
+1999-06-16  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* Fix:
+	sjis or euc message causes moji-bake.
+
+1999-06-16  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Change: [elmo-imap4]
+	corresponds cram-md5.
+
+1999-06-15  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Fix: [tm-wl.el]
+	error: Split sender is not specified for `wl-draft-mode'.
+	(pointed out by Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp>)
+
+1999-06-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: [wl-ja.texi]
+	explanation for `wl-draft-enable-queuing' was duplicated.
+	(pointed out by Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp>)
+
+1999-06-14  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change:
+	wl-detect-info-directory() detects directory more cleverly.
+
+1999-06-13  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* buffer cache.
+	* New variable: elmo-use-buffer-cache
+	* buffer cache prefetching is implemented.
+	* New variable: wl-cache-prefetch-folder-type-list.
+	* New variable: elmo-buffer-cache-size.
+	* New variable: wl-cache-prefetch-folder-list.
+	* New variable: wl-summary-no-mime-folder-list.
+
+1999-06-13  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* WL-MK:
+	  Fix: wl-texinfo-format() requires 'wl-vars.
+	  Change: `WL_TEXINFO_NOTAGIFY' was abolished.
+	  Change: Don't keep back `wl-ja.info' in the source-tree when
+	          installing.
+
+1999-06-13 Sen Nagata <sen@eccosys.com>
+
+	* New file: utils/wl-use-agent.el, utils/rfc2368.el
+
+1999-06-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix:
+	argunemt for elmo-imap4-get-connection was invalid.
+	(pointed out by <kokada@tamaru.kuee.kyoto-u.ac.jp>)
+	* 2.0.0 - "Mmmbop"
+	* Change:
+	if wl-summary-partial-highlight-above-lines is nil, use
+	wl-summary-highlight-partial-threshold to highlight summary lines.
+	* Change:
+	Updated util/wl-user-agent.el provided by Sen Nagata <sen@eccosys.com>
+	(pointed out by OKUNISHI -GTO- Fujikazu
+	<fuji0924@mbox.kyoto-inet.or.jp>).
+
+1999-06-10  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	error occurs when accessing to imap4 or nntp access group
+	if port number is not default value.
+
+1999-06-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Rename:
+	ChangeLog.en -> ChangeLog
+	ChangeLog -> ChangeLog.ja
+	* Add: [wl-ja.texi]
+	added explanation of variable `wl-plugged'.
+	(adviced by Daisuke Ikeda <daisuke@cc.kyushu-u.ac.jp>)
+
+1999-06-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* New variable:
+	elmo-default-pop3-ssl, elmo-default-nntp-ssl, elmo-default-imap4-ssl.
+	* Rename:
+	elmo-nntp-port -> elmo-default-nntp-port
+	elmo-imap4-port -> elmo-default-imap4-port.
+	(Adviced by Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>)
+	* Change: [elmo]
+	use SSL if "!" is specified in the tail of folder name of
+	imap4, nntp, pop3.
+	* Fix: [elmo]
+	connection cache for imap4, nntp, pop3 are conflicted.
+
+1999-06-09  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* New variable: elmo-default-pop3-server.
+	* Fix: [mmelmo-imap4.el].
+	* Fix: [wl-ja.texi].
+
+1999-06-08  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Change:
+	port nunber can be specified in IMAP4 folder name.
+
+1999-06-07  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* Fix:
+	preserve message order in trash folder.
+	* Change:
+	wl-summary-pick can use field names in elmo-msgdb-extra-fields.
+
+1999-06-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	wl-summary-jump-to-parent-message() precedes In-Reply-To.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* Change:
+	if From field matches wl-from, preserve To, Cc, Newsgroups in reply.
+	(adviced by TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>)
+
+1999-06-06  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* unread message is not highlighted in
+	wl-folder-mark-as-read-all-entity, wl-folder-sync-entity,
+	wl-folder-prefetch-entity on sticky summary.
+
+1999-06-05  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	wl-folder-no-auto-check-folder-p precedes wl-auto-check-folder-list.
+	* Fix:
+	wl-summary-switch-to-clone-buffer doesn't copy
+	wl-summary-buffer-new-count and wl-summary-buffer-unread-count.
+	* Fix:
+	wl-folder-empty-trash doesn't show summary.
+	* Fix:
+	wl-summary-goto-folder-subr causes error in recenter.
+	* Fix:
+	suppress warnings while byte-compiling bbdb-wl.el with bbdb2.
+	* New variable:
+	wl-folder-suspend-hook.
+
+1999-06-06  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix:
+	"V" requires sync update. also, "C-u V" requires sync update.
+
+1999-06-04  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: [wl-draft.el (wl-draft-reedit)]
+	bind change-major-mode-hook to nil to avoid font-lock.
+	* Fix: [wl-message.el (wl-message-refer-article-or-url)]
+	move cursor in the summary buffer.
+
+1999-06-03  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	when move from sticky summary, temp-mark is deleted but
+	highlight remains.
+	* Fix:
+	make wl-summary-buffer-copy-list buffer-local-variables.
+	* Change:
+	when entering summary, use set-buffer instead of switch-to-buffer
+	if function is not called interactive.
+
+1999-06-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Fix: implemented elmo-imap4-identical-name-space-p.
+	(pointed out by Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp>)
+
+1999-06-03  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix: strange behavior of wl-draft-exit
+	when sticky summar exists.
+	* Fix: mR and mf are duplicated in menubar.
+	* Fix: wl-summary-jump-to-current-message.
+
+1999-06-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change: [WL-MK]
+	compile and install "bbdb-wl" if BBDB exists in install-package for
+	XEmacs.
+	* New variable: wl-summary-keep-cursor-command
+	command list for keep cursor.
+	* Change: [mmelmo.el, mmelmo-imap4.el]
+	correspond to FLIM 1.13 API.
+
+1999-06-02  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change: [WL-MK]
+	compile and install "bbdb-wl" if BBDB exists.
+
+1999-06-02  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Fix:
+	suppressed warnings while byte-compiling elmo-pop3.el
+	* Fix: [WL-MK]
+	second make causes error after changing elmo-*.el
+
+1999-06-02  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Fix:
+	new message is not highlighted in sticky summary updating.
+
+1999-06-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* branched from 1.0.1.
+
+1999-06-01  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* Change:
+	if summary buffer already exists, don't update and keep cursor
+	position when entering summary.
+	* New variable: wl-ask-range
+	if non-nil, 'g' uses value of wl-folder-sync-range-alist.
+	* Change:
+	store history of wl-summary-read-folder in wl-read-folder-hist.
+	* New command: wl-summary-goto-last-visited-folder
+
+1999-06-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.0.1 - "The Look"
+	* Change:
+	deleted wl-ja.info from package.
+
+1999-06-01  Sen Nagata <sen@eccosys.com>
+
+	* New file: [wl-user-agent.el]
+	support interface of compose-mail.
+
+1999-05-31  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Change:
+	when draft is finished by sending or quitting, resume folder window
+	when wl-stay-folder-window is non-nil.
+
+1999-05-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	wl-folder-sync-range-alist takes effect when
+	entered to folder from folder mode.
+	(pointed out by Toshihiro KAMISHIMA <kamisima@etl.go.jp>).
+	* Fix:
+	multi-reply/forward causes error when wl-draft-reply-buffer-style
+	is 'full.
+	(pointed out by A.SAGATA <sagata@nttvdt.hil.ntt.co.jp>).
+	* Change:
+	don't load msgdb when entered to the sticky summary.
+	(advised by Masahiro MURATA <muse@ba2.so-net.ne.jp>)
+	* Fix:
+	wl-summary-exit saves msgdb uselessly.
+
+1999-05-29  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Fix: [wl-mime.el, tm-wl.el]
+	  regexp was not regexp-quote'ed in
+	  (tm-)wl-mime-combine-message/partial-pieces()
+
+1999-05-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Change:
+	speed up elmo-localdir-search.
+
+1999-05-26  Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+	* Change:
+	speed up elmo-archive-search.
+
+1999-05-25  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Change:
+	speed up  elmo-move-msgs() for localdir, localnews.
+	new variable `elmo-localdir-lockfile-list' must be specified for
+	MDA like procmail.
+	* Change:
+	speed up some functions.
+
+1999-05-24  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* Change:
+	support SSL for POP3.
+	* Change:
+	in elmo-pop3-get-spec, change type of variable port from string
+	to integer.
+	* Fix:
+	elmo-default-pop3-port,elmo-default-pop3-authenticate-type does
+	not take effect.
+
+1999-05-24  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Fix:
+	customize causes some mismatches.
+
+1999-05-24  Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* Change: wl-use-highlight-mouse-line' s default value is set to nil.
+
+1999-05-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Rename:
+	WL-ELS -> WL-MK
+
+1999-05-20  Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* Change:
+	removed delete-other-windows () in wl-exit ().
+	* Fix:
+	Make wl-summary-force-exit interactive
+	(pointed out by Ishikawa Ichiro <ichiro@mail.ne.jp>).
+
+1999-05-20 Hidetoshi Shimokawa <simokawa@sat.t.u-tokyo.ac.jp>
+
+	* Fix:
+	highlight is not active on ttys when device-class is color.
+
+1999-05-20  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Add: [wl-ja.texi]
+	about highlights.
+
+1999-05-19  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* Add:
+	wl-highlight-signature-separator.
+
+1999-05-19  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* Fix:
+	wl-summary-jump-to-message-by-message-id does not work well when
+	parent message is hidden in closed threads.
+
+1999-05-19  Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* Fix:
+	wl-summary-msgdb-load-async.
+	* Change:
+	timing of set-buffer in wl-summary-goto-folder.
+	* Fix:
+	wl-summary-mark-as-read-all does not work well when target
+	messages is hidden in closed threads.
+	(pointed out by Hajime Ohsawa <ohsawa@mxq.mesh.ne.jp>).
diff --git a/etc/ChangeLog.3.ja b/etc/ChangeLog.3.ja
new file mode 100644
index 0000000..aaacf5e
--- /dev/null
+++ b/etc/ChangeLog.3.ja
@@ -0,0 +1,3066 @@
+2000-03-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.1.0 - "Overjoyed"
+
+2000-03-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-refile.el (wl-refile-guess-func-list): $BJQ?tDj5A$r=$@5!#(B
+	(KOYAMA Tetsuji <koyama@hoge.org> $B$5$s$h$j8f;XE&(B)
+	* 1.1.0pre6 - "Overjoyed-pre6"
+	* wl-folder.el (wl-create-folder-entity-from-buffer): localnews $B$NDj5A(B
+	$B$,$"$@L>Dj5A$K$J$C$F$7$^$&$N$r=$@5!#(B
+	(AOXI Tenghe <fuji0924@mbox.kyoto-inet.or.jp> $B$5$sB>$h$j8f;XE&(B)
+
+2000-03-23  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* wl-summary.el (wl-summary-mode-menu-spec): wl-draft $B$r(B
+	wl-summary-write $B$KJQ99!#(B
+	(wl-summary-msg-marked-as-target):
+	wl-summary-msg-marked-as-temp $B$+$i2~L>!#(B
+	* wl-thread.el (wl-thread-close-all): $B6I=jJQ?tL>$rJQ99!#(B
+
+2000-03-22  Akihiro MOTOKI <mokkun@iname.com>
+
+	* wl-refile.el (wl-refile-guess-func-list): $B?75,JQ?t!#(B
+	(wl-refile-guess): wl-refile-guess-func-list $B$r;H$&$h$&$K$7$?!#(B
+
+2000-03-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el: Byte compile $B$N(B Warning $B$r8:$i$7$?!#(B
+	* wl-xmas.el,wl-mule.el,wl-nemacs.el (wl-make-modeline): $BDj5A!#(B
+	XEmacs $B$G$O%W%i%0$N%"%$%3%sI=<($r%G%U%)%k%H$K$7$?!#(B
+	(Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp> $B$5$s$h$j8f=u8@(B)
+	* wl-util.el (wl-make-modeline-subr): wl-make-modeline $B$+$i2~L>!#(B
+	* utils/bbdb-wl.el (bbdb-wl-update-record): Sticky summary $BBP1~!#(B
+	(bbdb-wl-update-record, bbdb-wl-get-update-record):
+	raw buffer $B$,(B multibyte $B$K$J$i$J$$$h$&$K$7$?!#(B
+	* wl-draft.el (wl-draft-reply):	$BF1MM!#(B
+	* 1.1.0pre5 - "Overjoyed-pre5"
+
+2000-03-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* NEWS.ja: $B?75,%U%!%$%k!#(B
+	* elmo-maildir.el (elmo-maildir-list-folders):
+	elmo-have-link-count $B$r(B nil $B$K94B+(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@(B)$B!#(B
+	* wl-summary.el (wl-summary-edit-addresses-subr):
+	$B%"%I%l%9$r(B downcase $B$9$k$h$&$K$7$?!#(B
+
+2000-03-18  TAKAHASHI Kaoru <nil@din.or.jp>
+
+	* NEWS: $B?75,%U%!%$%k!#(B
+
+2000-03-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-message.el (wl-message-follow-current-entity):
+	$B%*%j%8%J%k%P%C%U%!$r;2>H$9$k$h$&$K$7$?(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8f;XE&(B)$B!#(B
+	* elmo-maildir.el (elmo-maildir-list-folders):
+	Maildir $B$K$J$C$F$$$k$+$I$&$+%A%'%C%/$9$k$h$&$K$7$?!#(B
+	(<hermit@lei.homeip.net> $B$5$s$N8f;XE&(B)
+
+2000-03-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-create-folder-entity-from-buffer): $B6uGr$,#28D0J>e(B
+	$B$"$k>l9g$K2r@O$K<:GT$9$k$N$r=$@5!#(B
+	* wl-summary.el (wl-summary-edit-addresses): $B%*%j%8%J%k%P%C%U%!$+$i(B
+	$B%"%I%l%9>pJs$rF@$k$h$&$K$7$?!#(B
+	(wl-summary-prefetch): wl-prefetch-threshold $B$r(B nil $B$K94B+$9$k$N$O(B
+	$B$d$a$?!#(B
+
+2000-03-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.1.0pre4 - "Overjoyed-pre4"
+	* $B%(%i!<%a%C%;!<%8$N:G8e$,(B "." $B$G=*$i$J$$$h$&$K$7$?!#(B
+	* elmo/elmo-archive.el (elmo-archive-copy-msgs): same-number $B$N$H$-$K(B
+	maildir $B$J$i%U%!%$%kL>$=$N$^$^$@$H;W$o$J$$$h$&$K$7$?!#(B
+	* wl-expire.el (wl-expire-archive-get-folder): elmo-safe-filename $B$N(B
+	$BBe$o$j$K(B elmo-replace-msgid-as-filename $B$r;H$&$h$&$K$7$?!%(B
+	* wl-folder.el (wl-folder-goto-folder-subr): $B%G%U%)%k%H$r(B
+	wl-default-folder $B$H$7$?!%(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA) $B$5$s$N8f=u8@(B)
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	$B%U%)%k%@L>$K6uGr$,4^$^$l$F$$$F$b$h$$$h$&$K$7$?!#(B
+	* wl-summary.el (wl-summary-jump-to-msg-by-message-id):
+	$B%+%l%s%H%U%)%k%@$G%?!<%2%C%H$,8+IU$+$C$?>l9g$O(B
+	wl-thread-jump-to-msg $B$r;H$&$h$&$K$7$?!%(B
+
+2000-03-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-summary-skip-mark-list): $B?75,JQ?t!#(B
+	* wl-summary.el (wl-summary-prefetch): interactive $B$N>l9g$@$1(B
+	wl-prefetch-threshold $B$r(B nil $B$H$9$k$h$&$K$7$?!#(B
+	(Akihiro MOTOKI <motoki@ptl.abk.nec.co.jp> $B$5$s$N8f;XE&(B)
+	(wl-summary-exec-subr): $B%^!<%/Am?t$N?t$(J}$,4V0c$C$F$$$?$N$r=$@5(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8f;XE&(B)$B!#(B
+	(wl-summary-next, wl-summary-prev): wl-summary-skip-mark-list $B$r;H$&(B
+	$B$h$&$K$7$?!#(B
+	(wl-summary-move-cached-regex): defmacro->defun$B!#(B
+	* etc/ja.Emacs: $B99?7!#(B
+	* elmo-imap4.el (elmo-imap4-search): from-msgs $B$r9MN8$9$k$h$&$K$7$?!#(B
+	* elmo-maildir.el (elmo-maildir-search): $B=$@5!#(B
+	* mmelmo-imap4-1.el (mmelmo-imap4-parse-bodystructure-string):
+	literal $B$NFI$_<h$jItJ,$r=$@5!#(B
+
+2000-03-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-expire.el: Filter folder $B$G(B expire $B=PMh$J$$>l9g$,$"$k$N$r=$@5$7$?!#(B
+	* wl-fldmgr.el: $B2~9T$r4^$`%U%)%k%@L>$d$"$@L>$J$I$r07$($J$$$h$&$K$7$?!#(B
+
+2000-03-12  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-fldmgr.el (wl-fldmgr-get-path-from-buffer):
+	wl-desktop group $B$,JD$8$F$$$k$H$-$K%(%i!<$,=P$k>l9g$,$"$k$N$r=$@5!#(B
+
+2000-03-11  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder.el (wl-folder-mode-menu-spec): $BDI2C!"99?7!#(B
+
+2000-03-08  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-vars.el (wl-score-files-dir): wl-score-files-directory $B$+$i2~L>!#(B
+	* wl-score.el (wl-score-edit-file, wl-score-load-file,
+	wl-score-change-score-file): $BF1>e!#(B
+
+2000-03-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-mime-charset): $B%G%U%)%k%HCM$r(B x-ctext $B$H$7$?!#(B
+
+2000-03-08  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-nntp.el (elmo-nntp-list-folders):
+	$B%k!<%H%U%)%k%@L>$,(B "" $B$N$H$-$NIT6q9g$r=$@5!#(B
+
+2000-03-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.1.0pre3 - "Overjoyed-pre3"
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	$B%m!<%+%k$NL$FI>pJs$r9MN8$7K:$l$F$$$?$N$r=$@5!#(B
+	* elmo2.el (elmo-delete-folder): maildir $B$b%U%)%k%@:o=|2DG=$H$7$?!#(B
+	(elmo-move-msgs): $B%m!<%+%k$NL$FI>pJs$,0z$-7Q$,$l$J$$$N$r=$@5!#(B
+	* elmo-maildir.el (elmo-maildir-delete-folder): $B=q$-D>$7!#(B
+	* mmelmo.el (mime-parse-parameters-from-list): mmelmo-imap4.el $B$+$i(B
+	$B0\F0!#(B
+	* wl-message.el (wl-mmelmo-message-redisplay): mime-display-header-hook
+	$B$r(B nil $B$K94B+!#(B
+	* wl-mime.el (wl-mime-display-message): SEMI $B$N%P!<%8%g%sH=Dj$,(B
+	$B4V0c$C$F$$$?$N$r=$@5!#(B
+	(wl-summary-burst): mime-message-structure $B$r;2>H$7$J$$$h$&$K$7$?!#(B
+	(wl-mime-entity-read-field): $B?75,(B alias/macro$B!#(B
+	(wl-mime-combine-message/partial-pieces): wl-mime-entity-read-field
+	$B$r;H$&$h$&$K$7$?!#(B
+	(mime-edit-user-agent-value): XEmacs beta $B$N%P!<%8%g%sI=<($,=EJ#$9$k(B
+	$B$N$KBP=h(B (For SEMI 1.13.4 or earlier)$B!#(B
+
+2000-03-06  katsuta@cced.mt.nec.co.jp
+
+	* elmo-util.el (elmo-buffer-field-condition-match): std11-field-body
+	$B$,(B nil $B$rJV$9>l9g$KBP=h!#(B
+
+2000-03-04  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-prefetch-msg): $B%^!<%/$r;2>H$7$J$$(B
+	$B$h$&$K$7$?!#(B
+
+2000-03-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-read-folder): "" $B$N$H$-$O%G%U%)%k%H$r;H$&(B
+	$B$h$&$K$7$?!#(B
+	* wl-fldmgr.el, wl-folder.el, etc: $B%a%C%;!<%8$OBgJ8;z$G(B
+	$B;O$^$k$h$&$K$7$?!#(B
+	* wl-draft.el (wl-draft-yank-original): kill-ring $B$+$i$N(B yank $B$,(B
+	$BF0$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	* mmelmo-1.el (insert-header): mmelmo-insert-sorted-header-from-buffer
+	$B$r;H$&$h$&$K$7$?!#(B
+	(insert-text-content): $B?75,%a%=%C%I!#(B
+	(run-hooks 'mmelmo-entity-content-inserted-hook) $B$9$k$h$&$K$7$?!#(B
+	* utils/bbdb-wl.el (bbdb-wl-show-bbdb-buffer): $B?75,4X?t!#(B
+	wl-summary-toggle-disp-folder-message-resumed-hook $B$KDI2C!#(B
+	* 1.1.0pre2 - "Overjoyed-pre2"
+	* elmo-maildir.el (elmo-maildir-sequence-number-internal): $B?75,JQ?t!#(B
+	(elmo-maildir-make-unique-string):
+	v19 $B8~$1$KDj5A$5$l$F$$$J$+$C$?$N$r=$@5!#$^$?!"(B
+	elmo-maildir-sequence-number-internal $B$r;H$&$h$&$K$7$?!#(B
+	(elmo-maildir-temporal-filename): 2 $BICBT$?$J$$$h$&$K$7$?!#(B
+	(toplevel): (eval-when-compile (require 'cl) $B$rDI2C!#(B
+	* wl-summary.el (wl-summary-buffer-number-column-detect):
+	re-search-forward $B$NJV$jCM$r;H$o$J$$$h$&$K$7$?!#(B
+
+2000-03-06  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-pop3.el (elmo-pop3-port-label): typo $B=$@5(B (port->ssl)$B!#(B
+	* elmo-nntp.el (elmo-nntp-sync-number-alist):
+	folder-mode$B$GL$FI?t$,%^%$%J%9$K$J$C$?$^$^$K$J$k>l9g$,$"$k$N$r=$@5!#(B
+
+2000-03-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-switch-to-clone-buffer):
+	wl-summary-buffer-number-column,
+	wl-summary-buffer-number-regexp $B$r0z$-7Q$0$h$&$K$7$?!#(B
+	(wl-summary-write): $B?75,%3%^%s%I!#(B'w' $B$K%P%$%s%I!#(B
+	* wl-draft.el (wl-draft): wl-summary-write $B8~$1$NF0:n$rDI2C!#(B
+
+2000-03-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-cache.el (elmo-cache-list-folder-subr): $B%G%#%l%/%H%j$rL5;k!#(B
+	* wl-summary.el (wl-summary-insert-line): $B?75,4X?t!#(B
+	(wl-summary-insert-summary, wl-summary-update-thread):
+	`wl-summary-insert-line' $B$r;H$&$h$&$K$7$?!#(B
+	* wl-thread.el (wl-thread-update-line-on-buffer-sub):
+	$BF1>e!#(B
+	* WL-MK (wl-info-lang): list $B$J$i4^$^$l$k(B lang $B$rA4It%$%s%9%H!<%k$9$k(B
+	$B$h$&$K$7$?!#(B
+	* elmo/elmo-maildir.el (elmo-maildir-append-msg):
+	new $B$G(B tmp $B$N%U%!%$%kL>$r$=$N$^$^;H$&$h$&$K$7$?!#(B
+	(elmo-maildir-list-folders): $B%k!<%H$r4^$`$h$&$K$7$?!#(B
+
+2000-03-04  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-buffer-set-folder): $B%3%i%`?t$N@_Dj$r:o=|!#(B
+	(wl-summary-goto-folder-subr): $B%3%i%`?t$rF0E*$K8!=P$9$k$h$&$K$7$?!#(B
+	(wl-summary-target-mark-forward): $B%U%)%o!<%I=g=x$r=$@5!#(B
+	(wl-summary-cleanup-temp-marks): $B$^$H$a=hM}%^!<%/$r:o=|$9$k$h$&$K$7$?!#(B
+
+2000-02-29  nisikawa@nisikawa.org ($B@>@n(B $BN<B@(B)
+
+	* wl-draft.el (wl-draft-send-mail-with-pop-before-smtp):
+	$B%*%U%i%$%s$G%a!<%k$r(B +queue $B$K$?$a$k:]$K%(%i!<$,=P$k$N$KBP=h!#(B
+
+2000-03-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-thread.el (wl-thread-update-children-number):
+	wl-thread-update-children-number $B$+$i2~L>!#(B
+	$B?75,(B hook$B!"(Bwl-thread-update-children-number-hook $B$r8F$V$h$&$K$7$?!#(B
+
+2000-03-04  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	wl-folder.el (wl-folder-sync-entity,
+	wl-folder-mark-as-read-all-entity,
+	wl-folder-prefetch-entity): Sticky $B8~$1$N%O%$%i%$%H@_Dj$N=$@5!#(B
+
+2000-03-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo2.el (elmo-move-msgs): target $B$,(B 'null $B$N$H$-$OL$FI$NJ]B8$r(B
+	$B%9%-%C%W$9$k$h$&$K$7$?!#(B
+	* elmo-maildir.el (elmo-maildir-make-unique-string):
+	elmo-maildir-create-unique-string $B$+$iJQ99!#(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8f=u8@(B)
+	* 1.1.0 pre1 - "Overjoyed-pre1"
+
+2000-03-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-reply-buffer): $B?75,%P%C%U%!%m!<%+%kJQ?t(B
+	(wl-draft-reply): `wl-draft-reply-buffer' $B$r@_Dj$9$k$h$&$K$7$?!#(B
+	(wl-draft-config-exec): `wl-draft-reply-buffer' $B$r;2>H$9$k$h$&$K$7$?!#(B
+	(wl-draft-reply<var>): $BGQ;_!#(B
+	* WL-MK, WL-CFG (wl-info-lang): $B?75,JQ?t!#(B
+	* wl.texi: $B?75,%U%!%$%k!#(B
+	* Makefile, WL-MK, WL-CFG: ELISPDIR->LISPDIR$B!#(B
+	(TAKAHASHI Kaoru <kaoru@kaisei.org> $B$5$s$h$j8fDs0F(B)
+	* elmo-maildir.el: $BBgI}$K=q$-D>$7!#(B
+	* elmo-util.el, elmo-msgdb.el, elmo-vars.el: maildir $B$N5-9f$r(B '.'
+	$B$H$7$?!#(B
+	* wl-folder.el, wl-summary.el, elmo-pop3.el, etc: $B%a%C%;!<%8$,BgJ8;z$G(B
+	$B;O$^$k$h$&$K$7$?!#(B
+	* elmo-vars.el (elmo-maildir-folder-path): $B?75,JQ?t!#(B
+	* elmo-internal.el (elmo-internal-list-folders): 'cache $B$H(B 'mark $B$r(B
+	$BJV5Q$9$k$h$&$K$7$?!#(B
+
+2000-03-02  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-nntp.el: starttls $BItJ,$N=$@5!#(B
+	* elmo-nntp.el, elmo-imap4.el:
+	list-folders $B$G(B "!" $B%^!<%/$,>C$($F$7$^$&$N$r=$@5!#(B
+
+2000-03-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-score.el: $B%(%i!<%a%C%;!<%8$N(B "Illegal" $B$r(B "Invalid" $B$KJQ$($?!#(B
+
+2000-03-01  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-refile-subr): $B%-%c%C%7%e%U%)%k%@$X$N(B
+	$B%j%U%!%$%k$GL>A0$rE,@Z$J$b$N$K=$@5!#(B
+	* elmo-nntp.el: starttls $B$KBP1~(B($B<B83E*(B)$B!#(B
+
+2000-03-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-cache2.el: elmo-cache.el $B$K%^!<%8!#(B
+	* elmo-internal.el, elmo-util.el, elmo-msgdb.el: cache $B%P%C%/%(%s%I$r(B
+	internal $B$N0lIt$H$7$F07$&$h$&$K$7$?!#(B
+
+2000-03-01  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-cache2.el: $B?75,%P%C%/%(%s%I(B 'cache' $BDI2C!#(B
+
+2000-02-29  IMAI Takeshi <take-i@ceres.dti.ne.jp>
+
+	* wl-expire.el (wl-folder-expire-entity): Sticky $B8~$1$N(B
+	$B%O%$%i%$%H@_Dj$N=$@5!#(B
+
+2000-02-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo2.el (elmo-move-msgs): $BL$FI>pJs$r0z$-7Q$0$h$&$K$7$?!#(B
+	$B0z?t(B unread-marks $BDI2C!#(B
+	(elmo-msgdb-sync): $B:o=|!#(B
+	* wl-summary.el (wl-summary-exec):
+	elmo-move-msgs $B$KL$FI%^!<%/$rEO$9$h$&$K$7$?!#(B
+	(wl-summary-edit-petname): To $B$d(B Cc $B$bJT=8BP>]$H(B
+	$B$J$k$h$&$K$7$?!#(B
+	(wl-summary-edit-addresses): wl-summary-edit-petname $B$+$iJQL>!#(B
+	(wl-summary-edit-petname): $B:o=|!#(B
+	(wl-summary-mark-as-unread): $B%-%c%C%7%e$rM-8z$+$I$&$+$r9MN8!#(B
+	* wl-vars.el (wl-summary-toggle-disp-folder-message-resumed-hook)
+	(wl-summary-line-inserted-hook): $B?75,(B hook$B!#(B
+	(wl-summary-print-destination): $BHs2D;kNN0h$K(B
+	'wl-summary-destination $B%W%m%Q%F%#$rDI2C$9$k$h$&$K$7$?!#(B
+	* wl-thread.el, wl-summary.el: $B%5%^%j9T$,(B insert $B$5$l$?8e!"(B
+	wl-summary-line-inserted-hook $B$r8F$V$h$&$K$7$?!#(B
+	* utils/bbdb-wl.el:
+	wl-summary-toggle-disp-folder-message-resumed-hook $B$G%]%C%W%"%C%W$9$k(B
+	$B$h$&$K$7$?!#(B
+
+2000-02-28  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder-sync-current-entity $B$G$b(B Scoring $B$9$k$h$&$K$7$?!#(B
+	* sticky$B%U%)%k%@$G(B wl-summary-buffer-disp-msg $B$H%P%C%U%!$NI=<($,(B
+	  $B$"$C$F$$$J$$$3$H$,$"$k$N$r=$@5$7$?!#(B
+
+2000-02-25  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-message.el (wl-message-refer-article-or-url):
+	wl-summary-jump-to-msg-by-message-id$B$r8F$V:]!"5-;v$rH/8+$G$-$J$+$C$?(B
+	$B>l9g$O!"(Bwl-summary-redisplay $B$7$J$$$h$&$K$7$?!#(B
+	* wl-vars.el (wl-local-domain): $B=i4|@_DjJQ99!#(B
+	* wl.el (wl-check-environment): wl-local-domain $B$r(B hostname $B$r(B
+	$B=|$$$?ItJ,$H$_$J$9$h$&JQ99!#(B
+	* wl-util.el (wl-draft-make-message-id-string): $BF1>e!#(B
+
+2000-02-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-expire.el (wl-folder-expire-entity): wl-summary-save-status $B$r(B
+	$B8F$V$h$&$K$7$?!#(B
+
+2000-02-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-draft-send-hook): $B?75,(B hook$B!#(B
+	* wl-draft.el (wl-draft-send): wl-draft-send-hook $B$r8F$V$h$&$K$7$?!#(B
+	(Kenichi Sato <ksato@sonycom.com> $B$5$s$N8fMWK>(B)
+
+2000-02-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-cache.el (elmo-cache-save): $B%U%!%$%kL>$,D9$9$.$F%;!<%V$K(B
+	$B<:GT$9$k>l9g$KHw$($F(B (condition-case) $B$G3g$k$h$&$K$7$?!#(B
+	(Mikya Tani <wani@mx2.nisiq.net> $B$5$s$N8fJs9p(B)
+	* wl-draft.el: FCC $B$K(B IMAP $B$NF|K\8l%U%)%k%@$,07$($J$+$C$?$N$r=$@5!#(B
+	(HIRATA Naoto <hirata-naoto@sannet.ne.jp> $B$5$s$N8f;XE&(B)
+
+2000-02-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-address.el (wl-address-header-extract-address): '\n' $B$r%"%I%l%9(B
+	$BJ8;zNs$H$_$J$7$F$7$^$&>l9g$,$"$k$N$r=$@5!#(B
+	(Tomotaka SUWA ($B?[K,(B $BM'?r(B) <cooper@saitama.fujimic.fujisankei-g.co.jp>
+	 $B$5$s$N8f;XE&(B)
+	* mmelmo.el (mmelmo-header-max-column): $B?75,JQ?t!#(B
+	(Kenichi Sato <ksato@sonycom.com> $B$5$s$h$j8fMWK>(B)
+	(mmelmo-header-inserted-hook): $B?75,(B hook.
+	(mmelmo-entity-content-inserted-hook): $B?75,(B hook.
+	* mmelmo-2.el (mime-insert-text-content): $B?75,(B entity $B%a%=%C%I!#(B
+	mmelmo-entity-content-inserted-hook $B$r8F$V$h$&$K$7$?!#(B
+	* mmelmo.el (mmelmo-insert-sorted-header-from-buffer): elmo-util.el
+	$B$+$i0\F0!"(B`mmelmo-header-max-column' $B$r;H$&$h$&$K$7$?!#(B
+	$B$^$?!"(Bmmelmo-header-inserted-hook $B$r8F$V$h$&$K$7$?!#(B
+
+2000-02-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-message.el (wl-mmelmo-message-redisplay): wl-mime-display-message
+	$B$r;H$&$h$&$K$7$?!#(B
+	(Toshihiko Kodama ($B>.6L(B $BMxI'(B) <kodama@ayame.mfd.cs.fujitsu.co.jp>
+	$B$5$s$N8f;XE&(B)
+	* wl-mime.el (wl-mime-display-message): $B?75,(B macro/alias.
+	* 2.2.18 - "Please Forgive Me"
+	* wl-summary.el (wl-summary-move-cached-regex):
+	unplugged $B$G$b(B 'D' $B%^!<%/$r%9%-%C%W$9$k$h$&$K$7$?!#(B
+	* elmo-msgdb.el (elmo-msgdb-expand-path): IMAP4 $B$N(B INBOX $B$r(B downcase
+	$B$9$k$h$&$K$7$?(B(Takeshi Chiba <chiba@d3.bs1.fc.nec.co.jp> $B$5$s$N8f;XE&(B)$B!#(B
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	$B%"%/%;%9%U%)%k%@Dj5A$K(B '}' $B$r4^$s$G$b$h$$$h$&$K$7$?!#(B
+	* wl-message.el (wl-mmelmo-message-redisplay):
+	mime-display-message $B$K%a%8%c!<%b!<%I$rEO$9$h$&$K$7$?!#(B
+
+2000-02-18  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-demo.el: Emacs 21 $BBP1~$N=$@5!#(B
+
+2000-02-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mime-entity-buffer): $B%+%l%s%H%P%C%U%!$,(B
+	$BJQ2=$7$J$$$h$&$K$7$?!#(B
+	$B$^$?!"$^$@%U%'%C%A$5$l$F$$$J$$>l9g!"%U%'%C%A$9$k$h$&$K$7$?!#(B
+	* mmelmo-imap4-2.el (mime-write-entity-content):
+	$B?75,%a%=%C%I!#%;!<%V;~$K%9%-%C%W$7$?%Q!<%H$r%U%'%C%A$9$k!#(B
+	* mmelmo-imap4-2.el (mmelmo-imap4-fetched):
+	$B?75,%P%C%U%!%m!<%+%kJQ?t!#(B
+	* elmo-imap4.el (elmo-imap4-server-namespace):
+	$B?75,%P%C%U%!%m!<%+%kJQ?t!#(B
+	(elmo-imap4-open-connection):
+	elmo-imap4-server-namespace $B$r@_Dj$9$k$h$&$K$7$?!#(B
+	(elmo-imap4-parse-namespace): $B?75,4X?t!#(B
+	(elmo-imap4-process-folder-list):
+	elmo-imap4-server-namespace $B$r;H$&$h$&$K$7$?!#(B
+	(elmo-imap4-extra-namespace-alist): $B?75,JQ?t!#(B
+	* wl-util.el (wl-string-member, wl-string-match-member,
+	wl-string-delete-match, wl-string-match-assoc, wl-string-rassoc):
+	elmo-* $B$K2~L>!"(Bdefalias $B$H$7$?!#(B
+
+2000-02-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* bbdb-wl.el: wl-summary-toggle-disp-folder-off-hook $B$N@_Dj$rDI2C!#(B
+
+2000-02-16  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-demo.el: frame $B$N(B font parameter $B$G(B <CHARSET_REGISTRY> $B$,(B
+	$BM?$($i$l$F$$$k>l9g$K!"(Bfont-info $B$+$iCf1{$N:BI8$r7W;;$9$k$h$&$K$7$?!#(B
+
+2000-02-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-toggle-disp-folder): $B%&%#%s%I%&%5%$%:$,(B
+	$B>.$5$/$J$k>l9g$,$"$k$N$r=$@5!#(B
+	(Shigeru OKUMURA <sokumura@jaist.ac.jp> $B$5$s$N8f;XE&(B)
+	* wl-draft.el (wl-draft-insert-x-face-field-here): $B:G=i$N6uGr$r:o=|!#(B
+	(Akihiro MOTOKI <mokkun@iname.com> $B$5$s$N8f;XE&(B)
+
+2000-02-12  Akihiro MOTOKI <mokkun@iname.com>
+
+	* elmo/elmo-localdir.el
+	(elmo-localdir-msgdb-create-overview-entity-from-file):
+	`timezone-make-date-arpa-standard' $B$K(B `current-time-zone' $B$NCM$r(B
+	$BEO$9$h$&$K$7$?!#(B
+
+2000-02-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo/mmelmo-imap4-2.el (mmelmo-imap4-node-id-to-string):
+	"header" -> "0"$B!#(B
+	* elmo/mmelmo-imap4-1.el (mmelmo-imap4-node-id-to-string):
+	$BF1>e!#(B
+	(TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp> $B$5$s$N8f;XE&(B)
+	* wl-message.el (wl-message-follow-current-entity): wl-draft-reply
+	$B$N0z?t$K%5%^%j%P%C%U%!$rEO$9$h$&$K$7$?!#(B
+	* wl-summary.el (wl-summary-reply): wl-draft-reply $B$N0z?t$K(B
+	current-buffer $B$rEO$9$h$&$K$7$?!#(B
+	(wl-summary-msgdb-load-async): mailbox $B$r(B "" $B$G3g$k$h$&$K$7$?!#(B
+	* elmo-imap4.el: $BF1>e!#(B
+
+2000-02-09  UENO Kazuaki <kazu@a-u.net>
+
+	* wl-draft.el (wl-draft-queue-flush): elmo-dop-flush-confirm
+	$B$r;H$&$h$&$K$7$?!#(B
+
+2000-02-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft): $B=i4|2=$N=g=xJQ99!#(B
+	(Taiji.Can@atesoft.advantest.co.jp $B$5$s$N8fJs9p$K4p$E$/(B)
+
+2000-02-08  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-score.el (wl-summary-score-update-all-lines):
+	$B4{FI$K$7$?%a%C%;!<%8$K(B read-uncached mark $B$rIU$1$k;~$K%U%)%k%@<oJL$r(B
+	$B9MN8$9$k$h$&$K$7$?!#(B
+
+2000-02-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-target-mark-prefetch):
+	$B4{FIL$%-%c%C%7%e%^!<%/$,>C$($J$$$N$r=$@5!#(B
+	(Hironori Fukuchi <nory@valis.co.jp> $B$5$s$N8f;XE&(B)
+	* wl-summary.el (wl-summary-target-mark-prefetch):
+	$B%W%j%U%'%C%A$N?JD=$rI=<($9$k$h$&$K$7$?!#$^$?!"(B
+	$B%-%c%C%7%e$7$J$+$C$?>l9g$O(B '*' $B%^!<%/$r;D$9$h$&$K$7$?!#(B
+	* wl-dnd.el (start-drag): static-cond $B$GDj5A$7$J$*$7$?!#(B
+	* elmo2.el (elmo-buffer-cache-message): $BFI$_=P$7Cf$K(B
+	quit $B$9$k$H0c$&%a%C%;!<%8$rI=<($7$F$7$^$&$N$r=$@5!#(B
+	* elmo-filter.el (elmo-filter-list-folder-important):
+	elmo-search $B$N2s?t$r8:$i$7$?(B
+	(Akihiro MOTOKI <mokkun@iname.com> $B$5$s$N8f=u8@(B)$B!#(B
+
+2000-02-07  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-xmas.el (wl-highlight-folder-current-line):
+	set-extent-properties $B$r;H$o$J$$$h$&$K$7$?!#(B
+
+	* wl-draft.el (wl-smtp-extension-bind): Fixed.
+
+2000-02-07  Akihiro MOTOKI <mokkun@iname.com>
+
+	* elmo-util.el (elmo-buffer-field-condition-match):
+	$B%X%C%@$NCM$r(B eword-decode-string $B$G%G%3!<%I$7$F$+$iHf3S$9$k$h$&$K$7$?!#(B
+
+2000-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-dnd.el: $B%P%$%H%3%s%Q%$%k;~$N(B Warning $B$r8:$i$7$?!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA) $B$5$s$N8f;XE&(B)
+	* utils/sasl/sha1.el, utils/sasl/md5-el.el,
+	utils/sasl/hex-util.el, utils/sasl/sha1-el.el: $B:G?7HG$K(B update$B!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA) $B$5$s$N8f;XE&(B)
+	* wl-vars.el (wl-demo-use-bitmap): wl-demo-display-logo $B$KJQ99!#(B
+	(wl-demo-display-logo): $B?75,JQ?t!#(B
+	* wl-demo.el: wl-demo-display-logo $B$r;H$&$h$&$K$7$?!#(B
+
+2000-02-07  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-vars.el (wl-demo-use-bitmap): $B=i4|CM@_DjJ}K!$rJQ$($?!#(B
+
+2000-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.17 - "One Of Us"
+	* elmo-util.el (elmo-y-or-n-p): $B?75,4X?t!#(B
+	* elmo-vars.el (elmo-dop-flush-confirm): $B?75,JQ?t!#(B
+	* elmo-dop.el (elmo-dop-queue-flush): elmo-y-or-n-p,
+	elmo-dop-flush-confirm $B$r;H$&$h$&$K$7$?!#(B
+	* elmo-imap4.el (elmo-delete-msgids): $B?JD=$rI=<($9$k$h$&$K$7$?!#(B
+	$B$^$?!"(Bexpunge $B$O:G8e$K#12s$@$1<B9T$9$k$h$&$K$7$?!#(B
+
+2000-02-07  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-folder.el, wl-xmas.el: -nw $B$G5/F0$5$l$?(B XEmacs $B$G(B frame $B$r(B
+	$B3+$$$?>l9g$G$b%"%$%3%s$,I=<($5$l$k$h$&$K$7$?!#(B
+
+2000-02-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-highlight.el (wl-highlight-summary-target-face): $B?75,(B face$B!#(B
+	(temp-face $B$+$i2~L>(B)
+	* wl-vars.el (wl-demo-use-bitmap): wl-demo.el $B$+$i0\F0!#(B
+	defcustom $B$K$7$?!#$^$?!"=i4|CM$r(B (module-installed-p 'bitmap) $B$H$7$?!#(B
+	* wl-demo.el (wl-demo-use-bitmap): wl-vars.el $B$K0\F0!#(B
+	* WL-CFG: wl-demo-use-bitmap $B$r:o=|!#(B
+	* elmo-vars.el: Require 'poe, $B%P%$%H%3%s%Q%$%k;~$N(B warning $B$r8:$i$9!#(B
+	* wl-nemacs.el (buffer-disable-undo, rassoc, delete, string-to-number,
+	window-live-p, completing-read, accept-process-output,
+	get-buffer-window): $B:o=|!#(B
+
+2000-02-04  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-demo.el (wl-demo): wl-demo-use-bitmap $B$r<B9T;~$K%A%'%C%/$9$k(B
+	$B$h$&$K$7$?!#(B
+
+2000-02-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* INSTALL, INSTALL.ja: tm-8 $B$N(B URL $B$r99?7!#(B
+	* utils/hmac -> utils/sasl $B$K2~L>!#(B
+	* WL-ELS: HMAC->SASL$B!#(B
+	* WL-MK: HMAC->SASL$B!#(B
+
+2000-02-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-localdir.el
+	(elmo-localdir-msgdb-create-overview-entity-from-file):
+	format-time-string $B$r;H$&$N$r;_$a!"(Btimezone-make-date-arpa-standard
+	$B$r;H$&$h$&$K$7$?!#(B
+	* elmo-vars.el (elmo-time-format): $B:o=|!#(B
+
+2000-02-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-dop.el (elmo-dop-queue-flush): append-operations $B$N%-%c%s%;%k(B
+	$B=hM}$rDI2C!#(B
+	* wl-summary.el (wl-summary-refile-prev-destination,
+	wl-summary-copy-prev-destination): Fixed.
+	(IMAI Takeshi <take-i@ceres.dti.ne.jp> $B$5$s$N8fJs9p(B)
+
+2000-02-02  Akihiro MOTOKI <mokkun@iname.com>
+
+	* wl-vars.el (wl-prefetch-confirm-threshold): $BGQ;_$7!"(B
+	wl-prefetch-confirm $B$H(B wl-prefetch-threshold $B$KJ,N%!#(B
+	(wl-prefetch-confirm, wl-prefetch-threshold): $B?75,JQ?t!#(B
+	* wl-summary.el (wl-summary-prefetch-msg): wl-prefetch-confirm,
+	wl-prefetch-threshold $B$K=>$&$h$&$K$7$?!#(B
+
+2000-02-02  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-draft.el (wl-smtp-features): smtp-authenticate-type $B$,(B symbol
+	$B$K$J$C$?$N$KBP1~!#(B
+
+2000-01-31  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-nntp.el (elmo-nntp-get-folders-info): Fixed.
+
+2000-01-31  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-demo.el: Emacs21 $B$G(B wl-logo.xpm $B$rI=<($9$k$h$&$K$7$?!#(B
+
+2000-01-30  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* INSTALL, INSTALL.ja: Fixed.
+
+2000-01-30  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* WL-ELS: $B4{$K(B open-database $B$,Dj5A:Q$_$N>l9g$b(B	ELMO-MODULES $B$K(B
+	elmo-database $B$rDI2C$9$k$h$&$K$7$?!#(B
+
+2000-01-30  Akihiro MOTOKI <mokkun@iname.com>
+
+	* elmo-loacaldir.el
+	(elmo-localdir-msgdb-create-overview-entity-from-file):
+	Date: $B%U%#!<%k%I$,$J$$>l9g$O!"%U%!%$%k$N:G=*99?7F|$rF|IU$H$7$FI=<($9$k(B
+	$B$h$&$K$7$?!#(B
+	* elmo-msgdb.el (elmo-msgdb-create-overview-from-buffer):
+	$B0z?t(B time $B$rDI2C!#(B
+	* elmo-vars.el (elmo-time-format): $B?75,JQ?t!#(B
+
+2000-01-29  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-jump-to-msg-by-message-id):
+	NNTP $B%5!<%P$r;XDj$G$-$k$h$&$K$7$?!#(B
+	(wl-summary-jump-to-msg-by-message-id-via-nntp)
+	$B%5!<%P;XDj;~$K!"C1$J$k%5!<%PL>$@$1$G$J$/!"(B
+	"-:username@servername:8119!"$B$N$h$&$J;XDj$b$G$-$k$h$&$K$7$?!#(B
+	* elmo-nntp.el (elmo-nntp-folder-postfix): $B0z?t(B ssl $BDI2C!#(B
+
+2000-01-29  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-vars.el (elmo-database-dl-module, elmo-database-dl-handle):
+	$B?75,JQ?t!#(B
+	(toplevel): elmo-database-dl-handle $B$,(B non-nil $B$J$i(B
+	emacs_database_init $B$r(B dynamic_call $B$9$k$h$&$K$7$?!#(B
+	(elmo-use-database): open-database $B$,$"$l$P(B elmo-use-database $B$r@_Dj!#(B
+	* WL-ELS: 'dynamic-link $B$,$"$l$P(B ELMO-MODULES $B$K(B elmo-database $B$rDI2C!#(B
+
+2000-01-28  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-demo.el (wl-demo): Fix copyright information.
+
+2000-01-27  Takeshi Chiba <chiba@d3.bs1.fc.nec.co.jp>
+
+	* mmelmo-imap4-2.el ([luna]mime-entity-buffer):
+	section "0" -> "header".
+
+2000-01-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mmelmo-imap4-node-id-to-string):
+	section "0" -> "header".
+	* mmelmo-imap4-1.el: $BF1>e!#(B
+
+2000-01-26  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* elmo-imap4.el (elmo-imap4-create-folder):
+	UW imapd-4.7 $B$G?7$7$/(B folder $B$,:n$l$J$$LdBj$X$NBP=h!#(B
+
+2000-01-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mmelmo-imap4-parse-bodystructure-string):
+	BODYSTRUCTURE $B$N<h$j=P$7J}$r=$@5!#(B
+	(mmelmo-imap4-parse-bodystructure-object): content-type $B$N(B subtype
+	$B$,(B NIL $B$N>l9g$r9MN8$9$k$h$&$K$7$?!#(B
+	* mmelmo-imap4-1.el: $BF1>e!#(B
+	* utils/hmac/unique-id.el: $B?75,%U%!%$%k!#(B
+	* WL-ELS (HMAC-MODULES): scram-md5, digest-md5, unique-id $B$rDI2C!#(B
+	* wl-dnd.el (wl-dnd-drop-func): Fixed.
+	* 2.2.16 - "No Son Of Mine"
+
+2000-01-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-summary-reserve-mark-list): $B?75,JQ?t!#(B
+	* wl-summary.el: temp-mark -> target-mark $BL>A0JQ99!#(B
+	$B0l;~%^!<%/7O%3%^%s%I$G(B `wl-summary-reserve-mark-list'
+	$B$r;H$&$h$&$K$7$?!#(B
+	* wl-score.el, wl-thread.el: $BF1>e!#(B
+	* wl-folder.el (toplevel): require 'wl $B$9$k$h$&$K$7$?!#(B
+	* elmo-util.el (elmo-imap4-encode-string): optional $B0z?t$rDI2C!#(B
+
+2000-01-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mule.el, wl-xmas.el, wl-nemacs.el (wl-summary-format-date):
+	$B:o=|!"(Bwl-summary.el $B$X0\F0!#(B
+	* utils/hmac/lisp/sasl.el, utils/hmac/lisp/digest-md5.el,
+	utils/hmac/lisp/scram-md5.el: $B:G?7HG$K(B update$B!#(B
+	* wl-fldmgr.el (wl-fldmgr-ext): $B3NG'%a%C%;!<%8$rJQ99!#(B
+	* doc/TODO.ja: $B99?7!#(B
+
+2000-01-22  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* wl-folder.el (toplevel): Fixed menu.
+
+2000-01-21  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-imap4.el: DIGEST-MD5 $B$KBP1~!#(B
+	* elmo-pop3: CRAM-MD5, DIGEST-MD5, SCRAM-MD5$B$KBP1~!#(B
+
+2000-01-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (toplevel): $B%j!<%8%g%s7O%-!<%P%$%s%I$NDj5A0LCV$rJQ99!#(B
+	(wl-summary-prefetch-region): $BJD$8$?%9%l%C%I$N%a%C%;!<%8$r%W%j%U%'%C%A(B
+	$B$7$J$$$N$r=$@5!#(B(OKAZAKI Tetsurou <okazaki@be.to> $B$5$sB>$h$j8fJs9p(B)
+	* elmo: append-msg, move-msgs $B%a%=%C%I$K0z?t(B no-see $B$rDI2C!#(B
+	* elmo-pipe: move-msgs $B$G(B 'no-see $B$r;XDj$9$k$h$&$K$7$?!#(B
+	* wl-folder.el (wl-folder-mimic-kill-buffer): $B?75,%3%^%s%I!#(B
+	(toplevel): C-xk $B$K(B` wl-folder-mimic-kill-buffer' $B$r!"(B
+	C-xC-s $B$K(B `wl-save' $B$r$=$l$>$l3d$jEv$F!#(B
+
+2000-01-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-nemacs.el (accept-process-output): $B?75,4X?t!#(B
+	* Makefile: $B%3%a%s%H=$@5!#(B
+
+2000-01-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-folder-identical-system-p): $BJL%5!<%P$G(B
+	$BF1$8L>A0$N%a!<%k%\%C%/%9$,F10l;k$5$l$F$7$^$&$N$r=$@5!#(B
+	(Tatsuya Matsui <t.matsui@rdc.east.ntt.co.jp> $B$5$s$N8f;XE&(B)
+	* wl-address.el (wl-complete-field-body-or-tab): $B0z?t$r$J$/$7$?!#(B
+
+2000-01-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el
+	(wl-prefetch-confirm-threshold, wl-cache-fetch-threshold): $B?75,JQ?t!#(B
+	* wl-summary.el (wl-summary-prefetch-msg):
+	wl-prefetch-confirm-threshold $B$r;H$&$h$&$K$7$?!#(B
+	(wl-cache-prefetch-message): wl-cache-fetch-threshold $B$r;H$&$h$&(B
+	$B$K$7$?!#(B
+
+2000-01-13  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-message.el
+	(wl-message-decide-backend, wl-normal-message-redisplay):
+	wl-fetch-confirm-threshold $B$,(B nil $B$J$i3NG'$7$J$$$h$&$K$7$?!#(B
+
+2000-01-11  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-draft.el (wl-draft-delete): wl-draft-buffer-file-name $B$,(B
+	nil $B$N;~$r9MN8$9$k$h$&$K$7$?!#(B
+
+2000-01-11  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* wl-draft.el (wl-draft-save-and-exit): $B4X78$J$$%P%C%U%!$r(B kill
+	$B$7$F$7$^$&$3$H$,$"$k$N$r=$@5!#(B
+
+2000-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.15 - "More Than Words"
+
+2000-01-11  Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* samples/ja/dot.folders, samples/en/dot.folders: '$B%"%/%;%9%0%k!<%W(B'
+	$B$N5-=R$r2C$($?!#(B
+
+2000-01-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el, tm-wl.el (wl-draft-preview-message): $BA4%X%C%@$rI=<((B
+	$B$9$k$h$&$K$7$?!#(B
+	* wl-summary.el (wl-summary-mode): tab-width $B$r@_Dj$7$J$$$h$&$K$7$?!#(B
+	(Yoshinari NOMURA <nom@csce.kyushu-u.ac.jp> $B$5$s$N8f;XE&(B)
+	(wl-summary-copy, wl-summary-refile): wl-draft-folder $B$K%3%T!<(B
+	$B$G$-$J$$$h$&$K$7$?(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)$B$5$s$N8f;XE&(B)$B!#(B
+	(wl-summary-overview-entity-compare-by-date): $B%(%i!<$rL5;k(B
+	(MIZUHARA Bun <mizuhara@acm.org> $B$5$s$N8f;XE&(B)$B!#(B
+	* wl.el (wl-plugged-mode): inhibit-read-only $B$N@_Dj$r:o=|!#(B
+	(Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp> $B$5$s$N8f;XE&(B)
+	* wl-vars.el (wl-draft-reedit-hook): $B?75,(B hook$B!#(B
+	* wl-draft.el (wl-draft-save, wl-draft-mimic-kill-buffer):
+	$B?75,4X?t!#(B
+	(wl-draft): $B4{$K;H$o$l$F$$$k%P%C%U%!L>$O;H$o$J$$$h$&$K$7$?!#(B
+	(wl-draft-reedit): wl-mail-setup-hook $B$r(Brun-hook$B$;$:!"$+$o$j$K(B
+	wl-draft-reedit-hook $B$r(B run-hook $B$9$k$h$&$K$7$?!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)$B$5$s$N8f;XE&(B)$B!#(B
+	* wl-xmas.el, wl-mule.el (wl-draft-key-setup):
+	C-xC-s $B$K(B wl-draft-save $B$r!"(BC-xk $B$K(B wl-draft-mimic-kill-buffer $B$r(B
+	$B3d$jEv$F$?!#(B
+	* wl-nemacs.el (wl-draft-overload-functions): $BF1>e!#(B
+
+2000-01-09  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-mule.el, wl-util.el: (require 'static) $B$r(B
+	(eval-when-compile (require 'static)) $B$KJQ99!#(B
+	* wl.el (wl-save): $B$N(B docstring $B$rDI2C!#(B
+
+2000-01-08  Mito <mit@nines.nec.co.jp>
+
+	* wl-score.el (wl-score-guess-like-gnus): (when (stringp fld-name)..)
+	$B$G3g$C$?!#(B
+
+2000-01-08  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-config-info-operation): $B?75,4X?t!#(B
+	(wl-draft-delete, wl-draft-save-and-exit, wl-draft-reedit):
+	`wl-draft-config-info-operation' $B$r;H$&$h$&$K$7$?!#(B
+
+2000-01-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-demo.el (toplevel): bitmap $B$,%$%s%9%H!<%k$5$l$F$$$J$$>l9g$K(B
+	$B%P%$%H%3%s%Q%$%k$G=P$k(B Warning $B$r8:$i$7$?!#(B
+	(wl-demo-use-bitmap): $B?75,JQ?t!#(Bbitmap $B$N%G%b$rI=<($9$k$+$I$&$+$r;XDj!#(B
+	$B%G%U%)%k%H$O(B t$B!#(B
+	* WL-CFG: wl-demo-use-bitmap $B$r(B nil $B$K$9$kNc$rDI2C!#(B
+	* wl-nemacs.el (toplevel): timezone $B$N%(%_%e%l!<%7%g%s$r;_$a$?(B
+	(APEL 10 $B!A(B $B$rA0Ds(B)$B!#(B
+	* wl-demo.el, wl-draft.el, wl-folder.el, wl-util.el,
+	wl-message.el, wl-summary.el (toplevel): $BL$Dj5AJQ?t$O(B
+	make-local-variable $B$GF@$i$l$k%7%s%\%k$KCM$r(B set $B$9$k$h$&$K$7$?!#(B
+	(Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp> $B$5$s$N8f=u8@(B)
+
+2000-01-07  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-draft.el (wl-smtp-features, wl-smtp-parse-extension): $B=$@5!#(B
+
+2000-01-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-user-agent-compose): wl-draft $B$r(B interactive $B$K8F$V(B
+	$B$h$&$K$7$?!#(B(Atsushi Tada <tada@tworks.co.jp> $B$5$s$N8f;XE&(B)
+	* Makefile (EMACS): $B%G%U%)%k%H$r(B emacs $B$K$7$?!#(B
+	(XEMACS): $B?75,JQ?t!#(B
+	(package, install-package): $(XEMACS) $B$r;H$&$h$&$K$7$?!#(B
+	* 2.2.14 - "Layla"
+	* wl-summary.el (wl-summary-mode): default-directory $B$r@_Dj$9$k$N$r(B
+	$B$d$a$?!#(B
+	* wl-vars.el (wl-tmp-dir): $B%G%U%)%k%H$r(B"~/tmp/" $B$H$7$?(B
+	(WL-ML 3735 $B$N%9%l%C%I;2>H(B)$B!#(B
+
+2000-01-06  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* wl-draft.el (wl-smtp-features): $B?75,JQ?t!#(B
+	(wl-smtp-extension-bind): $B?75,%^%/%m!#(B
+	* wl-summary.el (wl-summary-mode-map):
+	wl-summary-prev-page $B$N%-!<%P%$%s%I$r(B backspace $B$K$b3dEv$F$?!#(B
+
+2000-01-06  Kentaro Yoshitomi <yositomi-wl@center.osaka-wu.ac.jp>
+
+	* elmo-maildir.el (elmo-maildir-create-folder):
+	$B%G%#%l%/%H%jL>$,(B "/" $B$G=*$k$H$-$K(B error $B$K$J$k$N$r=$@5!#(B
+
+2000-01-06  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-draft.el: smtp.el $BJQ?tL>$N(B authenticate $B$X$NJQ99$KBP1~!#(B
+
+2000-01-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-util.el (wl-load-profile): wl.el $B$+$i0\F0!#(B
+	* COPYING: $B?75,%U%!%$%k(B (etc/copyright $B$+$i2~L>(B).
+	* wl-vars.el (wl-smtp-connection-type): wl-smtp-use-tls $B$+$i2~L>!#(B
+	* wl-draft.el (wl-draft-send-mail-with-smtp): smtp-connection-type
+	$B$r(B wl-smtp-connection-type $B$G(B bind $B$9$k$h$&$K$7$?!#(B
+	(wl-draft-queue-save-filename): fixed typo.
+	* wl-vars.el (wl-cs-*): Nemacs $B8~$1$NDj5A$rJQ99!#(B
+	* all files: $BCx:n8"I=<($N99?7!"(Bcheckdoc fix$B!#(B
+
+2000-01-05  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-ja.texi: $BCx:n8"I=<($HJ#<L5v2DI=<($rDI2C!#(B
+
+2000-01-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-score.el (wl-summary-score-update-all-lines):
+	$B%9%3%"$GFI$s$@$3$H$K$9$k>l9g$K!"L$%-%c%C%7%e$H$9$k$h$&$K$7$?!#(B
+	* elmo-util.el (elmo-imap4-get-spec):
+	elmo-default-imap4-ssl $B$,(B t $B$N>l9g$KBP1~$7$F$$$J$+$C$?$N$r=$@5!#(B
+	(Taro FUNAKI <taro@bear.ecl.ntt.co.jp> $B$5$s$h$j8fJs9p(B)
+	* tm-wl.el (wl-draft-yank-current-message-entity):
+	mime-viewer/following-method-alist $B$N=$@5$b$l$r=$@5!#(B
+	(Taiji.Can@atesoft.advantest.co.jp $B$5$s$h$j8fJs9p(B)
+
+2000-01-04  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-message.el (wl-message-decode):
+	'no-mime $B$N$H$-$K(B wl-cs-autoconv $B$G%G%3!<%I$9$k$h$&$K$7$?!#(B
+
+1999-12-31  Kentaro Yoshitomi <yositomi-wl@center.osaka-wu.ac.jp>
+
+	* elmo-maildir.el, elmo-util.el: Maildir $B%U%)%k%@$N:n@.!":o=|!"(B
+	$B%3%T!<$XBP1~!#(B
+
+1999-12-29  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft): `wl-load-profile' $B$r8F$V$h$&$K$7$?!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp> $B$5$s$N8f;XE&(B)
+	* elmo-imap4.el (elmo-imap4-make-number-set-list): $B?75,4X?t!#(B
+	(elmo-imap4-msgdb-create): `elmo-imap4-make-number-set-list'
+	$B$r;H$&$h$&$K$7$?!#(B
+	(elmo-imap4-mark-set-on-msgs): $BF1>e!#(B
+
+1999-12-11  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-get-sync-range):
+	offline $B;~$K(B POP $B%U%)%k%@$KF~$k$?$S$K(B Unplugged $B$HJ86g$r(B
+	$B8@$o$l$J$$$h$&$K$7$?!#(B
+
+1999-12-28  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* elmo-msgdb.el (elmo-msgdb-expand-path): $B%"!<%+%$%V%U%)%k%@$N%Q%9(B
+	$BE83+$K<:GT$7$F$$$?$N$r=$@5!#(B
+
+1999-12-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.13 - "Keep The Faith"
+
+1999-12-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-network-get-spec): $B?75,4X?t!#(B
+	(elmo-*-get-spec): $B=q$-D>$7!"%f!<%6L>It$K(B '@' $B$r4^$a$i$l$k$h$&$K$7$?!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA) $B$5$s$N8f;XE&$K4p$E$/(B)
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	float $B$,07$($J$$(B Emacs $B$X$NBP1~!#(B
+	* elmo-pop3.el (elmo-pop3-get-connection): $B0z?t$rJQ99!#(B
+	* check-paren fix.
+
+1999-12-21  Koga Masato <mkoga@mail7.dddd.ne.jp>
+
+	* wl-draft.el (wl-draft-reedit):
+	`wl-draft-use-frame' $B$,8z$/$h$&$K$7$?!#(B
+
+1999-12-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-vars.el (elmo-imap4-use-modified-utf7): $B?75,JQ?t!#(B
+	$B%G%U%)%k%H$O(B nil$B!#(B
+
+1999-12-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el, tm-wl.el (wl-mime-save-content): $B:G8e$K%;!<%V$7$?(B
+	$B%G%#%l%/%H%j$r3P$($k$h$&$K$7$?!#(B
+	* wl.el (wl-save): $B?75,%3%^%s%I!#8=:_$N%U%)%k%@>uBVEy$r%;!<%V$9$k!#(B
+	(JINMEI Tatuya <jinmei@isl.rdc.toshiba.co.jp> $B$5$s$h$j8fMWK>(B)
+	* wl-folder.el (wl-folder-mode-map): "\M-s" $B$K(B `wl-save' $B$r%P%$%s%I!#(B
+	* elmo-util.el (elmo-imap4-get-spec): `utf7-encode-string' $B$r(B
+	$B;H$&$h$&$K$7$?!#(B
+	* elmo-imap4.el (elmo-imap4-list-folders): `utf7-decode-string'
+	$B$r;H$&$h$&$K$7$?!#(B
+	* elmo/utf7.el: $B?75,%U%!%$%k!#(B
+
+1999-12-20  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* elmo-imap4.el (elmo-imap4-open-connection): starttls $BBP1~$N=$@5!#(B
+	* wl-draft.el: featurep->boundp$B!#(B
+
+1999-12-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el (wl-search-mime-charset): $B?75,JQ?t!#(B
+	* wl-summary.el (wl-summary-pick): `wl-search-mime-charset' $B$r(B
+	$B;H$&$h$&$K$7$?!#(B
+
+1999-12-16  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* WL-MK (wl-texinfo-format): $B8E$$(B texinfmt.el $B$r;H$C$F$$(B
+	$B$k$H$-$K$O(B `@direntry' $B$r%(%_%e%l!<%7%g%s$9$k$h$&$K$7$?!#(B
+
+1999-12-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-config-exec): $B%O%$%i%$%H$7$J$*$9$h$&$K$7$?!#(B
+	(Motomichi Matsuzaki <mzaki@e-mail.ne.jp> $B$5$s$N8f;XE&(B)
+	* wl-summary.el (toplevel): `wl-summary-temp-mark-region' $B$N(B
+	$B%-!<%P%$%s%I=g$rJQ$($?(B (okada@opaopa.org ($B2,ED(B $B7r0l(B / Kenichi OKADA)
+	$B$5$s$N8f=u8@(B)$B!#(B
+
+1999-12-16  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-mark-as-important-region,
+	wl-summary-mark-as-unread-region,
+	wl-thread-mark-as-important,
+	wl-thread-mark-as-unread,
+	wl-summary-temp-mark-mark-as-important,
+	wl-summary-temp-mark-mark-as-unread): New functions.
+	(wl-summary-save-region): $BL5BL$J=hM}$r:o=|!%(B
+	(wl-summary-prefetch-region): wl-summary-message-uncached-marks $B$G(B
+	$BH=CG$9$k$N$r$d$a!"(Belmo-cache-exists-p$B$r;H$&$h$&$K$7$?!#(B
+	* wl-thread.el (wl-thread-get-children-msgs-uncached): $BF1>e!#(B
+
+1999-12-14  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* pop, imap $B$N(B STARTTLS $B$G!"(Btls $B$r;HMQ$9$k$h$&$K;XDj$7$F$$$k$N$K!$(B
+	$B%5!<%P$,5v2D$7$F$$$J$$>l9g$O!$(Berror $B$r=P$9$h$&$K$7$?!#(B
+
+1999-12-14  TSUMURA Tomoaki <tsumura@notredame.ac.jp>
+
+	* dot.wl: wl-default-folder $B$G$O(B ML-name $B$H(B ML-count $B$rI=<($7!"(B
+	$B$=$l0J30$N(B folder $B$G$O(B ML-count $B$N$_I=<($9$kNc$rDI2C!#(B
+
+1999-12-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-2.el (mmelmo-imap4-parse-bodystructure-string):
+	$B@8(B JIS $B$N%U%!%$%kL>$,$"$C$?$j$9$k$H(B parse $B$K<:GT$9$k$N$r=$@5!#(B
+	* wl-summary.el (wl-summary-copy): $B#22sL\$N%3%T!<;X<($,EPO?$5$l$J$$$N$r(B
+	$B=$@5!#(B(Hiroshi Watanabe <whoami@din.or.jp> $B$5$s$h$j8fJs9p(B)
+
+1999-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-goto-folder-subr): sticky $B$K$9$k(B
+	$B%?%$%_%s%0$rJQ99(B (Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+	$B$5$s$N8f;XE&(B)$B!#(B
+	* wl-vars.el (wl-folder-sync-range-alist): $B%G%U%)%k%H$G%I%i%U%H$H(B
+	$B%-%e!<$N%l%s%8$r(B "all" $B$H$7$?!#(B
+
+1999-12-11  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-get-sync-range):
+	offline $B;~$K(B POP $B%U%)%k%@$KF~$k$?$S$K(B Unplugged $B$HJ86g$r(B
+	$B8@$o$l$J$$$h$&$K$7$?!#(B
+
+1999-12-10  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo $B$K$"$k4X?t$r(B defalias $B$7$F$$$k(B wl $B$N4X?t$r(B
+	elmo $B$N4X?t$KCV$-49$($?!#(B
+
+1999-12-07  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-nntp.el: elmo-nntp-max-number-precedes-list-active $B$,(B t 
+	$B$+$D(B list-active $B$,Ds6!$5$l$F$$$J$$>l9g$N5sF0$r=$@5!#(B
+
+1999-12-07  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* INSTALL.ja: $B=$@5!#(B
+	* wl-summary.el (wl-summary-always-sticky-folder-p): $B?75,%^%/%m!#(B
+	(wl-summary-goto-folder-subr): (wl-summary-always-sticky-folder-p)
+	$B$r;H$&$h$&$K$7$?!#(B
+
+1999-12-07  Akihiro MOTOKI <mokkun@iname.com>
+
+	* wl-vars.el (wl-summary-always-sticky-folder-list): $B?75,JQ?t!#(B
+	* wl-summary.el (wl-summary-stick): Optional $B0z?t$r2C$($?!#(B
+	(wl-summary-goto-folder-subr): wl-summary-always-sticky-folder-list
+	$B$K%^%C%A$9$k%U%)%k%@$O<+F0E*$K(B Sticky $B$K$J$k$h$&$K$7$?!#(B
+
+1999-12-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* INSTALL.ja: $BJ8;z%3!<%I$r(B ISO-2022-JP $B$K$7$?!#(B
+	* wl-draft.el (wl-draft-send-mail-with-smtp): 
+	(default-)?case-fold-search $B$N%P%$%s%I0LCV$rJQ99!#(B
+	(Atsushi Tada <tada@tworks.co.jp> $B$5$s!"(B
+	 $BDE6b5WNQ(B <tao@pfu.co.jp>$B$5$sB>$h$j8fJs9p(B)
+	(wl-draft-send): with-current-buffer $B$r;H$o$J$$$h$&$K$7$?!#(B
+	* 2.2.12 - "Joyride"
+
+1999-12-07  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* etc/icons/wl-logo.xbm: Christmas version.
+
+1999-12-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-parse-overview-string):
+	elmo-imap4-use-uid $B$,(B nil $B$N$H$-F0$+$J$+$C$?$N$r=$@5!#(B
+	* utils/hmac/scram-md5.el, utils/hmac/hmac-util.el: $B:o=|!#(B
+	* wl-summary.el (wl-summary-mark-as-unread):
+	wrong-type-argument $B%(%i!<$,=P$k$N$r=$@5!#(B
+	* wl-folder.el (wl-folder-empty-trash):	$B%5%^%jA}?#8=>]$N=$@5$b$l!#(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8fJs9p(B)
+
+1999-12-07  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-condig-exec):
+	wl-draft-config-exec-flag $B$O(B wl-draft-config-alist $B$,E,MQ$5$l$?(B
+	$B$H$-$N$_(B nil $B$K$9$k$h$&JQ99!#(B
+
+1999-12-06  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* WL-ELS (HMAC-MODULES): $B99?7!#(B
+
+1999-12-06  Tsunehiko Baba <tbaba@mtl.t.u-tokyo.ac.jp>
+
+	* INSTALL: $B?75,%U%!%$%k!#(B
+
+1999-12-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	$B%U%#%k%?$,$&$^$/F0$+$J$$$N$r=$@5!#(B
+	(Kazuyoshi Mii <mii@isl.ntt.co.jp> $B$5$s$h$j8fJs9p(B)
+	* 2.2.11 - "Iris"
+	* utils/hmac/lisp/*.el: Sync up with slim-1.13.4.
+	* elmo-imap4.el
+	(elmo-imap4-open-connection): cram-md5 $BG'>Z$G(B sasl-cram-md5 $B$r(B
+	$B;H$&$h$&$K$7$?!#(B
+	(toplevel): (require 'hmac-md5) $B$G$O$J$/!"(B(require 'sasl) $B$H$9$k(B
+	$B$h$&$K$7$?!#$^$?!"(Beval-when-compile $B$r30$7$?!#(B
+
+1999-12-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-mark-as-read): msgdb $B$KB8:_$7$J$$(B
+	$B%a%C%;!<%8$K$O%^!<%/$rIU$1$J$$$h$&$K$7$?!#(B
+	* wl-summary.el (wl-summary-pick): msgdb $BBP>]$N$H$-$K$R$H$D$b(B pick
+	$B$G$-$J$+$C$?$H$-$K%a%C%;!<%8$r=P$9$h$&$K$7$?!#(B
+
+1999-12-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-msgdb.el (elmo-msgdb-overview-get-parent-entity):
+	$B0z?t$rJQ99!#(B
+	* wl-vars.el (wl-smtp-posting-server): $B=i4|CM$r(B nil $B$H$7$?!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA) $B$5$s$N8f=u8@(B)
+	* elmo-imap4.el (elmo-imap4-create-msgdb-from-overview-string):
+	extra-field $BL>$r(B downcase $B$9$k$h$&$K$7$?!#(B
+	(Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp> $B$5$s$h$j8f;XE&(B)
+	* elmo-util.el (elmo-collect-field(-from-string)?):
+	$B0z?t(B downcase-field-name $B$rA}$d$7$?!#(B
+
+1999-12-03  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-folder.el (wl-folder-empty-trash):	$B%5%^%jA}?#8=>]$N=$@5!#(B
+
+1999-12-03  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* wl-summary.el (wl-summary-default-from): Newsgroup $BL>$,I=<((B
+	$B$5$l$J$+$C$?$N$r=$@5!#(B
+
+1999-12-03  TAKAHASHI Kaoru <nil@din.or.jp>
+
+	* INSTALL.ja: $B?75,%U%!%$%k!#(B
+	* draft $B:FJT=8;~$K!"(BNewsgroups: $B%X%C%@$,$"$l$P!"(BTo: $B$rIU2C$7$J$$$h(B
+	$B$&$K$9$k=$@5$N%^!<%8$7K:$l$r=$@5!#(B
+
+1999-12-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-mime-string): elmo-set-work-buf $B$G3g$k$h$&$K$7$?!#(B
+	(Mikiya Tani <m-tani@hml.cl.nec.co.jp> $B$5$s$N8f;XE&(B)
+	* 2.2.10 - "Human Touch"
+	* etc/icons/wl-logo.xpm: Christmas version.
+	* elmo-imap4.el (elmo-imap4-make-attributes-object):
+	Nemacs $B$G(B read $B$,<:GT$7$F$7$^$&$N$KBP=h!#(B
+	* elmo-dop.el (elmo-dop-list-folder): pipe $BBP1~K:$l$r=$@5!#(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8f;XE&(B)
+
+1999-12-03  sen_ml@eccosys.com
+
+	* utils/wl-mailto.el: 0.5.
+
+1999-12-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-1.el: buffer read only $B$N%(%i!<$,=P$k$N$r=$@5!#(B
+	* wl-mime.el, tm-wl.el: wl-draft-preview-message $B$N%-!<%P%$%s%I$rJQ99!#(B
+	(Makoto.Nakagawa@jp.compaq.com ($BCf@n(B $B@?(B) $B$5$s$N8fJs9p$K4p$E$/(B)
+	* utils/ssl.el: $B:G?7HG$KF~$l49$(!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)$B$5$s$N8f;XE&(B)
+	* elmo-util.el (elmo-mime-string, elmo-decode-mime-charset-string):
+	$B?75,4X?t!#(B
+	* elmo-imap4.el: FETCH $B7k2L2r@O=hM}ItJ,$rBgI}$K=q$-49$($?!#(B
+
+1999-12-02  Hironori Fukuchi <nory@valis.co.jp>
+
+	* wl-xmas.el: (featurep 'dragdrop) $B$,(B nil $B$N$H$-$K!"(B
+	wl-dnd-set-drop-target $B$,%(%i!<$rH/@8$9$k>l9g$,$"$k$N$r=$@5!#(B
+
+1999-12-02  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* starttls.el $B$,$J$$$H%(%i!<$,=P$k$N$r=$@5!#(B
+
+1999-12-01  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* smtp auth$B$N$H$3$m$G!$(Bwl-smtp-posting-user$B$,(B nil $B$G$b(B
+	error $B$r=P$5$J$$$h$&$K$7$?!#(B
+	* nntp$B%U%)%k%@$G%]!<%HHV9f$r;XDj$9$k$H%(%i!<$,=P$k$N$r=$@5(B
+
+1999-11-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-reedit): interactive $B$G$J$$$N$K(B
+	wl-mail-setup-hook $B$r8F$V$+$I$&$+$,(B (interactive-p) $B$GH=JL$5$l$F(B
+	$B$$$?$N$r=$@5!#(B
+	* New command: wl-fldmgr-delete.
+	* Rename: wl-fldmgr-rename-group -> wl-fldmgr-rename.
+	* New function: elmo-folder-creatable-p.
+	* imap4 $B$G(B #mh $B%?%$%W$N%U%)%k%@$r:n$k$H$-!$I,$:%G%#%l%/%H%j$,:n(B
+	  $B@.$5$l$k$h$&$K$7$?!#(B
+	* wl-folder-check-one-entity $B$GB8:_$7$J$$%U%)%k%@$r:n@.$9$k$h$&(B
+	  $B$K$7$?!#(B
+	* New macro: wl-folder-clear-entity-info.
+
+1999-11-25  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-message.el (wl-message-narrow-to-page): "^L\n^L" $B$r4^$`%a%C%;!<(B
+	$B%8$rFI$`$H$-$K(B `beginning-of-buffer' $B%(%i!<$,=P$J$$$h$&$K$7$?!#(B
+
+1999-11-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary-mode $B$N0z?t$r$J$/$7$?!#(B
+	* wl-address.el (wl-address-petname-add-or-change):
+	.addresses $B$N:G8e$N9T$K2~9T$,$J$$>l9g$KBP=h!#(B
+	* elmo-imap4-[12].el (mmelmo-imap4-parse-bodystructure-entity):
+	mime-parse-parameters-from-list $B$r;H$&$h$&$K$7$?!#(B
+
+1999-11-24  Tetsuya Uemura <uemura@pp.iij4u.or.jp>
+
+	* x-face-xmas-mew-display-x-face -> x-face-xmas-wl-display-x-face
+
+1999-11-22  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-vars.el (wl-smtp-authenticate-type, wl-smtp-use-tls): $B?75,JQ?t!#(B
+	* wl-draft.el (wl-draft-send-mail-with-smtp): SMTP $B$N(B TLS $BBP1~!#(B
+
+1999-11-21  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary-jump-to-msg-internal$B$,(B
+	wl-summary-jump-to-msg-by-message-id-via-nntp$B$+$i8F$P$l$k$H$-$K!$(B
+	scan-type$B$,(Bupdate$B$K$J$k$h$&$K$7$?!#(B
+
+1999-11-22  Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+	* elmo-imap4.el, elmo-pop3.el: STARTTLS $BBP1~!#(B
+
+1999-11-20  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el (wl-draft-send-mail-with-smtp):
+	connection $B$rD%$k;~$K(B process-connection-type $B$r(B nil $B$K94B+$7$?!#(B
+
+1999-11-20  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-util.el (elmo-open-network-stream):
+	connection $B$rD%$k;~$K(B process-connection-type $B$r(B nil $B$K94B+$7$?!#(B
+
+1999-11-20  Nishimoto Masaki <gaju@ceres.dti.ne.jp>
+
+	* $B4{$K(Bimportant$B%^!<%/$,$D$$$F$$$k%a%C%;!<%8$K(B
+	important$B$J%9%3%"$,$D$/$H%^!<%/$,>C$($F$7$^$&$N$r=$@5!#(B
+
+1999-11-19  Hironori Fukuchi <nory@valis.co.jp>
+
+	* tm-wl.el: fixed typo.
+
+1999-11-18  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* $BI=<($7$F$$$k%a%C%;!<%8$,$J$$>uBV$G(B wl-draft-insert-message $B$r<B(B
+	$B9T$9$k$H%(%i!<$,=P$k$h$&$K$7$?!#(B
+
+1999-11-17  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-vars.el: $B?75,JQ?t(B wl-summary-showto-folder-regexp$B!#(B
+	* wl-summary.el (wl-summary-default-from):
+	my-wl-summary-from-func-petname $B$K$7$?!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@(B)
+	* wl-summary.el (wl-summary-simple-from): wl-summary-default-from
+	$B$+$iL>A0JQ99!#(B
+
+1999-11-17  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-message.el (wl-message-get-buffer-create):
+	sticky $B%a%C%;!<%8$rI=<($9$k$H$-$K%(%i!<$K$J$k$N$r=$@5$7$?!#(B
+
+1999-11-17  sen_ml@eccosys.com
+
+	* wl-mailto.el: 0.5-pre1.
+
+1999-11-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-util.el (elmo-delete-cr-get-content-type):
+	Content-Type $B$,$J$$$H$-$K(B t $B$rJV5Q$9$k$h$&$K$7$?!#(B
+	* 2.2.9 - "Gonna Make You Sweat"
+
+1999-11-15  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* wl-util.el (wl-unique-id): current-time $B$H(B timezone $B$r;H$o$J$$HG!#(B
+
+1999-11-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft.el, wl-summary.el: reply $B;~$O(B wl-draft-reply $B$r(B t $B$K(B,
+	 forward $B;~$O(B wl-draft-forward $B$r(B t $B$K@_Dj$9$k$h$&$K$7$?!#(B
+	* wl-folder.el, wl.el: wl-folder $B$G%U%)%k%@%j%9%H$r@8@.$7$?$H$-$N$_!$(B
+	  wl-make-plugged-alist $B$r8F$V$h$&$K$7$?!#(B
+
+1999-11-14  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* elmo-pipe.el (elmo-pipe-use-cache-p): $B<BAu!#(B
+	* elmo2.el (elmo-folder-number-get-spec): $B=$@5!#(B
+
+1999-11-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-nemacs.el: current-time $B<BAu$r<h$j9~$s$@!#(B
+	* wl-draft.el: insert-mail $B$N<BAu!#(B
+	* $B%a%C%;!<%8$N(B MIME $B%\%?%s$G(B 'a' $B$r2!$7$?$H$-$K!"$=$N%Q!<%H$r0zMQ$7$?(B
+	$B%I%i%U%H$rMQ0U$9$k$h$&$K$7$?!#(B
+	* wl-draft.el: wl-user-agent.el $B$r%^!<%8$7$?!#(B
+	* wl-mime.el, tm-wl.el: MIME module $B$H$N(B API $B$r@0M}$7$J$*$7$?!#(B
+
+1999-11-12  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-imap4.el: $BB8:_$7$J$$%U%)%k%@$KBP$7$F(B
+	wl-folder-check-current-entity $B$r<B9T$9$k$H%(%i!<$,=P$k$N$r=$@5!#(B
+	* wl-draft.el: wl-draft-config-list, wl-template-alist $B$G(B
+	header, header-file $B$b;XDj$G$-$k$h$&$K$7$?!#(B
+
+1999-11-12  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* wl-util.el (wl-draft-make-message-id-string, wl-unique-id,
+	wl-number-base36): New functions.
+	(wl-unique-id-char): New internal variable.
+
+	* wl-mule.el (wl-draft-make-message-id-string): Remove.
+	* wl-nemacs.el (wl-draft-make-message-id-string): Remove.
+	* wl-xmas.el (wl-draft-make-message-id-string): Remove.
+
+	* wl-draft.el (wl-draft-send-mail-with-smtp): `smtp-server' $B$,4X?t(B
+	$B$@$C$?$i(B funcall $B$9$k$h$&$K$7$?(B; Resent-* $B%U%#!<%k%I$N07$$$r(B `smtp'
+	$B$KG$$;$k$h$&$K$7$?!#(B
+
+1999-11-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft (wl-draft-get-fcc-list): FCC $B$K;XDj$5$l$?%U%)%k%@$,(B
+	$BB8:_$7$J$$$H$-$K%(%i!<$H$;$:!":n@.$9$k$+$I$&$+$-$/$h$&$K$7$?!#(B
+	* Rename: wl-summary-confirm-folder-existence ->
+	wl-folder-confirm-existence$B!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@$K(B
+	$B4p$E$/(B)
+	* Rename: wl-mime-edit-preview-message-hook
+	-> wl-draft-preview-message-hook
+	* elmo-nntp.el (elmo-nntp-string-to-vector): $B4X?t8F$S=P$7$K$9$k$N$r(B
+	$B;_$a$?!#(B
+	* elmo-util.el (elmo-tokenize-string): $BGQ;_!#(Bsplit-string $B$GBeMQ!#(B
+	* wl-highlight.el: $B?75,(B face$B!"(Bwl-highlight-logo-face$B!#%m%4MQ(B face$B!#(B
+
+1999-11-11  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* wl-demo.el: bitmap-mule $BBP1~!#(B
+	* wl-logo.xbm: $B?75,%U%!%$%k!#(B
+	* elmo-nntp.el (elmo-nntp-string-to-vector): vector $B$ND9$5$rL5@)8B(B
+	$B$K$7$?!#(B
+	(elmo-nntp-parse-overview-string): `elmo-nntp-string-to-vector' $B$K(B
+	$BBh#20z?t$rM?$($k$N$r$d$a$?!#(B
+
+1999-11-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el: Message-ID $B$K(B '%' $B$,4^$^$l$F$$$k$H8!:w$K<:GT$9$k$N(B
+	$B$r=$@5!#(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8f=u8@(B)
+	* wl-message.el, mmelmo-[12].el: read-only $B$N@_Dj$r@0M}!#(B
+	* wl-draft-save-and-hide -> wl-draft-save-and-exit $B$H$7!"(B
+	  C-c C-z $B$K%P%$%s%I$7$?!#(B
+
+1999-11-11  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* wl-summary.el (wl-summary-temp-mark-forward):
+	$B%^!<%/$5$l$F$$$k%a%C%;!<%8$,J#?t$J$i$PA4BN$r(B multipart/digest $B$G0O$`(B
+	$B$h$&$K$7$?!#(B
+
+1999-11-11  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* $B?75,JQ?t(B wl-nntp-posting-port, wl-nntp-posting-ssl
+	wl-nntp-posting-{user,server,port,ssl}$B$H(B
+	elmo-default-nntp-{user,server,port,ssl} $B$rBP1~$5$;$k$h$&$K$7$?!#(B
+	* wl-nntp-posting-* $B$N=i4|@_Dj$O(B nil $B$H$7!"(B
+	nil $B$N$^$^$J$i(B elmo-default-nntp-* $B$rMxMQ$9$k$h$&$K$7$?!#(B
+	* utils/bbdb-wl.el: (setq bbdb-use-pop-up nil) $B$N>l9g!"(B
+	$B%5%^%j$G(B ':' $B$r2!$7$?8e(B q $B$H2!$9$H%(%i!<$,=P$k$N$r=$@5!#(B
+	* wl-draft.el: $B?75,4X?t(B wl-draft-save-and-hide$B!#(B
+
+1999-11-10  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-demo$B$G!$(Bwl-logo.xpm$B$NI=<(0LCV$r$A$c$s$H7W;;$9$k$h$&$K$7$?!#(B
+
+1999-11-10  Tsutomu Okada ($B2,ED(B $BJY(B) <okada@furuno.co.jp>
+
+	* wl-message.el (wl-message-refer-article-or-url):
+	$B%a%C%;!<%8%P%C%U%!$G(B mouse-button-2 $B$r2!$7$F$b%+!<%=%k$,(B
+	$B%a%C%;!<%8%P%C%U%!$K0\F0$7$J$$$h$&$K$7$?!#(B
+
+1999-11-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-set-message-buffer-or-redisplay):
+	Sticky Message $B$,$"$k$H%*%j%8%J%k%P%C%U%!$,<B:]$H0[$J$C$?$^$^$K(B
+	$B$J$k>l9g$,$"$k$N$r=$@5!#(B(Mito <mit@nines.nec.co.jp> $B$5$s$h$j8fJs9p(B)
+	* wl-util.el (wl-string): elmo-string $B$X$N(B alias $B$H$7$?!#(B
+	* elmo-util.el (elmo-string): $B?75,4X?t!#(B
+	* $B?75,JQ?t(B wl-smtp-posting-port$B!#(B
+	* wl-summary-resend-bounced-mail $B$r(B "\eE" $B$K%P%$%s%I!#(B
+
+1999-11-10  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* WL-ELS $B$N(B typo $B$N=$@5$b$l$N=$@5!#(B
+
+1999-11-10  kurati@bigfoot.com
+
+	* refile $B$G%U%)%k%@:n@.$7$?$H$-$K%U%)%k%@L>Jd408uJd$K2C$o$k$h$&$K$7$?!#(B
+	* FCC: $B$K?75,%U%)%k%@$r;XDj$7$?;~$K:n@.$9$k$+J9$/$h$&$K$7$?!#(B
+	* auto-refile $B$N$H$-!"B8:_$7$J$$%U%)%k%@$,$"$C$?;~$K:n@.$9$k$+J9$/!#(B
+
+1999-11-10  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* wl-summary.el (wl-summary-resend-message,
+	wl-summary-resend-bounced-mail): $B?75,%3%^%s%I!#(B
+	* wl-draft.el (wl-draft-dispatch-message): dispatch $B$5$l$?(B
+	$B%a%C%;!<%8$,(B Resent-to $B%X%C%@$r4^$s$G$$$?>l9g$O(B Newsgroups $B%X%C%@(B
+	$B$r;}$C$F$$$F$b%K%e!<%9$K$OAw$i$J$$!#(B
+
+1999-11-09  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-summary.el (wl-summary-jump-to-msg-internal): $B5-;v$,(B
+	$BI=<($5$l$J$$>l9g$,$"$k$N$r=$@5!#(B
+	* wl-summary.el (wl-summary-jump-to-msg-by-message-id-via-nntp):
+	$B0\F0@h$N%K%e!<%9%0%k!<%W$N8uJd$,J#?t$"$k$H$-$K(B
+	wl-folder-newsgroups-hashtb $B$K4^$^$l$k$b$N$rM%@h$9$k$h$&$K$7$?!#(B
+
+1999-11-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.8 - "Free As A Bird"
+
+1999-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-draft.el (wl-draft-send): $BAw?.8e!"(BC-cC-s $B$,(B insert-signature $B$K(B
+	$B$J$C$F$7$^$&$N$r2sHr!#(B(Akihiro MOTOKI <motoki@ptl.abk.nec.co.jp> $B$5$s(B
+	$B$h$j8fJs9p(B)
+	* WL-MK: Nemacs $B$G$O(B (fset 'file-executable-p 'file-exists-p) $B$H$7$?!#(B
+	* WL-MK, WL-CFG: WL_PREFIX $B$H(B ELMO_PREFIX $B$N%G%U%)%k%H$r(B "wl"
+	$B$H$7$?!#(B
+	* $B?75,JQ?t(B wl-user-mail-address-list$B!#(B
+	$B%f!<%6$N%a!<%k%"%I%l%9$,J#?t$"$k$H$-$K<+J,$+$I$&$+$NH=Dj$KMQ$$$i$l$k!#(B
+	* $B?75,4X?t(B wl-address-user-mail-address-p
+	wl-user-mail-address-list $B$H(B wl-from $B$r;H$C$F<+J,$N%"%I%l%9$+$I$&$+(B
+	$BH=JL$9$k!#(B
+	* wl-summary.el (wl-summary-cancel-message,
+	wl-summary-supersedes-message): wl-address-user-mail-address-p
+	$B$r;H$C$F%"%I%l%9H=Dj$9$k$h$&$K$7$?!#(B
+	(okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA) $B$5$s$NJQ99$K4p$E$/(B)
+	* wl-refile.el (wl-refile-learn, wl-refile-guess-by-history): $BF1>e!#(B
+	* wl-draft.el (wl-draft-make-mail-followup-to, wl-draft-reply
+	wl-draft-delete-myself-from-cc): $BF1>e!#(B
+	* elmo-filter.el (elmo-filter-list-folder-unread,
+	elmo-filter-list-folder-important): $B%U%#%k%?=hM}$,4V0c$C$F$$$?(B
+	$B$N$r=$@5!#(B(Kazuyoshi Mii <mii@isl.ntt.co.jp> $B$5$s$h$j8fJs9p(B)
+
+1999-11-08  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* POP-before-SMTP $B4XO"JQ?t$N=i4|2=K!$rJQ99!#(B
+
+1999-11-07  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-nntp.el: list active $B$,<:GT$7$?$i!$(Blist $B$r<B9T$9$k$h$&$K$7$?!#(B
+
+1999-11-07  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-draft-prepared-confi-alist $B$rGQ;_$7!$(B
+	  wl-draft-config-alist $B$HE}9g$7$?!#(B
+	* wl-template-select $B$r<B9T$7$?$H$-$G$b%m!<%+%kJQ?t$r7Q>5$9$k$h(B
+	  $B$&$K$7$?!#(B
+	* Fcc $B%U%)%k%@$N=hM}$rAw?.$,@.8y$7$?;~$K9T$&$h$&$K$7$?!#(B
+	* wl-draft-queue-save-variables $B$NJQ?t$r(B user-mail-address $B$+$i(B
+	  wl-envelope-from $B$KJQ99$7$?!#(B
+	* wl-draft-insert-from-field $B$K$*$$$F!$(Buser-mail-address $B$,(B nil
+	  $B$N$H$-$K%(%i!<$K$J$k$N$r=$@5$7$?!#(B
+
+1999-11-06  Tetsuya Uemura <uemura@pp.iij4u.or.jp>
+
+	* describe-mode $B$G%b!<%I%^%C%W$,I=<($5$l$k$h$&$K$7$?!#(B
+
+1999-11-06  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-folder.el (wl-folder-mode-map):
+	wl-fldmgr-copy-region $B$N%-!<%P%$%s%I$rJQ$($?!#(B
+
+1999-11-06  Hironori Fukuchi <nory@valis.co.jp>
+
+	* wl-summary.el (wl-summary-stick): $B3g8L$N0LCV$,$:$l$F$$$?$N$r=$@5!#(B
+
+1999-11-06  Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+
+	* utils/wl-user-agent.el: sendmail-user-agent $B$NF0:n$K9g$o$;$?!#(B
+
+1999-11-06  sen_ml@eccosys.com
+
+	* utils/wl-user-agent.el: 0.5.
+
+1999-11-05  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-imap4.el: $B%=!<%9$r$+$J$j@0M}$7$?!#(B
+	* elmo-imap4.el: $B?75,JQ?t(B elmo-imap4-debug$B!#(B
+	Non-nil $B$J$i(B "*IMAP4 DEBUG*" $B%P%C%U%!$K%G%P%C%0>pJs$r=PNO$9$k!#(B
+	* elmo-imap4.el, elmo-pop3.el, elmo-nntp.el:
+	$B%a%C%;!<%8K\BNFI$_=P$7;~$N%3%T!<2s?t$r:o8:!#(B
+	* elmo-imap4.el: $B%3%^%s%I$NJVEz$,:G8e$^$GF@$i$l$k$^$G%m%C%/$9$k$h$&$K(B
+	$B$7$?!#(B
+	* wl-summary.el: wl-refile-rule-alist $B$,(B nil $B$@$H%*!<%H%j%U%!%$%k$,(B
+	$B%(%i!<$K$J$k$N$r=$@5!#(B
+	* WL-MK: install-package $B$G(B info $B$,%$%s%9%H!<%k$5$l$J$$$N$r=$@5!#(B
+	("MATSUBAYASHI 'Shaolin' Kohji" <shaolin@rins.st.ryukoku.ac.jp> $B$5$s(B
+	$B$h$j8fJs9p(B)
+	* elmo-cache.el (elmo-cache-search): $BItJ,%-%c%C%7%e$N8!:w$KBP1~(B
+	$B$7$F$$$J$+$C$?$N$r=$@5(B (Yasuo OKABE <okabe@i.kyoto-u.ac.jp>
+	$B$5$s$N8f;XE&(B)$B!#(B
+
+1999-11-04  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* POP-before-SMTP $B$N@0M}$H3HD%!#(B
+	* $B?75,JQ?t(B elmo-default-pop3-user, wl-pop-before-smtp-user,
+	wl-pop-before-smtp-server, wl-pop-before-smtp-port,
+	wl-pop-before-smtp-ssl, wl-pop-before-smtp-authenticate-type$B!#(B
+	* elmo-pop-before-smtp-* -> wl-pop-before-smtp-*
+
+1999-11-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el (wl-mime-edit-preview-message):
+	$B?75,(B hook: wl-mime-edit-preview-message-hook$B!#(B
+	* elmo-util.el: $B%P%$%H%3%s%Q%$%i$N=P$9(B Warning $B$r:o8:$7$?!#(B
+	* wl-summary.el (wl-summary-sync-marks): $B%^!<%/F14|=hM}$rBgI}$K9bB.2=!#(B
+	* elmo-pipe.el (elmo-pipe-max-of-folder): $BIQHK$K:o=|$5$l$k(B
+	IMAP4 $B%U%)%k%@$G$OL$FI?t$,$*$+$7$/$J$k$N$r=$@5!#(B
+	(Toshihiko Kodama ($B>.6L(B $BMxI'(B) <kodama@ayame.mfd.cs.fujitsu.co.jp>
+	$B$5$s$N8fJs9p$K4p$E$/(B)
+
+1999-11-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.7 - "Escapade"
+	* WL-MK: install-info $B$9$k$H(B INFODIR $B$N%a%C%;!<%8$,$*$+$7$/$J$k$N(B
+	$B$r=$@5!#(B
+	* $B5/F0$7$F:G=i$K(B Folder $B%b!<%I$+$i(B prefetch $B$9$k$H%(%i!<$,H/@8$9$k(B
+	$B$N$r=$@5(B ($B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+	$B$5$s$h$j8fJs9p(B)$B!#(B
+	* mime-elmo-entity $B%/%i%9$r(B mime-buffer-entity $B%/%i%9$N(B
+	$B%5%V%/%i%9$H$7!"B>$N(B MUA $B$K1F6A$,5Z$P$J$$$h$&$K$7$?!#(B
+	* $BJD$8$?%9%l%C%I$K%a%C%;!<%8$,DI2C$5$l$?$H$-$KHV9fItJ,$,(B
+	$B%O%$%i%$%H$5$l$J$+$C$?$N$r=$@5!#(B
+	* pipe $B$KBP1~$7K:$l$F$$$?ItJ,$rBP1~$5$;$?!#(B
+
+1999-11-03  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%U%)%k%@L>$NJd40$J$I$G!$(Bfolder petname $B$r;HMQ$9$k$h$&$K$7$?!#(B
+	* wl-force-fetch-folders $B$,(B non-nil $B$N>l9g!$%"%/%;%9%0%k!<%W$,(B
+	  unplugged $B$@$H3+$1$J$/$J$k$N$r=$@5$7$?!#(B
+	* $B%U%)%k%@%b!<%I$N:G2<9T$G(B wl-fldmgr-set-petname $B$,=PMh$J$$$h$&(B
+	  $B$K$7$?!#(B
+	* wl-plugged-mode $B$GJQ99$7$J$+$C$?>l9g$O!$(Bwl-toggle-plugged $B$r8F(B
+	  $B$P$J$$$h$&$K$7$?!#(B
+	* wl-exit $B$H(B wl-folder-suspend $B;~$N%P%C%U%!>C5n$r@0M}$7$?!#(B
+	* wl-folder.el: $B0lIt$r4X?t(B wl-folder-buffer-group-p $B$GCV$-49$($?!#(B
+	* wl-summary.el: $B0lIt$r4X?t(B wl-summary-entity-info-msg $B$GCV$-49(B
+	  $B$($?!#(B
+	* wl-reset-plugged-alist $B$N%G%U%)%k%HCM$r(B t $B$KJQ99$7$?!#(B
+	* wl-plugged-mode $B$G(B plugged $B>uBV$rJQ99$7$F$bA4It%j%;%C%H$5$l$F(B
+	  $B$7$^$&$N$r=$@5$7$?!#(B
+
+1999-11-03  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-summary.el (wl-summary-reedit): $B%K%e!<%95-;v$N:FJT(B
+	$B=8;~$K!"(BTo: $B%X%C%@$r2C$($J$$$h$&$K$7$?!#(B
+
+1999-11-03  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* wl-summary-write-current-newsgroup $B$G(B
+	elmo-folder-get-primitive-folder-list$B$r;H$&$h$&$K$7$?!#(B
+	* $B?75,%3%^%s%I(B wl-folder-write-current-newsgroup
+	* elmo-folder-get-primitive-folder-list $B$H(B
+	elmo-folder-get-primitive-spec-list $B$r(B pipe $B%U%)%k%@$KBP1~$5$;$?!%(B
+	* elmo-pop3-flush-connection$B$9$kA0$KEEOC$r@Z$k$H!$(B
+	wl-toggle-plugged $B$G$-$J$/$J$k$N$r=$@5!#(B
+
+1999-11-03  sike@ic.netlaputa.ne.jp
+
+	* Message-Id $B$NESCf$G2~9T$,$"$C$F$bBg>fIW$J$h$&$K$7$?!#(B
+
+1999-11-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.6 - "Diamonds And Pearls"
+	* $B5/F0;~$K(B plug status $B$r(B wl-plugged $B$K9g$o$;$k$h$&$K$7$?!#(B
+	(Yasuo OKABE <okabe@i.kyoto-u.ac.jp> $B$5$s$N8f;XE&(B)
+	* WL-MK: $BBgI}$K=q$-49$($?!#(B
+	* Rename: wl-address-complete-address
+	-> wl-complete-field-body
+	* Rename: wl-address-complete-address-or-tab
+	-> wl-complete-field-body-or-tab
+
+1999-11-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%U%)%k%@%"%$%3%s=i4|2=4X?t$r4JN,2=!#(B
+	* elmo-pipe: New module.
+
+1999-11-01  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* WL-ELS $B$N(B typo $B=$@5!#(B
+	* wl-user-agent.el $B$H(B wl-mailto.el $B$N(B byte-compile $B;~$K(B
+	"Cannot open load file wl" $B$N%(%i!<$,=P$k$N$r=$@5!#(B
+
+1999-10-29  Takaaki MORIYAMA  <taka@airlab.cs.ritsumei.ac.jp>
+
+	* wl-exit $B$G(B kill-emacs-hook $B$+$i(B wl-save-status $B$r>C$9$h$&$K$7$?!#(B
+
+1999-10-28  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* new file: WL-ELS$B!#(B
+	* WL-MK: install.el $B$r;H$&$h$&BgI}$K=q$-49$($?!#(B
+
+1999-10-28  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-ja.texi: wl-template-select $B$N%-!<%P%$%s%I$,4V0c$C$F$$$?$N$r(B
+	$B=$@5!#(B
+	* INN 2.3 $B$G$bL$FI?t$,0lCW$9$k$h$&$K$7$?!#(B
+
+1999-10-28  TAKAHASHI Kaoru ($B9b66(B $B0j(B) <kaoru@kaisei.org>
+
+	* wl-ja.texi: $BBgI}$K=$@5!#(B
+
+1999-10-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Folder $B%b!<%I$G$b(B 'Z' $B$K(B wl-status-update $B$r%P%$%s%I$7$?!#(B
+	* Fix: wl-summary-goto-last-displayed-msg
+	$B#1$D$7$+I=<($7$?$3$H$,$J$$;~$KA0$N%a%C%;!<%8$KLa$l$J$+$C$?$N$r(B
+	$B=$@5!#(B
+
+1999-10-26  kurati <kurati@bigfoot.com>
+
+	* FCC: $B$GJd40$,8z$/$h$&$K$7$?!#(B
+
+1999-10-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Unplugged $B;~$G$b=EMW%^!<%/$NF14|$O$9$k$h$&$K$7$?!#(B
+	* auto-refile $B$NA0$KB8:_$9$k$+$I$&$+%A%'%C%/$9$k$h$&$K$7$?!#(B
+	(Toshihiko Kodama ($B>.6L(B $BMxI'(B) <kodama@ayame.mfd.cs.fujitsu.co.jp>
+	$B$5$s$N8fMWK>$K4p$E$/(B)
+	* Fix: score $B$G(B expunge $B$7$?%a%C%;!<%8$O(B IMAP4 $B%5!<%P>e$G$b(B
+	$BFI$s$@$3$H$K$9$k$3$H$K$7$?!#(B
+
+1999-10-22  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* $B%5%^%j%P%C%U%!(B($B%9%l%C%I%b!<%I(B)$B$G%+!<%=%k$,9TF,$K$J$$$H$-$K(B
+	$B%9%l%C%I$KBP$9$k(B mark $BA`:n$r$9$k$HF0:n$,JQ$K$J$k$N$r=$@5!#(B
+	* wl-thread-refile $B$G(B refile $B@h$K(B refile $B85$HF1$8%U%)%k%@$r(B
+	($B4V0c$C$F(B)$B;XDj$7$F%(%i!<$H$J$C$?$H$-$K%+!<%=%k$r0\F0$7$J$$MM$K$7$?!#(B
+	* wl-summary-jump-to-parent-message $B$G(B message $B$N8!:w$,<:GT$7$?;~$N(B
+	$B%a%C%;!<%8$rJQ$($?!#(B
+	* wl-summary-exec-region $B$G9TC10L$G$J$$(B region $B$r;XDj$7$?;~$N(B
+	region $B$NJd@5J}K!$,D>4QE*$G$J$+$C$?$N$rJQ99$7$?!#(B
+
+1999-10-25  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* fldmgr: $B%0%k!<%W%U%)%k%@$rDI2C$9$k$H%(%i!<$K$J$k$N$r=$@5$7$?!#(B
+	* wl-defface $B$N@_Dj$r(B static $B$K$7$?!#(B
+	* wl-folder-buffer-search-entity, wl-folder-folder-name $B$G(B
+	  $BL$FI?t$J$IITL@$N%U%)%k%@$K$b%^%C%A$9$k$h$&$K$7$?!#(B
+	* wl-summary-redisplay-no-mime $B$G$b!$(Bwl-summary-buffer-disp-msg $B$H(B
+	  wl-current-summary-buffer $B$r@_Dj$9$k$h$&$K$7$?!#(B
+
+1999-10-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B5/F0;~$K%I%a%$%sL>$,@5$7$$$+%A%'%C%/$9$k$h$&$K$7$?!#(B
+	* $B?75,JQ?t(B wl-local-domain$B!#(BFQDN $B$rJV$5$J$$%7%9%F%`MQ$N%I%a%$%sL>(B
+	$B$r@_Dj!#(B
+	* $B%U%)%k%@%b!<%I$N2#%9%/%m!<%k%P!<$r>C$7$?!#(B
+	("MATSUBAYASHI 'Shaolin' Kohji" <shaolin@rins.st.ryukoku.ac.jp> $B$N(B
+	$B8fJs9p$K4p$E$/(B)
+	* $B?75,4X?t(B wl-mime-edit-preview-message$B!#%W%l%S%e!<$N?'$D$1!#(B
+	* unplugged $B$+$D!"%-%c%C%7%e$5$l$?L$FI$,$J$$$H$-!"(B
+	$B%+!<%=%k$r%"%/%;%9$G$-$k:G8e$N%a%C%;!<%8$K9g$o$;$k$h$&$K$7$?!#(B
+	* WL-CFG $B$N(B utils $B$N;XDj$N;EJ}$,$^$A$,$C$F$$$?$N$r=$@5!#(B
+	(Taiji.Can@atesoft.advantest.co.jp $B$5$s$N8f;XE&(B)
+	* make info $B$K<:GT$9$k$N$r=$@5!#(B
+	(Kazufumi Hayasaka <hayakazu@hauN.org> $B$5$s$N8f;XE&(B)
+	* 2.2.5 - "Come Undone"
+
+1999-10-24  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* double negative $B$r(B simplify$B!#(B
+
+1999-10-24  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* FCC $B$,(B unplugged folder $B$J$i(B dop $B%-%e!<$KDI2C$9$k$h$&$K$7$?!#(B
+	* elmo-dop-queue $B$K(B "append-operations" $B$rDI2C$7$?!#(B
+	* wl-summary-flush-pending-append-operations $B$K$*$$$F4{FI%a%C%;!<(B
+	  $B%8$r0z$-7Q$0$h$&$K$7$?!#(B
+
+1999-10-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* WL-CFG $B$H$7$F$=$l$C$]$$$N$rMQ0U$7$F$_$?!#(B
+	* $B%*%U%i%$%sAw?.$G(B IMAP4 $B%U%)%k%@$X$N(B FCC $B$,L5;k$5$l$k$N$r=$@5!#(B
+	(Masafumi NAKANE <max@wide.ad.jp> $B$5$s$h$j8fJs9p(B)
+	* Emacs $B$H(B XEmacs $B$G(B refile-alist $B$r6&M-$G$-$J$+$C$?$N$r=$@5!#(B
+	(Takuo KITAME / $BKLL\BsO:(B <kitame@northeye.org> $B$5$s$h$j8fJs9p(B)
+	* wl-ja.texi: tm, semi $B$NG[I[85$r=$@5!#(B
+	* Folder $B%b!<%I$GJL%5!<%P$GF1$8L>A0$N(B IMAP4 $B%U%)%k%@$,$"$C$?$H$-$K!"(B
+	$BJL$N%U%)%k%@$NL$FI?t$,=q$-JQ$o$C$F$7$^$&$3$H$,$"$k$N$r=$@5!#(B
+	(Kazuyoshi Mii <mii@isl.ntt.co.jp> $B$5$s$h$j8fJs9p(B)
+
+1999-10-23  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* elmo-dop-merge-funcs $B$K$J$$A`:n$r!$<N$F$k$h$&$K$J$C$F$$$?$N$r(B
+	$B=$@5!#(B
+
+1999-10-23  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* port $B$N(B label $B$r<+F0E*$K:n@.$9$k$h$&$K$7$?!#(B
+	* dop queue $B$NI=<($r>/$7$@$1>\:Y$K$7$?!#(B
+	* elmo-dop-queue-merge $B$G(B elmo-dop-queue $B$,(B nil $B$K$J$k$3$H$,$"$k$N(B
+	  $B$r=$@5$7$?!#(B
+
+1999-10-23  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* elmo-prefetch-msgs $B$G!$=hM}$N?J$_$0$"$$$r%+%&%s%H$9$k$h$&$K$7$?!%(B
+
+1999-10-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime-save-content $B$r(B SEMI $B$KEPO?$9$k$H$-$K(B Wanderlust $B@lMQ(B
+	$B%a%=%C%I$H$9$k$h$&$K$7$?!#(B
+	* FLIM-1.12 $B7O$G(B partial $B$N%^!<%8$K<:GT$9$k$N$r=$@5!#(B
+	* WL-MK: $BBgI}$K=q$-D>$7$?!#(B
+
+1999-10-22  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* Rename: wl-score-edit-exit-function -> wl-score-edit-exit-func
+
+1999-10-22  Takuo KITAME / $BKLL\BsO:(B <kitame@northeye.org>
+
+	* etc/ja.Emacs: $B$$$/$D$+CM$,=EJ#$7$F$$$?$N$r=$@5!#(B
+
+1999-10-22  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* [wl-ja.texi] wl-summary-save-*
+	  wl-summary-jump-to-msg-by-message-id-via-nntp
+	  $B%*%U%i%$%s(Bprefetch
+	  wl-folder-jump-to-current-entity
+	  cram-md5,SSL $B$N@bL@$rDI2C!#(B
+
+1999-10-22  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* XEmacs built-in $B$N(B md5 $B$r8F$V$H$-$N(B CODING $B$r(B 'binary $B$K$7$?!#(B
+	* sticky summary $B$+$i(B "g" $B$GJL$N%U%)%k%@$K0\F0$9$k$H!$(B
+	temp $B%^!<%/$J$I$,>C$($k$K$b4X$o$i$:(B face $B$,85$KLa$i$J$$$N$r=$@5!#(B
+	* $B?75,JQ?t(B wl-prog-uudecode-no-stdout-option$B!#(BNon-nil $B$J$i(B
+	$B;XDj$5$l$?%U%!%$%kL>$G%;!<%V$9$k$h$&$K$7$?!#(B
+
+1999-10-21  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* $B%*%U%i%$%s=hM}%-%e!<$N%^!<%8=hM}!#(B
+
+1999-10-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-address-header-extract-address $B$G(B std11.el $B$rMxMQ$7$J$$$h$&$K(B
+	$B$7$?!#(B
+
+1999-10-20  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-reset-plugged-alist $B$,(B nil $B$J$i%5!<%P!&%]!<%HJL$N%W%i%0>uBV$r(B
+	  $B=i4|2=$7$J$$$h$&$K$7$?!#(B
+
+1999-10-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Emacs 20.2 $B$G$O!"(BFolder $B%b!<%I=i4|2=;~$K(B buffer-read-only
+	$B$N%(%i!<$,H/@8$9$k$N$r=$@5!#(B
+	(Yasuhiro Ohta <yohta@acsu.buffalo.edu> $B$5$s$h$j8fJs9p!"(B
+	TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp> $B$5$s$h$j8f=u8@(B)
+	* XEmacs $B$G(B scrollbar $B$H(B toolbar $B$N%A%'%C%/$r$9$k$h$&$K$7$?!#(B
+	(Shigeru OKUMURA <sokumura@jaist.ac.jp> $B$5$s$h$j8f=u8@(B)
+
+1999-10-20  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* $BIT@5$J%X%C%@$N%a!<%k$r%j%U%!%$%k$7$h$&$H$9$k$H%(%i!<$,H/@8$9$k$N$r(B
+	$B=$@5!#(B
+	* $B%"%/%;%9%0%k!<%W$r:G=i$K3+$$$?$H$-$KFbMF$,8=$l$J$/$J$C$F$$$?(B
+	$B$N$r=$@5!#(B
+
+1999-10-19  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Folder $B%b!<%I$N(B 'E' $B$G(B wl-folder-toggle-disp-summary $B$,%(%i!<(B
+	$B$rH/@8$9$k$N$r=$@5!#(B
+	(Shigeru OKUMURA <sokumura@jaist.ac.jp> $B$5$s$N8fJs9p(B)
+	* timezone $B$N(B y2k $BBP:v$G(B eval-after-load $B$r;H$o$J$$$h$&$K$7$?!#(B
+	* 2.2.4 - "Black Or White"
+
+1999-10-19  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* wl-fetch-confirm-threshold$B$r1[$($k%a%C%;!<%8$r(B
+	prefetch$B$7$h$&$H$7$?$H$-$K!"(B'n'$B$r2!$7$F%-%c%s%;%k$7$F$b(B
+	$B%^!<%/$,6u$K$J$C$F$7$^$&%P%0$N=$@5!#(B
+	* Offline Prefetch$B!#(B
+
+1999-10-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%U%)%k%@%b!<%I$N:G8e$N9T$G(B 'm f' $B$G$-$J$$$h$&$K$7$?!#(B
+	* $B%P%$%H%3%s%Q%$%k;~$N(B Warning $B$r8:$i$7$?!#(B
+	* hmac $B%Q%C%1!<%8$H(B ssl.el $B$r(B utils/ $B$K4^$a$F$_$?!#(B
+	(WL-CFG $B$G(B wl-install-hmac $B$,(B t $B$J$i%$%s%9%H!<%k$9$k$h$&$K$7$?!#(B)
+	* FLIM-1.12 $B$G$bF0$/$h$&$K$7$?!#(B
+	* Unplugged $B;~$K(B IMAP4 $B%U%)%k%@$K0\F0$9$k$H%(%i!<$,=P$k$N$r=$@5!%(B
+	* $B%5%^%j99?7;~!"(Bwl-summary-update-confirm-threshold $B$h$j$b99?7?t$,(B
+	$BB?$$$J$i$P!"0lItJ,$@$199?7$K$9$k$+$I$&$+!"<ALd$9$k$h$&$K$7$?!%(B
+	* $B?75,JQ?t(B wl-summary-update-confirm-threshold$B!%(B
+
+1999-10-18  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* $B?75,JQ?t(B wl-summary-search-via-nntp$B!#(BNon-nil $B$G(B
+	wl-summary-jump-to-msg-by-message-id $B$+$i(B
+	wl-summary-jump-to-msg-by-message-id-via-nntp $B$r8F$V!#(B
+	$BCM$,(B 'confirm $B$J$i!"3NG'$r5a$a$F$+$i8F$S=P$9!#(B
+	* $B?75,4X?t(B wl-summary-jump-to-msg-by-message-id-via-nntp
+	$B;XDj$5$l$?(B Message-ID $B$N%K%e!<%95-;v$r(B NNTP $B7PM3$G8!:w$7!"(B
+	$B%U%)%k%@0\F0!#(B
+
+1999-10-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* expire $B$,(B number-or-marker-p error $B$rH/@8$9$k>l9g$,$"$k$N$r=$@5!#(B
+	* filter $B@8@.;~$K(B tocc $B$GJd40$G$-$k$h$&$K$7$?!#(B
+	* $B%U%)%k%@%b!<%I$G$N(B filter $B$N:n$jJ}$rJQ99!#(B
+
+1999-10-15  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* IMAP4 $B%U%)%k%@$NL$FI?t$,@5$7$/H?1G$5$l$k$h$&!$(B
+	elmo-imap4-server-diff $B;~$K!"(Belmo-imap4-commit $B$9$k$h$&$K$7$?!#(B
+	* $B?75,4X?t(B elmo-commit$B!#%5!<%P$N>uBV$r%"%C%W%G!<%H$5$;$k!#(B
+	* wl-folder-check-one-entity $B$,L5BL$K%U%)%k%@$NB8:_$r%A%'%C%/$7$F(B
+	$B$$$?$N$r=$@5!#(B
+	* elmo-imap4-max-of-folder: new implementation.
+	* elmo-imap4-folder-exists-p: new implementation.
+
+1999-10-14  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* wl-ja.texi: fixed typo (@kbd {l} -> @kbd{l}).
+
+1999-10-14  TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+	* xemacs $B$G(B wl-local-variable-p $BB>$,F0$+$J$$$N$r=$@5!#(B
+
+1999-10-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%-%c%C%7%e$,$"$k$H$$$/$iFI$s$G$bL$FI%^!<%/$,>C$($J$/$J$C$F$7$^$&$N(B
+	$B$r=$@5!#(B
+	(Taiji.Can@atesoft.advantest.co.jp $B$5$s$N8f;XE&(B)
+	* wl-address-header-extract-address $B$G(B std11.el $B$rMxMQ$9$k$h$&$K$7$?!#(B
+
+1999-10-14  Masafumi NAKANE <max@wide.ad.jp>
+
+	* Fixed Typo: exit-> exist.
+
+1999-10-13  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* unplugged.xpm: $B@V$rF~$l$?!#(B
+
+1999-10-13  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* elmo-filter-get-spec $B$N;EMMJQ99$K4X78$9$k=$@51L$l$N=$@51L$l(B
+	$B$r=$@5(B (elmo-folder-diff)$B!#(B
+
+1999-10-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-plugged-mode $B$N%&%#%s%I%&:n@.=hM}$NIi2Y$r7Z$/$7$?!#(B
+	* wl-draft-raw-send $B$G(B wl-draft-config-alist $B$r(B nil $B$K(B
+	$B94B+$7$J$$$h$&$K$7$?!#(B
+
+1999-10-13  Sasaki Toshiya <toshi@unicorn.tohoku.nttcom.co.jp>
+
+	* wl-folder-use-sever-diff-p: $B%^%k%A%U%)%k%@$G!"0l$D$G$b(B
+	IMAP4 $B%U%)%k%@$,$"$l$P(B t $B$K$J$k$h$&$K$7$?!#(B
+
+1999-10-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 'm U' (wl-summary-temp-mark-uudecode)$B$G!"=PNO@h$N(B
+	$B%U%!%$%kL>$r;XDj$G$-$k$h$&$K$7$?!#(B
+	* $B%U%)%k%@%b!<%I$b%[%$!<%k$KBP1~$5$;$?!#(B
+	* tm-wl.el $B$,JT=8Cf$@$C$?$N$r=$@5!#(B
+	(Toshihiko Kodama ($B>.6L(B $BMxI'(B) <kodama@ayame.mfd.cs.fujitsu.co.jp> $B$5$s(B
+	$B$N8f;XE&(B)
+	* wl-ja.texi: OR $B>r7o$N@bL@$rDI2C!#(B
+	* time-stamp $B$K0MB8$7$J$$$h$&$K$7$?!#(B
+
+1999-10-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.3 - "Always"
+	* read-directroy-name -> wl-read-directory-name$B!#(B
+
+1999-10-12  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* $B?75,4X?t(B wl-summary-save-region (ry), wl-thread-save (ty),
+	wl-summary-temp-mark-save (my)$B!#(B
+
+1999-10-11  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,JQ?t(B wl-draft-sendlog$B!#(Bnon-nil $B$J$iAw?.%m%0$r@8@.$9$k!#(B
+	* New plugged system $BBh#2CF(B.
+
+1999-10-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B?75,4X?t(B wl-summary-temp-mark-pick (m? $B$K%P%$%s%I(B)$B!#(B
+	$B0l;~%^!<%/$,$D$$$?%a%C%;!<%8$rBP>]$H$7$F8!:w!#(B
+	* $B?75,JQ?t(B elmo-imap4-disuse-server-flag-mailbox-regexp$B!#(B
+	$BJ8;zNs$,%^%C%A$7$?%a!<%k%\%C%/%9$N%U%i%0$r;H$o$J$$!#(B
+	$B%G%U%)%k%H$O(B "^#mh"$B!#(B
+	* wl-address-file-name -> wl-address-file$B!#(B
+	* wl-score-default-file-name -> wl-score-default-file$B!#(B
+	* $B?75,JQ?t(B wl-summary-auto-sync-marks$B!#(B
+	Non-nil $B$J$i%5%^%jF14|;~$KL$FI(B/$B=EMW%^!<%/$bF14|$9$k!#(B
+	$B%G%U%)%k%H$O(B t$B!#(B
+	* wl-stirict-diff-folders $B$N%G%U%)%k%H$r(B nil $B$K$7$?!#(B
+	* $B%5%^%j$G=EMW%^!<%/$rF14|$9$k$h$&$K$7$?!#(B
+	* IMAP4 $B%U%)%k%@$GL$FI%U%i%0$rF14|$9$k$h$&$K$7$?!#(B
+	* $B?75,%3%^%s%I(B wl-summary-sync-marks$B!#(B
+	* IMAP4 $B%U%)%k%@$G%5!<%PB&$NL$FI?t$rI=<($G$-$k$h$&$K$7$?!#(B
+	* $B?75,JQ?t(B wl-folder-use-server-diff$B!#(B
+
+1999-10-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B?75,JQ?t(B wl-envelope-from$B!#(Benvelope from $B$r@_Dj!#(B
+	nil $B$J$i(B wl-from $B$,(B envelope from $B$H$J$k!#%G%U%)%k%H$O(B nil$B!#(B
+
+1999-10-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Message $B%P%C%U%!$G(B 'e' $B$r2!$7$?$H$-$N%;!<%V4X?t$r(B
+	$B$A$g$C$H$@$1?F@Z$J$b$N$r%G%U%)%k%H$H$7$?(B (SEMI $BMQ(B)$B!#(B
+	* wl-draft-send $B$G!"(Bsending-buffer $B$,(B buffer-live-p $B$N>l9g$@$1(B
+	kill-buffer $B$9$k$h$&$K$7$F$_$?!#(B
+	* $BL$FI?t%A%'%C%/;~!"%U%)%k%@$NB8:_$r$$$A$$$AD4$Y$k$N$r$d$a!"(B
+	$B%A%'%C%/$K<:GT$7$?$H$-$K%U%)%k%@$NB8:_$rD4$Y$k$h$&$K$7$?!#(B
+	* $B%a%C%;!<%8%P%C%U%!$K%+!<%=%k$,$"$k$H$-$K%[%$!<%k$r2s$9$H%(%i!<(B
+	$B$K$J$k$N$r=$@5!#(B
+
+1999-10-04  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* $B%0%k!<%W%U%)%k%@(B($BHs%"%/%;%9%0%k!<%W(B)$B$KBP$7$F!$(B
+	C-u SPC $B$7$?;~$K!$(Bwl-folder-update-recursive-current-entity $B$r(B
+	$B8F$V$h$&$K$7$?!%(B
+
+1999-10-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* filter $B$5$l$?(B IMAP4 $B%U%)%k%@$N%*%U%i%$%s=hM}$GL5BL$J:o=|=hM}(B
+	$B%-%e!<$,N/$k$N$r=$@5!#(B
+	(OKAZAKI Tetsurou <okazaki@be.to> $B$5$s$N8f;XE&(B)
+
+1999-10-04  okada@opaopa.org ($B2,ED(B $B7r0l(B /  Kenichi OKADA)
+
+	* $B%"%/%;%9%0!<%W$K(B Petname $B$r$D$1$k$H(B
+	wl-folder-update-recursive-current-entity $B$,F0$+$J$+$C$?$N$r=$@5!%(B
+
+1999-10-03  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-refile-alist $B$KEPO?$9$k:]$N(B key (mail address) $B$K(B
+	 downcase $B$r$+$1$k$h$&$K$7$?!#(B
+
+1999-10-02  Tetsuya Uemura <uemura@pp.iij4u.or.jp>
+
+	* $B%I%i%U%H%P%C%U%!$G%a!<%k$r:n@.Cf$K!"(B
+	C-u 0 C-l $B$J$I$G;XDj$N0LCV$K%+!<%=%k$,9T$/$h$&$K=$@5!#(B
+
+1999-10-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* IMAP4 $B$N%Q!<%H%U%'%C%A$G$O!"$=$N%a%C%;!<%8$rFI$s$@$3$H$K(B
+	$B$7$J$$$h$&$K$7$?!#(B
+
+1999-09-30  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* -nw $B$G5/F0$7$?(B Emacs 20 $B$G%W%j%s%H$G$-$J$$$N$r=$@5!#(B
+
+1999-09-28  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%U%)%k%@$+$i%5%^%j$K0\F0$9$k:]!$%U%)%k%@$rI=<($7$F$$$J$$%&%#%s(B
+	  $B%I%&$K%5%^%j$,I=<($5$l$k$3$H$,$"$k$N$r=$@5$7$?!#(B
+	* $B%[%9%H$,(B2$B$D0J2<$@$H(B wl-plugged-change $B$G%(%i!<$K$J$k$N$r=$@5!#(B
+	* $B%5%^%j$G$b(B wl-plugged-change $B$G$-$k$h$&$K$7$?!#(B
+
+1999-09-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%3%s%Q%$%k;~$K(B wl.el $B$r(B load $B$7$J$$$h$&$K$7$?!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8f;XE&$K(B
+	 $B4p$E$/(B)
+
+1999-09-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* New plugged system $B$G(B error $B$,H/@8$9$k>l9g$,$"$k$N$r=$@5!#(B
+
+1999-09-26  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* New plugged system.
+
+1999-09-24  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-break-pages $B$r(B nil $B$K94B+$7$F$b(B
+	wl-summary-set-message-buffer-or-redisplay() $B$G$O:FIA2h$5$l$J$$$N$G!"(B
+	wl-summary-redisplay-internal () $B$r<B9T$9$k$h$&$K$7$?!#(B
+	* wl-break-pages $B$,(B t $B$N;~$O2~JG$5$l$?8e$NItJ,$,%W%j%s%H=PNO(B
+	$B$5$l$J$$$N$r=$@5!#(B
+
+1999-09-23  $B2,ED(B $B7r0l(B (Kenichi OKADA) <okada@opaopa.org>
+
+	* wl-stay-folder-window t$B$G;H$C$F$$$k$H!$9T$,@^$jJV$5$l$F!$(B
+	$BHs>o$K8+?I$$$N$G!$(Btruncate-line t$B$K$7$?!#(B
+
+1999-09-23  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* elmo-filter-get-spec $B$N;EMMJQ99$K4X78$9$k=$@51L$l$r=$@5(B
+	(elmo-folder-diff)$B!#(B
+
+1999-09-23  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* localdir $BEy$,@dBP%Q%9$+$I$&$+$r(B file-name-absolute-p $B$GH=Dj$7!"(B
+	.elmo $B0J2<$K(B db $B$r:n$k$h$&$K$7$?!#(B
+
+1999-09-20  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* mime-view-caesar $B$G:n$i$l$?%P%C%U%!$r>C5n$9$k%3!<%I$,(B
+	$BKu;&$5$l$F$7$^$C$?$N$rI|3h!#(B
+
+1999-09-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B4X?t(B elmo-safe-filename $B$G(B OS/2 $B$G$O(B "|<>" $B$r%U%!%$%kL>$H$7$F(B
+	$B;H$($J$$$N$KBP1~!#(B
+
+1999-09-21  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.2 - "You Could Be Mine"
+	* $B%U%)%k%@%b!<%I$K$"$k%U%)%k%@$O!"(Bwl-save-folder-list $B$NCM$K(B
+	$B4X78$J$/%;!<%V$9$k$h$&$K$7$F$_$?!#(B
+	* filter $B$G%U%#!<%k%IL>$K(B 'tocc' $B$r;XDj$9$k$H(B to $B$+(B cc $B$K;XDjJ8;zNs$,(B
+	$B4^$^$l$k%a%C%;!<%8$r<h$j=P$9$h$&$K$7$?!#(B
+	* filter $B%U%)%k%@$G(B OR $B>r7o!"(BNOT $B>r7o$r;XDj$G$-$k$h$&$K$7$?!#(B
+	* wl-uniq-list -> elmo-uniq-list
+
+1999-09-20  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* timezone.el $B$N(B y2k $BBP:v$NDj5A$rJQ99!#(B
+	* wl-summary-save $B$G!"%;!<%V8e(B "No message to save." $B$H(B
+	$B8@$o$l$k$N$r=$@5!#(B
+	* local-variable-p $B$NDj5A$r(B wl-util.el $B$X0\F0!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8fJs9p(B
+	$B$K4p$E$/(B)
+
+1999-02-02  IMAI Takeshi <imai@ed2.com1.fc.nec.co.jp>
+
+	* IMAP $B%U%)%k%@$K(B expire $B$G$-$J$+$C$?$N$r=$@5!#(B
+
+1999-09-20  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* mime-view-caesar $B$G:n$i$l$?%P%C%U%!$r>C5n$9$k%3!<%I$,(B
+	$BKu;&$5$l$F$7$^$C$?$N$rI|3h!#(B
+
+1999-09-19  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* open-network-stream $B$N(B process-buffer $B$r(B unibyte $B$K@_Dj!#(B
+
+1999-09-19  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* wl-ja.texi $B$N=$@5!#(B
+
+1999-09-17  HAYAKAWA akio <akio-h@po.iijnet.or.jp>
+
+	* $B%m!<%+%k$N%U%)%k%@$@$1$G9=@.$5$l$F$$$k%^%k%A%U%)%k%@(B
+	$B$b%m!<%+%k$H$_$J$9$h$&$K$7$?!#(B
+
+1999-09-16  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* typo fix.
+
+1999-09-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* 1$B$D$N%U%l!<%`$K$*$$$F%a%C%;!<%8$rI=<($9$k%&%#%s%I%&$O6&M-$9$k(B
+	  $B$h$&$K$7$?!#(B
+	* wl-summary-goto-folder $B$7$?;~$K!$(Bwl-summary-buffer-disp-msg
+	  $B$NCM$K$h$j%a%C%;!<%8$NI=<($rI|85$9$k$h$&$K$7$?!#(B
+
+1999-09-15  OKAZAKI Tetsurou <okazaki@be.to>
+
+	* make install $B$G(B elmo $B4X78$N(B el $B%U%!%$%k$,L5>r7o$K(B
+	$B%$%s%9%H!<%k$5$l$F$7$^$&$N$r=$@5!#(B
+	* $B?75,4X?t(B wl-install-modules$B!#(B
+
+1999-09-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.1 - "Wild World"
+	* typo: stickey -> sticky.
+	* wl-nemacs.el: Nemacs $B8~$1$K(B local-variable-p $B$rDj5A!#(B
+	* Rename: etc/ChangeLog.* -> etc/ChangeLog.*.ja
+	* Rename: etc/ChangeLog.*.en -> etc/ChangeLog.*
+	* XEmacs $B$G%m%4$,=P$J$$$N$r=$@5!#(B
+	* XEmacs $B$N%$%s%9%H!<%k4X?t$,$3$o$l$F$$$?$N$r=$@5!#(B
+	(Hidetomo Machi <machi@ailab.is.tsukuba.ac.jp> $B$5$s$N8f;XE&(B)
+	* wl-ja.texi: MIME $BMQ%b%8%e!<%k$N%$%s%9%H!<%k$N9`$r99?7!#(B
+	* $B%$%s%9%H!<%k;~!":n$C$?(B info $B%U%!%$%k$r>C$5$J$$$h$&$K$7$?!#(B
+	* $B?75,4X?t(B wl-kill-buffers$B!#(B
+	* wl-summary-force-exit $B$H(B wl-exit $B$N$H$-$K(B Sticky Message $B$r:o=|(B
+	$B$9$k$h$&$K$7$?!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8f=u8@(B)
+
+1999-09-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* XEmacs-21.1.6 $B$G$O(B sticky $B%5%^%j$G(B wl-summary-read $B$,%(%i!<$K$J(B
+	  $B$k$N$r=$@5$7$?!#(B
+
+1999-09-14  Koichiro Ohba <Koichiro.Ohba@nf-system.co.jp>
+
+	* ja/dot.wl $B$N(B elmo-eword-decode-string $B$NJQ991L$l$r=$@5!#(B
+
+1999-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* tm-wl.el: SEMI API $B$K$"$o$;$F(B defalias-maybe $B$7$?!#(B
+	* $B$h$/9M$($?$i(B smtp.el $B$O(B flim|clime $B$K4^$^$l$F$$$k$N$G:o=|!%(B
+
+1999-09-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.2.0 - "Vogue"
+	* smtp.el: Sync up with flim-1.13.2$B!#(B
+	* $B?75,JQ?t(B wl-install-els$B!#(Bnil $B$J$i(B el $B%U%!%$%k$r%$%s%9%H!<%k$7$J$$!#(B
+	(for WL-CFG)
+	* wl-draft-reply $BEy$r(B Sticky Message $BBP1~!#(B
+	* wl-drfat-buffer-cur-message-buffer ->
+	wl-current-message-buffer $B$H$7!"(Bwl-util.el $B$K0\F0!#(B
+	* elmo-cross-device-link-error-p $B$rJQ99!#(B
+	(pf21 GOTO_Toshiya <pf21@pure.cpdc.canon.co.jp> $B$5$s$N8fJs9p$K4p$E$/(B)
+
+1999-09-13  Mito <mit@nines.nec.co.jp>
+
+	* Sticky Message$B!#(B
+	* Score $B%U%!%$%k$N(B guess $BJ}K!$N3HD%!#(B
+	* elc $B$@$1$G$J$/(B el $B%U%!%$%k$b%$%s%9%H!<%k$5$l$k$h$&$K$7$?!#(B
+
+1999-09-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%5%s%W%k%U%!%$%k$O(B samples $B%G%#%l%/%H%j$K$^$H$a$k$h$&$K$7$?!#(B
+	* $B%5%s%W%k%U%!%$%k1Q8lHG$rDI2C!#(B
+	* etc/*.xpm -> etc/icons/*.xpm
+	* etc/TODO -> doc/TODO.ja
+
+1999-09-12 OKAZAKI Tetsurou <okazaki@be.to>
+
+	* since, before $B4X78$N=$@5!#(B
+
+1999-09-10  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* im-wl-prog-imput-error-msg ->	im-wl-dispatcher-error-msg$B!#(B
+
+1999-09-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* convert-standard-filename $B$N(B defmacro $B$rGQ;_!#(B
+	* open-network-stream-as-binary $B$N(B defmacro $B$r:o=|!#(B
+	* with-current-buffer, with-temp-buffer $BEy$N(B defmacro $B$r:o=|!#(B
+	* elmo-eword-decode-string -> $BGQ;_!#(B
+
+1999-09-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B?75,JQ?t(B elmo-default-imap4-user$B!%(B
+	(Taiji.Can@atesoft.advantest.co.jp $B$5$s(B $B$N8f=u8@$K4p$E$/(B)
+	* 2.1.5 - "Unbelievable"
+
+1999-09-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B?75,JQ?t(B elmo-nntp-max-number-precedes-list-active$B!#(B
+	Non-nil $B$J$i(B list active $B$GF@$i$l$k?t;z$r5-;vHV9f$N:GBgCM$H$7$F07$&!#(B
+	* $B?75,4X?t(B elmo-update-number$B!#(B
+	elmo-nntp-max-number-precedes-list-active $B$,(B non-nil $B$N$H$-$K(B
+	$B%5%^%j$NF14|;~$K!"(Bmsgdb $B$N99?7$,$J$/$F$b5-;vHV9f$N:GBgCM$rF14|(B
+	$B$5$;$k$h$&$K$7$?!#(B
+	($B2,ED(B $B7r0l(B (Kenichi OKADA) <okada@opaopa.org> $B$5$s$N8f;XE&$K4p$E$/(B)
+
+1999-09-06  Akihiro Motoki <mokkun@iname.com>
+
+	* elmo-localnews-append-msg $B$N0z?t$,B-$j$J$+$C$?$N$r=$@5!#(B
+
+1999-09-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* [im-wl] im-wl-prog-imput-error-msg $B$,%P%C%U%!%m!<%+%k$K$J$C$F$b(B
+	$BBg>fIW$J$h$&!"%W%m%;%9%P%C%U%!$KCM$r%3%T!<$9$k$h$&$K$7$?!#(B
+	* (elmo-folder-local-p) $B$r;H$C$F!"(B'N','P' $B$b(B local $B$J$i(B plug $B>uBV(B
+	$B$K4X78$J$/F0:n$9$k$h$&$K$7$?!#(B
+	(Akihiro Motoki <mokkun@iname.com> $B$5$s$N8f=u8@(B)
+
+1999-09-03  Akihiro Motoki <mokkun@iname.com>
+
+	* 'p' $B$,(B localdir $B$G$bL$FI%a%C%;!<%8$r%9%-%C%W$7$F$7$^$&$N$r=$@5!#(B
+	* $B?75,4X?t(B (elmo-folder-local-p)
+
+1999-09-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%F%s%W%l!<%HA*Br$N%-!<%P%$%s%I$r(B C-cC-j $B$K$7$?!#(B
+	(TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>$B$5$s!"(B
+	Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8f=u8@(B)
+
+1999-08-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%I%i%U%H$NAw?.;~!"%-%e!<=hM};~$N%a%C%;!<%8$N=P$7J}$rJQ99!#(B
+
+1999-08-31  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [im-wl] $B%5%V%W%m%;%9$N8F$S=P$7;~$K%P%C%U%!$rJQ99$;$:!"(B
+	  $B%W%m%;%9$N=PNO$@$1(B" *Wl Watch*" $B$K8~$1$k$h$&$K$7$?!#(B
+
+1999-08-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* [wl-ja.texi] extra-fields $B$,(B IMAP $B%U%)%k%@$GM-8z$K$J$C$F$$$?$N$r(B
+	$BH?1G!#(B(Sasaki Toshiya <toshi@unicorn.tohoku.nttcom.co.jp>$B$5$s$N8f;XE&(B)
+	*  $BJ,3d$5$l$?(B MIME encode $B$5$l$?%a%C%;!<%8$rAw$m$&$H;W$&$H!"(B
+	$BL58B%k!<%W$K4Y$C$F$7$^$&$N$r=$@5!#(B
+	(Mikio Nakajima <minakaji@osaka.email.ne.jp> $B$5$s$N8f;XE&(B)
+
+1999-08-30  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* new im-wl.el
+
+1999-08-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B:G2<9T$G(B `K'/`L' (wl-summary-increase/lower-score) $B$9$k$H(B,
+	rule $BF~NO$KFMF~$7$F$7$^$&$N$G(B if $BJ8$r$R$H$DHo$;$?!#(B
+	(TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp> $B$5$s$N8f=u8@(B)
+	* EMWAC $BEy$N%5!<%P!<$G$O!"%5!<%P!<$+$i$NJVEz$rBT$DA0$K%3%^%s%I$r(B
+	$BAw$C$F$7$^$&$H$=$N8e%5!<%P!<$+$i$N1~Ez$,$J$/$J$C$F$7$^$&$i$7$$$N$G!"(B
+	$B?75,JQ?t(B elmo-pop3-send-command-synchronously $B$,(B non-nil $B$J$i(B
+	$B%5!<%P$NJVEz$rBT$D$h$&$K$7$?!#(B
+	(Atsushi Tada <tada@tworks.co.jp> $B$5$s$N%Q%C%A$K4p$E$/(B)
+	* $B:G6a$N(B SEMI $B$G(B mime-store-message/partial-piece $B$,F0$+$J$/(B
+	$B$J$C$?$N$r=$@5!#(B
+	* XEmacs $B$G%I%i%U%H%b!<%I$N%"%$%3%s$,=P$J$/$J$C$F$$$?$N$r=$@5!#(B
+
+1999-08-26  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* $B%5%^%j%b!<%I$G:G8e$N9T!J%a%C%;!<%8$,$J$$9T!K$K%+!<%=%k$r$*$$(B
+	$B$F(B "y" $B$rF~NO$9$k!J(Bwl-summary-save$B$r<B9T$7$h$&$H$9$k!K$H!"%a%C(B
+	$B%;!<%8HV9f$,<h$l$J$$$?$a%(%i!<$H$J$k$N$r=$@5!#(B
+
+1999-08-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $BGX7J$,L@?'$N>l9g$N?'$N%G%U%)%k%H$r$A$g$C$HJQ99$7$F$_$?!#(B
+	* $B%U%#%k%?;XDj$G(B /last=200/ $B$H$7$F$7$^$&$H$^$:$$$3$H$K$J$k$N$r=$@5!%(B
+	* % $B$N%"%/%;%9%0%k!<%W$H$7$F(B root $B$r;XDj$G$-$J$+$C$?$N$r=$@5!%(B
+
+1999-08-25  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.1.4 - "Tears In Heaven"
+	* [wl-ja.texi] Summary $B$N(B C-u . $B$N@bL@$rDI2C(B
+	  (susumu-w@ops.dti.ne.jp $B$N8f;XE&(B)$B!#(B
+
+1999-08-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%U%)%k%@C&=P;~$N%^!<%/<B9T$,<:GT$7$?>l9g!"%5%^%j$K%4%_$,(B
+	  $B;D$C$F$7$^$&$N$G!"<:GT$7$?>l9g$O%(%i!<$rH/@8$9$k$h$&$K$7$?!#(B
+	* split $B$5$l$?%a%C%;!<%8$N%X%C%@$,(B encode $B$5$l$J$$$3$H$,$"$k$N$r=$@5!#(B
+	* Unplugged $B$G!$%-%c%C%7%e$5$l$?(BIMAP$B%U%)%k%@$NL$FI%a%C%;!<%8$r(B
+	  $BFI$s$@$3$H$,!$%*%s%i%$%s$K$J$C$?=V4V$K%5!<%PB&$KH?1G$5$l$J$$$N$r(B
+	  $B=$@5!%(B
+	* Unplugged $B$G!$%U%!%$%k%-%c%C%7%e$5$l$F$$$J$$%a%C%;!<%8$rFI$`$H!$(B
+	  $BA0$N%a%C%;!<%8$,I=<($5$l$F$7$^$&$N$r=$@5!%(B
+	* $BA4HL$K(B, $B%9%l%C%I$r3+JD$9$k$H(B temp-mark $B$h$j(B mark $B$NJ}$,M%@h(B
+	  $B$5$l$F?'$,$D$/$N$r=$@5(B(susumu-w@ops.dti.ne.jp $B$N8f;XE&(B)$B!%(B
+	* wl-thread-insert-message: wl-summary-goto-top-of-current-thread $B$r(B
+	  $B;H$o$J$$$h$&$K$7$?!#(B
+	* wl-summary-goto-top-of-current-thread: $B=q$-D>$7!#(B
+	* "W" $B$G%I%i%U%H$r:n@.$7$?$H$-$K!$(B
+	  wl-mail-setup-hook $B$,8F$P$l$J$$=$@5$,$J$5$l$F$$$J$+$C$?!%(B
+	  ($B2,ED(B $B7r0l(B (Kenichi OKADA) <okada@opaopa.org> $B$5$s$N8f;XE&(B)
+	* push -> wl-push$B!%(B
+	  (Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8f=u8@(B)
+
+1999-08-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-eword-decode-string $B$r(B defalias $B$9$k$N$r$d$a$k!#(B
+	* tm $B$G(B flim $B$,;H$o$l$F$$$l$P(B User-Agent $B$K%P!<%8%g%s$rI=<(!%(B
+	* partial merge $B4X?t$N(B ID $BHf3SItJ,$r=$@5!%(B
+
+1999-08-22  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-nntp.el (elmo-nntp-catchup-msgdb): overview $B$,F@$i$l$J$/$F!$(B
+	msgdb $B$,(B (nil nil nil nil) $B$H$J$k>l9g$KBP=h!#(B
+
+1999-08-20  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-pop3.el: elmo-pop3-list-folder $B$r@0M}!#(B
+
+1999-08-20  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B?75,JQ?t(B wl-score-folder-alist-matchone$B!#(B
+	* wl-score-folder-alist $B$N=q<0$r3HD%$7$?!#(B
+
+1999-08-20  Mito <mit@nines.nec.co.jp>
+
+	* wl-score-folder-alist $B$N(B score file $B$r;XDj$9$k=j$K(B
+	  guess $B$H$$$&%7%s%\%k$r;XDj$7$?>l9g$O$=$N%U%)%k%@L>$+$i(B score
+	  file $B$r?dB,$9$k$h$&$K$7$?!#(B
+
+1999-08-19  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* (wl-summary-switch-to-clone-buffer): $B%3%T!<$9$kJQ?t$K(B
+	  wl-summary-buffer-temp-mark-list, wl-summary-default-score,
+	  wl-summary-important-above, wl-summary-temp-above,
+	  wl-summary-mark-below, wl-summary-expunge-below $B$rDI2C$7$?!#(B
+
+1999-08-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $BK:$l5n$i$l$F$$$?(B wl-thread-exec $B$r<BAu!#(B
+	  ("KJ.TASAKI" <kj.tasaki@18software.co.jp> $B$5$s$N8f;XE&(B)
+	* sync-all $B$N$H$-$b(B temp-mark $B$,;D$C$F$$$l$P!"<B9T$9$k$+$I$&$+(B
+	  $B3NG'$9$k$h$&$K$7$?!#(B
+	  (Taiji.Can@atesoft.advantest.co.jp $B$5$s$N8f;XE&(B)
+	* elmo-vars.el $B$N(B berkeley-db $B$N=$@51L$l!#(B
+	  (Mikio Nakajima <minakaji@osaka.email.ne.jp> $B$5$s$N8f;XE&(B)
+	* timezone-parse-date $B$N(B y2k $BBP:v!#(B
+	  (Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8f;XE&(B)
+
+1999-08-17  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* wl-fldmgr.el $B$N(B interactive command $B$N(B autoload $B@_Dj$r@0M}!#(B
+
+1999-08-16  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* Scoring $B=hM}$r9bB.2=$7$?!#(B
+	* wl-summary-sort-by-{from|subject} $B$r9bB.2=$7$?!#(B
+	* wl-summary-switch-to-clone-buffer $B$GJQ?t(B wl-current-score-file
+	  $B$H(B wl-score-alist $B$b%3%T!<$9$k$h$&$K$7$?!#(B
+	* $B4X?t(B wl-as-mime-charset $B$rDI2C$7$?!#(B
+	* Use wl-score-mode-mime-charset instead of
+	  wl-score-mode-coding-system.
+	* elmo-make-hash $B$N%G%U%)%k%H%F!<%V%k%5%$%:$r(B 1024 $B$H$7$?!#(B
+
+1999-08-14  susumu-w@ops.dti.ne.jp
+
+	* wl-thread-jump-to-msg $B$,(B interactive $B$G8F$P$l$k$H%(%i!<$K$J$k(B
+	  $B$N$r=$@5!%(B
+	* Summary $B$N(B "J" $B$K(B wl-thread-jump-to-msg $B$r3d$jEv$F!%(B
+	* localdir, localnew, maildir $B$K$*$$$F(B unplugged $B$G$b(B
+	  plugged $B$HF1$8$h$&$K(B n,p $B$9$k!%(B
+	* t d $B$G$OJ}8~$r9MN8$7$F$/$l$J$$$N$r=$@5!%(B
+	* c-u t d $B$G(B $B$$$C$3A0$N%9%l%C%I$,(B D $B$5$l$F$7$^$&$N$r=$@5!%(B
+	* d $B$@$H<!$N%a%C%;!<%8$,I=<($5$l$k$,(B, t d $B$@$HI=<($5$l$J$$$N$r=$@5!%(B
+	* n,p $B$K$*$$$F(B, D $B$,IU$$$?%a%C%;!<%8$rHt$P$9$h$&$K$7$?!%(B
+
+1999-08-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* [elmo] UW imapd $B$N%j%b!<%H%U%)%k%@$K%"%/%;%9$G$-$J$+$C$?$N$r=$@5!%(B
+
+1999-08-04  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* wl-queue-folder $B$K3JG<$5$l$?%a%C%;!<%8$NK\J8$,(B
+	  $BI=<($5$l$J$$$N$r=$@5(B($B?\:j(B $B>:(B <no_bo@geocities.co.jp> $B$5$s$N8f;XE&(B)$B!%(B
+	* 2.1.3 - "Sukiyaki"
+
+1999-08-03  $B2,ED(B $B7r0l(B (Kenichi OKADA) <okada@opaopa.org>
+
+	* ChangeLog $B$+$iM>J,$J(B Tab/Space $B$r:o=|!#(B
+	* wl-vars.el $B$N(B typo $B=$@5!#(B
+	* wl-ja.texi: wl-folder-{prefetch|mark-as-read-all}-current-entity
+	$B$N@bL@$rDI2C!#(B
+
+1999-08-03  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* $B%-%e!<$KN/$C$?%a%C%;!<%8$NAw?.;~$K%(%i!<$,H/@8$7$F$b%-%e!<$+$i(B
+	$B>C$($F$7$^$&$N$r=$@5!#(B
+	(Mikio Nakajima <minakaji@osaka.email.ne.jp> $B$5$s$N8f;XE&(B)
+	* mmelmo-imap4.el: mime-goto-header-start-point,
+	mime-goto-header-end-point, mime-entity-header-buffer,
+	mime-entity-body-buffer $B$r<BAu!#(B
+	(Taiji.Can@atesoft.advantest.co.jp $B$5$s$N8f;XE&(B)
+	* smtp.el: $B;n$7$K?75,%*%W%7%g%s(B smtp-notify-success $B$r$D$1$F$_$?!#(B
+	* wl-mime.el: pertial $B$N%^!<%8$K<:GT$9$k>l9g$,$"$k$N$r=$@5!#(B
+	(Shuichi Nishioka <shu@gohome.org> $B$5$s$N8f;XE&(B)
+	* reedit $B;~$K%^%k%A%Q!<%H$N%a%C%;!<%8$r:FJT=8$G$-$J$/$J$C$F$$$?$N(B
+	$B$r=$@5!#(B
+	* $B0l;~%^!<%/$N=hM}$r(B unwind-protect $B$G0O$^$J$$$h$&$K$7!"(B
+	$B%5%^%jC&=P;~$K0l;~%^!<%/$N=hM}$r(B C-g $B$GCfCG$G$-$k$h$&$K$7$?!#(B
+	(Mito <mit@nines.nec.co.jp> $B$5$s!"(B
+	Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s(B,
+	Taiji.Can@atesoft.advantest.co.jp $B$5$s$i$N8f;XE&8f=u8@$K4p$E$/(B)
+
+1999-08-02  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* POP3 $B$N@\B3$,@Z$l$F$7$^$C$?$H$-$K%*%U%i%$%s$X$N%H%0%k$,(B
+	$B$G$-$J$$$N$r=$@5!#(B
+	* wl-ja.texi $B$G(B wl-toggle-plugged $B$,(B wl-draft-toggle-plugged $B$K(B
+	$B$J$C$F$$$?$N$r=$@5!#(B
+
+1999-08-01  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* XEmacs $B$N(B configure $B$K(B --with-database=berkdb $B%*%W%7%g%s$rIU$1(B
+	$B$F%3%s%Q%$%k$7$F$$$k>l9g!"(Belmo-use-database
+	$B$r(B non-nil $B$K%;%C%H$7$F$b(B elmo-database.el $B$,(B load $B$5$l$F$J$$$N$r(B
+	$B=$@5!#(B
+
+1999-07-30  Mito <mit@nines.nec.co.jp>
+
+	* Summary $B$N(B (window-height) $B$,>.$5$$;~!"(BSPC $B$G%(%i!<$,=P$k$N$r=$@5!#(B
+
+1999-07-29  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* (localdir, maildir, localnews, archive) ->
+	 (localdir, localnews, archive) $B$H$$$&%3%T!<$d0\F0$OD>@\(B link(copy)
+	$B$9$k$h$&$K$7$?!#(B
+	* wl-summary-pick $B$K$*$$$F!$F1$8(B Message-ID $B$G$"$kJ#?t$N%a%C%;!<(B
+	  $B%8$K%^%C%A$7$F$b(B1$B$DL\$K$7$+(Btemp$B%^!<%/$,IU$+$J$$$N$r=$@5$7$?!#(B
+	* Followup-To: poster $B$KBP1~$7$?!#(B
+	* Superseds $B%a%C%;!<%8$r:n@.$9$k%3%^%s%I(B
+	 wl-summary-supersedes-message $B$r?75,:n@.$7$?!#(B
+	* wl-util.el (wl-string): Use set-text-properties instead of
+	  format.
+
+1999-07-28  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* $B@h$N(B elmo-multiple-field-body $B$N=$@5$G<+J,$,=P$7$?%a!<%k$K(B
+	  reply $B$G$-$J$/$J$C$F$$$?$N$r=$@5!#(B
+
+1999-07-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* New function: elmo-multiple-field-body and
+	  elmo-multiple-fields-body-list. $BF1L>$NJ#?t$N%U%#!<%k%I$r<hF@$9(B
+	  $B$k$h$&$K$7$?!#(B
+
+1999-07-26  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-localnews-copy-msgs $B$,L$Dj5A$K$b4X$o$i$:8F$P$l$k$N$r=$@5!#(B
+
+1999-07-24  HAYAKAWA akio <akio-h@po.iijnet.or.jp>
+
+	*  wl-(un)plugged-hook $B$rDj5A$9$k$H%(%i!<$K$J$C$F$7$^$&$N$r=$@5!#(B
+
+1999-07-23  $B2,ED(B $B7r0l(B (Kenichi OKADA) <okada@opaopa.org>
+
+	* "W"$B$G%I%i%U%H$r:n@.$7$?$H$-$K(B wl-mail-setup-hook $B$,8F$P$l$J$$(B
+	  $B$N$r=$@5!#(B
+
+1999-07-22  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* wl-summary-cancel-message $B$r(B Sticky Summary $B$KBP1~$5$;$?!#(B
+
+1999-07-16  Teruki SHIGITANI <shigi@tel.ts.fujitsu.co.jp>
+
+	* sample.dot.wl$BFb$K!"Aw?.$7$?%a%C%;!<%8$N$H$-$O:9=P?M$NBe$o$j$K(BTo$B$d(B
+	  Newsgroups$B$rI=<($9$k5!G=$r<B8=$9$k%3!<%I$G!"(BTo $B$,(B
+	  mime-encode$B$5$l$?$^$^$K$J$C$F$7$^$&IT6q9g$r=$@5!#(B
+
+1999-07-15  Masahiro Murata  <muse@ba2.so-net.ne.jp>
+
+	* Fix: void-function wl-summary-rescore-msgs.
+
+1999-07-15  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* elmo-imap4 $B$b(B Emacs20 $B$N(B multibyte $B$N@_Dj$,$*$+$7$/$F(B
+	$BJ8;z2=$1$7$F$$$?$N$r=$@5!#(B
+	* 2.1.2 - "Rico Suave"
+
+1999-07-14  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Summary $B$G$N(B "I" $B$b(B prefix-arg $B$D$-$J$i%A%'%C%/$r%9%-%C%W$9$k(B
+	$B$h$&$K$7$?!#(B
+	* elmo-nntp $B$G(B Emacs20 $B$N(B multibyte $B$N@_Dj$,$*$+$7$/$F(B
+	$BJ8;z2=$1$7$F$$$?$N$r=$@5!#(B
+	* 'u' $B$N%a%C%;!<%8$rFI$^$J$+$C$?$3$H$K$G$-$J$+$C$?$N$r=$@5!#(B
+	* XEmacs $B$G$$$-$J$j(B wl-draft $B$r<B9T$9$k$H%(%i!<$,H/@8$r=$@5!#(B
+	  (Taiji.Can@atesoft.advantest.co.jp $B$5$s$h$j8f;XE&(B)
+	* $B0lIt$G(B wl-summary-highlight $B$,L5;k$5$l$F$$$?$N$r=$@5!#(B
+	* $B%U%)%k%@$N%0%k!<%W$+$i(B "I" $B$7$?$H$-$K9g7W$rI=<($9$k$h$&$K$7$?!#(B
+	* $B%W%j%U%'%C%A$9$k$H%5%^%j$,(B modified $B$K$J$C$F$7$^$&$N$r=$@5!#(B
+	* $B%U%)%k%@$+$i(B "U" $B$N%a%C%;!<%8$r(B "I" $B$G$-$J$$$N$r=$@5!#(B
+	  (susumu-w@ops.dti.ne.jp $B$5$s$h$j8fJs9p(B)
+
+1999-07-14  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-score: (wl-score-simplify-subject)
+	wl-summary-subject-func $B$r8F$VBe$o$j$K(B
+	wl-score-simplify-fuzzy-regexp $B$r;HMQ$9$k$h$&$K$7$?!#(B
+	* $B%P%C%U%!%-%c%C%7%e5!G=$GF1$8%-%c%C%7%e%P%C%U%!$,J#?t$G$-$k$N$r(B
+	  $B=$@5$7$?!#(B
+
+1999-07-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* delete-if -> elmo-delete-if$B!#(B
+
+1999-07-13  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* 'I' $B$G!"%5%$%:$,Bg$-$/$F%W%j%U%'%C%A$r%9%-%C%W$7$F$b(B
+	  $B%W%j%U%'%C%A$7$??t$K4^$^$l$F$7$^$&$N$r=$@5!#(B
+	  (susumu-w@ops.dti.ne.jp $B$5$s$h$j8fJs9p(B)
+	* 2.1.1 - "Praying For Time"
+
+1999-07-12  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* wl-draft-insert-signature -> $BGQ;_!#(B
+	* wl-summary-prefetch-all-new -> $B:o=|!#(B
+	* C-g $B$G%Q%9%o!<%IF~NO$rCfCG$9$k$H(B wrong-type-argument databasep nil
+	  $B$,=P$k$3$H$,$"$k$N$r=$@5(B($B$7$?$D$b$j(B)$B!#(B
+	  ("MATSUBAYASHI 'Shaolin' Kohji" <shaolin@rins.st.ryukoku.ac.jp>
+	   $B$5$s$N8fJs9p$K4p$E$/(B)
+	* $B?75,JQ?t(B wl-summary-incorporate-marks$B!#(B
+	 'I' $B$G%W%j%U%'%C%A$9$k%^!<%/$r;XDj!#%G%U%)%k%H$O!"(B"N" $B$H(B "U"$B!#(B
+	* elmo-nntp.el $B$H(B mmelmo.el $B$+$i(B (elmo-set-buffer-multibyte nil)
+	  $B$r:o=|(B (Shigeru OKUMURA <sokumura@jaist.ac.jp> $B$5$s$N8f=u8@(B)$B!#(B
+	* wl-mule.el $B$K(B make-face $B$,Dj5A$5$l$F$$$J$$$H$-$K%@%_!<4X?t$rDj5A!#(B
+	  (HAYAKAWA akio <akio-h@po.iijnet.or.jp> $B$5$s!"(B
+	   OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp> $B$5$s$N(B
+	   $B8f=u8@$K4p$E$/(B)
+	* pop3 $B%U%)%k%@$,(B unplugged $B$G%(%i!<$rH/@8$9$k$N$r=$@5(B($B$7$?$D$b$j(B)$B!#(B
+	  (HAYAKAWA akio <akio-h@po.iijnet.or.jp> $B$5$s$N8f;XE&(B)
+
+1999-07-12  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-msgdb-extra-fields $B$,(B nil $B$N$H$-!$(Bfetch $B$,<:GT$9$k$N$r=$(B
+	  $B@5$7$?!#(B
+
+1999-07-11  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* elmo-crosspost-message-alist $B$r%U%!%$%k$KJ]B8$9$k$h$&$K$7$?!#(B
+	* $BJQ?tCM$rJ]B8$9$k:]$O!$$J$k$Y$/(B elmo-object-load $B$H(B
+	  elmo-object-save $B$r;HMQ$9$k$h$&$KJQ99$7$?!#(B
+	* Scoring $B5!G=$G(B wl-summary-rescan $B$d(B sync-all $B;~$K$O(B references
+	  $B$d(B thread $B$N%(%s%H%j$r<+F0DI2C$7$J$$$h$&$K$7$?!#(B
+	* imap4 $B%U%)%k%@$G(B extra $B%U%#!<%k%I$,<hF@$G$-$k$h$&$K$7$?!#(B
+
+1999-07-10  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* localnews $B$G$b(B 'W' $B$G(B Newsgrops $B$rJd40$7$F%I%i%U%H$r:n@.$G$-$k$h$&(B
+	  $B$K$7$?!#(B
+
+1999-07-08  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Nemacs $B$G(B internal("'mark") $B$,FI$a$J$+$C$?$N$r=$@5!#(B
+
+1999-07-07  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* wl-summary-mark-below $B$N(Bcustom$B$N%0%k!<%W$r(B 'wl-score $B$K=$@5!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp> $B$5$s$N8f;XE&(B)
+	* wl-summary-incorporate $B$G!"(Bwl-summary-prefetch-all-new $B$N$+$o$j$K(B
+	(wl-summary-prefetch-region (point-min) (point-max))
+	$B$r;H$&$h$&$K$7$?!#(B
+	(Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp> $B$5$s$N8f=u8@(B)
+	* Summary $B$N(B C-u . $B$,8z$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	(Hideo Matsumoto <hideo-m@nerv.org> $B$5$s$h$j8f;XE&(B)
+
+1999-07-06 sen_ml@eccosys.com
+
+	* rfc2368.el - version 0.3
+
+1999-07-06  Hideo Matsumoto <hideo-m@nerv.org>
+
+	* $B?75,JQ?t(B wl-draft-use-frame$B!#(B
+	draft$B$r3+$/$H$-$K?7$7$$(Bframe$B$r3+$/!#(B
+
+1999-07-06  Masahiro MURATA ($BB<EDA442(B)  <muse@ba2.so-net.ne.jp>
+
+	* $B4X?t(B wl-day-number $B$N(B mapcar $B$K$"$k(B lambda $B$r(B quote$B!#(B
+	* wl-score.el: wl-summary-{increase|lower}-score $B$G(B Subject $B$N%^%C(B
+	  $B%AJ8;zNs$r4JN,2=$9$k$h$&$K$7$?!#(B
+	  wl-current-score-file $B$H(B wl-score-alist $B$r(B buffer-local $B$K$7$?!#(B
+	* wl-summary.el: wl-summary-scored $B$r(B nil $B$K$9$k0LCV$rJQ99$7$?!#(B
+	* Rename:
+	  wl-score-simplify-subject-fuzzy-regexp ->
+	  wl-score-simplify-fuzzy-regexp
+	  wl-score-simplify-buffer-fuzzy-step -> elmo-buffer-replace.
+	* wl-ja.texi: $B%9%3%"5!G=$NJQ99!#(B
+	* wl-draft.el: autoload $B@_Dj$NDI2C!#(B
+	* sample.dot.wl: wl-summary-next-no-unread$B$N:o=|!#(Bscore$B5!G=$N@_(B
+	  $BDjDI2C!#(B
+
+1999-07-06  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* Summary $B$N(B C-u . $B$,8z$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	  (Hideo Matsumoto <hideo-m@nerv.org> $B$5$s$h$j8f;XE&(B)
+	* Nemacs $B$G$O(B wl-summary-{print|remove}-destination $B$r(B
+	$B%@%_!<4X?t$K$9$k!#(B
+	* Nemacs $BMQ$K(B rassoc $B$rDj5A!#(B
+	* Nemacs $B$N(B Folder $B%b!<%I$G(B 'm' $B$r2!$9$H%(%i!<$K$J$k$N$r=$@5!#(B
+	* Nemacs $B$G$O(B wl-use-scoring $B$N(B default $B$r(B nil $B$K$7$?!#(B
+	* $B?75,4X?t(B elmo-delete-if$B!#(Breplacement of delete-if$B!#(B
+	* Nemacs $B$G%P%$%H%3%s%Q%$%k$9$k$H$J$<$+(B (defvar nil nil) $B$N%(%i!<(B
+	  $B$,=P$k$N$r=$@5!#(B
+	  (Taiji.Can@atesoft.advantest.co.jp $B$5$s$h$j8f;XE&(B)
+	* 2.1.0 - "Ordinary World"
+
+1999-07-05  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* partial $B$r%^!<%8$G$-$J$+$C$?$N$r=$@5!#(B
+	  (Taiji.Can@atesoft.advantest.co.jp $B$5$s$h$j8f;XE&(B)
+	* wl-summary-rescore $B$b(B wl-summary-rescore-partial-threshold $B$K=>$&(B
+	  $B$h$&$K$7$F$_$?!#(B
+	* wl-summary-score-update-all-lines $B$N=hM}Cf%a%C%;!<%8$r=P$9$h$&$K(B
+	  $B$7$?!#(B
+
+1999-07-04  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-score.el: date, extra, followup, thread $B%-!<$rDI2C$7$?!#(B
+	* `wl-score-default-file-name' $B$G;XDj$5$l$?%9%3%"%U%!%$%k$rI,$:FI$_(B
+	$B9~$`$h$&$K$7$?!#(B
+	* $B%5%^%j%P%C%U%!!$$*$h$S%9%3%"JT=8%P%C%U%!$G%9%3%"%U%!%$%k$r:n@.$9$k(B
+	$B5!G=$rDI2C$7$?!#(B
+	* wl-vars.el: defcustom $B$r@0M}$7$?!#(B
+	* wl-highlight.el: defface $B$K%0%k!<%W$rDI2C$7$?!#(B
+
+1999-07-01  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* $B?75,(B sync $B%l%s%8(B rescan-noscore$B!#%9%3%"$rH?1G$;$:I=<($7$J$*$9!#(B
+	* rescan/sync-all $B$G$O4{FI%a%C%;!<%8$G$b(B score $B$rH?1G$9$k$h$&$K$7$?!#(B
+	* $B?75,JQ?t(B wl-summary-rescore-partial-threshold$B!#(Brescan, sync-all $B$G(B
+	  $B%9%3%"IU$1$9$k%a%C%;!<%8?t$N>e8B$r;XDj!#(B
+	* wl-edit-again-func->wl-edit-decode-message-func
+	(tomo@etl.go.jp ($B<i2,(B $BCNI'(B / MORIOKA Tomohiko) $B$5$s$N8f=u8@(B)
+	* elmo-util.el $B$+$iF|K\8l%3%a%s%H$r>C$9!#(B
+	* wl-refile-alist-setup $B$N<BAu$rJQ99!#(B
+
+1999-06-29  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-refile-(msgid-)learn $B$d(B, wl-refile-guess-* $B$NCf$G(B,
+	  $BKh2s(B wl-refile-(msgid-)alist $B$,(B load $B$5$l$F$k$+$I$&$+D4$Y$k$N$O(B
+	  $BL5BL$J$N$G5/F0;~$KI,$:(B load $B$9$k$h$&$K$7$?!#(B
+	* wl-refile-(msgid-)learn $B$,0lEY8F$P$l$kKh$K(B wl-refile-alist-save
+	  $B$9$k$N$O(B, $BL5BL$J$N$G(B WL $B=*N;;~$K0l2s$@$1(B save $B$9$k$h$&$K(B
+	  $B$7$?!#(B
+	* wl-refile-(msgid-)learn $B$NJV$jCM$rJQ99!#(B
+
+1999-06-29  Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+	* cl $B$N(B require $B$r(B eval-when-compile $B$G3g$j!"=gHV$rJQ$($k!#(B
+
+1999-06-29  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* unread $B$,(B 0 $B$N;~(B [Space] $B$G%5%^%j$+$iH4$1$i$l$J$+$C$?$N$r=$@5!#(B
+	* cl.el $B$N(B member () $B$,(B poe-18.el $B$N(B member () $B$r>e=q$-$7$F$7$^$&(B
+	  $B$N$r=$@5!#(B
+
+1999-06-29  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* AIR MAIL(AIRCimapd release 2.00) $B$KBP1~!#(B
+	(Sasaki Toshiya <toshi@unicorn.tohoku.nttcom.co.jp> $B$5$s$N8fJs9p(B
+	 $B$K4p$E$/(B)
+
+1999-06-29  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* wl-score $B$G$N(B expunge $B$r!VFI$s$@$3$H$K$7$F!"(B
+	  $B%5%^%j%P%C%U%!$+$i>C$9$@$1!W$H$7$?!#(B
+	* update $B;~$K(B expunge $B$7$?$3$H$rJs9p!#(B
+
+1999-06-28  Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+	* elmo-pop3.el $B$G(B md5-encode $B$r;H$o$J$$$h$&$K$7$?!#(B
+
+1999-06-28  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* MK-MK:
+	(mapcar (lambda ..)) $B$,(B v18 $B$G$OF0$+$J$$$N$G(B quote $B$9$k!#(B
+	Nemacs $B$G$b(B wl-mule.elc $B$,%$%s%9%H!<%k$5$l$k$3$H$K$J$C$F$?$N$r(B
+	$B=$@5!#(B
+	defgroup(), defcustom() $BLdBj2sHr%3!<%I$rI|3h!#(B
+	* wl-summary.el, wl-demo.el:
+	float $B$,;H$($J$$0lIt$N(B Emacsen $B$G$N%(%i!<2sHr!#(B
+	* wl-nemacs.el:
+	completing-read() $B$O0z?t$r8^$D$^$G$7$+<uIU$1$J$$$N$G4X?t$rCV49(B
+	$B!J6K0-!K!#(B
+	read-char-exclusive() $B$,B8:_$7$J$$>l9g$K%(%i!<$K$J$i$J$$$h$&$K(B
+	$B$9$k!#(B
+
+1999-06-28  Masahiro MURATA ($BB<EDA442(B)  <muse@ba2.so-net.ne.jp>
+
+	* default-case-fold-search $B$,(B nil $B$N$H$-!$(Bwl-summary-pick $B$,@5>o(B
+	  $B$KF0:n$7$J$$$N$r=$@5$7$?!#(B
+	* important $B%^!<%/$,(B2$B$D0J>e$"$k$H!$(Bwl-auto-select-next $B$,(Bnon-nil
+	  $B$N$H$-$K<!$NL$FI%U%)%k%@$K0\$i$J$$$N$r=$@5$7$?!#(B
+
+1999-06-28  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* $B4X?t(B wl-summary-delete-all-delete-marks () $BDI2C!#(B
+	* (wl-summary-cleanup-temp-marks) $B$,$J$<$+#22s8F$P$l$F$$$?$N$r=$@5!#(B
+	($B:72eED$5$s(B <sagata@nttvdt.hil.ntt.co.jp> $B$N8f;XE&(B)
+
+1999-06-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* folder $B%b!<%I$G(B wl-summary-goto-folder-subr $B$r0l;~E*$K%5%^%j$K0\(B
+	  $BF0$7$?;~$O!$(BScoring $B$5$l$J$$$h$&$K$7$?!#(B
+	* wl-summary-next-no-unread $B$r:o=|$7!$(Bwl-auto-select-next $B$@$1$G@)(B
+	  $B8f$9$k$h$&$K$7$?!#(B
+	* wl-summary-move-order $B$N%G%U%)%k%HCM$r(B 'new $B$+$i(B 'unread $B$KJQ99(B
+	  $B$7$?!#(B
+
+1999-06-27  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* Nemacs $B$G(B  (wrong-type-argument listp 1) $B$,H/@8$9$k$N$r=$@5!#(B
+	* Nemacs $B$,(B timer $B$,$J$/$F%(%i!<$K$J$k$N$r(B condition-case $B$G2sHr!#(B
+
+1999-06-27  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%9%3%"%U%!%$%k$r(B ctext (*ctext) $B$GFI$_=q$-$9$k$h$&$K$7$?!#(B
+
+1999-06-26  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* mailto: $B$HF1MM(B nntp: news: $B$KBP1~$5$;$k4X?t!%(B
+	  (-> wl-utils.el $B$KDI2C!#(B)
+
+1999-06-25  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-score.el: coding-system $B$,%P%0$C$F$$$?$N$r=$@5!#(B
+
+1999-06-25  Masahiro MURATA <muse@ba2.so-net.ne.jp>
+
+	* wl-score.el: $B?75,%U%!%$%k!#(BScore $B5!G=$rDI2C$7$?!#(B
+	* wl-summary.el: (wl-summary-sync-update3)
+	 wl-folder-set-folder-updated $B$N%?%$%_%s%0$rJQ99$7$?!#(B
+	* (wl-summary-update-crosspost) $B%9%l%C%I$r%*!<%W%s$;$:$K4{FI%^!<(B
+	 $B%/$rIU$1$k$h$&$KJQ99$7$?!#(B
+	* wl-util.el: New function `wl-delete-alist'.
+	 New macro `wl-as-coding-system'. Add emulate function `pp'.
+
+1999-06-24  pf21 GOTO_Toshiya <pf21@pure.cpdc.canon.co.jp>
+
+	* [wl-ja.texi] wl-thread-open-reading-thread $B$N@bL@DI2C!#(B
+
+1999-06-24  Kenichi OKADA <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* elmo-cache-expire $B$,%(%i!<$rH/@8$9$k$N$r=$@5!#(B
+
+1999-06-24  sen_ml@eccosys.com
+
+	* utils/rfc2368.el $B$N%P%0=$@5!#(B
+
+1999-06-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 2.0.1 - "Now And Forever"
+	* body $B$K(B --text follows this line-- $B$,$"$k$H$=$N9T0JA0$,$J$/$J$k(B
+	  $B$N$r=$@5(B($BIT40A4(B)$B!#(B
+	  ($B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp> $B$5$s(B
+	   $B$N8f;XE&(B)
+
+1999-06-24  MAKINO Takashi <makino@cyber.office.ne.jp>
+
+	* $B?75,4X?t(B wl-refile-guess-by-msgid$B!#(B
+
+1999-06-23  Akihiro Motoki <mokkun@iname.com>
+
+	* wl $B$r5/F0$7$F$$$J$$>uBV(B $B$+$D(B (setq wl-stay-folder-window t)$B$N>l9g!"(B
+	  wl-draft $B$r9T$&$H!"(Bwl-draft-send-and-exit $B$b(B wl-draft-kill $B$b(B
+	  $B<:GT$9$k$N$r=$@5!#(B
+
+1999-06-23  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* wl-ja.texi: wl-template-alist $B$N@bL@(B: file -> body-file
+
+1999-06-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* Draft $B$G(B prefix $B$D$-$G(B C-c C-y $B$9$k$H%+%C%H%P%C%U%!$+$i(B
+	  $B0zMQ$9$k$h$&$K$7$F$_$?!#(B
+	* elmo-imap4-int-string-to-list -> $BGQ;_!#(B
+	  (Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>$B$5$s$N8f=u8@(B)
+	* $B:G6a$h$/4V0c$($k$N$G(B Summary $B$N(B 'e' $B$r(B wl-summary-save $B$K(B
+	  $B3d$jEv$F$?!#(B
+	* wl-set-string-width $B$+$iITMW$H;W$o$l$k(B let $B$r<h$C$?!#(B
+	* Unplugged$B>uBV$@$H!$(BMH$B%U%)%k%@4V$G$N(Brefile$B$G!$(Belmo-copy-msgs $B$N$"$H$K(B
+	  elmo-append-msg $B$b8F$P$l$k$N$r=$@5!#(B
+	  (Koji IIDA / $BHSED(B $B9@Fs(B <kiida@nttx.co.jp> $B$5$s$h$j8f;XE&(B)
+
+1999-06-22  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* mule/emacs $B$G(B wl-draft-prepared-config-exec $B$,(B
+	  C-c C-d $B$H(B C-c C-e $B$NN>J}$K3d$j$"$F$i$l$F$$$?$N$r=$@5!#(B
+	* wl-completion-buf-name $B$NCM$r(B
+	  emacs $BI8=`$NJd40MQ%P%C%U%!(B *Completions* $B$K9g$o$;$?!#(B
+	* wl-message-buffer-created-hook $B$r@_Dj$7$F$bE,@Z$K(B hook $B$,(B
+	  $B8F$P$l$F$$$J$$$N$r=$@5!#(B
+	  (Akihiro Motoki <mokkun@iname.com> $B$5$s$h$j8f;XE&(B)
+
+1999-06-22  Masahiro MURATA ($BB<EDA442(B)  <muse@ba2.so-net.ne.jp>
+
+	* elmo-nntp.el: XOVER $B$G$N(B size $B$N<hF@$,8m$C$F$$$?$N$r=$@5$7$?!#(B
+	(elmo-nntp-string-to-vector): Renamed from
+	`elmo-nntp-string-to-list'.
+	* elmo-localdir.el: $B%U%!%$%k%5%$%:$r(B file-attributes $B$G<hF@$9$k$h(B
+	$B$&$K$7$?!#(B
+
+1999-06-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* elmo-pop3 $B$N(B max-of-folder $B$r8zN(2=!#(B
+
+1999-06-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* .wl $B$N(B syntax $BEy$N%(%i!<$r$A$c$s$HEG$+$;$k!J%f!<%6$KCN$i$;$k!K(B
+	  $B$h$&$K$7$?!#(B
+	* $B$*$^$1!#(B
+
+1999-06-19  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* (featurep 'tinycustom) $B$J$i(B defface $B$NDj5A$rL5;k$9$k!#(B
+
+1999-06-18  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* nntp $B$NJ8;z2=$1$,$^$@D>$C$F$$$J$+$C$?$N$r=$@5!#(B
+
+1999-06-18  Masahiro MURATA ($BB<EDA442(B)  <muse@ba2.so-net.ne.jp>
+
+	* @ $B$G@5$7$/%"%I%l%9$r(B expand $B$9$k$h$&$K$7$?!#(B
+
+1999-06-16  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* $B?75,JQ?t(B wl-use-dnd$B!#%I%i%C%0%"%s%I%I%m%C%W5!G=$r$D$+$&$+$I$&$+!#(B
+
+1999-06-16  Masahiro MURATA ($BB<EDA442(B)  <muse@ba2.so-net.ne.jp>
+
+	* [elmo-nntp] elmo-list-folder $B$G(B "LISTGROUP" $B%3%^%s%I$r;H$&$h$&(B
+	  $B$K$7$?!#(B
+	* [elmo-nntp] xover $B$N;HMQ2DH]$r%5!<%P$4$H$KJ];}$9$k$h$&$K$7$?!#(B
+
+1999-06-16  Shigeru OKUMURA <sokumura@jaist.ac.jp>
+
+	* Content-Type$B$,(Bsjis$B$d(Beuc$B$@$H(B mail$B$d(Bnews$B$,2=$1$F$7$^$&$N$r=$@5!#(B
+
+1999-06-16  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* [elmo-imap4] cram-md5 $BBP1~!#(B
+
+1999-06-15  Yuuichi Teranishi <teranisi@gohome.org>
+
+	* tm $B$G(B error: Split sender is not specified for `wl-draft-mode'.
+	  $B$H=P$k$N$r=$@5!#(B
+	(Toshihiko Kodama <kodama@ayame.mfd.cs.fujitsu.co.jp> $B$5$s$N8f;XE&(B)
+
+1999-06-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* `wl-draft-enable-queuing' $B$N@bL@$,%@%V$C$F$$$?$N$r=$@5!#(B
+	(Toshihiko Kodama ($B>.6L(B $BMxI'(B) <kodama@ayame.mfd.cs.fujitsu.co.jp>
+	$B$5$s$h$j8f=u8@(B)
+
+1999-06-14  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* wl-detect-info-directory() $B$r$A$g$C$H8-$/$7$F$_$?!#(B
+
+1999-06-13  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B%P%C%U%!%-%c%C%7%e!#(B
+	   $B?75,JQ?t(B elmo-use-buffer-cache $B$,(B non-nil $B$J$i%-%c%C%7%e!#(B
+	  $B%G%U%)%k%H$O(B t$B!#(B
+	 $B0lC6FI$s$@%a%C%;!<%8$r%P%C%U%!$K;D$7$F$*$/5!G=!#(B
+	* $B%a%C%;!<%8$N@hFI$_(B(cache-prefetch)$B!#(B
+	  $B%a%C%;!<%8$rFI$s$G$$$k4V$K<!$N(B($BL$FI(B)$B%a%C%;!<%8$r@hFI$_$7$F(B
+	  $B%P%C%U%!%-%c%C%7%e$K$?$a$F$*$/!#(B
+	  $B?75,JQ?t(B wl-cache-prefetch-folder-type-list $B$K$"$k%U%)%k%@$r(B
+	  $B%-%c%C%7%e$9$k!#%G%U%)%k%H$O(B '(nntp imap4)$B!#(B
+	* $B?75,JQ?t(B elmo-buffer-cache-size$B!#%G%U%)%k%H$O(B 10$B!#(B
+	* $B?75,JQ?t(B wl-cache-prefetch-folder-list$B!#%G%U%)%k%H$O(B nil$B!#(B
+	* $B?75,JQ?t(B wl-summary-no-mime-folder-list$B!#%G%U%)%k%H$O(B
+	  '("^\\+draft$")$B!#(Bmime$B2r@O$;$:$KI=<($9$k%U%)%k%@$N@_Dj!#(B
+
+1999-06-13  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* WL-MK:
+	  info $B@8@.;~$N(B codesys $B$N7hDj$O(B wl-vars.el $B$rMxMQ$9$k!#(B
+	  info $B$NJ,3d%*%W%7%g%s$rGQ;_!#(B
+	  info $B$N%$%s%9%H!<%k;~$K$OJ#<L$G$O$J$/0\F0$9$k!#(B
+
+1999-06-13 Sen Nagata <sen@eccosys.com>
+
+	* $B?75,%U%!%$%k(B utils/wl-use-agent.el, utils/rfc2368.el
+
+1999-06-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mmelmo-imap4-get-mime-entity$B$NCf$N(B
+	  elmo-imap4-get-connection$B$N0z?t$,>/$J$+$C$?$N$r=$@5!#(B
+	  ($B2,ED7r0l$5$s(B<kokada@tamaru.kuee.kyoto-u.ac.jp>$B$N8f=u8@(B)
+	* 2.0.0 - "Mmmbop"
+	* wl-summary-partial-highlight-above-lines $B$,(B nil $B$J$i(B
+	  Summary $B3+;O;~$N%+!<%=%k$N0LCV$K4X78$J$/:G8e$+$i(B
+	  wl-summary-highlight-partial-threshold $B9T$@$1%O%$%i%$%H$9$k(B
+	  $B$h$&$K$7$?!#(B
+	* Sen Nagata <sen@eccosys.com> $B$5$s:n$N(B util/wl-user-agent.el $B$r(B
+	  $B:G?7HG$K99?7!#(B
+	  ($B1|@>$5$s(B <fuji0924@mbox.kyoto-inet.or.jp> $B$h$j8f;XE&(B)
+
+1999-06-10  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* IAMP4$B$H(BNNTP$B$N%"%/%;%9%0%k!<%W$G!$%]!<%HHV9f$,(B
+	  $B%G%U%)%k%H$H0c$&$H%(%i!<$,=P$k$N$r=$@5!#(B
+
+1999-06-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B%U%!%$%kL>JQ99(B
+	  ChangeLog.en -> ChangeLog
+	  ChangeLog -> ChangeLog.ja
+	* [wl-ja.texi] wl-plugged $B$N@bL@$rDI2C!#(B
+	  ($BCSED$5$s(B <daisuke@cc.kyushu-u.ac.jp> $B$h$j8f=u8@(B)
+
+1999-06-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* $B?75,JQ?t(B elmo-default-pop3-ssl elmo-default-nntp-ssl
+	  elmo-default-imap4-ssl$B!#(Bnon-nil $B$J$i(B "!" $B$rIU$1$J$/$F$b(B SSL $B$r;H$&!#(B
+	* $BL>A0JQ99(B
+	  elmo-nntp-port -> elmo-default-nntp-port
+	  elmo-imap4-port -> elmo-default-imap4-port$B!#(B
+	  ($B2,ED$5$s(B <kokada@vlsi.kuee.kyoto-u.ac.jp> $B$N8f=u8@(B)
+	* [elmo] imap4, nntp, pop3 $B$G%U%)%k%@L>$N:G8e$K(B "!" $B$,$D$$$?$i(B SSL $B$r(B
+	  $B;H$&$h$&$K$7$?!#(B
+	* [elmo] imap4, nntp, pop3 $B$G%]!<%H$r;XDj$7$F$J$$%5!<%P$H$N%;%C%7%g%s$H(B
+	  $B%]!<%H$r;XDj$7$?F1$8%5!<%P$H$N%;%C%7%g%s$G%3%M%/%7%g%s$,(B
+	  $B$+$A$"$o$J$$$h$&$K$7$?!#(B
+
+1999-06-09  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* POP $B$G$bJQ?t(B elmo-default-pop3-server $B$r?7@_!"(B"&USER" $B$@$1$G(B
+	  $B$b%"%/%;%9$G$-$k$h$&$K$7$?!#(B
+	* mmelmo-imap4.el $B$K%]!<%HHV9f;XDj$N=$@5!#(B
+	* [wl-ja.texi] $B=$@5!#(B
+
+1999-06-08  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* IMAP4 $B%U%)%k%@$G(B port $BHV9f$r;XDj$G$-$k$h$&$K$7$?!#(B
+
+1999-06-07  Akihiro Motoki <motoki@ptl.abk.nec.co.jp>
+
+	* $B%a!<%k$N=g=x$,(B $B:o=|A0$N%U%)%k%@$H(B trash$B%U%)%k%@$G5U$K$J$C$F$7$^$&(B
+	  $B$N$r=$@5!#(B
+	* wl-summary-pick $B$G(B field-name $B$H$7$F(B elmo-msgdb-extra-fields $B$r;XDj(B
+	  $B$G$-$k$h$&$K$7$?!#(B
+
+1999-06-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary-jump-to-parent-message() $B$O!"%9%l%C%I$HF1MM(B
+	  In-Reply-To $B$rM%@h$9$k!#(B
+	  ($B:72eED$5$s(B <sagata@nttvdt.hil.ntt.co.jp> $B$N8f;XE&(B)
+	* From $B$,(B wl-from $B$K%^%C%A$9$k%a%C%;!<%8$KJV;v$r=q$/$H$-$O!"(B
+	  To, Cc, Newsgroups $B$rJ]B8$9$k!#(B
+	  ($BDEM8$5$s(B <tsumura@kuis.kyoto-u.ac.jp> $B$N8f=u8@(B)
+
+1999-06-06  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* sticky$B%5%^%j$KBP$7$F!$(Bwl-folder-mark-as-read-all-entity,
+	  wl-folder-sync-entity, wl-folder-prefetch-entity $B$r<B9T$9$k$H!$(B
+	  $BL$FI%a%C%;!<%8$J$I$K(B highlight $B$,$D$+$J$$$N$r=$@5$7$?!#(B
+
+1999-06-05  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* wl-folder-no-auto-check-folder-p $B$G(B wl-auto-check-folder-list $B$r(B
+	  $BM%@h$5$;$k$h$&$K$7$?!#(B
+	* wl-summary-switch-to-clone-buffer $B$G(B
+	  wl-summary-buffer-new-count $B$H(B wl-summary-buffer-unread-count $B$,(B
+	  $B%3%T!<$5$l$J$$$N$r=$@5$7$?!#(B
+	* wl-folder-empty-trash $B$G%5%^%j%P%C%U%!$,I=<($5$l$J$$$N$r=$@5$7$?!#(B
+	* bbdb2 $B$G(B bbdb-wl.el $B$r%3%s%Q%$%k$9$k;~$N(Bwarning$B$r$J$/$7$?!#(B
+	* interactive $B$r(B nil $B$K$7$F(B wl-summary-goto-folder-subr $B$7$?:]!$(B
+	  recenter $B$G%(%i!<$,=P$k$3$H$,$"$k$N$r=$@5$7$?!#(B
+	* bbdb2 $B$G(B bbdb-wl.el $B$r%3%s%Q%$%k$9$k;~$N(Bwarning$B$r$J$/$7$?!#(B
+	* wl-folder-suspend-hook $B$rDI2C$7$?!#(B
+
+1999-06-06  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* "V" $B$G2>A[%U%)%k%@$r:n@.$9$k$H%5%^%j$,I=<($5$l$:!"(Bsync update
+	  $B$7$J$1$l$P$J$i$J$$!#$^$?!"99$K(B "V" $B$7$F$+$i(B "C-u V" $B$G85$N2>A[(B
+	  $B%U%)%k%@$KLa$k$H:F$S%5%^%j$,I=<($5$l$J$/$J$C$F$7$^$&!#(B
+
+1999-06-04  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* font-lock $B$K$h$kJ@32$rHr$1$k$?$a!"(Bwl-draft-reedit() $B$G$b(B
+	  change-major-mode-hook $B$r(B nil $B$KB+G{$9$k!#(B
+	* wl-message-refer-article-or-url() $B$r<B9T$7$?:]!"%5%^%j$N%+!<(B
+	  $B%=%k$,Ev3:%a%C%;!<%8$K0\F0$7$J$$%P%0$r=$@5!#(B
+
+1999-06-03  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* sticky $B%5%^%j$+$i0\F0$9$k:]!$(Btemp-mark $B$,$D$$$F$$$k$H$=$N(B
+	  $B%^!<%/$O>C$($F$b(B highlight $B$,;D$C$?$^$^$K$J$k$N$r=$@5$7$?!#(B
+	* wl-summary-buffer-copy-list $B$,(B buffer-local-variables $B$K$J$C$F(B
+	  $B$$$J$+$C$?$N$r=$@5$7$?!#(B
+	* $B%5%^%j$N0\F0;~$K(B interactive $B$G$J$$>l9g$O(B switch-to-buffer $B$G(B
+	  $B$O$J$/!$(Bset-buffer $B$9$k$h$&$K$7$?!#(B
+
+1999-06-03  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	*  $B4X?t(B elmo-imap4-identical-name-space-p $B$r<BAu$9$k$N$rK:$l$F$$$?!#(B
+	   ($B?9;3$5$s(B <taka@airlab.cs.ritsumei.ac.jp> $B$N8f;XE&(B)
+	* [mmelmo.el, mmelmo-imap4.el] FLIM 1.13 API $B$KBP1~!#(B
+
+1999-06-03  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* sticky summary$B$r;H$&$H!"(Bdraft$B=*N;8e!"JL$N(Bsummary$B$KLa$k;v$,$"$k!#(B
+	* menu $B$K(B mR $B$H(B mf$B$,Fs$D$E$D$"$C$?$N$r=$@5!#(B
+	* wl-summary-jump-to-current-message $B$,$A$g$C$HJQ$@$C$?$N$r=$@5!#(B
+
+1999-06-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* XEmacs package $B$G$b(B BBDB $B$,B8:_$9$l$P(B utils/bbdb-wl.el $B$b(B
+	  bytecomp/install $B$9$k!#(B
+	* $B?75,JQ?t(B wl-summary-keep-cursor-command$B!#(B
+	  $B%3%^%s%I$4$H$K%+!<%=%k0LCV$r$=$N$^$^$K$9$k$+$I$&$+$r@_Dj$G$-$k(B
+	  $B$h$&$K$7$?!#(B
+
+1999-06-02  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* BBDB $B$,B8:_$9$l$P(B utils/bbdb-wl.el $B$b(B bytecomp/install $B$9$k!#(B
+
+1999-06-02  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* elmo-pop3$B$N%P%$%H%3%s%Q%$%k;~$N%r!<%K%s%0$r$H$k!#(B
+	* [WL-MK] $B0lEY!$(Bmake$B$7$F(Belc$B$r:n$C$?8e$K!$(Belmo-*.el$B$rJQ99$7$F!$(B
+	  $B$b$&0lEY(Bmake$B$9$k$H!$%(%i!<$K$J$k$N$r=$@5!#(B
+
+1999-06-02  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* sticky $B%5%^%j$G$N(B update $B;~$K!$?75,%a%C%;!<%8$,(B highlight $B$5$l$J$/(B
+	  $B$J$C$?$N$r=$@5$7$?!#(B
+
+1999-06-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.0.1 $B$+$iJ,4t!#(B
+
+1999-06-01  Masahiro MURATA ($BB<EDA442(B) <muse@ba2.so-net.ne.jp>
+
+	* $B0\F0@h$N%P%C%U%!$,4{$KB8:_$7$F$$$?>l9g$NF0:n$rJQ99$7!"(B
+	  'g' $B$G8F$P$l$?>l9g$O(B update $B$;$:$K%+!<%=%k0LCV$rJ];}$9$k$h$&$K$7$?!#(B
+	* 'g' $B$G0\F0$9$k:]!$(Bwl-ask-range($B?75,JQ?t(B) $B$,(B nil $B$J$i!$(B
+	  wl-folder-sync-range-alist $B$NCM$r;HMQ$9$k$h$&$K$7$?!#(B
+	* wl-summary-read-folder $B$GF~NO$7$?%U%)%k%@L>$N$_$NMzNr$r(B
+	  wl-read-folder-hist $B$K5-O?$9$k$h$&$K$7$?!#(B
+	* $B8r8_$K%5%^%j$r@Z$jBX$($k?75,%3%^%s%I!"(B
+	  wl-summary-goto-last-visited-folder$B!#(B($B%-!<%P%$%s%I$K$OL$3d$jEv$F(B)
+
+1999-06-01  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* 1.0.1 - "The Look"
+	* wl-ja.info $B$r%Q%C%1!<%8$+$i:o=|!#(B
+
+1999-06-01  Sen Nagata <sen@eccosys.com>
+
+	* compose-mail $B$N%$%s%?!<%U%'!<%9$r%5%]!<%H!#(B
+	  ($B?75,%U%!%$%k(B wl-user-agent.el $B$rDI2C(B)
+
+1999-05-31  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* wl-stay-folder-window $B$,(B non-nil $B$N$H$-!"(Bfull window $B$G(B
+	  draft $B$r:n@.$7$?8e!"(B C-cC-k $B$d(B C-cC-c $B$G!"(Bdraft $B$r=*N;$7$F(B
+	  summary mode $B$KLa$C$?;~$K!"(Bfolder window $B$,>C$($F$7$^$o$J$$(B
+	  $B$h$&$K$7$?!#(B
+
+1999-05-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* folder $B%b!<%I$J$I$+$i%U%)%k%@0\F0$9$k$H$-!"(B
+	  wl-folder-sync-range-alist $B$NCM$rH?1G$9$k$h$&$K$7$?!#(B
+	  ($B?@V:$5$s(B <mag00573@nifty.ne.jp> $B$N8f=u8@(B)
+	* wl-draft-reply-buffer-style $B$,(B 'full $B$N$H$-!"(Bmulti-reply/forward
+	  $B$,%(%i!<$K$J$k$N$r=$@5!#(B
+	  ($B:72eED$5$s(B <sagata@nttvdt.hil.ntt.co.jp> $B$N8f;XE&(B)
+	* sticky summary $B$K0\F0$7$?$H$-$O(B msgdb $B$r%m!<%I$7$J$$$h$&$K$7$?!#(B
+	  ($BB<ED$5$s(B <muse@ba2.so-net.ne.jp> $B$N8f=u8@(B)
+	* wl-summary-exit $B$,L5BL$K%;!<%V$7$F$7$^$&$N$r=$@5!#(B
+
+
+1999-05-29  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* [wl-mime.el, tm-wl.el]
+	  (tm-)wl-mime-combine-message/partial-pieces() $B$G(B
+	  regexp $B$,(B regexp-quote() $B$5$l$F$J$+$C$?$N$r=$@5!#(B
+
+1999-05-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-localdir-search $B$r$3$3$m$b$A9bB.2=!#(B
+
+1999-05-26  Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+	* elmo-archive-search $B$r$3$3$m$b$A9bB.2=!#(B
+
+1999-05-25  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* $B08@h$,(B localdir, localnews $B$N;~$G$b(B elmo-move-msgs() $B$r9bB.(B
+	  $B2=$7$?!#$J$*!"(Bprocmail $B$J$I$N(B MDA $B$r;H$C$F$$$k>l9g!"JQ?t(B
+	  `elmo-localdir-lockfile-list'$B!J=i4|CM$O(B nil$B!K$K(B MDA $B$,@8@.$9(B
+	  $B$k%m%C%/%U%!%$%kL>$r;XDj$9$k!#(B
+	* $B$$$/$D$+$N4X?t$r$3$3$m$b$A9bB.2=(B
+
+1999-05-24  $B2,ED(B $B7r0l(B (Kenichi OKADA) <kokada@vlsi.kuee.kyoto-u.ac.jp>
+
+	* POP3 $B$r(B SSL $B$KBP1~$5$;$?!#(B
+	* elmo-pop3-get-spec$B$G(B port $B$,(B string $B$@$C$?$N$r(B int $B$K$7$?!#(B
+	* elmo-default-pop3-port,elmo-default-pop3-authenticate-type$B$r(B
+	  $BH?1G$7$F$$$J$+$C$?$N$r=$@5!#(B
+
+1999-05-24  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* customize $B$G4v$D$+(B `mismatch' $B$,=P$F$$$?$N$r=$@5!#(B
+
+1999-05-21  OKUNISHI -GTO- Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+
+	* WL-ELS $B$r(B WL-MK $B$K2~L>!#(B
+	* make install $B$G(B Emacs $B$,#22s5/F0$5$l$J$$$h$&$K$9$k!#(B
+
+1999-05-20  Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* wl-exit () $BCf$N(B delete-other-windows () $B$r:o=|!#(B
+	* wl-summary-force-exit $B$r(B interactive $B$K$9$k$N$rK:$l$F$$$?!#(B
+	($B@P@n$5$s(B Ishikawa Ichiro <ichiro@mail.ne.jp> $B$N8f;XE&(B)
+
+1999-05-20 Hidetoshi Shimokawa <simokawa@sat.t.u-tokyo.ac.jp>
+
+	* device-class $B$,(B color $B$N(B tty $B$N$H$-$NIT6q9g$r=$@5!#(B
+
+1999-05-20  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* highlight$B$r(Bcustom$B$KBP1~$7$?(B.
+	* $B%O%$%i%$%HJQ?t$N(Binfo$B$rDI2C$7$?(B.
+
+1999-05-19  "A. SAGATA" <sagata@nttvdt.hil.ntt.co.jp>
+
+	* wl-highlight-signature-separator $B$rDI2C!#(B
+
+1999-05-19  TSUMURA Tomoaki <tsumura@kuis.kyoto-u.ac.jp>
+
+	* wl-summary-jump-to-message-by-message-id () $B$,(B
+	  $B%9%l%C%I$,JD$8$?>uBV$G1#$l$F$$$k%a%C%;!<%8$KHt$P$J$$$N$r=$@5!#(B
+
+1999-05-19  Yuuichi Teranishi  <teranisi@wanderlust.dq.isl.ntt.co.jp>
+
+	* wl-summary-msgdb-load-async () $B$r=$@5!#(B
+	* $B%U%)%k%@0\F0;~$N%P%C%U%!@ZBX$($N%?%$%_%s%0$rJQ99!#(B
+	* wl-summary-mark-as-read-all $B$,!$%9%l%C%I$,JD$8$?>uBV$G1#$l$F(B
+	  $B$$$k%a%C%;!<%8$KBP$7$F8z$+$J$/$J$C$F$$$?$N$r=$@5!#(B
+	  ($BBg_7$5$s(B <ohsawa@mxq.mesh.ne.jp> $B$N8f;XE&(B)
+
diff --git a/etc/icons/archive.xpm b/etc/icons/archive.xpm
new file mode 100644
index 0000000..6b645b9
--- /dev/null
+++ b/etc/icons/archive.xpm
@@ -0,0 +1,28 @@
+/* XPM */
+static char * lha_xpm[] = {
+"16 16 9 1",
+" 	c None",
+".	c #61856595CF3C",
+"X	c #E79DE79DE79D",
+"o	c #BEFBBEFBBEFB",
+"O	c #000000000000",
+"+	c #08200C300820",
+"@	c #965896589658",
+"#	c #C71BC30BC71B",
+"$	c #FFFFEBAD79E7",
+"                ",
+"         ...    ",
+"         ...    ",
+"        .....   ",
+"   XXXXX ...    ",
+"  XoooooX .     ",
+" XooooOoXOXXOX+ ",
+" XoooOOoOOoOO@+ ",
+" X#oO$OO$OO$O@O ",
+" X#O$$O$$O$$O@O ",
+" X#O$$O$$O$$O@O ",
+" X#O$$O$$O$$O@O ",
+" X#O$OO$OO$Oo@O ",
+" X@OO@OO@OO@@@O ",
+" OOOOOOOOOOOOOO ",
+"                "};
diff --git a/etc/icons/closed.xpm b/etc/icons/closed.xpm
new file mode 100644
index 0000000..ef05ae2
--- /dev/null
+++ b/etc/icons/closed.xpm
@@ -0,0 +1,23 @@
+/* XPM */
+static char * closed_xpm[] = {
+"16 16 4 1",
+" 	c None",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #CF3CBAEA9658",
+"                ",
+"                ",
+"  .....         ",
+" .XXXXX.        ",
+".XoooooX....... ",
+".XooooooXXXXXXX.",
+".Xooooooooooooo.",
+".Xooooooooooooo.",
+".Xooooooooooooo.",
+".Xooooooooooooo.",
+".Xooooooooooooo.",
+".Xooooooooooooo.",
+".Xooooooooooooo.",
+" .............. ",
+"                ",
+"                "};
diff --git a/etc/icons/draft.xpm b/etc/icons/draft.xpm
new file mode 100644
index 0000000..d0b02cf
--- /dev/null
+++ b/etc/icons/draft.xpm
@@ -0,0 +1,25 @@
+/* XPM */
+static char * draft_xpm[] = {
+"16 16 6 1",
+" 	c None",
+".	c #000000000000",
+"X	c #EFBEFFFFC71B",
+"o	c #FFFFFFFFFFFF",
+"O	c #59656595C71B",
+"+	c #79E7B2CAF7DE",
+"                ",
+" ...........  ..",
+"  .XXXXXXXXX. ..",
+"  .XXXXXXXXX..o.",
+"   .XXXXXXX.ooo.",
+"   .XXXXXX.oooo.",
+"  .......X.oooo.",
+"  .OOOOO.X.ooo. ",
+"  ........oo.o. ",
+"   .+++.X.oo.o. ",
+"  .+o+++..oo.o. ",
+" .+o+++++.o.oo. ",
+" .OoOOOOO...o.X.",
+" .OoOOOOO.X..XX.",
+" .OOOOOOO.X.XXX.",
+"  .......X..... "};
diff --git a/etc/icons/elmo.xpm b/etc/icons/elmo.xpm
new file mode 100644
index 0000000..a3aa73d
--- /dev/null
+++ b/etc/icons/elmo.xpm
@@ -0,0 +1,19 @@
+/* XPM */
+static char * elmo2_xpm[] = {
+"18 13 3 1",
+" 	c None",
+".	c #71C66DB6FFFF",
+"X	c #B6DAEFBEFFFF",
+"        ..        ",
+"       . ..       ",
+"      .. ...      ",
+"    . ...... .    ",
+"    ..........    ",
+"    .....X....    ",
+"    ....XX.X..    ",
+"   ...X.XXX...    ",
+"  ...XXXXXX....   ",
+"  ...XXXXXXX...   ",
+"  ...XXXXXXX...   ",
+"   ...XXXXX...    ",
+"    ........      "};
diff --git a/etc/icons/filter.xpm b/etc/icons/filter.xpm
new file mode 100644
index 0000000..3336a38
--- /dev/null
+++ b/etc/icons/filter.xpm
@@ -0,0 +1,34 @@
+/* XPM */
+static char * filter_xpm[] = {
+"16 16 15 1",
+" 	c None",
+".	c #CF3CCF3CCF3C",
+"X	c #E79DE79DE79D",
+"o	c #CF3CEFBEFFFF",
+"O	c #FFFF79E7A699",
+"+	c #FFFF34D371C6",
+"@	c #000000000000",
+"#	c #BEFBE79DF7DE",
+"$	c #B6DADF7DF7DE",
+"%	c #AEBAD75CEFBE",
+"&	c #9E79A2899E79",
+"*	c #A699CF3CEFBE",
+"=	c #965892488617",
+"-	c #618565956185",
+";	c #9E79C71BE79D",
+"                ",
+"        ..XX    ",
+"       .ooooX   ",
+"      .oOOO+o.  ",
+"     .oO+ooO+o.@",
+"     .####O+##.@",
+"     X$$$O+$$$.@",
+"     X%%%%%%%%.@",
+"     &X**O+**.=@",
+"      -X;;;;.=@ ",
+"     --&X...=@  ",
+"    --&@&&&&@   ",
+"   --&@ @@@@    ",
+"  --&@          ",
+"  &&@           ",
+"  @@            "};
diff --git a/etc/icons/imap.xpm b/etc/icons/imap.xpm
new file mode 100644
index 0000000..1d7794b
--- /dev/null
+++ b/etc/icons/imap.xpm
@@ -0,0 +1,27 @@
+/* XPM */
+static char * imap_xpm[] = {
+"16 16 8 1",
+" 	c None",
+".	c #E79DE79DE79D",
+"X	c #C71BC30BC71B",
+"o	c #BEFBBEFBBEFB",
+"O	c #000000000000",
+"+	c #965896589658",
+"@	c #61856595CF3C",
+"#	c #30C230C26185",
+"                ",
+"   .....        ",
+"  .XoooX.       ",
+" .Xoooooo.....O ",
+" .XoooooXXXXo+O ",
+" .XooooXXXXoo+O ",
+" .XooooXXXooo+O ",
+" .XooXXXXXXXX+O ",
+" .XoXXXXXXXXX+O ",
+" .++++++++++++O ",
+" OOOOOOOOOOOOOO ",
+"                ",
+"@@@@##XXXX##@@@@",
+"      @@@@      ",
+"       @@       ",
+"        @@@@@   "};
diff --git a/etc/icons/internal.xpm b/etc/icons/internal.xpm
new file mode 100644
index 0000000..eb78519
--- /dev/null
+++ b/etc/icons/internal.xpm
@@ -0,0 +1,29 @@
+/* XPM */
+static char * internal_xpm[] = {
+"16 16 10 1",
+" 	c None",
+".	c #000000000000",
+"X	c #E79DCB2B9E79",
+"o	c #CF3CBAEA9658",
+"O	c #B6DAA6998617",
+"+	c #BEFBE79DF7DE",
+"@	c #FFFFFFFFFFFF",
+"#	c #CF3CCF3CCF3C",
+"$	c #51445144FFFF",
+"%	c #9E79A2899E79",
+"                ",
+"                ",
+"   ....         ",
+"  .XXXX.        ",
+" .XooooX......  ",
+" .Xooo...XXXXO. ",
+" .Xoo.+++.oooO. ",
+" .Xo.+@@++.ooO. ",
+" .Xo.+@@++.ooO. ",
+" .Xo.+++++.ooO. ",
+" .Xo#.+++.#ooO. ",
+" .Xoo#...$$ooO. ",
+" .OOOOOOOO$$OO. ",
+"  .........$$.  ",
+"            %%  ",
+"                "};
diff --git a/etc/icons/local.xpm b/etc/icons/local.xpm
new file mode 100644
index 0000000..6f45a09
--- /dev/null
+++ b/etc/icons/local.xpm
@@ -0,0 +1,26 @@
+/* XPM */
+static char * local_xpm[] = {
+"16 16 7 1",
+" 	c None",
+".	c #000000000000",
+"X	c #FFFFFFFFFFFF",
+"o	c #CF3CD34CCF3C",
+"O	c #E79DE79DE79D",
+"+	c #C71BC30BC71B",
+"@	c #965896589658",
+"                ",
+"                ",
+"  .........     ",
+"  .XXXXXX.X.    ",
+"  .XXXXXX.XX.   ",
+"  .XXXXXX....o  ",
+"  .XXXXXXooo.o  ",
+"  .XXXXXXXXX.o  ",
+"  .XXXXXXXXX.o  ",
+"  .XXXXXXXXX.o  ",
+" OOOOOOOOOOO+++ ",
+" O++++++++++@@@ ",
+" O++++++++++@@@ ",
+" O++++++++++@@@ ",
+" .............. ",
+"                "};
diff --git a/etc/icons/localnews.xpm b/etc/icons/localnews.xpm
new file mode 100644
index 0000000..24a3d3e
--- /dev/null
+++ b/etc/icons/localnews.xpm
@@ -0,0 +1,24 @@
+/* XPM */
+static char * localnews_xpm[] = {
+"16 16 5 1",
+" 	c None",
+".	c #000000000000",
+"X	c #BEFBB2CA69A6",
+"o	c #FFFFFFFFFFFF",
+"O	c #EFBEE38D8617",
+"                ",
+"                ",
+" .............  ",
+".X.oooooooooo.  ",
+".X.oX.X...o.o.  ",
+"..X.ooooooooo.  ",
+".X..o..X..X.Xo. ",
+" .XX.oooooo.oo. ",
+" ..X.oXXXooooo. ",
+" ..X.oXXX.o.o.o.",
+"  .X.OOOOOOOOOo.",
+"  ..OOOOOOOOOO. ",
+"   ...........  ",
+"                ",
+"                ",
+"                "};
diff --git a/etc/icons/maildir.xpm b/etc/icons/maildir.xpm
new file mode 100644
index 0000000..3905f2e
--- /dev/null
+++ b/etc/icons/maildir.xpm
@@ -0,0 +1,26 @@
+/* XPM */
+static char * maildir_xpm[] = {
+"16 16 7 1",
+" 	c None",
+".	c #000000000000",
+"X	c #FFFFFFFFFFFF",
+"o	c #CF3CD34CCF3C",
+"O	c #DF7DD75C79E7",
+"+	c #BEFBB2CA69A6",
+"@	c #A6999E795965",
+"                ",
+"                ",
+"  .........     ",
+"  .XXXXXX.X.    ",
+"  .XXXXXX.XX.   ",
+"  .XXXXXX....o  ",
+"  .XXXXXXooo.o  ",
+"  .XXXXXXXXX.o  ",
+"  .XXXXXXXXX.o  ",
+"  .XXXXXXXXX.o  ",
+" OOOOOOOOOOO+++ ",
+" O++++++++++@@@ ",
+" O++++++++++@@@ ",
+" O++++++++++@@@ ",
+" .............. ",
+"                "};
diff --git a/etc/icons/multi.xpm b/etc/icons/multi.xpm
new file mode 100644
index 0000000..f84ad4e
--- /dev/null
+++ b/etc/icons/multi.xpm
@@ -0,0 +1,25 @@
+/* XPM */
+static char * multi_xpm[] = {
+"16 16 6 1",
+" 	c None",
+".	c #9E799A69FFFF",
+"X	c #000000000000",
+"o	c #FFFFEBADD75C",
+"O	c #EFBEFFFFC71B",
+"+	c #FFFFFFFFFFFF",
+"                ",
+"  ........X     ",
+"  .oooooooX     ",
+"  .o.........   ",
+"  .o.OOOOOOOX   ",
+"  .o.O......... ",
+"  .o.O.+++++++X ",
+"  .o.O.+++++++X ",
+"  .o.O.+.+..++X ",
+"  .o.O.+++++++X ",
+"  XX.O.+X+X.++X ",
+"    .O.+++++XXX ",
+"    XX.+++++X+X ",
+"      .+++++XX  ",
+"      XXXXXXX   ",
+"                "};
diff --git a/etc/icons/news.xpm b/etc/icons/news.xpm
new file mode 100644
index 0000000..b3d5b98
--- /dev/null
+++ b/etc/icons/news.xpm
@@ -0,0 +1,24 @@
+/* XPM */
+static char * news_xpm[] = {
+"16 16 5 1",
+" 	c None",
+".	c #000000000000",
+"X	c #9E799A699E79",
+"o	c #FFFFFFFFFFFF",
+"O	c #CF3CD34CCF3C",
+"                ",
+"                ",
+" .............  ",
+".X.oooooooooo.  ",
+".X.oX.X...o.o.  ",
+"..X.ooooooooo.  ",
+".X..o..X..X.Xo. ",
+" .XX.oooooo.oo. ",
+" ..X.oXXXooooo. ",
+" ..X.oXXX.o.o.o.",
+"  .X.OOOOOOOOOo.",
+"  ..OOOOOOOOOO. ",
+"   ...........  ",
+"                ",
+"                ",
+"                "};
diff --git a/etc/icons/opened.xpm b/etc/icons/opened.xpm
new file mode 100644
index 0000000..631e9ad
--- /dev/null
+++ b/etc/icons/opened.xpm
@@ -0,0 +1,24 @@
+/* XPM */
+static char * opened_xpm[] = {
+"16 16 5 1",
+" 	c None",
+".	c #000000000000",
+"X	c #9E798E3869A6",
+"o	c #FFFFE38DB6DA",
+"O	c #CF3CBAEA9658",
+"                ",
+"                ",
+"   ....         ",
+"  .XXXX.        ",
+"  ....XX....... ",
+" .oooo.XXXXXXXX.",
+".oOOOOo......XX.",
+".oOOOOOoooooo.X.",
+" .oOOOOOOOOOO.X.",
+" .oOOOOOOOOOOO..",
+" .oOOOOOOOOOOO..",
+"  .oOOOOOOOOOOO.",
+"  .oOOOOOOOOOOO.",
+"   ............ ",
+"                ",
+"                "};
diff --git a/etc/icons/pipe.xpm b/etc/icons/pipe.xpm
new file mode 100644
index 0000000..628be44
--- /dev/null
+++ b/etc/icons/pipe.xpm
@@ -0,0 +1,28 @@
+/* XPM */
+static char * pipe_xpm[] = {
+"16 16 9 1",
+" 	c None",
+".	c #9E799E79FFFF",
+"X	c #51445144FFFF",
+"o	c #2081208169A6",
+"O	c #00000000FFFF",
+"+	c #D75CD75CD75C",
+"@	c #FFFF00000000",
+"#	c #FFFFFFFFFFFF",
+"$	c #A699A289A699",
+"                ",
+"                ",
+"     .XXXo      ",
+"     .XXXo      ",
+"     .XXXo      ",
+"O+@+O.XXXo@+O+@ ",
+"+####.XXXo####+$",
+"@##.XXXXXXXo##O$",
+"+###.XXXXXo###+$",
+"O####.XXXo####@$",
+"+#####.Xo#####+$",
+"@######o######O$",
+"+#############+$",
+"O+@+O+@+O+@+O+@$",
+" $$$$$$$$$$$$$$$",
+"                "};
diff --git a/etc/icons/plugged.xpm b/etc/icons/plugged.xpm
new file mode 100644
index 0000000..03e25df
--- /dev/null
+++ b/etc/icons/plugged.xpm
@@ -0,0 +1,28 @@
+/* XPM */
+static char *plugged[] = {
+"32 16 8 1",
+"  c None",
+". c #a6caf0",
+"# c #8fa5cf",
+"a c #717171",
+"b c #5d5d97",
+"c c #8488ca",
+"d c #9f9f9f",
+"e c #7f8080",
+"                                ",
+"                                ",
+"            ...                 ",
+"           .ccb....             ",
+"           accb####.            ",
+"          .accb#####..          ",
+"   eeeeeeeeaccb#####.eeeeeeee   ",
+"   dddddddcaccb#####.dedddddd   ",
+"   dddddddcaccb#####.dedddddd   ",
+"   eeeeeeeeaccb#####.eeeeeeee   ",
+"          aaccb####aaa          ",
+"           accbaaaaa            ",
+"           aaaaaaaa             ",
+"            aaa                 ",
+"                                ",
+"                                "
+};
diff --git a/etc/icons/pop.xpm b/etc/icons/pop.xpm
new file mode 100644
index 0000000..52d6820
--- /dev/null
+++ b/etc/icons/pop.xpm
@@ -0,0 +1,26 @@
+/* XPM */
+static char * pop_xpm[] = {
+"16 16 7 1",
+" 	c None",
+".	c #DF7DD75C79E7",
+"X	c #BEFBB2CA69A6",
+"o	c #000000000000",
+"O	c #A6999E795965",
+"+	c #61856595CF3C",
+"@	c #30C230C26185",
+"                ",
+"   .....        ",
+"  .XXXXX.       ",
+" .XXXXXXX.....o ",
+" .XXXXXXXXXXXOo ",
+" .XXXXXXXXXXXOo ",
+" .XXXXXXXXXXXOo ",
+" .XXXXXXXXXXXOo ",
+" .XXXXXXXXXXXOo ",
+" .OOOOOOOOOOOOo ",
+" oooooooooooooo ",
+"                ",
+"++++@@....@@++++",
+"      ++++      ",
+"       ++       ",
+"        +++++   "};
diff --git a/etc/icons/queue.xpm b/etc/icons/queue.xpm
new file mode 100644
index 0000000..bfb7711
--- /dev/null
+++ b/etc/icons/queue.xpm
@@ -0,0 +1,27 @@
+/* XPM */
+static char * queue_xpm[] = {
+"16 16 8 1",
+" 	c None",
+".	c #69A68E38EFBE",
+"X	c #000000000000",
+"o	c #FFFFFFFFFFFF",
+"O	c #CF3CD34CCF3C",
+"+	c #E79DCB2B9E79",
+"@	c #CF3CBAEA9658",
+"#	c #9E798E3869A6",
+"      .         ",
+"     ...        ",
+"    .....       ",
+"   .......      ",
+"     ...        ",
+"   XX...XXX     ",
+"   Xo...oXoX    ",
+"   Xo...oXXXO   ",
+"   XoooooOOXO   ",
+"   XoooooooXO   ",
+"   XoooooooXO   ",
+"   XoooooooXO   ",
+" +++++++++++@@  ",
+" +@@@@@@@@@@##  ",
+" +@@@@@@@@@@##  ",
+" XXXXXXXXXXXXX  "};
diff --git a/etc/icons/trash-e.xpm b/etc/icons/trash-e.xpm
new file mode 100644
index 0000000..6cb4069
--- /dev/null
+++ b/etc/icons/trash-e.xpm
@@ -0,0 +1,24 @@
+/* XPM */
+static char * trash_xpm[] = {
+"16 16 5 1",
+" 	c None",
+".	c #000000000000",
+"X	c #BEFBBEFBBEFB",
+"o	c #E79DE79DE79D",
+"O	c #71C671C671C6",
+"                ",
+"    .......     ",
+"   .XXXXXXX.    ",
+"  .XXXXXXXXX.   ",
+"  ..XXXXXXX..   ",
+"  .o.......O.   ",
+"  .oXoXXXOXO.   ",
+"  .oXoXXXOXO.   ",
+"  .oXoXXXOXO.   ",
+"  .oXoXXXOXO.   ",
+"  .oXoXXXOXO.   ",
+"  .oXoXXXOXO.   ",
+"  .oXoXXXOXO.   ",
+"   .XoXXXOX.    ",
+"    .......     ",
+"                "};
diff --git a/etc/icons/trash.xpm b/etc/icons/trash.xpm
new file mode 100644
index 0000000..f1cdc59
--- /dev/null
+++ b/etc/icons/trash.xpm
@@ -0,0 +1,25 @@
+/* XPM */
+static char * trash_xpm[] = {
+"16 16 6 1",
+" 	c None",
+".	c #000000000000",
+"X	c #BEFBBEFBBEFB",
+"o	c #F7DEF7DEF7DE",
+"O	c #E79DE79DE79D",
+"+	c #71C671C671C6",
+"   ......       ",
+"  .XXXXXX..     ",
+"   .XXXXXXX.    ",
+"  .o.....XXX.   ",
+"  ..ooooo....   ",
+"  .O.......+.   ",
+"  .OXOXXX+X+.   ",
+"  .OXOXXX+X+.   ",
+"  .OXOXXX+X+.   ",
+"  .OXOXXX+X+.   ",
+"  .OXOXXX+X+.   ",
+"  .OXOXXX+X+.   ",
+"  .OXOXXX+X+.   ",
+"   .XOXXX+X.    ",
+"    .......     ",
+"                "};
diff --git a/etc/icons/unplugged.xpm b/etc/icons/unplugged.xpm
new file mode 100644
index 0000000..b690c87
--- /dev/null
+++ b/etc/icons/unplugged.xpm
@@ -0,0 +1,28 @@
+/* XPM */
+static char * unplugged_xpm[] = {
+"32 16 9 1",
+" 	s None	c None",
+".	c tomato",
+"X	c #a6caf0",
+"o	c #8488ca",
+"O	c #5d5d97",
+"+	c #8fa5cf",
+"@	c #717171",
+"#	c #7f8080",
+"$	c #9f9f9f",
+"                                ",
+"                                ",
+"          XXX......             ",
+"           ...    ...           ",
+"          ..O     ....X         ",
+"         ..oO    ...+..XX       ",
+"   ######.ooO   ...+++.X#####   ",
+"   $$$$$o.ooO  ...@+++.X$#$$$   ",
+"   $$$$$o.ooO ... @+++.X$#$$$   ",
+"   ######.ooO...  @+++.X#####   ",
+"         ..o...   @++..@@       ",
+"          ....    @@..@         ",
+"           ...    ...@          ",
+"             ......             ",
+"                                ",
+"                                "};
diff --git a/etc/icons/wl-draft-insert-signature-up.xpm b/etc/icons/wl-draft-insert-signature-up.xpm
new file mode 100644
index 0000000..ca38e48
--- /dev/null
+++ b/etc/icons/wl-draft-insert-signature-up.xpm
@@ -0,0 +1,38 @@
+/* XPM */
+static char * wl_draft_insert_signature_up_xpm[] = {
+"32 32 3 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFFFFFFFFF",
+"                        .       ",
+"                       ..       ",
+"                      .X.       ",
+"                     .X.        ",
+"                    .XX.        ",
+"                  ..XXX.        ",
+"                 .XXXX.         ",
+"                .XXXX.          ",
+"                .XXXX.          ",
+"               .XXXXX.          ",
+"               .XX.XX.          ",
+"               .XX.X.           ",
+"               .XX.X.           ",
+"               .X.XX.           ",
+"                ..X.            ",
+"          ..     ..             ",
+"  .  .   ...     .              ",
+" .   . . . .     .              ",
+" .  .... ... .   .              ",
+" ... ... ... ....               ",
+" ..     .. ...                  ",
+"                                ",
+"                                ",
+"                                ",
+"            .                   ",
+"        ...                     ",
+"       .    .  ... ...          ",
+"       ...  . .  . .  .         ",
+"          . . .  . .  .         ",
+"          . .  ... .  .         ",
+"       ...  .    . .  .         ",
+"               ..               "};
diff --git a/etc/icons/wl-draft-kill-up.xpm b/etc/icons/wl-draft-kill-up.xpm
new file mode 100644
index 0000000..59f7a90
--- /dev/null
+++ b/etc/icons/wl-draft-kill-up.xpm
@@ -0,0 +1,43 @@
+/* XPM */
+static char * wl_summary_delete_up_xpm[] = {
+"32 32 8 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #E79DCB2B9E79",
+"o	c #69A68E38EFBE",
+"O	c #CF3CBAEA9658",
+"+	c #FFFFFFFFFFFF",
+"@	c #B6DAA6998617",
+"#	c #965896589658",
+"                                ",
+"            ....                ",
+"           .XXXX..              ",
+"     o     .XOOOXX..            ",
+"     oo   ..XOOOOOOO..          ",
+" ooooooo .++.XOOOOOOOO.         ",
+" oooooooo .. ..@@@OOOO@.        ",
+" ooooooooo.+.++...@@@@@.        ",
+" oooooooo  .++..++......        ",
+" ooooooo   ...++.+.+#...        ",
+"     oo    .XO.......@@.        ",
+"     o     .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.##      ",
+"            ..XOOO@O@..####     ",
+"              .......#####      ",
+"              #########         ",
+"                .      .        ",
+"      ....      .      .        ",
+"      .   .  .  .  .  ... .     ",
+"      .   . . . . . .  . . .    ",
+"      .   . ... . ...  . ...    ",
+"      .   . .   . .    . .      ",
+"      ....   .. .  ..  .  ..    ",
+"                                "};
diff --git a/etc/icons/wl-draft-send-from-toolbar-down.xpm b/etc/icons/wl-draft-send-from-toolbar-down.xpm
new file mode 100644
index 0000000..07fab96
--- /dev/null
+++ b/etc/icons/wl-draft-send-from-toolbar-down.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_draft_send_and_exit_down_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #618596586185",
+"o	c #0000FFFFFFFF",
+"O	c #FFFFFFFF0000",
+"+	c #FFFFE38DA699",
+"@	c #9E799A699E79",
+"                                ",
+"                                ",
+"                                ",
+"           ......      ...      ",
+"          .XXXXX...   .oo.      ",
+"          .XXXXXXXX.  ...       ",
+"           .XXOXXXX.  .         ",
+"           .X....XX.            ",
+"          ..........     ..     ",
+"         ...........    .oo.    ",
+"           .++.+.++.   . ..     ",
+"           .++.+.++.            ",
+"           .++.+.++.            ",
+"           .+++++++.            ",
+"            .+++++.             ",
+"            .......             ",
+"            .X.XXXX.@@@@@@      ",
+"           .XXX.XXXX.@@@@@@     ",
+"           .XXXX.XXX.@@@@@      ",
+"           .XXXXX.....@@@       ",
+"           .XXXXXX....@@        ",
+"           ...........@         ",
+"                  ....          ",
+"                                ",
+"                        .       ",
+"        ...             .       ",
+"       .     .  ...   ...       ",
+"       ...  . . .  . .  .       ",
+"          . ... .  . .  .       ",
+"          . .   .  . .  .       ",
+"       ...   .. .  .  ...       ",
+"                                "};
diff --git a/etc/icons/wl-draft-send-from-toolbar-up.xpm b/etc/icons/wl-draft-send-from-toolbar-up.xpm
new file mode 100644
index 0000000..0455911
--- /dev/null
+++ b/etc/icons/wl-draft-send-from-toolbar-up.xpm
@@ -0,0 +1,41 @@
+/* XPM */
+static char * wl_draft_send_and_exit_up_xpm[] = {
+"32 32 6 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #618596586185",
+"o	c #FFFFFFFF0000",
+"O	c #FFFFE38DA699",
+"+	c #9E799A699E79",
+"                                ",
+"                                ",
+"                                ",
+"           ......               ",
+"          .XXXXX...             ",
+"          .XXXXXXXX.            ",
+"           .XXoXXXX.            ",
+"           .X....XX.            ",
+"          ..........            ",
+"         ...........            ",
+"           .OO.O.OO.            ",
+"           .OO.O.OO.            ",
+"           .OO.O.OO.            ",
+"           .OOOOOOO.            ",
+"            .OOOOO.             ",
+"            .......             ",
+"            .X.XXXX.++++++      ",
+"           .XXX.XXXX.++++++     ",
+"           .XXXX.XXX.+++++      ",
+"           .XXXXX.....+++       ",
+"           .XXXXXX....++        ",
+"           ...........+         ",
+"                  ....          ",
+"                                ",
+"                        .       ",
+"        ...             .       ",
+"       .     .  ...   ...       ",
+"       ...  . . .  . .  .       ",
+"          . ... .  . .  .       ",
+"          . .   .  . .  .       ",
+"       ...   .. .  .  ...       ",
+"                                "};
diff --git a/etc/icons/wl-draft-up.xpm b/etc/icons/wl-draft-up.xpm
new file mode 100644
index 0000000..783bcea
--- /dev/null
+++ b/etc/icons/wl-draft-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_draft_up_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #EFBEFFFFC71B",
+"o	c #FFFFFFFFFFFF",
+"O	c #9E799A699E79",
+"+	c #59656595C71B",
+"@	c #79E7B2CAF7DE",
+"                                ",
+"      ...............   .       ",
+"       .XXXXXXXXXXXXX. ..       ",
+"        .XXXXXXXXXXXX..o.       ",
+"        .XXXXXXXXXXX..o.        ",
+"        .XXXXXXXXXXX.oo.        ",
+"       .XXXXXXXXXX..ooo.        ",
+"       .XXXXXXXXX.oooo.         ",
+"       .XXXXXXXX.oooo.          ",
+"       .XXXXXXXX.oooo.          ",
+"       .XXXXXXX.ooooo.          ",
+"        .XXXXXX.oo.oo.OOOOOO    ",
+"        .XXXXXX.oo.o.X.OOOOO    ",
+"        .XXXXXX.oo.o.X.OOO      ",
+"      .......XXXo.oo.XX.OO      ",
+"      .+++++.XXX..o.XXX.O       ",
+"      .......XXXX..XXXX.O  OOOO ",
+"       .@@@.XXXXX.XXXX.OOOOO    ",
+"      .@o@@@.XXXX.XXX.OOOOOO    ",
+"     .@o@@@@@........OOOOO      ",
+"     .+o+++++.  . OOOOO         ",
+"     .+o+++++.OOOOOOO           ",
+"     .+++++++.OO                ",
+"      .......OOO                ",
+"      OOOOOOOOO                 ",
+"        .   .                   ",
+"        ..  .  .  . . .         ",
+"        . . . . . . . .         ",
+"        . . . ... . . .         ",
+"        .  .. .    . .          ",
+"        .   .  ..  . .          ",
+"                                "};
diff --git a/etc/icons/wl-draft-yank-original-up.xpm b/etc/icons/wl-draft-yank-original-up.xpm
new file mode 100644
index 0000000..a2df68d
--- /dev/null
+++ b/etc/icons/wl-draft-yank-original-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_draft_yank_original_up_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #EFBEFFFFC71B",
+"o	c #FFFFFFFFFFFF",
+"O	c #9E799A699E79",
+"+	c #59656595C71B",
+"@	c #79E7B2CAF7DE",
+"                                ",
+"             ...............   .",
+"              .XXXXXXXXXXXXX. ..",
+"               .XXXXXXXXXXXX..o.",
+"  ..............XOXOOOXXXXX..o. ",
+"  .oooooooooooo.XXXXXXXXXXX.oo. ",
+"  .o++o    ooo.XXOXOOXXXX..ooo. ",
+"  .o++oooooooo.XXXXXXXXX.oooo.  ",
+"  .oooo    ooo.XXXXXXXX.oooo.   ",
+"  .ooooooooooo.XXXXXXXX.oooo.   ",
+"  .ooooooooooo.XXXXXXX.ooooo.   ",
+"  .oooooooooooo.XXXXXX.oo.oo.OOO",
+"  .oooooooooooo.XXXXXX.oo.o.X.OO",
+"  .oooooooooooo.XXXXXX.oo.o.X.OO",
+"  ..................XXXo.oo.XX.O",
+"   OOOOOOOOOO.+++++.XXX..o.XXX.O",
+"   OOOOOOOOOO.......XXXX..XXXX.O",
+"              .@@@.XXXXX.XXXX.OO",
+"             .@o@@@.XXXX.XXX.OOO",
+"            .@o@@@@@........OOOO",
+"            .+o+++++.  . OOOOO  ",
+"            .+o+++++.OOOOOOO    ",
+"            .+++++++.OO         ",
+"             .......OOO         ",
+"                     .          ",
+"      ..  .          .          ",
+"       .  . ..  ...  . .        ",
+"       .  .   . .  . ..         ",
+"        ..  ... .  . ..         ",
+"        .   . . .  . . .        ",
+"      ..    .. ..  . . .        ",
+"                                "};
diff --git a/etc/icons/wl-exit-up.xpm b/etc/icons/wl-exit-up.xpm
new file mode 100644
index 0000000..7eb9182
--- /dev/null
+++ b/etc/icons/wl-exit-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_folder_quit_up_xpm[] = {
+"32 32 7 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #CF3CBAEA9658",
+"O	c #AEBAB2CAAEBA",
+"+	c #B6DA965869A6",
+"@	c #69A68E38EFBE",
+"                                ",
+"                                ",
+"                                ",
+"            ...........         ",
+"            .XXooooooo.OO       ",
+"            .X.......o.OO       ",
+"            .o.++++X.o.OO       ",
+"            .o.+oooX.o.OO       ",
+"       @    .o.+oooX.o.OO       ",
+"       @@   .o.+oooX.o.OO       ",
+" @@@@@@@@@  .o.XXXXX.o.OO       ",
+" @@@@@@@@@@ .o.......o.OO       ",
+" @@@@@@@@@@@.XXooooooo.OO       ",
+" @@@@@@@@@@O.XXooooooo.OO       ",
+" @@@@@@@@@OO.o.......o.OO       ",
+" OOOOOO@@OO .o.++++X.o.OO       ",
+" OOOOOO@OO  .o.+oooX.o.OO       ",
+"       OO   .o.+oooX.o.OO       ",
+"       O    .o.+oooX.o.OO       ",
+"       O    .o.XXXXX.o.OO       ",
+"            .o.......o.OO       ",
+"            .ooooooooo.OO       ",
+"            ...........OO       ",
+"             OOOOOOOOOOOO       ",
+"                 .  .           ",
+"       ....         .           ",
+"       .    .  . . ...          ",
+"       ...  .  . .  .           ",
+"       .     ..  .  .           ",
+"       .    .  . .  .           ",
+"       .... .  . .  .           ",
+"                                "};
diff --git a/etc/icons/wl-folder-check-current-entity-up.xpm b/etc/icons/wl-folder-check-current-entity-up.xpm
new file mode 100644
index 0000000..5e852dd
--- /dev/null
+++ b/etc/icons/wl-folder-check-current-entity-up.xpm
@@ -0,0 +1,43 @@
+/* XPM */
+static char * wl_folder_check_entity_up_xpm[] = {
+"32 32 8 1",
+" 	c #CF3CCF3CCF3C  s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #E79DCB2B9E79",
+"O	c #B6DAA6998617",
+"+	c #CF3CBAEA9658",
+"@	c #BEFB492471C6",
+"#	c #AEBAAAAAAEBA",
+"                                ",
+"                                ",
+"                                ",
+"        ............            ",
+"     ...XXXXXXXXXXXX...         ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    ....XXXXXXXXXXXX....        ",
+"    .ooo............OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo++++@@@@@@++OOO.        ",
+"    .ooo+++@@@@@@@@+OOO.        ",
+"    .ooo+++@@@++@@@+OOO.        ",
+"    .ooo+++@@@++@@@+OOO.        ",
+"    .ooo+++++++@@@++OOO.        ",
+"    .ooo++++++@@@@+++OO.        ",
+"    #...++++++@@@+++...###      ",
+"    ####.....@@@....#######     ",
+"     ########@@@############    ",
+"        #####@@@###########     ",
+"             #############      ",
+"             @@@#               ",
+"             @@@#               ",
+"           . @@@#       .       ",
+"      ...  .            .       ",
+"     .   . ...   .   .. . .     ",
+"     .     .  . . . .   ..      ",
+"     .     .  . ... .   ..      ",
+"     .   . .  . .   .   . .     ",
+"      ...  .  .  ..  .. . .     ",
+"                                "};
diff --git a/etc/icons/wl-folder-empty-trash-up.xpm b/etc/icons/wl-folder-empty-trash-up.xpm
new file mode 100644
index 0000000..942165e
--- /dev/null
+++ b/etc/icons/wl-folder-empty-trash-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_folder_empty_trash_up_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #E79DCB2B9E79",
+"o	c #CF3CBAEA9658",
+"O	c #B6DAA6998617",
+"+	c #FFFFFFFFFFFF",
+"@	c #965896589658",
+"                                ",
+"            ....                ",
+"           .XXXX..              ",
+"           .XoooXX..            ",
+"       ..  .Xooooooo..          ",
+"      .     .Xoooooooo.         ",
+"     .       ..XXXooooO.        ",
+"     .      .OO...OOOOO.        ",
+"           .OOOOOO......        ",
+"   ...     ...OOOOOOO...        ",
+"  .+++.    .Xo.......OO.        ",
+" . ++..    .XoXoooOoOOO.        ",
+" . +.+.    .XoXoooOoOOO.        ",
+"  .. .     .XoXoooOoOOO.        ",
+"    .      .XoXoooOoOOO.        ",
+"           .XoXoooOoOOO.        ",
+"           .XoXoooOoOOO.        ",
+"           .XoXoooOoOOO.        ",
+"           .XoXoooOoOOO.        ",
+"      @@   .XoXoooOoOOO.        ",
+"     @@@@@ .XoXoooOoOOO.@@      ",
+"      @@@   ..XoooOoO..@@@@     ",
+"              .......@@@@@      ",
+"              @@@@@@@@@         ",
+"                       .        ",
+"      ....             .        ",
+"      .    ....  ...  ....  .   ",
+"      ...  . . . .  .  . .  .   ",
+"      .    . . . .  .  . .  .   ",
+"      .    . . . .  .  .  ..    ",
+"      .... . . . ...   .  .     ",
+"                 .       .      "};
diff --git a/etc/icons/wl-folder-jump-to-current-entity-no-sync-up.xpm b/etc/icons/wl-folder-jump-to-current-entity-no-sync-up.xpm
new file mode 100644
index 0000000..b5f012c
--- /dev/null
+++ b/etc/icons/wl-folder-jump-to-current-entity-no-sync-up.xpm
@@ -0,0 +1,41 @@
+/* XPM */
+static char * wl_folder_jump_to_current_entity_up_xpm[] = {
+"32 32 6 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #69A68E38EFBE",
+"X	c #000000000000",
+"o	c #9E798E3869A6",
+"O	c #FFFFE38DB6DA",
+"+	c #CF3CBAEA9658",
+"                                ",
+"               .....            ",
+"               .....            ",
+"               .....            ",
+"             .........          ",
+"        XXXXXX.......           ",
+"       XooooooX.....            ",
+"      XXXXXXoooX...XXXXX        ",
+"     XOOOOOOXoooo.ooooooX       ",
+"    XO++++++OXXXXXXXXXooX       ",
+"    XO+++++++OOOOOOOOOXoX       ",
+"     XO+++++++++++++++XoX       ",
+"     XO+++++++++++++++XoX       ",
+"     XO++++++++++++++++XX       ",
+"      XO+++++++++++++++XX       ",
+"      XO+++++++++++++++XX       ",
+"      XO++++++++++++++++X       ",
+"       XO+++++++++++++++X       ",
+"       XO+++++++++++++++X       ",
+"       XO+++++++++++++++X       ",
+"        XXXXXXXXXXXXXXXXX       ",
+"                                ",
+"                                ",
+"                                ",
+"                 X              ",
+"      XXXX       X              ",
+"      X    XXX  XXX X  X X      ",
+"      XXX  X  X  X X X XX       ",
+"      X    X  X  X XXX X        ",
+"      X    X  X  X X   X        ",
+"      XXXX X  X  X  XX X        ",
+"                                "};
diff --git a/etc/icons/wl-folder-jump-to-current-entity-up.xpm b/etc/icons/wl-folder-jump-to-current-entity-up.xpm
new file mode 100644
index 0000000..b5f012c
--- /dev/null
+++ b/etc/icons/wl-folder-jump-to-current-entity-up.xpm
@@ -0,0 +1,41 @@
+/* XPM */
+static char * wl_folder_jump_to_current_entity_up_xpm[] = {
+"32 32 6 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #69A68E38EFBE",
+"X	c #000000000000",
+"o	c #9E798E3869A6",
+"O	c #FFFFE38DB6DA",
+"+	c #CF3CBAEA9658",
+"                                ",
+"               .....            ",
+"               .....            ",
+"               .....            ",
+"             .........          ",
+"        XXXXXX.......           ",
+"       XooooooX.....            ",
+"      XXXXXXoooX...XXXXX        ",
+"     XOOOOOOXoooo.ooooooX       ",
+"    XO++++++OXXXXXXXXXooX       ",
+"    XO+++++++OOOOOOOOOXoX       ",
+"     XO+++++++++++++++XoX       ",
+"     XO+++++++++++++++XoX       ",
+"     XO++++++++++++++++XX       ",
+"      XO+++++++++++++++XX       ",
+"      XO+++++++++++++++XX       ",
+"      XO++++++++++++++++X       ",
+"       XO+++++++++++++++X       ",
+"       XO+++++++++++++++X       ",
+"       XO+++++++++++++++X       ",
+"        XXXXXXXXXXXXXXXXX       ",
+"                                ",
+"                                ",
+"                                ",
+"                 X              ",
+"      XXXX       X              ",
+"      X    XXX  XXX X  X X      ",
+"      XXX  X  X  X X X XX       ",
+"      X    X  X  X XXX X        ",
+"      X    X  X  X X   X        ",
+"      XXXX X  X  X  XX X        ",
+"                                "};
diff --git a/etc/icons/wl-folder-next-entity-up.xpm b/etc/icons/wl-folder-next-entity-up.xpm
new file mode 100644
index 0000000..b4bd524
--- /dev/null
+++ b/etc/icons/wl-folder-next-entity-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_next_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #59656595C71B",
+"O	c #965896589658",
+"+	c #596569A6C71B",
+"@	c #59656DB6CF3C",
+"#	c #596571C6CF3C",
+"$	c #596575D6CF3C",
+"%	c #618579E7D75C",
+"&	c #61857DF7D75C",
+"*	c #61857DF7DF7D",
+"=	c #61858207DF7D",
+"-	c #69A68A28E79D",
+";	c #61858617E79D",
+":	c #69A68E38EFBE",
+">	c #69A69248EFBE",
+",	c #69A69658F7DE",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"             .....              ",
+"             .Xoo.O             ",
+"             .Xoo.O             ",
+"             .X++.O             ",
+"             .X@@.O             ",
+"             .X##.O             ",
+"             .X$$.O             ",
+"             .X%%.O             ",
+"             .X&&.O             ",
+"             .X**.O             ",
+"        ......X==......         ",
+"         .X-;;;;;;;;;.OO        ",
+"          .X--------.OO         ",
+"           .X::::::.OO          ",
+"            .X>>>>.OO           ",
+"             .X,,.OO            ",
+"              .X.OO             ",
+"               .OO              ",
+"               OO               ",
+"                                ",
+"                       .        ",
+"       .   .           .        ",
+"       ..  .  .  .  . ...       ",
+"       . . . . . .  .  .        ",
+"       . . . ...  ..   .        ",
+"       .  .. .   .  .  .        ",
+"       .   .  .. .  .  .        ",
+"                                "};
diff --git a/etc/icons/wl-folder-prev-entity-up.xpm b/etc/icons/wl-folder-prev-entity-up.xpm
new file mode 100644
index 0000000..0d1895c
--- /dev/null
+++ b/etc/icons/wl-folder-prev-entity-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_previous_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #69A69658F7DE",
+"O	c #69A69248EFBE",
+"+	c #69A68E38EFBE",
+"@	c #69A68A28E79D",
+"#	c #61858617E79D",
+"$	c #61858207DF7D",
+"%	c #965896589658",
+"&	c #61857DF7DF7D",
+"*	c #61857DF7D75C",
+"=	c #618579E7D75C",
+"-	c #596575D6CF3C",
+";	c #596571C6CF3C",
+":	c #59656DB6CF3C",
+">	c #596569A6C71B",
+",	c #59656595C71B",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"               .                ",
+"              .X.               ",
+"             .Xoo.              ",
+"            .XOOOO.             ",
+"           .X++++++.            ",
+"          .X@@@@@@@@.           ",
+"         .X@#########.          ",
+"        ......X$$......         ",
+"         %%%%.X&&.%%%%%         ",
+"             .X**.%             ",
+"             .X==.%             ",
+"             .X--.%             ",
+"             .X;;.%             ",
+"             .X::.%             ",
+"             .X>>.%             ",
+"             .X,,.%             ",
+"             .X,,.%             ",
+"             .....%             ",
+"              %%%%%             ",
+"                                ",
+"                                ",
+"         ...                    ",
+"         .  . . . .  .  .       ",
+"         .  . .. . . .  .       ",
+"         ...  .  ... .  .       ",
+"         .    .  .   . .        ",
+"         .    .   ..  .         ",
+"                                "};
diff --git a/etc/icons/wl-folder-read-up.xpm b/etc/icons/wl-folder-read-up.xpm
new file mode 100644
index 0000000..1277854
--- /dev/null
+++ b/etc/icons/wl-folder-read-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_jump_to_current_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #8617BEFBF7DE",
+"O	c #8617BAEAF7DE",
+"+	c #8617B6DAF7DE",
+"@	c #FFFFFFFFFFFF",
+"#	c #79E7AEBAEFBE",
+"$	c #79E7AEBAF7DE",
+"%	c #79E7B2CAF7DE",
+"&	c #79E7A699EFBE",
+"*	c #79E7AAAAEFBE",
+"=	c #71C6A289EFBE",
+"-	c #71C69E79EFBE",
+";	c #71C69A69E79D",
+":	c #69A69658E79D",
+">	c #69A69248E79D",
+",	c #69A68A28E79D",
+"<	c #965896589658",
+"1	c #AEBAAEBAAEBA",
+"                                ",
+"                                ",
+"                  ....          ",
+"                ..XXXX..        ",
+"               .XoO+++Oo.       ",
+"              .Xo+@@#$%+o.      ",
+"             .Xo+$@@&&*$+o.     ",
+"             .XO%*=-;-=*%O.     ",
+"             .X+$&-:>:-&$+.     ",
+"             .X+#&;>,>;&#+.     ",
+"             ..X$&-:>:-&$..     ",
+"             .<.%*=-;-=*.<.     ",
+"              .1..*&&&..1.<     ",
+"               .@@....11.<<     ",
+"                ..@@@1..<<      ",
+"                <.....<<<       ",
+"               <..<<<<<<        ",
+"               <..<<<<          ",
+"              <..<<             ",
+"              <..<              ",
+"             <..<<              ",
+"             @@.<               ",
+"             <<<<               ",
+"             <<<<               ",
+"              <        .        ",
+"       ...             .        ",
+"       .  .  .  ..   ...        ",
+"       .  . . .   . .  .        ",
+"       ...  ... ... .  .        ",
+"       .  . .   . . .  .        ",
+"       .  .  .. .. . ...        ",
+"                                "};
diff --git a/etc/icons/wl-folder-select-entity-up.xpm b/etc/icons/wl-folder-select-entity-up.xpm
new file mode 100644
index 0000000..2a4cd19
--- /dev/null
+++ b/etc/icons/wl-folder-select-entity-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_select_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #BEFBBEFBBEFB",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #8617BEFBF7DE",
+"O	c #8617BAEAF7DE",
+"+	c #8617B6DAF7DE",
+"@	c #FFFFFFFFFFFF",
+"#	c #79E7AEBAEFBE",
+"$	c #79E7AEBAF7DE",
+"%	c #79E7B2CAF7DE",
+"&	c #79E7A699EFBE",
+"*	c #79E7AAAAEFBE",
+"=	c #71C6A289EFBE",
+"-	c #71C69E79EFBE",
+";	c #71C69A69E79D",
+":	c #69A69658E79D",
+">	c #69A69248E79D",
+",	c #69A68A28E79D",
+"<	c #965896589658",
+"1	c #AEBAAEBAAEBA",
+"                                ",
+"                                ",
+"                  ....          ",
+"                ..XXXX..        ",
+"               .XoO+++Oo.       ",
+"              .Xo+@@#$%+o.      ",
+"             .Xo+$@@&&*$+o.     ",
+"             .XO%*=-;-=*%O.     ",
+"             .X+$&-:>:-&$+.     ",
+"             .X+#&;>,>;&#+.     ",
+"             ..X$&-:>:-&$..     ",
+"             .<.%*=-;-=*.<.     ",
+"              .1..*&&&..1.<     ",
+"               .@@....11.<<     ",
+"                ..@@@1..<<      ",
+"                <.....<<<       ",
+"               <..<<<<<<        ",
+"               <..<<<<          ",
+"              <..<<             ",
+"              <..<              ",
+"             <..<<              ",
+"             @@.<               ",
+"             <<<<               ",
+"             <<<<               ",
+"              <                 ",
+"      ....                      ",
+"         .  ..   ..  ....       ",
+"        .  .  . .  . . . .      ",
+"       .   .  . .  . . . .      ",
+"      .    .  . .  . . . .      ",
+"      ....  ..   ..  . . .      ",
+"                                "};
diff --git a/etc/icons/wl-folder-sync-current-entity-up.xpm b/etc/icons/wl-folder-sync-current-entity-up.xpm
new file mode 100644
index 0000000..ab8002e
--- /dev/null
+++ b/etc/icons/wl-folder-sync-current-entity-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_sync_current_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #E79DCB2B9E79",
+"O	c #B6DAA6998617",
+"+	c #CF3CBAEA9658",
+"@	c #514471C6FFFF",
+"#	c #59656DB6EFBE",
+"$	c #618569A6DF7D",
+"%	c #69A66595D75C",
+"&	c #79E76185C71B",
+"*	c #AEBAAAAAAEBA",
+"=	c #86175D75BEFB",
+"-	c #96585965AEBA",
+";	c #9E7955559E79",
+":	c #A69951448E38",
+">	c #C71BC30BC71B",
+",	c #AEBA4D348617",
+"<	c #BEFB492471C6",
+"1	c #C71B492469A6",
+"                                ",
+"                                ",
+"                                ",
+"        ............            ",
+"     ...XXXXXXXXXXXX...         ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    ....XXXXXXXXXXXX....        ",
+"    .ooo............OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo+++++@@+++++OOO.        ",
+"    .ooo++++####++++OOO.        ",
+"    .ooo+++$$$$$$+++OOO.        ",
+"    .ooo++%%%%%%%%++OOO.        ",
+"    .ooo++++&&&&+++++OO.        ",
+"    *...++++====++++...***      ",
+"    ****....----....*******     ",
+"     *******;;;;************    ",
+"        **::::::::*********     ",
+"         >>,,,,,,*********      ",
+"            <<<<                ",
+"             11                 ",
+"                                ",
+"        ...                     ",
+"       .    .  . ...   ..       ",
+"       ...  .  . .  . .         ",
+"          . .  . .  . .         ",
+"          .  ..  .  . .         ",
+"       ...   .   .  .  ..       ",
+"            .                   "};
diff --git a/etc/icons/wl-folder-zoom-entity-up.xpm b/etc/icons/wl-folder-zoom-entity-up.xpm
new file mode 100644
index 0000000..2688452
--- /dev/null
+++ b/etc/icons/wl-folder-zoom-entity-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_select_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #8617BEFBF7DE",
+"O	c #8617BAEAF7DE",
+"+	c #8617B6DAF7DE",
+"@	c #FFFFFFFFFFFF",
+"#	c #79E7AEBAEFBE",
+"$	c #79E7AEBAF7DE",
+"%	c #79E7B2CAF7DE",
+"&	c #79E7A699EFBE",
+"*	c #79E7AAAAEFBE",
+"=	c #71C6A289EFBE",
+"-	c #71C69E79EFBE",
+";	c #71C69A69E79D",
+":	c #69A69658E79D",
+">	c #69A69248E79D",
+",	c #69A68A28E79D",
+"<	c #965896589658",
+"1	c #AEBAAEBAAEBA",
+"                                ",
+"                                ",
+"                  ....          ",
+"                ..XXXX..        ",
+"               .XoO+++Oo.       ",
+"              .Xo+@@#$%+o.      ",
+"             .Xo+$@@&&*$+o.     ",
+"             .XO%*=-;-=*%O.     ",
+"             .X+$&-:>:-&$+.     ",
+"             .X+#&;>,>;&#+.     ",
+"             ..X$&-:>:-&$..     ",
+"             .<.%*=-;-=*.<.     ",
+"              .1..*&&&..1.<     ",
+"               .@@....11.<<     ",
+"                ..@@@1..<<      ",
+"                <.....<<<       ",
+"               <..<<<<<<        ",
+"               <..<<<<          ",
+"              <..<<             ",
+"              <..<              ",
+"             <..<<              ",
+"             @@.<               ",
+"             <<<<               ",
+"             <<<<               ",
+"              <                 ",
+"      ....                      ",
+"         .  ..   ..  ....       ",
+"        .  .  . .  . . . .      ",
+"       .   .  . .  . . . .      ",
+"      .    .  . .  . . . .      ",
+"      ....  ..   ..  . . .      ",
+"                                "};
diff --git a/etc/icons/wl-logo.xbm b/etc/icons/wl-logo.xbm
new file mode 100644
index 0000000..d0d3218
--- /dev/null
+++ b/etc/icons/wl-logo.xbm
@@ -0,0 +1,622 @@
+#define wl-logo_width 464
+#define wl-logo_height 160
+static char wl-logo_bits[] = {
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0xa2,0xa8,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x2e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x82,0x14,0x04,0x2a,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x7a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x28,0xa1,0xa2,0x80,0x02,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x80,0x77,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x24,0x85,0x08,0x10,0x2a,0x28,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x80,0x7a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x49,0x28,0xa5,0x8a,0x80,0x82,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x6d,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x40,0x24,0x45,0x48,0x40,0x2a,0x24,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa8,0x76,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x94,0x92,
+ 0x10,0x85,0x2a,0x80,0x08,0x11,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xb4,0x6b,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x48,0x24,0xa5,0x28,
+ 0x80,0x2a,0x42,0x44,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x6c,0x7d,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x22,0x49,0x12,0x82,0x2a,0x80,
+ 0x28,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x80,0xb7,0x6b,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x55,0x92,0xa4,0x54,0x00,0x25,0x02,0x54,
+ 0x0a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x40,0x6d,0x7d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x94,0x08,0x09,0x11,0x82,0xaa,0x88,0x90,0x00,0x10,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xa0,0xbb,0x6b,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x51,0x52,0x52,0xa4,0x28,0x00,0x22,0x44,0x24,0x21,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x68,0x6d,
+ 0x7d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x8a,0x8a,0x24,0x09,0x85,0xaa,0x08,0x11,0x02,0x84,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xb8,0xb7,0x6b,0x00,
+ 0x00,0x00,0x00,0x00,0x40,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0x29,0x29,
+ 0x89,0xa4,0x28,0x01,0xa2,0x84,0xa8,0x10,0x01,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x6f,0x6d,0x7d,0x00,0x00,0x00,
+ 0x00,0x00,0xa0,0x0a,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0xa4,0xa4,0x50,0x12,
+ 0x12,0xaa,0x08,0x50,0x00,0x82,0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x40,0xb5,0xdb,0x76,0x00,0x00,0x00,0x00,0x00,
+ 0x58,0x15,0x00,0x00,0x00,0x00,0x00,0x00,0x94,0x12,0x49,0x0a,0x49,0xa1,0x00,
+ 0x42,0x05,0x92,0x20,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0xc0,0xdf,0xb6,0x3b,0x00,0x00,0x00,0x00,0x00,0x6a,0x35,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x4a,0xaa,0x92,0xa2,0x20,0x0a,0xaa,0x28,0xa0,
+ 0x04,0x88,0x0c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x78,0xb5,0x6d,0x3d,0x00,0x00,0x00,0x00,0x00,0xad,0x6a,0x00,0x00,
+ 0x00,0x00,0x00,0x40,0x25,0x49,0x48,0x14,0x95,0x50,0x01,0x82,0x0a,0xa0,0x02,
+ 0x08,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xd6,0x6e,0xdb,0x36,0x00,0x00,0x00,0x00,0x00,0x55,0x6b,0x00,0x00,0x00,0x00,
+ 0x00,0x80,0xa8,0x24,0x95,0xa2,0x68,0x0f,0xa8,0x28,0xa0,0x0a,0x28,0x11,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x7a,0xdb,
+ 0xbd,0x3b,0x00,0x00,0x00,0x00,0xc0,0x6a,0xd5,0x00,0x00,0x00,0x00,0x00,0x50,
+ 0x95,0x92,0x42,0xfc,0x1f,0xc0,0x0f,0x82,0x0a,0x20,0x01,0x24,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0xd7,0x76,0x6b,0x1d,
+ 0x00,0x00,0x00,0x00,0x40,0xab,0xea,0x00,0x00,0x00,0x00,0x00,0x24,0x49,0x4a,
+ 0xe9,0x0f,0x00,0x00,0xe0,0x28,0x90,0x04,0x90,0x60,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x78,0xbd,0xdb,0xb6,0x1f,0x00,0x00,
+ 0x00,0x00,0x50,0x55,0xd5,0x00,0x00,0x00,0x00,0x00,0x90,0x24,0x29,0x7e,0x00,
+ 0x00,0x00,0x00,0x86,0x42,0x50,0x05,0x44,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0xd7,0xd7,0xb6,0x6d,0x1d,0x00,0x00,0x00,0x00,
+ 0xa0,0xda,0xf6,0x00,0x00,0x00,0x00,0x00,0xaa,0xaa,0xd4,0x07,0x00,0x00,0x00,
+ 0x00,0x30,0x10,0x02,0xa0,0x90,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0xe0,0xba,0x7a,0x6f,0xb7,0x0f,0x00,0x00,0x00,0x00,0x70,0xab,
+ 0x6a,0x00,0x00,0x00,0x00,0x80,0x4a,0x92,0xfa,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x45,0x11,0x09,0x82,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,
+ 0x01,0x5e,0xdf,0xd7,0xba,0xdb,0x0e,0x00,0x00,0x00,0x00,0x58,0x55,0x75,0x00,
+ 0x00,0x00,0x00,0x40,0x29,0x49,0x1e,0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x44,
+ 0x20,0x20,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0xfe,0xf5,
+ 0x6b,0xbd,0x6d,0x6d,0x07,0x00,0x00,0x00,0x00,0x56,0xad,0x75,0x00,0x00,0x00,
+ 0x00,0x50,0x4a,0xd5,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x10,0x04,0x09,
+ 0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xab,0x5e,0xbd,0x6b,
+ 0xb7,0xbb,0x07,0x00,0x00,0x00,0x00,0xaa,0x55,0x75,0x00,0x00,0x00,0x00,0x48,
+ 0xa5,0xf4,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x42,0x41,0x80,0x02,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xfe,0xeb,0x6e,0xdd,0xdb,0xed,
+ 0x03,0x00,0x00,0x00,0x00,0xb5,0xb6,0x3a,0x00,0x00,0x00,0x00,0xa0,0x54,0x3e,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x08,0x14,0x25,0x06,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xab,0xbe,0xf5,0x77,0xbd,0xda,0x01,0x00,
+ 0x00,0x00,0x80,0x56,0xd5,0x3a,0x00,0x00,0x00,0x00,0x54,0x92,0x0f,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x82,0x00,0x00,0x06,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x80,0xfe,0xeb,0xaf,0xda,0xd6,0xf7,0x00,0x00,0x00,0x00,
+ 0x80,0x6a,0x55,0x1d,0x00,0x00,0x00,0x00,0x95,0xca,0x03,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x28,0x92,0x28,0x05,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0xab,0xbe,0xda,0x6f,0x7b,0x7d,0x00,0x00,0x00,0x00,0xa0,0xad,
+ 0xaa,0x1e,0x00,0x00,0x00,0x00,0x55,0xf5,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x02,0x0c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0xfe,0xd7,0xbf,0xba,0xad,0x3b,0x00,0x00,0x00,0x00,0x60,0xd5,0xb6,0x0e,
+ 0x00,0x00,0x00,0x80,0x92,0x3c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x50,0x49,0x88,0x0c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xab,
+ 0xfa,0x6a,0xd7,0xd7,0x1e,0x00,0x00,0x00,0x00,0xa0,0x5a,0x55,0x0f,0x00,0x00,
+ 0x00,0xa0,0x54,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x10,
+ 0x20,0x0c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xfe,0x5f,0xff,
+ 0xbb,0x7a,0x0f,0x00,0x00,0x00,0x00,0x58,0xab,0xaa,0x07,0x00,0x00,0x00,0x90,
+ 0x92,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x90,0x84,0x82,0x08,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xac,0xea,0x55,0xed,0xde,
+ 0x07,0x00,0x00,0x00,0x00,0xa8,0xd5,0xb6,0x03,0x00,0x00,0x00,0x48,0xd5,0x01,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x08,0x18,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xf4,0x7f,0xbb,0xb7,0xeb,0x01,0x00,
+ 0x00,0x00,0x00,0x68,0x6d,0xd5,0x01,0x00,0x00,0x00,0xa4,0xf4,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x85,0x40,0x1a,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x5c,0xd5,0x6e,0x6d,0xfd,0x00,0x00,0x00,0x00,
+ 0x00,0xac,0xaa,0xea,0x00,0x00,0x00,0x00,0xa8,0x7a,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x12,0x18,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0xf0,0xbf,0xdb,0xbb,0x3f,0x00,0x00,0x00,0x00,0x00,0xd6,
+ 0x56,0x7b,0x00,0x00,0x00,0x00,0x2a,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x41,0x00,0x19,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0xb0,0xea,0xbd,0x6e,0x0f,0x00,0x00,0x00,0x00,0x00,0x5a,0xb5,0x3a,
+ 0x00,0x00,0x00,0x00,0x55,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x08,0x49,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xc0,0x7f,0xeb,0xf5,0x03,0x00,0x00,0x00,0x00,0x00,0x6b,0xab,0x1d,0x00,0x00,
+ 0x00,0x40,0xa5,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x22,0x00,0x11,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0xaa,
+ 0x5f,0xef,0x01,0x00,0x00,0x00,0x00,0x80,0x55,0xb5,0x0e,0x00,0x00,0x00,0x40,
+ 0xd5,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x24,
+ 0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7f,0xf5,0x7a,
+ 0x00,0x00,0x00,0x00,0x00,0x80,0xb6,0xad,0x07,0x00,0x00,0x00,0x50,0xe9,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x12,0x00,0x36,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa8,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xd4,0xaf,0x3f,0x00,0x00,
+ 0x00,0x00,0x00,0xc0,0x5a,0xd5,0x03,0x00,0x00,0x00,0xa0,0x7a,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x49,0x39,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0xff,0x1e,0x00,0x00,0x00,0x00,
+ 0x00,0x40,0xd5,0xea,0x01,0x00,0x00,0x00,0x28,0x3d,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x4a,0x00,0x35,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0xd4,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0x07,0x00,0x00,0x00,0x00,0x00,0x70,
+ 0x57,0xfd,0x00,0x00,0x00,0x00,0x54,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x10,0xa4,0x2a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x88,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0xfa,0x07,0x00,0x00,0x00,0x00,0x00,0xa0,0x6a,0x3b,
+ 0x00,0x00,0x00,0x00,0x54,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x40,0x41,0x75,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xa2,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0xdc,0x01,0x00,0x00,0x00,0x00,0x00,0xb0,0xb5,0x1e,0x00,0x00,
+ 0x00,0x00,0xaa,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x08,0xa4,0x6a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x94,0x01,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0xeb,0x01,0x00,0x00,0x00,0x00,0x00,0xd8,0xae,0x0f,0x00,0x00,0x00,0x00,
+ 0xa5,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x42,
+ 0x50,0x75,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc2,0x01,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xfe,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x54,0xd5,0x03,0x00,0x00,0x00,0x80,0xea,0x01,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x42,0x75,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x94,0x01,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x7b,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0xa8,0xf5,0x01,0x00,0x00,0x00,0x40,0xf5,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x58,0x35,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x40,0xc8,0x01,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x3e,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x6e,0xed,0x00,0x00,0x00,0x00,0x40,0x75,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x52,0x35,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x80,0xd2,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x60,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xb4,0x76,0x00,0x00,0x00,0x00,0xa0,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x14,0xa8,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x20,0xc4,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0xd0,0x0e,0x00,0x00,0x00,0x00,0x00,0x00,0xab,0x75,
+ 0x00,0x00,0x00,0x00,0x50,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x40,0x56,0x35,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x80,0xd2,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x18,
+ 0x00,0x00,0x00,0xf8,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0xdd,0x3a,0x00,0x00,
+ 0x00,0x00,0xa8,0x0e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0xa9,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0xc8,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x1c,0x00,0x00,
+ 0x00,0xa8,0x03,0x00,0x00,0x00,0x00,0x00,0x80,0x6a,0x3d,0x00,0x00,0x00,0x00,
+ 0x50,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x28,0xaa,0x1a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0xe5,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x24,0x0c,0x00,0x00,0x00,0xf4,
+ 0x03,0x00,0x00,0x00,0x00,0x00,0x80,0x56,0x1b,0x00,0x00,0x00,0x00,0xac,0x03,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x55,
+ 0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x94,0x70,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x0e,0x00,0x00,0x00,0xdc,0x01,0x00,
+ 0x00,0x00,0x00,0x00,0x40,0xb5,0x1d,0x00,0x00,0x00,0x00,0xa4,0x03,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x90,0x55,0x1d,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x75,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x06,0x00,0x00,0x00,0xf6,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0xa0,0xad,0x0e,0x00,0x00,0x00,0x00,0xda,0x01,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x84,0xaa,0x0e,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x48,0x32,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x92,0x07,0x00,0x00,0x00,0x7f,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xd0,0xd6,0x0e,0x00,0x00,0x00,0x00,0xea,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0xaa,0x0e,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x15,0x39,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x80,0x03,0x00,0x00,0x80,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0x6b,
+ 0x0f,0x00,0x00,0x00,0x80,0x75,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x48,0x55,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x40,0x1c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc4,
+ 0x01,0x00,0x00,0x80,0x3f,0x00,0x00,0x00,0x00,0x00,0x00,0x6a,0x5d,0x07,0x00,
+ 0x00,0x00,0x40,0x75,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x50,0x55,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x95,
+ 0x0e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xe0,0x00,0x00,
+ 0x00,0xc0,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0xbd,0xaa,0x07,0x00,0x00,0x00,
+ 0x80,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0xa0,0x2a,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x48,0x06,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x70,0x00,0x00,0x00,0x60,
+ 0x0f,0x00,0x00,0x00,0x00,0x00,0x40,0xd5,0x6d,0x03,0x00,0x00,0x00,0x40,0x1d,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,
+ 0x95,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x92,0x07,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x32,0x00,0x00,0x00,0xb0,0x0f,0x00,
+ 0x00,0x00,0x00,0x00,0xa0,0xaf,0xb6,0x03,0x00,0x00,0x00,0x40,0x1d,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0x95,0x01,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0xc9,0x03,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x80,0x01,0x00,0x00,0x38,0x00,0x00,0x00,0xd8,0x07,0x00,0x00,0x00,
+ 0x00,0x00,0xd8,0x76,0xd5,0x03,0x00,0x00,0x00,0xb0,0x0e,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x58,0xc5,0x01,0x00,0x00,
+ 0x00,0x00,0xa0,0x00,0x00,0x00,0xd2,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xd0,0x01,0x00,0x00,0x1d,0x00,0x00,0x00,0xe8,0x03,0x00,0x00,0x00,0x00,0x00,
+ 0xe8,0xab,0xdb,0x01,0x00,0x00,0x00,0x40,0x07,0x00,0x00,0x38,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x54,0xc5,0x01,0x00,0x50,0x01,0x00,
+ 0xa8,0x01,0x00,0x40,0xe9,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc4,0x00,
+ 0x00,0x20,0x0e,0x00,0x00,0x00,0xb8,0x03,0x00,0x00,0x00,0x00,0x00,0xde,0x5f,
+ 0xd5,0x01,0x00,0x00,0x00,0xb0,0x07,0x00,0x00,0x56,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x54,0xd1,0x00,0x00,0x8a,0x0a,0x00,0xe2,0x01,
+ 0x00,0x50,0x74,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x00,0x00,0x08,
+ 0x07,0x00,0x00,0x00,0xee,0x01,0x00,0x00,0x00,0x00,0x00,0xf5,0xea,0xee,0x01,
+ 0x00,0x00,0x00,0x94,0x03,0x00,0x00,0xfa,0x00,0x00,0x00,0x18,0x00,0x00,0x00,
+ 0x00,0x00,0x40,0x15,0x55,0xe1,0x00,0x00,0x69,0x1a,0x00,0xe8,0x00,0x00,0x80,
+ 0x3a,0x00,0x00,0x24,0x00,0x00,0x00,0x00,0x80,0x44,0x00,0x10,0x81,0x03,0x00,
+ 0x00,0x00,0xfd,0x00,0x00,0x00,0x00,0x00,0xc0,0x7b,0x55,0xd5,0x00,0x00,0x00,
+ 0x00,0xd4,0x03,0x00,0x00,0xd6,0x01,0x00,0x00,0x6a,0x00,0x00,0x00,0x00,0x00,
+ 0xe8,0x0f,0xaa,0x70,0x00,0xa0,0x94,0x1a,0x00,0x6b,0x00,0x00,0x50,0x1c,0x00,
+ 0x00,0x40,0x00,0x00,0x00,0x00,0x00,0x90,0x00,0x00,0x04,0x00,0x00,0x00,0x00,
+ 0xef,0x00,0x00,0x00,0x00,0x00,0xa0,0x1e,0xdd,0xb6,0x00,0x00,0x00,0x00,0xd4,
+ 0x01,0x00,0xff,0xed,0x01,0x00,0x80,0xf6,0x00,0x00,0x00,0x00,0x00,0xfd,0x00,
+ 0x55,0x74,0x00,0xa0,0x57,0x1a,0x80,0x48,0x00,0x00,0x28,0x0f,0x00,0x40,0xd5,
+ 0x00,0x00,0x00,0x00,0x40,0x42,0x01,0x44,0x20,0x00,0x0f,0x00,0x80,0x7a,0x00,
+ 0x00,0x00,0x00,0x00,0x68,0x8f,0x6a,0xdb,0x01,0x00,0x00,0x00,0xea,0x00,0xf0,
+ 0x7a,0xf7,0x01,0x00,0x80,0x6d,0x00,0x2c,0x00,0x00,0xc0,0x1e,0x00,0x15,0x31,
+ 0x00,0xc8,0xa1,0x1a,0x40,0x25,0x01,0x00,0x80,0x07,0x00,0x00,0xe0,0x00,0x00,
+ 0x15,0x00,0x10,0x00,0x02,0x00,0x01,0xf2,0x03,0x00,0xc0,0x7f,0x00,0x00,0x00,
+ 0x00,0x00,0xb4,0x07,0x5b,0xd5,0x01,0x00,0x00,0x00,0xea,0x00,0xd4,0xc7,0xed,
+ 0x00,0x00,0x60,0x7b,0x00,0xd7,0x00,0x00,0xb0,0x07,0x00,0x15,0x38,0x00,0x64,
+ 0x50,0x1d,0x20,0x95,0x02,0x00,0xd4,0x03,0x00,0x40,0x75,0x00,0x40,0x30,0x00,
+ 0x00,0x29,0x06,0x70,0xf0,0x7f,0x00,0x00,0xa0,0x3a,0x00,0x00,0x00,0x00,0x00,
+ 0xdb,0x83,0xd6,0xb6,0x01,0x00,0x00,0x00,0x75,0x00,0xff,0x40,0x7b,0x00,0x00,
+ 0xb0,0x7d,0xc0,0xf5,0x00,0x00,0xd4,0x03,0x80,0x4a,0x1d,0x00,0x1d,0x90,0x0e,
+ 0xa0,0x52,0x18,0x00,0xe0,0x01,0x00,0x20,0x70,0x00,0x00,0x3a,0x00,0x40,0x80,
+ 0x04,0x00,0x34,0x00,0x00,0x00,0xe0,0x3f,0x00,0x00,0x00,0x00,0x80,0xf6,0x80,
+ 0x6d,0x5b,0x03,0x00,0x00,0x00,0x75,0xc0,0x7a,0x80,0x5d,0x00,0x00,0xd0,0x3a,
+ 0x40,0xad,0x01,0x00,0xea,0x01,0x00,0x05,0x0c,0x80,0x0e,0x50,0x07,0x20,0x49,
+ 0x35,0x00,0x74,0x00,0x00,0x48,0x3d,0x00,0xa0,0x18,0x00,0xc0,0x04,0x0c,0x80,
+ 0x38,0x00,0x00,0x00,0x50,0x1d,0x00,0x00,0x00,0x00,0x80,0x7d,0xc0,0xb6,0xaa,
+ 0x03,0x00,0x00,0x00,0x35,0x60,0x1f,0x00,0xeb,0x01,0x00,0x6c,0x1f,0xb0,0xd6,
+ 0x01,0x00,0xed,0x00,0xc0,0x22,0x0e,0x40,0x0e,0xa0,0x03,0x90,0x2a,0x35,0x00,
+ 0x3a,0x00,0x00,0x10,0x1e,0x00,0x10,0x1e,0x00,0x20,0x40,0x08,0x00,0x18,0x00,
+ 0x00,0x00,0xf8,0x1f,0x00,0x00,0x00,0x00,0xf0,0x3e,0x40,0x5b,0xdb,0x06,0x00,
+ 0x00,0x00,0x3d,0xd8,0x1d,0x80,0x5e,0x03,0x00,0xb8,0x1d,0x68,0xdb,0x01,0x00,
+ 0x75,0x00,0x40,0x09,0x07,0x40,0x07,0xd4,0x01,0xc0,0xa5,0x38,0x00,0x39,0x00,
+ 0x00,0xa2,0x07,0x00,0x88,0x0e,0x00,0x08,0x12,0x19,0x00,0x1d,0x00,0x00,0x00,
+ 0x6c,0x1d,0x00,0x00,0x00,0x00,0x50,0x0f,0x40,0xed,0xad,0x06,0x00,0x00,0xc0,
+ 0x1a,0x74,0x0f,0x00,0xb5,0x07,0x00,0xd6,0x0e,0xb4,0xad,0x01,0x80,0x75,0x00,
+ 0x40,0x81,0x03,0x40,0x03,0xf5,0x00,0x04,0x94,0x1e,0x00,0x1c,0x00,0x00,0xc8,
+ 0x03,0x00,0xa2,0x07,0x00,0x00,0x00,0x18,0x20,0x0c,0x00,0x00,0x00,0xd8,0x0f,
+ 0x00,0x00,0x00,0x00,0xde,0x07,0x80,0xab,0xea,0x0e,0x00,0x00,0x40,0x1d,0xde,
+ 0x07,0x80,0xed,0x06,0x00,0x6d,0x0f,0x72,0xf5,0x01,0xc0,0x3a,0x00,0xa0,0xa4,
+ 0x03,0xa0,0x43,0x3c,0x00,0x00,0x50,0x0e,0x80,0x0e,0x00,0x00,0xe2,0x00,0x00,
+ 0xc4,0x01,0x00,0x00,0x90,0x1c,0x00,0x0e,0x00,0x00,0x00,0xfe,0x0e,0x00,0x00,
+ 0x00,0x00,0xea,0x03,0x40,0xb5,0x36,0x0b,0x00,0x00,0x80,0x0e,0x74,0x07,0x40,
+ 0x5c,0x0f,0x00,0xdb,0x06,0xc8,0x96,0x01,0xa0,0x36,0x00,0x50,0x81,0x01,0x90,
+ 0xaa,0x0f,0x00,0x00,0x80,0x07,0x00,0x0d,0x00,0x00,0x74,0x00,0x00,0xe0,0x00,
+ 0x00,0x00,0x00,0x1c,0x00,0x06,0x00,0x00,0x00,0x55,0x0f,0x00,0x00,0x00,0xc0,
+ 0xfb,0x01,0x80,0x5d,0xdb,0x1d,0x00,0x00,0xe0,0x0e,0xdf,0x07,0x40,0xf0,0x0d,
+ 0x80,0xb6,0x07,0x00,0xeb,0x01,0xa0,0x3a,0x00,0xa8,0xe8,0x00,0x50,0xff,0x00,
+ 0x00,0x00,0xb0,0x03,0x00,0x0c,0x00,0x00,0x71,0x00,0x00,0x75,0x00,0x00,0x00,
+ 0x40,0x0c,0x40,0x06,0x00,0x00,0x00,0xff,0x0d,0x00,0x00,0x00,0xa0,0x76,0x00,
+ 0xc0,0xea,0x55,0x15,0x00,0x00,0x00,0x8f,0x75,0x07,0x20,0xa8,0x0e,0x80,0x6d,
+ 0x07,0x80,0xb5,0x01,0xb0,0x35,0x00,0xa6,0xe2,0x00,0xc8,0x03,0x00,0x00,0x00,
+ 0xc0,0x01,0x80,0x0a,0x00,0x00,0x34,0x00,0x80,0x30,0x00,0x00,0x00,0x00,0x0e,
+ 0x10,0x06,0x00,0x00,0x80,0xb6,0x0f,0x00,0x00,0x00,0x68,0x3f,0x00,0x40,0xaf,
+ 0xb6,0x3a,0x00,0x00,0xe0,0x86,0xbe,0x07,0x10,0xdc,0x0f,0x80,0xb6,0x03,0x80,
+ 0x5e,0x01,0x50,0x6d,0x00,0xd1,0x72,0x00,0xa8,0x01,0x00,0x00,0x00,0xe8,0x00,
+ 0x40,0x12,0x00,0x80,0x32,0x00,0x20,0x34,0x00,0x00,0x00,0x40,0x0e,0x00,0x04,
+ 0x00,0x00,0xc0,0xef,0x0e,0x00,0x00,0x00,0xdc,0x0e,0x00,0x00,0xb5,0xda,0x6d,
+ 0x00,0x00,0x30,0x87,0xd7,0x06,0x0c,0xb4,0x0e,0xd0,0xdb,0x03,0x00,0xd5,0x03,
+ 0xd4,0x6a,0x80,0xaa,0x3a,0x00,0x50,0x03,0x00,0x40,0x00,0x68,0x00,0x08,0x29,
+ 0x00,0x40,0x60,0x00,0x00,0x31,0x00,0x00,0x00,0x00,0x07,0x80,0x0c,0x00,0x00,
+ 0x80,0xba,0x1d,0x00,0x00,0x00,0xeb,0x07,0x00,0x80,0x55,0xab,0x6a,0x00,0x00,
+ 0xc8,0xc3,0xfa,0x0f,0x15,0x7a,0x0f,0x44,0x6d,0x07,0x80,0x6b,0x03,0x52,0xab,
+ 0x69,0xa9,0x1a,0x00,0xa8,0x06,0x00,0x00,0x00,0x6a,0x00,0xa0,0x04,0x00,0x80,
+ 0x8a,0x00,0xa8,0x24,0x00,0x08,0x09,0x00,0x03,0x20,0x10,0x00,0x00,0xe0,0xef,
+ 0x1f,0x00,0x00,0x40,0xdd,0x03,0x00,0x00,0xde,0xb5,0xd6,0x00,0x00,0x50,0xc3,
+ 0x5f,0xf5,0x0b,0xd6,0x06,0x73,0xb7,0x15,0x00,0x5d,0x43,0x59,0xad,0xaa,0xa8,
+ 0x2a,0x00,0x91,0x0a,0x00,0xa8,0x00,0x68,0x80,0x5a,0xaa,0x04,0x20,0x51,0x00,
+ 0x00,0x10,0x80,0x44,0x18,0xa0,0x03,0x08,0x01,0x00,0x08,0x60,0xbb,0x3a,0x00,
+ 0x00,0xa0,0xf7,0x00,0x00,0x00,0xb3,0xae,0xb5,0x01,0x00,0xd0,0xa3,0xea,0x5f,
+ 0x07,0xba,0xcf,0x8c,0xda,0x0e,0x80,0xaa,0xad,0x6f,0xb5,0x6a,0x51,0xab,0xaa,
+ 0x56,0x29,0x00,0x42,0x40,0x65,0x20,0x0e,0x21,0x49,0x24,0x04,0x85,0x4e,0x45,
+ 0x90,0x01,0x12,0xc0,0x01,0x00,0x10,0x00,0x07,0xd0,0xee,0x3f,0x00,0x00,0x70,
+ 0x7d,0x00,0x00,0x00,0xdc,0x6a,0xad,0x01,0x00,0xac,0xe1,0xbf,0xea,0x83,0xef,
+ 0xba,0xe7,0xaf,0x07,0x80,0x6d,0xf5,0xab,0x55,0x75,0x54,0x55,0xd5,0x53,0xa5,
+ 0xaa,0x3c,0x80,0xaa,0x84,0x87,0x4a,0x22,0x5d,0xa9,0x20,0x2f,0x10,0xe5,0x90,
+ 0x30,0xc0,0x00,0x44,0x84,0x80,0x03,0xf0,0xbf,0x6a,0x00,0x00,0xbe,0x1f,0x00,
+ 0x00,0x00,0x54,0xb5,0x55,0x03,0x00,0xd4,0x41,0xd5,0xff,0x81,0x5a,0xef,0x41,
+ 0xf5,0x03,0x00,0x56,0xeb,0xa8,0x6a,0xbb,0x68,0x55,0xd5,0x59,0x55,0x49,0x1e,
+ 0x20,0x49,0xd5,0x43,0x28,0x49,0x0e,0x04,0x94,0x03,0x45,0x70,0x00,0x28,0x68,
+ 0x00,0x10,0x00,0xe8,0x01,0xa8,0xea,0xff,0x00,0x80,0x6a,0x0f,0x00,0x00,0x00,
+ 0xe8,0xae,0xb6,0x06,0x00,0xe8,0xe1,0x7f,0xf5,0x80,0xed,0xfa,0x60,0xdb,0x01,
+ 0x00,0xeb,0x7a,0xd0,0x56,0x1d,0x50,0x55,0xf5,0x40,0x55,0x55,0x0f,0x80,0x24,
+ 0xe9,0x01,0x45,0x92,0x47,0xa9,0xc2,0xa1,0x10,0x3d,0xa0,0x42,0x30,0x00,0x00,
+ 0x11,0x71,0x00,0xf8,0x7f,0x55,0x03,0xd0,0xdf,0x03,0x00,0x00,0x00,0xb0,0xd5,
+ 0xaa,0x0d,0x00,0xd4,0x40,0xd5,0x3f,0x40,0x77,0x3f,0xa0,0xed,0x00,0x00,0x5d,
+ 0x3d,0x50,0x5b,0x0f,0xa5,0xaa,0x7a,0x50,0x95,0xaa,0x07,0x50,0x95,0x74,0x80,
+ 0x12,0xc9,0x03,0x22,0xf0,0x00,0x44,0x0e,0x00,0x10,0x1d,0x00,0x40,0x00,0x3c,
+ 0x00,0xb0,0xd5,0xff,0x1d,0x7e,0xf5,0x01,0x00,0x00,0x00,0x50,0x6d,0x6d,0x0d,
+ 0x00,0xea,0xc0,0xff,0x1e,0xc0,0xad,0x1f,0xc0,0x76,0x00,0x00,0xaa,0x1f,0xb0,
+ 0xaa,0x57,0x50,0x55,0x3d,0xa0,0x54,0xd2,0x01,0x50,0x52,0x3a,0x00,0xa8,0xe4,
+ 0x80,0x88,0x7a,0x40,0x81,0x07,0x20,0x42,0x0e,0x00,0x00,0x49,0x0e,0x00,0x7c,
+ 0x7f,0x55,0xef,0xd5,0x7e,0x00,0x00,0x00,0x00,0xc0,0xb6,0xb6,0x1a,0x00,0xf4,
+ 0x80,0xaa,0x07,0x80,0xf6,0x07,0x80,0x3d,0x00,0x00,0xb6,0x07,0x40,0xed,0x83,
+ 0x7c,0xab,0x0e,0x40,0x53,0xf5,0x00,0x20,0xa9,0x1e,0x00,0x04,0x7a,0x00,0x44,
+ 0x1e,0x00,0xd4,0x03,0x80,0x88,0x07,0x00,0x00,0x80,0x07,0x00,0xd4,0xdb,0xff,
+ 0x5b,0xbb,0x3d,0x00,0x00,0x00,0x00,0x60,0xd5,0xd5,0x36,0x00,0x6b,0x00,0xfe,
+ 0x01,0x80,0xfb,0x01,0xc0,0x1e,0x00,0x00,0xec,0x03,0x80,0xf5,0x14,0x1c,0xd5,
+ 0x07,0x80,0x54,0x3d,0x00,0x40,0x45,0x0f,0x00,0x54,0x1f,0x00,0x92,0x0f,0x80,
+ 0xf2,0x00,0x00,0xf0,0x01,0x00,0x40,0xf0,0x01,0x00,0xfc,0x76,0xab,0xf6,0xee,
+ 0x0f,0x00,0x00,0x00,0x00,0x40,0x5b,0x56,0x2b,0x00,0x75,0x00,0x00,0x00,0x00,
+ 0x3e,0x00,0x80,0x0f,0x00,0x00,0xf8,0x00,0x00,0x3f,0x40,0x0f,0xfe,0x01,0x00,
+ 0xaa,0x0f,0x00,0x00,0xd5,0x03,0x00,0xe0,0x03,0x00,0xf8,0x01,0x00,0x3e,0x00,
+ 0x00,0x7e,0x00,0x00,0x00,0x7f,0x00,0x00,0xb4,0xdf,0xfe,0xbd,0xb7,0x07,0x00,
+ 0x00,0x00,0x00,0x80,0xad,0x5b,0x75,0x00,0x6a,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x12,0x07,0x00,0x00,0x00,0xf0,0x01,
+ 0x00,0x00,0xfc,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0xec,0xfa,0x57,0xd7,0xfa,0x01,0x00,0x00,0x00,
+ 0x00,0x00,0xb5,0x6a,0xd5,0x00,0x7a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x80,0xc0,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0xbc,0x5f,0xfd,0xbd,0x7f,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x54,0x55,0xab,0x81,0x35,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0xea,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0xf4,0xea,0x57,0xef,0x3d,0x00,0x0c,0x03,0x00,0x00,0x00,0xab,0x55,
+ 0x55,0x03,0x3a,0x00,0x00,0x00,0x00,0x18,0x1c,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x40,0x73,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x7c,0x00,
+ 0x00,0xc0,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xdc,0x7f,0xfd,0x75,0x0f,0x00,0x08,0xe1,0xef,0x1f,0x80,0x57,0xdb,0xed,0xf3,
+ 0x77,0x10,0xfe,0xf8,0x00,0x38,0x1c,0xfe,0x70,0xe0,0xc0,0x00,0x03,0x7f,0x20,
+ 0x7a,0x90,0x7f,0xfe,0xf8,0xc0,0x0f,0x03,0x0e,0x7f,0x00,0xc6,0x30,0x04,0x40,
+ 0x00,0x82,0xc0,0x80,0x83,0x83,0x3f,0x86,0x00,0x00,0x00,0x00,0x00,0xf4,0xd6,
+ 0x6f,0xef,0x03,0x00,0x98,0xa1,0x44,0x0b,0x80,0x51,0x67,0x3a,0x86,0x70,0x10,
+ 0x4a,0x28,0x01,0x28,0x06,0x4a,0xac,0x58,0xc1,0xc1,0x0d,0x4b,0x12,0xdb,0x10,
+ 0x2d,0x96,0x28,0x63,0x80,0x83,0x13,0x49,0x00,0x83,0x31,0x04,0x40,0x00,0xc2,
+ 0xe0,0xe0,0x46,0x8d,0x25,0x86,0x00,0x00,0x00,0x00,0x00,0xbc,0x7d,0xb5,0xfd,
+ 0x00,0x00,0x70,0x20,0x00,0x03,0x80,0xa4,0x55,0x0c,0x8a,0x74,0x10,0x02,0x08,
+ 0x01,0x28,0x1a,0x02,0x04,0x08,0x40,0x21,0x00,0x01,0x08,0x43,0x11,0x04,0x02,
+ 0x08,0x22,0x80,0xc2,0x00,0x01,0x00,0x01,0x51,0x04,0xc0,0x07,0xc6,0xa0,0x30,
+ 0x40,0x80,0x00,0x8a,0x00,0x00,0x00,0x00,0x00,0xd0,0xdb,0xff,0x3f,0x00,0x00,
+ 0x40,0xe0,0x03,0x01,0x40,0x8c,0x4a,0x4d,0x9b,0xd9,0x1f,0x3e,0xf8,0x01,0x58,
+ 0x0b,0x3e,0x78,0xf0,0x20,0x21,0x00,0x1f,0xc1,0x43,0x13,0x0c,0x3e,0xf8,0xe1,
+ 0x83,0x44,0x00,0x1f,0x00,0x01,0x91,0x04,0x40,0x05,0x24,0x21,0x11,0xc0,0x83,
+ 0x0f,0x92,0x00,0x00,0x00,0x00,0x00,0x70,0xf7,0xaa,0x0f,0x00,0x00,0x20,0x20,
+ 0x01,0x03,0xc0,0x0b,0x5b,0xaa,0xf6,0x58,0x00,0x12,0x88,0x40,0x48,0x19,0x02,
+ 0xa0,0x41,0xa3,0x22,0x0e,0x03,0xe8,0x43,0x14,0x0c,0x12,0x98,0x20,0xc0,0x44,
+ 0x00,0x0b,0x00,0x81,0x11,0x05,0x40,0x00,0xaa,0x30,0x11,0x00,0x8c,0x04,0xa2,
+ 0x00,0x00,0x00,0x00,0x00,0xe0,0xbd,0xff,0x01,0x00,0x00,0x20,0x20,0x00,0x03,
+ 0x60,0x10,0x69,0x4c,0xa2,0x59,0x10,0x02,0x88,0xa0,0x9a,0x18,0x02,0x00,0x01,
+ 0xb2,0x26,0x08,0x11,0x75,0x42,0x14,0x0c,0x06,0x88,0x61,0x40,0xcd,0x10,0x01,
+ 0x00,0x83,0x10,0x06,0x40,0x00,0x98,0x50,0x33,0x04,0x88,0x01,0xc2,0x00,0x00,
+ 0x00,0x00,0x00,0x80,0x6f,0x3f,0x00,0x00,0x00,0x20,0xe0,0x0f,0x03,0x20,0x10,
+ 0xd2,0xb2,0x93,0x5c,0x10,0xfe,0x08,0x29,0x99,0x08,0xfe,0xdc,0xb8,0x11,0xc4,
+ 0x0d,0x6f,0x3c,0x42,0x18,0x0c,0xfe,0x08,0x21,0x20,0x88,0x1f,0x7f,0x00,0xfc,
+ 0x10,0x06,0x40,0x1f,0x92,0x09,0xe2,0xc7,0x8d,0x3f,0x82,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0xfe,0x03,0x00,0x00,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x2a,0x4a,
+ 0xd0,0x18,0x10,0x40,0x00,0x95,0x0a,0x10,0x50,0x40,0x80,0x00,0x00,0x00,0x41,
+ 0x0e,0x02,0x00,0x00,0x90,0x00,0x00,0x00,0x00,0x04,0x48,0x00,0x00,0x20,0x00,
+ 0x40,0x09,0x00,0x00,0x00,0x00,0x01,0x24,0x04,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0xaa,0x54,0x1c,
+ 0x00,0x00,0x00,0xa0,0x44,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x07,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0x95,0xaa,0x0e,0x00,0x00,
+ 0x00,0xad,0x2a,0x09,0x00,0x00,0x00,0x00,0x00,0x00,0xe1,0x01,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x6a,0x55,0x0d,0x00,0x00,0x80,0x52,
+ 0x92,0x14,0x00,0x00,0x00,0x00,0x00,0xa0,0x78,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x40,0xad,0x5a,0x0d,0x00,0x00,0x00,0x4a,0xa9,0x2a,
+ 0x00,0x00,0x00,0x00,0x00,0x14,0x3e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x55,0xab,0x0e,0x00,0x00,0x80,0x2a,0x95,0x64,0x00,0x00,
+ 0x00,0x00,0x80,0x42,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x6a,0x55,0x0d,0x00,0x00,0x00,0x55,0xa5,0x52,0x00,0x00,0x00,0x00,
+ 0x00,0xd0,0x03,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xac,0xb5,0x0d,0x00,0x00,0x00,0xa4,0x54,0xaa,0x00,0x00,0x00,0x00,0xa0,0xfa,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xb0,0xaa,
+ 0x1a,0x00,0x00,0x00,0x95,0x4a,0x49,0x01,0x00,0x00,0x00,0x14,0x3d,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0xad,0x1a,0x00,
+ 0x00,0x00,0x54,0x29,0xa5,0x02,0x00,0x00,0x80,0xc2,0x0f,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x55,0x35,0x00,0x00,0x00,
+ 0x50,0xa5,0x54,0x0a,0x00,0x00,0x52,0xf4,0x01,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0xda,0x6a,0x00,0x00,0x00,0x90,0x94,
+ 0x92,0x12,0x00,0x40,0x08,0x7d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x55,0x6b,0x00,0x00,0x00,0x40,0x55,0x4a,0x49,
+ 0x92,0x94,0xd2,0x0f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x56,0xd5,0x00,0x00,0x00,0x80,0x52,0xa9,0x54,0x49,0x22,
+ 0xf9,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0xa8,0xda,0x00,0x00,0x00,0x00,0xae,0x4a,0x92,0x2a,0x55,0x1f,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xd8,0xaa,0x01,0x00,0x00,0x00,0x60,0xa5,0x4a,0xa4,0xf8,0x03,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0xd5,
+ 0x01,0x00,0x00,0x00,0x00,0xbc,0xa9,0xfa,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa8,0x56,0x03,0x00,
+ 0x00,0x00,0x00,0x00,0xf8,0x1f,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xb0,0xaa,0x03,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xd0,0xaa,0x02,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x58,0x55,0x07,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x50,0xad,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0xa8,0xb5,0x06,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,
+ 0x55,0x0d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa8,0xaa,0x0e,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x68,0x55,0x0d,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x50,0xab,0x0a,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x5a,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x50,0xd5,0x1a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x60,0x55,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xa0,0xaa,0x1a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0x56,
+ 0x35,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0xaa,0x3a,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x55,0x35,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,0xda,0x3a,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x80,0x55,0x35,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x80,0xaa,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x40,0x55,0x35,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0xab,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x5a,0x35,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xaa,0x3a,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x6b,0x35,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xaa,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0xaa,0x3a,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x54,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x68,0x1d,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xa0,
+ 0x1e,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x0f,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
+ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
diff --git a/etc/icons/wl-logo.xpm b/etc/icons/wl-logo.xpm
new file mode 100644
index 0000000..0d5b307
--- /dev/null
+++ b/etc/icons/wl-logo.xpm
@@ -0,0 +1,438 @@
+/* XPM */
+static char *wl-logo4[] = {
+/* width height num_colors chars_per_pixel */
+"   491   176      255            2",
+/* colors */
+".. c None",
+".# c #030404",
+".a c #506cc2",
+".b c #1f4269",
+".c c #ce9adc",
+".d c #235bb4",
+".e c #926474",
+".f c #5c556a",
+".g c #887dcc",
+".h c #39414c",
+".i c #0d263c",
+".j c #836993",
+".k c #ad81bc",
+".l c #3d5684",
+".m c #202624",
+".n c #21508c",
+".o c #ba758e",
+".p c #61618f",
+".q c #f1b9d4",
+".r c #8073b4",
+".s c #4462ac",
+".t c #b78ed4",
+".u c #143654",
+".v c #2c4159",
+".w c #db8dac",
+".x c #474c5f",
+".y c #6c73c4",
+".z c #97719e",
+".A c #3162bc",
+".B c #615056",
+".C c #17232b",
+".D c #415c94",
+".E c #7e6074",
+".F c #6569a7",
+".G c #dda7dc",
+".H c #a787d2",
+".I c #0d1515",
+".J c #c37c9c",
+".K c #273338",
+".L c #2e4e7c",
+".M c #1d497c",
+".N c #315894",
+".O c #5062a0",
+".P c #c88cc4",
+".Q c #51494c",
+".R c #aa749c",
+".S c #9f7cbd",
+".T c #71607f",
+".U c #e09fcc",
+".V c #625b78",
+".W c #3d4656",
+".X c #8f6c94",
+".Y c #505064",
+".Z c #2a302e",
+".0 c #b384bc",
+".1 c #817acc",
+".2 c #1e3445",
+".3 c #2b476c",
+".4 c #1f2b2e",
+".5 c #121715",
+".6 c #d89fdb",
+".7 c #295eb6",
+".8 c #ce819e",
+".9 c #a278ab",
+"#. c #4d5b89",
+"## c #f4bfd6",
+"#a c #eab4dc",
+"#b c #445378",
+"#c c #6771c4",
+"#d c #6170c4",
+"#e c #4a5677",
+"#f c #2356a4",
+"#g c #2c3b45",
+"#h c #305590",
+"#i c #5967ac",
+"#j c #c996d7",
+"#k c #ab6e84",
+"#l c #454344",
+"#m c #b886c1",
+"#n c #5d6bb4",
+"#o c #233f58",
+"#p c #152d42",
+"#q c #836fa4",
+"#r c #7b79cc",
+"#s c #26476d",
+"#t c #9d82cc",
+"#u c #6c5b71",
+"#v c #2858a5",
+"#w c #6a679d",
+"#x c #eda9c6",
+"#y c #33404c",
+"#z c #7373c3",
+"#A c #795b67",
+"#B c #746aa4",
+"#C c #0f1f2c",
+"#D c #1a2d40",
+"#E c #50609a",
+"#F c #060e14",
+"#G c #9582cc",
+"#H c #79699c",
+"#I c #294e7c",
+"#J c #d082a0",
+"#K c #4a68bc",
+"#L c #c195d4",
+"#M c #a073a0",
+"#N c #273844",
+"#O c #74668f",
+"#P c #9479bc",
+"#Q c #223d54",
+"#R c #e79dbc",
+"#S c #d39ad3",
+"#T c #9f697c",
+"#U c #8f7dcc",
+"#V c #69618c",
+"#W c #8f71a4",
+"#X c #c191d4",
+"#Y c #193d64",
+"#Z c #435073",
+"#0 c #3c66bc",
+"#1 c #7b5b66",
+"#2 c #e4a7d4",
+"#3 c #0a1b2b",
+"#4 c #ca84ac",
+"#5 c #394e6f",
+"#6 c #375da5",
+"#7 c #5964a1",
+"#8 c #ad7aac",
+"#9 c #a57eb9",
+"a. c #4b5985",
+"a# c #f1b4ce",
+"aa c #e295b4",
+"ab c #d587a5",
+"ac c #f1b8d4",
+"ad c #b7738c",
+"ae c #363d44",
+"af c #282e2c",
+"ag c #8d657c",
+"ah c #181e1c",
+"ai c #5d4f54",
+"aj c #946e95",
+"ak c #f7cbde",
+"al c #88606e",
+"am c #e6a1c4",
+"an c #37475c",
+"ao c #715760",
+"ap c #e7b1dc",
+"aq c #3b3d3c",
+"ar c #14232c",
+"as c #bb80ac",
+"at c #3662bb",
+"au c #c67b97",
+"av c #f3b9d2",
+"aw c #0c0f0e",
+"ax c #1a467c",
+"ay c #3f60ac",
+"az c #5d5f8b",
+"aA c #113254",
+"aB c #c489c4",
+"aC c #7470b4",
+"aD c #2c5594",
+"aE c #3b5484",
+"aF c #b77a9f",
+"aG c #eca7c4",
+"aH c #645871",
+"aI c #435784",
+"aJ c #4a64ac",
+"aK c #183654",
+"aL c #1a201e",
+"aM c #214a7d",
+"aN c #ce90c4",
+"aO c #223644",
+"aP c #484546",
+"aQ c #676db5",
+"aR c #b18ad4",
+"aS c #26446c",
+"aT c #295292",
+"aU c #385284",
+"aV c #9a79b9",
+"aW c #956576",
+"aX c #855f6c",
+"aY c #cd809e",
+"aZ c #2e3537",
+"a0 c #565d8b",
+"a1 c #515675",
+"a2 c #ae6f86",
+"a3 c #21313c",
+"a4 c #866c9c",
+"a5 c #a26a7e",
+"a6 c #5a5874",
+"a7 c #3c5a94",
+"a8 c #222826",
+"a9 c #61649b",
+"b. c #4166bc",
+"b# c #153a64",
+"ba c #2c445f",
+"bb c #9a74a6",
+"bc c #6a545c",
+"bd c #1d4d8c",
+"be c #305aa3",
+"bf c #5165ab",
+"bg c #c692d0",
+"bh c #ae78a4",
+"bi c #71638b",
+"bj c #dfa4dc",
+"bk c #3f495c",
+"bl c #1e3954",
+"bm c #504950",
+"bn c #bd89c5",
+"bo c #5c6ec4",
+"bp c #274c7c",
+"bq c #715e7c",
+"br c #285bb4",
+"bs c #324359",
+"bt c #7675c6",
+"bu c #785e74",
+"bv c #716db1",
+"bw c #8b75b4",
+"bx c #f3bcd4",
+"by c #354a67",
+"bz c #12293c",
+"bA c #3864bc",
+"bB c #4b5372",
+"bC c #7c6690",
+"bD c #333736",
+"bE c #d49fdc",
+"bF c #1f282c",
+"bG c #546fc4",
+"bH c #d09ddc",
+"bI c #9f697c",
+"bJ c #c27994",
+"bK c #8575ba",
+"bL c #bb92d4",
+"bM c #485064",
+"bN c #19272c",
+"bO c #475f9c",
+"bP c #aa8ad4",
+"bQ c #c880a1",
+"bR c #29363c",
+"bS c #315284",
+"bT c #9d7ec0",
+"bU c #535266",
+"bV c #313634",
+"bW c #304b6d",
+"bX c #131816",
+"bY c #daa3dc",
+"bZ c #f6c8dc",
+"b0 c #b7738c",
+"b1 c #f0b1cc",
+"b2 c #1b3144",
+"b3 c #7e6da1",
+"b4 c #d486a4",
+"b5 c #ab6e84",
+"b6 c #927fcc",
+"b7 c #855f6c",
+"b8 c #e7add9",
+/* pixels */
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................................................................................................................................................................................................................................................................aRaRaRaRaRaRaR.t.t.t..............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..............................................................................................................................................b.b.#0.................................................................................................................................................................................................................................................................................................H.H.HbPaRaRaRaRaR.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"............................................................................................................................................b.#0b.ay.#.....................................................................................................................................................................................................................................................................................H.HaRaRaRaRaR.HaRaRaRaRaRaRaRaR.t.t.taR.t.t.t.t.t.t#X#X#X#X#X.t.t.t........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..........................................................................................................................................#0b.b.b.#0#Faw.............................................................................................................................................................................................................................................................................H.H.H.HaR.H.HbPaRaRaRaRaRbP.t.taR.t.taR.t.t.t.t.t.t#X#X#X.t.t.t.t#X#X#X#X#X#X.t#X................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"........................................................................................................................................bAb.b.b.b.b.bz.#....................................................................................................................................................................................................................................................................#t#t.H.H.H.H.0.HaRbP.HbPaRbP.HaRaRaRbPaRaRaR.taRbn.tbn.t.t.t.t.t.t#X#X#X.t#X#X.t#X#Xbg#X#X#X.0............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................#0b.#0b.b.b.b.bz.#................................................................................................................................................................................................................................................................#t.H.H.H.H.H.HbPbP.H.H.0bP.0.HaRaRaRaRaRaR.taR.taR.t.t.t.t.t.t.t.t.tbL.t.t.t#X#X#X#X#X#X#X#X#X#X#L#Lbg#9......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................b.b.#0bAb.b.b.b.#K.b.#..........................................................................................................................................................................................................................................................#t.H.H.H.H.H#t.H.H.H.H.H.HbP.HbPaR.HaR.HaRaRaRaRaRaR.taR.taR.tbn.t.t.t.t.t.t#X#X.t.t.t#X.t#X#X#X#L#Xbgbg#L#j#LbgaV..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................bAbAbAb.b.#0#0b.#0b.bp.#......................................................................................................................................................................................................................................................#t#t.H#t#t#t.H.H.H.H.H.H.HaRbP.HaR.HbPaRbPaRbPaRaRbP.taRaR.taR.t.t.t.t.t.t#X.t#X.t.t#X#X#X#X#X#X#X#X#X#j#X#Lbg#L#j#j#j#L#8..............................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..............................................................................................................................b.#0b.bAb.bAb.#0b.b.b.bp.#................................................................................................................................................................................................................................................#G#t#t#t#t#t.H.H#t#t.H#t.H.H.H.H.HaR.HaR.HaR.0bPaRaRaRaRaRaRaRaR.t.taR.t.t.t.t.t.t.t.t#X.t.t#X.t#X.t#X#X#X#X#X#X#L#X#X#L#j#j#j#L.kbC..........................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"............................................................................................................................#0bAbAbAb.#0b.b.b.b.#0#K.b.#............................................................................................................................................................................................................................................b6#t#t#t#t.H#t.H#t#t.H.H.H.H.H.0.H.H.0.HaR.HaRbPbPaRaRbPaRaRaRbP.t.taRaR.t.t.t.t.t.t#X.t#X.t#X#X.t#X#X#XbL#X#X#X#L#X#X#j#j#j#L#j#j#j#j.caj........................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"........................................................................................................................bAbA.s#0b.#0bAb.bAb.b.b.b.#0bz.#........................................................................................................................................................................................................................................#t#tb6#t#t#t#t#t#t#t.H#t.H#t.H.H.H.H.H.H.H.HbP.H.HaR.H.H.0bPaRaR.taRaR.t.t.taRbnbn.t.t.t.t.t#X.t.t#X#X.t#X#XbL#X#X#X#X#X#X#X#X#Xbg#X#j#j#j#j#L.k.Y....................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................bAbAbA#0bAbAbAb.#0b.#0#0#0#0#Kbz.#......................................................................................................................................................................................................................................#t#G#t#t#t#G#t#t.H#t.H#t.H#t.H.H#t.H.H.HbP.H.H.HaRaRbPaRaRbPaRaRaRaRaRbPaRaRaR.t.t.t.t.t.t#X.t.t#X#X.t.t#X#X.t#X#X#X#X#j#j#j#j#j#j#j#j#j#j#L.c.c#j#ja6..................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................bAbAbAbA#0b.b.#0bAb.b.b.b.b.b.#0bz.#..................................................................................................................................................................................................................................#tb6b6#t#tb6#t#t#t#t#t#t#t#t.H.H#t.H#t.H.H.HbPaRbP.H.H.HbPaRaRaRaRbPaRaRbnbP.t.t.t.t.t.t.t.t.t.t.t.t.t#X#XbL.t#X#X#X#X#X#X#X#X#X#X#L#L#j#L#j#j#j#j.c#j#j.cbC................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................atbAbAbA#0bAbAbAbAbAb.#0#0#0b.b.#0#K#3.#..............................................................................................................................................................................................................................b6bTb6#t#tb6#G#t#t#G#t#t.H#t.H.H#t#t.H.H.H.H.H.H.0.H.HbPaRaRaRbPbPbPaRaRaRbP.t.taRaRaR.t.t.t.t.t.t#X.t.t#X.t.t.t#X#X#X#X#X#X#X#X#X#L#j#X#j#jbg#j#j#j#j#j#j.c#j.cbb#g............................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..............................................................................................................bA.AbAbAbAbAbAb.b.b.#0bAbAb.#0#0b.b.b..#.#..............................................................................................#d#d#c......................................................................................................................b6b6b6b6b6b6#tb6#tb6#t#t#t#t#t#t#t.H.H.H.H.H.H.H.H.H.H.H.0.H.H.H.0.H.0bPaRaR.tbPaRaR.t.taRaRbnaR.t.t.t#X#X.t#X#X#X#X#X.t#XbL#X#X#X#X#X#X#j#X#X#j#L#j#L#j#j.c#j#j#j.c#jasa3..........................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...........................................................................................................AbAbAbAbAbA.sb.bAbAbAbAbAb.b.b.b.b.b.#0#K.#.#..........................................................................................#d#c#c#c#d.y.y.O..............................................................................................................b6b6b6#G#t#t#tb6#t#t#t#t#t#t#G.H#t#t#t#t#t#t.H.H.H.H.H.H.H.HbPbPbPbPaRbPaRaRbPbPbnbP.taRaR.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t#X.t#X#X#X#L#L#X#j#X#j#j#jbg#j#j#j#j#j#j.c.c#j.c.c#mbF........................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................bAbA.AbAbAatbAbAbA#0bAbAb.b.#0#0bAb.b.#0b.b.bp.#.#......................................................................................bo#c#d#c#c#c#c#d.y#c.3........................................................................................................#Ub6b6b6b6b6b6b6#t#tb6#t#t#t#G#t#t#t#t#t.H.H.H#t#t.H.H.H.HbPbP.H.0.HbPbPaR.HbPaRaRaRaRaRaR.taR.t.t.tbn.t.t.t.t.t.t#X#X#X#X#X#X#X#X#X#X#X#j#X#L#X#L#L#j#X#j#j#j#j#j#j#j.c#j.c.c.cbbaw......................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................at.A.AbA.AbAbAbAbAbAbA.s#0bAbAbA#0b.bA#0b.#0b.aK.#......................................................................................#c#c#d#d#d.y.y#c.y#c.y.y#C....................................................................................................b6b6b6b6b6b6b6b6#tb6b6#t#Gb6#t#t#t#G.H.H.H#t#t#t.H.0.H.H.H.0.H.H.HbPaR.HaRbPaRaRaRaRbP.tbP.taR.taR.t.t.t.t.t.t.t#X#X.t.t.t.t#X#X#XbL#X#X#X#X#X#X#j#X#X#j#j#j#j#j#j.c#j#j#j#S#j#j.c.cbC.5....................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".................................................................................................A.AatbA.AbA.AbAbAbAbAbA#0bAbAb.b.bAb.b.bAb.b.#0b.#3.#....................................................................................#d#daQ#c#d#d#d#d#c.y#d.y.yaE.#..............................................................................................b6b6b6#Ub6b6b6#tb6b6#t#t#Gb6#tb6#t#t#t#t#t#t#t.H.H.H.H#G#t.H.H.H.H.0.H.HaR.H.0bP.0bPaRaRaRaRaRaRaR.taRaR.tbn.t.t.t.t.t.t#X#X#X.t#X.t#XbL#X#X#X#X#X#X#j#j#L#L#X#j#L#j#j#j#j#j#j.c.c#j.c.c.c.x....................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".............................................................................................A.AatbAbA.AbAatbAbAbAbAbAbAbAbA#0bAbAb.#0#0b.b.b.b.b..#.#..................................................................................bo#d#d#d#d#c#c#d.y#d#c.y#c.y#i.#............................................................................................#U#Ub6b6b6b6b6b6b6#tb6b6b6b6#t#t#t#t#t#t#t#t#t.H#t#t#t.H.H.H.H.H.H.HbP.HaR#P.p.p.p.p#V.p#V.pbi.S.t.taR.t.t.t.t.t.t.t.t.t#X.t.t.t#X.t#X#X#X#X#X#X#L#j#j#X#X#X#j#j#j#j#j#L.c.c.c.c#j#j#S#j.c.c.cbN..................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".........................................................................................A.A.AbA.A.AatatbAbA.AbA.AbAbAbAbAbAbAb.bAbAb.#0bAb.b.#0bp.#.#................................................................................#dbobo#dbo#d#d#c#d#c#c#c.y#c.y#c.#aw........................................................................................b6b6.g#Ub6b6b6b6#t#U#t#t#t#t#t#t#tb6#t#t#t#t#t#t#t.H.H#t.H.Haz.pbRbR.C.#.#.#.#.#aw..................awaw#g#Nbi#V.t.t.tbg.t.t#X#X.t#X#X.t#X#X#X#X#X#X#X#j#j#j#X#j#j#j#j#j#j#j#j#j.c.c.c#S.c#S.c.c#m.I................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".....................................................................................7.A.A.A.A.A.A.AbAbA.A.AbAatbAbAbAbAb.bAb.bA#0b.bAb.b.#0b.b.#3.#................................................................................bobo#c#c#c#c#c#c#d#d.y.y.y#c.y.y.y.#.#.....................................................................................g.g.g#Ub6b6b6#Ub6b6b6#tb6b6b6b6b6b6#t#t#t#t#t#t.H#t.Hazbs#N.#.#.#.#...................................................xbkbi.t#X.t.t#X.t#X#X#X#X#X#X#X#X#X#X#X#X#j#L#L#j#j#j#j#j#j#j#j#j#j.c#j.c.c.c.c.Vaw..............................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".................................................................................A.A.A.7.A.A.A.A.A.A.AbAbAbAbAbAatbAbAbAbAbAbAbAbAb.bA#0bAb.b.#6.#.#..............................................................................bo#cbo#d#d#d#d#d#c#c#c#d#d.y#d#c.y#c.#.#...................................................................................g#Ub6b6#Ub6#Ub6b6b6b6b6b6b6#tb6#t#tb6#tb6#t#t#ta0anar.#.#.#.....................................................................Vbi.t#X.t#X.t.t#X#X#X#X#X#X#j#j#L#X#j#j#L#j#j#j#j#j#j.c.c#j#S#j.c#S.c.c.c.4..............................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...........................................................................7.A.A.7.A.A.A.A.A.AbAbA.Aat.A.A.AbAbAbAbAbAbAb.bAb.b.b.bAb.b.b.#0b.aK.#aw..............................................................................#dbo#dbobo#d#d#c#d#d#d#d#c#c.y.y.y.l.#.#.................................................................................g.gb6.g.gb6#Ub6b6b6b6b6#U#tb6b6#tb6b6#t#GbKa0aO.#.#.#..................................................................................bC#W#X#X#X#X#X#X#L#L#L#X#X#X#jbg#j#j#j#L.c.c.c.c#j#j.c.c#S#j.c.c.cbE#M.#............................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".....................................................................7.7.7.7.7.A.7#6.A.7.A.A.A.A#6.AbAbAbA.A.AbAbAbAbAbAbAbAbAbAb.#0bAb.bAb.be.#.#..............................................................................bo#dbo#d#cboaQbo#c#c#c#c.y#d#c#c#c#c.3.#...............................................................................g.gb6.g#Ub6#Ub6b6b6#Ub6b6b6b6#tb6b6#t#t#ta0.C.#.#aw..............................................................................................#9#X#X#X#X#X#X#L#j#j#j#L#j#j#j#j#j#j#L#j.c.c#j#j.c#S.c#S.c#SbH.c.x.5..........................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".......................................d.d#v................brbr.7.7.7.7.7.7.A.7.A.7.A.A.A.A.A.A.AbA.A.A.AbAbAbAatbAbAbA#0bAbA#0bAbAb.#0b.#0aK.#aw............................................................................bGaQbo#cbobo#c#d#c#d#d#d.y#d.y.y.y.y.yar.#.............................................................................g.g#U.g.gb6.gb6#U#U#Ub6#Ub6b6b6b6b6b6#waO.#.#.#........................................................................................................#9#X#X#X#X#X#X#X#X#j#X#L#j#j#j#j#j#j#j#j.c.c.c.c.c.c.c.c.c.cbn.#..........................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".......................................d.d.d.d.d.d.d.7.7.7.7.7br.7.7.7.A.7.7at.A.A.A.A.A.A.AbA.AbA.AatbAatbA.AbAbAbAbAbAbAbAbAb.b.#0bAb.b.#h.#.#............................................................................#d#dbobo#d#d#d#d#d#d#c#d#d#d#d#d#d#d.y#i.#.#...........................................................................1.g.g.g.g.gb6.gb6b6b6b6b6#Ub6b6b6#t#b.C.#.#.5................................................................................................................#X#X#X#j#L#j#X#j#j#L#j#j#j#j#j#j#j#j#j#j.c.c.c#S.c#S.c.c.c.4aw........................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".........................................d.d.7.dbr.7br.d.d.7.7.7.7.7.7.7.A.7.7.7.A.7.A.A.A.A.A.A.AbAbA.AbA.AbAbAatbAbAbA#0b.bAbAbAbAb.#0#0#F.#.5..........................................................................bobobobobobobobo#d#d#c#d#c#c#c#c#c.y.y#c.3.#aw.........................................................................g#U.g.g.gb6.g.gb6#U#U#Ub6b6b6b6.rbs#F.#.#.........................................................................................................................t#X#X#X#X#j#Lbg#j#L#j#j.c.c#j.c.c.c.c#j#j.c.c.c.cbH#S#S.9.#........................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".........................................7.d.7.7.d.7.7.7br.7.7br.7.7.7.7.7.A.A.7.A.7.7.A.A.AbA.A.A.A.A.AbAbAbAbAatbAbAbAbAbAb.b.b.#0bAbAbz.#.#............................................................................bobo#dboaQ#d#dbobobo#c#d#d#c#c.y#d#c.y.y#F.#.........................................................................g.g.1.g#U.g#U#U.gb6b6b6#Ub6b6.rbs.#.#aw................................................................................................................................#X#j#X#X#j#X#j#j#L#j#j.c#L#j#j#j#S.c#j#j#S.c#S.c.c.c.c.I.5......................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".........................................d.d.d.d.7.d.d.7.7.d.7.7.7.7.7#6.A.7.7.A.7.A.A.7.A.A.A.A.A.AbAbA.A.A.AbAbAbAbAbAbA#0bAbAbAbAb..b.#.#............................................................................bGbobobG#d#dbobo#c#c#c#d#c#c#d.y#d#c.y#c.3.#.#.......................................................................1.g.g#U.g.g.gb6.g#U.g#U#Ub6aCbs.#.#aw......................................................................................................................................#X#j#j#L#j#j#j#j#L#j#j#j#L.c.c#j.c.c#S.c.c.cbHbH#SbE.Y.#......................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".........................................d.d.d.d.7.7.d.d.7br.7br.7.7.7.7.7#6.7.A.A.A.A.7.A.A.A#6bA.A.AbAbAbAbAbAatbAbAbAbAbAbAb.b.#0bp.#.#............................................................................bobobobobobo#d#dbo#d#dbo#d#d#d#d#c#c#c.y.y#F.#.......................................................................g.1.1.g.g.g.g.gb6.g#Ub6b6#Ubs.#.#aw............................................................................................................................................bL#X#j#X#X#j#j#j#j#j#S#j#j.c#j.c.c#j.c#S.c#S.c.c.cbb.#......................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...........................................7.7.d.d.7.7.7.7.7.7.7.7.7.7.7.7.7.A.7.7.A.A.A.A.AbA.A.A.Aat.Aat.A.AbAbAbAbA.sbAbA#0bAbAaM.#.#.............................................................................aboboboboboboboaQ#dbo#d#c#d#c#c#c#d.y#d#c#Q.#.#.....................................................................1.1.g.g.g.g.g.g.g.gb6b6.gaUaw.#.#..................................................................................................................................................#j#L#j#j#j#j#j#j.c#j#j.c#j.c.c.c#S.c.c.c.cbH#SbEbE.I.5....................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...........................................d.7.7.d.d.7.d.7br.7.7.7.7.7.A.A.7.A.A.7.A.A.A.A.A.A.A.AbAatbAbAbA.AbAaybAbAbA#0bAbAb.aK.#.#...............................................................................abobobobo#dbo#dbo#dbo#daQbo#d#d#c#d#c#d.D.#.#.....................................................................1.g.1.g.1.g.g.g.g.g.g.ga9.C.#.#........................................................................................................................................................#j#j#L#j#j#j#j#j.c#j.c#j#j#j.c.c.c.c#S.c.c.c.c#S#y.#....................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...........................................d.d.d.d.7.d.7br.7.7.7.7.7.7.7.7.7.7#6.A.7.A.7.A.A.AbAbA.AbA.A.A.AbAbAbAbAbAbAbAbA#6bz.#.#..............................................................................bobobGbobG#dbobobo#dbo#c#d#d#c#c#c#d#c.y#iaw.#.5...................................................................1.g.1.g.1.g.1.1.g.g.gaCba.#.#.5............................................................................................................................................................#j#j#L#j#j#j#j#j#j#L.c#S.c.c.c#S.c.c.cbH#SbEbH.j.#....................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".............................................d.7.d.7br.7.7br.7.7.7.A.7.7.7.A.A.7.A.7.A.7.A.A.A.A.A.AatbAbAbA.AbAatbAbAbA.saT#F.#aw..............................................................................bGbobobobobobobGbobo#dbobo#d#d#d#d#c#d#d#db2.#aw...................................................................g.1.g.1.g.g.g.g.1.g.ga0aw.#aw..................................................................................................................................................................bg#j#L#j.c#j#j.c#j#j.c#L#j#j.c.c#S#S.c.c.cbE#m.#....................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".............................................7.d.7.d.7.dbr.7brbr.7.7.7.A.A.7.7.A.7.A.A.A.A.A.A.A.A.AbA.Aat.AbAbAbAbAbAbA.u.#.#.5.................................................................................abo.abobobobG#daQbobo#d#c#d#d#d#c#d#c#c#Q.#.#...................................................................1.1.1.1.g.1.1.g.g#U.gaO.#.#......................................................................................................................................................................#j#j#j#j#j#j.c#j.c.c#j#S#S#S.c#S.c.cbH#SbE#SbE.#aw..................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...............................................d.7.d.7.7.7.7.7.7.7.7.7.7.7.7.7.A.A.A.A.A.A.A.AbA.A.AbAbAbAbA.AbAbAbAaT#F.#.#..................................................................................bo.abobGbobGaQbG#d#dbobobobobo#cbo#c#d#caE.#.#..................................................................#r.1.1.1.1.g.g.1.g.ga9aw.#.#..........................................................................................................................................................................#j#j#j.c#L#j#j#j.c.c.c.c#j.c.c#S.cbH.cbH.c.cbF.#..................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...............................................7.d.7.d.dbr.7.7br.7.7.7.7#6.A.A#6.7.7.A.7.A.A.A.AbA.A.A.A.A.AbAbAbebz.#.#.5...................................................................................a.abobobobGbobGbobobo#d#d#d#c#cbo#c#d#daE.#.#...................................................................1.1#r.gbK.1.1.1#U.1#5.#.#.5..............................................................................................................................................................................#L#j#j#j#j#j.c#j#j.c.c.c.c.c.c.c.c#S.cbEbE#y.#..................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".................................................d.7.7.7br.7.7br.7.7.7.A.7.7.A.A.A.7.A.A.A.A.A.A.A.AbAbAbAbA.AaA.#.#aw......................................................................................bobGbGbobobo#dboboboboaQbobo#d#c#d#d#caE.#.#..................................................................bt.1.1.1#r.g.1.g.1aC.K.#.#..................................................................................................................................................................................#j#j#j.c.c#j.c.c#j#j.c.c.c#S.c#S.c#S.c#SbH#g.#..................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...................................................7br.d.7br.7.7.7.7.7.7.7.7.7.7.7.A.A.A.A.A.A.AbAat.A.A.AaM#F.#.#.........................................................................................a.a.a#n.abGbGbobG#dbobobo#d#dbo#d#d#daE.#.#...................................................................1.1.1.1#r.g.1.g.1a9aw.#aw......................................................................................................................................................................................#L.c#j#j#j#L#j.c.c.c.c.c.c#S.cbHbHbEbH#S.X.#..................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".....................................................7.d.7.7.7br.7.7.7.7.7.A.A.A.A.A.A.7.A.A.A.AbA.Aat.N.I.#.#..........................................................................................bGbobobGbobo#nbGbobo#dbG#dbobo#dbobo#caU.#.#..................................................................#r.1#r.1.1.1.1.1.1a..#.#.5........................................................................................................................................................................................#j#j#j#j#j#S#j.c#j#j.c.c.c#S.c#S.c#SbH.c.j.#..................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".......................................................7brbr.7.7.7.7.7.A.A.7.7.7.7.7.A.A.A.A.A.A.A.A#Y.#.#aw.............................................................................................a.a.a#nbG.abGbobobGbo#dbobo#dbo#c#c.3.#.#..................................................................#rbK#rbK#r.1#r.g.1ba.#.#..............................................................................................................................................................................................#j#j.c.c#j.c#j#S#S.c.c.c.c.c.c#SbH#jaRb3.#...............................................................................................................................................................H.H................................................................................................................................................................................................................................................................",
+"...........................................................d.7br.7.7.7.7.7#6.A.A.A.7.A.A.A.A.A.Abe#3.#.#..............................................................................................#nbGbGbG#nbGbo#nbGboboboboboaQ#dbo#d#p.#.#..................................................................bt#rbt#r.1.1.1.1.1a3.#.#.................................................................................................................................................................................................c#j#j#j#j.c.c.c#j.c#S.c#S.c.c.c#j.1btbt#C.5..........................................................................................................................................................aRaR.H.k.#............................................................................................................................................................................................................................................................",
+"..............................................................bd#f.7.7.7.7.A.7.7.7.A.A.A.A.A.A.n#F.#aw.................................................................................................a.a.a.abGbobGbGbobobobobG#d#dbobf#C.#.#..................................................................bt.1#r.1.1bt#r.1aQar.#.#..................................................................................................................................................................................................#j#j#j.c.c#j#L.c.c.c.c.c.cbHbH#j.1btbtbtaI.#.........................................................................................................................................................HaRaRaRbP.#aw..........................................................................................................................................................................................................................................................",
+"....................................................................bzbz.i.i#F#F#v.7.7.A.A.AaM.#.#.5................................................................................................bG.a#nbG.a.a#nbobGbobobo#dbobobo.D#F.#aw...................................................................1btbt.1#r.1.1.1bvaw.#aw......................................................................................................................................................................................................#j#j#j.c#S#j.c#j.c.c#S#S#S.c#UbtbtbtbtaI.#......................................................................................................................................................aR.HaRbPaRbP.#.#..........................................................................................................................................................................................................................................................",
+"...............................................................................7.7.A.A#6at#v.#.#...................................................................................................a.a.abG.abobobGbGbobobGbobobobo.3.#.#.5....................................................................bt.1.1#rbK.1#raQ#F.#aw.........................................................................................................................................................................................................c#j#j#j#j.c.c#S.c.c.c.c.c#tbtbtbtbtbtbt.#.......................................................................................................................................................HaR.HaRaRaR.#.#..........................................................................................................................................................................................................................................................",
+".............................................................................7at.A.A.A.7aM#F.#aw..................................................................................................#nbG.abo.a.abo#nbG.aaQbGbobobf#p.#.#......................................................................btbtbtbt#r#rbKaQaw.#aw..........................................................................................................................................................................................................#j#j#j.c#j#j.c#j.c.c.c#S#Xbtbtbtbtbtbtbt.#.#..................................................................................................................................................aR.HaR.HbP.0bP.#.#..........................................................................................................................................................................................................................................................",
+".............................................................................A.7.7.7.A#v.#.#.....................................................................................................a.a.a.a.abGbG.abG.abobobobG.D#F.#aw......................................................................bt#r.1.1.1#rbtaQaw.#aw.............................................................................................................................................................................................................c.c#S#L.c.c.c#S.c.c.c.c#r#z#zbtbtbKbtbt.#.#.................................................................................................................................................H.HaR.HaR.HbPaR.#.#..........................................................................................................................................................................................................................................................",
+"...........................................................................7.A.A.A.A#v#F.#aw.....................................................................................................a.a#n.a.a#nbGbobobGbGbobobl.#.#.5......................................................................#rbtbtbtbtbK#raQ#F.#aw..............................................................................................................................................................................................................#j#j#j#j#j#j.c.c.c.c#S#tbtbtbtbtbtbtbt#n.#.#................................................................................................................................................aR.HaRaRaRaR.HaR.#.#..........................................................................................................................................................................................................................................................",
+".........................................................................7#6.7.7.A#f#F.#aw.....................................................................................................a.a.abG.a.abG.a.abGboboa7#F.#.#..........................................................................btbKbt#r#r#raQaw.#aw..................................................................................................................................................................................................................#j.c.c.c.c.c#j.c.cbLbtbtbtbtbtbtbtbtaI.#aw..............................................................................................................................................aR.HaR.H.HbPaRaRbP.#.#..........................................................................................................................................................................................................................................................",
+".......................................................................A.7.A.A.7#v#F.#aw.......................................................................................................a.a.abobG.abobo#n.a#nbf.#.#.5..........................................................................btbt#rbtbtbtbv#F.#aw....................................................................................................................................................................................................................#j#j#j#L#j#S#j#j#S.gbtbt#z#zbtbtbtbtaI.#................................................................................................................................................bP.HaRaR.H.HaR.0.p.#.#..........................................................................................................................................................................................................................................................",
+".......................................................................7.A.7.7.A.i.#aw......................................................................................................#i.a.a.a.a.a#n.a.abGbGbGbl.#aw..........................................................................btbt#rbtbt.1.1#F.#aw......................................................................................................................................................................................................................#j#j.c.c.c.c.c.c.H.y.y#zbtbtbtbtbtbt.v.#...............................................................................................................................................H.HaR.H.HaRaRbPbP.p.#................................................................................................................................................................................................bY..........................................................",
+".....................................................................7.7.7.7.7.i.#.#.........................................................................................................a.a.a.a.abG.abG.abobGbo.#.#..........................................................................btbtbtbt.1btbt.2.#.#........................................................................................................................................................................................................................#j#j#j#j#j.c#S#Xbtbtbtbtbtbtbtbtbtbtb2.#.............................................................................................................................................H.0.HaRbP.HbP.HaR.HbR.#...........................................................................................................................................................................................G.G.G.G.G#S......................................................",
+"...................................................................7.7.7.7.A#Y.#.#.........................................................................................................a#i.a.a.a#n.abo.abo.aboaS.#.#..........................................................................btbtbtbtbtbt.2.#.#...........................................................................................................................................................................................................................c#j.c.c.c.c.cb6.y.ybtbtbtbtbtbtbtbt.#.#............................................................................................................................................bP.H.H.H.0bP.0aRaRaRbN.#......................................................................................................................................................................................bY.Gbjbjbj.G#2.G.#aw..................................................",
+".................................................................7.7.7.A.7ax.#.#...........................................................................................................a.a.a.a.a.a.a#n.abo.abo#F.#..........................................................................#zbtbtbtbtbKaI.#.#............................................................................................................................................................................................................................#j#j#j#j#j#j.tbtbt.y.y#zbtbtbtbtbtaI.#.#...........................................................................................................................................HbPbPbPbP.HbPbP.HbP#P.#.#....................................................................................................................................................................................bYbY.G.G.GbY.G.Gbq.#.#..................................................",
+".................................................................7.7.7.7aD.#.#..........................................................................................................#K.a#K.a.a.a.a.abGbG.abo#s.#.#........................................................................btbtbtbtbtbta..#.#...............................................................................................................................................................................................................................c#j.c.c#S.c.1.y.ybtbtbt#zbtbtbtbt#C.#.............................................................................................................................................H.H.H.H.HaR.H.0aRaRbB.#aw..................................................................................................................................................................................bYbjbjbYbYbY.GbYbj.I.#....................................................",
+"..............................................................br.7.7.7#v#F.#aw...........................................................................................................a.a#i.a.a.a.a.a.abo.a.a#F.#..........................................................................btbtbtbtbt#n#F.#................................................................................................................................................................................................................................#j#j#j#j.c.H#zbt#zbtbtbt#zbtbtbt#7.#.#...........................................................................................................................................H.H.H.H.H.HbPbPbP.HaRaw.#.....................................................................................................................................................................................GbYbY.G.Gbj.G.G.T.#.#....................................................",
+".............................................................7.7.7.7.7#3.#aw...........................................................................................................a#K.a.a.a.a.abo.a#n.abobS.#.#........................................................................#zbt#zbtbtbtaw.#aw.................................................................................................................................................................................................................................c#j.c.c#X.ybt.ybt.ybtbtbtbtbtbt#C.#.5...........................................................................................................................................H.H.H.0bPaR.H.H.0aR#e.#.#..................................................................................................................................................................................bYbY.G.Gbjbj.GbjaN.#.#......................................................",
+".............................................................7.7.7.7aA.#.#..........................................................................................................#K.a.a.a.a.a.a.a.abG.a.a#n#3.#........................................................................bt.ybt#zbtbtb2.#.#..................................................................................................................................................................................................................................#j#j#j#j#t.ybt.ybt.ybtbt#zbtbta9.#.#...........................................................................................................................................H.H.HbP.H.HaRbPbPbP#Paw.#..................................................................................................................................................................................bYbYbYbYbY.GbY.G.P.5.#aw......................................................",
+"..........................................................br.7br.7ax.#.#...........................................................................................................a.a.a#K.a#i.a.a.abo.abobGa7.#.#.........................................................................ybtbtbtbtaI.#.#.....................................................................................................................................................................................................................................c#j.c#j.y.y.ybt.ybt.ybtbtbt.1#F.#.5.........................................................................................................................................H.H.H.H.H.H.H.H.H.H.H#N.#aw..................................................................................................................................................................................bYbYbYbj.GbY.GbY.h.#aw........................................................",
+".........................................................7br.7.7#f.#.#........................................................................................................#K#K#K#K.a#K.a.a.a.a.a.a.a.abGbl.#.5......................................................................btbtbtbtbtaQ#F.#.......................................................................................................................................................................................................................................c#j#j.1#z.y.ybt#zbt.ybtbt#zb3.#.#...........................................................................................................................................H.H.H.H.HaR.HaRaRaR#V.#.#..................................................................................................................................................................................bYbYbYbYbY.Gbj.G.Y.#.#..........................................................",
+".......................................................dbr.7.7br#F.#aw......................................................................................................#K#K.a.a.a.a.a.a.a.a.a.a#n.a.a.s.#.#.......................................................................y.y#z#zbtbt#C.#aw......................................................................................................................................................................................................................................#j#j.tbtbt#z#z.ybt#zbtbt#zaR#y.#.5.........................................................................................................................................H.H.H.H.0bP.HaR.H.Haz.#.#..................................................................................................................................................................................bYbYbjbY.GbYbY.G.X.#.#............................................................",
+".......................................................7.7.7.7aA.#.#......................................................................................................#K.a#K#K#K#K.a.a.a.a.a.a.a.a#n.aaS.#aw......................................................................btbtbt#zbt#5.#.#......................................................................................................................................................................................................................................#j#j#j.1.ybt.y#z.ybtbt.ybtb6#m.#.#...........................................................................................................................................k.H.H.H.H.H.H.HaR#Paw.#....................................................................................................................................................................................bYbYbYbYbjbYbYaj.#.#..............................................................",
+".....................................................d.dbrbr.n.#.#....................................................................................................#K#K#K#K#K.a#K#K.a#K#K.a.a.a.abGbG.a#F.#......................................................................bt.y.y.ybt#n.#.#........................................................................................................................................................................................................................................#j.c.t.y.y.y.ybtbt.y.ybtb6.c#u.#aw.........................................................................................................................................H.H.H.H.H.H.H.HbP#P.I.#aw...................................................................................................................................c.c#S..........................................bYbYbYbYbY.Gbj#8.#.#................................................................",
+"...................................................7.7.7.7#f#F.#.5..................................................................................................#K#K#K#K#I#I#KbG#K.a.a.a#i.a.a.a.aboa7.#.#......................................................................btbtbtbt#z#C.#aw........................................................................................................................................................................................................................................#j#j.1.y.ybt.y.ybtbtbtb6bE.c.I.#........................................................................................b6.................................................H.H.H.H.0.H.H.0bwaw.#aw...................................................................................................................................c#S.cbE.Iaw......................................bYbYbYbYbY.G.P.I.#.5................................................................",
+".................................................d.7.7.d.d.i.#aw................................................................................................b.#K#0#K#K#I.#bA#K#K.a.a.a#K.a.a.a#n.a.abl.#.5.....................................................................y.y.y#z.y#5.#.#..........................................................................................................................................................................................................................................#j.t.y.ybt.y.y#z.y#zb6.c.c.9.#.#......................................................................................b6b6b6#w...........................................H.H#t.H.H.H.HbP#P.I.#aw...................................................................................................................................c#SbHbH.V.#.#....................................bY.6bYbYbYbY.P.5.#aw..................................................................",
+".................................................d.d.7.7bd.#.#................................................................................................#K#K#K#K#K#p.#aK.a.a#K#K.a.a.a#K.a.a.a.a.a#F.#......................................................................#z#zbtbt#i#F.#.................................................A.A.A......................................................................................................................................................................................#j.1.y.y.y.y.ybtbtb6.c.c.cbN.#.5.......................................1.1.g.g.1.1..................................b6b6b6bKaw.#........................................#t.H.H.H.H.H.Hbwaw.#aw.................................................................................................................................c.c.c.c.c#m.#.#......................................bYbYbYbYbYbY#3.#aw....................................................................",
+"...............................................d.d.7brbr#F.#.5..............................................................................................#K#0#K#Kat#C.#.##K#K#K#K.a#K.a.a.a.a.a.a.a.s.#.#....................................................................bt.ybt.y.yb2.#aw.............................................A.A.AbAataM...................................................................................................................................................................................c.t.y.y.ybtbtbt.y#U.c#S.c.9.#.#...................................1.1.1.1.1.1.1.g.g.1aO..........................#Ub6b6bTaCaw.#aw.......................................H.H.H.H.H.H.Hbw.I.#aw........................................aR.......................................................................................c.c.c#S.c#S.j.#aw.......................6.6.6bY.6bE.6bYbY.6bYbYbY.h.#.#......................................................................",
+".............................................d.7.d.7.db#.#.#............................................................................................#Kb.#Kb.#K#6#F.#aw..#K.a#K.a.a.a#K.a.a.a.a#n.a.L.#aw...................................................................ybt.ybtbt.O.#.#..............................................atat.AbAatat.#......................................................b.b.................................................................................................#d#d#d#d#c.yboaQ......#j.1.y.y.y.y.y.yb6#j.c.c.c.4.#.5...............................1#r.1.1.1.1.1.g.1.1.g.1a..#......................b6b6#Ub6b6bs.#aw......................................#t.H.H.H.H.H.H#Paw.#aw.......................................t.t.taR#q.................................................................................c#j#S.c#S.c.c.c.I......................bEbE.6bEbY.6bYbYbYbYbYbYbY#8.h#y................bj......................................................",
+"...........................................d.7.d.7.d#f.#.#............................................................................................b.b.#0#K#Kbp.#.#aw..#K#K#K#K#K#K#K.a.a.a.a.a.abGbS.#.....................................................................y.y.y.y.y#C.#.5.............................................AbAbA.A.AbAbA.#.#................................................#0#K#K#Kb..#......................................................................................bo#d#c#c#n#5.5.#.#.#........#X.y.y.y.y.y.yb6.c.c.c.c#M.#.#............................bt.1.1.1#r.g.g.g.g.1.g.g.g.g#..#....................b6b6b6b6b6b6#Z.#.........................................H.H#t#t#t.H#Paw.#aw....................................aRaR.t.t.t.t.t.#.............................................................................c#S.c.c.c.c.c#S.c#m.I..................bEbYbYbY.6bEbYbEbY.6bYbYbYbYbYbYbYbYbY.G.G.G.G.GbjaN......................................................",
+"...........................................d.7.d.7.7aA.#aw..........................................................................................b.#K#K#0#Kb#.#.#.......a#K#K.a#K.a.a#K.a#i.a.a.a.a.a.#...................................................................y.y.y#z#zbW.#.#...............................7.7.7.7.7.A.A.A.A.A.AbA.A.A.n.#.#............................................b.b.b.b.#K#Kbp.#aw..............................................................................bo#c#cbobf#N.#.#aw..............#jb6#z.y.y#z#z#U.c.c.c.cbHbF.#.5...........................1bKbt#b.K#oaQ.1.1.1.1.1.1.g.1a3.#..................#U#U#Ub6#Ub6b6b6a0........................................#t.H.H.H#tbw.I.#aw.....................................t.taR.t.t.tbn.S.#.#..............................#X#X#X#X..................................#j#j.c#j.c#S#S.c#S.c#S#mbF................bEbEbEbEbEbEbY.6bYbY.6.6bjbYbYbY.G.GbYbYbjbj.PbU.#.#aw....................................................",
+".........................................d.d.d.d.d#f.#.#........................................................................................b.#0b.#0#K#6bz.#.#......#K#K#K#K.a#K.a.a.a#K.a.a.a.a#n.a#C.#.................................................................y.ybt.ybtaw.#.........................7.7.A.A.7beaS.4.#.#aK.A.A.AbA.AbAbA#3.#.5..........................................b.b.#K#0#Kb.b.#3.#....................#K#K.a.a#K..............................................bo#d#d#d.Oaw.#.#....................#j.y.y.y.y.yb6.c#j.c.c.cbb.#.#........................bt#r.1...#.#.5....bK.1.g.g.g.g.g.g.I.#................#Ub6b6b6b6b6b6b6b6b6b6#w...................................H.H.H.H.H#P.I.#aw....................................aRaRaR.taRaR.t.ta1.#aw............................#X#X#Xbgbg.k.#...............................c#S.c#S.c.c.c.cbH#S.cbH#maw................bEbEbYbYbYbEbYbY.6bYbYbYbYbYbYbYbYbYaFbq.4.#.#aw........................................................",
+".......................................d.d.d.7.d.daA.#aw......................................................................................#0b.#K#0b.at#F.#aw........#K#K#K#K#K#K#K.a.a.a.a.a.a.a.a.aaS.#...............................................................y#z.ybt.ybW.#.#.....................7.7.7.7.n#3.#.#aw.......A.A.A.A.A.A.AaM.#.#..........................................b.#K#0#Kb.#K#K.N.#.#.................a.a.a.a.a#K.aaS.5........................................#dbobo#n#p.#.#........................#t#c#c#z.y#U#j.c#j#S.c.c.4.#bX.......................1bt#r...#aw.........1.1.1.1.1.1.g.v.#.#..............b6.g.gb6#Ub6b6b6b6b6b6b6b6b6.r..............................#t#t.H.Hbwaw.#aw....................................aRaR.taR.t.taR.t.Saw.#............................#X#X#L#L#Xbg#X.#aw..............................#j.c.c.c.c#S.cbHbH#SbH#S.jaw..................#y#y#ybhbEbYbYbY.X.X.Xbq.h.h.4.#.#.#.5..............................................................",
+".....................................d.7.7.d.d.7#f.#.#....................................................................................#0b.b.b.b.b.bp.#.#aw..........#0.a.a#K.a#K.a#K.a.a.a.a.a.abo.a.s.#...............................................................y.y.y.y.y#F.#...................7.7.7.7#v.I.#.#.............A.AbA.A.A.AbA#Y.#..........................................b.#0b.b.b.#0b.b.#3.#.5..............#K#K#K#K#K.a.a.a.a.#....................................bo#dbo#d#i#F.#aw........................#j.1#z.y.y.1.c.c#j.c#j#j.V.#.#.......................1bt.1.5.#...............1.1.g.g.ga..#.#.................gb6b6#Ub6b6b6b6b6bTb6b6b6b6#G.r.K.........................H.H.H#taz.#.#aw.......................................t.taR.taR.t.t.S#g.#aw..........................#X#X#X#X#X#L#Xa6.#.#..........................#j#j.c#X#j.c.c.c.c.c.c.c#SbH#SbF........................bYbYbYbY#8.#.#................................................................................",
+".....................................d.d.7.d.d.db#.#aw..................................................................................bAb.b.b.b.#Kbz.#.#.............a#K#K#K#K#K#K#K.a#K#K.a.a.a.a#n.a.a#Qaw.............................................................y.y.y.ybW.#.#...............7.7.7.7.A.M.#.#aw...............A.A.AbA.A.Aat.A.n........................................b.b.b.b.b.#K#K#K.b.#.#..............#K#K.a.a.a#K.a#K.a.a#p.#................................bobobobobf#F.#aw...........................t.y.y#cbt#X#j.c.c.c.c#m.I.#......................bt.1bt.C.#.................1.1.1.1a..#.#....................#Ub6b6#Ub6b6b6b6b6b6#tbTb6#G#GaOaw......................#t#t.Haz.#.#........................................aRaR.taR.tbn.t.S.I.#aw..........................#XbL#X#X#X#Xbg.k.I.#...........................c.c.....##m.c#S.c#S.cbEbH.cbHbH.j.#.....................6.6bE.6.6.4.#.5................................................................................",
+"...................................d.d.d.d.7.d.d#3.#..................................................................................b.b.#0#0#0#6#3.#.#..............#K#0#K.a#KbG#K.a.a.a.a.a.a.a.abG.a.a.s.#...........................................................y.y.y.ybtaw.#...............7.7.7.7.7bd.#.#.....................AbA.AbA.AbAbAbAbeb2..................................#0#0b.#0#K#K#0b.b.#F.#..............#K#K.a#K#K#K.a.a.a.a.a#p.#..............................bobobo#d#d#Q.#aw..........................#jb6.y.y.y.t#j.c#j#j.c.cae.#aw....................bt#rbtan.#aw...............g.g.1.ga..#.#....................b6b6bK#Ub6#U#Ub6b6b6b6b6#Gb6b6bT.C.#....................#t.H.H#B.#.#........................................aRaRaRbP.taR.tbk.#.#aw..........................#X#X#X#X#X#Xbg#taw.#aw........................#j.......5.....c.c.c.c#S.c.cbE#S#S#m.#....................bYbYbYbY#8.#.#..................................................................................",
+".................................d.d.d.d.d.7.d#f.#.#..............................................................................b.#0#0bAb.b.bp#F.#aw.................a.a#K.a#0.a#K#K.a.a.a#i.a.a.abG#n.a.ablaw........................................................#z.y.y.ybW.#.#...........7.7br.7.7.7.7#F.#.5.....................A.A.AbA.A.AatatbAbe#3................................b.b.b.b.#0b.b.#K.b.#.#............#K.a#K#K.a.a#K#K.a#K#K.abl.#............................bo#dboaQbobf.#.#............................#j#c#c.y.H#j#j.c.c#j.c.j.#.#......................bt.1#w.#.#...............1.1.1aC.K.#.#.....................g.g..aw.#az.r#Ub6b6b6b6b6b6b6#G#b.#.#....................#t#t.S#F.#.5......................................aRaRaRbnaRbP#qaw.#.#...............................t#X#X#X#X#X#9.5.#aw........................#j....aw..........#S.c.c.c#S.cbHbHbE.c.#aw................bEbEbEbYbY#y.#bX..................................................................................",
+"...............................d.d.d.d.d.d.d.dax.#aw............................................................................#0bAb.b.b.b..b.#.#....................#K#0.a#K#K.a#K.a#K.a#K.a.a.a.a.abG.aboaJ.#.......................................................y.y#z#z.y#F.#...........d.7.7.7.7.7.7b#.#.#.........................A.A.A.AbAbAbA.Aat.baw............................b.b.#0#0b.b.#0#K#6.#.#............#K#Kb.#K.a#K#K.a.a.a.a.a.a.L.#..........................bGbobG#dbobo#s.#aw............................#t.y.ybt#j.c#j#j#j.cas.I.#......................bKbtbt#F.#............#r.1.1.1az.#.#aw.....................g..............bKb6b6b6b6b6#t#t#Z.#.#......................#G.Han.#aw........................................bP.tbPaRaRbk.#.#.5..............................bL#X#XbL#X#X#O.I.#aw........................#j....................#S.c#S.c#S.c#S.cbE.#.#.................6bYbYbEbY.#.#....................................................................................",
+"...............................d.d.d.d.d.d.7.daA.#..........................................................................bA.s#0bAbAb.be#p.#.#......................#K#K#K#K#K#K#K.a#K.a.a.a.a.a.a.a.a.abG.ablaw.....................................................y.y.y.ybW.#.#.........7.d.d.7br.7.7.7.i.#........................at.A..bA.A.A.AbAbA.AbA#F..........................b.bAb.b.#0b.#K#0b..b.#aw..........#K.....##o#K.a#K#K#K.a.a.a.a#I.#..........................bobobo#dbGbo#p.#.............................H.y.y#c#t#j.c.c.c#j.c#g.#aw......................btbt#E.#.#......bt.1.1#r.1a9.#.#.#......................#U..................b6b6b6b6b6b6aO.#.#......................#t#t.H.#.#........................................aRaR.t.t.t#g.#.#.................................t#X.t#X#X#Xa6.#.#.....................................................cbHbHbEbHbE#Sbb.#.#................bEbEbY.6a4.#.#....................................................................................",
+".............................d.d.d.d.d.d.d.d.d.i.#........................................................................bA#0#0bAb.b.aD#F.#aw.........................a#K#K.a#KbG#K.a.a.a.a.a.a.a#n.abo.a.abGbo#F...................................................y#c.y.y.y#C.#..........br.7.7.7.7.7.7.7.#.#.......................A.A....aT.AbAbA.A.AbAbA.i.#........................b.b.b.b.#0#Kb.b.#K#F.#..........#K....aw.....a#K.a.a.a.a.a#K.abS.#........................bobobobobo#dbob2.#..........................#Ubt#c.y.yaR#j#j#j#j.cbC.#.#......................bt#r#r.1btbt#r.1.1bKaCbM.5.#.#.5................................................b6b6b6b6aO.#.#.........................H#t#t.#.#........................................aRbPbPbPb3.#.#.................................t#X#X#X#X#X#g.#.#.........................................................c.c.c.c#SbHbq.#.5..............bY.6bYbEbY.Y.#......................................................................................",
+"...........................d.d.d.d.d.d.d.d.d.d#3.#....................................................................bAbAbAbAb.bA#0.b.#.#.5..........................#K#K#K#K#0bG#K.a#K#K#K#i.a.a.a.a#n.a#n.a#nbS.#.................................................y#c.y#z#E.#.#.........7.7.7br.7br.7.7.7.#.#.......................A.........A.AbAbAbAatbA.i.#......................bAb.b.b.b.b.#0b.b.aD.#.#........................#K#K#K#K#K.a.a.a.L.#.......................abobobobobo#dbobl.#.........................y.g.g#c.y.y.H#j#j#j#j.0.#.#........................btbtbt#7.va3.2.#.#.#.#.5........................................................b6b6b6aO.#.#...........................H#t#tbs.#......................................aRaRaRbnbP#N.#.5..............................#X#X.t#X#X#X#O.#.#..........................................................#S#SbEbH.c.cbN.#................bYbEbY.6.6#y.#......................................................................................",
+"..........................#f.d.d.d.d.d.7.d.d.7.i.#..................................................................bAbAbAbAbAbA#6bz.#.#..............................#0#K#K#K#K#K.a#K.a.a.a.a.a.a.a.abGbGbGbGbGbG#p.................................................y.y.y.yb2.#.5.......d.d.d.d.7.7.7.7.7br#F.#.....................A...........AbA.Aat.AbAat#3.#......................b.#0#0#0b.#0#0#Kb..b.#.5.........................a.a.a.a.a.a.a.abS.#......................bobGbobobobobobo.D.#......................#c#r#X#z.y.y.y#z#j#j.c.c.I.#aw......................btbKbtbta3.#.5..................................................................b6b6b6aO.#.#..........................#t#t.H.H.HaO......................................aRbPbPaR.tbR.#.................................t.t#XbLbLbL.I.#...............................................................c.c.cbE.9.#.#..............bEbE.6bEbYbY.Y.#......................................................................................",
+".........................d.d.d.d.d.d.d.d.7.d.dax.#..............................................................atbAbAbAbA.s#0aM#F.#aw.................................a#K.a#K#K#K#K.a.a.a.a#K.a.a.a.a.a.a.a.a#nbGaJ.#.............................................y.y.y.y#i.#.#.........7.7.7.7br.7.7.7.7.7aA.#.................A.7..........at.AbAbAbAbAbAbA.#.#....................#0bAb.b.#0b.#K#0b.#Kbz.#..........................#K#K#K.a.a#K#K.a.a.#......................bobobGboboaQbobobobl.5..................#d.y#X#j#c#c#c.y.yb6#j#jae.#.#........................btbt.1bt.O.#....................................................................b6b6b3.#.#........................#t..#t#t#t#t.H.Hbs..................................bPaRaRaRaRaRb3.#..............................#X#XbL.t#X#X#X#F.#........................#j....................................#S#S.c#S.4.#bX...............6bYbEbEbE.6bh.#......................................................................................",
+".......................d.d#f.d.d.d.d.d.7.d.d.d#f.#............................................................bAbAbAbAbA#0#0aA.#.#......................................#K#K.a#K#K#K#K#K.a.a.a.a.a.a.a#n.abobobG#nboaSaw..........................................#c.y#c.ybW.#aw.......d.7br.7.d.7.7.7.7.7br#f#F...............7.A............bA.A.A.A.A.AbA#v.#.#................b...b.b.bA#0b.b.#0b.#0b.bz.#...........................a.a.a#K#K.a.a.a.a#F.#.................abGbGbobobobG#d#d#d#d#d#Q..............#d#c#caR#L.H.y.y.y.y.y#c#U.V.#.#........................btbt#rbt#rbtaI.5.........................................g.g....................b6b6b6.C.#........................#t....#t#t#t.H#t#t.H#B................................aRaRaRaRbP.taR#V.5.........................t.t.t.t.t#X.t.tbL.x.#......................#L..........#j#j#j.......................cbHbE.j.#.#................bEbEbYbYbYbYbY.X.5...............................G....................................................",
+"......................#f.d.d.d.d.d.d.d.d.d.7.d.d#3#F......................................................bAbAbA.AbAbAbAbe#3.#.#.........................................a#K#K#KbG#K.a#K#K.a.a.a.a.a.a.a.a.a.abG.abobo#3.........................................y#c.y#c.y#C.#.........d.7.d.7.7br.7.7.7.7.7.7#v#Y.........A.A.A...5.........AbAbAbAbAbA.AbAaM.#aw............#0bA....b.b.b.#0#0b.b.#K#0b.#6blb.........................#K#K.a.a.a.a#K.a.aaS.#............bobo..#nbGbobo#dbobGbobobobo#da7bf....#d#c#c#c#c.jbg#L#t#c.y.y.y.y.y.y#i#C........................bt..btbtbtbt.1btaI.K.....................................g.g....................b6b6b6b6.#.#....................bT#t....bz#t#t#t.H.H#t.H.H#t#U..........................aR.HaRbPaRaR.tbP.tb3.x.....................t.t#X#X#X#X#X#X.t#XbL#g..................#j#j.....5....#j#j#j.c.kaf...................c.cbn.I.#..................bEbEbEbEbEbYbEbY.Xae.........................Gbj......................................................",
+".....................d.d.d#f.d.d.d.d.d.d.d.d.d.d#f.#...................................................AbA.AbAbAbAbAbA#Y.#.#aw............................................#K#K#K#K#K.a.a.a.a#i.a#n.abGbo.abobG#nbobGbGbf.#......................................#c.y.y.y#E.#.#.........d.d.7br.d.7br.7.7.7.7.7.7.7.7.7.7.A#6.7...#...........A.A.A.A.A.AbAbAaT.#..........bAbA....aw#s#0b.bAb.b.b.#0b.b.#Kb.b.#h..aw....................#K.a#K#K.a.a.a.a.a.abl.........abo.a....bo.abobGbobGaQbobo#d#dbo#c#d#c#c#d#d#d#nbs#L#j#j.1.y#c#c#c.y.y.y.y.y#7..................#zbt....btbtbK#rbt.1#rbt#7...............................1#U#U..aw................b6#U#Ub6b6ar.#................b6#t#t...5.#...H.H#t#t#t.H#t.H.H.H.H.HbT#t...............HaR.HaRaRaRaRaRaRaRaR.taR.k.H.............t.t.t...t.t.t.t#X#X#X#X#X#X#W............#X#j#j....aw....#j#j#j.c#j.c.Vaw...............c#S#S.4.#aw................bEbE.6.6bYbYbEbYbY.6bY#m................bYbY.G....aw....................................................",
+"....................#f.d.d.d.d.d.d.d.d.d.d.7.d.dbrb#aw..............................................atatbA.A.AbAbAbebz.#.#.................................................a#K.a#K#K.a#K.a.a.a.a.a.a.abG.a.abGbGbo#nbGbobSaw.....................................y.y.y.y#Q.#bX.......7.7.d.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.A.i.#.#...........A.A.AbAbAbAat.A.AataA#Q..bAbAbAbA..aw.#....#0b.bAbAb.b.#0#K#0b.b.bp.#.#......................#K.a.a#K#K.a#K.a.a.a.a.a.a.a#n.a#na3.#awbobGbobobo#dbobobobo#dbobo#d#dbo#c#cbfar.k#X#X#j.1.y.y.y.y#c#c.y.ybt.y.y.y#c.y.y.y.ybtbt#z...5#ybtbtbt#rbtbtbKbt.1bt#zbt.....................g.g.g.....#..............b6#Ub6b6b6b6b6#w.#............#t#t#t#G#y.#.#....#t.H#t.H#t.H#t.H#t.H.H.H.H.H.H.H.H.HaRaRaRbP..#HbPaRaRbPaR.taRaR.taR.t.t.taRaR.t.t.t.tbn.5#g#X#X#X.t#X#XbL#X#X#X#X#X#X#Xbg#j#L#L.t.5.#.........c.c#j#j#j#j#j.#...............c.c.j.#.#..................bYbEbEbEbEbYbYbYbY.6.6bYbYbYbYbYbYbY.G.G.G.Gajaw.#......................................................",
+"..................#f.d.d#f.d.d.d.d.d.d.7.d.d.7.d.d.d.i...........................................A.AbAbA.AbAbAbAaM#F.#aw....................................................#K#K#K.a#K.a#K.a.a.a.a.a.a.a.abG#n.a.abo.abobo#p..................................#c#c#c.y#c#F.#.........d.d.7.d.d.d.7br.7.7.7.7.7.7.A.7.A.A.i.#.#...........AbAatat.A.A.AbAbAbAbAbAbAbAbAbAbe.#.#aw....b.bAb.b.b.b.#0b.b.b.b.#I.#.#.........................a#K#K.a.a.a.a.a.a.a.a.a#n.abGbS#F.#aw..bGbobobobobG#d#dbo#dbo#d#c#d#c#c#dbf#Fbi#X#L#j#L.g#c#c.y#c.y.y.y.y.ybtbt.y#z#zbtbtbtbtbt.4.#aw..bt#rbtbt#r#r#r.1#r.1.1.1#r.1.1.1.1.1.1.1.1.g.g.g#b.#.#.................gb6b6b6b6b6b6b6aC#Bb6b6b6#t#tb6#G#Paw.#aw......#t#t.H#t.H#t.H.H.H#t.H.H.H.H.H.H.HbP.H.H.p.#.##HaRbPaRaRaRaRaRaRaR.taR.t.t.t.t.t.t.tbi.#.#.V.t.t.t#X.t#X.t#X#X#X#X#X#X#X#L#Xbg#g.#.#........#j#j#j#j.c.c.c.c.x.#...........cbH.c.#.#....................bEbYbY.6bY.6bEbEbYbYbYbYbYbYbYbYbYbYbjbj.P.5.#.#........................................................",
+"...................d#f.d.d#f.d.d.d.d.d.d.d.d.7.d.7.dbr.i.....................................A.AbA.A.AbAatbA#var.#.#..........................................................#K#K#K.a.a.a#K.a.a.a.a#n.a.abGbobGbGbo.aboboaJ#F.................................y.y#c.y#E.#.#.........7.d.7.7.7.d.7.7.7.7.7.7.7.7.A.7#f#F.#.#.............AbA.A.AatbA.AatbAbAbAbAbAbAbebz.#.#........b.#0b.#0bAb.#0#0b.#KaM.#.#.............................a#K.a#K.a#K.a.a.a.abGbG.aaS.#.#......#nbGbobGaQbGbo#daQ#dbobobobo#dbo#i#Fa6bg#X#X#X#jb6.y#c.y.y.y.y.y.y.y.y#zbtbt.y#zbtbtbtb2.#.#....btbtbtbKbtbtbtbK#r.1bK.1.1#r.1.1.1.1.1.g.1.1aCar.#.#................b6#U#Ub6#Ub6b6b6b6b6b6b6b6b6b6#tb6bK#F.#aw........#t#t#t#t.H#t#t.H.H#t.H.H.H.H.0.H.HbPaRan.#.#....aRaRaRaRaR.t.taRaR.taR.t.t.taR.t.tbR.#.#....#X#X.t#X.t#X.t#X#X#X#X#X#X#Xbg.kbF.#.#..........#j#j#j#j#j#j#j#j.k.I.........c.c#Saw.#........................bEbEbEbYbYbYbYbYbY.6bYbYbYbYbjbjbY.G.X.#.#aw..........................................................",
+"................#f.d.d#f.d.d.d.d.d.d.d.7.d.d.d.7.d.7.d.dax...............................A.A.A.A.A.Aat.AbA.M#F.#aw............................................................#KbG#K.a.a#K.a.a.a.a.a.abG#n.a.a.aboboboboboboa7aw..............................#c#c.y.y#Q.#.5.........d.7.7.7br.7.7br.7.7.7.7.7.7.7ax.#.#aw.............A.A.AbA.AbA.AbAbA.AbAatbAbAaM#F.#aw..........bAbA#0b.b.b.b.b.#0bp.#.#..............................#K.a#K.a.a.a.a.a.a.a.a.a#p.#.#........bGbobGbobobobobobobo#d#d#c#c#daE#F#y#j#L#j#j#j#L.H#c.y.y.y.y.y.y.y.y.y.y.y.ybtbt.y#n#F.#.#......bt.1btbt.1.1.1#r#r#r#rbt.1.1.1.1.1.1.g.1.ga9aw.#aw.................g#Ub6b6#Ub6b6b6b6b6b6bTb6bTb6#tb6az.#.#aw..........#t#t.H.H#t.H.H.H.H.H.H.H.H.HbPbP.0#P.C.#.#......aRaRbPaRbPaRbP.t.taR.taR.t.t.t.tbR.#.#.......t.t#X.t#X#X#X#X#X#X#X#L#j#X#O.I.#aw............#j#j.c#j#j.c.c.c.cas.V...c.c#S..aw.#..........................bEbY.6bE.6bEbEbYbYbYbYbYbYbY.G.G.P.h.#.#..............................................................",
+".................d#f.d.d#f.d.d.d.d.d.d.d.d.d.d.7.d.7.7.d.7.d.n.....................7.A.7.A.A.A.A.A.AbA#v.i.#.#..................................................................#K#K#K.a.a#K.a.a.a.a.abGbGbobo.abGbobobobobobobl.5...........................y.y.y.y.y#C.#.............d.d.7.7.d.7.7br.7.7.A.7aD.i.#.#.................A.A.AbA.A.A.A.AbA.AbA.A.N#3.#.#..............b.bAbAb.b.b.b.#Kbp.#.#................................#K.a.a#K.a.a.a.a.a.a.O#F.#.#............#nbGbobobobo#dbobobobo#dbo.3.#bNbL#X#X#X#X#X#j#j.y#c#c#c#c#z.y.y.ybt.y.y.y.ybt#iaw.#aw..........#r#rbtbtbtbtbKbt.1.1bK#r#r.1.g.g.1.1.1#5.#.#.5..................b6.g.gb6b6b6b6b6b6b6b6#t#Gb6b6#t#Z.#.#................#t#t.H#t#t#t.H.H.H.H.H.H.H.H.Haz.I.#aw........bPaRaRaRaRbnaRbP.taR.tbnaR.t.S.I.#.#........#X.t#X#X#X#X#XbL#X#X#X#X#Xbk.#.#..................#j#j#j#j#j#j#j.c#j.c#j.c.c.f.#.#............................bEbY.6bYbYbYbE.6bY.6bYbYbYbYbYaj.I.#aw................................................................",
+".................d.d#f.d.d#f.d.d.d.d.d.d.7.7.7.d.7.7br.7br.7br.7#vbr.........7.7.A.A.A.A.A.A#6.AbAbA.M#F.#aw.......................................................................a.a#K.a.a.a.a.a.a#n.a.a.a.abo#nbGbGbGbobo#d#d#C..........................#d#c#c#c#i.#.#.............d.7.d.d.7.7br.7.7.7.7b#.#.#aw...................A.A.A.A.AbAbAbA.AbAbe.u.#.#aw................bAb.b.b.#0#0#0bp.#.#...................................a#K#K.a.a.a.a.a.aaS.#.#aw..............bGbobobG#dbobo#d#d#d#dbfb2.#aw.t#X#X#X#j#j#j#L#L#Z.y.y.y.y.y.y.y.y.y.y#z#zbtaEaw.#aw..............btbt#r#r.1#r.1#r#r#r.1.1.1.1.1.1aC.C.#.#.......................gb6b6#Ub6#U#Ub6b6b6b6b6b6#t.raO.#.#....................#t#t.H.H.H#t.H#t.H.H.H.H#P#N.#.#..............aRaRbPbPaRbPbnaR.taR.t.t.f.#.#aw............#X.t.t.tbLbL#X#X#X#X#W.I.#.#....................#L.c.c#j.c.c.c#j.c#j.cbb.I.#.#................................bEbYbE.6.6bYbYbYbYbYbYbYaB.4.#.#....................................................................",
+"...............d#f.d.d.d.d.d.d.d.d.d.d.d.d.d.d.d.d.7.d.7.7.7br.7.7.7.7.7.7.7.A.7.A.A.A.7.A.AbA.A#v.i.#.#............................................................................#K.a.a.a.a#nbG.a.a#n.abG.abG#n.abobobobobobobf#F.........................y.y.y.yaE.#aw...............7.7.7.d.7.7br.7b##F.#.#.......................A.A.A.A.A.A.AbA#vaA.#.#aw......................#0bAbAb.b.bp.#.#.......................................a.a#K#K#K.aa7#C.#.#....................bGbobo#dboboaQbobo#s#F.#bN.tbg#X#X#X#X#X#X.k#D.#aE.y.y#c#c.y#z.ybtbt.y.y.v.#.#....................btbtbtbt#rbt.1.1bK#r.1.1.1.1#5.#.#aw..........................#Ub6#Ub6b6#Ub6b6b6b6b6b6#w#F.#aw........................#t#t#t.H#t.H.H.H.Hbwan.#.#aw..................aR.t.t.t.tbP.t.t.t#qbN.#.#..................#X#X.t#X#X#XbL#9#g.#.#.5........................#j#j#j#j#j.c.c.c#m.x.#.#.5.....................................6bYbYbYbY.6bY.6bY.P.Y.#.#aw......................................................................",
+"...............d.d#f.d#f.d#f.d.d.d.d.d.d.d.d.7.d.d.d.7.dbr.7.7.7.7.7.7.7.7.A#6.A.7.7.A.A.A.A.A#Y#F.#aw..............................................................................#K.a.a.a.abG.abGbo.abo.abo.abGbo#nbobobobobobobSaw.....................y#d#c#c#cb2.#....................bdaxaxb#bz.#.#.#.............................A.AbA.AbAbpbz.#.#aw..........................b.b.b.b.aK.#.#........................................#K#K.a.a.sbl.#.#.5........................bobGbobobGbf.3#F.#.#..bg#X#X#L#j#X#L#j.k.I.#aw.....y.y.y.y.y.y.y.ybW#F.#.#........................bt.1#rbK#rbK#r#r.1#r#r#5aw.#.#.................................gb6b6b6b6b6b6b6b6.rbs.#.#.5.............................Sbw#t.H.H.Haz#N.#.#aw.........................0aRaRaR.tbPbibN.#.#.5.......................t#X.t.t#qbk.#.#aw..............................#j#j.c.c#jbb#y.#.#aw...........................................cbEbEbYbYbY#8.h.#.#aw..........................................................................",
+"..............#f.d.d.d.d.d.d.d#f.d.d.d.d.d.d.7.7.7.7.7.7.d.7.d.7.7.7.7.A.7.7.7.A.A.7.A.A.A.n.I.#.#.....................................................................................a.a.a.a.a.a.abG.abo.abobobGbobG#dbGbo#d#d#d#d#Q.....................y.y.y.y.y#F.#....................................................................bp#3.#.#.#..................................#0bp#3.#.#..............................................bW#C.#.#aw................................bWb2#F.#.#aw....#X#j#L#X#X#L#X#X.k.5.#aw........bf#b.laI.lb2.#.#.#................................#.aQ#r.1.1bva..K.#.#.#........................................b3b6b6b6#t.r#Z.I.#aw......................................aL.#.#.#.#..................................bU#g#g.#.#.#.................................x.5.#.#.5.......................................x.4.#.#.#.5..................................................aH#y#y.#.#.#.5..............................................................................",
+"...............d#f.d#f.d#f.d.d.d.d.d.d.d.d.d.d.d.d.d.7.d.7.7.7.7.7.7.7.7.7.A.A.7#6.A.A#v.u.#.#.5.........................................................................................a#n.abG#nbG.abo.abobGbGbobGbobobo#dbobobobo#d#C..................#d.y.y.y#i.#.#....................................................................................................................aw..........................................................................................................#X#X#X#X#X#L#X#jbb.5.#aw..................................................................aw.#.#.#aw..................................................a1#NaO.#.#aw............................................................................................................................................................................................................................................................................................................................................",
+"..............#f.d.d.d.d.d#f.d.d.d.d.d.7.d.d.7.7.7.d.7.7.d.7.7br.7.7.7.7.7.7.A.A.A.7#Y#F.#aw..............................................................................................bobo#dbobo.abobGbobobo#dbobo#dbo#d#d#d#dbo#d#i#F.................y.y.y.y.l.#.5...............................................................................................................................................................................................................................t#Xbg#j#j#X#j#L#O.#.#.5........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..............#f.d#f.d#f.d.d.d.d.d.d.d.d.7.7.d.d.d.7.7.d.7.7br.A.7.7.7.A.7.7.7.7.n#3.#.#.....................................................................................................y.y#c#daQbG.abobobobo#dbobo#dboboboaQ#c#c#d#E.5.............y.ybt.y.y.2.#..............................................................................................................................................................................................................................#X#X#X#j#j.c.c#j.V.#.#............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...............d.d.d.d.d#f.d.d.d.d.d.d.d.d.d.d.d.d.d.7brbr.7brbr.7.7.7.7.7.7.n#3.#.#.5.........................5aL........ahaL............................................................aLaf.1bt.ybobobobo#d#d#d#d#d#d#c#c#d.y#d#d.y.ybt#Zah...........1.1.g.1bt.4#F..........................................................................ah.m..........aLa8af...............................................................................................................................t#X#j#LaHbX.P.c.Wawaw......................................................................................................................................................................aL.ma8a8a8...............................................m.ZbDbDbDbVa8..................................................................................................................................................................................................................................................",
+"...............d#f.d#f.d.d.d.d.d.d.d.d.d.d.d.7.7.7.7br.7.7.7.7.A.7.7.7.A#vaA.#.#.5..............................a8aa......a8#Rbx....ahaLaL.maLaLaL..ahahaL.m.m.m.maL....................a8aqaqaub6#r.y#dbo#bbsaQ.ybt.ybyaI.y.y#c.y#i#Zan#Z#i#g....bXahaZbM.YbM.x.p.5.5ah..........bX........bXaLaL.maLaLah......ahaLaL.maL......................bVbDao.........ZaqaW##......ahaLaL.maLaLah........ahahaL............ahahaL............ahah................ahah............bXahaLaLaLaLah.........t#X#X#X#jbba8b1bmahbXah..........bX....ahahaL.m.m.m.maL....ahahaLaLaLaLah......ahahaLaLaL............ahahaLaLahah........ahaL..............ahahaL........ahahaLaLaLaLah.....................m.B##a#abbcaq........ahah........ah.......................Zab.w.wababab##......ah..........ah............ahaL..............ahahaL..........ahaLaL..........ahahaLaLaLaLah......ahah........ah............................................................................................................................",
+"..............#f.d.d.d#f.d#f.d.d.d.d.d.d.d.d.d.d.d.7.d.dbr.7br.7.7.7#faA.#.#aw..................................aPaP....bD#ka#......af.o.obJ.oadad##..#kad.QaibJ.oadbx..................af#k.oaobx.gbt#d#d#..Z#AbTbtbK.W.R#Sbt.yaza8bib0.Jbm#u.4....bJaYbVb5b4#J#JbcahaLbx........aqbx......a8.o.obJ.o.oadbx....af.o.obJ.obD....................afao.Qaa.....Zaq#Ta5bZ......af.o.obJ.o.oadbx..aLaLa5ad#Taq......ahaLa5ad#Taq..........aLaib7..........bX.m#Tadao.Z........a8#k.o.o.o.oaWa#..#X#X#XbL#X#X#j.RaZa#.Zaf...mbV........aqbx....a5ad.QaibJ.oad##..af#k.o.o.o.oaWa#....a8#k.o.o.o.B#1......ah#Tbxbx##bxaabx.....m#lbD##........ah.m#TadaWaf......a8#k.o.o.o.oaWa#................aL.ea#........aPbc.......Z.Z#k......aLbx....................aq##..................bXaa.......m.mad.........m#lbD##........ah.m#TadaWaf......ah...o.oai.Q......a8#k.o.o.o.oaWa#....af.Z#k......aLbx..........................................................................................................................",
+"..............#f.d#f.d.d.d.d.d.d.d.d.d.d.7.d.7.d.7.d.7.7.7br.7.7bd#p.#.#aw........................................aPaW#lala#........a8##...................Qb7bx........................bD###R.B#R..bt.y#daz.zaqbIb6.g.x.Jbgbt.FafbnavbY#j.caq#4af.....6aqab#a.6as.Qaf.Zbx........#l##......a8bx.................mbx......#lau...................Zal.oaW....#lab#TaW##......a8bx..............aL#R##....aabx.....maa##....aaa#........af#RbD#R......aL..a###.....8a#.......m##..........bx#X#L#X#X.t.t#j#jbmbVbx......af#T#l......aq##.........Qb7bx.........m##.................m##......aobc.......m.o.................m#R.Bad.......maqa#bZ....aaa#.....m##.............................Za#............aq##....a8abbV.......Za#....................#la2ai.QaP.............Qao......afao.8.........m#R.Bad.......maqa#bZ....aaa#.....Qbx......#R##.....m##.................mab.Z.......Za#..........................................................................................................................",
+"................#f.d.d#f.d.d.d.d.d.d.d.d.d.d.7.d.7.7.7.d.7.7bd#3.#.#.5..............................................aP.e##..........afaoaqbV.Z.............Z#1bZ......................afaWbZ..bc.e....bt.yaz.zaBaPbQ#G.fbQ#j.1#ebU#x.Hb6#U#UbU#T.9af..#taqabbj#t.Wah..bD#laP#laqaq.Q##......afaoaqbVbV..........a8aobVbDbDaqbx...................Zb7#xbcaa#l.Q##bcaW##.......ZaoaqbVbV...........mbD.ZbV..........a8bD.Z.Z..........a8aWbxaP#k......a8bx...................mbcbV.Z.Z....#jbg#XbL#X#X.t.kbFafbDbx......afbZaob7....aP##.........Z#1bZ........a8bcbVbVaf...........m.B.ZbDbDbVau##....a8.QaPafa8..........afa#...Q......a8##................a8bcbVbV.Z......................bVa#............aqaG....af##...Q....aqa#....................#la2a5aWaobx...........eai.o...Z..b7bJ........afa#...Q......a8##................afaq.ZbV..........a8bcbVbVaf...........m##...Q....aqa#..........................................................................................................................",
+"..................#f.d.d#f.d.d.d.d.d.d.d.7.d.d.d.d.d.d#fb##F.#.#.5..................................................#l.wbZ...........Z.8auau#kbx..........afao##......................bV.Q.B#Abc.Baa....#c#Eaj#jbT.Q#8#u#J#S.ga6buacb6#U.g.gbUbI#2a0a.bTaq.wbj#tanah..aq########abaW##.......Z.8auau#kbx........a8auauaWb7##bx.......1.1.1......afb7ak.Bb7ai.w##aPalbZ.......Z.8auau#kbx...........waua5.Q.B.........wau#k.Q.B......afau#T..aq#R....a8bx....a8af.Z........a8albJauaY.wb8.c#L#X#XbL#Xa6#F.5.ZbDbx......a8##..aoao...Q##........afao##........a8albJbJbJab.........mbJbJbJaPaGbx.......m.o####aba#.......maoau..aq.o.....Z#R................a8albJbJbJab....................bVaG..........bVaPbx....af##..aW.Q..aPbx....................#l##bZbZ####..........al..aq..bV##aPau.......maoau..aq.o.....Z#R..................#RauauaobD......a8albJbJbJab........a8##..aW.Q..aPbx..........................................................................................................................",
+".....................d.d#f.d.d.d.d.d.d.d.d.d.7.7#fax#3.#.#aw........................................................aq.w............bVbx..................afaobx....................a8#1bxbx####bJ#T......#.ajbg.gbbaq#Ab4#S#U.ra8amb6.g.gbKa8am#2#U.pb6bVabbYbT.4bX..bDbx.........Q##......bVbx................a8bx....aPau....b6#U.g.g.g.g#UbT.haobZ...Q.o##..aqb7##......bVbx........................auao##............auao##..a8.BabaWaW.Ba5....afau......##.e.o......a8bJ##..#aapbY#j#LbLbL#9.4.#.#....bVa#.......m##....#l.B.Q##........afaobx........a8bJbZ...............m##....bcal........a8.o...............mau.o#Tb7.Q....bVal........aL......a8bJbZ..........................#l.Q..........bV.obx....a8##....aoao.Qbx....................aq##..................al..aqbD..bZbVbJ......a8au.o#Tb7.Q....bVal........aL................#la#....afbJbZ...............mbx....ao#1.Qbx..........................................................................................................................",
+"........................bd.d.d.d.d.d.d.d.daxaA#3.#.#aw...............................................................Zab.............Z.eaqbDbVa8.m.........m.B##.....................m##..........aq#R.......j.t#r.g.zbD.8#S.g.gb3ai.Vbia1.W.Xa#.H.1.1#U.Z.8.6b6.5.5...Zbx.........Q##......bVaWaqbDbVa8.m.......m##......#l#a.Hb6b6.1.1.g.gb6#tbUaX.q...QaGbZ..bVao##......bVaWaqbDbVa8.m....aL.Zaf..bV.Z..##...m.Z.Z..bV.Z..##...m##........bV#R....aiaqaf..bDbVab......a8.Q#A.EbuaH.x.c#j#Xa6.#.#aw.......Za#.......mbx.......Qal##.........m.B##.........m.Q.QbV.Za8a8......aL##......aqab......aLad............ah..##......aPad.....Baqafa8.ma8.o....a8.Q.Q.Z.Za8a8.....................ebDbDafaf.ZaWa#......aLbx......aoaPbx....................aq#Taqaq.Za8.m........#1....aob1...Z.o....aL..##......aPad.....Baqafa8.ma8.o.....mbV.Z..bVbVbx....a8.Q.QbV.Za8a8......aL##......aoaPbx..........................................................................................................................",
+"............................aA.i.i.i.i.#.#.#.#.........................................................................8...............8aubJbJ.oadbx.........obx......................a#.............w......aX.Pbt#rbKbh.8#j.1.1.1#jaYbh.z#2ac#j#U#r#r.r#B.w#S.g.5aw....#R........alaa.........8aubJbJ.oadbx......aa......agab#G#U#U.g.1.1.g.g#P#HaY.q.t.kav.......o#R.........8aubJbJ.oad##....bxau.oa5#Ra#......a#au.oa5#Ra#......a#...........w......abbJad..bZa#.......f#Jaub4b4au#k.qbba3.#.#...........e#R........aa........au#R...........obx...........oau.obJ.oaWa#.......8........bJ........ab..............#R..........bJ......#RaubJaba#bx.......oaubJbJ.oaWa#....................#R.8.o.obxa#...........8........bJ.w.....................eabbJaubJ.o.oaa..............##....ab......#R..........bJ......#RaubJaba#bx.......w.oa2aubx##.......oau.obJ.oaWa#.......8........bJ.w..........................................................................................................................",
+"................................................................................................................................................................................................................#d.ybtb6#j#jbtbtbtbt.1bgaNbg.1.1bt#z.ybt#t#jaRa.aw#F.......................................................H#S.tb6.g.1.g.g.1.gb6aR.6.6.H.H.H#P..........................................................................................................#X.cb8#a#a#ab8.UaY.5#FbX......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................bo.y#z#zbt#c.y.y.ybt.ybtbt#zbtbt.y.y.ybt.1#r#e.#........................................................#Ub6.g.g.g.1.g.g.g.g#Ub6bT#t#G#t#G#t#t#b...................................................................................................t.t#X#X#Xbg#j#j#VbFaw.5..........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................bo#d#c#d#d#d#c#c#c.y.y#c.y#c#c.y.y.y#z.y.yaI.#.......................................................1.1.1.g.1.1.g.1.g.1.1.g#Ub6b6b6b6b6b6b6b6an............................................................................................aR.t.t.t.t.tbL#X#W.Kaw.#..............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................#dbo#dbo#d#d#d#c#c#c#c#c.y#d#d#c.y.y.y.y#5.#.......................................................1.g.1.g.g.1.g.1#U#U.g.g.g.g.g.g#U#U#U#Ub6b6.I.......................................................................................t.t.t.t.taR.t.tbT.4.#.#bX................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..........................................................................................................................................................................................................................bo#dbo#dbobobo#c#d#d#d#c#c.y#c#c#c.yb2.#.......................................................1.1.1.1.1.g.1.g.g.g.g.g.g.g#U#U.gb6b6b6b6b6a0.#.................................................................................HaRaRaRaRaRaR.t.Sbk.#.#.5....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"............................................................................................................................................................................................................................#dbo#d#d#d#d#d#c#c#d#d#d.y.y.y#d#cb2.#......................................................bt.1.1.1.1.g.1.1.1.1.g.g.g.gb6b6.g.g.gb6#U#Ub6aO............................................................................aRaRaRaRaRaR.t.t.Sbk.#.#aw........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..............................................................................................................................................................................................................................bobobo#dbo#d#dbo#c#c#d#d#d#c.y.y#i.#.........................................................1.1.1.1.1.1.1.g.g.g.g.g.g.g.g.g.gb6.gb6b6#U#Uar.......................................................................HaRaRaRbPaRaRaRb3bR.#.#aw............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................bobo#dbo#d#c#d#d#c#c#c.y#d#c#d#c.3aw.......................................................1.1.1.1.g.g#r.1.1.1.g.g.1.g.g#U.g.g.g.gb6b6#Ub6aO...............................................................HaRaRbPbPaRaRbPaR#qbN.#.#.5................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................................bobo#dbo#d#d#d#d#d#d#d#d.y.y.y.y#C.........................................................1.1.1#r.1.1.g.g.g.1.g.g.g.g.g#U#U#Ub6#U#Ub6b6#U#Z.......................................................H.H.HaR.H.H.HaRbP#PbU.I.#.#.5....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................................bo#dbobo#c#d#d#c#c.y#d#d#d#c#cbO.#.........................................................1.1.1.g.1.1.1.g.1.g.1#U.g.gb6b6.gb6b6.g#Ub6b6b6aCa9..........................................#t#t.H.H.H.H.H.HaRaR.Hb3bR.#.#aw..........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"........................................................................................................................................................................................................................................#d#cboaQ#c#d#d#d#c#c.y.y.y#c#C.5.........................................................1.1.1.1.g.g.1.g.g#U.g.g.g.g.g.g.g#Ub6b6b6#Ub6b6b6bK.r............................#t#t#t.H.H.H.H.H.H.HbP.HaR#Pan.I.#.#.5..............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..........................................................................................................................................................................................................................................#d#d#d#c#c#c#c#c#c#c#c.y.y#i.#............................................................aC.1.1.g.g.1.g.g.g.g.g#Ub6b6b6.g#U#Ub6#Ub6b6b6b6b6b6b6b6b6b6b6b6bT#G#t#t#t#t#t#t.H#t.H.H.H#t.H.H.H#PbB.C.#.#aw....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"............................................................................................................................................................................................................................................#dbo#d#d#d.y.y#d.y.y#c#c.y#Qaw..............................................................az.1.1.g.g.g.g.g.g.g.g.g.gb6b6b6b6b6b6b6b6b6bTb6bTb6#t#t#t#t#G#t#t#t#t#t#t.H#t.H#t.H.H.Haz.Waw.#.#aw..........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..............................................................................................................................................................................................................................................#d#c#d#d#d#d#c#c.y.y.y.y#E.#..................................................................a0#5bv.g.g.g.g.g.gb6.g.g.g#Ub6b6b6b6b6b6b6b6b6bTb6#G#G#tb6#t#t#t#t.H#t#t#t.H#B#b#N.#.#.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#d#c#c#d.y#d.y#c#c.y#c.y#C.5........................................................................bs#5#.#U#U.gb6b6b6b6b6#Ub6b6b6b6#t#G#t#G#tb6#t#t#t#G#t#t#t#Baz#NbN.#.#.#.5........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#d#d#c#d#c#c.y.y#c.y#c.y#E.#..................................................................................araOaOa.a.a0a0#Ub6b6b6b6b6b6b6#t#wa0az#ZaOaO.I.#.#.#.5..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#c#c#d#c.y#d#d#c.y.y.y#c.y#F.5...................................................................................................#.#.#.#.#.#.#.#.#.5..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#d#c#d#d.y.y.y#d#c.y.y.y.ybW.#........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#c#d#c#c#d#d#c.y.y.y.y.y.y#i.#........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#c#d#d#c#c.y#d#c#c.y#c.y.y.y#Caw......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#c#c#c#c#c#d.y.y.y#c.y#c.y.yby.#......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#d#d#d.y#c#c#d#c.y.y.y#z.y.y#i.#......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#c#c#d#d#d#d.y.y#c.y.y.y.y.y.y#Caw....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#d#c#c.y#c#c#c.y#c.y.y#c.y.y.y#Q.#....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"................................................................................................................................................................................................................................................#c#d#d#d.y#d.y#c.y#c#c.y.y#z.yaI.#....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................................................#c#d#d.y#d.y#d.y.y.y.y.y#z.y.y.#....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................................................#d#c#c#d#c#c.y#c.y.y.y.y.y.y.y#C.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................................................#d#d#c#c.y#d.y#c#c#c.y.y.y.y.yb2.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................................................#c#c#d.y#c.y#c.y.y.y#c.y.y.y.yaE.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..................................................................................................................................................................................................................................................#d#d#c#d#d.y#d.y.y.y.y.y#z#z.y#E.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................................................#c#d#c#c#c.y#c.y.y#c.y.y.y.y.y.#.5................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................................................#c.y#d.y#d.y#c.y.y#c.y.y#z.y.y.#.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................................................#d#d.y#c.y#c.y#c.y.y.y.y.y.y.y#C.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"....................................................................................................................................................................................................................................................#c#d#d#c.y#d.y.y.y#c.y.y#z#z.yb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................#c#c#d#c.y#c#c.y.y.y.y.y.y#zb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".......................................................................................................................................................................................................................................................y.y#d#c.y.y#c.y.y.y.y.y.y.yb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................#d#d.y.y#c#c.y#z#c.y.y.y.y.yb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"........................................................................................................................................................................................................................................................#d#d.y.y.y#c.y.y.y.y.y#z.yb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"........................................................................................................................................................................................................................................................#c#c#d#c#c.y.y.y.y#z#z.y.yb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...........................................................................................................................................................................................................................................................y.y.y.y.y#c.y.y.y.y#z.yb2.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"..........................................................................................................................................................................................................................................................#d#d#c#c#c#z#c.y.y.y.y.y#F.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".............................................................................................................................................................................................................................................................y.y.y.y.y.y.y.y.y#z.y.#.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"............................................................................................................................................................................................................................................................#d#c#d.y.y.y.y#z.y.yaI.#.#................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...............................................................................................................................................................................................................................................................y#c.y#c.y.y.y.y.y#C.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+".................................................................................................................................................................................................................................................................y#c.y.y.y#z.y#..#.#..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"...................................................................................................................................................................................................................................................................y.y.y.y.ybO#F.#.5..................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................aIb2#C.#.#.5....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................",
+"......................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................"
+};
diff --git a/etc/icons/wl-message-extract-content-up.xpm b/etc/icons/wl-message-extract-content-up.xpm
new file mode 100644
index 0000000..4e093d7
--- /dev/null
+++ b/etc/icons/wl-message-extract-content-up.xpm
@@ -0,0 +1,43 @@
+/* XPM */
+static char * wl_message_extract_content_up_xpm[] = {
+"32 32 8 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #E79DCB2B9E79",
+"O	c #B6DAA6998617",
+"+	c #CF3CBAEA9658",
+"@	c #514471C6FFFF",
+"#	c #AEBAAAAAAEBA",
+"                                ",
+"                                ",
+"                                ",
+"        ............            ",
+"     ...XXXXXXXXXXXX...         ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    ....XXXXXXXXXXXX....        ",
+"    .ooo............OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo+++++++@++++OOO.        ",
+"    .ooo++++++@@++++OOO.        ",
+"    .ooo+++++@@@@@@@@@O@@ @@ @@ ",
+"    .ooo++++@@@@@@@@@@O@@ @@ @@ ",
+"    .ooo++++@@@@@@@@@@O@@ @@ @@ ",
+"    .ooo+++++@@@@@@@@@O@@ @@ @@ ",
+"    .ooo++++++@@++++OOO.        ",
+"    .ooo+++++++@++++OOO.##      ",
+"    .ooo++++++++++++OO+.####    ",
+"     ...++++++++++++...#####    ",
+"        ............#######     ",
+"         ##############         ",
+"                                ",
+"                                ",
+"              .             .   ",
+"   ....       .             .   ",
+"   .    .  . .... ...   .. ...  ",
+"   ...  .  .  . ..   . .    .   ",
+"   .     ..   . .  ... .    .   ",
+"   .    .  .  . .  . . .    .   ",
+"   .... .  .  . .  .. . ..  .   ",
+"                                "};
diff --git a/etc/icons/wl-message-next-content-up.xpm b/etc/icons/wl-message-next-content-up.xpm
new file mode 100644
index 0000000..b4bd524
--- /dev/null
+++ b/etc/icons/wl-message-next-content-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_next_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #59656595C71B",
+"O	c #965896589658",
+"+	c #596569A6C71B",
+"@	c #59656DB6CF3C",
+"#	c #596571C6CF3C",
+"$	c #596575D6CF3C",
+"%	c #618579E7D75C",
+"&	c #61857DF7D75C",
+"*	c #61857DF7DF7D",
+"=	c #61858207DF7D",
+"-	c #69A68A28E79D",
+";	c #61858617E79D",
+":	c #69A68E38EFBE",
+">	c #69A69248EFBE",
+",	c #69A69658F7DE",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"             .....              ",
+"             .Xoo.O             ",
+"             .Xoo.O             ",
+"             .X++.O             ",
+"             .X@@.O             ",
+"             .X##.O             ",
+"             .X$$.O             ",
+"             .X%%.O             ",
+"             .X&&.O             ",
+"             .X**.O             ",
+"        ......X==......         ",
+"         .X-;;;;;;;;;.OO        ",
+"          .X--------.OO         ",
+"           .X::::::.OO          ",
+"            .X>>>>.OO           ",
+"             .X,,.OO            ",
+"              .X.OO             ",
+"               .OO              ",
+"               OO               ",
+"                                ",
+"                       .        ",
+"       .   .           .        ",
+"       ..  .  .  .  . ...       ",
+"       . . . . . .  .  .        ",
+"       . . . ...  ..   .        ",
+"       .  .. .   .  .  .        ",
+"       .   .  .. .  .  .        ",
+"                                "};
diff --git a/etc/icons/wl-message-play-content-up.xpm b/etc/icons/wl-message-play-content-up.xpm
new file mode 100644
index 0000000..6e79248
--- /dev/null
+++ b/etc/icons/wl-message-play-content-up.xpm
@@ -0,0 +1,41 @@
+/* XPM */
+static char * wl_message_play_content_up_xpm[] = {
+"32 32 6 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #BEFBBEFBBEFB",
+"o	c #69A669A669A6",
+"O	c #9E799A699E79",
+"+	c #D75C5D755965",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"        ............            ",
+"       .XXXXXXXXXXXo.           ",
+"    .. .XOOOOOOOOOOo.           ",
+"    .. .XOOOOOO........         ",
+"    .X..XOOOOOO.XXOOOO.         ",
+"    .O..XOOOOOO.oooooo.         ",
+"    .o..XOOOOOO........         ",
+"    .o..XOOOOOOOOOOo.           ",
+"    .o..XOOOOOOOOOOo.           ",
+"    .. .XOOOOOOOOOOo.           ",
+"    .. .XOOOOOOOOOOo.           ",
+"       .oooooooooooo.           ",
+"        ............   +        ",
+"                       ++       ",
+"        ++ ++ ++ +++++++++      ",
+"        ++ ++ ++ ++++++++++     ",
+"        ++ ++ ++ ++++++++++     ",
+"        ++ ++ ++ +++++++++      ",
+"                       ++       ",
+"                       +        ",
+"              .                 ",
+"         ...  .                 ",
+"         .  . . ..  .  .        ",
+"         .  . .   . .  .        ",
+"         ...  . ... .  .        ",
+"         .    . . .  ..         ",
+"         .    . .. . .          ",
+"                    .           "};
diff --git a/etc/icons/wl-message-prev-content-up.xpm b/etc/icons/wl-message-prev-content-up.xpm
new file mode 100644
index 0000000..0d1895c
--- /dev/null
+++ b/etc/icons/wl-message-prev-content-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_previous_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #69A69658F7DE",
+"O	c #69A69248EFBE",
+"+	c #69A68E38EFBE",
+"@	c #69A68A28E79D",
+"#	c #61858617E79D",
+"$	c #61858207DF7D",
+"%	c #965896589658",
+"&	c #61857DF7DF7D",
+"*	c #61857DF7D75C",
+"=	c #618579E7D75C",
+"-	c #596575D6CF3C",
+";	c #596571C6CF3C",
+":	c #59656DB6CF3C",
+">	c #596569A6C71B",
+",	c #59656595C71B",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"               .                ",
+"              .X.               ",
+"             .Xoo.              ",
+"            .XOOOO.             ",
+"           .X++++++.            ",
+"          .X@@@@@@@@.           ",
+"         .X@#########.          ",
+"        ......X$$......         ",
+"         %%%%.X&&.%%%%%         ",
+"             .X**.%             ",
+"             .X==.%             ",
+"             .X--.%             ",
+"             .X;;.%             ",
+"             .X::.%             ",
+"             .X>>.%             ",
+"             .X,,.%             ",
+"             .X,,.%             ",
+"             .....%             ",
+"              %%%%%             ",
+"                                ",
+"                                ",
+"         ...                    ",
+"         .  . . . .  .  .       ",
+"         .  . .. . . .  .       ",
+"         ...  .  ... .  .       ",
+"         .    .  .   . .        ",
+"         .    .   ..  .         ",
+"                                "};
diff --git a/etc/icons/wl-message-quit-up.xpm b/etc/icons/wl-message-quit-up.xpm
new file mode 100644
index 0000000..7eb9182
--- /dev/null
+++ b/etc/icons/wl-message-quit-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_folder_quit_up_xpm[] = {
+"32 32 7 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #CF3CBAEA9658",
+"O	c #AEBAB2CAAEBA",
+"+	c #B6DA965869A6",
+"@	c #69A68E38EFBE",
+"                                ",
+"                                ",
+"                                ",
+"            ...........         ",
+"            .XXooooooo.OO       ",
+"            .X.......o.OO       ",
+"            .o.++++X.o.OO       ",
+"            .o.+oooX.o.OO       ",
+"       @    .o.+oooX.o.OO       ",
+"       @@   .o.+oooX.o.OO       ",
+" @@@@@@@@@  .o.XXXXX.o.OO       ",
+" @@@@@@@@@@ .o.......o.OO       ",
+" @@@@@@@@@@@.XXooooooo.OO       ",
+" @@@@@@@@@@O.XXooooooo.OO       ",
+" @@@@@@@@@OO.o.......o.OO       ",
+" OOOOOO@@OO .o.++++X.o.OO       ",
+" OOOOOO@OO  .o.+oooX.o.OO       ",
+"       OO   .o.+oooX.o.OO       ",
+"       O    .o.+oooX.o.OO       ",
+"       O    .o.XXXXX.o.OO       ",
+"            .o.......o.OO       ",
+"            .ooooooooo.OO       ",
+"            ...........OO       ",
+"             OOOOOOOOOOOO       ",
+"                 .  .           ",
+"       ....         .           ",
+"       .    .  . . ...          ",
+"       ...  .  . .  .           ",
+"       .     ..  .  .           ",
+"       .    .  . .  .           ",
+"       .... .  . .  .           ",
+"                                "};
diff --git a/etc/icons/wl-message-read-up.xpm b/etc/icons/wl-message-read-up.xpm
new file mode 100644
index 0000000..1277854
--- /dev/null
+++ b/etc/icons/wl-message-read-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_jump_to_current_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #8617BEFBF7DE",
+"O	c #8617BAEAF7DE",
+"+	c #8617B6DAF7DE",
+"@	c #FFFFFFFFFFFF",
+"#	c #79E7AEBAEFBE",
+"$	c #79E7AEBAF7DE",
+"%	c #79E7B2CAF7DE",
+"&	c #79E7A699EFBE",
+"*	c #79E7AAAAEFBE",
+"=	c #71C6A289EFBE",
+"-	c #71C69E79EFBE",
+";	c #71C69A69E79D",
+":	c #69A69658E79D",
+">	c #69A69248E79D",
+",	c #69A68A28E79D",
+"<	c #965896589658",
+"1	c #AEBAAEBAAEBA",
+"                                ",
+"                                ",
+"                  ....          ",
+"                ..XXXX..        ",
+"               .XoO+++Oo.       ",
+"              .Xo+@@#$%+o.      ",
+"             .Xo+$@@&&*$+o.     ",
+"             .XO%*=-;-=*%O.     ",
+"             .X+$&-:>:-&$+.     ",
+"             .X+#&;>,>;&#+.     ",
+"             ..X$&-:>:-&$..     ",
+"             .<.%*=-;-=*.<.     ",
+"              .1..*&&&..1.<     ",
+"               .@@....11.<<     ",
+"                ..@@@1..<<      ",
+"                <.....<<<       ",
+"               <..<<<<<<        ",
+"               <..<<<<          ",
+"              <..<<             ",
+"              <..<              ",
+"             <..<<              ",
+"             @@.<               ",
+"             <<<<               ",
+"             <<<<               ",
+"              <        .        ",
+"       ...             .        ",
+"       .  .  .  ..   ...        ",
+"       .  . . .   . .  .        ",
+"       ...  ... ... .  .        ",
+"       .  . .   . . .  .        ",
+"       .  .  .. .. . ...        ",
+"                                "};
diff --git a/etc/icons/wl-summary-delete-up.xpm b/etc/icons/wl-summary-delete-up.xpm
new file mode 100644
index 0000000..59f7a90
--- /dev/null
+++ b/etc/icons/wl-summary-delete-up.xpm
@@ -0,0 +1,43 @@
+/* XPM */
+static char * wl_summary_delete_up_xpm[] = {
+"32 32 8 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #E79DCB2B9E79",
+"o	c #69A68E38EFBE",
+"O	c #CF3CBAEA9658",
+"+	c #FFFFFFFFFFFF",
+"@	c #B6DAA6998617",
+"#	c #965896589658",
+"                                ",
+"            ....                ",
+"           .XXXX..              ",
+"     o     .XOOOXX..            ",
+"     oo   ..XOOOOOOO..          ",
+" ooooooo .++.XOOOOOOOO.         ",
+" oooooooo .. ..@@@OOOO@.        ",
+" ooooooooo.+.++...@@@@@.        ",
+" oooooooo  .++..++......        ",
+" ooooooo   ...++.+.+#...        ",
+"     oo    .XO.......@@.        ",
+"     o     .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.        ",
+"           .XOXOOO@O@@@.##      ",
+"            ..XOOO@O@..####     ",
+"              .......#####      ",
+"              #########         ",
+"                .      .        ",
+"      ....      .      .        ",
+"      .   .  .  .  .  ... .     ",
+"      .   . . . . . .  . . .    ",
+"      .   . ... . ...  . ...    ",
+"      .   . .   . .    . .      ",
+"      ....   .. .  ..  .  ..    ",
+"                                "};
diff --git a/etc/icons/wl-summary-exit-up.xpm b/etc/icons/wl-summary-exit-up.xpm
new file mode 100644
index 0000000..7eb9182
--- /dev/null
+++ b/etc/icons/wl-summary-exit-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_folder_quit_up_xpm[] = {
+"32 32 7 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #CF3CBAEA9658",
+"O	c #AEBAB2CAAEBA",
+"+	c #B6DA965869A6",
+"@	c #69A68E38EFBE",
+"                                ",
+"                                ",
+"                                ",
+"            ...........         ",
+"            .XXooooooo.OO       ",
+"            .X.......o.OO       ",
+"            .o.++++X.o.OO       ",
+"            .o.+oooX.o.OO       ",
+"       @    .o.+oooX.o.OO       ",
+"       @@   .o.+oooX.o.OO       ",
+" @@@@@@@@@  .o.XXXXX.o.OO       ",
+" @@@@@@@@@@ .o.......o.OO       ",
+" @@@@@@@@@@@.XXooooooo.OO       ",
+" @@@@@@@@@@O.XXooooooo.OO       ",
+" @@@@@@@@@OO.o.......o.OO       ",
+" OOOOOO@@OO .o.++++X.o.OO       ",
+" OOOOOO@OO  .o.+oooX.o.OO       ",
+"       OO   .o.+oooX.o.OO       ",
+"       O    .o.+oooX.o.OO       ",
+"       O    .o.XXXXX.o.OO       ",
+"            .o.......o.OO       ",
+"            .ooooooooo.OO       ",
+"            ...........OO       ",
+"             OOOOOOOOOOOO       ",
+"                 .  .           ",
+"       ....         .           ",
+"       .    .  . . ...          ",
+"       ...  .  . .  .           ",
+"       .     ..  .  .           ",
+"       .    .  . .  .           ",
+"       .... .  . .  .           ",
+"                                "};
diff --git a/etc/icons/wl-summary-forward-up.xpm b/etc/icons/wl-summary-forward-up.xpm
new file mode 100644
index 0000000..0a957d5
--- /dev/null
+++ b/etc/icons/wl-summary-forward-up.xpm
@@ -0,0 +1,41 @@
+/* XPM */
+static char * wl_summary_forward_up_xpm[] = {
+"32 32 6 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFFFFFFFFF",
+"o	c #59656595C71B",
+"O	c #9E799A699E79",
+"+	c #D75C38E34103",
+"                                ",
+"  ..................            ",
+"  .XXXXXXXXXXXXXXXX.            ",
+"  .XooX    XXXXXXXX.O           ",
+"  .XooXXXXXXXXXXXXX.O           ",
+"  .XXXX    XXXXXXXX.O           ",
+"  .XXXXXXXXXXXXXXXX.O +         ",
+"  .XXXXXXXXXXXXXXXX.O++         ",
+"  .XXXXXXXXXXXXXXXX.+++++       ",
+"  .XXXXXXXXXXXXXXXX.O++ +       ",
+"  .XXXXXXXXXXXXXXXX.O + +       ",
+"  ..................O   +       ",
+"   OOOOOOOOOOOOOOOOOO   +       ",
+"   OOOOOOOOOO.................. ",
+"             .XXXXXXXXXXXXXXXX. ",
+"             .XooX    XXXXXXXX.O",
+"             .XooXXXXXXXXXXXXX.O",
+"             .XXXX    XXXXXXXX.O",
+"             .XXXXXXXXXXXXXXXX.O",
+"             .XXXXXXXXXXXXXXXX.O",
+"             .XXXXXXXXXXXXXXXX.O",
+"             .XXXXXXXXXXXXXXXX.O",
+"             .XXXXXXXXXXXXXXXX.O",
+"             ..................O",
+"              OOOOOOOOOOOOOOOO.O",
+"  ....        OOOOOOOOOOOOOOOO.O",
+"  .    ..  . .. . . ..  . . ... ",
+"  ... .  . .. . . .   . .. .  . ",
+"  .   .  . .  . . . ... .  .  . ",
+"  .   .  . .   . .  . . .  .  . ",
+"  .    ..  .   . .  .. ..   ... ",
+"                                "};
diff --git a/etc/icons/wl-summary-jump-to-current-message-up.xpm b/etc/icons/wl-summary-jump-to-current-message-up.xpm
new file mode 100644
index 0000000..0c206ef
--- /dev/null
+++ b/etc/icons/wl-summary-jump-to-current-message-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_summary_jump_to_current_message_up_xpm[] = {
+"32 32 7 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #EFBEFFFFC71B",
+"o	c #CF3CBAEA9658",
+"O	c #F7DEFFFFBEFB",
+"+	c #AEBAB2CAAEBA",
+"@	c #69A68E38EFBE",
+"                                ",
+"                                ",
+"            ............        ",
+"           .X.oOOOOOOOO.++      ",
+"          .X.oOOOOOOOOO.++      ",
+"         .XX.oOOOOOOOOO.++      ",
+"        .X...oOOOOOOOOO.++      ",
+"        ..ooooOO+O+++OO.++      ",
+"        .oOOOOOOOOOOOOO.++      ",
+"        .OOOOOOOOOOOOOO.++      ",
+"      @ .OO++OOOO++++OO.++      ",
+"      @@.OOOOOOOOOOOOOO.++      ",
+"  @@@@@@@OOOOOOOOOOOOOO.++      ",
+"  @@@@@@@@O+OO++OOO++OO.++      ",
+"  @@@@@@@@@OOOOOOOOOOOO.++      ",
+"  @@@@@@@@OOOOOOOOOOOOO.++      ",
+"  @@@@@@@OO++OO++O+++OO.++      ",
+"      @@.OOOOOOOOOOOOOO.++      ",
+"      @ .OOOOOOOOOOOOOO.++      ",
+"        .OOOOOOOOOOOOOO.++      ",
+"        .OOOOOOOOOOOOOO.++      ",
+"        .OOOOOOOOOOOOOO.++      ",
+"         ...............++      ",
+"          ++++++++++++++++      ",
+"          +++++++++.++++++      ",
+"        ....       .            ",
+"        .    ...  ... .  . .    ",
+"        ...  .  .  . . . ..     ",
+"        .    .  .  . ... .      ",
+"        .    .  .  . .   .      ",
+"        .... .  .  .  .. .      ",
+"                                "};
diff --git a/etc/icons/wl-summary-mark-as-important-up.xpm b/etc/icons/wl-summary-mark-as-important-up.xpm
new file mode 100644
index 0000000..d4210b9
--- /dev/null
+++ b/etc/icons/wl-summary-mark-as-important-up.xpm
@@ -0,0 +1,43 @@
+/* XPM */
+static char * wl_summary_mark_as_important_up_xpm[] = {
+"32 32 8 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #E79DCB2B9E79",
+"o	c #CF3CBAEA9658",
+"O	c #B6DAA6998617",
+"+	c #FFFFFFFFFFFF",
+"@	c #AEBAAEBAAEBA",
+"#	c #69A68E38EFBE",
+"                                ",
+"        ..................      ",
+"       ..XoooooooooooooooO.     ",
+"       ..XoooooooooooooooO.     ",
+"       ..Xoooooooooooooooo.     ",
+"       .+.ooooooooooooooooO.    ",
+"       .+.XoooooooooooooooO.    ",
+"       .+.XoooooooooooooooO.    ",
+"       .+.XooooooooooooooooO.   ",
+"        .+.XoooooooooooooooO.   ",
+"        .+.OOOOOOOOOOOOOOOOO.   ",
+"        .+.................O.   ",
+"        .+.@@@@@@@@@@@@@@@@..   ",
+"         .+@+++++++++++++++@.   ",
+"        .++@++++++++++++++++.   ",
+"       .+++...@+++++++++++++.   ",
+" #    .+++++.@++++++++++++++.   ",
+" ##  .+++++.@@++++++++++++++.   ",
+"  # .+++++.@@@+++++++++++++.    ",
+"  ## .#++..................     ",
+"   ####+.                       ",
+"       .                        ",
+"                                ",
+"                                ",
+"                      .         ",
+"         .   .        .         ",
+"         .. .. ..  . .. .       ",
+"         . . .   . .. ..        ",
+"         . . . ... .  ..        ",
+"         . . . . . .  . .       ",
+"         . . . .. ..  . .       ",
+"                                "};
diff --git a/etc/icons/wl-summary-next-page-up.xpm b/etc/icons/wl-summary-next-page-up.xpm
new file mode 100644
index 0000000..b4bd524
--- /dev/null
+++ b/etc/icons/wl-summary-next-page-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_next_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #59656595C71B",
+"O	c #965896589658",
+"+	c #596569A6C71B",
+"@	c #59656DB6CF3C",
+"#	c #596571C6CF3C",
+"$	c #596575D6CF3C",
+"%	c #618579E7D75C",
+"&	c #61857DF7D75C",
+"*	c #61857DF7DF7D",
+"=	c #61858207DF7D",
+"-	c #69A68A28E79D",
+";	c #61858617E79D",
+":	c #69A68E38EFBE",
+">	c #69A69248EFBE",
+",	c #69A69658F7DE",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"             .....              ",
+"             .Xoo.O             ",
+"             .Xoo.O             ",
+"             .X++.O             ",
+"             .X@@.O             ",
+"             .X##.O             ",
+"             .X$$.O             ",
+"             .X%%.O             ",
+"             .X&&.O             ",
+"             .X**.O             ",
+"        ......X==......         ",
+"         .X-;;;;;;;;;.OO        ",
+"          .X--------.OO         ",
+"           .X::::::.OO          ",
+"            .X>>>>.OO           ",
+"             .X,,.OO            ",
+"              .X.OO             ",
+"               .OO              ",
+"               OO               ",
+"                                ",
+"                       .        ",
+"       .   .           .        ",
+"       ..  .  .  .  . ...       ",
+"       . . . . . .  .  .        ",
+"       . . . ...  ..   .        ",
+"       .  .. .   .  .  .        ",
+"       .   .  .. .  .  .        ",
+"                                "};
diff --git a/etc/icons/wl-summary-next-up.xpm b/etc/icons/wl-summary-next-up.xpm
new file mode 100644
index 0000000..b4bd524
--- /dev/null
+++ b/etc/icons/wl-summary-next-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_next_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #59656595C71B",
+"O	c #965896589658",
+"+	c #596569A6C71B",
+"@	c #59656DB6CF3C",
+"#	c #596571C6CF3C",
+"$	c #596575D6CF3C",
+"%	c #618579E7D75C",
+"&	c #61857DF7D75C",
+"*	c #61857DF7DF7D",
+"=	c #61858207DF7D",
+"-	c #69A68A28E79D",
+";	c #61858617E79D",
+":	c #69A68E38EFBE",
+">	c #69A69248EFBE",
+",	c #69A69658F7DE",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"             .....              ",
+"             .Xoo.O             ",
+"             .Xoo.O             ",
+"             .X++.O             ",
+"             .X@@.O             ",
+"             .X##.O             ",
+"             .X$$.O             ",
+"             .X%%.O             ",
+"             .X&&.O             ",
+"             .X**.O             ",
+"        ......X==......         ",
+"         .X-;;;;;;;;;.OO        ",
+"          .X--------.OO         ",
+"           .X::::::.OO          ",
+"            .X>>>>.OO           ",
+"             .X,,.OO            ",
+"              .X.OO             ",
+"               .OO              ",
+"               OO               ",
+"                                ",
+"                       .        ",
+"       .   .           .        ",
+"       ..  .  .  .  . ...       ",
+"       . . . . . .  .  .        ",
+"       . . . ...  ..   .        ",
+"       .  .. .   .  .  .        ",
+"       .   .  .. .  .  .        ",
+"                                "};
diff --git a/etc/icons/wl-summary-prev-page-up.xpm b/etc/icons/wl-summary-prev-page-up.xpm
new file mode 100644
index 0000000..0d1895c
--- /dev/null
+++ b/etc/icons/wl-summary-prev-page-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_previous_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #69A69658F7DE",
+"O	c #69A69248EFBE",
+"+	c #69A68E38EFBE",
+"@	c #69A68A28E79D",
+"#	c #61858617E79D",
+"$	c #61858207DF7D",
+"%	c #965896589658",
+"&	c #61857DF7DF7D",
+"*	c #61857DF7D75C",
+"=	c #618579E7D75C",
+"-	c #596575D6CF3C",
+";	c #596571C6CF3C",
+":	c #59656DB6CF3C",
+">	c #596569A6C71B",
+",	c #59656595C71B",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"               .                ",
+"              .X.               ",
+"             .Xoo.              ",
+"            .XOOOO.             ",
+"           .X++++++.            ",
+"          .X@@@@@@@@.           ",
+"         .X@#########.          ",
+"        ......X$$......         ",
+"         %%%%.X&&.%%%%%         ",
+"             .X**.%             ",
+"             .X==.%             ",
+"             .X--.%             ",
+"             .X;;.%             ",
+"             .X::.%             ",
+"             .X>>.%             ",
+"             .X,,.%             ",
+"             .X,,.%             ",
+"             .....%             ",
+"              %%%%%             ",
+"                                ",
+"                                ",
+"         ...                    ",
+"         .  . . . .  .  .       ",
+"         .  . .. . . .  .       ",
+"         ...  .  ... .  .       ",
+"         .    .  .   . .        ",
+"         .    .   ..  .         ",
+"                                "};
diff --git a/etc/icons/wl-summary-prev-up.xpm b/etc/icons/wl-summary-prev-up.xpm
new file mode 100644
index 0000000..0d1895c
--- /dev/null
+++ b/etc/icons/wl-summary-prev-up.xpm
@@ -0,0 +1,53 @@
+/* XPM */
+static char * wl_folder_previous_unsync_up_xpm[] = {
+"32 32 18 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #69A69658F7DE",
+"O	c #69A69248EFBE",
+"+	c #69A68E38EFBE",
+"@	c #69A68A28E79D",
+"#	c #61858617E79D",
+"$	c #61858207DF7D",
+"%	c #965896589658",
+"&	c #61857DF7DF7D",
+"*	c #61857DF7D75C",
+"=	c #618579E7D75C",
+"-	c #596575D6CF3C",
+";	c #596571C6CF3C",
+":	c #59656DB6CF3C",
+">	c #596569A6C71B",
+",	c #59656595C71B",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"               .                ",
+"              .X.               ",
+"             .Xoo.              ",
+"            .XOOOO.             ",
+"           .X++++++.            ",
+"          .X@@@@@@@@.           ",
+"         .X@#########.          ",
+"        ......X$$......         ",
+"         %%%%.X&&.%%%%%         ",
+"             .X**.%             ",
+"             .X==.%             ",
+"             .X--.%             ",
+"             .X;;.%             ",
+"             .X::.%             ",
+"             .X>>.%             ",
+"             .X,,.%             ",
+"             .X,,.%             ",
+"             .....%             ",
+"              %%%%%             ",
+"                                ",
+"                                ",
+"         ...                    ",
+"         .  . . . .  .  .       ",
+"         .  . .. . . .  .       ",
+"         ...  .  ... .  .       ",
+"         .    .  .   . .        ",
+"         .    .   ..  .         ",
+"                                "};
diff --git a/etc/icons/wl-summary-read-up.xpm b/etc/icons/wl-summary-read-up.xpm
new file mode 100644
index 0000000..1277854
--- /dev/null
+++ b/etc/icons/wl-summary-read-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_jump_to_current_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #8E38C30BFFFF",
+"o	c #8617BEFBF7DE",
+"O	c #8617BAEAF7DE",
+"+	c #8617B6DAF7DE",
+"@	c #FFFFFFFFFFFF",
+"#	c #79E7AEBAEFBE",
+"$	c #79E7AEBAF7DE",
+"%	c #79E7B2CAF7DE",
+"&	c #79E7A699EFBE",
+"*	c #79E7AAAAEFBE",
+"=	c #71C6A289EFBE",
+"-	c #71C69E79EFBE",
+";	c #71C69A69E79D",
+":	c #69A69658E79D",
+">	c #69A69248E79D",
+",	c #69A68A28E79D",
+"<	c #965896589658",
+"1	c #AEBAAEBAAEBA",
+"                                ",
+"                                ",
+"                  ....          ",
+"                ..XXXX..        ",
+"               .XoO+++Oo.       ",
+"              .Xo+@@#$%+o.      ",
+"             .Xo+$@@&&*$+o.     ",
+"             .XO%*=-;-=*%O.     ",
+"             .X+$&-:>:-&$+.     ",
+"             .X+#&;>,>;&#+.     ",
+"             ..X$&-:>:-&$..     ",
+"             .<.%*=-;-=*.<.     ",
+"              .1..*&&&..1.<     ",
+"               .@@....11.<<     ",
+"                ..@@@1..<<      ",
+"                <.....<<<       ",
+"               <..<<<<<<        ",
+"               <..<<<<          ",
+"              <..<<             ",
+"              <..<              ",
+"             <..<<              ",
+"             @@.<               ",
+"             <<<<               ",
+"             <<<<               ",
+"              <        .        ",
+"       ...             .        ",
+"       .  .  .  ..   ...        ",
+"       .  . . .   . .  .        ",
+"       ...  ... ... .  .        ",
+"       .  . .   . . .  .        ",
+"       .  .  .. .. . ...        ",
+"                                "};
diff --git a/etc/icons/wl-summary-reply-up.xpm b/etc/icons/wl-summary-reply-up.xpm
new file mode 100644
index 0000000..59ee885
--- /dev/null
+++ b/etc/icons/wl-summary-reply-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_summary_reply_up_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #EFBEFFFFC71B",
+"o	c #FFFFFFFFFFFF",
+"O	c #59656595C71B",
+"+	c #9E799A699E79",
+"@	c #79E7B2CAF7DE",
+"                                ",
+"             ...............   .",
+"              .XXXXXXXXXXXXX. ..",
+"               .XXXXXXXXXXXX..o.",
+"  ..............XXXXXXXXXXX..o. ",
+"  .oooooooooooo.XXXXXXXXXXX.oo. ",
+"  .oOOo    ooo.XXXXXXXXXX..ooo. ",
+"  .oOOoooooooo.XXXXXXXXX.oooo.  ",
+"  .oooo    ooo.XXXXXXXX.oooo.   ",
+"  .ooooooooooo.XXXXXXXX.oooo.   ",
+"  .ooooooooooo.XXXXXXX.ooooo.   ",
+"  .oooooooooooo.XXXXXX.oo.oo.+++",
+"  .oooooooooooo.XXXXXX.oo.o.X.++",
+"  .oooooooooooo.XXXXXX.oo.o.X.++",
+"  ..................XXXo.oo.XX.+",
+"   ++++++++++.OOOOO.XXX..o.XXX.+",
+"   ++++++++++.......XXXX..XXXX.+",
+"              .@@@.XXXXX.XXXX.++",
+"             .@o@@@.XXXX.XXX.+++",
+"            .@o@@@@@........++++",
+"            .OoOOOOO.  . +++++  ",
+"            .OoOOOOO.+++++++    ",
+"            .OOOOOOO.++         ",
+"             .......+++         ",
+"                     .          ",
+"       ...           .          ",
+"       .  .  .  ...  . .  .     ",
+"       .  . . . .  . . .  .     ",
+"       ...  ... .  . . .  .     ",
+"       .  . .   .  . .  ..      ",
+"       .  .  .. ...  .  .       ",
+"                .      .        "};
diff --git a/etc/icons/wl-summary-reply-with-citation-up.xpm b/etc/icons/wl-summary-reply-with-citation-up.xpm
new file mode 100644
index 0000000..771d731
--- /dev/null
+++ b/etc/icons/wl-summary-reply-with-citation-up.xpm
@@ -0,0 +1,42 @@
+/* XPM */
+static char * wl_summary_reply_with_citation_up_xpm[] = {
+"32 32 7 1",
+" 	c #BEFBBEFBBEFB s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #EFBEFFFFC71B",
+"o	c #FFFFFFFFFFFF",
+"O	c #9E799A699E79",
+"+	c #59656595C71B",
+"@	c #79E7B2CAF7DE",
+"                                ",
+"             ...............   .",
+"              .XXXXXXXXXXXXX. ..",
+"               .XXXXXXXXXXXX..o.",
+"  ..............XOXOOOXXXXX..o. ",
+"  .oooooooooooo.XXXXXXXXXXX.oo. ",
+"  .o++o    ooo.XXOXOOXXXX..ooo. ",
+"  .o++oooooooo.XXXXXXXXX.oooo.  ",
+"  .oooo    ooo.XXXXXXXX.oooo.   ",
+"  .ooooooooooo.XXXXXXXX.oooo.   ",
+"  .ooooooooooo.XXXXXXX.ooooo.   ",
+"  .oooooooooooo.XXXXXX.oo.oo.OOO",
+"  .oooooooooooo.XXXXXX.oo.o.X.OO",
+"  .oooooooooooo.XXXXXX.oo.o.X.OO",
+"  ..................XXXo.oo.XX.O",
+"   OOOOOOOOOO.+++++.XXX..o.XXX.O",
+"   OOOOOOOOOO.......XXXX..XXXX.O",
+"              .@@@.XXXXX.XXXX.OO",
+"             .@o@@@.XXXX.XXX.OOO",
+"            .@o@@@@@........OOOO",
+"            .+o+++++.  . OOOOO  ",
+"            .+o+++++.OOOOOOO    ",
+"            .+++++++.OO         ",
+"             .......OOO         ",
+"                  .  .          ",
+"             ...     .          ",
+"       .    .   . . ... .       ",
+"       .    .     .  . . .      ",
+"     ....   .     .  . ...      ",
+"       .    .   . .  . .        ",
+"       .     ...  .  .  ..      ",
+"                                "};
diff --git a/etc/icons/wl-summary-sync-force-update-up.xpm b/etc/icons/wl-summary-sync-force-update-up.xpm
new file mode 100644
index 0000000..ab8002e
--- /dev/null
+++ b/etc/icons/wl-summary-sync-force-update-up.xpm
@@ -0,0 +1,55 @@
+/* XPM */
+static char * wl_folder_sync_current_entity_up_xpm[] = {
+"32 32 20 1",
+" 	c #CF3CCF3CCF3C s backgroundToolBarColor",
+".	c #000000000000",
+"X	c #FFFFE38DB6DA",
+"o	c #E79DCB2B9E79",
+"O	c #B6DAA6998617",
+"+	c #CF3CBAEA9658",
+"@	c #514471C6FFFF",
+"#	c #59656DB6EFBE",
+"$	c #618569A6DF7D",
+"%	c #69A66595D75C",
+"&	c #79E76185C71B",
+"*	c #AEBAAAAAAEBA",
+"=	c #86175D75BEFB",
+"-	c #96585965AEBA",
+";	c #9E7955559E79",
+":	c #A69951448E38",
+">	c #C71BC30BC71B",
+",	c #AEBA4D348617",
+"<	c #BEFB492471C6",
+"1	c #C71B492469A6",
+"                                ",
+"                                ",
+"                                ",
+"        ............            ",
+"     ...XXXXXXXXXXXX...         ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    .XXXXXXXXXXXXXXXXXX.        ",
+"    ....XXXXXXXXXXXX....        ",
+"    .ooo............OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo++++++++++++OOO.        ",
+"    .ooo+++++@@+++++OOO.        ",
+"    .ooo++++####++++OOO.        ",
+"    .ooo+++$$$$$$+++OOO.        ",
+"    .ooo++%%%%%%%%++OOO.        ",
+"    .ooo++++&&&&+++++OO.        ",
+"    *...++++====++++...***      ",
+"    ****....----....*******     ",
+"     *******;;;;************    ",
+"        **::::::::*********     ",
+"         >>,,,,,,*********      ",
+"            <<<<                ",
+"             11                 ",
+"                                ",
+"        ...                     ",
+"       .    .  . ...   ..       ",
+"       ...  .  . .  . .         ",
+"          . .  . .  . .         ",
+"          .  ..  .  . .         ",
+"       ...   .   .  .  ..       ",
+"            .                   "};
diff --git a/etc/ja.Emacs b/etc/ja.Emacs
new file mode 100644
index 0000000..34a5bc1
--- /dev/null
+++ b/etc/ja.Emacs
@@ -0,0 +1,100 @@
+Emacs*XlwMenu.folder.labelString:         ¥Õ¥©¥ë¥À
+Emacs*XlwMenu.enterCurrentFolder.labelString:     ¥Õ¥©¥ë¥À¤Ø°ÜÆ°
+Emacs*XlwMenu.prevFolder.labelString: 	Á°¤Î¥Õ¥©¥ë¥À
+Emacs*XlwMenu.nextFolder.labelString:   ¼¡¤Î¥Õ¥©¥ë¥À
+Emacs*XlwMenu.checkCurrentFolder.labelString: 	ºÇ¿·¥á¥Ã¥»¡¼¥¸¤Î¥Á¥§¥Ã¥¯
+Emacs*XlwMenu.syncCurrentFolder.labelString: 	¥µ¥Þ¥ê¤ò¹¹¿·
+Emacs*XlwMenu.dropCurrentFolder.labelString: 	̤Ʊ´ü¤ò¤Ê¤¯¤¹
+Emacs*XlwMenu.prefetchCurrentFolder.labelString: 	¥×¥ê¥Õ¥§¥Ã¥Á
+Emacs*XlwMenu.flushQueue.labelString: 	¥­¥å¡¼¤Ë¤¢¤ë¥á¥Ã¥»¡¼¥¸¤òÁ÷¿®
+Emacs*XlwMenu.addFolder.labelString: 	¥Õ¥©¥ë¥À¤òÄɲÃ
+Emacs*XlwMenu.addGroup.labelString: 	¥°¥ë¡¼¥×¤òÄɲÃ
+Emacs*XlwMenu.setPetname.labelString: 	¤¢¤À̾¤ò¤Ä¤±¤ë
+Emacs*XlwMenu.exit.labelString: 	        ½ªÎ»
+Emacs*XlwMenu.togglePlugStatus.labelString: 	¥ª¥ó¥é¥¤¥ó/¥ª¥Õ¥é¥¤¥ó
+Emacs*XlwMenu.changePlugStatus.labelString: 	¥×¥é¥°¾õÂÖ´ÉÍý
+Emacs*XlwMenu.saveCurrentStatus.labelString: 	¸½ºß¤Î¾õÂÖ¤ò¥»¡¼¥Ö
+Emacs*XlwMenu.markAsReadAllCurrentFolder.labelString:   ¤¹¤Ù¤ÆÆɤó¤À¤³¤È¤Ë¤¹¤ë
+Emacs*XlwMenu.expireCurrentFolder.labelString:   Expire (¼«Æ°ºï½ü/¥¢¡¼¥«¥¤¥Ö)
+Emacs*XlwMenu.folderManager.labelString:   ¥Õ¥©¥ë¥ÀÊÔ½¸
+Emacs*XlwMenu.rename.labelString:   ̾Á°Êѹ¹
+Emacs*XlwMenu.openAllUnreadFolder.labelString:  Á´¤Æ¤Î̤ÆÉ¥Õ¥©¥ë¥À¤ò³«¤¯
+Emacs*XlwMenu.updateStatus.labelString:  ¾õÂÖ¤ò¹¹¿·
+Emacs*XlwMenu.emptyTrash.labelString:   ¥´¥ßÈ¢¤ò¶õ¤Ë¤¹¤ë
+Emacs*XlwMenu.emptyTrash.labelString:   ¥´¥ßÈ¢¤ò¶õ¤Ë¤¹¤ë
+Emacs*XlwMenu.unsubscribe.labelString:  ¹ØÆɤò¤ä¤á¤ë(¥¢¥¯¥»¥¹·¿)
+Emacs*XlwMenu.displayAll.labelString:   ¤¹¤Ù¤Æɽ¼¨(¥¢¥¯¥»¥¹·¿)
+
+Emacs*XlwMenu.summary.labelString: 	¥µ¥Þ¥ê
+Emacs*XlwMenu.read.labelString: 	Æɤ߿ʤá¤ë
+Emacs*XlwMenu.prevPage.labelString:        Á°¤Î¥Ú¡¼¥¸
+Emacs*XlwMenu.nextPage.labelString: 	   ¼¡¤Î¥Ú¡¼¥¸
+Emacs*XlwMenu.prev.labelString:            Á°¤Î¥á¥Ã¥»¡¼¥¸
+Emacs*XlwMenu.next.labelString: 	   ¼¡¤Î¥á¥Ã¥»¡¼¥¸
+Emacs*XlwMenu.up.labelString:              Á°¤Î̤ÆÉ¥á¥Ã¥»¡¼¥¸
+Emacs*XlwMenu.down.labelString: 	   ¼¡¤Î̤ÆÉ¥á¥Ã¥»¡¼¥¸
+Emacs*XlwMenu.parentMessage.labelString:       ¿Æ¥á¥Ã¥»¡¼¥¸¤Ø°ÜÆ°
+Emacs*XlwMenu.setDeleteMark.labelString:       ºï½ü¥Þ¡¼¥¯¤ò¤Ä¤±¤ë
+Emacs*XlwMenu.setRefileMark.labelString:       ¥ê¥Õ¥¡¥¤¥ë¥Þ¡¼¥¯¤ò¤Ä¤±¤ë
+Emacs*XlwMenu.setTargetMark.labelString:       ¤Þ¤È¤á½èÍýÍÑ¥Þ¡¼¥¯¤ò¤Ä¤±¤ë
+Emacs*XlwMenu.unmark.labelString:              °ì»þ¥Þ¡¼¥¯¤ò¾Ã¤¹
+Emacs*XlwMenu.unmarkAll.labelString:           ¤¹¤Ù¤Æ¤Î°ì»þ¥Þ¡¼¥¯¤ò¾Ã¤¹
+Emacs*XlwMenu.enterTheMessage.labelString:     ¥á¥Ã¥»¡¼¥¸¤Ø°ÜÆ°
+Emacs*XlwMenu.markAsImportant.labelString:     ¤·¤ª¤ê(½ÅÍ×¥Þ¡¼¥¯¤ò¤Ä¤±¤ë)
+Emacs*XlwMenu.markAsUnread.labelString:        Æɤޤʤ«¤Ã¤¿¤³¤È¤Ë¤¹¤ë
+Emacs*XlwMenu.cancelPostedNews.labelString:    ¥Ë¥å¡¼¥¹µ­»ö¤ò¥­¥ã¥ó¥»¥ë¤¹¤ë
+Emacs*XlwMenu.supersedesMessage.labelString:   ¥Ë¥å¡¼¥¹µ­»ö¤ò¾å½ñ¤­¤¹¤ë
+Emacs*XlwMenu.resendBouncedMail.labelString:   ¥¨¥é¡¼¥á¡¼¥ë¤òºÆÁ÷¤¹¤ë
+Emacs*XlwMenu.resendMessage.labelString:       ºÆÁ÷¤¹¤ë
+Emacs*XlwMenu.sync.labelString:                Ʊ´ü¤ò¤È¤ë
+Emacs*XlwMenu.execute.labelString:             ¥ê¥Õ¥¡¥¤¥ë/¥³¥Ô¡¼/ºï½ü¥Þ¡¼¥¯¤ò¼Â¹Ô
+Emacs*XlwMenu.goToOtherFolder.labelString:     ¾¤Î¥Õ¥©¥ë¥À¤Ø°ÜÆ°
+Emacs*XlwMenu.pick.labelString:                ¸¡º÷¤·¤Æ¥Þ¡¼¥¯
+Emacs*XlwMenu.markAsReadAll.labelString:       Á´ÉôÆɤó¤À¤³¤È¤Ë¤¹¤ë
+Emacs*XlwMenu.stick.labelString:       	       ¥¹¥Æ¥£¥Ã¥­¡¼¥µ¥Þ¥ê¤Ë¤¹¤ë
+Emacs*XlwMenu.messageOperation.labelString:    ¥á¥Ã¥»¡¼¥¸¤ÎÁàºî
+Emacs*XlwMenu.threadOperation.labelString:     ¥¹¥ì¥Ã¥É¤ÎÁàºî
+Emacs*XlwMenu.regionOperation.labelString:     ¥ê¡¼¥¸¥ç¥ó¤ÎÁàºî
+Emacs*XlwMenu.markOperation.labelString:       ¤Þ¤È¤á½èÍýÍÑ¥Þ¡¼¥¯¤ÎÁàºî
+Emacs*XlwMenu.markAsRead.labelString:          Æɤó¤À¤³¤È¤Ë¤¹¤ë
+Emacs*XlwMenu.setCopyMark.labelString:         ¥³¥Ô¡¼¥Þ¡¼¥¯¤òÉÕ¤±¤ë
+Emacs*XlwMenu.toggleDisplayMessage.labelString:  ¥á¥Ã¥»¡¼¥¸¤Îɽ¼¨¤ò¥È¥°¥ë
+Emacs*XlwMenu.displayFolder.labelString:       ¥Õ¥©¥ë¥À°ìÍ÷¤òɽ¼¨
+Emacs*XlwMenu.pipeMessage.labelString:         ¥Ñ¥¤¥×¤¹¤ë
+Emacs*XlwMenu.writingMessages.labelString:     ¥á¥Ã¥»¡¼¥¸¤ò½ñ¤¯
+Emacs*XlwMenu.writeAMessage.labelString:       ¥á¥Ã¥»¡¼¥¸¤ò½ñ¤¯
+Emacs*XlwMenu.reply.labelString:               ÊÖ»ö¤ò½ñ¤¯
+Emacs*XlwMenu.replyWithCitation.labelString:   °úÍѤ·¤ÆÊÖ»ö¤ò½ñ¤¯
+Emacs*XlwMenu.forward.labelString:             žÁ÷¤¹¤ë
+Emacs*XlwMenu.prefetch.labelString:            ¥×¥ê¥Õ¥§¥Ã¥Á
+Emacs*XlwMenu.printMessage.labelString:        °õºþ¤¹¤ë
+Emacs*XlwMenu.openOrClose.labelString:         ¥¹¥ì¥Ã¥É¤ò³«ÊÄ
+Emacs*XlwMenu.openAll.labelString:             ¥¹¥ì¥Ã¥É¤òÁ´Éô³«¤¯
+Emacs*XlwMenu.closeAll.labelString:            ¥¹¥ì¥Ã¥É¤òÁ´ÉôÊĤ¸¤ë
+Emacs*XlwMenu.exitCurrentFolder.labelString:   ¸½ºß¤Î¥µ¥Þ¥ê¤ò½ªÎ»
+Emacs*XlwMenu.toggleThreading.labelString:     ¥¹¥ì¥Ã¥Éɽ¼¨¤Î On/Off
+Emacs*XlwMenu.sort.labelString:     	       ¥½¡¼¥È
+Emacs*XlwMenu.byNumber.labelString:            ¥á¥Ã¥»¡¼¥¸ÈÖ¹æ¤Ç¥½¡¼¥È
+Emacs*XlwMenu.byDate.labelString:     	       ÆüÉÕ¤±¤Ç¥½¡¼¥È
+Emacs*XlwMenu.byFrom.labelString:              Á÷¿®¼Ô¤Ç¥½¡¼¥È
+Emacs*XlwMenu.bySubject.labelString:           ¥µ¥Ö¥¸¥§¥¯¥È¤Ç¥½¡¼¥È
+
+Emacs*XlwMenu.scoreOperation.labelString: ¥¹¥³¥¢Áàºî
+Emacs*XlwMenu.switchCurrentScoreFile.labelString: ¥¹¥³¥¢¥Õ¥¡¥¤¥ë¤òÊѹ¹
+Emacs*XlwMenu.editCurrentScoreFile.labelString: ¸½ºß¤Î¥¹¥³¥¢¥Õ¥¡¥¤¥ë¤òÊÔ½¸
+Emacs*XlwMenu.editScoreFile.labelString: ¥¹¥³¥¢¥Õ¥¡¥¤¥ë¤òÊÔ½¸
+Emacs*XlwMenu.setMarkBelow.labelString: ÆÀÅÀ¤¬Ä㤤¥á¥Ã¥»¡¼¥¸¤Ë¥Þ¡¼¥¯
+Emacs*XlwMenu.setExpungeBelow.labelString: ÆÀÅÀ¤¬Ä㤤¥á¥Ã¥»¡¼¥¸¤ò¾Ã¤¹
+Emacs*XlwMenu.rescoreBuffer.labelString: ¥¹¥³¥¢É¾²Á¤ò¤ä¤êľ¤¹¡£
+Emacs*XlwMenu.increaseScore.labelString: ÆÀÅÀ¤ò¾å¤²¤ë
+Emacs*XlwMenu.lowerScore.labelString: ÆÀÅÀ¤ò²¼¤²¤ë
+
+Emacs*XlwMenu.plugged.labelString:       ¥×¥é¥°´ÉÍý
+Emacs*XlwMenu.togglePlugged.labelString: ¥×¥é¥°¤Î¥ª¥ó/¥ª¥Õ
+Emacs*XlwMenu.togglePlugged.labelString: ¥×¥é¥°¤Î¥ª¥ó/¥ª¥Õ
+Emacs*XlwMenu.toggleAllPlugged.labelString: Á´¥×¥é¥°¤Î¥ª¥ó/¥ª¥Õ
+Emacs*XlwMenu.toggleAllPlugged.labelString: Á´¥×¥é¥°¤Î¥ª¥ó/¥ª¥Õ
+Emacs*XlwMenu.prevPort.labelString: ¾å¤Î¥Ý¡¼¥È¥Ø
+Emacs*XlwMenu.nextPort.labelString: ²¼¤Î¥Ý¡¼¥È¤Ø
+Emacs*XlwMenu.prevServer.labelString: ¾å¤Î¥µ¡¼¥Ð¥Ø
+Emacs*XlwMenu.nextServer.labelString: ²¼¤Î¥µ¡¼¥Ð¥Ø
diff --git a/samples/en/dot.addresses b/samples/en/dot.addresses
new file mode 100644
index 0000000..891a3d7
--- /dev/null
+++ b/samples/en/dot.addresses
@@ -0,0 +1,15 @@
+#
+# "~/.addresses" sample file.
+#                    by Yuuichi Teranishi <teranisi@gohome.org>
+# Time-stamp: <99/09/10 15:45:37 teranisi>
+#
+# Lines begin with '#' are comment.
+# Empty lines are ignored.
+# Format of each line:
+# email-address  "petname" "realname"
+# petname is used for Summary displaying.
+# realname is used for To: field.
+#
+teranisi@gohome.org	"YT"	"Yuuichi Teranishi"
+foo@bar.com		"Mr. Foo"	"John Foo"
+bar@foo.com		"Mr. Bar"	"Michael Bar"
diff --git a/samples/en/dot.folders b/samples/en/dot.folders
new file mode 100644
index 0000000..bfa1164
--- /dev/null
+++ b/samples/en/dot.folders
@@ -0,0 +1,72 @@
+#
+#  "~/.folders" sample file.
+#                    by Yuuichi Teranishi <teranisi@gohome.org>
+# Time-stamp: <99/09/10 15:49:11 teranisi>
+#
+# Lines begin with '#' are comment.
+# Empty lines are ignored.
+# 
+
+%inbox
++trash
++draft
+%#mh/Backup@my.imap.server.com
+%#mh/spool/mm
+# group definition
+Emacsen{
+	%#mh/spool/xemacs-beta
+	%#mh/spool/mew-dist
+	%#mh/spool/tm-ja
+	%#mh/spool/mule-win32
+	-fj.news.reader.gnus@other.nntp.server.com
+# multi folder
+# following line defines multi folder of  -fj.editor.xemacs,-fj.editor.mule,
+# and -fj.editor.emacs.
+	*-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs
+	-gnu.emacs.sources
+}
+UNIX{
+# You can define multi level group.
+ BSD {
+ %#mh/spool/freebsd-users-jp
+ -fj.os.bsd.freebsd
+ -japan.comp.freebsd
+ %#mh/spool/bsd-nomads
+ -fj.os.bsd.misc
+ }
+ Linux {
+ -fj.os.linux
+ -japan.comp.linux
+ }
+-fj.kanji
+-fj.lang.perl
+-fj.unix
+-fj.questions.unix
+-fj.sys.sun
+-fj.sys.j3100
+-comp.windows.x.i386unix
+-fj.comp.x11
+}
+Television{
+%#mh/spool/tvdrama
+-fj.rec.tv
+-japan.tv
+-fj.rec.tv.cm
+-japan.tv.cm
+-fj.rec.idol
+-fj.rec.music
+}
+My folders {
+INBOXes {
+%inbox@localhost
+#
+# access group
+# If there is '/' in the end of line,
+# all subfolders are added to group
+#
+%#mh/expire@localhost /
+}
+# following definition adds all MH subfolders to group.
++ /
+%#mh@my.imap.server.com
+}
diff --git a/samples/en/dot.wl b/samples/en/dot.wl
new file mode 100644
index 0000000..2d293aa
--- /dev/null
+++ b/samples/en/dot.wl
@@ -0,0 +1,372 @@
+;;;							-*- emacs-lisp -*-
+;;; ~/.wl (setting file for Wanderlust)
+;;;						Last-Modified: 1999-11-07
+;;;
+
+;; Following must be included in ~/.emacs
+;; for .emacs begin
+(require 'mime-setup)
+(autoload 'wl "wl" "Wanderlust" t)
+(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
+;; for .emacs end
+
+;;; [[ Private Setting ]]
+
+;; Header From 
+;(setq wl-from "Your Name <e-mail-address>")
+;; Organization
+;(setq wl-organization "")
+
+;;; [[ Basic Setting ]]
+
+;; A directory for message database.
+(setq elmo-msgdb-dir "~/.elmo")
+
+;; Home directory for MH (localdir) 
+(setq elmo-localdir-folder-path "~/Mail")
+;; Default IMAP4 server
+(setq elmo-default-imap4-server "localhost")
+;; Default POP server
+(setq elmo-default-pop3-server "localhost")
+;; Default NNTP server
+(setq elmo-default-nntp-server "localhost")
+;; NNTP server name for posting
+(setq wl-nntp-posting-server elmo-default-nntp-server)
+;; SMTP server
+(setq wl-smtp-posting-server "localhost")
+
+;; Icon directory (XEmacs)
+;; (No need if installed as XEmacs package.)
+;(setq wl-icon-dir "~/work/wl/etc")
+
+;; If (system-name) does not return FQDN,
+;; set following as a local domain name without hostname.
+;; ((system-name) "." wl-local-domain is used as domain part of Message-ID
+;; and an argument of HELO in SMTP.
+;(setq wl-local-domain "localdomain")
+;; Specific domain part for message-id.
+;(setq wl-message-id-domain "localhost.localdomain")
+
+;(setq wl-default-folder "+inbox")   ;; Default folder for 
+				     ;; wl-summary-goto-folder.
+;(setq wl-default-spec "+")	     ;; Default string for 
+				     ;; folder name completion.
+
+;(setq wl-fcc "+outbox")	     ;; Folder Carbon Copy
+
+(setq wl-interactive-exit t)	     ;; Confirm at exit time.
+(setq wl-interactive-send t)	     ;; Confirm at message sending time.
+
+(setq wl-auto-select-first t)	     ;; display first message automatically.
+(setq wl-auto-select-next t)	     ;; goto next folder when exit from 
+				     ;; summary.
+;(setq wl-summary-next-no-unread 'skip-no-unread)  
+			             ;; folder is skipped if there is no 
+                                     ;; unread.
+
+(setq wl-summary-move-order 'unread) ;; jump to unread message in 'N' or 'P'.
+(setq wl-thread-insert-opened t)     ;; Create opened thread.
+
+;(setq wl-stay-folder-window t)	     ;; folder mode and summary mode is
+				     ;; displayed at the same time.
+
+;; cache setting.
+;; (messages in localdir, localnews, maildir are not cached.)
+;(setq elmo-archive-use-cache nil)
+;(setq elmo-nntp-use-cache nil)
+;(setq elmo-imap4-use-cache t)
+;(setq elmo-pop3-use-cache t)
+
+;; Enable disconnected operation in IMAP folder.
+;(setq elmo-enable-disconnected-operation t)
+
+;; Store draft message in queue folder if message is sent in unplugged status.
+(setq wl-draft-enable-queuing t)
+;; when plug status is changed from unplugged to plugged, 
+;; queued message is flushed automatically.
+(setq wl-auto-flush-queue t)
+
+;; offline at startup.
+;(setq wl-plugged nil)
+;; change plug status by server or port at startup.
+;(add-hook 'wl-make-plugged-hook
+;	  '(lambda ()
+;	     (elmo-set-plugged plugged(t/nil) server port)
+;	     (elmo-set-plugged plugged(t/nil) server)
+;	     ))
+
+
+;; highlight setting (for light background)
+
+;; decide group folder color by number.
+;(setq wl-highlight-group-folder-by-numbers nil)
+
+(setq wl-highlight-message-header-alist
+      '(("Subject[ \t]*:" . wl-highlight-message-subject-header-contents)
+	("From[ \t]*:" . wl-highlight-message-from-header-contents)
+	("\\(.*To\\|Cc\\|Newsgroups\\)[ \t]*:" . wl-highlight-message-important-header-contents)
+	("\\(User-Agent\\|X-Mailer\\|X-Newsreader\\)[ \t]*:" .
+	 wl-highlight-message-unimportant-header-contents)
+	))
+;; don't change color by citation level.
+;(setq wl-highlight-citation-face-list
+;      '(wl-highlight-message-cited-text-1))
+
+(defun my-wl-set-face (face spec)
+  (make-face face)
+  (cond ((fboundp 'face-spec-set)
+	 (face-spec-set face spec))
+	(t
+	 (wl-declare-face face spec))))
+
+;; header.
+(my-wl-set-face 'wl-highlight-message-subject-header-contents
+		'((t (:foreground "blue" :bold t))))
+(my-wl-set-face 'wl-highlight-message-from-header-contents
+		'((t (:foreground "red" :bold t))))
+(my-wl-set-face 'wl-highlight-message-important-header-contents
+		'((t (:foreground "purple" :bold t))))
+(my-wl-set-face 'wl-highlight-message-unimportant-header-contents
+		'((t (:foreground "RoyalBlue" :bold t))))
+(my-wl-set-face 'wl-highlight-message-headers
+		'((t (:foreground "magenta3" :bold t))))
+(my-wl-set-face 'wl-highlight-message-header-contents
+		'((t (:foreground "brown" :bold nil))))
+(my-wl-set-face 'wl-highlight-message-signature
+		'((t (:foreground "blue"))))
+;; citation.
+(my-wl-set-face 'wl-highlight-message-citation-header
+		'((t (:foreground "DarkGreen"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-1
+		'((t (:foreground "forest green"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-2
+		'((t (:foreground "SaddleBrown"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-3
+		'((t (:foreground "orchid3"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-4
+		'((t (:foreground "purple1"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-5
+		'((t (:foreground "MediumPurple1"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-6
+		'((t (:foreground "PaleVioletRed"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-7
+		'((t (:foreground "LightPink"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-8
+		'((t (:foreground "salmon"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-9
+		'((t (:foreground "SandyBrown"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-10
+		'((t (:foreground "wheat"))))
+;; summary.
+(my-wl-set-face 'wl-highlight-summary-important-face
+		'((t (:foreground "purple"))))
+(my-wl-set-face 'wl-highlight-summary-new-face
+		'((t (:foreground "tomato"))))
+(my-wl-set-face 'wl-highlight-summary-unread-face
+		'((t (:foreground "RoyalBlue"))))
+(my-wl-set-face 'wl-highlight-summary-deleted-face
+		'((t (:foreground "gray"))))
+(my-wl-set-face 'wl-highlight-summary-refiled-face
+		'((t (:foreground "blue"))))
+(my-wl-set-face 'wl-highlight-summary-temp-face
+		'((t (:foreground "salmon"))))
+(my-wl-set-face 'wl-highlight-summary-displaying-face
+		'((t (:bold t :underline t))))
+;; (thread)
+(my-wl-set-face 'wl-highlight-summary-thread-top-face
+		'((t (:foreground "green4"))))
+(my-wl-set-face 'wl-highlight-summary-normal-face
+		'((t (:foreground "SeaGreen"))))
+;; folder
+(my-wl-set-face 'wl-highlight-folder-unknown-face
+		'((t (:foreground "RoyalBlue"))))
+(my-wl-set-face 'wl-highlight-folder-killed-face
+		'((t (:foreground "gray50"))))
+(my-wl-set-face 'wl-highlight-folder-unread-face
+		'((t (:foreground "brown"))))
+(my-wl-set-face 'wl-highlight-folder-zero-face
+		'((t (:foreground "blue4"))))
+(my-wl-set-face 'wl-highlight-folder-few-face
+		'((t (:foreground "tomato"))))
+(my-wl-set-face 'wl-highlight-folder-many-face
+		'((t (:foreground "HotPink1"))))
+;; group
+(my-wl-set-face 'wl-highlight-folder-opened-face
+		'((t (:foreground "forest green"))))
+(my-wl-set-face 'wl-highlight-folder-closed-face
+		'((t (:foreground "DarkOliveGreen4"))))
+;; demo
+(my-wl-set-face 'wl-highlight-demo-face
+		'((t (:foreground "blue2"))))
+
+
+;;; [[ Special Setting ]]
+
+;; compress ~/elmo  using jka-compr.
+;(setq elmo-msgdb-overview-filename "overview.gz")
+;(setq elmo-msgdb-number-filename "number.gz")
+;(setq wl-summary-cache-file ".wl-summary-cache.gz")
+;(setq wl-thread-top-file ".wl-thread-top.gz")
+
+
+;; open unread group folder after checking.
+(add-hook 'wl-folder-check-entity-hook
+	  '(lambda ()
+	     (wl-folder-open-unread-folder entity)
+	     ))
+
+;; User's mail addresses.
+(setq wl-user-mail-address-list
+      (list (wl-address-header-extract-address wl-from)
+	    ;;"e-mail2@bbb.com" ...
+	    ))
+
+;; Change summary display function.
+
+;; get extra field values as overview information (only localdir folder).
+(setq elmo-msgdb-extra-fields '("newsgroups"
+				"x-ml-name"
+				"x-mail-count" "x-ml-count"
+				"x-sequence"
+				"mailing-list"))
+
+;;; ML message displays ML name and ML sequence number in subject.
+(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml)
+(defun my-wl-summary-subject-func-ml (subject-string)
+  (let ((folder wl-summary-buffer-folder-name)
+	(subj subject-string) (sequence) (ml-name) (ml-count))
+    (setq sequence (elmo-msgdb-overview-entity-get-extra-field
+		    entity "x-sequence")
+	  ml-name (or (elmo-msgdb-overview-entity-get-extra-field
+		       entity "x-ml-name")
+		      (and sequence
+			   (car (split-string sequence " "))))
+	  ml-count (or (elmo-msgdb-overview-entity-get-extra-field
+			entity "x-mail-count")
+		       (elmo-msgdb-overview-entity-get-extra-field
+			entity "x-ml-count")
+		       (and sequence
+			    (cadr (split-string sequence " ")))))
+    (if (string-match
+	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
+	 subject-string)
+	(progn
+	  (setq subj (substring subject-string (match-end 0)))
+	  (if (not ml-name) (setq ml-name (match-string 1 subject-string)))
+	  (if (not ml-count) (setq ml-count (match-string 2 subject-string)))))
+    (if (and ml-name ml-count)
+	(if (string= folder wl-default-folder)
+	    (format "(%s %05d) %s"
+		    (car (split-string ml-name " "))
+		    (string-to-int ml-count)
+		    subj)
+	  (format "#%05d %s"
+		  (string-to-int ml-count) subj))
+      subj)))
+
+;; imput asynchronously.
+;; (utils/im-wl.el is needed to be installed.
+;;  Don't forget setting ~/.im/Config (Smtpservers).
+;;  note that wl-draft-enable-queuing is not valid.)
+;(autoload 'wl-draft-send-with-imput-async "im-wl")
+;(setq wl-draft-send-func 'wl-draft-send-with-imput-async)
+
+
+;; template
+(setq wl-template-alist
+      '(("default"
+	 ("From" . wl-from)
+	 ("Organization" . "~/.wl sample")
+	 (body . "Hello, this is XXX \n"))		;; body
+	("report"
+	 ("To" . "boss@company.jp")
+	 ("Subject" . "Report")
+	 (top . "Sir, here is my report\n")		;; insert in top.
+;;	 (file-bottom . "~/work/report.txt")	;; insert file in bottom
+	 )
+	))
+;; Change headers in draft sending time.
+(setq wl-draft-config-alist
+      '((reply		;; see reply buffer
+	 "^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+	 (template . "default"))		;; template
+	("^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+	 wl-ml-draft-config-func		;; function
+	 ("From" . wl-from)			;; variable
+	 ("Organization" . "~/.wl sample"))	;; string
+	("^Newsgroups: test.*"
+	 ("Organization" . "organization for nntp."))
+	))
+;; Change headers in draft preparation time.
+; (add-hook 'wl-mail-setup-hook
+;           '(lambda ()
+;              (unless wl-draft-reedit    ;; don't apply when reedit.
+;                (wl-draft-config-exec wl-draft-config-alist))))
+
+;; header value setting for mail reply.
+
+;; "a" (without-argument) reply to author (Reply-To or From).
+;; if 'X-ML-Name' and 'Reply-To' exists, reply to 'Reply-To'.
+; (setq wl-draft-reply-without-argument-list
+;       '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
+; 	("X-ML-Name" . (("To" "Cc") nil nil))
+; 	("Followup-To" . (nil nil ("Followup-To")))
+; 	("Newsgroups" . (nil nil ("Newsgroups")))
+; 	("Reply-To" . (("Reply-To") nil nil))
+; 	("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+; 	("From" . (("From") nil nil))))
+; 
+;; "C-u a" (with-argument) reply to all.
+; (setq wl-draft-reply-with-argument-list
+;       '(("Followup-To" . (("From") nil ("Followup-To")))
+; 	("Newsgroups" . (("From") nil ("Newsgroups")))
+; 	("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+; 	("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+
+
+;; X-Face (requires x-face (and x-face-mule))
+
+(when (and window-system
+	   (module-installed-p 'x-face))
+  (cond (wl-on-xemacs				;; for XEmacs
+	 (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
+	 (setq wl-highlight-x-face-func
+	       'x-face-xmas-wl-display-x-face))
+	((module-installed-p 'x-face-mule)	;; for Mule (GNU Emacs)
+	 ;; after x-face-mule 0.20
+	 (setq wl-highlight-x-face-func
+	       (function
+		(lambda (beg end)
+		  (x-face-mule-x-face-decode-message-header beg end))))
+	 (setq x-face-mule-highlight-x-face-style 'xmas)
+	 (require 'x-face-mule)
+	 )))
+
+;; rule for auto refile.
+;(setq wl-refile-rule-alist
+;      '(
+;     	("x-ml-name"
+;     	 ("^Wanderlust" . "+wl")
+;     	 ("^Elisp" . "+elisp"))
+;     	("From"
+;     	 ("teranisi@isl.ntt.co.jp" . "+teranisi"))))
+
+;; Marks to skip auto-refile (default is "N" "U" "!").
+;; nil means all message is auto-refiled.
+;(setq wl-summary-auto-refile-skip-marks nil)
+
+;; Scoring.
+;; "all.SCORE" file is used regardless of wl-score-folder-alist.
+; (setq wl-score-folder-alist
+;       '(("^-comp\\."
+; 	 "news.comp.SCORE"
+; 	 "news.SCORE")
+; 	("^-"
+; 	 "news.SCORE")))
+;; directory for storing score files.
+; (setq wl-score-files-directory "~/.elmo/")
+
+
+;;;
+;;; end of file
+;;;
diff --git a/samples/ja/dot.addresses b/samples/ja/dot.addresses
new file mode 100644
index 0000000..40c0d51
--- /dev/null
+++ b/samples/ja/dot.addresses
@@ -0,0 +1,13 @@
+#
+# $B%"%I%l%9%U%!%$%k%5%s%W%k(B
+#                    by Yuuichi Teranishi <teranisi@gohome.org>
+# Time-stamp: <98/06/15 00:32:30 teranisi>
+#
+# '#' $B$G;O$^$k9T$O%3%a%s%H!#(B
+# $B6u9T$OL5;k!#(B
+#
+# $B%a!<%k%"%I%l%9(B  "$B$"$@L>(B" "$BK\L>(B"
+#
+teranisi@gohome.org		"$B$F$i$K$7(B"	"$B;{@>M50l(B"
+foo@bar.com			"$B$U!<$5$s(B"	"Mr. Foo"
+bar@foo.com			"$B$P!<$5$s(B"	"Mr. Bar"
diff --git a/samples/ja/dot.folders b/samples/ja/dot.folders
new file mode 100644
index 0000000..d3f722d
--- /dev/null
+++ b/samples/ja/dot.folders
@@ -0,0 +1,73 @@
+#
+# $B%U%)%k%@Dj5A%U%!%$%k%5%s%W%k(B
+#                    by Yuuichi Teranishi <teranisi@gohome.org>
+# Time-stamp: <98/10/02 18:31:06 teranisi>
+#
+# '#' $B$G;O$^$k9T$O%3%a%s%H!#(B
+# $B6u9T$OL5;k!#(B
+# 
+# $B8D!9$N%U%)%k%@$N=q<0$K$D$$$F$O(B info $B$r;2>H$N$3$H!#(B
+#
+
+%inbox
++trash
++draft
+%#mh/Backup@my.imap.server.com
+%#mh/spool/mm
+# $B%0%k!<%W$NDj5A(B
+Emacsen{
+	%#mh/spool/xemacs-beta
+	%#mh/spool/mew-dist
+	%#mh/spool/tm-ja
+	%#mh/spool/mule-win32
+	-fj.news.reader.gnus@other.nntp.server.com
+# $B%^%k%A%U%)%k%@(B($BJ#?t$N%U%)%k%@$r2>A[E*$K0l$D$K8+$($k$h$&$K$9$k%U%)%k%@(B)
+# $B<!$N9T$O(B -fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs $B$r0l$D$K$9$kNc(B
+	*-fj.editor.xemacs,-fj.editor.mule,-fj.editor.emacs
+	-gnu.emacs.sources
+}
+UNIX $B4XO"(B{
+# $B%0%k!<%W$NF~$l;R$b2D(B
+ BSD {
+ %#mh/spool/freebsd-users-jp
+ -fj.os.bsd.freebsd
+ -japan.comp.freebsd
+ %#mh/spool/bsd-nomads
+ -fj.os.bsd.misc
+ }
+ Linux {
+ -fj.os.linux
+ -japan.comp.linux
+ }
+-fj.kanji
+-fj.lang.perl
+-fj.unix
+-fj.questions.unix
+-fj.sys.sun
+-fj.sys.j3100
+-comp.windows.x.i386unix
+-fj.comp.x11
+}
+$B7]G=2;3Z(B{
+%#mh/spool/tvdrama
+-fj.rec.tv
+-japan.tv
+-fj.rec.tv.cm
+-japan.tv.cm
+-fj.rec.idol
+-fj.rec.music
+}
+$B%^%$%U%)%k%@!<(B {
+INBOXes {
+%inbox@localhost
+#
+# $B%"%/%;%9%0%k!<%W(B
+# $B9TKv$K(B '/' $B$,$D$/$H!"$=$N%U%)%k%@$K4^$^$l$k%5%V%U%)%k%@A4$F$,(B
+# $B$R$H$D$N%0%k!<%W$H$J$k!#(B
+#
+%#mh/expire@localhost /
+}
+# MH $B$N%U%)%k%@A4$F$r$R$H$D$N%0%k!<%W$K$9$kNc!#(B
++ /
+%#mh@my.imap.server.com
+}
diff --git a/samples/ja/dot.wl b/samples/ja/dot.wl
new file mode 100644
index 0000000..c70bd88
--- /dev/null
+++ b/samples/ja/dot.wl
@@ -0,0 +1,382 @@
+;;;							-*- emacs-lisp -*-
+;;; ~/.wl (setting file for Wanderlust)
+;;;						Last-Modified: 1999-11-07
+;;;
+
+;; $B$^$:!$<!$N@_Dj$r(B ~/.emacs $B$J$I$K=q$$$F$/$@$5$$!#(B
+;; $B$3$3$+$i(B
+(require 'mime-setup)
+(autoload 'wl "wl" "Wanderlust" t)
+(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
+;; $B$3$3$^$G(B
+
+;;; [[ $B8D?M>pJs$N@_Dj(B ]]
+
+;; From $B$N@_Dj(B
+;(setq wl-from "Your Name <e-mail-address>")
+;; Organization $B$N@_Dj(B
+;(setq wl-organization "")
+
+;;; [[ $B4pK\E*$J@_Dj(B ]]
+
+;; $B%a%C%;!<%8%G!<%?%Y!<%9$r:n$k%G%#%l%/%H%j(B
+(setq elmo-msgdb-dir "~/.elmo")
+
+;; MH (localdir) $B$N%[!<%`(B
+(setq elmo-localdir-folder-path "~/Mail")
+;; IMAP4$B%5!<%P$N@_Dj(B
+(setq elmo-default-imap4-server "localhost")
+;; POP$B%5!<%P$N@_Dj(B
+(setq elmo-default-pop3-server "localhost")
+;; $B%K%e!<%9%5!<%P$N@_Dj(B
+(setq elmo-default-nntp-server "localhost")
+;; $BEj9F@h$N(B $B%K%e!<%9%5!<%P(B
+(setq wl-nntp-posting-server elmo-default-nntp-server)
+;; $B%a!<%k$rAw?.$9$k@h$N(B (SMTP)$B%5!<%P(B
+(setq wl-smtp-posting-server "localhost")
+
+;; $B%"%$%3%s$rCV$/%G%#%l%/%H%j(B (XEmacs $B$N$_(B)
+;; (XEmacs $B$N(B package $B$H$7$F%$%s%9%H!<%k$5$l$F$$$k>l9g!"I,MW$"$j$^$;$s(B)
+;(setq wl-icon-dir "~/work/wl/etc")
+
+;; (system-name) $B$,(BFQDN$B$rJV$5$J$$>l9g!"(B
+;; $B0J2<$r%[%9%HL>$r=|$$$?%I%a%$%sL>$r@_Dj$7$F$/$@$5$$!#(B
+;; ((system-name)  "." wl-local-domain $B$,(B Message-ID $B$N:n@.!"(B
+;; SMTP $B$N(B HELO $B$K;HMQ(B $B$5$l$^$9!#(B)
+;(setq wl-local-domain "localdomain")
+;; Message-ID $B$N%I%a%$%s%Q!<%H$r6/@)E*$K;XDj(B
+;(setq wl-message-id-domain "localhost.localdomain")
+
+;(setq wl-default-folder "+inbox")   ;; wl-summary-goto-folder $B$N;~$KA*Br$9$k(B
+				     ;; $B%G%U%)%k%H$N%U%)%k%@(B
+;(setq wl-default-spec "+")	     ;; $B%U%)%k%@L>Jd40;~$K;HMQ$9$k(B
+				     ;; $B%G%U%)%k%H$N%9%Z%C%/(B
+
+;(setq wl-fcc "+outbox")	     ;; Folder Carbon Copy
+
+(setq wl-interactive-exit t)	     ;; $B=*N;;~$K3NG'$9$k(B
+(setq wl-interactive-send t)	     ;; $B%a!<%kAw?.;~$K$O3NG'$9$k(B
+
+(setq wl-auto-select-first t)	     ;; $B%5%^%j0\F08e$K@hF,%a%C%;!<%8$rI=<($9$k(B
+(setq wl-auto-select-next t)	     ;; $B%5%^%jFb$N0\F0$GL$FI%a%C%;!<%8$,$J$$$H(B
+				     ;; $B<!$N%U%)%k%@$K0\F0$9$k(B
+;(setq wl-auto-select-next 'skip-no-unread)
+				     ;; $BL$FI$,$J$$%U%)%k%@$OHt$P$9(B
+				     ;; SPC$B%-!<$@$1$GFI$_?J$a$k>l9g$OJXMx(B
+(setq wl-summary-move-order 'unread) ;; $BL$FI%a%C%;!<%8$rM%@hE*$KFI$`(B
+(setq wl-thread-insert-opened t)     ;; thread$B:n@.;~$O>o$K(Bopen$B$K$9$k(B
+
+;(setq wl-stay-folder-window t)	     ;; $B%5%^%j$K0\F0$7$?$H$-$K%U%)%k%@%P%C%U%!(B
+				     ;; $B$N1&$K%5%^%j$N%P%C%U%!$rI=<($9$k(B
+
+;; $B%U%)%k%@<oJL$4$H$N%-%c%C%7%e$N@_Dj(B
+;; (localdir, localnews, maildir $B$O%-%c%C%7%e$7$J$$(B)
+;(setq elmo-archive-use-cache nil)
+;(setq elmo-nntp-use-cache t)
+;(setq elmo-imap4-use-cache t)
+;(setq elmo-pop3-use-cache t)
+
+;; $B%*%U%i%$%s(B(unplugged)$BA`:n$rM-8z$K$9$k(B($B8=:_$O(BIMAP$B%U%)%k%@$N$_(B)
+;(setq elmo-enable-disconnected-operation t)
+
+;; unplugged $B>uBV$GAw?.$9$k$H!$%-%e!<(B(`wl-queue-folder')$B$K3JG<$9$k(B
+(setq wl-draft-enable-queuing t)
+;; unplugged $B$+$i(B plugged $B$KJQ$($k$H!$%-%e!<$K$"$k%a%C%;!<%8$rAw?.$9$k(B
+(setq wl-auto-flush-queue t)
+
+;; $B5/F0;~$O%*%U%i%$%s>uBV$K$9$k(B
+;(setq wl-plugged nil)
+;; $B5/F0;~$K%]!<%H$4$H$N(Bplug$B>uBV$rJQ99$9$k(B
+;(add-hook 'wl-make-plugged-hook
+;	  '(lambda ()
+;	     ;; server,port$B$N(Bplug$B>uBV$r?75,DI2C$b$7$/$OJQ99$9$k(B
+;	     (elmo-set-plugged plugged$BCM(B(t/nil) server port)
+;	     ;; port $B$r>JN,$9$k$H(Bserver$B$NA4(Bport$B$,JQ99$5$l$k(B
+;	     ;; (port $B$r>JN,$7$F?75,$NDI2C$O$G$-$J$$(B)
+;	     (elmo-set-plugged plugged$BCM(B(t/nil) server)
+;	     ))
+
+
+;; highlight$B$N@_Dj(B ($BL@$k$$GX7J?'$N>l9g$G$9(B)
+
+;; $B%0%k!<%W$rL$FI?t$K$h$j?'J,$1$7$J$$!#3+JD>uBV$K$h$j?'J,$1$9$k!#(B
+;(setq wl-highlight-group-folder-by-numbers nil)
+
+(setq wl-highlight-message-header-alist
+      '(("Subject[ \t]*:" . wl-highlight-message-subject-header-contents)
+	("From[ \t]*:" . wl-highlight-message-from-header-contents)
+	("\\(.*To\\|Cc\\|Newsgroups\\)[ \t]*:" . wl-highlight-message-important-header-contents)
+	("\\(User-Agent\\|X-Mailer\\|X-Newsreader\\)[ \t]*:" .
+	 wl-highlight-message-unimportant-header-contents)
+	))
+;; $B0zMQ%l%Y%k$G?'J,$1$7$J$$(B
+;(setq wl-highlight-citation-face-list
+;      '(wl-highlight-message-cited-text-1))
+
+(defun my-wl-set-face (face spec)
+  (make-face face)
+  (cond ((fboundp 'face-spec-set)
+	 (face-spec-set face spec))
+	(t
+	 (wl-declare-face face spec))))
+
+;; $B%a%C%;!<%8%X%C%@(B
+(my-wl-set-face 'wl-highlight-message-subject-header-contents
+		'((t (:foreground "blue" :bold t))))
+(my-wl-set-face 'wl-highlight-message-from-header-contents
+		'((t (:foreground "red" :bold t))))
+(my-wl-set-face 'wl-highlight-message-important-header-contents
+		'((t (:foreground "purple" :bold t))))
+(my-wl-set-face 'wl-highlight-message-unimportant-header-contents
+		'((t (:foreground "RoyalBlue" :bold t))))
+(my-wl-set-face 'wl-highlight-message-headers
+		'((t (:foreground "magenta3" :bold t))))
+(my-wl-set-face 'wl-highlight-message-header-contents
+		'((t (:foreground "brown" :bold nil))))
+(my-wl-set-face 'wl-highlight-message-signature
+		'((t (:foreground "blue"))))
+;; $B0zMQ(B
+(my-wl-set-face 'wl-highlight-message-citation-header
+		'((t (:foreground "DarkGreen"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-1
+		'((t (:foreground "forest green"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-2
+		'((t (:foreground "SaddleBrown"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-3
+		'((t (:foreground "orchid3"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-4
+		'((t (:foreground "purple1"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-5
+		'((t (:foreground "MediumPurple1"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-6
+		'((t (:foreground "PaleVioletRed"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-7
+		'((t (:foreground "LightPink"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-8
+		'((t (:foreground "salmon"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-9
+		'((t (:foreground "SandyBrown"))))
+(my-wl-set-face 'wl-highlight-message-cited-text-10
+		'((t (:foreground "wheat"))))
+;; $B%5%^%j(B
+(my-wl-set-face 'wl-highlight-summary-important-face
+		'((t (:foreground "purple"))))
+(my-wl-set-face 'wl-highlight-summary-new-face
+		'((t (:foreground "tomato"))))
+(my-wl-set-face 'wl-highlight-summary-unread-face
+		'((t (:foreground "RoyalBlue"))))
+(my-wl-set-face 'wl-highlight-summary-deleted-face
+		'((t (:foreground "gray"))))
+(my-wl-set-face 'wl-highlight-summary-refiled-face
+		'((t (:foreground "blue"))))
+(my-wl-set-face 'wl-highlight-summary-temp-face
+		'((t (:foreground "salmon"))))
+(my-wl-set-face 'wl-highlight-summary-displaying-face
+		'((t (:bold t :underline t))))
+;; ($B%9%l%C%I(B)
+(my-wl-set-face 'wl-highlight-summary-thread-top-face
+		'((t (:foreground "green4"))))
+(my-wl-set-face 'wl-highlight-summary-normal-face
+		'((t (:foreground "SeaGreen"))))
+;; $B%U%)%k%@(B
+(my-wl-set-face 'wl-highlight-folder-unknown-face
+		'((t (:foreground "RoyalBlue"))))
+(my-wl-set-face 'wl-highlight-folder-killed-face
+		'((t (:foreground "gray50"))))
+(my-wl-set-face 'wl-highlight-folder-unread-face
+		'((t (:foreground "brown"))))
+(my-wl-set-face 'wl-highlight-folder-zero-face
+		'((t (:foreground "blue4"))))
+(my-wl-set-face 'wl-highlight-folder-few-face
+		'((t (:foreground "tomato"))))
+(my-wl-set-face 'wl-highlight-folder-many-face
+		'((t (:foreground "HotPink1"))))
+;; $B%0%k!<%W(B
+(my-wl-set-face 'wl-highlight-folder-opened-face
+		'((t (:foreground "forest green"))))
+(my-wl-set-face 'wl-highlight-folder-closed-face
+		'((t (:foreground "DarkOliveGreen4"))))
+;; $B%9%?!<%H%"%C%W%G%b(B
+(my-wl-set-face 'wl-highlight-demo-face
+		'((t (:foreground "blue2"))))
+
+
+;;; [[ $BFC<l$J@_Dj(B ]]
+
+;; jka-compr $B$rMxMQ$7$F(B ~/elmo/SPEC/ $B0J2<$N%G!<%?%Y!<%9$r05=L$9$k(B
+;(setq elmo-msgdb-overview-filename "overview.gz")
+;(setq elmo-msgdb-number-filename "number.gz")
+;(setq wl-summary-cache-file ".wl-summary-cache.gz")
+;(setq wl-thread-top-file ".wl-thread-top.gz")
+
+
+;; $B%0%k!<%W$r(Bcheck$B$7$?8e$KL$FI$,$"$k%U%)%k%@$N%0%k!<%W$r<+F0E*$K3+$/(B
+(add-hook 'wl-folder-check-entity-hook
+	  '(lambda ()
+	     (wl-folder-open-unread-folder entity)
+	     ))
+
+;; $B<+J,$N%a!<%k%"%I%l%9$N%j%9%H(B
+(setq wl-user-mail-address-list
+      (list (wl-address-header-extract-address wl-from)
+	    ;;"e-mail2@bbb.com" ...
+	    ))
+
+;; $B%5%^%jI=<(4X?t$rJQ99$9$k(B
+
+;; $B%5%^%jI=<($K$*$$$F;HMQ$9$k>pJs$r;}$D%U%#!<%k%I$r(Boverview$B>pJs$K(B
+;; $BF~$l$k@_Dj(B($B$?$@$7!$(Blocal$B%U%)%k%@$N$_(B)
+;; $B<+F0%j%U%!%$%k$KI,MW$J%U%#!<%k%I$b@_Dj(B
+(setq elmo-msgdb-extra-fields '("newsgroups"
+				"x-ml-name"
+				"x-mail-count" "x-ml-count"
+				"x-sequence"
+				"mailing-list"))
+
+;;; ML $B$N%a%C%;!<%8$G$"$l$P!$%5%^%j$N(B Subject $BI=<($K(B
+;;; ML$BL>(B $B$d(B ML$B$K$*$1$k%a%C%;!<%8HV9f$bI=<($9$k(B
+(setq wl-summary-subject-func 'my-wl-summary-subject-func-ml)
+(defun my-wl-summary-subject-func-ml (subject-string)
+  (let ((folder wl-summary-buffer-folder-name)
+	(subj subject-string) (sequence) (ml-name) (ml-count))
+    (setq sequence (elmo-msgdb-overview-entity-get-extra-field
+		    entity "x-sequence")
+	  ml-name (or (elmo-msgdb-overview-entity-get-extra-field
+		       entity "x-ml-name")
+		      (and sequence
+			   (car (split-string sequence " "))))
+	  ml-count (or (elmo-msgdb-overview-entity-get-extra-field
+			entity "x-mail-count")
+		       (elmo-msgdb-overview-entity-get-extra-field
+			entity "x-ml-count")
+		       (and sequence
+			    (cadr (split-string sequence " ")))))
+    (if (string-match
+	 "^\\s(\\(.+\\)[ :]\\([0-9]+\\)\\s)[ \t]*"
+	 subject-string)
+	(progn
+	  (setq subj (substring subject-string (match-end 0)))
+	  (if (not ml-name) (setq ml-name (match-string 1 subject-string)))
+	  (if (not ml-count) (setq ml-count (match-string 2 subject-string)))))
+    (if (and ml-name ml-count)
+	(if (string= folder wl-default-folder)
+	    (format "(%s %05d) %s"
+		    (car (split-string ml-name " "))
+		    (string-to-int ml-count)
+		    subj)
+	  (format "#%05d %s"
+		  (string-to-int ml-count) subj))
+      subj)))
+
+;; imput $B$K$h$jHsF14|$GAw?.$9$k(B
+;; (utils/im-wl.el $B$r%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9!#(B
+;;  $B$^$?!$(B~/.im/Config $B$N@_Dj(B(Smtpservers)$B$rK:$l$J$$$3$H$H!$(B
+;;  wl-draft-enable-queuing $B$N5!G=$,F/$+$J$/$J$k$3$H$KCm0U!#(B)
+;(autoload 'wl-draft-send-with-imput-async "im-wl")
+;(setq wl-draft-send-func 'wl-draft-send-with-imput-async)
+
+;; $B%F%s%W%l!<%H$N@_Dj(B
+(setq wl-template-alist
+      '(("default"
+	 ("From" . wl-from)
+	 ("Organization" . "~/.wl sample")
+	 (body . "  $B!{!{$G$9!#(B\n"))		;; $BK\J8(B
+	("report"
+	 ("To" . "boss@company.jp")
+	 ("Subject" . "$BJs9p(B")
+	 (top . "$B:#=5$NJs9p$G$9!#(B\n")		;; $BK\J8@hF,$X$NA^F~(B
+;;	 (file-bottom . "~/work/report.txt")	;; $BK\J8KvHx$X%U%!%$%k$NA^F~(B
+	 )
+	))
+
+;; $B%I%i%U%H%P%C%U%!$NFbMF$K$h$j(B From $B$d(B Organization $B$J$I$N%X%C%@$r<+(B
+;; $BF0E*$KJQ99$9$k(B
+(setq wl-draft-config-alist
+      '((reply			;; $BJV?.85$N%P%C%U%!$r8+$k(B
+	 "^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+	 (template . "default"))		;; $B%F%s%W%l!<%H(B
+	("^To: .*\\(test-notsend-wl@lists.airs.net\\)"
+	 wl-ml-draft-config-func		;; $B4X?t(B
+	 ("From" . wl-from)			;; $BJQ?t(B
+	 ("Organization" . "~/.wl sample"))	;; $BJ8;zNs(B
+	("^Newsgroups: test.*"
+	 ("Organization" . "$B%K%e!<%9Ej9F;~$NAH?%L>(B"))
+	))
+;; $B%I%i%U%H:n@.;~(B($BJV?.;~(B)$B$K!$<+F0E*$K%X%C%@$rJQ99$9$k(B
+; (add-hook 'wl-mail-setup-hook
+;           '(lambda ()
+;              (unless wl-draft-reedit    ;; $B:FJT=8;~$OE,MQ$7$J$$(B
+;                (wl-draft-config-exec wl-draft-config-alist))))
+
+;; $B%a!<%k$NJV?.;~$K08@h$rIU$1$kJ}?K$N@_Dj(B
+
+;; $B2<5-JQ?t$N(B alist $B$NMWAG(B
+;; ('$BJV?.85$KB8:_$9$k%U%#!<%k%I(B' .
+;;   ('To$B%U%#!<%k%I(B' 'Cc$B%U%#!<%k%I(B' 'Newsgroups$B%U%#!<%k%I(B'))
+
+;; "a" (without-argument)$B$G$O(B Reply-To $B$d(B From $B$J$I$G;XDj$5$l$?M#0l?M(B
+;; $B$^$?$OM#0l$D$NEj9F@h$KJV?.$9$k!#$^$?!$(BX-ML-Name $B$H(B Reply-To $B$,$D$$(B
+;; $B$F$$$k$J$i(B Reply-To $B08$K$9$k!#(B
+; (setq wl-draft-reply-without-argument-list
+;       '((("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
+; 	("X-ML-Name" . (("To" "Cc") nil nil))
+; 	("Followup-To" . (nil nil ("Followup-To")))
+; 	("Newsgroups" . (nil nil ("Newsgroups")))
+; 	("Reply-To" . (("Reply-To") nil nil))
+; 	("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+; 	("From" . (("From") nil nil))))
+; 
+;; "C-u a" (with-argument)$B$G$"$l$P4X78$9$kA4$F$N?M!&Ej9F@h$KJV?.$9$k!#(B
+; (setq wl-draft-reply-with-argument-list
+;       '(("Followup-To" . (("From") nil ("Followup-To")))
+; 	("Newsgroups" . (("From") nil ("Newsgroups")))
+; 	("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+; 	("From" . (("From") ("To" "Cc") ("Newsgroups")))))
+
+
+;; X-Face $B$rI=<($9$k(B ($BMW(B x-face (and x-face-mule))
+
+(when (and window-system
+	   (module-installed-p 'x-face))
+  (cond (wl-on-xemacs				;; for XEmacs
+	 (autoload 'x-face-xmas-wl-display-x-face "x-face" nil t)
+	 (setq wl-highlight-x-face-func
+	       'x-face-xmas-wl-display-x-face))
+	((module-installed-p 'x-face-mule)	;; for Mule (GNU Emacs)
+	 ;; x-face-mule 0.20$B0J8e(B
+	 (setq wl-highlight-x-face-func
+	       (function
+		(lambda (beg end)
+		  (x-face-mule-x-face-decode-message-header beg end))))
+	 (setq x-face-mule-highlight-x-face-style 'xmas)
+	 (require 'x-face-mule)
+	 )))
+
+;; $B<+F0%j%U%!%$%k$N%k!<%k@_Dj(B
+;(setq wl-refile-rule-alist
+;      '(
+;     	("x-ml-name"
+;     	 ("^Wanderlust" . "+wl")
+;     	 ("^Elisp" . "+elisp"))
+;     	("From"
+;     	 ("teranisi@isl.ntt.co.jp" . "+teranisi"))))
+
+;; $B<+F0%j%U%!%$%k$7$J$$1JB3%^!<%/$r@_Dj(B
+;; $BI8=`$G$O(B "N" "U" "!" $B$K$J$C$F$*$j!"L$FI%a%C%;!<%8$r<+F0%j%U%!%$%k$7(B
+;; $B$^$;$s!#(Bnil $B$G$9$Y$F$N%a%C%;!<%8$,BP>]$K$J$j$^$9!#(B
+;(setq wl-summary-auto-refile-skip-marks nil)
+
+;; $B%9%3%"5!G=$N@_Dj(B
+;; wl-score-folder-alist $B$N@_Dj$K4X$o$i$:I,$:(B "all.SCORE" $B$O;HMQ$5$l$k!#(B
+; (setq wl-score-folder-alist
+;       '(("^-comp\\."
+; 	 "news.comp.SCORE"
+; 	 "news.SCORE")
+; 	("^-"
+; 	 "news.SCORE")))
+;; $B%9%3%"%U%!%$%k$rCV$/%G%#%l%/%H%j(B
+; (setq wl-score-files-directory "~/.elmo/")
+
+;;;
+;;; end of file
+;;;
diff --git a/utils/bbdb-wl.el b/utils/bbdb-wl.el
new file mode 100644
index 0000000..8aa0354
--- /dev/null
+++ b/utils/bbdb-wl.el
@@ -0,0 +1,254 @@
+;;
+;; bbdb setup.
+;;
+(eval-when-compile
+  (require 'mime-setup)
+  (require 'elmo-vars)
+  (require 'elmo-util)
+  (require 'bbdb)
+  (require 'wl-summary)
+  (require 'wl-message)
+  (require 'wl-draft)
+  (require 'wl-address)
+  (defvar bbdb-pop-up-elided-display nil)
+  (or (fboundp 'bbdb-extract-field-value-internal)
+      (defun bbdb-extract-field-value-internal (field))))
+
+(defvar bbdb-wl-get-update-record-hook nil)
+
+(defun bbdb-wl-setup ()
+  (require 'bbdb)
+  (add-hook 'wl-message-redisplay-hook 'bbdb-wl-get-update-record)
+  (add-hook 'wl-summary-exit-hook 'bbdb-wl-hide-bbdb-buffer)
+  (add-hook 'wl-message-window-deleted-hook 'bbdb-wl-hide-bbdb-buffer)
+  (add-hook 'wl-exit-hook 'bbdb-wl-exit)
+  (add-hook 'wl-summary-toggle-disp-off-hook 'bbdb-wl-hide-bbdb-buffer)
+  (add-hook 'wl-summary-toggle-disp-folder-on-hook 'bbdb-wl-hide-bbdb-buffer)
+  (add-hook 'wl-summary-toggle-disp-folder-off-hook 'bbdb-wl-hide-bbdb-buffer)
+  (add-hook 'wl-summary-toggle-disp-folder-message-resumed-hook
+	    'bbdb-wl-show-bbdb-buffer)
+  (add-hook 'wl-summary-mode-hook
+	    (function
+	     (lambda ()
+	       (define-key (current-local-map) ":" 'bbdb-wl-show-sender)
+	       (define-key (current-local-map) ";" 'bbdb-wl-edit-notes))))
+  (add-hook 'wl-summary-exit-hook 'bbdb-flush-all-caches)
+  (add-hook 'wl-summary-exec-hook 'bbdb-flush-all-caches)
+  (add-hook 'wl-mail-setup-hook
+	    (function
+	     (lambda ()
+;	       (local-set-key "\M-\t" 'bbdb-complete-name)
+	       (define-key (current-local-map) "\M-\t" 'bbdb-complete-name)
+	       ))))
+
+(defun bbdb-wl-exit ()
+  (let (bbdb-buf)
+    (if (setq bbdb-buf (get-buffer bbdb-buffer-name))
+	(kill-buffer bbdb-buf)))
+  (bbdb-save-db t))
+
+(defun bbdb-wl-get-update-record ()
+  (set-buffer (wl-message-get-original-buffer))
+  (bbdb-wl-update-record)
+  (run-hooks 'bbdb-wl-get-update-record-hook))
+
+(defun bbdb-wl-hide-bbdb-buffer ()
+  (let (bbdb-buf bbdb-win)
+    (if (setq bbdb-buf (get-buffer bbdb-buffer-name))
+	(if (setq bbdb-win (get-buffer-window bbdb-buf))
+	    (delete-window bbdb-win)))))
+
+(defun bbdb-wl-show-bbdb-buffer ()
+  (save-selected-window
+    (if (get-buffer-window bbdb-buffer-name)
+	nil  
+      (let ((mes-win (get-buffer-window 
+		      (save-excursion
+			(if (buffer-live-p  wl-current-summary-buffer)
+			    (set-buffer wl-current-summary-buffer))
+			wl-message-buf-name)))
+	    (cur-win (selected-window))
+	    (b (current-buffer)))
+	(and mes-win (select-window mes-win))
+	(let ((size (min
+		     (- (window-height mes-win)
+			window-min-height 1)
+		     (- (window-height mes-win)
+			(max window-min-height
+			     (1+ bbdb-pop-up-target-lines))))))    
+	  (split-window mes-win (if (> size 0) size window-min-height)))
+	;; goto the bottom of the two...
+	(select-window (next-window))
+	;; make it display *BBDB*...
+	(let ((pop-up-windows nil))
+	  (switch-to-buffer (get-buffer-create bbdb-buffer-name)))))))
+
+(defun bbdb-wl-from-func (string)
+  "A candidate for wl-summary-from-func..."
+  (let ((hit (bbdb-search-simple nil (wl-address-header-extract-address
+				      string)))
+	first-name last-name from-str)
+    (if hit 
+	(progn
+	  (setq first-name (aref hit 0))
+	  (setq last-name (aref hit 1))
+	  (cond ((and (null first-name)
+		      (null last-name))
+		 (setq from-str string))
+		((and first-name last-name)
+		 (setq from-str (concat first-name " " last-name)))
+		((or first-name last-name)
+		 (setq from-str (or first-name last-name))))
+	  from-str)
+      string)))
+
+(defun bbdb-wl-update-record (&optional offer-to-create)
+  "Returns the record corresponding to the current WL message, 
+creating or modifying it as necessary.  A record will be created if 
+bbdb/mail-auto-create-p is non-nil, or if OFFER-TO-CREATE is true and
+the user confirms the creation."
+  (save-excursion
+    (if bbdb-use-pop-up
+	(bbdb-wl-pop-up-bbdb-buffer offer-to-create)
+      (let ((key 
+	     (save-excursion
+	       (set-buffer 
+		(save-excursion
+		  (if (buffer-live-p wl-current-summary-buffer)
+		      (set-buffer wl-current-summary-buffer))
+		  wl-message-buf-name))
+	       (intern (format
+			"%s-%d"
+			wl-current-summary-buffer
+			wl-message-buffer-cur-number)))))
+	(or (bbdb-message-cache-lookup key nil)
+	    (and key
+		 (let* ((from (or (std11-field-body "From") ""))
+			(addr (and from
+				   (nth 1 (std11-extract-address-components
+					   from)))))
+		   (if (or (null from)
+			   (null addr)
+			   (string-match (bbdb-user-mail-names) addr))
+		       (setq from (or (std11-field-body "To") from)))
+		   (with-temp-buffer ; to keep raw buffer unibyte.
+		     (elmo-set-buffer-multibyte
+		      default-enable-multibyte-characters)
+		     (setq from (eword-decode-string
+				 (decode-mime-charset-string
+				  from
+				  wl-mime-charset))))
+		   (if from
+		       (bbdb-encache-message
+			key
+			(bbdb-annotate-message-sender
+			 from t
+			 (or (bbdb-invoke-hook-for-value
+			      bbdb/mail-auto-create-p)
+			     offer-to-create)
+			 offer-to-create))))))))))
+
+(defun bbdb-wl-annotate-sender (string)
+  "Add a line to the end of the Notes field of the BBDB record 
+corresponding to the sender of this message."
+  (interactive (list (if bbdb-readonly-p
+			 (error "The Insidious Big Brother Database is read-only.")
+		       (read-string "Comments: "))))
+  (set-buffer (wl-message-get-original-buffer))
+  (bbdb-annotate-notes (bbdb-wl-update-record t) string))
+
+(defun bbdb-wl-edit-notes (&optional arg)
+  "Edit the notes field or (with a prefix arg) a user-defined field
+of the BBDB record corresponding to the sender of this message."
+  (interactive "P")
+  (wl-summary-redisplay)
+  (set-buffer (wl-message-get-original-buffer))
+  (let ((record (or (bbdb-wl-update-record t) (error ""))))
+    (bbdb-display-records (list record))
+    (if arg
+	(bbdb-record-edit-property record nil t)
+      (bbdb-record-edit-notes record t))))
+
+(defun bbdb-wl-show-sender ()
+  "Display the contents of the BBDB for the sender of this message.
+This buffer will be in bbdb-mode, with associated keybindings."
+  (interactive)
+  (wl-summary-redisplay)
+  (set-buffer (wl-message-get-original-buffer))
+  (let ((record (bbdb-wl-update-record t))
+	bbdb-win)
+    (if record
+	(progn
+	  (bbdb-wl-pop-up-bbdb-buffer)
+	  (bbdb-display-records (list record)))
+      (error "unperson"))
+    (setq bbdb-win (get-buffer-window (get-buffer bbdb-buffer-name)))
+    (and bbdb-win
+	 (select-window bbdb-win))))
+
+
+(defun bbdb-wl-pop-up-bbdb-buffer (&optional offer-to-create)
+  "Make the *BBDB* buffer be displayed along with the WL window(s),
+displaying the record corresponding to the sender of the current message."
+  (if (get-buffer-window bbdb-buffer-name)
+      nil  
+    (let ((mes-win (get-buffer-window 
+		    (save-excursion
+		      (if (buffer-live-p  wl-current-summary-buffer)
+			  (set-buffer wl-current-summary-buffer))
+		      wl-message-buf-name)))
+	  (cur-win (selected-window))
+	  (b (current-buffer)))
+      (and mes-win
+	   (select-window mes-win))
+      (let ((size (min
+		   (- (window-height mes-win)
+		      window-min-height 1)
+		   (- (window-height mes-win)
+		      (max window-min-height
+			   (1+ bbdb-pop-up-target-lines))))))    
+	(split-window mes-win (if (> size 0) size window-min-height)))
+      ;; goto the bottom of the two...
+      (select-window (next-window))
+      ;; make it display *BBDB*...
+      (let ((pop-up-windows nil))
+	(switch-to-buffer (get-buffer-create bbdb-buffer-name)))
+      ;; select the original window we were in...
+      (select-window cur-win)
+      ;; and make sure the current buffer is correct as well.
+      (set-buffer b)))
+  (let ((bbdb-gag-messages t)
+	(bbdb-use-pop-up nil)
+	(bbdb-electric-p nil))
+    (let ((record (bbdb-wl-update-record offer-to-create))
+	  (bbdb-elided-display (bbdb-pop-up-elided-display))
+	  (b (current-buffer)))
+      (bbdb-display-records (if record (list record) nil))
+      (set-buffer b)
+      record)))
+
+(defun bbdb-wl-send-mail-internal (&optional to subj records)
+  (unwind-protect
+      (wl-draft (wl-address-header-extract-address to) "" (or subj ""))
+    (condition-case nil (delete-other-windows) (error))))
+
+;;; @ bbdb-extract-field-value -- stolen from tm-bbdb.
+;;;
+(and (not (fboundp 'bbdb-extract-field-value-internal))
+     (not (fboundp 'tm:bbdb-extract-field-value)) ;; tm-bbdb
+;;   (not (fboundp 'PLEASE_REPLACE_WITH_SEMI-BASED_MIME-BBDB)) ;; mime-bbdb
+    (progn
+      ;; (require 'bbdb-hooks) ; not provided.
+      ;; (or (fboundp 'bbdb-extract-field-value) ; defined as autoload
+      (or (fboundp 'bbdb-header-start)
+          (load "bbdb-hooks"))
+      (fset 'bbdb-extract-field-value-internal
+            (symbol-function 'bbdb-extract-field-value))
+      (defun bbdb-extract-field-value (field)
+	(let ((value (bbdb-extract-field-value-internal field)))
+	  (and value
+	       (eword-decode-string value))))
+      ))
+
+
+(provide 'bbdb-wl)
diff --git a/utils/im-wl.el b/utils/im-wl.el
new file mode 100644
index 0000000..947646c
--- /dev/null
+++ b/utils/im-wl.el
@@ -0,0 +1,178 @@
+;;;
+;;;               im-wl -- IM/Nifty4U+ interface for Wanderlust.
+;;;                          ...not completed.
+;;;
+;;; Copyright (C) 1998,1999 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;;; Copyright (C) 1998,1999 Yuuichi Teranishi <teranisi@gohome.org>
+;;;
+;;; Time-stamp: <1999-09-10 22:58:45 fuji0924>
+;;; Author: OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
+;;;         Yuuichi Teranishi <teranisi@gohome.org>
+;;; Keywords: mail, news, Wanderlust, IM, Nifty4U+
+
+;;; This program is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your option)
+;;; any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;;; Boston, MA 02111-1307, USA.
+;;;
+
+;;;
+;;;  General settings:
+;;;  (autoload 'wl-draft-send-with-imput-async "im-wl")
+;;;  (setq wl-draft-send-func 'wl-draft-send-with-imput-async)
+;;;
+;;;  for Nifty4U+ users:
+;;;  (add-hook 'wl-mail-setup-hook '(lambda () (require 'im-wl)))
+;;;  (setq wl-draft-config-alist
+;;;	   '(("^Newsgroups: nifty\\..*"
+;;;	      ;; to avoid header-encoding.
+;;;	      ;; [cf. slrn-ja-0.9.4.6.jp4/doc/README.macros.euc]
+;;;	      ;(eword-field-encoding-method-alist . '((t . iso-2022-jp-2)))
+;;;	      (wl-draft-send-func . 'wl-draft-send-with-imput-async)
+;;;	      (im-wl-dispatcher . '("~/nifty4u-plus/inews-nifty4u" "-h"))
+;;;	      (im-wl-dispatcher-error-msg
+;;;	       . (format "^%s :" (expand-file-name (car im-wl-dispatcher)))))))
+
+;;; Code:
+;(require 'emu)
+
+;;; Variables:
+(defvar im-wl-dispatcher
+  '("imput" "-h" "-watch" "--debug=no" "-verbose" "--Queuing=yes")
+  "Program to post an article and its arguments.
+This is most commonly `imput(impost)' or `inews-nifty4u'.")
+
+(defvar im-wl-dispatcher-error-msg (format "^%s: ERROR:" (car im-wl-dispatcher))
+  "Error message of dispatcher")
+
+(defvar im-wl-default-temp-file-name "~/.imput-temp"
+  "Default temporary file name (for async).")
+
+;; xxx for Emacs18/19.x
+(or (boundp 'shell-command-switch)
+    (defvar shell-command-switch "-c"))
+
+;; Buffer local variables (For async).
+(defvar im-wl-buffer-editing-buffer nil)
+(defvar im-wl-buffer-sending-buffer nil)
+(defvar im-wl-buffer-kill-when-done nil)
+(make-variable-buffer-local 'im-wl-buffer-editing-buffer)
+(make-variable-buffer-local 'im-wl-buffer-sending-buffer)
+(make-variable-buffer-local 'im-wl-buffer-kill-when-done)
+
+
+;;;###autoload
+(defun wl-draft-send-with-imput-async (editing-buffer kill-when-done)
+  "Send the message in the current buffer with imput asynchronously."
+  (let (buffer-process process-connection-type watch-buffer
+	(sending-buffer (current-buffer))
+	(error-msg-regexp im-wl-dispatcher-error-msg)
+	(msg (save-excursion
+	       (set-buffer editing-buffer)
+	       (or wl-draft-buffer-file-name
+		   (setq wl-draft-buffer-file-name
+			 (expand-file-name
+			  im-wl-default-temp-file-name))))))
+    ;; current buffer is raw buffer.
+    (save-excursion
+      (goto-char (point-max))
+      ;; require one newline at the end.
+      (or (= (preceding-char) ?\n)
+	  (insert ?\n))
+      ;; Change header-delimiter to be what imput expects.
+      (let (delimline
+	    (case-fold-search t))
+	(save-restriction
+	  (std11-narrow-to-header mail-header-separator)
+	  ;; Insert Message-ID: 'cause wl-do-fcc() does not take care..
+	  (goto-char (point-min))
+	  (when (and wl-insert-message-id
+		     (not (re-search-forward "^Message-ID[ \t]*:" nil t)))
+	    (insert (concat "Message-ID: "
+			    (wl-draft-make-message-id-string) "\n")))
+	  ;; Insert date field.
+	  (goto-char (point-min))
+	  (or (re-search-forward "^Date[ \t]*:" nil t)
+	      (wl-draft-insert-date-field)))
+	(run-hooks 'wl-mail-send-pre-hook) ;; X-PGP-Sig, Cancel-Lock
+	(goto-char (point-min))
+	(re-search-forward
+	 (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
+	(replace-match "\n")
+	(forward-char -1)
+	(setq delimline (point-marker))
+	;; ignore any blank lines in the header
+	(goto-char (point-min))
+	(while (and (re-search-forward "\n\n\n*" delimline t)
+		    (< (point) delimline))
+	  (replace-match "\n"))
+	;; Find and handle any FCC fields. 
+	;; 'cause imput can NOT handle `Fcc: %IMAP'.
+	(goto-char (point-min))
+	(if (re-search-forward "^FCC:" delimline t)
+	    (wl-draft-do-fcc delimline))))
+    (set-buffer-modified-p t)
+    (as-binary-output-file
+     (write-region (point-min)(point-max) msg nil t))
+    ;; The local variables must be binded to 'watch-buffer.
+    (set-buffer (setq watch-buffer (generate-new-buffer " *Wl Watch*")))
+    (setq im-wl-buffer-sending-buffer sending-buffer)
+    (setq im-wl-buffer-editing-buffer editing-buffer)
+    (setq im-wl-buffer-kill-when-done kill-when-done)
+    (setq im-wl-dispatcher-error-msg error-msg-regexp)
+    ;; Variables specified in wl-draft-config-alist are buffer-local, so
+    ;; we have to run subprocess under the editing-buffer.
+    ;; The filter function can find 'watch-buffer by process-buffer().
+    (set-buffer sending-buffer)
+    (setq buffer-process
+	  ;; start-process-shell-command() is Emacs19/20's function.
+	  (start-process
+	   "DISPATCHER" watch-buffer
+	   shell-file-name shell-command-switch
+	   (format "%s < %s"
+		   (mapconcat 'identity im-wl-dispatcher " ") msg)))
+    (set-process-sentinel buffer-process 'im-wl-watch-process-async)
+    (message "Sending a message in background")
+    (if kill-when-done
+	(wl-draft-hide editing-buffer))))
+
+(defun im-wl-watch-process-async (process event)
+  (let ((process-buffer (process-buffer process))
+	editing-buffer kill-when-done raw-buffer)
+    (set-buffer process-buffer)
+    (setq editing-buffer im-wl-buffer-editing-buffer)
+    (setq kill-when-done im-wl-buffer-kill-when-done)
+    (setq raw-buffer im-wl-buffer-sending-buffer)
+    (goto-char (point-min))
+    (if (null (re-search-forward im-wl-dispatcher-error-msg nil t))
+	(progn
+	  ;; sent successfully.
+	  (kill-buffer raw-buffer)
+	  (kill-buffer process-buffer)
+	  (if kill-when-done
+	      (wl-draft-delete editing-buffer)))
+      (ding)
+      (message "Send failed")
+      (kill-buffer raw-buffer)
+      (switch-to-buffer editing-buffer)
+      (condition-case ()
+	  (progn
+	    (split-window-vertically)
+	    (select-window (next-window)))
+	(error)) ; ignore error.
+      (switch-to-buffer process-buffer)
+      (beginning-of-line))))
+
+(provide 'im-wl)
+
+;;; im-wl.el ends here
diff --git a/utils/rfc2368.el b/utils/rfc2368.el
new file mode 100644
index 0000000..f66a5f6
--- /dev/null
+++ b/utils/rfc2368.el
@@ -0,0 +1,152 @@
+;;; rfc2368.el --- support for rfc 2368
+
+;;; Copyright 1999 Sen Nagata <sen@eccosys.com>
+
+;; Keywords: rfc 2368, mailto, mail
+;; Version: 0.3
+;; License: GPL 2
+
+;; This file is not a part of GNU Emacs.
+
+;;; Commentary:
+;;
+;; notes:
+;;
+;;   -repeat after me: "the colon is not part of the header name..."
+;;   -if w3 becomes part of emacs, then it may make sense to have this
+;;    file depend on w3 -- the maintainer of w3 says merging w/ emacs
+;;    is planned!
+;;
+;; historical note:
+;;
+;;   this is intended as a replacement for mailto.el
+;;
+;; acknowledgements:
+;;
+;;   the functions that deal w/ unhexifying in this file were basically
+;; taken from w3 -- i hope to replace them w/ something else soon OR
+;; perhaps if w3 becomes a part of emacs soon, use the functions from w3.
+
+;;; History:
+;;
+;; 0.3:
+;;
+;;  added the constant rfc2368-version
+;;  implemented first potential fix for a bug in rfc2368-mailto-regexp
+;;  implemented first potential fix for a bug in rfc2368-parse-mailto
+;;  (both bugs reported by Kenichi OKADA)
+;;
+;; 0.2:
+;;
+;;  started to use checkdoc
+;;
+;; 0.1:
+;;
+;;  initial implementation
+
+;;; Code:
+(defconst rfc2368-version "rfc2368.el 0.3")
+
+;; only an approximation?
+;; see rfc 1738
+(defconst rfc2368-mailto-regexp
+  "^\\(mailto:\\)\\([^?]+\\)*\\(\\?\\(.*\\)\\)*"
+  "Regular expression to match and aid in parsing a mailto url.")
+
+;; describes 'mailto:'
+(defconst rfc2368-mailto-scheme-index 1
+  "Describes the 'mailto:' portion of the url.")
+;; i'm going to call this part the 'prequery'
+(defconst rfc2368-mailto-prequery-index 2
+  "Describes the portion of the url between 'mailto:' and '?'.")
+;; i'm going to call this part the 'query'
+(defconst rfc2368-mailto-query-index 4
+  "Describes the portion of the url after '?'.")
+
+;; for dealing w/ unhexifying strings, my preferred approach is to use
+;; a 'string-replace-match-using-function' which can perform a
+;; string-replace-match and compute the replacement text based on a
+;; passed function -- however, emacs doesn't seem to have such a
+;; function yet :-(
+
+;; for the moment a rip-off of url-unhex (w3/url.el)
+(defun rfc2368-unhexify-char (char)
+  "Unhexify CHAR -- e.g. %20 -> <SPC>."
+  (if (> char ?9)
+      (if (>= char ?a)
+	  (+ 10 (- char ?a))
+	(+ 10 (- char ?A)))
+    (- char ?0)))
+
+;; for the moment a rip-off of url-unhex-string (w3/url.el) (slightly modified)
+(defun rfc2368-unhexify-string (string)
+  "Unhexify STRING -- e.g. 'hello%20there' -> 'hello there'."
+  (let ((case-fold-search t)
+	(result ""))
+    (while (string-match "%[0-9a-f][0-9a-f]" string)
+      (let* ((start (match-beginning 0))
+	     (hex-code (+ (* 16
+			     (rfc2368-unhexify-char (elt string (+ start 1))))
+			  (rfc2368-unhexify-char (elt string (+ start 2))))))
+	(setq result (concat
+		      result (substring string 0 start)
+		      (char-to-string hex-code))
+	      string (substring string (match-end 0)))))
+    ;; it seems clearer to do things this way than to just return:
+    ;; (concat result string)
+    (setq result (concat result string))
+    result))
+
+(defun rfc2368-parse-mailto-url (mailto-url)
+  "Parse MAILTO-URL, and return an alist of header-name, header-value pairs.
+MAILTO-URL should be a RFC 2368 (mailto) compliant url.  A cons cell w/ a
+key of 'Body' is a special case and is considered a header for this purpose.
+The returned alist is intended for use w/ the `compose-mail' interface.
+Note: make sure MAILTO-URL has been 'unhtmlized' (e.g. &amp; -> &), before
+calling this function."
+  (let ((case-fold-search t)
+	prequery query headers-alist)
+
+    (if (string-match rfc2368-mailto-regexp mailto-url)
+	(progn
+
+	  (setq prequery
+		(match-string rfc2368-mailto-prequery-index mailto-url))
+	  
+	  (setq query
+		(match-string rfc2368-mailto-query-index mailto-url))
+
+	  ;; build alist of header name-value pairs
+	  (if (not (null query))
+	      (setq headers-alist
+		    (mapcar
+		     (lambda (x)
+		       (let* ((temp-list (split-string x "="))
+			      (header-name (car temp-list))
+			      (header-value (cadr temp-list)))
+			 ;; return ("Header-Name" . "header-value")
+			 (cons
+			  (capitalize (rfc2368-unhexify-string header-name))
+			  (rfc2368-unhexify-string header-value))))
+		     (split-string query "&"))))
+
+	  ;; deal w/ multiple 'To' recipients
+	  (if prequery
+	      (progn
+		(if (assoc "To" headers-alist)
+		    (let* ((our-cons-cell
+			    (assoc "To" headers-alist))
+			   (our-cdr
+			    (cdr our-cons-cell)))
+		      (setcdr our-cons-cell (concat our-cdr ", " prequery)))
+		  (setq headers-alist
+			(cons (cons "To" prequery) headers-alist)))))
+	  
+	  headers-alist)
+      
+      (error "Failed to match a mailto: url"))
+    ))
+
+(provide 'rfc2368)
+
+;;; rfc2368.el ends here
diff --git a/utils/sasl/README.en b/utils/sasl/README.en
new file mode 100644
index 0000000..ab8fad8
--- /dev/null
+++ b/utils/sasl/README.en
@@ -0,0 +1,17 @@
+README: SASL library for Emacs.
+=========================================================
+
+How to compile elisp files:
+
+  cd lisp
+  emacs --batch --no-init-file --no-site-file \
+    --eval '(setq load-path (cons "." load-path))' \
+    --funcall batch-byte-compile *.el
+
+How to compile DL modules (Emacs 20.3 and later with DL patch):
+
+  cd src
+  gcc -shared -nostdlib -fPIC -I${EMACSSRCDIR}/src -o md5.so md5-dl.c -lcrypto
+  gcc -shared -nostdlib -fPIC -I${EMACSSRCDIR}/src -o sha1.so sha1-dl.c -lcrypto
+
+  Current version of DL modules require libcrypto library from OpenSSL.
diff --git a/utils/sasl/lisp/digest-md5.el b/utils/sasl/lisp/digest-md5.el
new file mode 100644
index 0000000..e72c535
--- /dev/null
+++ b/utils/sasl/lisp/digest-md5.el
@@ -0,0 +1,144 @@
+;;; digest-md5.el --- Compute DIGEST-MD5.
+
+;; Copyright (C) 1999 Kenichi OKADA
+
+;; Author: Kenichi OKADA <okada@opaopa.org>
+;;	Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+;; Keywords: DIGEST-MD5, HMAC-MD5, SASL, IMAP, POP, ACAP
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This program is implemented from draft-leach-digest-sasl-05.txt.
+;;
+;; It is caller's responsibility to base64-decode challenges and
+;; base64-encode responses in IMAP4 AUTHENTICATE command.
+;;
+;; Passphrase should be longer than 16 bytes. (See RFC 2195)
+
+;; Examples.
+;;
+;; (digest-md5-parse-digest-challenge 
+;;   "realm=\"elwood.innosoft.com\",nonce=\"OA6MG9tEQGm2hh\",qop=\"auth\",algorithm=md5-sess,charset=utf-8")
+;; => (realm "elwood.innosoft.com" nonce "OA6MG9tEQGm2hh" qop "auth" algorithm md5-sess charset utf-8)
+
+;; (digest-md5-build-response-value
+;;   "chris" "elwood.innosoft.com" "secret" "OA6MG9tEQGm2hh"
+;;   "OA6MHXh6VqTrRk" 1 "imap/elwood.innosoft.com" "auth")
+;; => "d388dad90d4bbd760a152321f2143af7"
+
+;;; Code:
+
+(require 'hmac-md5)
+(require 'unique-id)
+
+(defvar digest-md5-challenge nil)
+
+(defvar digest-md5-parse-digest-challenge-syntax-table
+  (let ((table (make-syntax-table)))
+    (modify-syntax-entry ?= "." table)
+    (modify-syntax-entry ?, "." table)
+    table)
+  "A syntax table for parsing digest-challenge attributes.")
+
+;;;###autoload
+(defun digest-md5-parse-digest-challenge (digest-challenge)
+  ;; return a property list of 
+  ;; (realm nonce qop-options stale maxbuf charset 
+  ;; algorithm cipher-opts auth-param).
+  (with-temp-buffer
+    (set-syntax-table digest-md5-parse-digest-challenge-syntax-table)
+    (insert digest-challenge)
+    (goto-char (point-min))
+    (insert "(")
+    (while (progn (forward-sexp) (not (eobp)))
+      (delete-char 1)
+      (insert " "))
+    (insert ")")
+    (condition-case nil
+	(setplist 'digest-md5-challenge (read (point-min-marker)))
+      (end-of-file
+       (error "Parse error in digest-challenge.")))))
+
+(defun digest-md5-digest-uri (serv-type host &optional serv-name)
+  (concat serv-type "/" host
+	  (if (and serv-name
+		   (null (string= host serv-name)))
+	      (concat "/" serv-name))))
+
+(defmacro digest-md5-cnonce ()
+  ;; It is RECOMMENDED that it 
+  ;; contain at least 64 bits of entropy.
+  '(concat (unique-id-m "") (unique-id-m "")))
+
+(defmacro digest-md5-challenge (prop)
+  (list 'get ''digest-md5-challenge prop))
+
+(defmacro digest-md5-build-response-value
+  (username realm passwd nonce cnonce nonce-count digest-uri qop)
+  `(encode-hex-string
+    (md5-binary
+     (concat
+      (encode-hex-string
+       (md5-binary (concat (md5-binary 
+			    (concat ,username 
+				    ":" ,realm
+				    ":" ,passwd))
+			   ":" ,nonce
+			   ":" ,cnonce
+			   (let ((authzid (digest-md5-challenge 'authzid)))
+			     (if authzid (concat ":" authzid) nil)))))
+      ":" ,nonce
+      ":" (format "%08x" ,nonce-count) ":" ,cnonce ":" ,qop ":"
+      (encode-hex-string
+       (md5-binary
+	(concat "AUTHENTICATE:" ,digest-uri
+		(if (string-equal "auth-int" ,qop)
+		    ":00000000000000000000000000000000"
+		  nil))))))))
+
+;;;###autoload
+(defun digest-md5-digest-response
+  (username realm passwd nonce cnonce nonce-count digest-uri
+	    &optional charset qop maxbuf cipher authzid)
+  (concat
+   "username=\"" username "\","
+   "realm=\"" realm "\","
+   "nonce=\"" nonce "\","
+   (format "nc=%08x," nonce-count)
+   "cnonce=\"" cnonce "\","
+   "digest-uri=\"" digest-uri "\","
+   "response=" 
+   (digest-md5-build-response-value
+    username realm passwd nonce cnonce nonce-count digest-uri
+    (or qop "auth"))
+   ","
+   (mapconcat 
+    #'identity
+    (delq nil 
+	  (mapcar (lambda (prop)
+		    (if (digest-md5-challenge prop)
+			(format "%s=%s"
+				prop (digest-md5-challenge prop))))
+		  '(charset qop maxbuf cipher authzid)))
+    ",")))
+  
+(provide 'digest-md5)
+
+;;; digest-md5.el ends here
diff --git a/utils/sasl/lisp/hex-util.el b/utils/sasl/lisp/hex-util.el
new file mode 100644
index 0000000..92a09ff
--- /dev/null
+++ b/utils/sasl/lisp/hex-util.el
@@ -0,0 +1,73 @@
+;;; hex-util.el --- Functions to encode/decode hexadecimal string.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: data
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(eval-when-compile
+  (defmacro hex-char-to-num (chr)
+    (` (let ((chr (, chr)))
+	 (cond
+	  ((and (<= ?a chr)(<= chr ?f)) (+ (- chr ?a) 10))
+	  ((and (<= ?A chr)(<= chr ?F)) (+ (- chr ?A) 10))
+	  ((and (<= ?0 chr)(<= chr ?9)) (- chr ?0))
+	  (t (error "Invalid hexadecimal digit `%c'" chr))))))
+  (defmacro num-to-hex-char (num)
+    (` (aref "0123456789abcdef" (, num)))))
+
+(defun decode-hex-string (string)
+  "Decode hexadecimal STRING to octet string."
+  (let* ((len (length string))
+	 (dst (make-string (/ len 2) 0))
+	 (idx 0)(pos 0))
+    (while (< pos len)
+;;; logior and lsh are not byte-coded.
+;;;  (aset dst idx (logior (lsh (hex-char-to-num (aref string pos)) 4)
+;;; 			    (hex-char-to-num (aref string (1+ pos)))))
+      (aset dst idx (+ (* (hex-char-to-num (aref string pos)) 16)
+		       (hex-char-to-num (aref string (1+ pos)))))
+      (setq idx (1+ idx)
+            pos (+ 2 pos)))
+    dst))
+
+(defun encode-hex-string (string)
+  "Encode octet STRING to hexadecimal string."
+  (let* ((len (length string))
+	 (dst (make-string (* len 2) 0))
+	 (idx 0)(pos 0))
+    (while (< pos len)
+;;; logand and lsh are not byte-coded.
+;;;  (aset dst idx (num-to-hex-char (logand (lsh (aref string pos) -4) 15)))
+      (aset dst idx (num-to-hex-char (/ (aref string pos) 16)))
+      (setq idx (1+ idx))
+;;;  (aset dst idx (num-to-hex-char (logand (aref string pos) 15)))
+      (aset dst idx (num-to-hex-char (% (aref string pos) 16)))
+      (setq idx (1+ idx)
+            pos (1+ pos)))
+    dst))
+
+(provide 'hex-util)
+
+;;; hex-util.el ends here
diff --git a/utils/sasl/lisp/hmac-def.el b/utils/sasl/lisp/hmac-def.el
new file mode 100644
index 0000000..7525c89
--- /dev/null
+++ b/utils/sasl/lisp/hmac-def.el
@@ -0,0 +1,85 @@
+;;; hmac-def.el --- A macro for defining HMAC functions.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: HMAC, RFC 2104
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This program is implemented from RFC 2104,
+;; "HMAC: Keyed-Hashing for Message Authentication".
+
+;;; Code:
+
+(defmacro define-hmac-function (name H B L &optional bit)
+  "Define a function NAME(TEXT KEY) which computes HMAC with function H.
+
+HMAC function is H(KEY XOR opad, H(KEY XOR ipad, TEXT)):
+
+H is a cryptographic hash function, such as SHA1 and MD5, which takes
+a string and return a digest of it (in binary form).
+B is a byte-length of a block size of H. (B=64 for both SHA1 and MD5.)
+L is a byte-length of hash outputs. (L=16 for MD5, L=20 for SHA1.)
+If BIT is non-nil, truncate output to specified bits."
+  (` (defun (, name) (text key)
+       (, (concat "Compute "
+		  (upcase (symbol-name name))
+		  " over TEXT with KEY."))
+       (let ((key-xor-ipad (make-string (, B) ?\x36))
+	     (key-xor-opad (make-string (, B) ?\x5C))
+	     (len (length key))
+	     (pos 0))
+	 (unwind-protect
+	     (progn
+	       ;; if `key' is longer than the block size, apply hash function
+	       ;; to `key' and use the result as a real `key'.
+	       (if (> len (, B))
+		   (setq key ((, H) key)
+			 len (, L)))
+	       (while (< pos len)
+		 (aset key-xor-ipad pos (logxor (aref key pos) ?\x36))
+		 (aset key-xor-opad pos (logxor (aref key pos) ?\x5C))
+		 (setq pos (1+ pos)))
+	       (setq key-xor-ipad (unwind-protect
+				      (concat key-xor-ipad text)
+				    (fillarray key-xor-ipad 0))
+		     key-xor-ipad (unwind-protect
+				      ((, H) key-xor-ipad)
+				    (fillarray key-xor-ipad 0))
+		     key-xor-opad (unwind-protect
+				      (concat key-xor-opad key-xor-ipad)
+				    (fillarray key-xor-opad 0))
+		     key-xor-opad (unwind-protect
+				      ((, H) key-xor-opad)
+				    (fillarray key-xor-opad 0)))
+	       ;; now `key-xor-opad' contains
+	       ;; H(KEY XOR opad, H(KEY XOR ipad, TEXT)).
+	       (, (if (and bit (< (/ bit 8) L))
+		      (` (substring key-xor-opad 0 (, (/ bit 8))))
+		    ;; return a copy of `key-xor-opad'.
+		    (` (concat key-xor-opad)))))
+	   ;; cleanup.
+	   (fillarray key-xor-ipad 0)
+	   (fillarray key-xor-opad 0))))))
+
+(provide 'hmac-def)
+
+;;; hmac-def.el ends here
diff --git a/utils/sasl/lisp/hmac-md5.el b/utils/sasl/lisp/hmac-md5.el
new file mode 100644
index 0000000..9c936d0
--- /dev/null
+++ b/utils/sasl/lisp/hmac-md5.el
@@ -0,0 +1,95 @@
+;;; hmac-md5.el --- Compute HMAC-MD5.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;;	Kenichi OKADA <okada@opaopa.org>
+;; Maintainer: Kenichi OKADA <okada@opaopa.org>
+;; Keywords: HMAC, RFC 2104, HMAC-MD5, MD5, KEYED-MD5, CRAM-MD5
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Test cases from RFC 2202, "Test Cases for HMAC-MD5 and HMAC-SHA-1".
+;;
+;; (encode-hex-string (hmac-md5 "Hi There" (make-string 16 ?\x0b)))
+;;  => "9294727a3638bb1c13f48ef8158bfc9d"
+;;
+;; (encode-hex-string (hmac-md5 "what do ya want for nothing?" "Jefe"))
+;;  => "750c783e6ab0b503eaa86e310a5db738"
+;;
+;; (encode-hex-string (hmac-md5 (make-string 50 ?\xdd) (make-string 16 ?\xaa)))
+;;  => "56be34521d144c88dbb8c733f0e8b3f6"
+;;
+;; (encode-hex-string
+;;  (hmac-md5
+;;   (make-string 50 ?\xcd)
+;;   (decode-hex-string "0102030405060708090a0b0c0d0e0f10111213141516171819")))
+;;  => "697eaf0aca3a3aea3a75164746ffaa79"
+;;
+;; (encode-hex-string
+;;  (hmac-md5 "Test With Truncation" (make-string 16 ?\x0c)))
+;;  => "56461ef2342edc00f9bab995690efd4c"
+;; (encode-hex-string
+;;  (hmac-md5-96 "Test With Truncation" (make-string 16 ?\x0c)))
+;;  => "56461ef2342edc00f9bab995"
+;;
+;; (encode-hex-string
+;;  (hmac-md5
+;;   "Test Using Larger Than Block-Size Key - Hash Key First"
+;;   (make-string 80 ?\xaa)))
+;;  => "6b1ab7fe4bd7bf8f0b62e6ce61b9d0cd"
+;;
+;; (encode-hex-string
+;;  (hmac-md5
+;;   "Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"
+;;   (make-string 80 ?\xaa)))
+;;  => "6f630fad67cda0ee1fb1f562db3aa53e"
+
+;;; Code:
+
+(eval-when-compile (require 'hmac-def))
+(require 'hex-util)			; (decode-hex-string STRING)
+(require 'md5)				; expects (md5 STRING)
+
+;; We cannot define this function in md5.el because recent XEmacs provides
+;; built-in md5 function and provides feature 'md5 at startup.
+(if (and (featurep 'xemacs)
+	 (fboundp 'md5)
+	 (subrp (symbol-function 'md5))
+	 (condition-case nil
+	     ;; `md5' of XEmacs 21 takes 4th arg CODING (and 5th arg NOERROR).
+	     (md5 "" nil nil 'binary)	; => "fb5d2156096fa1f254352f3cc3fada7e"
+	   (error nil)))
+    ;; XEmacs 21.
+    (defun md5-binary (string &optional start end)
+      "Return the MD5 of STRING in binary form."
+      (decode-hex-string (md5 string start end 'binary)))
+  ;; not XEmacs 21 and not DL.
+  (if (not (fboundp 'md5-binary))
+      (defun md5-binary (string)
+	"Return the MD5 of STRING in binary form."
+	(decode-hex-string (md5 string)))))
+
+(define-hmac-function hmac-md5 md5-binary 64 16) ; => (hmac-md5 TEXT KEY)
+;; (define-hmac-function hmac-md5-96 md5-binary 64 16 96)
+
+(provide 'hmac-md5)
+
+;;; hmac-md5.el ends here
diff --git a/utils/sasl/lisp/hmac-sha1.el b/utils/sasl/lisp/hmac-sha1.el
new file mode 100644
index 0000000..6b2beea
--- /dev/null
+++ b/utils/sasl/lisp/hmac-sha1.el
@@ -0,0 +1,80 @@
+;;; hmac-sha1.el --- Compute HMAC-SHA1.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: HMAC, RFC 2104, HMAC-SHA1, SHA1, Cancel-Lock
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Test cases from RFC 2202, "Test Cases for HMAC-MD5 and HMAC-SHA-1".
+;;
+;; (encode-hex-string (hmac-sha1 "Hi There" (make-string 20 ?\x0b)))
+;;  => "b617318655057264e28bc0b6fb378c8ef146be00"
+;;
+;; (encode-hex-string (hmac-sha1 "what do ya want for nothing?" "Jefe"))
+;;  => "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79"
+;;
+;; (encode-hex-string (hmac-sha1 (make-string 50 ?\xdd) (make-string 20 ?\xaa)))
+;;  => "125d7342b9ac11cd91a39af48aa17b4f63f175d3"
+;;
+;; (encode-hex-string
+;;  (hmac-sha1
+;;   (make-string 50 ?\xcd)
+;;   (decode-hex-string "0102030405060708090a0b0c0d0e0f10111213141516171819")))
+;;  => "4c9007f4026250c6bc8414f9bf50c86c2d7235da"
+;;
+;; (encode-hex-string
+;;  (hmac-sha1 "Test With Truncation" (make-string 20 ?\x0c)))
+;;  => "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04"
+;; (encode-hex-string
+;;  (hmac-sha1-96 "Test With Truncation" (make-string 20 ?\x0c)))
+;;  => "4c1a03424b55e07fe7f27be1"
+;;
+;; (encode-hex-string
+;;  (hmac-sha1
+;;   "Test Using Larger Than Block-Size Key - Hash Key First"
+;;   (make-string 80 ?\xaa)))
+;;  => "aa4ae5e15272d00e95705637ce8a3b55ed402112"
+;;
+;; (encode-hex-string
+;;  (hmac-sha1
+;;   "Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"
+;;   (make-string 80 ?\xaa)))
+;;  => "e8e99d0f45237d786d6bbaa7965c7808bbff1a91"
+
+;;; Code:
+
+(eval-when-compile (require 'hmac-def))
+(require 'hex-util)			; (decode-hex-string STRING)
+(require 'sha1)				; expects (sha1 STRING)
+
+;;; For consintency with hmac-md5.el, we define this function here.
+(or (fboundp 'sha1-binary)
+    (defun sha1-binary (string)
+      "Return the SHA1 of STRING in binary form."
+      (decode-hex-string (sha1 string))))
+
+(define-hmac-function hmac-sha1 sha1-binary 64 20) ; => (hmac-sha1 TEXT KEY)
+;; (define-hmac-function hmac-sha1-96 sha1-binary 64 20 96)
+
+(provide 'hmac-sha1)
+
+;;; hmac-sha1.el ends here
diff --git a/utils/sasl/lisp/md5-dl.el b/utils/sasl/lisp/md5-dl.el
new file mode 100644
index 0000000..4bc12bf
--- /dev/null
+++ b/utils/sasl/lisp/md5-dl.el
@@ -0,0 +1,66 @@
+;;; md5-dl.el --- MD5 Message Digest Algorithm using DL module.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: MD5, RFC 1321
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(defvar md5-dl-module
+  (if (and (fboundp 'md5-string)
+	   (subrp (symbol-function 'md5-string)))
+      nil
+    (if (fboundp 'dynamic-link)
+	(let ((path (expand-file-name "md5.so" exec-directory)))
+	  (and (file-exists-p path)
+	       path)))))
+
+(defvar md5-dl-handle
+  (and (stringp md5-dl-module)
+       (file-exists-p md5-dl-module)
+       (dynamic-link md5-dl-module)))
+
+;;; md5-dl-module provides `md5-string'.
+(dynamic-call "emacs_md5_init" md5-dl-handle)
+
+(defun md5-region (beg end)
+  (interactive "r")
+  (md5-string (buffer-substring-no-properties beg end)))
+
+;;; Note that XEmacs built-in version takes two more args: CODING and NOERROR.
+;;;###autoload
+(defun md5 (object &optional beg end)
+  "Return the MD5 (a secure message digest algorithm) of an object.
+OBJECT is either a string or a buffer.
+Optional arguments BEG and END denote buffer positions for computing the
+hash of a portion of OBJECT."
+  (if (stringp object)
+      (md5-string object)
+    (save-excursion
+      (set-buffer object)
+      (md5-region (or beg (point-min)) (or end (point-max))))))
+
+(provide 'md5-dl)
+(provide 'md5)
+
+;;; md5-dl.el ends here.
diff --git a/utils/sasl/lisp/md5-el.el b/utils/sasl/lisp/md5-el.el
new file mode 100644
index 0000000..a339cec
--- /dev/null
+++ b/utils/sasl/lisp/md5-el.el
@@ -0,0 +1,408 @@
+;;; md5.el -- MD5 Message Digest Algorithm
+;;; Gareth Rees <gdr11@cl.cam.ac.uk>
+
+;; LCD Archive Entry:
+;; md5|Gareth Rees|gdr11@cl.cam.ac.uk|
+;; MD5 cryptographic message digest algorithm|
+;; 13-Nov-95|1.0|~/misc/md5.el.Z|
+
+;;; Details: ------------------------------------------------------------------
+
+;; This is a direct translation into Emacs LISP of the reference C
+;; implementation of the MD5 Message-Digest Algorithm written by RSA
+;; Data Security, Inc.
+;; 
+;; The algorithm takes a message (that is, a string of bytes) and
+;; computes a 16-byte checksum or "digest" for the message.  This digest
+;; is supposed to be cryptographically strong in the sense that if you
+;; are given a 16-byte digest D, then there is no easier way to
+;; construct a message whose digest is D than to exhaustively search the
+;; space of messages.  However, the robustness of the algorithm has not
+;; been proven, and a similar algorithm (MD4) was shown to be unsound,
+;; so treat with caution!
+;; 
+;; The C algorithm uses 32-bit integers; because GNU Emacs
+;; implementations provide 28-bit integers (with 24-bit integers on
+;; versions prior to 19.29), the code represents a 32-bit integer as the
+;; cons of two 16-bit integers.  The most significant word is stored in
+;; the car and the least significant in the cdr.  The algorithm requires
+;; at least 17 bits of integer representation in order to represent the
+;; carry from a 16-bit addition.
+
+;;; Usage: --------------------------------------------------------------------
+
+;; To compute the MD5 Message Digest for a message M (represented as a
+;; string or as a vector of bytes), call
+;; 
+;;   (md5-encode M)
+;; 
+;; which returns the message digest as a vector of 16 bytes.  If you
+;; need to supply the message in pieces M1, M2, ... Mn, then call
+;; 
+;;   (md5-init)
+;;   (md5-update M1)
+;;   (md5-update M2)
+;;   ...
+;;   (md5-update Mn)
+;;   (md5-final)
+
+;;; Copyright and licence: ----------------------------------------------------
+
+;; Copyright (C) 1995, 1996, 1997 by Gareth Rees
+;; Derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm
+;; 
+;; md5.el is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by the
+;; Free Software Foundation; either version 2, or (at your option) any
+;; later version.
+;; 
+;; md5.el is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+;; for more details.
+;; 
+;; The original copyright notice is given below, as required by the
+;; licence for the original code.  This code is distributed under *both*
+;; RSA's original licence and the GNU General Public Licence.  (There
+;; should be no problems, as the former is more liberal than the
+;; latter).
+
+;;; Original copyright notice: ------------------------------------------------
+
+;; Copyright (C) 1990, RSA Data Security, Inc. All rights reserved.
+;;
+;; License to copy and use this software is granted provided that it is
+;; identified as the "RSA Data Security, Inc. MD5 Message- Digest
+;; Algorithm" in all material mentioning or referencing this software or
+;; this function.
+;;
+;; License is also granted to make and use derivative works provided
+;; that such works are identified as "derived from the RSA Data
+;; Security, Inc. MD5 Message-Digest Algorithm" in all material
+;; mentioning or referencing the derived work.
+;;
+;; RSA Data Security, Inc. makes no representations concerning either
+;; the merchantability of this software or the suitability of this
+;; software for any particular purpose.  It is provided "as is" without
+;; express or implied warranty of any kind.
+;;
+;; These notices must be retained in any copies of any part of this
+;; documentation and/or software.
+
+;;; Code: ---------------------------------------------------------------------
+
+(defvar md5-program "md5"
+  "*Program that reads a message on its standard input and writes an
+MD5 digest on its output.")
+
+(defvar md5-maximum-internal-length 4096
+  "*The maximum size of a piece of data that should use the MD5 routines
+written in lisp.  If a message exceeds this, it will be run through an
+external filter for processing.  Also see the `md5-program' variable.
+This variable has no effect if you call the md5-init|update|final
+functions - only used by the `md5' function's simpler interface.")
+
+(defvar md5-bits (make-vector 4 0)
+  "Number of bits handled, modulo 2^64.
+Represented as four 16-bit numbers, least significant first.")
+(defvar md5-buffer (make-vector 4 '(0 . 0))
+  "Scratch buffer (four 32-bit integers).")
+(defvar md5-input (make-vector 64 0)
+  "Input buffer (64 bytes).")
+
+(defun md5-unhex (x)
+  (if (> x ?9)
+      (if (>= x ?a)
+	  (+ 10 (- x ?a))
+	(+ 10 (- x ?A)))
+    (- x ?0)))
+
+(defun md5-encode (message)
+  "Encodes MESSAGE using the MD5 message digest algorithm.
+MESSAGE must be a string or an array of bytes.
+Returns a vector of 16 bytes containing the message digest."
+  (if (or (null md5-maximum-internal-length)
+	   (<= (length message) md5-maximum-internal-length))
+      (progn
+	(md5-init)
+	(md5-update message)
+	(md5-final))
+    (save-excursion
+      (set-buffer (get-buffer-create " *md5-work*"))
+      (erase-buffer)
+      (insert message)
+      (call-process-region (point-min) (point-max)
+			   md5-program
+			   t (current-buffer))
+      ;; MD5 digest is 32 chars long
+      ;; mddriver adds a newline to make neaten output for tty
+      ;; viewing, make sure we leave it behind.
+      (let ((data (buffer-substring (point-min) (+ (point-min) 32)))
+	    (vec (make-vector 16 0))
+	    (ctr 0))
+	(while (< ctr 16)
+	  (aset vec ctr (+ (* 16 (md5-unhex (aref data (* ctr 2))))
+			   (md5-unhex (aref data (1+ (* ctr 2))))))
+	  (setq ctr (1+ ctr)))))))
+
+(defsubst md5-add (x y)
+  "Return 32-bit sum of 32-bit integers X and Y."
+  (let ((m (+ (car x) (car y)))
+        (l (+ (cdr x) (cdr y))))
+    (cons (logand 65535 (+ m (lsh l -16))) (logand l 65535))))
+
+;; FF, GG, HH and II are basic MD5 functions, providing transformations
+;; for rounds 1, 2, 3 and 4 respectively.  Each function follows this
+;; pattern of computation (where ROTATE(x,y) means rotate 32-bit value x
+;; by y bits to the left):
+;; 
+;;   FF(a,b,c,d,x,s,ac) = ROTATE(a + F(b,c,d) + x + ac,s) + b
+;; 
+;; so we use the macro `md5-make-step' to construct each one.  The
+;; helper functions F, G, H and I operate on 16-bit numbers; the full
+;; operation splits its inputs, operates on the halves separately and
+;; then puts the results together.
+
+(defsubst md5-F (x y z) (logior (logand x y) (logand (lognot x) z)))
+(defsubst md5-G (x y z) (logior (logand x z) (logand y (lognot z))))
+(defsubst md5-H (x y z) (logxor x y z))
+(defsubst md5-I (x y z) (logxor y (logior x (logand 65535 (lognot z)))))
+
+(defmacro md5-make-step (name func)
+  (`
+   (defun (, name) (a b c d x s ac)
+     (let*
+         ((m1 (+ (car a) ((, func) (car b) (car c) (car d)) (car x) (car ac)))
+          (l1 (+ (cdr a) ((, func) (cdr b) (cdr c) (cdr d)) (cdr x) (cdr ac)))
+          (m2 (logand 65535 (+ m1 (lsh l1 -16))))
+          (l2 (logand 65535 l1))
+          (m3 (logand 65535 (if (> s 15)
+                                (+ (lsh m2 (- s 32)) (lsh l2 (- s 16)))
+                              (+ (lsh m2 s) (lsh l2 (- s 16))))))
+          (l3 (logand 65535 (if (> s 15)
+                                (+ (lsh l2 (- s 32)) (lsh m2 (- s 16)))
+                              (+ (lsh l2 s) (lsh m2 (- s 16)))))))
+       (md5-add (cons m3 l3) b)))))
+
+(md5-make-step md5-FF md5-F)
+(md5-make-step md5-GG md5-G)
+(md5-make-step md5-HH md5-H)
+(md5-make-step md5-II md5-I)
+
+(defun md5-init ()
+  "Initialise the state of the message-digest routines."
+  (aset md5-bits 0 0)
+  (aset md5-bits 1 0)
+  (aset md5-bits 2 0)
+  (aset md5-bits 3 0)
+  (aset md5-buffer 0 '(26437 .  8961))
+  (aset md5-buffer 1 '(61389 . 43913))
+  (aset md5-buffer 2 '(39098 . 56574))
+  (aset md5-buffer 3 '( 4146 . 21622)))
+
+(defun md5-update (string)
+  "Update the current MD5 state with STRING (an array of bytes)."
+  (let ((len (length string))
+        (i 0)
+        (j 0))
+    (while (< i len)
+      ;; Compute number of bytes modulo 64
+      (setq j (% (/ (aref md5-bits 0) 8) 64))
+
+      ;; Store this byte (truncating to 8 bits to be sure)
+      (aset md5-input j (logand 255 (aref string i)))
+
+      ;; Update number of bits by 8 (modulo 2^64)
+      (let ((c 8) (k 0))
+        (while (and (> c 0) (< k 4))
+          (let ((b (aref md5-bits k)))
+            (aset md5-bits k (logand 65535 (+ b c)))
+            (setq c (if (> b (- 65535 c)) 1 0)
+                  k (1+ k)))))
+
+      ;; Increment number of bytes processed
+      (setq i (1+ i))
+
+      ;; When 64 bytes accumulated, pack them into sixteen 32-bit
+      ;; integers in the array `in' and then tranform them.
+      (if (= j 63)
+          (let ((in (make-vector 16 (cons 0 0)))
+                (k 0)
+                (kk 0))
+            (while (< k 16)
+              (aset in k (md5-pack md5-input kk))
+              (setq k (+ k 1) kk (+ kk 4)))
+            (md5-transform in))))))
+
+(defun md5-pack (array i)
+  "Pack the four bytes at ARRAY reference I to I+3 into a 32-bit integer."
+  (cons (+ (lsh (aref array (+ i 3)) 8) (aref array (+ i 2)))
+        (+ (lsh (aref array (+ i 1)) 8) (aref array (+ i 0)))))
+
+(defun md5-byte (array n b)
+  "Unpack byte B (0 to 3) from Nth member of ARRAY of 32-bit integers."
+  (let ((e (aref array n)))
+    (cond ((eq b 0) (logand 255 (cdr e)))
+          ((eq b 1) (lsh (cdr e) -8))
+          ((eq b 2) (logand 255 (car e)))
+          ((eq b 3) (lsh (car e) -8)))))
+
+(defun md5-final ()
+  (let ((in (make-vector 16 (cons 0 0)))
+        (j 0)
+        (digest (make-vector 16 0))
+        (padding))
+
+    ;; Save the number of bits in the message
+    (aset in 14 (cons (aref md5-bits 1) (aref md5-bits 0)))
+    (aset in 15 (cons (aref md5-bits 3) (aref md5-bits 2)))
+
+    ;; Compute number of bytes modulo 64
+    (setq j (% (/ (aref md5-bits 0) 8) 64))
+
+    ;; Pad out computation to 56 bytes modulo 64
+    (setq padding (make-vector (if (< j 56) (- 56 j) (- 120 j)) 0))
+    (aset padding 0 128)
+    (md5-update padding)
+
+    ;; Append length in bits and transform
+    (let ((k 0) (kk 0))
+      (while (< k 14)
+        (aset in k (md5-pack md5-input kk))
+        (setq k (+ k 1) kk (+ kk 4))))
+    (md5-transform in)
+
+    ;; Store the results in the digest
+    (let ((k 0) (kk 0))
+      (while (< k 4)
+        (aset digest (+ kk 0) (md5-byte md5-buffer k 0))
+        (aset digest (+ kk 1) (md5-byte md5-buffer k 1))
+        (aset digest (+ kk 2) (md5-byte md5-buffer k 2))
+        (aset digest (+ kk 3) (md5-byte md5-buffer k 3))
+        (setq k (+ k 1) kk (+ kk 4))))
+
+    ;; Return digest
+    digest))
+
+;; It says in the RSA source, "Note that if the Mysterious Constants are
+;; arranged backwards in little-endian order and decrypted with the DES
+;; they produce OCCULT MESSAGES!"  Security through obscurity?
+
+(defun md5-transform (in)
+  "Basic MD5 step. Transform md5-buffer based on array IN."
+  (let ((a (aref md5-buffer 0))
+        (b (aref md5-buffer 1))
+        (c (aref md5-buffer 2))
+        (d (aref md5-buffer 3)))
+    (setq
+     a (md5-FF a b c d (aref in  0)  7 '(55146 . 42104))
+     d (md5-FF d a b c (aref in  1) 12 '(59591 . 46934))
+     c (md5-FF c d a b (aref in  2) 17 '( 9248 . 28891))
+     b (md5-FF b c d a (aref in  3) 22 '(49597 . 52974))
+     a (md5-FF a b c d (aref in  4)  7 '(62844 .  4015))
+     d (md5-FF d a b c (aref in  5) 12 '(18311 . 50730))
+     c (md5-FF c d a b (aref in  6) 17 '(43056 . 17939))
+     b (md5-FF b c d a (aref in  7) 22 '(64838 . 38145))
+     a (md5-FF a b c d (aref in  8)  7 '(27008 . 39128))
+     d (md5-FF d a b c (aref in  9) 12 '(35652 . 63407))
+     c (md5-FF c d a b (aref in 10) 17 '(65535 . 23473))
+     b (md5-FF b c d a (aref in 11) 22 '(35164 . 55230))
+     a (md5-FF a b c d (aref in 12)  7 '(27536 .  4386))
+     d (md5-FF d a b c (aref in 13) 12 '(64920 . 29075))
+     c (md5-FF c d a b (aref in 14) 17 '(42617 . 17294))
+     b (md5-FF b c d a (aref in 15) 22 '(18868 .  2081))
+     a (md5-GG a b c d (aref in  1)  5 '(63006 .  9570))
+     d (md5-GG d a b c (aref in  6)  9 '(49216 . 45888))
+     c (md5-GG c d a b (aref in 11) 14 '( 9822 . 23121))
+     b (md5-GG b c d a (aref in  0) 20 '(59830 . 51114))
+     a (md5-GG a b c d (aref in  5)  5 '(54831 .  4189))
+     d (md5-GG d a b c (aref in 10)  9 '(  580 .  5203))
+     c (md5-GG c d a b (aref in 15) 14 '(55457 . 59009))
+     b (md5-GG b c d a (aref in  4) 20 '(59347 . 64456))
+     a (md5-GG a b c d (aref in  9)  5 '( 8673 . 52710))
+     d (md5-GG d a b c (aref in 14)  9 '(49975 .  2006))
+     c (md5-GG c d a b (aref in  3) 14 '(62677 .  3463))
+     b (md5-GG b c d a (aref in  8) 20 '(17754 .  5357))
+     a (md5-GG a b c d (aref in 13)  5 '(43491 . 59653))
+     d (md5-GG d a b c (aref in  2)  9 '(64751 . 41976))
+     c (md5-GG c d a b (aref in  7) 14 '(26479 .   729))
+     b (md5-GG b c d a (aref in 12) 20 '(36138 . 19594))
+     a (md5-HH a b c d (aref in  5)  4 '(65530 . 14658))
+     d (md5-HH d a b c (aref in  8) 11 '(34673 . 63105))
+     c (md5-HH c d a b (aref in 11) 16 '(28061 . 24866))
+     b (md5-HH b c d a (aref in 14) 23 '(64997 . 14348))
+     a (md5-HH a b c d (aref in  1)  4 '(42174 . 59972))
+     d (md5-HH d a b c (aref in  4) 11 '(19422 . 53161))
+     c (md5-HH c d a b (aref in  7) 16 '(63163 . 19296))
+     b (md5-HH b c d a (aref in 10) 23 '(48831 . 48240))
+     a (md5-HH a b c d (aref in 13)  4 '(10395 . 32454))
+     d (md5-HH d a b c (aref in  0) 11 '(60065 . 10234))
+     c (md5-HH c d a b (aref in  3) 16 '(54511 . 12421))
+     b (md5-HH b c d a (aref in  6) 23 '( 1160 .  7429))
+     a (md5-HH a b c d (aref in  9)  4 '(55764 . 53305))
+     d (md5-HH d a b c (aref in 12) 11 '(59099 . 39397))
+     c (md5-HH c d a b (aref in 15) 16 '( 8098 . 31992))
+     b (md5-HH b c d a (aref in  2) 23 '(50348 . 22117))
+     a (md5-II a b c d (aref in  0)  6 '(62505 .  8772))
+     d (md5-II d a b c (aref in  7) 10 '(17194 . 65431))
+     c (md5-II c d a b (aref in 14) 15 '(43924 .  9127))
+     b (md5-II b c d a (aref in  5) 21 '(64659 . 41017))
+     a (md5-II a b c d (aref in 12)  6 '(25947 . 22979))
+     d (md5-II d a b c (aref in  3) 10 '(36620 . 52370))
+     c (md5-II c d a b (aref in 10) 15 '(65519 . 62589))
+     b (md5-II b c d a (aref in  1) 21 '(34180 . 24017))
+     a (md5-II a b c d (aref in  8)  6 '(28584 . 32335))
+     d (md5-II d a b c (aref in 15) 10 '(65068 . 59104))
+     c (md5-II c d a b (aref in  6) 15 '(41729 . 17172))
+     b (md5-II b c d a (aref in 13) 21 '(19976 .  4513))
+     a (md5-II a b c d (aref in  4)  6 '(63315 . 32386))
+     d (md5-II d a b c (aref in 11) 10 '(48442 . 62005))
+     c (md5-II c d a b (aref in  2) 15 '(10967 . 53947))
+     b (md5-II b c d a (aref in  9) 21 '(60294 . 54161)))
+
+     (aset md5-buffer 0 (md5-add (aref md5-buffer 0) a))
+     (aset md5-buffer 1 (md5-add (aref md5-buffer 1) b))
+     (aset md5-buffer 2 (md5-add (aref md5-buffer 2) c))
+     (aset md5-buffer 3 (md5-add (aref md5-buffer 3) d))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Here begins the merger with the XEmacs API and the md5.el from the URL
+;;; package.  Courtesy wmperry@cs.indiana.edu
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(defun md5 (object &optional start end)
+  "Return the MD5 (a secure message digest algorithm) of an object.
+OBJECT is either a string or a buffer.
+Optional arguments START and END denote buffer positions for computing the
+hash of a portion of OBJECT."
+ (let ((buffer nil))
+    (unwind-protect
+	(save-excursion
+	  (setq buffer (generate-new-buffer " *md5-work*"))
+	  (set-buffer buffer)
+	  (cond
+	   ((bufferp object)
+	    (insert-buffer-substring object start end))
+	   ((stringp object)
+	    (insert (if (or start end)
+			(substring object start end)
+		      object)))
+	   (t nil))
+	  (prog1
+	      (if (or (null md5-maximum-internal-length)
+		      (<= (point-max) md5-maximum-internal-length))
+		  (mapconcat
+		   (function (lambda (node) (format "%02x" node)))
+		   (md5-encode (buffer-string))
+		   "")
+		(call-process-region (point-min) (point-max)
+				     shell-file-name
+				     t buffer nil
+				     shell-command-switch md5-program)
+		;; MD5 digest is 32 chars long
+		;; mddriver adds a newline to make neaten output for tty
+		;; viewing, make sure we leave it behind.
+		(buffer-substring (point-min) (+ (point-min) 32)))
+	    (kill-buffer buffer)))
+      (and buffer (buffer-name buffer) (kill-buffer buffer) nil))))
+
+(provide 'md5)
diff --git a/utils/sasl/lisp/md5.el b/utils/sasl/lisp/md5.el
new file mode 100644
index 0000000..634b2f0
--- /dev/null
+++ b/utils/sasl/lisp/md5.el
@@ -0,0 +1,65 @@
+;;; md5.el --- MD5 Message Digest Algorithm.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: MD5, RFC 1321
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Examples from RFC 1321.
+;;
+;; (md5 "")
+;; => d41d8cd98f00b204e9800998ecf8427e
+;;
+;; (md5 "a")
+;; => 0cc175b9c0f1b6a831c399e269772661
+;;
+;; (md5 "abc")
+;; => 900150983cd24fb0d6963f7d28e17f72
+;;
+;; (md5 "message digest")
+;; => f96b697d7cb7938d525a2f31aaf161d0
+;;
+;; (md5 "abcdefghijklmnopqrstuvwxyz")
+;; => c3fcd3d76192e4007dfb496cca67e13b
+;;
+;; (md5 "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789")
+;; => d174ab98d277d9f5a5611c2c9f419d9f
+;;
+;; (md5 "12345678901234567890123456789012345678901234567890123456789012345678901234567890")
+;; => 57edf4a22be3c955ac49da2e2107b67a
+
+;;; Code:
+
+(cond
+ ((and (fboundp 'md5)
+       (subrp (symbol-function 'md5)))
+  ;; recent XEmacs has `md5' as a built-in function.
+  ;; (and 'md5 is already provided.)
+  )
+ ((and (fboundp 'dynamic-link)
+       (file-exists-p (expand-file-name "md5.so" exec-directory)))
+  ;; Emacs with DL patch.
+  (require 'md5 "md5-dl"))
+ (t
+  (require 'md5 "md5-el")))
+
+;;; md5.el ends here.
diff --git a/utils/sasl/lisp/sasl.el b/utils/sasl/lisp/sasl.el
new file mode 100644
index 0000000..3e78040
--- /dev/null
+++ b/utils/sasl/lisp/sasl.el
@@ -0,0 +1,156 @@
+;;; sasl.el --- basic functions for SASL
+
+;; Copyright (C) 1995, 1996, 1998, 1999 Free Software Foundation, Inc.
+
+;; Author: Kenichi OKADA <okada@opaopa.org>
+;; Keywords: SMTP, SASL, RFC2222
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
+
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Example.
+;;
+;; (base64-encode-string
+;;  (sasl-scram-md5-client-msg-2
+;;   (base64-decode-string "dGVzdHNhbHQBAAAAaW1hcEBlbGVhbm9yLmlubm9zb2Z0LmNvbQBqaGNOWmxSdVBiemlGcCt2TFYrTkN3")
+;;   (base64-decode-string "AGNocmlzADx0NG40UGFiOUhCMEFtL1FMWEI3MmVnQGVsZWFub3IuaW5ub3NvZnQuY29tPg==")
+;;   (scram-md5-make-salted-pass
+;;    "secret stuff" "testsalt")))
+;; => "AQAAAMg9jU8CeB4KOfk7sUhSQPs="
+;;
+;; (base64-encode-string
+;;  (scram-md5-make-server-msg-2
+;;   (base64-decode-string "dGVzdHNhbHQBAAAAaW1hcEBlbGVhbm9yLmlubm9zb2Z0LmNvbQBqaGNOWmxSdVBiemlGcCt2TFYrTkN3")
+;;   (base64-decode-string "AGNocmlzADx0NG40UGFiOUhCMEFtL1FMWEI3MmVnQGVsZWFub3IuaW5ub3NvZnQuY29tPg==")
+;;   (scram-make-security-info nil t 0)
+;;   "testsalt"
+;;   (scram-md5-make-salted-pass
+;;    "secret stuff" "testsalt")))
+;; => "U0odqYw3B7XIIW0oSz65OQ=="
+
+;;; Code:
+
+(require 'hmac-md5)
+
+(eval-when-compile
+  (require 'scram-md5)
+  (require 'digest-md5))
+
+(eval-and-compile
+  (autoload 'open-ssl-stream "ssl")
+  (autoload 'base64-decode-string "base64")
+  (autoload 'base64-encode-string "base64")
+  (autoload 'starttls-open-stream "starttls")
+  (autoload 'starttls-negotiate "starttls")
+  (autoload 'digest-md5-parse-digest-challenge "digest-md5")
+  (autoload 'digest-md5-digest-response "digest-md5")
+  (autoload 'scram-md5-make-salted-pass "scram-md5")
+  (autoload 'scram-md5-parse-server-msg-1 "scram-md5")
+  (autoload 'scram-md5-make-client-msg-1 "scram-md5"))
+
+;;; CRAM-MD5
+(defun sasl-cram-md5 (username passphrase challenge)
+  (let ((secure-word (copy-sequence passphrase)))
+    (setq secure-word (unwind-protect
+			  (hmac-md5 challenge secure-word)
+			(fillarray secure-word 0))
+	  secure-word (unwind-protect
+			  (encode-hex-string secure-word)
+			(fillarray secure-word 0))
+	  secure-word (unwind-protect
+			  (concat username " " secure-word)
+			(fillarray secure-word 0)))))
+
+;;; PLAIN
+(defun sasl-plain (authorid authenid passphrase)
+  (concat authorid "\0" authenid "\0" passphrase))
+
+;;; SCRAM-MD5
+(eval-when-compile
+  (defvar sasl-scram-md5-client-security-info
+    (scram-make-security-info nil t 0)))
+
+(defun sasl-scram-md5-make-salted-pass (server-msg-1 passphrase)
+  (scram-md5-make-salted-pass
+   passphrase
+   (car
+    (scram-md5-parse-server-msg-1 server-msg-1))))
+
+(defun sasl-scram-md5-client-msg-1 (authenticate-id &optional authorize-id)
+  (scram-md5-make-client-msg-1 authenticate-id authorize-id))
+
+(defun sasl-scram-md5-client-msg-2 (server-msg-1 client-msg-1 salted-pass)
+  (let (client-proof client-key shared-key client-verifier)
+    (setq client-key
+	  (scram-md5-make-client-key salted-pass))
+    (setq client-verifier
+	  (scram-md5-make-client-verifier client-key))
+    (setq shared-key
+	  (unwind-protect
+	      (scram-md5-make-shared-key
+	       server-msg-1
+	       client-msg-1
+	       sasl-scram-md5-client-security-info
+	       client-verifier)
+	    (fillarray client-verifier 0)))
+    (setq client-proof
+	  (unwind-protect
+	      (scram-md5-make-client-proof
+	       client-key shared-key)
+	    (fillarray client-key 0)
+	    (fillarray shared-key 0)))
+    (unwind-protect
+	(scram-md5-make-client-msg-2
+	 sasl-scram-md5-client-security-info
+	 client-proof)
+      (fillarray client-proof 0))))
+	     
+(defun sasl-scram-md5-authenticate-server (server-msg-1 
+					   server-msg-2
+					   client-msg-1
+					   salted-pass)
+  (string= server-msg-2
+	   (scram-md5-make-server-msg-2
+	    server-msg-1
+	    client-msg-1
+	    sasl-scram-md5-client-security-info
+	    (car
+	     (scram-md5-parse-server-msg-1 server-msg-1))
+	    salted-pass)))
+
+;;; DIGEST-MD5
+
+(defvar sasl-digest-md5-nonce-count 1)
+
+(defun sasl-digest-md5-digest-response (digest-challenge username passwd
+							 serv-type host &optional realm)
+  (digest-md5-parse-digest-challenge digest-challenge)
+  (digest-md5-digest-response
+   username
+   (or realm (digest-md5-challenge 'realm)) ;; need to check.
+   passwd
+   (digest-md5-challenge 'nonce)
+   (digest-md5-cnonce)
+   sasl-digest-md5-nonce-count
+   (digest-md5-digest-uri serv-type host) ;; MX host
+   ))
+
+(provide 'sasl)
+
+;;; sasl.el ends here
\ No newline at end of file
diff --git a/utils/sasl/lisp/scram-md5.el b/utils/sasl/lisp/scram-md5.el
new file mode 100644
index 0000000..6891600
--- /dev/null
+++ b/utils/sasl/lisp/scram-md5.el
@@ -0,0 +1,154 @@
+;;; scram-md5.el --- Compute SCRAM-MD5.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;;	Kenichi OKADA <okada@opaopa.org>
+;; Keywords: SCRAM-MD5, HMAC-MD5, SASL, IMAP, POP, ACAP
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This program is implemented from draft-newman-auth-scram-03.txt.
+;;
+;; It is caller's responsibility to base64-decode challenges and
+;; base64-encode responses in IMAP4 AUTHENTICATE command.
+;;
+;; Passphrase should be longer than 16 bytes. (See RFC 2195)
+
+;; Examples.
+;;
+;; (scram-make-security-info nil t 0)
+;; => "^A^@^@^@"
+
+;;; Code:
+
+(require 'hmac-md5)
+(require 'unique-id)
+
+(defmacro scram-security-info-no-security-layer (security-info)
+  `(eq (logand (aref ,security-info 0) 1) 1))
+(defmacro scram-security-info-integrity-protection-layer (security-info)
+  `(eq (logand (aref ,security-info 0) 2) 2))
+(defmacro scram-security-info-buffer-size (security-info)
+  `(let ((ssecinfo ,security-info))
+     (+ (lsh (aref ssecinfo 1) 16)
+	(lsh (aref ssecinfo 2) 8)
+	(aref ssecinfo 3))))
+
+(defun scram-make-security-info (integrity-protection-layer
+				 no-security-layer buffer-size)
+  (let ((csecinfo (make-string 4 0)))
+    (when integrity-protection-layer
+      (aset csecinfo 0 2))
+    (if no-security-layer
+	(aset csecinfo 0 (logior (aref csecinfo 0) 1))
+      (aset csecinfo 1
+	    (lsh (logand buffer-size (lsh 255 16)) -16))
+      (aset csecinfo 2
+	    (lsh (logand buffer-size (lsh 255 8)) -8))
+      (aset csecinfo 3 (logand buffer-size 255)))
+    csecinfo))
+
+(defun scram-make-unique-nonce ()	; 8*OCTET, globally unique.
+  ;; For example, concatenated string of process-identifier, system-clock,
+  ;; sequence-number, random-number, and domain-name.
+  (let (id)
+    (unwind-protect
+	(concat "<" 
+		(setq id (unique-id-m ".sasl"))
+		"@" (system-name) ">")
+      (fillarray id 0))))
+
+(defun scram-xor-string (str1 str2)
+  ;; (length str1) == (length str2) == (length dst) == 16 (in SCRAM-MD5)
+  (let* ((len (length str1))
+         (dst (make-string len 0))
+         (pos 0))
+    (while (< pos len)
+      (aset dst pos (logxor (aref str1 pos) (aref str2 pos)))
+      (setq pos (1+ pos)))
+    dst))
+
+(defun scram-md5-make-client-msg-1 (authenticate-id &optional authorize-id)
+  "Make an initial client message from AUTHENTICATE-ID and AUTHORIZE-ID.
+If AUTHORIZE-ID is the same as AUTHENTICATE-ID, it may be omitted."
+  (let (nonce)
+    (unwind-protect
+	(concat authorize-id "\0" authenticate-id "\0" 
+		(setq nonce (scram-make-unique-nonce)))
+      (fillarray nonce 0))))
+
+(defun scram-md5-parse-server-msg-1 (server-msg-1)
+  "Parse SERVER-MSG-1 and return a list of (SALT SECURITY-INFO SERVICE-ID)."
+  (when (and (> (length server-msg-1) 16)
+	     (eq (string-match "[^@]+@[^\0]+\0" server-msg-1 12) 12))
+    (list (substring server-msg-1 0 8)	; salt
+	  (substring server-msg-1 8 12)	; server-security-info
+	  (substring server-msg-1	; service-id
+		     12 (1- (match-end 0))))))
+
+(defun scram-md5-make-salted-pass (passphrase salt)
+  (hmac-md5 salt passphrase))
+
+(defun scram-md5-make-client-key (salted-pass)
+  (md5-binary salted-pass))
+
+(defun scram-md5-make-client-verifier (client-key)
+  (md5-binary client-key))
+
+(defun scram-md5-make-shared-key (server-msg-1
+				  client-msg-1
+				  client-security-info
+				  client-verifier)
+  (let (buff)
+    (unwind-protect
+	(hmac-md5
+	 (setq buff
+	       (concat server-msg-1 client-msg-1 client-security-info))
+	 client-verifier)
+      (fillarray buff 0))))
+
+(defun scram-md5-make-client-proof (client-key shared-key)
+  (scram-xor-string client-key shared-key))
+
+(defun scram-md5-make-client-msg-2 (client-security-info client-proof)
+  (concat client-security-info client-proof))
+
+(defun scram-md5-make-server-msg-2 (server-msg-1
+				    client-msg-1
+				    client-security-info
+				    salt salted-pass)
+  (let (buff server-salt)
+    (setq server-salt
+	  (hmac-md5 salt salted-pass))
+    (unwind-protect
+	(hmac-md5
+	 (setq buff
+	       (concat
+		client-msg-1
+		server-msg-1
+		client-security-info))
+	 server-salt)
+      (fillarray server-salt 0)
+      (fillarray buff 0))))
+
+(provide 'scram-md5)
+
+;;; scram-md5.el ends here
diff --git a/utils/sasl/lisp/sha1-dl.el b/utils/sasl/lisp/sha1-dl.el
new file mode 100644
index 0000000..06f51a2
--- /dev/null
+++ b/utils/sasl/lisp/sha1-dl.el
@@ -0,0 +1,56 @@
+;;; sha1-dl.el --- SHA1 Secure Hash Algorithm using DL module.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: SHA1, FIPS 180-1
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(provide 'sha1-dl)			; beware of circular dependency.
+(eval-when-compile (require 'sha1))	; sha1-dl-module.
+
+(defvar sha1-dl-handle
+  (and (stringp sha1-dl-module)
+       (file-exists-p sha1-dl-module)
+       (dynamic-link sha1-dl-module)))
+
+;;; sha1-dl-module provides `sha1-string' and `sha1-binary'.
+(dynamic-call "emacs_sha1_init" sha1-dl-handle)
+
+(defun sha1-region (beg end)
+  (sha1-string (buffer-substring-no-properties beg end)))
+
+(defun sha1 (object &optional beg end)
+  "Return the SHA1 (Secure Hash Algorithm) of an object.
+OBJECT is either a string or a buffer.
+Optional arguments BEG and END denote buffer positions for computing the
+hash of a portion of OBJECT."
+  (if (stringp object)
+      (sha1-string object)
+    (save-excursion
+      (set-buffer object)
+      (sha1-region (or beg (point-min)) (or end (point-max))))))
+
+(provide 'sha1-dl)
+
+;;; sha1-dl.el ends here
diff --git a/utils/sasl/lisp/sha1-el.el b/utils/sasl/lisp/sha1-el.el
new file mode 100644
index 0000000..96d52a3
--- /dev/null
+++ b/utils/sasl/lisp/sha1-el.el
@@ -0,0 +1,408 @@
+;;; sha1-el.el --- SHA1 Secure Hash Algorithm in Emacs-Lisp.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;; Keywords: SHA1, FIPS 180-1
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This program is implemented from the definition of SHA-1 in FIPS PUB
+;; 180-1 (Federal Information Processing Standards Publication 180-1),
+;; "Announcing the Standard for SECURE HASH STANDARD".
+;; <URL:http://www.itl.nist.gov/div897/pubs/fip180-1.htm>
+;; EXCEPTION:
+;;  * Two optimizations taken from GnuPG/cipher/sha1.c.
+;;
+;; BUGS:
+;;  * It is assumed that length of input string is less than 2^29 bytes.
+;;  * It is caller's responsibility to make string (or region) unibyte.
+
+;;; Code:
+
+(require 'hex-util)
+
+;;;
+;;; external SHA1 function.
+;;;
+
+(defvar sha1-maximum-internal-length 500
+  "*Maximum length of message to use lisp version of SHA1 function.
+If message is longer than this, `sha1-program' is used instead.
+
+If this variable is set to 0, use extarnal program only.
+If this variable is set to nil, use internal function only.")
+
+(defvar sha1-program '("openssl" "sha1")
+  "*Name of program to compute SHA1.
+It must be a string \(program name\) or list of strings \(name and its args\).")
+
+(defun sha1-string-external (string)
+  ;; `with-temp-buffer' is new in v20, so we do not use it.
+  (save-excursion
+    (let (buffer)
+      (unwind-protect
+	  (let (prog args)
+	    (if (consp sha1-program)
+		(setq prog (car sha1-program)
+		      args (cdr sha1-program))
+	      (setq prog sha1-program
+		    args nil))
+	    (setq buffer (set-buffer
+			  (generate-new-buffer " *sha1 external*")))
+	    (insert string)
+	    (apply (function call-process-region)
+		   (point-min)(point-max)
+		   prog t t nil args)
+	    ;; SHA1 is 40 bytes long in hexadecimal form.
+	    (buffer-substring (point-min)(+ (point-min) 40)))
+	(and buffer
+	     (buffer-name buffer)
+	     (kill-buffer buffer))))))
+
+(defun sha1-region-external (beg end)
+  (sha1-string-external (buffer-substring-no-properties beg end)))
+
+;;;
+;;; internal SHA1 function.
+;;;
+
+(eval-when-compile
+  ;; optional second arg of string-to-number is new in v20.
+  (defconst sha1-K0-high 23170)		; (string-to-number "5A82" 16)
+  (defconst sha1-K0-low  31129)		; (string-to-number "7999" 16)
+  (defconst sha1-K1-high 28377)		; (string-to-number "6ED9" 16)
+  (defconst sha1-K1-low  60321)		; (string-to-number "EBA1" 16)
+  (defconst sha1-K2-high 36635)		; (string-to-number "8F1B" 16)
+  (defconst sha1-K2-low  48348)		; (string-to-number "BCDC" 16)
+  (defconst sha1-K3-high 51810)		; (string-to-number "CA62" 16)
+  (defconst sha1-K3-low  49622)		; (string-to-number "C1D6" 16)
+
+;;; original definition of sha1-F0.
+;;; (defmacro sha1-F0 (B C D)
+;;;   (` (logior (logand (, B) (, C))
+;;; 	     (logand (lognot (, B)) (, D)))))
+;;; a little optimization from GnuPG/cipher/sha1.c.
+  (defmacro sha1-F0 (B C D)
+    (` (logxor (, D) (logand (, B) (logxor (, C) (, D))))))
+  (defmacro sha1-F1 (B C D)
+    (` (logxor (, B) (, C) (, D))))
+;;; original definition of sha1-F2.
+;;; (defmacro sha1-F2 (B C D)
+;;;   (` (logior (logand (, B) (, C))
+;;; 	     (logand (, B) (, D))
+;;; 	     (logand (, C) (, D)))))
+;;; a little optimization from GnuPG/cipher/sha1.c.
+  (defmacro sha1-F2 (B C D)
+    (` (logior (logand (, B) (, C))
+	       (logand (, D) (logior (, B) (, C))))))
+  (defmacro sha1-F3 (B C D)
+    (` (logxor (, B) (, C) (, D))))
+
+  (defmacro sha1-S1  (W-high W-low)
+    (` (let ((W-high (, W-high))
+	     (W-low  (, W-low)))
+	 (setq S1W-high (+ (% (* W-high 2) 65536)
+			   (/ W-low (, (/ 65536 2)))))
+	 (setq S1W-low (+ (/ W-high (, (/ 65536 2)))
+			  (% (* W-low 2) 65536))))))
+  (defmacro sha1-S5  (A-high A-low)
+    (` (progn
+	 (setq S5A-high (+ (% (* (, A-high) 32) 65536)
+			   (/ (, A-low) (, (/ 65536 32)))))
+	 (setq S5A-low  (+ (/ (, A-high) (, (/ 65536 32)))
+			   (% (* (, A-low) 32) 65536))))))
+  (defmacro sha1-S30 (B-high B-low)
+    (` (progn
+	 (setq S30B-high (+ (/ (, B-high) 4)
+			    (* (% (, B-low) 4) (, (/ 65536 4)))))
+	 (setq S30B-low  (+ (/ (, B-low) 4)
+			    (* (% (, B-high) 4) (, (/ 65536 4))))))))
+
+  (defmacro sha1-OP (round)
+    (` (progn
+	 (sha1-S5 sha1-A-high sha1-A-low)
+	 (sha1-S30 sha1-B-high sha1-B-low)
+	 (setq sha1-A-low (+ ((, (intern (format "sha1-F%d" round)))
+			      sha1-B-low sha1-C-low sha1-D-low)
+			     sha1-E-low
+			     (, (symbol-value
+				 (intern (format "sha1-K%d-low" round))))
+			     (aref block-low idx)
+			     (progn
+			       (setq sha1-E-low sha1-D-low)
+			       (setq sha1-D-low sha1-C-low)
+			       (setq sha1-C-low S30B-low)
+			       (setq sha1-B-low sha1-A-low)
+			       S5A-low)))
+	 (setq carry (/ sha1-A-low 65536))
+	 (setq sha1-A-low (% sha1-A-low 65536))
+	 (setq sha1-A-high (% (+ ((, (intern (format "sha1-F%d" round)))
+				  sha1-B-high sha1-C-high sha1-D-high)
+				 sha1-E-high
+				 (, (symbol-value
+				     (intern (format "sha1-K%d-high" round))))
+				 (aref block-high idx)
+				 (progn
+				   (setq sha1-E-high sha1-D-high)
+				   (setq sha1-D-high sha1-C-high)
+				   (setq sha1-C-high S30B-high)
+				   (setq sha1-B-high sha1-A-high)
+				   S5A-high)
+				 carry)
+			      65536)))))
+
+  (defmacro sha1-add-to-H (H X)
+    (` (progn
+	 (setq (, (intern (format "sha1-%s-low" H)))
+	       (+ (, (intern (format "sha1-%s-low" H)))
+		  (, (intern (format "sha1-%s-low" X)))))
+	 (setq carry (/ (, (intern (format "sha1-%s-low" H))) 65536))
+	 (setq (, (intern (format "sha1-%s-low" H)))
+	       (% (, (intern (format "sha1-%s-low" H))) 65536))
+	 (setq (, (intern (format "sha1-%s-high" H)))
+	       (% (+ (, (intern (format "sha1-%s-high" H)))
+		     (, (intern (format "sha1-%s-high" X)))
+		     carry)
+		  65536)))))
+  )
+
+;;; buffers (H0 H1 H2 H3 H4).
+(defvar sha1-H0-high)
+(defvar sha1-H0-low)
+(defvar sha1-H1-high)
+(defvar sha1-H1-low)
+(defvar sha1-H2-high)
+(defvar sha1-H2-low)
+(defvar sha1-H3-high)
+(defvar sha1-H3-low)
+(defvar sha1-H4-high)
+(defvar sha1-H4-low)
+
+(defun sha1-block (block-high block-low)
+  (let (;; step (c) --- initialize buffers (A B C D E).
+	(sha1-A-high sha1-H0-high) (sha1-A-low sha1-H0-low)
+	(sha1-B-high sha1-H1-high) (sha1-B-low sha1-H1-low)
+	(sha1-C-high sha1-H2-high) (sha1-C-low sha1-H2-low)
+	(sha1-D-high sha1-H3-high) (sha1-D-low sha1-H3-low)
+	(sha1-E-high sha1-H4-high) (sha1-E-low sha1-H4-low)
+	(idx 16))
+    ;; step (b).
+    (let (;; temporary variables used in sha1-S1 macro.
+	  S1W-high S1W-low)
+      (while (< idx 80)
+	(sha1-S1 (logxor (aref block-high (- idx 3))
+			 (aref block-high (- idx 8))
+			 (aref block-high (- idx 14))
+			 (aref block-high (- idx 16)))
+		 (logxor (aref block-low  (- idx 3))
+			 (aref block-low  (- idx 8))
+			 (aref block-low  (- idx 14))
+			 (aref block-low  (- idx 16))))
+	(aset block-high idx S1W-high)
+	(aset block-low  idx S1W-low)
+	(setq idx (1+ idx))))
+    ;; step (d).
+    (setq idx 0)
+    (let (;; temporary variables used in sha1-OP macro.
+	  S5A-high S5A-low S30B-high S30B-low carry)
+      (while (< idx 20) (sha1-OP 0) (setq idx (1+ idx)))
+      (while (< idx 40) (sha1-OP 1) (setq idx (1+ idx)))
+      (while (< idx 60) (sha1-OP 2) (setq idx (1+ idx)))
+      (while (< idx 80) (sha1-OP 3) (setq idx (1+ idx))))
+    ;; step (e).
+    (let (;; temporary variables used in sha1-add-to-H macro.
+	  carry)
+      (sha1-add-to-H H0 A)
+      (sha1-add-to-H H1 B)
+      (sha1-add-to-H H2 C)
+      (sha1-add-to-H H3 D)
+      (sha1-add-to-H H4 E))))
+
+(defun sha1-binary (string)
+  "Return the SHA1 of STRING in binary form."
+  (let (;; prepare buffers for a block. byte-length of block is 64.
+	;; input block is split into two vectors.
+	;;
+	;; input block: 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ...
+	;; block-high:  +-0-+       +-1-+       +-2-+       +-3-+
+	;; block-low:         +-0-+       +-1-+       +-2-+       +-3-+
+	;;
+	;; length of each vector is 80, and elements of each vector are
+	;; 16bit integers.  elements 0x10-0x4F of each vector are
+	;; assigned later in `sha1-block'.
+	(block-high (eval-when-compile (make-vector 80 nil)))
+	(block-low  (eval-when-compile (make-vector 80 nil))))
+    (unwind-protect
+	(let* (;; byte-length of input string.
+	       (len (length string))
+	       (lim (* (/ len 64) 64))
+	       (rem (% len 4))
+	       (idx 0)(pos 0))
+	  ;; initialize buffers (H0 H1 H2 H3 H4).
+	  (setq sha1-H0-high 26437	; (string-to-number "6745" 16)
+		sha1-H0-low  8961	; (string-to-number "2301" 16)
+		sha1-H1-high 61389	; (string-to-number "EFCD" 16)
+		sha1-H1-low  43913	; (string-to-number "AB89" 16)
+		sha1-H2-high 39098	; (string-to-number "98BA" 16)
+		sha1-H2-low  56574	; (string-to-number "DCFE" 16)
+		sha1-H3-high 4146	; (string-to-number "1032" 16)
+		sha1-H3-low  21622	; (string-to-number "5476" 16)
+		sha1-H4-high 50130	; (string-to-number "C3D2" 16)
+		sha1-H4-low  57840)	; (string-to-number "E1F0" 16)
+	  ;; loop for each 64 bytes block.
+	  (while (< pos lim)
+	    ;; step (a).
+	    (setq idx 0)
+	    (while (< idx 16)
+	      (aset block-high idx (+ (* (aref string pos) 256)
+				      (aref string (1+ pos))))
+	      (setq pos (+ pos 2))
+	      (aset block-low  idx (+ (* (aref string pos) 256)
+				      (aref string (1+ pos))))
+	      (setq pos (+ pos 2))
+	      (setq idx (1+ idx)))
+	    (sha1-block block-high block-low))
+	  ;; last block.
+	  (if (prog1
+		  (< (- len lim) 56)
+		(setq lim (- len rem))
+		(setq idx 0)
+		(while (< pos lim)
+		  (aset block-high idx (+ (* (aref string pos) 256)
+					  (aref string (1+ pos))))
+		  (setq pos (+ pos 2))
+		  (aset block-low  idx (+ (* (aref string pos) 256)
+					  (aref string (1+ pos))))
+		  (setq pos (+ pos 2))
+		  (setq idx (1+ idx)))
+		;; this is the last (at most) 32bit word.
+		(cond
+		 ((= rem 3)
+		  (aset block-high idx (+ (* (aref string pos) 256)
+					  (aref string (1+ pos))))
+		  (setq pos (+ pos 2))
+		  (aset block-low  idx (+ (* (aref string pos) 256)
+					  128)))
+		 ((= rem 2)
+		  (aset block-high idx (+ (* (aref string pos) 256)
+					  (aref string (1+ pos))))
+		  (aset block-low  idx 32768))
+		 ((= rem 1)
+		  (aset block-high idx (+ (* (aref string pos) 256)
+					  128))
+		  (aset block-low  idx 0))
+		 (t ;; (= rem 0)
+		  (aset block-high idx 32768)
+		  (aset block-low  idx 0)))
+		(setq idx (1+ idx))
+		(while (< idx 16)
+		  (aset block-high idx 0)
+		  (aset block-low  idx 0)
+		  (setq idx (1+ idx))))
+	      ;; last block has enough room to write the length of string.
+	      (progn
+		;; write bit length of string to last 4 bytes of the block.
+		(aset block-low  15 (* (% len 8192) 8))
+		(setq len (/ len 8192))
+		(aset block-high 15 (% len 65536))
+		;; XXX: It is not practical to compute SHA1 of
+		;;      such a huge message on emacs.
+		;; (setq len (/ len 65536))	; for 64bit emacs.
+		;; (aset block-low  14 (% len 65536))
+		;; (aset block-high 14 (/ len 65536))
+		(sha1-block block-high block-low))
+	    ;; need one more block.
+	    (sha1-block block-high block-low)
+	    (fillarray block-high 0)
+	    (fillarray block-low  0)
+	    ;; write bit length of string to last 4 bytes of the block.
+	    (aset block-low  15 (* (% len 8192) 8))
+	    (setq len (/ len 8192))
+	    (aset block-high 15 (% len 65536))
+	    ;; XXX: It is not practical to compute SHA1 of
+	    ;;      such a huge message on emacs.
+	    ;; (setq len (/ len 65536))		; for 64bit emacs.
+	    ;; (aset block-low  14 (% len 65536))
+	    ;; (aset block-high 14 (/ len 65536))
+	    (sha1-block block-high block-low))
+	  ;; make output string (in binary form).
+	  (let ((result (make-string 20 0)))
+	    (aset result  0 (/ sha1-H0-high 256))
+	    (aset result  1 (% sha1-H0-high 256))
+	    (aset result  2 (/ sha1-H0-low  256))
+	    (aset result  3 (% sha1-H0-low  256))
+	    (aset result  4 (/ sha1-H1-high 256))
+	    (aset result  5 (% sha1-H1-high 256))
+	    (aset result  6 (/ sha1-H1-low  256))
+	    (aset result  7 (% sha1-H1-low  256))
+	    (aset result  8 (/ sha1-H2-high 256))
+	    (aset result  9 (% sha1-H2-high 256))
+	    (aset result 10 (/ sha1-H2-low  256))
+	    (aset result 11 (% sha1-H2-low  256))
+	    (aset result 12 (/ sha1-H3-high 256))
+	    (aset result 13 (% sha1-H3-high 256))
+	    (aset result 14 (/ sha1-H3-low  256))
+	    (aset result 15 (% sha1-H3-low  256))
+	    (aset result 16 (/ sha1-H4-high 256))
+	    (aset result 17 (% sha1-H4-high 256))
+	    (aset result 18 (/ sha1-H4-low  256))
+	    (aset result 19 (% sha1-H4-low  256))
+	    result))
+      ;; do not leave a copy of input string.
+      (fillarray block-high nil)
+      (fillarray block-low  nil))))
+
+(defun sha1-string-internal (string)
+  (encode-hex-string (sha1-binary string)))
+
+(defun sha1-region-internal (beg end)
+  (sha1-string-internal (buffer-substring-no-properties beg end)))
+
+;;;
+;;; application interface.
+;;;
+
+(defun sha1-region (beg end)
+  (if (and sha1-maximum-internal-length
+	   (> (abs (- end beg)) sha1-maximum-internal-length))
+      (sha1-region-external beg end)
+    (sha1-region-internal beg end)))
+
+(defun sha1-string (string)
+  (if (and sha1-maximum-internal-length
+	   (> (length string) sha1-maximum-internal-length))
+      (sha1-string-external string)
+    (sha1-string-internal string)))
+
+(defun sha1 (object &optional beg end)
+  "Return the SHA1 (Secure Hash Algorithm) of an object.
+OBJECT is either a string or a buffer.
+Optional arguments BEG and END denote buffer positions for computing the
+hash of a portion of OBJECT."
+  (if (stringp object)
+      (sha1-string object)
+    (save-excursion
+      (set-buffer object)
+      (sha1-region (or beg (point-min)) (or end (point-max))))))
+
+(provide 'sha1-el)
+
+;;; sha1-el.el ends here
diff --git a/utils/sasl/lisp/sha1.el b/utils/sasl/lisp/sha1.el
new file mode 100644
index 0000000..a7265b6
--- /dev/null
+++ b/utils/sasl/lisp/sha1.el
@@ -0,0 +1,77 @@
+;;; sha1.el --- SHA1 Secure Hash Algorithm.
+
+;; Copyright (C) 1999 Shuhei KOBAYASHI
+
+;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;;	Kenichi OKADA <okada@opaopa.org>
+;; Maintainer: Kenichi OKADA <okada@opaopa.org>
+;; Keywords: SHA1, FIPS 180-1
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; Examples from FIPS PUB 180-1.
+;; <URL:http://www.itl.nist.gov/div897/pubs/fip180-1.htm>
+;;
+;; (sha1 "abc")
+;; => a9993e364706816aba3e25717850c26c9cd0d89d
+;;
+;; (sha1 "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq")
+;; => 84983e441c3bd26ebaae4aa1f95129e5e54670f1
+;;
+;; (sha1 (make-string 1000000 ?a))
+;; => 34aa973cd4c4daa4f61eeb2bdbad27316534016f
+
+;;; Code:
+
+(require 'hex-util)
+
+(eval-when-compile
+  (defun-maybe sha1-string (a)))
+
+(defvar sha1-dl-module
+  (if (and (fboundp 'sha1-string)
+	   (subrp (symbol-function 'sha1-string)))
+      nil
+    (if (fboundp 'dynamic-link)
+	(let ((path (expand-file-name "sha1.so" exec-directory)))
+	  (and (file-exists-p path)
+	       path)))))
+
+(cond
+ (sha1-dl-module
+  ;; Emacs with DL patch.
+  (require 'sha1-dl))
+ (t
+  (require 'sha1-el)))
+
+;; compatibility for another sha1.el by Keiichi Suzuki.
+(defun sha1-encode (string)
+  (decode-hex-string 
+   (sha1-string string)))
+(defun sha1-encode-binary (string)
+  (decode-hex-string
+   (sha1-string string)))
+
+(make-obsolete 'sha1-encode "It's old API.")
+(make-obsolete 'sha1-encode-binary "It's old API.")
+
+(provide 'sha1)
+
+;;; sha1.el ends here
diff --git a/utils/sasl/lisp/unique-id.el b/utils/sasl/lisp/unique-id.el
new file mode 100644
index 0000000..f80b2d4
--- /dev/null
+++ b/utils/sasl/lisp/unique-id.el
@@ -0,0 +1,92 @@
+;;; unique-id.el --- Compute DIGEST-MD5.
+
+;; Copyright (C) 1999 Kenichi OKADA
+
+;; Author: Katsumi Yamaoka  <yamaoka@jpl.org>
+
+;; This file is part of FLIM (Faithful Library about Internet Message).
+
+;;; Code:
+
+;;; Gnus 5.8.3: message.el
+
+(defvar unique-id-m-char nil)
+
+;; If you ever change this function, make sure the new version
+;; cannot generate IDs that the old version could.
+;; You might for example insert a "." somewhere (not next to another dot
+;; or string boundary), or modify the suffix string (default to "fsf").
+(defun unique-id-m (&optional suffix)
+  ;; Don't use microseconds from (current-time), they may be unsupported.
+  ;; Instead we use this randomly inited counter.
+  (setq unique-id-m-char
+	(% (1+ (or unique-id-m-char (logand (random t) (1- (lsh 1 20)))))
+	   ;; (current-time) returns 16-bit ints,
+	   ;; and 2^16*25 just fits into 4 digits i base 36.
+	   (* 25 25)))
+  (let ((tm (current-time)))
+    (concat
+     (if (memq system-type '(ms-dos emx vax-vms))
+	 (let ((user (downcase (user-login-name))))
+	   (while (string-match "[^a-z0-9_]" user)
+	     (aset user (match-beginning 0) ?_))
+	   user)
+       (unique-id-m-number-base36 (user-uid) -1))
+     (unique-id-m-number-base36 (+ (car   tm)
+				   (lsh (% unique-id-m-char 25) 16)) 4)
+     (unique-id-m-number-base36 (+ (nth 1 tm)
+				   (lsh (/ unique-id-m-char 25) 16)) 4)
+     ;; Append the suffix, because while the generated ID is unique to
+     ;; the application, other applications might otherwise generate
+     ;; the same ID via another algorithm.
+     (or suffix ".fsf"))))
+
+(defun unique-id-m-number-base36 (num len)
+  (if (if (< len 0)
+	  (<= num 0)
+	(= len 0))
+      ""
+    (concat (unique-id-m-number-base36 (/ num 36) (1- len))
+	    (char-to-string (aref "zyxwvutsrqponmlkjihgfedcba9876543210"
+				  (% num 36))))))
+
+
+;;; Wanderlust 1.0.3: wl-draft.el, wl-mule.el
+
+(defun unique-id-w-random-alphabet ()
+  (let ((alphabet '(?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M
+		       ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y ?Z)))
+    (nth (abs (% (random) 26)) alphabet)))
+
+(defun unique-id-w ()
+  (let ((time (current-time)))
+    (format "%d.%d.%d.%d%c"
+	    (car time) (nth 1 time) (nth 2 time)
+	    (random 100000)
+	    (unique-id-w-random-alphabet))))
+
+
+;;; VM 6.75: vm-misc.el
+
+(defun unique-id-v ()
+  (let ((time (current-time)))
+    (format "%d.%d.%d.%d"
+	    (car time) (nth 1 time) (nth 2 time)
+	    (random 1000000))))
+
+
+;;; X-PGP-Sig 1.3.5.1
+
+(defun unique-id-x (&optional length)
+  (let ((i (or length 16))
+	s)
+    (while (> i 0)
+      (setq i (1- i)
+	    s (concat s (char-to-string (+ (/ (* 94 (% (abs (random)) 100))
+					      100) 33)))))
+    s))
+
+(provide 'unique-id)
+
+;;; unique-id.el ends here
+
diff --git a/utils/sasl/src/md5-dl.c b/utils/sasl/src/md5-dl.c
new file mode 100644
index 0000000..bdd17a1
--- /dev/null
+++ b/utils/sasl/src/md5-dl.c
@@ -0,0 +1,85 @@
+/* Dynamic loading module to compute MD5 for Emacs 20 with DL support.
+
+   Copyright (C) 1999 Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; see the file COPYING.  If not, write to
+   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.
+
+*/
+
+/*
+  How to compile: (OpenSSL is required)
+
+  gcc -shared -nostdlib -fPIC -I${EMACS}/src -o md5.so md5-dl.c -lcrypto
+
+*/
+
+#include "config.h"
+#include "lisp.h"
+
+/* for 20.2 (not tested)
+#ifndef STRING_BYTES
+#define STRING_BYTES(STR) ((STR)->size)
+#define make_unibyte_string make_string
+#endif
+*/
+
+#include <openssl/md5.h>
+
+static unsigned char to_hex[] = {'0', '1', '2', '3', '4', '5', '6', '7',
+                                 '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'};
+
+DEFUN ("md5-string", Fmd5_string, Smd5_string, 1, 1, 0,
+  "Return the MD5 of the STRING.")
+  (string)
+     Lisp_Object string;
+{
+  unsigned char *md;
+  unsigned char md_hex[MD5_DIGEST_LENGTH*2];
+  int i, j;
+
+  CHECK_STRING (string, 0);
+
+  md = MD5 (XSTRING (string)->data, STRING_BYTES (XSTRING (string)),
+            (unsigned char *) 0);
+
+  for (i = j = 0; i < MD5_DIGEST_LENGTH; i++, j++)
+    {
+      md_hex[j]   = to_hex[(unsigned int)(md[i] / 16)];
+      md_hex[++j] = to_hex[(unsigned int)(md[i] & 15)];
+    }
+
+  return make_unibyte_string (md_hex, sizeof(md_hex));
+}
+
+/*
+ * setting
+ */
+static struct Lisp_Subr *s_md5_string;
+
+void
+emacs_md5_init ()
+{
+  s_md5_string = (struct Lisp_Subr *) xmalloc (sizeof (struct Lisp_Subr));
+  bcopy (&Smd5_string, s_md5_string, sizeof (struct Lisp_Subr));
+  defsubr (s_md5_string);
+}
+
+void
+emacs_md5_fini ()
+{
+  undefsubr (s_md5_string);
+  free (s_md5_string);
+}
diff --git a/utils/sasl/src/sha1-dl.c b/utils/sasl/src/sha1-dl.c
new file mode 100644
index 0000000..045fef8
--- /dev/null
+++ b/utils/sasl/src/sha1-dl.c
@@ -0,0 +1,84 @@
+/* Dynamic loading module to compute SHA-1 for Emacs 20 with DL support.
+
+   Copyright (C) 1999 Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+   This program is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License as
+   published by the Free Software Foundation; either version 2, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program; see the file COPYING.  If not, write to
+   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.
+
+*/
+
+/*
+  How to compile: (OpenSSL is required)
+
+  gcc -shared -nostdlib -fPIC -I${EMACS}/src -o sha1.so sha1-dl.c -lcrypto
+
+*/
+
+#include "config.h"
+#include "lisp.h"
+
+/* for 20.2 (not tested)
+#ifndef STRING_BYTES
+#define STRING_BYTES(STR) ((STR)->size)
+#define make_unibyte_string make_string
+#endif
+*/
+
+#include <openssl/sha.h>
+
+static unsigned char to_hex[] = {'0', '1', '2', '3', '4', '5', '6', '7',
+                                 '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'};
+DEFUN ("sha1-string", Fsha1_string, Ssha1_string, 1, 1, 0,
+  "Return the SHA-1 of the STRING.")
+  (string)
+     Lisp_Object string;
+{
+  unsigned char *md;
+  unsigned char md_hex[SHA_DIGEST_LENGTH*2];
+  int i, j;
+
+  CHECK_STRING (string, 0);
+
+  md = SHA1 (XSTRING (string)->data, STRING_BYTES (XSTRING (string)),
+             (unsigned char *) 0);
+
+  for (i = j = 0; i < SHA_DIGEST_LENGTH; i++, j++)
+    {
+      md_hex[j]   = to_hex[(unsigned int)(md[i] / 16)];
+      md_hex[++j] = to_hex[(unsigned int)(md[i] & 15)];
+    }
+
+  return make_unibyte_string (md_hex, sizeof(md_hex));
+}
+
+/*
+ * setting
+ */
+static struct Lisp_Subr *s_sha1_string;
+
+void
+emacs_sha1_init ()
+{
+  s_sha1_string = (struct Lisp_Subr *) xmalloc (sizeof (struct Lisp_Subr));
+  bcopy (&Ssha1_string, s_sha1_string, sizeof (struct Lisp_Subr));
+  defsubr (s_sha1_string);
+}
+
+void
+emacs_sha1_fini ()
+{
+  undefsubr (s_sha1_string);
+  free (s_sha1_string);
+}
diff --git a/utils/ssl.el b/utils/ssl.el
new file mode 100644
index 0000000..f8a9998
--- /dev/null
+++ b/utils/ssl.el
@@ -0,0 +1,201 @@
+;;; ssl.el,v --- ssl functions for emacsen without them builtin
+;; Author: wmperry
+;; Created: 1999/10/14 12:44:18
+;; Version: 1.2
+;; Keywords: comm
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Copyright (c) 1995, 1996 by William M. Perry <wmperry@cs.indiana.edu>
+;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
+;;;
+;;; This file is part of GNU Emacs.
+;;;
+;;; GNU Emacs is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your option)
+;;; any later version.
+;;;
+;;; GNU Emacs is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;;; Boston, MA 02111-1307, USA.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require 'cl)
+(require 'base64)
+
+(eval-and-compile
+  (condition-case ()
+      (require 'custom)
+    (error nil))
+  (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
+      nil ;; We've got what we needed
+    ;; We have the old custom-library, hack around it!
+    (defmacro defgroup (&rest args)
+      nil)
+    (defmacro defcustom (var value doc &rest args) 
+      (` (defvar (, var) (, value) (, doc))))))
+
+(defgroup ssl nil
+  "Support for `Secure Sockets Layer' encryption."
+  :group 'comm)
+  
+(defcustom ssl-certificate-directory "~/.w3/certs/"
+  "*Directory to store CA certificates in"
+  :group 'ssl
+  :type 'directory)
+
+(defcustom ssl-rehash-program-name "c_rehash"
+  "*Program to run after adding a cert to a directory .
+Run with one argument, the directory name."
+  :group 'ssl
+  :type 'string)
+
+(defcustom ssl-view-certificate-program-name "x509"
+  "*The program to run to provide a human-readable view of a certificate."
+  :group 'ssl
+  :type 'string)
+
+(defcustom ssl-view-certificate-program-arguments '("-text" "-inform" "DER")
+  "*Arguments that should be passed to the certificate viewing program.
+The certificate is piped to it.
+Maybe a way of passing a file should be implemented"
+  :group 'ssl
+  :type 'list)
+
+(defcustom ssl-certificate-directory-style 'ssleay
+  "*Style of cert database to use, the only valid value right now is `ssleay'.
+This means a directory of pem encoded certificates with hash symlinks."
+  :group 'ssl
+  :type '(choice (const :tag "SSLeay" :value ssleay)
+		 (const :tag "OpenSSL" :value openssl)))
+
+(defcustom ssl-certificate-verification-policy 0
+  "*How far up the certificate chain we should verify."
+  :group 'ssl
+  :type '(choice (const :tag "No verification" :value 0)
+		 (const :tag "Verification required" :value 1)
+		 (const :tag "Reject connection if verification fails" :value 3)
+		 (const :tag "SSL_VERIFY_CLIENT_ONCE" :value 5)))
+
+(defcustom ssl-program-name "openssl"
+  "*The program to run in a subprocess to open an SSL connection."
+  :group 'ssl
+  :type 'string)
+
+(defcustom ssl-program-arguments
+  '("s_client"
+    "-quiet"
+    "-host" host
+    "-port" service
+    "-verify" (int-to-string ssl-certificate-verification-policy)
+    "-CApath" ssl-certificate-directory
+    )
+  "*Arguments that should be passed to the program `ssl-program-name'.
+This should be used if your SSL program needs command line switches to
+specify any behaviour (certificate file locations, etc).
+The special symbols 'host and 'port may be used in the list of arguments
+and will be replaced with the hostname and service/port that will be connected
+to."
+  :group 'ssl
+  :type 'list)
+
+(defun ssl-certificate-information (der)
+  "Return an assoc list of information about a certificate in DER format."
+  (let ((certificate (concat "-----BEGIN CERTIFICATE-----\n"
+			     (base64-encode-string der)
+			     "\n-----END CERTIFICATE-----\n"))
+	(exit-code 0))
+    (save-excursion
+      (set-buffer (get-buffer-create " *openssl*"))
+      (erase-buffer)
+      (insert certificate)
+      (setq exit-code (condition-case ()
+			  (call-process-region (point-min) (point-max)
+					       ssl-program-name
+					       t (list (current-buffer) nil) t
+					       "x509"
+					       "-subject" ; Print the subject DN
+					       "-issuer" ; Print the issuer DN
+					       "-dates" ; Both before and after dates
+					       "-serial" ; print out serial number
+					       "-noout" ; Don't spit out the certificate
+					       )
+			(error -1)))
+      (if (/= exit-code 0)
+	  nil
+	(let ((vals nil))
+	  (goto-char (point-min))
+	  (while (re-search-forward "^\\([^=\n\r]+\\)\\s *=\\s *\\(.*\\)" nil t)
+	    (push (cons (match-string 1) (match-string 2)) vals))
+	  vals)))))
+  
+(defun ssl-accept-ca-certificate ()
+  "Ask if the user is willing to accept a new CA certificate. The buffer-name
+should be the intended name of the certificate, and the buffer should probably
+be in DER encoding"
+  ;; TODO, check if it is really new or if we already know it
+  (let* ((process-connection-type nil)
+	 (tmpbuf (generate-new-buffer "X509 CA Certificate Information"))
+	 (response (save-excursion
+		     (and (eq 0 
+			      (apply 'call-process-region
+				     (point-min) (point-max) 
+				     ssl-view-certificate-program-name 
+				     nil tmpbuf t
+				     ssl-view-certificate-program-arguments))
+			  (switch-to-buffer tmpbuf)
+			  (goto-char (point-min))
+			  (or (recenter) t)
+			  (yes-or-no-p
+			   "Accept this CA to vouch for secure server identities? ")
+			  (kill-buffer tmpbuf)))))
+    (if (not response)
+	nil
+      (if (not (file-directory-p ssl-certificate-directory))
+	  (make-directory ssl-certificate-directory))
+      (case ssl-certificate-directory-style
+	(ssleay
+	 (base64-encode-region (point-min) (point-max))
+	 (goto-char (point-min))
+	 (insert "-----BEGIN CERTIFICATE-----\n")
+	 (goto-char (point-max))
+	 (insert "-----END CERTIFICATE-----\n")
+	 (let ((f (expand-file-name
+		   (concat (file-name-sans-extension (buffer-name)) ".pem")
+		   ssl-certificate-directory)))
+	   (write-file f)
+	   (call-process ssl-rehash-program-name
+			 nil nil nil
+			 (expand-file-name ssl-certificate-directory))))))))
+
+(defun open-ssl-stream (name buffer host service)
+  "Open a SSL connection for a service to a host.
+Returns a subprocess-object to represent the connection.
+Input and output work as for subprocesses; `delete-process' closes it.
+Args are NAME BUFFER HOST SERVICE.
+NAME is name for process.  It is modified if necessary to make it unique.
+BUFFER is the buffer (or buffer-name) to associate with the process.
+ Process output goes at end of that buffer, unless you specify
+ an output stream or filter function to handle the output.
+ BUFFER may be also nil, meaning that this process is not associated
+ with any buffer
+Third arg is name of the host to connect to, or its IP address.
+Fourth arg SERVICE is name of the service desired, or an integer
+specifying a port number to connect to."
+  (if (integerp service) (setq service (int-to-string service)))
+  (let* ((process-connection-type nil)
+	 (port service)
+	 (proc (eval
+		(`
+		 (start-process name buffer ssl-program-name
+				(,@ ssl-program-arguments))))))
+    (process-kill-without-query proc)
+    proc))
+
+(provide 'ssl)
diff --git a/utils/wl-mailto.el b/utils/wl-mailto.el
new file mode 100644
index 0000000..09fb0c6
--- /dev/null
+++ b/utils/wl-mailto.el
@@ -0,0 +1,130 @@
+;;; wl-mailto.el --- some mailto support for wanderlust
+
+;;; Copyright (C) 1999 Sen Nagata
+
+;; Author: Sen Nagata <sen@eccosys.com>
+;; Version: 0.5
+;; License: GPL 2
+;; Warning: not optimized at all
+
+;; This file is not a part of GNU Emacs.
+
+;;; Commentary:
+;;
+;; required elisp packages:
+;;
+;;   -wl (>= 0.9.6?)
+;;   
+;;   -rfc2368.el
+;;   -thingatpt.el or browse-url.el
+;;
+;; installation:
+;;
+;;   -put this file (and rfc2368.el) in an appropriate directory (so emacs 
+;;    can find it)
+;;
+;;   <necessary>
+;;   -put:
+;;
+;;     (add-hook 'wl-init-hook (lambda () (require 'wl-mailto)))
+;;
+;;    in .emacs or .wl
+;;
+;; details:
+;;
+;;   this package provides a number of interactive functions
+;; (commands) for the user.  each of the commands ultimately creates a
+;; draft message based on some information.  the names of the commands
+;; and brief descriptions are:
+;;
+;;     1) wl-mailto-compose-message-from-mailto-url
+;;            make a draft message from a user-specified mailto: url
+;;
+;;     2) wl-mailto-compose-message-from-mailto-url-at-point
+;;            make a draft message from a mailto: url at point
+;;
+;; usage:
+;;
+;;   -invoke wl
+;;   -try out the commands mentioned above in 'details'
+
+;;; History:
+;;
+;; 0.5
+;;
+;;   wl-user-agent functionality merged into wl-draft.el, so removed
+;;    dependency
+;;
+;; 1999-06-24:
+;;
+;;   incorporated a patch from Kenichi OKADA for
+;;     wl-mailto-compose-message-from-mailto-url-at-point
+;;
+;; 1999-06-11:
+;;
+;;   fixed a typo
+;; 
+;; 0.4
+;;
+;; 1999-06-01:
+;;
+;;   checkdoc checking
+;;   xemacs compatibility
+;;
+;; 1999-05-31:
+;;
+;;   rewrote to use rfc2368.el and wl-user-agent.el
+
+;;; Code:
+(defconst wl-mailto-version "wl-mailto.el 0.5")
+
+;; how should we handle the dependecy on wl?
+;; will this work?
+(eval-when-compile 
+  (require 'wl))
+
+;; use rfc2368 support -- should be usable for things other than wl too
+(require 'rfc2368)
+
+;; yucky compatibility stuff -- someone help me w/ this, please...
+(if (and (string-match "^XEmacs \\([0-9.]+\\)" (emacs-version))
+	 (< (string-to-int (match-string 1 (emacs-version))) 21))
+    ;; for xemacs versions less than 21, use browse-url.el
+    (progn
+      (require 'browse-url)
+      (fset 'wl-mailto-url-at-point 
+	    'browse-url-url-at-point))
+  ;; for everything else, use thingatpt.el
+  (progn
+    (require 'thingatpt)
+    (fset 'wl-mailto-url-at-point
+	  (lambda () 
+	    (thing-at-point 'url)))))
+
+(defun wl-mailto-compose-message-from-mailto-url (url &optional dummy)
+  "Compose a message from URL (RFC 2368).
+The optional second argument, DUMMY, exists to match the interface 
+provided by `browse-url-mail' (w3) -- DUMMY does not do anything."
+  (interactive "sURL: ")
+  (if (string-match rfc2368-mailto-regexp url)
+      (let* ((other-headers (rfc2368-parse-mailto-url url))
+	     (to (cdr (assoc-ignore-case "to" other-headers)))
+	     (subject (cdr (assoc-ignore-case "subject" other-headers))))
+
+	(wl-user-agent-compose to subject other-headers))
+    (message "Not a mailto: url.")))
+
+;; prepare a message from a mailto: url at point
+(defun wl-mailto-compose-message-from-mailto-url-at-point ()
+  "Draft a new message based on URL (RFC 2368) at point."
+  (interactive)
+  (let ((url (wl-mailto-url-at-point)))
+    (if (and url (string-match rfc2368-mailto-regexp url))
+	(wl-mailto-compose-message-from-mailto-url url)
+      ;; tell the user that we didn't find a mailto: url at point
+      (message "No mailto: url detected at point."))))
+
+;; since this will be used via 'require'...
+(provide 'wl-mailto)
+
+;;; wl-mailto.el ends here
diff --git a/wl/ChangeLog b/wl/ChangeLog
new file mode 100644
index 0000000..7485720
--- /dev/null
+++ b/wl/ChangeLog
@@ -0,0 +1,31 @@
+2000-03-30  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-demo.el (wl-title-logo): Refer wl-icon-dir.
+
+	* wl-folder.el (wl-create-folder-entity-from-buffer):
+	Fixed problem when '}' character is contained in folder name.
+
+	* wl-xmas.el (wl-make-modeline): Consider plugged status.
+
+2000-03-29  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-fldmgr.el (wl-fldmgr-add-completion-hashtb): New variable.
+	(wl-fldmgr-add-completion-all-completions):
+	Use wl-fldmgr-add-completion-hashtb.
+
+2000-03-28  Daiki Ueno <ueno@kiss.kake.info.waseda.ac.jp>
+
+	* wl-fldmgr.el (wl-fldmgr-add-completion-all-completions,
+	wl-fldmgr-add-completion-subr):	New functions.
+	* wl-folder.el (wl-folder-completion-func): New variable.
+	* wl-summary.el (wl-summary-read-folder):
+	Use wl-folder-completion-func.
+
+	* wl-refile.el: Eliminate throw & catch.
+
+	* wl.el (wl-plugged-sending-queue-status): Fixed.
+
+2000-03-27  Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+	* wl-draft.el (wl-draft): Put category property on
+	mail-header-separator.
diff --git a/wl/tm-wl.el b/wl/tm-wl.el
new file mode 100644
index 0000000..885dd7e
--- /dev/null
+++ b/wl/tm-wl.el
@@ -0,0 +1,285 @@
+;;; wl-mime.el -- tm implementations of MIME processing on Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:32:32 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(autoload 'mime/editor-mode "tm-edit" nil t)
+(autoload 'mime/edit-again "tm-edit" nil t)
+
+(eval-when-compile (require 'tm-edit))
+
+(defalias 'wl-draft-editor-mode 'mime/editor-mode)
+
+(defun wl-draft-decode-message-in-buffer (&optional default-content-type)
+  (when default-content-type 
+    (insert "Content-type: " default-content-type "\n")
+    (insert "\n"))
+  (mime-editor::edit-again 'code-conversion))
+
+(defun wl-draft-yank-current-message-entity ()
+  "Yank currently displayed message entity. 
+By setting following-method as yank-content."  
+  (let ((wl-draft-buffer (current-buffer))
+	(mime-viewer/following-method-alist 
+	 (list (cons 'wl-message-original-mode 
+		     (function wl-draft-yank-to-draft-buffer)))))
+    (if (get-buffer (wl-current-message-buffer))
+	(save-excursion
+	  (save-restriction
+	    (set-buffer (wl-current-message-buffer))
+	    (setq mime::preview/mother-buffer nil)
+	    (widen)
+	    (mime-viewer/follow-content))))))
+
+(defmacro wl-draft-enclose-digest-region (beg end)
+  (` (mime-editor/enclose-region "digest" (, beg) (, end))))
+
+(defun wl-draft-preview-message ()
+  (interactive)
+  (let ((mime-viewer/content-header-filter-hook 'wl-highlight-headers)
+	(mime-viewer/ignored-field-regexp "^:$")
+	(mime-editor/translate-buffer-hook 
+	 (append
+	  (list 'wl-draft-config-exec)
+	  mime-editor/translate-buffer-hook)))
+    (mime-editor/preview-message)
+    (let ((buffer-read-only nil))
+    (let ((buffer-read-only nil))
+      (when wl-highlight-body-too 
+	(wl-highlight-body))
+      (run-hooks 'wl-draft-preview-message-hook)))))
+
+(defmacro wl-draft-caesar-region (beg end)
+  (` (tm:caesar-region)))
+
+(defalias 'wl-draft-insert-message 'mime-editor/insert-message)
+
+(defalias 'wl-draft-insert-mail 'mime-editor/insert-mail)
+
+;;; Message
+
+(defun wl-message-decode-mode (outbuf inbuf)
+  (let ((mime-viewer/content-header-filter-hook 'wl-highlight-headers))
+    (mime/viewer-mode nil nil nil inbuf outbuf)))
+
+(defun wl-message-decode-with-all-header (outbuf inbuf)
+  (let ((mime-viewer/ignored-field-regexp "^:$")
+	(mime-viewer/content-header-filter-hook 'wl-highlight-headers))
+    (mime/viewer-mode nil nil nil inbuf outbuf)))
+
+(defun wl-message-delete-mime-out-buf ()
+  (let (mime-out-buf mime-out-win)
+    (if (setq mime-out-buf (get-buffer mime/output-buffer-name))
+	(if (setq mime-out-win (get-buffer-window mime-out-buf))
+	    (delete-window mime-out-win)))))
+
+(defun wl-message-request-partial (folder number msgdb)
+  (elmo-set-work-buf
+   (elmo-read-msg-no-cache folder number (current-buffer) msgdb)
+   (mime/parse-message nil nil)))
+
+(defalias 'wl-message-read            'mime-viewer/scroll-up-content)
+(defalias 'wl-message-next-content    'mime-viewer/next-content)
+(defalias 'wl-message-prev-content    'mime-viewer/previous-content)
+(defalias 'wl-message-play-content    'mime-viewer/play-content)
+(defalias 'wl-message-extract-content 'mime-viewer/extract-content)
+(defalias 'wl-message-quit            'mime-viewer/quit)
+(defalias 'wl-message-button-dispatcher 'tm:button-dispatcher)
+
+;;; Summary
+(defun wl-summary-burst ()
+  (interactive)
+  (let ((raw-buf (wl-message-get-original-buffer))
+	(i 0)
+	target 
+	children message-entity content-type)
+    (save-excursion
+      (setq target wl-summary-buffer-folder-name)
+      (while (not (elmo-folder-writable-p target))
+	(setq target 
+	      (wl-summary-read-folder wl-default-folder "to extract to ")))
+      (wl-summary-set-message-buffer-or-redisplay)
+      (set-buffer raw-buf)
+      (setq children (mime::content-info/children mime::article/content-info))
+      (message "Bursting...")
+      (while children
+	(setq content-type (mime::content-info/type (car children)))
+	(when (string= "message/rfc822" (downcase content-type))
+	  (message (format "Bursting...%s" (setq i (+ 1 i))))
+	  (setq message-entity 
+		(car (mime::content-info/children (car children))))
+	  (save-restriction
+	    (narrow-to-region (mime::content-info/point-min message-entity)
+			      (mime::content-info/point-max message-entity))
+	    (elmo-append-msg target
+			     (buffer-substring (point-min) (point-max))
+			     (std11-field-body "Message-ID"))))
+	(setq children (cdr children)))
+      (message "Bursting...done."))
+    (if (elmo-folder-plugged-p target)
+	(elmo-commit target))
+    (wl-summary-sync-update3)))
+
+;; internal variable.
+(defvar wl-mime-save-dir nil "Last saved directory.")
+;;; Yet another save method.
+(defun wl-mime-save-content (beg end cal)
+  (goto-char beg)
+  (let* ((name
+	  (save-restriction
+	    (narrow-to-region beg end)
+	    (mime-article/get-filename cal)))
+	 (encoding (cdr (assq 'encoding cal)))
+	 (filename (read-file-name "Save to file: "
+				   (expand-file-name
+				    (or name ".")
+				    (or wl-mime-save-dir 
+					wl-tmp-dir))))
+	 tmp-buf)
+    (while (file-directory-p filename)
+      (setq filename (read-file-name "Please set filename (not directory): "
+				     filename)))
+    (if (file-exists-p filename)
+        (or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
+            (error "Not saved")))
+    (setq wl-mime-save-dir (file-name-directory filename))
+    (setq tmp-buf (generate-new-buffer (file-name-nondirectory filename)))
+    (re-search-forward "\n\n")
+    (append-to-buffer tmp-buf (match-end 0) end)
+    (save-excursion
+      (set-buffer tmp-buf)
+      (mime-decode-region (point-min)(point-max) encoding)
+      (as-binary-output-file (write-file filename))
+      (kill-buffer tmp-buf))))
+
+;;; Yet another combine method.
+(defun wl-mime-combine-message/partial-pieces (beg end cal)
+  (interactive)
+  (let* (folder
+	 (msgdb (save-excursion
+		  (set-buffer wl-message-buffer-cur-summary-buffer)
+		  (setq folder wl-summary-buffer-folder-name)
+		  wl-summary-buffer-msgdb))
+	 (mime-viewer/content-header-filter-hook 'wl-highlight-headers)
+	 (id (cdr (assoc "id" cal)))
+	 (mother mime::article/preview-buffer)
+	 (target (cdr (assq 'major-mode cal)))
+	 (article-buffer (buffer-name (current-buffer)))
+	 (subject-buf (eval (cdr (assq 'summary-buffer-exp cal))))
+	 subject-id overviews
+	 (root-dir (expand-file-name
+		    (concat "m-prts-" (user-login-name)) mime/tmp-dir))
+	 full-file)
+    (setq root-dir (concat root-dir "/" (replace-as-filename id)))
+    (setq full-file (concat root-dir "/FULL"))
+    (if (null target)
+	(error "%s is not supported. Sorry." target))
+    (if (or (file-exists-p full-file)
+	    (not (y-or-n-p "Merge partials?")))
+	(mime-article/decode-message/partial beg end cal)
+      (message "Merging...")
+      (let (cinfo the-id parameters)
+	(setq subject-id 
+	      (eword-decode-string
+	       (decode-mime-charset-string 
+		(std11-field-body "Subject")
+		wl-summary-buffer-mime-charset)))
+	(if (string-match "[0-9\n]+" subject-id)
+	    (setq subject-id (substring subject-id 0 (match-beginning 0))))
+	(setq overviews (elmo-msgdb-get-overview msgdb))
+	(catch 'tag
+	  (while overviews
+	    (when (string-match
+		   (regexp-quote subject-id)
+		   (elmo-msgdb-overview-entity-get-subject
+		    (car overviews)))
+	      (setq cinfo
+		    (wl-message-request-partial
+		     folder
+		     (elmo-msgdb-overview-entity-get-number (car overviews))
+		     msgdb))
+	      (setq parameters (mime::content-info/parameters cinfo))
+	      (setq the-id (assoc-value "id" parameters))
+	      (if (string= the-id id)
+		  (progn
+		    (set-buffer elmo-work-buf-name)
+		    (setq mime::article/preview-buffer
+			  (get-buffer wl-message-buf-name))
+		    (mime-article/decode-message/partial
+		     (point-min)(point-max) parameters)
+		    (if (file-exists-p full-file)
+			(throw 'tag nil)))))
+	    (setq overviews (cdr overviews)))
+	  (message "Not all partials found."))))))
+
+(defun wl-mime-setup ()
+  (require 'tm-view)
+  (set-alist 'mime-viewer/quitting-method-alist
+	     'wl-message-original-mode 'wl-message-exit)
+  (set-alist 'mime-viewer/over-to-previous-method-alist
+	     'wl-message-original-mode 'wl-message-exit)
+  (set-alist 'mime-viewer/over-to-next-method-alist 
+	     'wl-message-original-mode  'wl-message-exit)
+  (add-hook 'wl-summary-redisplay-hook 'wl-message-delete-mime-out-buf)
+  (add-hook 'wl-message-exit-hook      'wl-message-delete-mime-out-buf)
+  (set-atype 'mime/content-decoding-condition
+	     '((type . "message/partial")
+	       (method . wl-message-combine-message/partial-pieces)
+	       (major-mode . wl-message-original-mode)
+	       (summary-buffer-exp . wl-summary-buffer-name)))
+  (set-atype 'mime/content-decoding-condition
+	     '((mode . "extract")
+	       (method . wl-mime-save-content)
+	       (major-mode . wl-message-original-mode))
+	     'remove
+	     '((method "tm-file"  nil 'file 'type 'encoding 'mode 'name)
+	       (mode . "extract"))
+	     'replacement)
+  (set-alist 'mime-viewer/following-method-alist
+	     'wl-message-original-mode
+	     (function wl-message-follow-current-entity))
+
+  (set-alist 'mime-editor/message-inserter-alist
+	     'wl-draft-mode (function wl-draft-insert-current-message))
+  (set-alist 'mime-editor/mail-inserter-alist
+	     'wl-draft-mode (function wl-draft-insert-get-message))
+  (set-alist 'mime-editor/split-message-sender-alist
+	     'wl-draft-mode 
+	     (cdr (assq 'mail-mode 
+			mime-editor/split-message-sender-alist)))
+  (setq mime-viewer/code-converter-alist 
+	(append
+	 (list (cons 'wl-message-original-mode 'mime-charset/decode-buffer))
+	 mime-viewer/code-converter-alist))
+  (defvar-maybe mime::preview/mother-buffer nil))
+  
+(provide 'tm-wl)
+
+;;; tm-wl.el ends here
diff --git a/wl/wl-address.el b/wl/wl-address.el
new file mode 100644
index 0000000..50ef029
--- /dev/null
+++ b/wl/wl-address.el
@@ -0,0 +1,381 @@
+;;; wl-address.el -- Tiny address management for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-03 00:59:01 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'wl-util)
+(require 'std11)
+
+(defvar wl-address-complete-header-regexp "^\\(To\\|From\\|Cc\\|Bcc\\|Mail-Followup-To\\|Reply-To\\|Return-Receipt-To\\):")
+(defvar wl-newsgroups-complete-header-regexp "^\\(Newsgroups\\|Followup-To\\):")
+(defvar wl-folder-complete-header-regexp "^\\(FCC\\):")
+(defvar wl-address-list nil)
+(defvar wl-address-completion-list nil)
+(defvar wl-address-petname-hash nil)
+
+(defun wl-complete-field-to ()
+  (interactive)
+  (let ((cl wl-address-completion-list))
+    (if cl
+	(completing-read "To: " cl)
+      (read-string "To: "))))
+
+(defun wl-complete-field-body-or-tab ()
+  (interactive)
+  (let ((case-fold-search t)
+	epand-char skip-chars
+	completion-list)
+    (if (wl-draft-on-field-p)
+	(wl-complete-field)
+      (if (and
+	   (< (point)
+	      (save-excursion
+		(goto-char (point-min))
+		(search-forward (concat "\n" mail-header-separator "\n") nil 0)
+		(point)))
+	   (save-excursion
+	     (beginning-of-line)
+	     (while (and (looking-at "^[ \t]")
+			 (not (= (point) (point-min))))
+	       (forward-line -1))
+	     (cond ((looking-at wl-address-complete-header-regexp)
+		    (setq completion-list wl-address-completion-list)
+		    (setq epand-char ?@))
+		   ((looking-at wl-folder-complete-header-regexp)
+		    (setq completion-list wl-folder-entity-hashtb)
+		    (setq skip-chars "^, "))
+		   ((looking-at wl-newsgroups-complete-header-regexp)
+		    (setq completion-list wl-folder-newsgroups-hashtb)))))
+	  (wl-complete-field-body completion-list 
+				  epand-char skip-chars)
+	(indent-for-tab-command)))))
+
+(defvar wl-completion-buf-name "*Completions*")
+
+(defvar wl-complete-candidates nil)
+
+(defun wl-complete-window-show (all)
+  (if (and (get-buffer-window wl-completion-buf-name)
+	   (equal wl-complete-candidates all))
+      (let ((win (get-buffer-window wl-completion-buf-name)))
+	(save-excursion
+	  (set-buffer wl-completion-buf-name)
+	  (if (pos-visible-in-window-p (point-max) win)
+	      (set-window-start win 1)
+	    (scroll-other-window))))
+    (message "Making completion list...")
+    (setq wl-complete-candidates all)
+    (with-output-to-temp-buffer
+	wl-completion-buf-name
+      (display-completion-list all))
+    (message "Making completion list... done")))
+
+(defun wl-complete-window-delete ()
+  (let (comp-buf comp-win)
+    (if (setq comp-buf (get-buffer wl-completion-buf-name))
+	(if (setq comp-win (get-buffer-window comp-buf))
+	    (delete-window comp-win)))))
+
+(defun wl-complete-field ()
+  (interactive)
+  (let* ((end (point))
+	 (start (save-excursion
+		  (skip-chars-backward "_a-zA-Z0-9+@%.!\\-")
+		  (point)))
+	 (completion)
+	 (pattern (buffer-substring start end))
+	 (cl wl-draft-field-completion-list))
+    (if (null cl)
+	nil
+      (setq completion 
+            (let ((completion-ignore-case t))
+              (try-completion pattern cl)))
+      (cond ((eq completion t)
+	     (let ((alias (assoc pattern cl)))
+	       (if alias
+		   (progn
+		     (delete-region start end)
+		     (insert (cdr alias))
+		;     (wl-highlight-message (point-min)(point-max) t)
+		     )))
+	     (wl-complete-window-delete))
+	    ((null completion)
+	     (message "Can't find completion for \"%s\"" pattern)
+	     (ding))
+	    ((not (string= pattern completion))
+	     (delete-region start end)
+	     (insert completion)
+	     (wl-complete-window-delete)
+	     (wl-highlight-message (point-min)(point-max) t))
+	    (t
+	     (let ((list (all-completions pattern cl)))
+	       (wl-complete-window-show list)))))))
+
+(defun wl-complete-insert (start end pattern completion-list)
+  (let ((alias (and (consp completion-list)
+		    (assoc pattern completion-list)))
+	comp-buf comp-win)
+    (if alias
+	(progn
+	  (delete-region start end)
+	  (insert (cdr alias))
+	  (if (setq comp-buf (get-buffer wl-completion-buf-name))
+	      (if (setq comp-win (get-buffer-window comp-buf))
+		  (delete-window comp-win)))))))
+
+(defun wl-complete-field-body (completion-list &optional epand-char skip-chars)
+  (interactive)
+  (let* ((end (point))
+	 (start (save-excursion
+;		  (skip-chars-backward "_a-zA-Z0-9+@%.!\\-")
+		  (skip-chars-backward (or skip-chars 
+					   "_a-zA-Z0-9+@%.!\\-/"))
+		  (point)))
+	 (completion)
+	 (pattern (buffer-substring start end))
+	 (len (length pattern))
+	 (cl completion-list))
+    (if (null cl)
+	nil
+      (setq completion (try-completion pattern cl))
+      (cond ((eq completion t)
+	     (wl-complete-insert start end pattern completion-list)
+	     (wl-complete-window-delete)
+	     (message "Sole completion"))
+	    ((and epand-char
+		  (> len 0)
+		  (char-equal (aref pattern (1- len)) epand-char)
+		  (assoc (substring pattern 0 (1- len)) cl))
+	     (wl-complete-insert
+	      start end
+	      (substring pattern 0 (1- len))
+	      cl))
+	    ((null completion)
+	     (message "Can't find completion for \"%s\"" pattern)
+	     (ding))
+	    ((not (string= pattern completion))
+	     (delete-region start end)
+	     (insert completion))
+	    (t
+	     (let ((list (sort (all-completions pattern cl) 'string<)))
+	       (wl-complete-window-show list)))))))
+
+(defvar wl-address-init-func 'wl-local-address-init)
+
+(defun wl-address-init ()
+  (funcall wl-address-init-func))
+
+(defun wl-local-address-init ()
+  (message "Updating addresses...")
+  (setq wl-address-list 
+	(wl-address-make-address-list wl-address-file))
+  (setq wl-address-completion-list 
+	(wl-address-make-completion-list wl-address-list))
+  (if (file-readable-p wl-alias-file)
+      (setq wl-address-completion-list 
+	    (append wl-address-completion-list 
+		    (wl-address-make-alist-from-alias-file wl-alias-file))))
+  (setq wl-address-petname-hash (elmo-make-hash))
+  (mapcar 
+   (function
+	(lambda (x)
+	  (elmo-set-hash-val (downcase (car x))
+						 (cadr x)
+						 wl-address-petname-hash)))
+   wl-address-list)
+  (message "Updating addresses...done."))
+
+
+(defun wl-address-expand-aliases (alist nest-count)
+  (when (< nest-count 5)
+    (let (expn-str new-expn-str expn new-expn(n 0) (expanded nil))
+      (while (setq expn-str (cdr (nth n alist)))
+        (setq new-expn-str nil)
+        (while (string-match "^[ \t]*\\([^,]+\\)" expn-str)
+          (setq expn (elmo-match-string 1 expn-str))
+	  (setq expn-str (wl-string-delete-match expn-str 0))
+          (if (string-match "^[ \t,]+" expn-str)
+	      (setq expn-str (wl-string-delete-match expn-str 0)))
+          (if (string-match "[ \t,]+$" expn)
+	      (setq expn (wl-string-delete-match expn 0)))
+          (setq new-expn (cdr (assoc expn alist)))
+          (if new-expn
+              (setq expanded t))
+          (setq new-expn-str (concat new-expn-str (and new-expn-str ", ")
+                                     (or new-expn expn))))
+        (when new-expn-str
+          (setcdr (nth n alist) new-expn-str))
+        (setq n (1+ n)))
+      (and expanded
+           (wl-address-expand-aliases alist (1+ nest-count))))))
+
+(defun wl-address-make-alist-from-alias-file (file)
+  (elmo-set-work-buf
+    (let ((case-fold-search t)
+	  alias expn alist)
+      (insert-file-contents file)
+      (while (re-search-forward ",$" nil t)
+	(end-of-line)
+	(forward-char 1)
+ 	(delete-backward-char 1))
+      (goto-char (point-min))
+      (while (re-search-forward "^\\([^#;\n][^:]+\\):[ \t]*\\(.*\\)$" nil t)
+	(setq alias (wl-match-buffer 1)
+	      expn (wl-match-buffer 2))
+	(setq alist (cons (cons alias expn) alist)))
+      (wl-address-expand-aliases alist 0)
+      (nreverse alist) ; return value
+      )))
+	
+(defun wl-address-make-address-list (path)
+  (if (and path (file-readable-p path))
+      (elmo-set-work-buf
+	(let (ret
+	      (coding-system-for-read wl-cs-autoconv))
+	  (insert-file-contents path)
+	  (goto-char (point-min))
+	  (while (not (eobp))
+	    (if (looking-at 
+ "^\\([^#\n][^ \t\n]+\\)[ \t]+\"\\(.*\\)\"[ \t]+\"\\(.*\\)\"[ \t]*.*$")
+		(setq ret 
+		      (wl-append-element 
+		       ret
+		       (list (wl-match-buffer 1)
+			     (wl-match-buffer 2)
+			     (wl-match-buffer 3)))))
+	    (forward-line))
+	  ret))))
+
+(defsubst wl-address-get-petname (str)
+  (let ((addr (downcase (wl-address-header-extract-address str))))
+    (or (elmo-get-hash-val addr wl-address-petname-hash)
+	str)))
+
+(defsubst wl-address-make-completion-list (address-list)
+  (mapcar '(lambda (entity)
+	     (cons (nth 0 entity)
+		   (concat (nth 2 entity) " <"(nth 0 entity)">"))) address-list))
+
+(defsubst wl-address-user-mail-address-p (address)
+  "Judge whether ADDRESS is user's or not."
+  (member (downcase (wl-address-header-extract-address address))
+	  (or (mapcar 'downcase wl-user-mail-address-list)
+	      (list (downcase 
+		     (wl-address-header-extract-address
+		      wl-from))))))
+
+(defsubst wl-address-header-extract-address (str)
+  "Extracts a real e-mail address from STR and returns it.
+e.g. \"Mine Sakurai <m-sakura@ccs.mt.nec.co.jp>\"
+  ->  \"m-sakura@ccs.mt.nec.co.jp\".
+e.g. \"m-sakura@ccs.mt.nec.co.jp (Mine Sakurai)\"
+  ->  \"m-sakura@ccs.mt.nec.co.jp\"."
+  (cond ((string-match ".*<\\([^>]*\\)>" str) ; .* to extract last <>
+         (wl-match-string 1 str))
+        ((string-match "\\([^ \t\n]*@[^ \t\n]*\\)" str)
+	 (wl-match-string 1 str))
+        (t str)))
+
+(defsubst wl-address-header-extract-realname (str)
+  "Extracts a real name from STR and returns it.
+e.g. \"Mr. bar <hoge@foo.com>\"
+  ->  \"Mr. bar\"."
+  (cond ((string-match "\\(.*[^ \t]\\)[ \t]*<[^>]*>" str)
+         (wl-match-string 1 str))
+        (t "")))
+
+(defun wl-address-petname-delete (the-email)
+  "Delete petname in wl-address-file."
+  (let* ( (tmp-buf (get-buffer-create " *wl-petname-tmp*"))
+	  (output-coding-system 
+	   (mime-charset-to-coding-system wl-mime-charset)))
+    (set-buffer tmp-buf)
+    (message "Deleting Petname...")
+    (erase-buffer)
+    (insert-file-contents wl-address-file)
+    (delete-matching-lines (concat "^[ \t]*" the-email))
+    (write-region (point-min) (point-max)
+		  wl-address-file nil 'no-msg)
+    (message "Deleting Petname...done")
+    (kill-buffer tmp-buf)))
+
+
+(defun wl-address-petname-add-or-change (the-email 
+					 default-petname 
+					 default-realname 
+					 &optional change-petname)
+  "Add petname to wl-address-file, if not registerd.
+If already registerd, change it."
+  (let (the-realname the-petname)
+
+    ;; setup output "petname"
+    ;; if null petname'd, let default-petname be the petname.
+    (setq the-petname
+	  (read-from-minibuffer (format "Petname: ") default-petname))
+    (if (string= the-petname "")
+	(setq the-petname default-petname))
+
+    ;; setup output "realname"
+    (setq the-realname
+	(read-from-minibuffer (format "Real Name: ") default-realname))
+;;	(if (string= the-realname "")
+;;	    (setq the-realname default-petname))
+
+    ;; writing to ~/.address
+    (let ( (tmp-buf (get-buffer-create " *wl-petname-tmp*"))
+	   (output-coding-system (mime-charset-to-coding-system wl-mime-charset)))
+      (set-buffer tmp-buf)
+      (message "Adding Petname...")
+      (erase-buffer)
+      (if (file-exists-p wl-address-file)
+	  (insert-file-contents wl-address-file))
+      (if (not change-petname)
+	  ;; if only add
+	  (progn
+	    (goto-char (point-max))
+	    (if (and (> (buffer-size) 0)
+		     (not (eq (char-after (1- (point-max))) ?\n)))
+		(insert "\n")))
+	;; if change
+	(if (re-search-forward (concat "^[ \t]*" the-email) nil t)
+	    (delete-region (save-excursion (beginning-of-line)
+					   (point))
+			   (save-excursion (end-of-line)
+					   (+ 1 (point))))))
+      (insert (format "%s\t\"%s\"\t\"%s\"\n"
+		      the-email the-petname the-realname))
+      (write-region (point-min) (point-max)
+		    wl-address-file nil 'no-msg)
+      (message "Adding Petname...done")
+      (kill-buffer tmp-buf))))
+
+(provide 'wl-address)
+
+;;; wl-address.el ends here
diff --git a/wl/wl-demo.el b/wl/wl-demo.el
new file mode 100644
index 0000000..52a3a0d
--- /dev/null
+++ b/wl/wl-demo.el
@@ -0,0 +1,201 @@
+;;; wl-demo.el -- Opening demo on Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-30 15:56:54 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'wl-vars)
+(provide 'wl-demo)
+(if (featurep 'xemacs)
+    (require 'wl-xmas))
+
+(eval-when-compile
+  (defun-maybe device-on-window-system-p ())
+  (defun-maybe glyph-height (a))
+  (defun-maybe glyph-width (a))
+  (defun-maybe make-extent (a b))
+  (defun-maybe make-glyph (a))
+  (defun-maybe set-extent-end-glyph (a b))
+  (defun-maybe startup-center-spaces (a))
+  (defun-maybe window-pixel-height ())
+  (defun-maybe window-pixel-width ())
+  (condition-case nil
+      (require 'bitmap)
+    (error nil))
+  (defun-maybe bitmap-compose (a))
+  (defun-maybe bitmap-decode-xbm (a))
+  (defun-maybe bitmap-read-xbm-file (a))
+  (unless (boundp ':data)
+    (set (make-local-variable ':data) nil))
+  (unless (boundp ':type)
+    (set (make-local-variable ':type) nil))
+  (condition-case nil
+      (require 'image)
+    (error nil))
+  (defun-maybe frame-char-height ())
+  (defun-maybe frame-char-width ())
+  (defun-maybe image-type-available-p (a)))
+
+(static-condition-case nil
+    (progn
+      (insert-image '(image))
+      (defalias 'wl-insert-image 'insert-image))
+  (wrong-number-of-arguments
+   (defun wl-insert-image (image)
+     (insert-image image "x")))
+  (void-function
+   (defun wl-insert-image (image))))
+
+;;
+;; demo ;-)
+;;
+(eval-when-compile
+  (cond ((or (featurep 'xemacs) (featurep 'image))
+	 (defmacro wl-title-logo ()
+	   (let ((file (expand-file-name "wl-logo.xpm" wl-icon-dir)))
+	     (if (file-exists-p file)
+		 (let ((buffer (generate-new-buffer " *wl-logo*"))
+		       (coding-system-for-read 'binary)
+		       buffer-file-format format-alist
+		       insert-file-contents-post-hook
+		       insert-file-contents-pre-hook)
+		   (prog1
+		       (save-excursion
+			 (set-buffer buffer)
+			 (insert-file-contents file)
+			 (buffer-string))
+		     (kill-buffer buffer)))))))
+	((condition-case nil
+	     (require 'bitmap)
+	   (error nil))
+	 (defmacro wl-title-logo ()
+	   (let ((file (expand-file-name "wl-logo.xbm" wl-icon-dir)))
+	     (if (file-exists-p file)
+		 (condition-case nil
+		     (bitmap-decode-xbm (bitmap-read-xbm-file file))
+		   (error (message "Bitmap Logo is not used.")))))))
+	(t
+	 (defmacro wl-title-logo ()))))
+
+(defconst wl-title-logo
+  (cond ((or (and (featurep 'xemacs)
+                  (featurep 'xpm)
+                  (device-on-window-system-p))
+             (and (eval-when-compile (featurep 'image))
+                  (image-type-available-p 'xpm)))
+	 (wl-title-logo))
+	((and window-system
+	      (condition-case nil
+		  (require 'bitmap)
+		(error nil)))
+	 (let ((cmp (wl-title-logo)))
+	   (if cmp
+	       (condition-case nil
+		   (let ((len (length cmp))
+			 (bitmap (bitmap-compose (aref cmp 0)))
+			 (i 1))
+		     (while (< i len)
+		       (setq bitmap (concat bitmap "\n"
+					    (bitmap-compose (aref cmp i)))
+			     i (1+ i)))
+		     bitmap)
+		 (error nil)))))))
+
+(defun wl-demo ()
+  (interactive)
+  (let ((demo-buf (get-buffer-create "*WL Demo*"))
+	logo-ext start)
+    (switch-to-buffer demo-buf)
+    (erase-buffer)
+    (if (and wl-demo-display-logo wl-title-logo)
+	(cond
+         ((featurep 'xemacs)
+          (let ((wl-logo (make-glyph (vector 'xpm :data wl-title-logo))))
+            (insert-char ?\n (max 1 (/ (- (window-height) 6
+                                          (/ (glyph-height wl-logo)
+                                             (/ (window-pixel-height)
+                                                (window-height)))) 2)))
+            (indent-to (startup-center-spaces wl-logo))
+            (insert-char ?\ (max 0 (/ (- (window-width)
+                                         (/ (glyph-width wl-logo)
+                                            (/ (window-pixel-width)
+                                               (window-width)))) 2)))
+            (setq logo-ext (make-extent (point)(point)))
+            (set-extent-end-glyph logo-ext wl-logo)))
+         ((featurep 'image)
+          (let ((wl-logo (list 'image :type 'xpm :data wl-title-logo))
+                pixel-width pixel-height)
+            (with-temp-buffer
+              (insert wl-title-logo)
+              (goto-char (point-min))
+              (skip-syntax-forward "^\"")
+              (when (looking-at "\"[ \t]*\\([0-9]+\\)[ \t]*\\([0-9]+\\)")
+                (setq pixel-width (string-to-int (match-string 1))
+                      pixel-height (string-to-int (match-string 2)))))
+            (insert-char ?\n (max 1 (/ (- (window-height) 6
+                                          (/ pixel-height 
+                                             (frame-char-height))) 2)))
+            (insert-char ?\  (max 0 (/ (- (window-width)
+                                          (/ pixel-width 
+                                             (frame-char-width))) 2)))
+            (wl-insert-image wl-logo)
+            (insert "\n")))
+         (t
+	  (insert wl-title-logo)
+	  (indent-rigidly (point-min) (point-max)
+			  (max 0 (/ (- (window-width) (current-column)) 2)))
+	  (insert "\n")
+	  (goto-char (point-min))
+	  (insert-char ?\n (max 0 (/ (- (window-height)
+					(count-lines (point) (point-max))
+					6) 2)))
+	  (goto-char (point-max))))
+      (insert-char ?\n (max 1 (- (/ (window-height) 3) 2))))
+    (setq start (point))
+    (insert "\n" (if (and wl-demo-display-logo wl-title-logo)
+		     ""
+		   (concat wl-appname "\n")))
+    (let ((fill-column (window-width)))
+      (center-region start (point)))
+    (setq start (point))
+    (put-text-property (point-min) (point) 'face 'wl-highlight-logo-face)
+    (insert (format "\nversion %s - \"%s\"\n\n"
+		    wl-version wl-codename
+		    ))
+    (insert "Copyright (C) 1998-2000 Yuuichi Teranishi <teranisi@gohome.org>")
+    (put-text-property start (point-max) 'face 'wl-highlight-demo-face)
+    (let ((fill-column (window-width)))
+      (center-region start (point)))
+    (goto-char (point-min))
+    (sit-for
+     (if (featurep 'lisp-float-type) (/ (float 5) (float 10)) 1))
+    ;;(if (featurep 'xemacs) (delete-extent logo-ext))
+    demo-buf))
+
+;;; wl-demo.el ends here
diff --git a/wl/wl-dnd.el b/wl/wl-dnd.el
new file mode 100644
index 0000000..5578a7a
--- /dev/null
+++ b/wl/wl-dnd.el
@@ -0,0 +1,103 @@
+;;; wl-dnd.el -- dragdrop support on Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-02-18 19:14:53 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(provide 'wl-dnd)
+
+(static-cond
+ ((featurep 'offix)
+  (defun start-drag (event what &optional typ)
+    (if (numberp typ)
+	(funcall (intern "offix-start-drag") event what typ)
+      (funcall (intern "offix-start-drag") event what))))
+ ((featurep 'cde)
+  (defun start-drag (event what &optional typ)
+    (if (not typ)
+	(funcall (intern "cde-start-drag-internal") event nil 
+		 (list what))
+      (funcall (intern "cde-start-drag-internal") event t what))))
+ (t (defun start-drag (event what &optional typ))))
+
+(defun wl-dnd-start-drag (event)
+  (interactive "@e")
+  (mouse-set-point event)
+  (start-drag event (concat 
+		     wl-summary-buffer-folder-name " "
+		     (int-to-string (wl-summary-message-number)))))
+
+(defun wl-dnd-drop-func (event object text)
+  (interactive "@e")
+  (mouse-set-point event)
+  (beginning-of-line)
+  (when (looking-at "^[ ]*\\([^\\[].+\\):.*\n")
+    (let* ((src-spec (save-match-data
+		       (split-string (nth 2 (car (cdr object)))
+				     " ")))
+	   (src-fld (nth 0 src-spec))
+	   (number  (string-to-int (nth 1 src-spec)))
+	   target)
+      (setq target
+	    (wl-folder-get-folder-name-by-id (get-text-property 
+					      (point)
+					      'wl-folder-entity-id)))
+      (message "%s is dropped at %s." number
+	       (buffer-substring (match-beginning 1)
+				 (match-end 1)))
+      (set-buffer (wl-summary-get-buffer src-fld))
+      (save-match-data
+	(wl-summary-jump-to-msg number))
+      (wl-summary-refile target number)
+      (select-window (get-buffer-window (current-buffer)))
+      ))
+  t)
+
+(defun wl-dnd-default-drop-message (event object)
+  (message "Dropping here is meaningless.")
+  t)
+
+(defun wl-dnd-set-drop-target (beg end)
+  (let (ext substr)
+    (setq ext (make-extent beg end))
+    (set-extent-property 
+     ext
+     'experimental-dragdrop-drop-functions
+     '((wl-dnd-drop-func t t (buffer-substring beg end))))))
+;    (set-extent-property ext 'mouse-face 'highlight)))
+
+(defun wl-dnd-set-drag-starter (beg end)
+  (let (ext kmap)
+    (setq ext (make-extent beg end))
+;    (set-extent-property ext 'mouse-face 'isearch)
+    (setq kmap (make-keymap))
+    (define-key kmap [button1] 'wl-dnd-start-drag)
+    (set-extent-property ext 'keymap kmap)))
+					     
+;;; wl-dnd.el ends here
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
new file mode 100644
index 0000000..b85bfc7
--- /dev/null
+++ b/wl/wl-draft.el
@@ -0,0 +1,1854 @@
+;;; wl-draft.el -- Message draft mode for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-22 19:12:26 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'sendmail)
+(require 'wl-template)
+(require 'emu)
+(if (module-installed-p 'timezone)
+    (require 'timezone))
+(require 'std11)
+(require 'wl-vars)
+
+(eval-when-compile
+  (require 'smtp)
+  (require 'elmo-pop3)
+  (mapcar
+   (function
+    (lambda (symbol)
+      (unless (boundp symbol)
+	(set (make-local-variable symbol) nil))))
+   '(x-face-add-x-face-version-header 
+     mail-reply-buffer
+     mail-from-style
+     smtp-authenticate-type
+     smtp-authenticate-user
+     smtp-authenticate-passphrase
+     smtp-connection-type
+     ))
+  (defun-maybe x-face-insert (a))
+  (defun-maybe x-face-insert-version-header ())
+  (defun-maybe wl-init (&optional a))
+  (defun-maybe wl-draft-mode ()))
+
+(defvar wl-draft-buf-name "Draft")
+(defvar wl-caesar-region-func nil)
+(defvar wl-draft-cite-func 'wl-default-draft-cite)
+(defvar wl-draft-buffer-file-name nil)
+(defvar wl-draft-field-completion-list nil)
+(defvar wl-draft-verbose-send t)
+(defvar wl-draft-verbose-msg nil)
+(defvar wl-draft-queue-flushing nil)
+(defvar wl-draft-config-variables nil)
+(defvar wl-draft-config-exec-flag t)
+(defvar wl-draft-buffer-cur-summary-buffer nil)
+(defvar wl-draft-clone-local-variable-regexp "^\\(wl\\|mime\\)")
+(defvar wl-draft-sendlog-filename "sendlog")
+(defvar wl-draft-queue-save-filename "qinfo")
+(defvar wl-draft-config-save-filename "config")
+(defvar wl-draft-queue-flush-send-func 'wl-draft-dispatch-message)
+(defvar wl-sent-message-via nil)
+(defvar wl-sent-message-modified nil)
+(defvar wl-draft-fcc-list nil)
+(defvar wl-draft-reedit nil)
+(defvar wl-draft-reply-buffer nil)
+(defvar wl-draft-forward nil)
+
+(defvar wl-draft-config-sub-func-alist
+  '((body        . wl-draft-config-sub-body)
+    (top         . wl-draft-config-sub-top)
+    (bottom      . wl-draft-config-sub-bottom)
+    (header      . wl-draft-config-sub-header)
+    (body-file   . wl-draft-config-sub-body-file)
+    (top-file    . wl-draft-config-sub-top-file)
+    (bottom-file . wl-draft-config-sub-bottom-file)
+    (header-file . wl-draft-config-sub-header-file)
+    (template    . wl-draft-config-sub-template)
+    (x-face      . wl-draft-config-sub-x-face)))
+
+(make-variable-buffer-local 'wl-draft-buffer-file-name)
+(make-variable-buffer-local 'wl-draft-buffer-cur-summary-buffer)
+(make-variable-buffer-local 'wl-draft-config-variables)
+(make-variable-buffer-local 'wl-draft-config-exec-flag)
+(make-variable-buffer-local 'wl-sent-message-via)
+(make-variable-buffer-local 'wl-draft-fcc-list)
+(make-variable-buffer-local 'wl-draft-reply-buffer)
+
+;;; SMTP binding by Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+(defvar wl-smtp-features
+  '(((smtp-authenticate-type
+      (if wl-smtp-authenticate-type
+	  (intern (downcase (format "%s" wl-smtp-authenticate-type)))))
+     ((smtp-authenticate-user wl-smtp-posting-user)
+      ((smtp-authenticate-passphrase
+	(elmo-get-passwd
+	 (format "%s@%s" 
+		 smtp-authenticate-user
+		 smtp-server))))))
+    (smtp-connection-type))
+  "Additional SMTP features.")
+
+(eval-when-compile
+  (defun wl-smtp-parse-extension (exts parents)
+    (let (bindings binding feature)
+      (dolist (ext exts)
+	(setq feature (if (listp (car ext)) (caar ext) (car ext))
+	      binding 
+	      (` ((, feature)
+		  (or (, (if (listp (car ext))
+			     (cadar ext)
+			   (let ((wl-feature
+				  (intern
+				   (concat "wl-" (symbol-name feature))))) 
+			     (if (boundp wl-feature) 
+				 wl-feature))))
+		      (and (boundp '(, feature)) (, feature))))))
+	(when parents 
+	  (setcdr binding (list (append '(and) parents (cdr binding)))))
+	(setq bindings 
+	      (nconc bindings (list binding)
+		     (wl-smtp-parse-extension 
+		      (cdr ext) (cons feature parents)))))
+      bindings)))
+
+(defmacro wl-smtp-extension-bind (&rest body)
+  "Return a `let' form that binds all variables of SMTP extension.
+After this is done, BODY will be executed in the scope
+of the `let' form.
+
+The variables bound and their default values are described by
+the `wl-smtp-features' variable."
+  (` (let* (, (wl-smtp-parse-extension wl-smtp-features nil))
+       (,@ body))))
+
+(defun wl-draft-insert-date-field ()
+  (insert "Date: " (wl-make-date-string) "\n"))
+
+(defun wl-draft-insert-from-field ()
+  ;; Put the "From:" field in unless for some odd reason
+  ;; they put one in themselves.
+  (let* ((login (or user-mail-address (user-login-name)))
+	 (fullname (user-full-name)))
+    (cond ((eq mail-from-style 'angles)
+	   (insert "From: " fullname)
+	   (let ((fullname-start (+ (point-min) 6))
+		 (fullname-end (point-marker)))
+	     (goto-char fullname-start)
+	     ;; Look for a character that cannot appear unquoted
+	     ;; according to RFC 822.
+	     (if (re-search-forward "[^- !#-'*+/-9=?A-Z^-~]"
+				    fullname-end 1)
+		 (progn
+		   ;; Quote fullname, escaping specials.
+		   (goto-char fullname-start)
+		   (insert "\"")
+		   (while (re-search-forward "[\"\\]"
+					     fullname-end 1)
+		     (replace-match "\\\\\\&" t))
+		   (insert "\""))))
+	   (insert " <" login ">\n"))
+	  ((eq mail-from-style 'parens)
+	   (insert "From: " login " (")
+	   (let ((fullname-start (point)))
+	     (insert fullname)
+	     (let ((fullname-end (point-marker)))
+	       (goto-char fullname-start)
+	       ;; RFC 822 says \ and nonmatching parentheses
+	       ;; must be escaped in comments.
+	       ;; Escape every instance of ()\ ...
+	       (while (re-search-forward "[()\\]" fullname-end 1)
+		 (replace-match "\\\\\\&" t))
+	       ;; ... then undo escaping of matching parentheses,
+	       ;; including matching nested parentheses.
+	       (goto-char fullname-start)
+	       (while (re-search-forward 
+		       "\\(\\=\\|[^\\]\\(\\\\\\\\\\)*\\)\\\\(\\(\\([^\\]\\|\\\\\\\\\\)*\\)\\\\)"
+		       fullname-end 1)
+		 (replace-match "\\1(\\3)" t)
+		 (goto-char fullname-start))))
+	   (insert ")\n"))
+	  ((null mail-from-style)
+	   (insert "From: " login "\n")))))
+
+(defun wl-draft-insert-x-face-field ()
+  "Insert x-face header."
+  (interactive)
+  (if (not (file-exists-p wl-x-face-file))
+      (error "File %s does not exist" wl-x-face-file)
+    (beginning-of-buffer)
+    (search-forward mail-header-separator nil t)
+    (beginning-of-line)
+    (wl-draft-insert-x-face-field-here)
+    (run-hooks 'wl-draft-insert-x-face-field-hook) ; highlight it if you want.
+    ))
+
+(defun wl-draft-insert-x-face-field-here ()
+  "insert x-face field at point."
+  (let ((x-face-string (elmo-get-file-string wl-x-face-file)))
+    (if (string-match "^[ \t]*" x-face-string)
+	(setq x-face-string (substring x-face-string (match-end 0))))
+    (insert "X-Face: " x-face-string))
+  (if (not (= (preceding-char) ?\n))
+      (insert ?\n))
+  (and (fboundp 'x-face-insert-version-header) ; x-face.el...
+       (boundp 'x-face-add-x-face-version-header)
+       x-face-add-x-face-version-header
+       (x-face-insert-version-header)))
+
+(defun wl-draft-setup ()
+  (let ((field wl-draft-fields)
+	ret-val)
+    (while field
+      (setq ret-val (append ret-val
+			    (list (cons (concat (car field) " ")
+					(concat (car field) " ")))))
+      (setq field (cdr field)))
+    (setq wl-draft-field-completion-list ret-val)))
+
+(defun wl-draft-make-mail-followup-to (recipients)
+  (if (elmo-list-member 
+       (or wl-user-mail-address-list
+	   (list (wl-address-header-extract-address wl-from)))
+       recipients)
+      (let ((rlist (elmo-list-delete 
+		    (or wl-user-mail-address-list
+			(list (wl-address-header-extract-address wl-from)))
+		    (copy-sequence recipients))))
+	(if (elmo-list-member rlist (mapcar 'downcase 
+					    wl-subscribed-mailing-list))
+	    rlist
+	  (append rlist (list (wl-address-header-extract-address 
+			       wl-from)))))
+    recipients))
+
+(defun wl-draft-delete-myself-from-cc (to cc)
+  (let ((myself (or wl-user-mail-address-list
+		    (list (wl-address-header-extract-address wl-from)))))
+    (if wl-draft-always-delete-myself
+	(elmo-list-delete myself cc)
+      (if (elmo-list-member myself cc)
+	  (if (elmo-list-member (append to cc) 
+				(mapcar 'downcase wl-subscribed-mailing-list))
+	      ;; member list is contained in recipients.
+	      (elmo-list-delete myself cc)
+	    cc
+	    )
+	cc))))
+
+(defun wl-draft-forward (original-subject summary-buf)
+  (wl-draft "" (concat "Forward: " original-subject) 
+	    nil nil nil nil nil nil nil nil summary-buf)
+  (goto-char (point-max))
+  (wl-draft-insert-message)
+  (mail-position-on-field "To"))
+
+(defun wl-draft-reply (buf no-arg summary-buf)
+;  (save-excursion 
+  (let ((r-list (if no-arg wl-draft-reply-without-argument-list
+		  wl-draft-reply-with-argument-list))
+	to mail-followup-to cc subject in-reply-to references newsgroups
+	from)
+    (set-buffer buf)
+    (if (wl-address-user-mail-address-p 
+	 (setq from
+	       (wl-address-header-extract-address (std11-field-body "From"))))
+	(setq to (mapconcat 'identity (elmo-multiple-field-body "To") ",")
+	      cc (mapconcat 'identity (elmo-multiple-field-body "Cc") ",")
+	      newsgroups (or (std11-field-body "Newsgroups") ""))
+      (catch 'done
+	(while r-list
+	  (when (let ((condition (car (car r-list))))
+		  (cond ((stringp condition)
+			 (std11-field-body condition))
+			((listp condition)
+			 (catch 'done
+			   (while condition
+			     (if (not (std11-field-body (car condition)))
+				 (throw 'done nil))
+			     (setq condition (cdr condition)))
+			   t))
+			((symbolp condition)
+			 (funcall condition))))
+	    (let ((r-to-list (nth 0 (cdr (car r-list))))
+		  (r-cc-list (nth 1 (cdr (car r-list))))
+		  (r-ng-list (nth 2 (cdr (car r-list)))))
+	      (when (and (member "Followup-To" r-ng-list)
+			 (string= (std11-field-body "Followup-To") "poster"))
+		(setq r-to-list (cons "From" r-to-list))
+		(setq r-ng-list (delete "Followup-To" (copy-sequence r-ng-list))))
+	      (setq to (wl-concat-list (cons to
+					     (elmo-multiple-fields-body-list
+					      r-to-list))
+				       ","))
+	      (setq cc (wl-concat-list (cons cc
+					     (elmo-multiple-fields-body-list
+					      r-cc-list))
+				       ","))
+	      (setq newsgroups (wl-concat-list (cons newsgroups 
+						     (std11-field-bodies 
+						      r-ng-list))
+					       ",")))
+	    (throw 'done nil))
+	  (setq r-list (cdr r-list)))
+	(error "No match field: check your `wl-draft-reply-without-argument-list'")))
+    (setq subject (std11-field-body "Subject"))
+    (with-temp-buffer ; to keep raw buffer unibyte.
+      (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+      (setq subject (or (and subject
+			     (eword-decode-string
+			      (decode-mime-charset-string
+			       subject
+			       wl-mime-charset))))))
+    (and subject wl-reply-subject-prefix
+	 (let ((case-fold-search t))
+	   (not
+	    (equal
+	     (string-match (regexp-quote wl-reply-subject-prefix)
+			   subject)
+	     0)))
+	 (setq subject (concat wl-reply-subject-prefix subject)))
+    (and (setq in-reply-to (std11-field-body "Message-Id"))
+	 (setq in-reply-to
+	       (format "In your message of \"%s\"\n\t%s"
+		       (or (std11-field-body "Date") "some time ago")
+		       in-reply-to)))
+    (setq references (nconc
+		      (std11-field-bodies '("References" "In-Reply-To"))
+		      (list in-reply-to)))
+    (setq to (wl-parse-addresses to)
+	  cc (wl-parse-addresses cc))
+    (setq to (mapcar '(lambda (addr)
+			(wl-address-header-extract-address
+			 addr)) to))
+    (setq cc (mapcar '(lambda (addr)
+			(wl-address-header-extract-address
+			 addr)) cc))
+    ;; if subscribed mailing list is contained in cc or to
+    ;; and myself is contained in cc,
+    ;; delete myself from cc.
+    (setq cc (wl-draft-delete-myself-from-cc to cc))
+    (if wl-insert-mail-followup-to
+	(progn
+	  (setq mail-followup-to 
+		(wl-draft-make-mail-followup-to (append to cc)))
+	  (setq mail-followup-to (wl-delete-duplicates mail-followup-to 
+						       nil t))))
+    (setq newsgroups (wl-parse newsgroups 
+			       "[ \t\f\r\n,]*\\([^ \t\f\r\n,]+\\)")
+	  newsgroups (wl-delete-duplicates newsgroups)
+	  newsgroups (if newsgroups (mapconcat 'identity newsgroups ",")))
+    (setq to (wl-delete-duplicates to nil t))
+    (setq cc (wl-delete-duplicates 
+	      (append (wl-delete-duplicates cc nil t)
+		      to (copy-sequence to))
+	      t t))
+    (and to (setq to (mapconcat 'identity to ",\n\t")))
+    (and cc (setq cc (mapconcat 'identity cc ",\n\t")))
+    (and mail-followup-to (setq mail-followup-to 
+				(mapconcat 'identity 
+					   mail-followup-to ",\n\t")))
+    (and (null to) (setq to cc cc nil))
+    (setq references (delq nil references)
+	  references (mapconcat 'identity references " ")
+	  references (wl-parse references "[^<]*\\(<[^>]+>\\)")
+	  references (wl-delete-duplicates references)
+	  references (if references 
+			 (mapconcat 'identity references "\n\t")))
+    (wl-draft
+     to subject in-reply-to cc references newsgroups mail-followup-to
+     nil nil nil summary-buf)
+    (setq wl-draft-reply-buffer buf))
+  (run-hooks 'wl-reply-hook))
+
+(defun wl-draft-yank-from-mail-reply-buffer (decode-it)
+  (interactive)
+  (save-restriction
+    (current-buffer)
+    (narrow-to-region (point)(point))
+    (insert 
+     (save-excursion
+       (set-buffer mail-reply-buffer)
+       (if decode-it
+	   (decode-mime-charset-region (point-min) (point-max)
+				       wl-mime-charset))       
+       (buffer-substring-no-properties 
+	(point-min) (point-max))))
+    (goto-char (point-max))
+    (push-mark)
+    (goto-char (point-min)))
+  (let ((beg (point)))
+    (cond (mail-citation-hook (run-hooks 'mail-citation-hook))
+	  (mail-yank-hooks (run-hooks 'mail-yank-hooks))
+	  (t (and wl-draft-cite-func
+		  (funcall wl-draft-cite-func)))) ; default cite
+    (run-hooks 'wl-draft-cited-hook)
+    (if wl-highlight-body-too
+	(wl-highlight-body-region beg (point-max)))))
+
+(defun wl-draft-confirm ()
+  (interactive)
+  (y-or-n-p (format "Send current draft as %s? "
+		    (if (wl-message-mail-p)
+			(if (wl-message-news-p) "Mail and News" "Mail")
+		      "News"))))
+
+(defun wl-message-news-p ()
+  (std11-field-body "Newsgroups"))
+
+(defun wl-message-field-exists-p (field)
+  (let ((value (std11-field-body field)))
+    (and value
+	 (not (string= value "")))))
+
+(defun wl-message-mail-p ()
+  (or (wl-message-field-exists-p "To")
+      (wl-message-field-exists-p "Cc")
+      (wl-message-field-exists-p "Bcc")
+      ;;(wl-message-field-exists-p "Fcc")		; This may be needed..
+      ))
+
+(defun wl-draft-open-file (&optional file)
+  (interactive)				; "*fFile to edit: ")
+  (wl-draft-edit-string (elmo-get-file-string 
+			 (or file
+			     (read-file-name "File to edit: " 
+					     (or wl-tmp-dir "~/"))))))
+
+(defun wl-draft-edit-string (string)
+  (let ((cur-buf (current-buffer))
+	(tmp-buf (get-buffer-create " *wl-draft-edit-string*"))
+	to subject in-reply-to cc references newsgroups mail-followup-to
+	content-type 
+	body-beg buffer-read-only
+	)
+    (set-buffer tmp-buf)
+    (erase-buffer)
+    (insert string)
+    (setq to (std11-field-body "To"))
+    (setq to (and to
+		  (eword-decode-string
+		   (decode-mime-charset-string
+		    to
+		    wl-mime-charset))))
+    (setq subject (std11-field-body "Subject"))
+    (setq subject (and subject
+		       (eword-decode-string
+			(decode-mime-charset-string
+			 subject
+			 wl-mime-charset))))
+    (setq in-reply-to (std11-field-body "In-Reply-To"))
+    (setq cc (std11-field-body "Cc"))
+    (setq cc (and cc
+		  (eword-decode-string
+		   (decode-mime-charset-string
+		    cc
+		    wl-mime-charset))))
+    (setq references (std11-field-body "References"))
+    (setq newsgroups (std11-field-body "Newsgroups"))
+    (setq mail-followup-to (std11-field-body "Mail-Followup-To"))
+    (setq content-type  (std11-field-body "Content-Type"))
+    (goto-char (point-min))
+    (or (re-search-forward "\n\n" nil t)
+	(search-forward (concat mail-header-separator "\n") nil t))
+    (unwind-protect
+	(set-buffer
+	 (wl-draft to subject in-reply-to cc references newsgroups 
+		   mail-followup-to
+		   content-type
+		   (buffer-substring (point) (point-max))
+		   'edit-again
+		   ))
+      (and to (mail-position-on-field "To"))
+      (delete-other-windows)
+      (kill-buffer tmp-buf)))
+  (setq buffer-read-only nil) ;;??
+  (run-hooks 'wl-mail-setup-hook))
+
+(defun wl-draft-insert-current-message (dummy)
+  (interactive)
+  (let ((mail-reply-buffer (wl-message-get-original-buffer))
+	mail-citation-hook mail-yank-hooks
+	wl-draft-cite-func)
+    (if (eq 0
+	    (save-excursion
+	      (set-buffer mail-reply-buffer)
+	      (buffer-size)))
+	(error "No current message")
+      (wl-draft-yank-from-mail-reply-buffer nil))))
+
+(defun wl-draft-insert-get-message (dummy)
+  (let ((fld (completing-read 
+	      "Folder name: " 
+	      (if (memq 'read-folder wl-use-folder-petname)
+		  (wl-folder-get-entity-with-petname)
+		wl-folder-entity-hashtb)
+	      nil nil wl-default-spec
+	      'wl-read-folder-hist))
+	(number (call-interactively 
+		 (function (lambda (num)
+			     (interactive "nNumber: ")
+			     num))))
+	(mail-reply-buffer (get-buffer-create "*wl-draft-insert-get-message*"))
+	mail-citation-hook mail-yank-hooks
+	wl-draft-cite-func)
+    (unwind-protect
+	(progn
+	  (save-excursion
+	    (elmo-read-msg-with-cache fld number mail-reply-buffer nil))
+	  (wl-draft-yank-from-mail-reply-buffer nil))
+      (kill-buffer mail-reply-buffer))))
+
+;;
+;; default body citation func
+;;
+(defun wl-default-draft-cite ()
+  (let ((mail-yank-ignored-headers "[^:]+:")
+	(mail-yank-prefix "> ")
+	(summary-buf wl-current-summary-buffer)
+	(message-buf (get-buffer (wl-current-message-buffer)))
+	from date cite-title num entity)
+    (if (and summary-buf
+	     (buffer-live-p summary-buf)
+	     message-buf
+	     (buffer-live-p message-buf))
+	(progn
+	  (save-excursion 
+	    (set-buffer summary-buf)
+	    (setq num 
+		  (save-excursion
+		    (set-buffer message-buf)
+		    wl-message-buffer-cur-number))
+	    (setq entity (assoc (cdr (assq num 
+					   (elmo-msgdb-get-number-alist 
+					    wl-summary-buffer-msgdb)))
+				(elmo-msgdb-get-overview 
+				 wl-summary-buffer-msgdb)))
+	    (setq from (elmo-msgdb-overview-entity-get-from entity))
+	    (setq date (elmo-msgdb-overview-entity-get-date entity)))
+	  (setq cite-title (format "At %s,\n%s wrote:" 
+				   (or date "some time ago")
+				   (wl-summary-from-func-internal
+				    (or from "you"))))))
+    (and cite-title 
+	 (insert cite-title "\n"))
+    (mail-indent-citation)))
+
+(defvar wl-draft-buffer nil "Draft buffer to yank content")
+(defun wl-draft-yank-to-draft-buffer (buffer)
+  "Yank BUFFER content to `wl-draft-buffer'."
+  (set-buffer wl-draft-buffer)
+  (let ((mail-reply-buffer buffer))
+    (wl-draft-yank-from-mail-reply-buffer nil)
+    (kill-buffer buffer)))
+
+(defun wl-draft-yank-original (&optional arg)
+  "Yank original message."
+  (interactive "P")
+  (if arg
+      (let (buf mail-reply-buffer)
+	(elmo-set-work-buf
+	 (yank)
+	 (setq buf (current-buffer)))
+	(setq mail-reply-buffer buf)
+	(wl-draft-yank-from-mail-reply-buffer nil))
+    (wl-draft-yank-current-message-entity)))
+
+(defun wl-draft-hide (editing-buffer)
+  "Hide the editing draft buffer if possible."
+  (interactive)
+  (when (and editing-buffer
+	     (buffer-live-p editing-buffer))
+    (set-buffer editing-buffer)
+    (let ((sum-buf wl-draft-buffer-cur-summary-buffer)
+	  fld-buf sum-win fld-win)
+      (if (and wl-draft-use-frame
+	       (> (length (visible-frame-list)) 1))
+	  ;; hide draft frame
+	  (delete-frame)
+	;; hide draft window
+	(or (one-window-p)
+	    (delete-window)))
+      ;; stay folder window if required
+      (when wl-stay-folder-window
+	(if (setq fld-buf (get-buffer wl-folder-buffer-name))
+	    (if (setq fld-win (get-buffer-window fld-buf))
+		(select-window fld-win)
+	      (if wl-draft-resume-folder-window ;; resume folder window
+		  (switch-to-buffer fld-buf)))))
+      (if (buffer-live-p sum-buf)
+	  (if (setq sum-win (get-buffer-window sum-buf t))
+	      ;; if Summary is on the frame, select it.
+	      (select-window sum-win)
+	    ;; if summary is not on the frame, switch to it.
+	    (if (and wl-stay-folder-window 
+		     (or wl-draft-resume-folder-window fld-win))
+		(wl-folder-select-buffer sum-buf)
+	      (switch-to-buffer sum-buf)))))))
+
+(defun wl-draft-delete (editing-buffer)
+  "kill the editing draft buffer and delete the file corresponds to it."
+  (save-excursion
+    (when editing-buffer
+      (set-buffer editing-buffer)
+      (if wl-draft-buffer-file-name
+	  (progn
+	    (if (file-exists-p wl-draft-buffer-file-name)
+		(delete-file wl-draft-buffer-file-name))
+	    (let ((msg (and wl-draft-buffer-file-name
+			    (string-match "[0-9]+$" wl-draft-buffer-file-name)
+			    (string-to-int 
+			     (elmo-match-string 0 wl-draft-buffer-file-name)))))
+	      (wl-draft-config-info-operation msg 'delete))))
+      (set-buffer-modified-p nil)		; force kill
+      (kill-buffer editing-buffer))))
+
+(defun wl-draft-kill (&optional force-kill)
+  "Kill current draft buffer and quit editing."
+  (interactive "P")
+  (save-excursion
+    (when (and (or (eq major-mode 'wl-draft-mode)
+		   (eq major-mode 'mail-mode))
+	       (or force-kill
+		   (y-or-n-p "Kill Current Draft?")))
+      (let ((cur-buf (current-buffer)))
+	(wl-draft-hide cur-buf)
+	(wl-draft-delete cur-buf)))
+    (message "")))
+
+(defun wl-draft-fcc ()
+  "Add a new FCC field, with file name completion."
+  (interactive)
+  (or (mail-position-on-field "fcc" t)  ;Put new field after exiting FCC.
+      (mail-position-on-field "to"))
+  (insert "\nFCC: "))
+
+;; function for wl-sent-message-via
+
+(defmacro wl-draft-sent-message-p (type)
+  (` (eq (nth 1 (assq (, type) wl-sent-message-via)) 'sent)))
+
+(defmacro wl-draft-set-sent-message (type result &optional server-port)
+  (` (let ((element (assq (, type) wl-sent-message-via)))
+       (if element
+	   (unless (eq (nth 1 element) (, result))
+	     (setcdr element (list (, result) (, server-port)))
+	     (setq wl-sent-message-modified t))
+	 (push (list (, type) (, result) (, server-port)) wl-sent-message-via)
+	 (setq wl-sent-message-modified t)))))
+
+(defun wl-draft-sent-message-results ()
+  (let ((results wl-sent-message-via)
+	unplugged-via sent-via)
+    (while results
+      (cond ((eq (nth 1 (car results)) 'unplugged)
+	     (push (caar results) unplugged-via))
+	    ((eq (nth 1 (car results)) 'sent)
+	     (push (caar results) sent-via)))
+      (setq results (cdr results)))
+    (list unplugged-via sent-via)))
+
+(defun wl-draft-write-sendlog (status proto server to id)
+  "Write send log file, if `wl-draft-sendlog' is non-nil."
+  (when wl-draft-sendlog
+    (save-excursion
+      (let* ((tmp-buf (get-buffer-create " *wl-draft-sendlog*"))
+	     (filename (expand-file-name wl-draft-sendlog-filename
+					 elmo-msgdb-dir))
+	     (filesize (nth 7 (file-attributes filename)))
+	     (server (if server (concat " server=" server) ""))
+	     (to (if to (cond
+			 ((memq proto '(fcc queue))
+			  (format " folder=\"%s\"" to))
+			 ((eq proto 'nntp)
+			  (format " ng=<%s>" to))
+			 (t
+			  (concat " to="
+				  (mapconcat
+				   'identity
+				   (mapcar '(lambda(x) (format "<%s>" x)) to)
+				   ","))))
+		   ""))
+	     (id (if id (concat " id=" id) ""))
+	     (time (wl-sendlog-time)))
+	(set-buffer tmp-buf)
+	(erase-buffer)
+	(insert (format "%s proto=%s stat=%s%s%s%s\n"
+			time proto status server to id))
+	(if (and wl-draft-sendlog-max-size filesize
+		 (> filesize wl-draft-sendlog-max-size))
+	    (rename-file filename (concat filename ".old") t))
+	(if (file-writable-p filename)
+	    (write-region (point-min) (point-max) 
+			  filename t 'no-msg)
+	  (message (format "%s is not writable." filename)))
+	(kill-buffer tmp-buf)))))
+
+(defun wl-draft-get-header-delimiter (&optional delete)
+  ;; If DELETE is non-nil, replace the header delimiter with a blank line
+  (let (delimline)
+    (goto-char (point-min))
+    (when (re-search-forward
+	   (concat "^" (regexp-quote mail-header-separator) "$\\|^$") nil t)
+      (replace-match "")
+      (if delete
+	  (forward-char -1))
+      (setq delimline (point-marker)))
+    delimline))
+
+(defun wl-draft-send-mail-with-qmail ()
+  "Pass the prepared message buffer to qmail-inject.
+Refer to the documentation for the variable `send-mail-function'
+to find out how to use this."
+  (if (and wl-draft-qmail-send-plugged
+	   (not (elmo-plugged-p)))
+      (wl-draft-set-sent-message 'mail 'unplugged)
+    ;; send the message
+    (let ((id (std11-field-body "Message-ID"))
+	  (to (std11-field-body "To")))
+      (case
+	  (as-binary-process
+	   (apply
+	    'call-process-region 1 (point-max) wl-qmail-inject-program
+	    nil nil nil
+	    wl-qmail-inject-args))
+	;; qmail-inject doesn't say anything on it's stdout/stderr,
+	;; we have to look at the retval instead
+	(0   (progn
+	       (wl-draft-set-sent-message 'mail 'sent)
+	       (wl-draft-write-sendlog 'ok 'qmail nil (list to) id)))
+	(1   (error "qmail-inject reported permanent failure"))
+	(111 (error "qmail-inject reported transient failure"))
+	;; should never happen
+	(t   (error "qmail-inject reported unknown failure"))))))
+
+;;
+;; from Semi-gnus
+;;
+(defun wl-draft-send-mail-with-smtp ()
+  "Send the prepared message buffer with SMTP."
+  (require 'smtp)
+  (let* ((errbuf (if mail-interactive
+		     (generate-new-buffer " smtp errors")
+		   0))
+	 (case-fold-search t)
+	 (default-case-fold-search t)
+	 (sender (or wl-envelope-from
+		     (wl-address-header-extract-address wl-from)))
+	 (delimline (save-excursion
+		      (goto-char (point-min))
+		      (re-search-forward
+		       (concat "^" (regexp-quote mail-header-separator)
+			       "$\\|^$") nil t)
+		      (point-marker)))
+	 (recipients (smtp-deduce-address-list (current-buffer)
+					       (point-min) delimline))
+	 (smtp-server (or wl-smtp-posting-server
+			  (if (functionp smtp-server)
+			      (funcall smtp-server sender
+				       recipients)
+			    (or smtp-server "localhost"))))
+	 (smtp-service (or wl-smtp-posting-port smtp-service))
+	 (smtp-local-domain (or smtp-local-domain wl-local-domain))
+	 (id (std11-field-body "message-id")))
+    (if (not (elmo-plugged-p smtp-server smtp-service))
+	(wl-draft-set-sent-message 'mail 'unplugged
+				   (cons smtp-server smtp-service))
+      (unwind-protect
+	  (save-excursion
+	    ;; Insert an extra newline if we need it to work around
+	    ;; Sun's bug that swallows newlines.
+	    (goto-char (1+ delimline))
+	    (if (eval mail-mailer-swallows-blank-line)
+		(newline))
+	    ;;(run-hooks 'wl-mail-send-pre-hook)
+	    (if mail-interactive
+		(save-excursion
+		  (set-buffer errbuf)
+		  (erase-buffer)))
+	    (wl-draft-delete-field "bcc" delimline)
+	    (wl-draft-delete-field "resent-bcc" delimline)
+	    (let (process-connection-type)
+	      (as-binary-process
+	       (when recipients
+		 (wl-smtp-extension-bind
+		  (let ((err (smtp-via-smtp sender recipients 
+					    (current-buffer))))
+		    (when (not (eq err t))
+		      (wl-draft-write-sendlog 'failed 'smtp smtp-server
+					      recipients id)
+		      (error "Sending failed; SMTP protocol error:%s" err))))
+		 (wl-draft-set-sent-message 'mail 'sent)
+		 (wl-draft-write-sendlog 
+		  'ok 'smtp smtp-server recipients id)))))
+	(if (bufferp errbuf)
+	    (kill-buffer errbuf))))))
+
+(defun wl-draft-send-mail-with-pop-before-smtp ()
+  "Send the prepared message buffer with POP-before-SMTP."
+  (require 'elmo-pop3)
+  (condition-case ()
+      (elmo-pop3-get-connection 
+       (list 'pop3
+	     (or wl-pop-before-smtp-user
+		 elmo-default-pop3-user)
+	     (or wl-pop-before-smtp-authenticate-type
+		 elmo-default-pop3-authenticate-type)
+	     (or wl-pop-before-smtp-server
+		 elmo-default-pop3-server)
+	     (or wl-pop-before-smtp-port
+		 elmo-default-pop3-port)
+	     (or wl-pop-before-smtp-ssl
+		 elmo-default-pop3-ssl)))
+    (error))
+  (wl-draft-send-mail-with-smtp))
+
+(defun wl-draft-insert-required-fields (&optional force-msgid)
+  ;; Insert Message-Id field...
+  (goto-char (point-min))
+  (when (and (or force-msgid
+		 wl-insert-message-id)
+	     (not (re-search-forward "^Message-ID[ \t]*:" nil t)))
+    (insert (concat "Message-ID: "
+		    (wl-draft-make-message-id-string)
+		    "\n")))
+  ;; Insert date field.
+  (goto-char (point-min))
+  (or (re-search-forward "^Date[ \t]*:" nil t)
+      (wl-draft-insert-date-field))
+  ;; Insert from field.
+  (goto-char (point-min))
+  (or (re-search-forward "^From[ \t]*:" nil t)
+      (wl-draft-insert-from-field)))
+
+(defun wl-draft-normal-send-func (editing-buffer kill-when-done)
+  "Send the message in the current buffer. "
+  (save-restriction
+    (std11-narrow-to-header mail-header-separator)
+    (wl-draft-insert-required-fields)
+    ;; Delete null fields.
+    (goto-char (point-min))
+    (while (re-search-forward "^[^ \t\n:]+:[ \t]*\n" nil t)
+      (replace-match ""))
+    ;; ignore any blank lines in the header
+    (while (re-search-forward "\n\n\n*" nil t)
+      (replace-match "\n")))
+  (run-hooks 'wl-mail-send-pre-hook) ;; X-PGP-Sig, Cancel-Lock
+  (wl-draft-dispatch-message)
+  (when kill-when-done
+    ;; hide editing-buffer.
+    (wl-draft-hide editing-buffer)
+    ;; delete editing-buffer and its file.
+    (wl-draft-delete editing-buffer)))
+
+(defun wl-draft-dispatch-message (&optional mes-string)
+  "Send the message in the current buffer. Not modified the header fields."
+  (let (delimline)
+    (if (and wl-draft-verbose-send mes-string)
+	(message mes-string))
+    ;; get fcc folders.
+    (setq delimline (wl-draft-get-header-delimiter t))
+    (unless wl-draft-fcc-list
+      (setq wl-draft-fcc-list (wl-draft-get-fcc-list delimline)))
+    ;;
+    (setq wl-sent-message-modified nil)
+    (unwind-protect
+	(progn
+	  (if (and (wl-message-mail-p)
+		   (not (wl-draft-sent-message-p 'mail)))
+	      (funcall wl-draft-send-mail-func))
+	  (if (and (wl-message-news-p)
+		   (not (wl-draft-sent-message-p 'news))
+		   (not (wl-message-field-exists-p "Resent-to")))
+	      (funcall wl-draft-send-news-func)))
+      ;;
+      (let* ((status (wl-draft-sent-message-results))
+	     (unplugged-via (car status))
+	     (sent-via (nth 1 status)))
+	;; If one sent, process fcc folder.
+	(when (and sent-via wl-draft-fcc-list)
+	  (wl-draft-do-fcc (wl-draft-get-header-delimiter) wl-draft-fcc-list)
+	  (setq wl-draft-fcc-list nil))
+	;; If one unplugged, append queue.
+	(when (and unplugged-via
+		   wl-sent-message-modified)
+	  (if wl-draft-enable-queuing
+	      (wl-draft-queue-append wl-sent-message-via)
+	    (error "Unplugged")))
+	(when wl-draft-verbose-send
+	  (if (and unplugged-via sent-via);; combined message
+	      (progn
+		(setq wl-draft-verbose-msg 
+		      (format "Sending%s and Queuing%s..."
+			      sent-via unplugged-via))
+		(message (concat wl-draft-verbose-msg "done")))
+	    (if mes-string
+		(message (concat mes-string
+				 (if sent-via "done." "failed.")))))))))
+  (not wl-sent-message-modified)) ;; return value
+
+(defun wl-draft-raw-send (&optional kill-when-done force-pre-hook mes-string)
+  "Force send current buffer as raw message."
+  (interactive)
+  (save-excursion
+    (let (wl-interactive-send
+;	  wl-draft-verbose-send
+	  (wl-mail-send-pre-hook (and force-pre-hook wl-mail-send-pre-hook))
+;	  wl-news-send-pre-hook
+	  mail-send-hook
+	  mail-send-actions)
+      (wl-draft-send kill-when-done mes-string))))
+
+(defun wl-draft-clone-local-variables ()
+  (let ((locals (buffer-local-variables))
+	result)
+    (mapcar
+     (function
+      (lambda (local)
+	(when (and (consp local)
+		   (car local)
+		   (string-match 
+		    wl-draft-clone-local-variable-regexp
+		    (symbol-name (car local))))
+	  (setq result (wl-append result (list (car local)))))))
+     locals)
+    result))
+
+(defun wl-draft-send (&optional kill-when-done mes-string)
+  "Send current draft message. 
+If optional argument is non-nil, current draft buffer is killed"
+  (interactive)
+  (wl-draft-config-exec)
+  (run-hooks 'wl-draft-send-hook)
+  (when (or (not wl-interactive-send)
+	    (y-or-n-p "Send current draft. OK?"))
+    (let ((send-mail-function 'wl-draft-raw-send)
+	  (editing-buffer (current-buffer))
+	  (sending-buffer (wl-draft-generate-clone-buffer 
+			   " *wl-draft-sending-buffer*"
+			   (append wl-draft-config-variables
+				   (wl-draft-clone-local-variables))))
+	  (wl-draft-verbose-msg nil)
+	  err)
+      (unwind-protect
+	  (save-excursion (set-buffer sending-buffer)
+	    (if (and (not (wl-message-mail-p))
+		     (not (wl-message-news-p)))
+		(error "No recipient is specified"))
+	    (expand-abbrev) ; for mail-abbrevs
+	    (run-hooks 'mail-send-hook) ; translate buffer
+	    (if wl-draft-verbose-send
+		(message (or mes-string "Sending...")))
+	    (funcall wl-draft-send-func editing-buffer kill-when-done)
+	    ;; Now perform actions on successful sending.
+	    (while mail-send-actions
+	      (condition-case ()
+		  (apply (car (car mail-send-actions))
+			 (cdr (car mail-send-actions)))
+		(error))
+	      (setq mail-send-actions (cdr mail-send-actions)))
+	    (if (or (eq major-mode 'wl-draft-mode)
+		    (eq major-mode 'mail-mode))
+		(local-set-key "\C-c\C-s" 'wl-draft-send)) ; override
+	    (if wl-draft-verbose-send
+		(message (concat (or wl-draft-verbose-msg
+				     mes-string "Sending...")
+				 "done."))))
+	;; kill sending buffer, anyway.
+	(and (buffer-live-p sending-buffer)
+	     (kill-buffer sending-buffer))))))
+
+(defun wl-draft-save ()
+  "Save current draft."
+  (interactive)
+  (save-buffer)
+  (wl-draft-config-info-operation
+   (and (string-match "[0-9]+$" wl-draft-buffer-file-name)
+	(string-to-int
+	 (elmo-match-string 0 wl-draft-buffer-file-name)))
+   'save))
+
+(defun wl-draft-mimic-kill-buffer ()
+  "Kill the current (draft) buffer with query."
+  (interactive)
+  (let ((bufname (read-buffer (format "Kill buffer: (default %s) "
+				      (buffer-name))))
+	wl-draft-use-frame)
+    (if (or (not bufname)
+	    (string-equal bufname "")
+	    (string-equal bufname (buffer-name)))
+	(wl-draft-save-and-exit)
+      (kill-buffer bufname))))
+
+(defun wl-draft-save-and-exit ()
+  "Save current draft and exit current draft mode."
+  (interactive)
+  (wl-draft-save)
+  (let ((editing-buffer (current-buffer)))
+    (wl-draft-hide editing-buffer)
+    (kill-buffer editing-buffer)))
+  
+(defun wl-draft-send-and-exit ()
+  "Send current draft message and kill it."
+  (interactive)
+  (wl-draft-send t))
+
+(defun wl-draft-send-from-toolbar ()
+  (interactive)
+  (let ((wl-interactive-send t))
+    (wl-draft-send-and-exit)))
+
+(defun wl-draft-delete-field (field &optional delimline)
+  (wl-draft-delete-fields (regexp-quote field) delimline))
+
+(defun wl-draft-delete-fields (regexp &optional delimline)
+  (save-restriction
+    (unless delimline
+      (if (search-forward "\n\n" nil t)
+	  (setq delimline (point))
+	(setq delimline (point-max))))
+    (narrow-to-region (point-min) delimline)
+    (goto-char (point-min))
+    (let ((regexp (concat "^" regexp ":"))
+	  (case-fold-search t)
+	  last)
+      (while (not (eobp))
+	(if (looking-at regexp)
+	    (progn
+	      (delete-region
+	       (point)
+	       (progn
+		 (forward-line 1)
+		 (if (re-search-forward "^[^ \t]" nil t)
+		     (goto-char (match-beginning 0))
+		   (point-max)))))
+	  (forward-line 1)
+	  (if (re-search-forward "^[^ \t]" nil t)
+	      (goto-char (match-beginning 0))
+	    (point-max)))))))
+
+(defun wl-draft-get-fcc-list (header-end)
+  (let (fcc-list
+	(case-fold-search t))
+    (or (markerp header-end) (error "header-end must be a marker"))
+    (save-excursion
+      (goto-char (point-min))
+      (while (re-search-forward "^FCC:[ \t]*" header-end t)
+	(setq fcc-list
+	      (cons (buffer-substring-no-properties
+		     (point)
+		     (progn
+		       (end-of-line)
+		       (skip-chars-backward " \t")
+		       (point)))
+		    fcc-list))
+	(save-match-data
+	  (wl-folder-confirm-existence (eword-decode-string (car fcc-list))))
+	(delete-region (match-beginning 0)
+		       (progn (forward-line 1) (point)))))
+    fcc-list))
+
+(defun wl-draft-do-fcc (header-end &optional fcc-list)
+  (let ((send-mail-buffer (current-buffer))
+	(tembuf (generate-new-buffer " fcc output"))
+	(case-fold-search t)
+	beg end)
+    (or (markerp header-end) (error "header-end must be a marker"))
+    (save-excursion
+      (unless fcc-list
+	(setq fcc-list (wl-draft-get-fcc-list header-end)))
+      (set-buffer tembuf)
+      (erase-buffer)
+      ;; insert just the headers to avoid moving the gap more than
+      ;; necessary (the message body could be arbitrarily huge.)
+      (insert-buffer-substring send-mail-buffer 1 header-end)
+      (wl-draft-insert-required-fields t)
+      (goto-char (point-max))
+      (insert-buffer-substring send-mail-buffer header-end)
+      (let ((id (std11-field-body "Message-ID"))
+	    (elmo-enable-disconnected-operation t)
+	    cache-saved)
+	(while fcc-list
+	  (unless (or cache-saved
+		      (elmo-folder-plugged-p (car fcc-list)))
+	    (elmo-cache-save id nil nil nil) ;; for disconnected operation
+	    (setq cache-saved t))
+	  (if (elmo-append-msg (eword-decode-string (car fcc-list))
+			       (buffer-substring 
+				(point-min) (point-max))
+			       id)
+	      (wl-draft-write-sendlog 'ok 'fcc nil (car fcc-list) id)
+	    (wl-draft-write-sendlog 'failed 'fcc nil (car fcc-list) id))
+	  (setq fcc-list (cdr fcc-list)))))
+    (kill-buffer tembuf)))
+
+(defun wl-draft-on-field-p ()
+  (if (< (point)
+	 (save-excursion
+	   (goto-char (point-min))
+	   (search-forward (concat "\n" mail-header-separator "\n") nil 0)
+	   (point)))
+      (if (bolp)
+	  (if (bobp) 
+	      t
+	    (save-excursion
+	      (forward-line -1)
+	      (if (looking-at ".*,[ \t]?$") nil t)))
+	(let ((pos (point)))
+	  (save-excursion
+	    (beginning-of-line)
+	    (if (looking-at "^[ \t]")
+		nil
+	      (if (re-search-forward ":" pos t) nil t)))))))
+
+(defun wl-draft-random-alphabet ()
+  (let ((alphabet '(?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K ?L ?M ?N ?O ?P ?Q ?R ?S ?T ?U ?V ?W ?X ?Y ?Z)))
+    (nth (abs (% (random) 26)) alphabet)))
+
+;;;###autoload
+(defun wl-draft (&optional to subject in-reply-to cc references newsgroups
+			   mail-followup-to
+			   content-type
+			   body edit-again summary-buf)
+  "Write and send mail/news message with Wanderlust."
+  (interactive)
+  (unless (featurep 'wl)
+    (require 'wl))
+  (unless wl-init
+    (wl-load-profile))
+  (wl-init) ;; returns immediately if already initialized.
+  (if (interactive-p)
+      (setq summary-buf (wl-summary-get-buffer wl-summary-buffer-folder-name)))
+  (let ((draft-folder-spec (elmo-folder-get-spec wl-draft-folder))
+	buf-name file-name num wl-demo change-major-mode-hook)
+    (if (not (eq (car draft-folder-spec) 'localdir))
+	(error "%s folder cannot be used for draft folder" wl-draft-folder))
+    (setq num (elmo-max-of-list (or (elmo-list-folder wl-draft-folder) '(0))))
+    (setq num (+ 1 num))
+    ;; To get unused buffer name.
+    (while (get-buffer (concat wl-draft-folder "/" (int-to-string num)))
+      (setq num (+ 1 num)))
+    (setq buf-name (find-file-noselect 
+		    (setq file-name
+			  (elmo-get-msg-filename wl-draft-folder
+						 num))))
+    (if wl-draft-use-frame
+	(switch-to-buffer-other-frame buf-name)
+      (switch-to-buffer buf-name))
+    (set-buffer buf-name)
+    (if (not (string-match (regexp-quote wl-draft-folder)
+			   (buffer-name)))
+	(rename-buffer (concat wl-draft-folder "/" (int-to-string num))))
+    (if (or (eq wl-draft-reply-buffer-style 'full)
+	    (eq this-command 'wl-draft)
+	    (eq this-command 'wl-summary-write)
+	    (eq this-command 'wl-summary-write-current-newsgroup))
+	(delete-other-windows))
+    (auto-save-mode -1)
+    (wl-draft-mode)
+    (setq wl-sent-message-via nil)
+    (if (stringp wl-from)
+	(insert "From: " wl-from "\n"))
+    (and (or (interactive-p)
+	     (eq this-command 'wl-summary-write)
+	     to)
+	 (insert "To: " (or to "") "\n"))
+    (and cc (insert "Cc: " (or cc "") "\n"))
+    (insert "Subject: " (or subject "") "\n")
+    (and newsgroups (insert "Newsgroups: " newsgroups "\n"))
+    (and mail-followup-to (insert "Mail-Followup-To: " mail-followup-to "\n"))
+    (and wl-insert-mail-reply-to 
+	 (insert "Mail-Reply-To: " 
+		 (wl-address-header-extract-address
+		  wl-from) "\n"))
+    (and in-reply-to (insert "In-Reply-To: " in-reply-to "\n"))
+    (and references (insert "References: " references "\n"))
+    (insert (funcall wl-generate-mailer-string-func) 
+	    "\n")
+    (setq wl-draft-buffer-file-name file-name)
+    (if mail-default-reply-to
+	(insert "Reply-To: " mail-default-reply-to "\n"))
+    (if (or wl-bcc mail-self-blind)
+	(insert "Bcc: " (or wl-bcc (user-login-name)) "\n"))
+    (if wl-fcc
+	(insert "FCC: " wl-fcc "\n"))
+    (if wl-organization
+	(insert "Organization: " wl-organization "\n"))
+    (and wl-auto-insert-x-face
+	 (file-exists-p wl-x-face-file)
+	 (wl-draft-insert-x-face-field-here))
+    (if mail-default-headers
+	(insert mail-default-headers))
+    (if (not (= (preceding-char) ?\n))
+	(insert ?\n))
+    (if edit-again
+	(let (start)
+	  (setq start (point))
+	  (when content-type 
+	    (insert "Content-type: " content-type "\n\n"))
+	  (and body (insert body))
+	  (save-restriction
+	    (narrow-to-region start (point))
+	    (and edit-again
+		 (wl-draft-decode-message-in-buffer))
+	    (widen)
+	    (goto-char start)
+	    (put-text-property (point)
+			       (progn
+				 (insert mail-header-separator "\n")
+				 (1- (point)))
+			       'category 'mail-header-separator)))
+      (put-text-property (point)
+			 (progn
+			   (insert mail-header-separator "\n")
+			   (1- (point)))
+			 'category 'mail-header-separator)
+      (and body (insert body)))
+    (if wl-on-nemacs
+	(push-mark (point) t)
+      (push-mark (point) t t))
+    (as-binary-output-file
+     (write-region (point-min)(point-max) wl-draft-buffer-file-name
+		   nil t))
+    (wl-draft-editor-mode)
+    (wl-draft-overload-functions)
+    (let (wl-highlight-x-face-func)
+      (wl-highlight-headers))
+    (goto-char (point-min))
+    (if (interactive-p)
+	(run-hooks 'wl-mail-setup-hook))
+    (wl-user-agent-compose-internal) ;; user-agent
+    (cond ((eq this-command 'wl-summary-write-current-newsgroup)
+ 	   (mail-position-on-field "Subject"))
+ 	  ((and (interactive-p) (null to))
+ 	   (mail-position-on-field "To"))
+ 	  (t
+ 	   (goto-char (point-max))))    
+    (setq wl-draft-config-exec-flag t)
+    (setq wl-draft-buffer-cur-summary-buffer (or summary-buf
+						 (get-buffer
+						  wl-summary-buffer-name)))    
+    buf-name))
+
+(defun wl-draft-elmo-nntp-send ()
+  (let ((elmo-nntp-post-pre-hook wl-news-send-pre-hook)
+	(elmo-default-nntp-user
+	 (or wl-nntp-posting-user elmo-default-nntp-user))
+	(elmo-default-nntp-server
+	 (or wl-nntp-posting-server elmo-default-nntp-server))
+	(elmo-default-nntp-port
+	 (or wl-nntp-posting-port elmo-default-nntp-port))
+	(elmo-default-nntp-ssl
+	 (or wl-nntp-posting-ssl elmo-default-nntp-ssl)))
+    (if (not (elmo-plugged-p elmo-default-nntp-server elmo-default-nntp-port))
+ 	(wl-draft-set-sent-message 'news 'unplugged
+ 				   (cons elmo-default-nntp-server
+ 					 elmo-default-nntp-port))
+      (elmo-nntp-post elmo-default-nntp-server (current-buffer))
+      (wl-draft-set-sent-message 'news 'sent)
+      (wl-draft-write-sendlog 'ok 'nntp elmo-default-nntp-server
+ 			      (std11-field-body "Newsgroups")
+ 			      (std11-field-body "Message-ID")))))
+
+(defun wl-draft-generate-clone-buffer (name &optional local-variables)
+  "generate clone of current buffer named NAME."
+  (let ((editing-buffer (current-buffer)))
+    (save-excursion
+      (set-buffer (generate-new-buffer name))
+      (erase-buffer)
+      (wl-draft-mode)
+      (wl-draft-editor-mode)
+      (insert-buffer editing-buffer)
+      (message "")
+      (when local-variables
+	(mapcar
+	 (function
+	  (lambda (var)
+	    (make-local-variable var)
+	    (set var (save-excursion
+		       (set-buffer editing-buffer)
+		       (symbol-value var)))))
+	 local-variables))
+      (current-buffer))))
+
+(defun wl-draft-reedit (number)
+  (let ((draft-folder-spec (elmo-folder-get-spec wl-draft-folder))
+	(wl-draft-reedit t)
+	buf-name file-name change-major-mode-hook)
+    (setq file-name (expand-file-name
+		     (int-to-string number)
+		     (expand-file-name
+		      (nth 1 draft-folder-spec)
+		      elmo-localdir-folder-path)))
+    (unless (file-exists-p file-name)
+      (error "File %s does not exist" file-name))
+    (setq buf-name (find-file-noselect file-name))
+    (if wl-draft-use-frame
+	(switch-to-buffer-other-frame buf-name)
+      (switch-to-buffer buf-name))
+    (set-buffer buf-name)
+    (if (not (string-match (regexp-quote wl-draft-folder)
+			   (buffer-name)))
+	(rename-buffer (concat wl-draft-folder "/" (buffer-name))))    
+    (auto-save-mode -1)
+    (wl-draft-mode)
+    (setq wl-sent-message-via nil)
+    (setq wl-draft-buffer-file-name file-name)
+    (wl-draft-config-info-operation number 'load)
+    (goto-char (point-min))
+    (or (re-search-forward "\n\n" nil t)
+	(search-forward (concat mail-header-separator "\n") nil t))
+    (if wl-on-nemacs
+	(push-mark (point) t)
+      (push-mark (point) t t))
+    (write-region (point-min)(point-max) wl-draft-buffer-file-name
+		  nil t)
+    (wl-draft-overload-functions)
+    (wl-draft-editor-mode)
+    (let (wl-highlight-x-face-func)
+      (wl-highlight-headers))
+    (run-hooks 'wl-draft-reedit-hook)
+    (goto-char (point-max))
+    buf-name
+    ))
+
+(defmacro wl-draft-body-goto-top ()
+  (` (progn
+       (goto-char (point-min))
+       (if (re-search-forward mail-header-separator nil t)
+	   (forward-char 1)
+	 (goto-char (point-max))))))
+
+(defmacro wl-draft-body-goto-bottom ()
+  (` (goto-char (point-max))))
+
+(defmacro wl-draft-config-body-goto-header ()
+  (` (progn
+       (goto-char (point-min))
+       (if (re-search-forward mail-header-separator nil t)
+	   (beginning-of-line)
+	 (goto-char (point-max))))))
+
+(defun wl-draft-config-sub-body (content)
+  (wl-draft-body-goto-top)
+  (delete-region (point) (point-max))
+  (if content (insert (eval content))))
+
+(defun wl-draft-config-sub-top (content)
+  (wl-draft-body-goto-top)
+  (if content (insert (eval content))))
+
+(defun wl-draft-config-sub-bottom (content)
+  (wl-draft-body-goto-bottom)
+  (if content (insert (eval content))))
+
+(defun wl-draft-config-sub-header (content)
+  (wl-draft-config-body-goto-header)
+  (if content (insert (concat (eval content) "\n"))))
+
+(defsubst wl-draft-config-sub-file (content)
+  (let ((coding-system-for-read wl-cs-autoconv)
+	(file (expand-file-name (eval content))))
+    (if (file-exists-p file)
+	(insert-file-contents file)
+      (error "%s: no exists file" file))))
+
+(defun wl-draft-config-sub-body-file (content)
+  (wl-draft-body-goto-top)
+  (delete-region (point) (point-max))
+  (wl-draft-config-sub-file content))
+
+(defun wl-draft-config-sub-top-file (content)
+  (wl-draft-body-goto-top)
+  (wl-draft-config-sub-file content))
+
+(defun wl-draft-config-sub-bottom-file (content)
+  (wl-draft-body-goto-bottom)
+  (wl-draft-config-sub-file content))
+
+(defun wl-draft-config-sub-header-file (content)
+  (wl-draft-config-body-goto-header)
+  (wl-draft-config-sub-file content))
+
+(defun wl-draft-config-sub-template (content)
+  (setq wl-draft-config-variables
+	(wl-template-insert (eval content))))
+
+(defun wl-draft-config-sub-x-face (content)
+  (if (and (string-match "\\.xbm\\(\\.gz\\)?$" content) 
+	   (fboundp 'x-face-insert)) ; x-face.el is installed.
+      (x-face-insert content)
+    (wl-draft-replace-field "X-Face" (elmo-get-file-string content t) t)))
+
+(defsubst wl-draft-config-sub-func (field content)
+  (let (func)
+    (if (setq func (assq field wl-draft-config-sub-func-alist))
+	(let (wl-draft-config-variables)
+	  (funcall (cdr func) content)
+	  ;; for wl-draft-config-sub-template
+	  (cons t wl-draft-config-variables)))))
+
+(defsubst wl-draft-config-exec-sub (clist)
+  (let (config local-variables)
+    (while clist
+      (setq config (car clist))
+      (cond
+       ((consp config)
+	(let ((field (car config))
+	      (content (cdr config))
+	      ret-val)
+ 	  (cond
+ 	   ((stringp field)
+ 	    (wl-draft-replace-field field (eval content) t))
+ 	   ((setq ret-val (wl-draft-config-sub-func field content))
+	    (if (cdr ret-val) ;; for wl-draft-config-sub-template
+		(wl-append local-variables (cdr ret-val))))
+ 	   ((boundp field) ;; variable
+ 	    (make-local-variable field)
+ 	    (set field (eval content))
+ 	    (wl-append local-variables (list field)))
+ 	   (t
+ 	    (error "%s: not variable" field)))))
+       ((or (functionp config)
+	    (and (symbolp config)
+		 (fboundp config)))
+	(funcall config))
+       (t
+	(error "%s: not supported type" config)))
+      (setq clist (cdr clist)))
+    local-variables))
+
+(defun wl-draft-prepared-config-exec (&optional config-alist reply-buf)
+  "Change headers in draft preparation time."
+  (interactive)
+  (unless wl-draft-reedit
+    (let ((config-alist 
+	   (or config-alist
+	       (and (boundp 'wl-draft-prepared-config-alist)
+		    wl-draft-prepared-config-alist)	;; For compatible.
+	       wl-draft-config-alist)))
+      (if config-alist
+	  (wl-draft-config-exec config-alist reply-buf)))))
+
+(defun wl-draft-config-exec (&optional config-alist reply-buf)
+  "Change headers in draft sending time."
+  (interactive)
+  (let ((case-fold-search t)
+	(alist (or config-alist wl-draft-config-alist))
+	(reply-buf (or reply-buf (and (buffer-live-p wl-draft-reply-buffer)
+				      wl-draft-reply-buffer)))
+	(local-variables wl-draft-config-variables)
+	key clist found)
+    (when (and (or (interactive-p)
+		   wl-draft-config-exec-flag)
+	       alist)
+      (save-excursion
+	(catch 'done
+	  (while alist
+	    (setq key (caar alist)
+		  clist (cdar alist))
+	    (cond
+	     ((eq key 'reply)
+	      (when (and
+		     reply-buf
+		     (save-excursion
+		       (set-buffer reply-buf)
+		       (save-restriction
+			 (std11-narrow-to-header)
+			 (goto-char (point-min))
+			 (re-search-forward (car clist) nil t))))
+		(wl-draft-config-exec-sub (cdr clist))
+		(setq found t)))
+	     ((stringp key)
+	      (when (save-restriction
+		      (std11-narrow-to-header mail-header-separator)
+		      (goto-char (point-min))
+		      (re-search-forward key nil t))
+		(wl-append local-variables
+			   (wl-draft-config-exec-sub clist))
+		(setq found t)))
+	     ((eval key)
+	      (wl-append local-variables
+			 (wl-draft-config-exec-sub clist))
+	      (setq found t)))
+	    (if (and found wl-draft-config-matchone)
+		(throw 'done t))
+	    (setq alist (cdr alist))))
+	(if found
+	    (setq wl-draft-config-exec-flag nil))
+	(run-hooks 'wl-draft-config-exec-hook)
+	(put-text-property (point-min)(point-max) 'face nil)
+	(wl-highlight-message (point-min)(point-max) t)
+	(setq wl-draft-config-variables
+	      (elmo-uniq-list local-variables))))))
+
+(defun wl-draft-replace-field (field content &optional add)
+  (save-excursion
+    (save-restriction
+      (let ((case-fold-search t)
+	    (inhibit-read-only t) ;; added by teranisi.
+	    beg)
+	(std11-narrow-to-header mail-header-separator)
+	(goto-char (point-min))
+	(if (re-search-forward (concat "^" (regexp-quote field) ":") nil t)
+	    (if content
+		;; replace field
+		(progn
+		  (setq beg (point))
+		  (re-search-forward "^[^ \t]" nil 'move)
+		  (beginning-of-line)
+		  (skip-chars-backward "\n")
+		  (delete-region beg (point))
+		  (insert " " content))
+	      ;; delete field
+	      (save-excursion
+		(beginning-of-line)
+		(setq beg (point)))
+	      (re-search-forward "^[^ \t]" nil 'move)
+	      (beginning-of-line)
+	      (delete-region beg (point)))
+	  (when (and add content)
+	    ;; add field
+	    (goto-char (point-max))
+	    (insert (concat field ": " content "\n"))))))))
+
+(defun wl-draft-config-info-operation (msg operation)
+  (let* ((msgdb-dir (elmo-msgdb-expand-path wl-draft-folder))
+	 (filename
+	  (expand-file-name
+	   (format "%s-%d" wl-draft-config-save-filename msg)
+	   msgdb-dir))
+	 element alist variable)
+    (cond
+     ((eq operation 'save)
+      (let ((variables (elmo-uniq-list wl-draft-config-variables)))
+	(while (setq variable (pop variables))
+	  (when (boundp variable)
+	    (wl-append alist
+		       (list (cons variable (eval variable))))))
+	(elmo-object-save filename alist)))
+     ((eq operation 'load)
+      (setq alist (elmo-object-load filename))
+      (while (setq element (pop alist))
+	(set (make-local-variable (car element)) (cdr element))
+	(wl-append wl-draft-config-variables (list (car element)))))
+     ((eq operation 'delete)
+      (if (file-exists-p filename)
+	  (delete-file filename))))))
+
+(defun wl-draft-queue-info-operation (msg operation
+					  &optional add-sent-message-via)
+  (let* ((msgdb-dir (elmo-msgdb-expand-path wl-queue-folder))
+	 (filename
+	  (expand-file-name
+	   (format "%s-%d" wl-draft-queue-save-filename msg)
+	   msgdb-dir))
+	 element alist variable)
+    (cond
+     ((eq operation 'save)
+      (let ((variables (elmo-uniq-list
+			(append wl-draft-queue-save-variables
+				wl-draft-config-variables
+				(list 'wl-draft-fcc-list)))))
+	(if add-sent-message-via
+	    (push 'wl-sent-message-via variables))
+	(while (setq variable (pop variables))
+	  (when (boundp variable)
+	    (wl-append alist
+		       (list (cons variable (eval variable))))))
+	(elmo-object-save filename alist)))
+     ((eq operation 'load)
+      (setq alist (elmo-object-load filename))
+      (while (setq element (pop alist))
+	(set (make-local-variable (car element)) (cdr element))))
+     ((eq operation 'get-sent-via)
+      (setq alist (elmo-object-load filename))
+      (cdr (assq 'wl-sent-message-via alist)))
+     ((eq operation 'delete)
+      (if (file-exists-p filename)
+	  (delete-file filename))))))
+
+(defun wl-draft-queue-append (wl-sent-message-via)
+  (if wl-draft-verbose-send
+      (message "Queuing..."))
+  (let ((send-buffer (current-buffer))
+	(message-id (std11-field-body "Message-ID")))
+    (if (elmo-append-msg wl-queue-folder
+			 (buffer-substring (point-min) (point-max))
+			 message-id)
+	(progn
+	  (if message-id
+	      (elmo-dop-lock-message message-id))
+	  (wl-draft-queue-info-operation
+	   (car (elmo-max-of-folder wl-queue-folder))
+	   'save wl-sent-message-via)
+	  (wl-draft-write-sendlog 'ok 'queue nil wl-queue-folder message-id)
+	  (when wl-draft-verbose-send
+	    (setq wl-draft-verbose-msg "Queuing...")
+	    (message "Queuing...done.")))
+      (wl-draft-write-sendlog 'failed 'queue nil wl-queue-folder message-id)
+      (error "Queuing failed"))))
+
+(defun wl-draft-queue-flush ()
+  "Flush draft queue."
+  (interactive)
+  (let ((msgs2 (elmo-list-folder wl-queue-folder))
+	(i 0)
+	(performed 0)
+	(wl-draft-queue-flushing t)
+	msgs failure len buffer msgid sent-via)
+    ;; get plugged send message
+    (while msgs2
+      (setq sent-via (wl-draft-queue-info-operation (car msgs2) 'get-sent-via))
+      (catch 'found
+	(while sent-via
+	  (when (and (eq (nth 1 (car sent-via)) 'unplugged)
+		     (elmo-plugged-p
+		      (car (nth 2 (car sent-via)))
+		      (cdr (nth 2 (car sent-via)))))
+	    (wl-append msgs (list (car msgs2)))
+	    (throw 'found t))
+	  (setq sent-via (cdr sent-via))))
+      (setq msgs2 (cdr msgs2)))
+    (when (> (setq len (length msgs)) 0)
+      (if (elmo-y-or-n-p (format
+			  "%d message(s) are in the sending queue. Send now?"
+			  len)
+			 (not elmo-dop-flush-confirm) t)
+	  (progn
+	    (save-excursion
+	      (setq buffer (get-buffer-create " *wl-draft-queue-flush*"))
+	      (set-buffer buffer)
+	      (while msgs
+		;; reset buffer local variables
+		(kill-all-local-variables)
+		(erase-buffer)
+		(setq i (+ 1 i)
+		      failure nil)
+		(setq wl-sent-message-via nil)
+		(wl-draft-queue-info-operation (car msgs) 'load)
+		(elmo-read-msg-no-cache wl-queue-folder (car msgs) 
+					(current-buffer))
+		(condition-case err
+		    (setq failure (funcall
+				   wl-draft-queue-flush-send-func
+				   (format "Sending (%d/%d)..." i len)))
+;; 		    (wl-draft-raw-send nil nil
+;; 				       (format "Sending (%d/%d)..." i len))
+		  (error
+		   (elmo-display-error err t)
+		   (setq failure t))
+		  (quit 
+		   (setq failure t)))
+		(unless failure
+		  (elmo-delete-msgs wl-queue-folder (cons (car msgs) nil))
+		  (wl-draft-queue-info-operation (car msgs) 'delete)
+		  (elmo-dop-unlock-message (std11-field-body "Message-ID"))
+		  (setq performed (+ 1 performed)))
+		(setq msgs (cdr msgs)))
+	      (kill-buffer buffer)
+	      (message "%d message(s) are sent." performed)))
+	(message "%d message(s) are remained to be sent." len))
+      len)))
+
+(defun wl-jump-to-draft-buffer (&optional arg)
+  "Jump to the draft if exists."
+  (interactive "P")
+  (if arg
+      (wl-jump-to-draft-folder)
+    (let ((bufs (buffer-list))
+	  (draft-regexp (concat
+			 "^" (regexp-quote
+			      (expand-file-name
+			       (nth 1 (elmo-folder-get-spec wl-draft-folder))
+			       (expand-file-name
+				elmo-localdir-folder-path)))))
+	  buf draft-bufs)
+      (while bufs
+	(if (and
+	     (setq buf (buffer-file-name (car bufs)))
+	     (string-match draft-regexp buf))
+	    (setq draft-bufs (cons (buffer-name (car bufs)) draft-bufs)))
+	(setq bufs (cdr bufs)))
+      (cond
+       ((null draft-bufs)
+	(message "No draft buffer exist."))
+       (t
+	(setq draft-bufs
+	      (sort draft-bufs (function (lambda (a b) (not (string< a b))))))
+	(if (setq buf (cdr (member (buffer-name) draft-bufs)))
+	    (setq buf (car buf))
+	  (setq buf (car draft-bufs)))
+	(switch-to-buffer buf))))))
+
+(defun wl-jump-to-draft-folder ()
+  (let ((msgs (reverse (elmo-list-folder wl-draft-folder)))
+	(mybuf (buffer-name))
+	msg buf)
+    (if (not msgs)
+	(message "No draft message exist.")
+      (if (string-match (concat "^" wl-draft-folder "/") mybuf)
+	  (setq msg (cadr (memq
+			   (string-to-int (substring mybuf (match-end 0)))
+			   msgs))))
+      (or msg (setq msg (car msgs)))
+      (if (setq buf (get-buffer (format "%s/%d" wl-draft-folder msg)))
+	  (switch-to-buffer buf)
+	(wl-draft-reedit msg)))))
+
+(defun wl-draft-highlight-and-recenter (&optional n)
+  (interactive "P")
+  (if wl-highlight-body-too
+      (let ((beg (point-min))
+	    (end (point-max)))
+	(put-text-property beg end 'face nil)
+	(wl-highlight-message beg end t)))
+  (recenter n))
+
+;;;; user-agent support by Sen Nagata
+
+;; this appears to be necessarily global...
+(defvar wl-user-agent-compose-p nil)
+(defvar wl-user-agent-headers-and-body-alist nil)
+
+;; this should be a generic function for mail-mode -- i wish there was
+;; something like it in sendmail.el
+(defun wl-user-agent-insert-header (header-name header-value)
+  "Insert HEADER-NAME w/ value HEADER-VALUE into a message."
+  ;; it seems like overriding existing headers is acceptable -- should
+  ;; we provide an option?
+  
+  ;; plan was: unfold header (might be folded), remove existing value, insert
+  ;;           new value
+  ;; wl doesn't seem to fold header lines yet anyway :-)
+  
+  (let ((kill-whole-line t)
+	end-of-line)
+    (mail-position-on-field (capitalize header-name))
+    (setq end-of-line (point))
+    (beginning-of-line)
+    (re-search-forward ":" end-of-line)
+    (insert (concat " " header-value "\n"))
+    (kill-line)))
+
+;; this should be a generic function for mail-mode -- i wish there was
+;; something like it in sendmail.el
+;;
+;; ** haven't dealt w/ case where the body is already set **
+(defun wl-user-agent-insert-body (body-text)
+  "Insert a body of text, BODY-TEXT, into a message."
+  ;; code defensively... :-P
+  (goto-char (point-min))
+  (search-forward mail-header-separator)
+  (forward-line 1)
+  (insert body-text))
+
+;;;###autoload
+(defun wl-user-agent-compose (&optional to subject other-headers continue
+					switch-function yank-action
+					send-actions)
+  "Support the `compose-mail' interface for wl.
+Only support for TO, SUBJECT, and OTHER-HEADERS has been implemented.
+Support for CONTINUE, YANK-ACTION, and SEND-ACTIONS has not
+been implemented yet.  Partial support for SWITCH-FUNCTION now supported."
+
+  ;; protect these -- to and subject get bound at some point, so it looks
+  ;; to be necessary to protect the values used w/in
+  (let ((wl-user-agent-headers-and-body-alist other-headers)
+ 	(wl-draft-use-frame (eq switch-function 'switch-to-buffer-other-frame))
+ 	(wl-draft-reply-buffer-style 'split))
+    (when (eq switch-function 'switch-to-buffer-other-window)
+      (when (one-window-p t)
+	(if (window-minibuffer-p) (other-window 1))
+	(split-window))
+      (other-window 1))
+    (if to
+	(if (wl-string-match-assoc "to" wl-user-agent-headers-and-body-alist
+				   'ignore-case)
+	    (setcdr
+	     (wl-string-match-assoc "to" wl-user-agent-headers-and-body-alist
+				    'ignore-case)
+	     to)
+	  (setq wl-user-agent-headers-and-body-alist
+		(cons (cons "to" to)
+		      wl-user-agent-headers-and-body-alist))))
+    (if subject
+	(if (wl-string-match-assoc "subject" 
+				   wl-user-agent-headers-and-body-alist
+				   'ignore-case)
+	    (setcdr
+	     (wl-string-match-assoc "subject" 
+				    wl-user-agent-headers-and-body-alist
+				    'ignore-case)
+	     subject)
+	  (setq wl-user-agent-headers-and-body-alist
+		(cons (cons "subject" subject)
+		      wl-user-agent-headers-and-body-alist))))
+    ;; i think this is what we want to use...
+    (unwind-protect
+	(progn
+	  ;; tell the hook-function to do its stuff
+	  (setq wl-user-agent-compose-p t)
+	  ;; because to get the hooks working, wl-draft has to think it has
+	  ;; been called interactively
+	  (call-interactively 'wl-draft))
+      (setq wl-user-agent-compose-p nil))))
+
+(defun wl-user-agent-compose-internal ()
+  "Manipulate headers and/or a body of a draft message."
+  ;; being called from wl-user-agent-compose?
+  (if wl-user-agent-compose-p
+      (progn
+	;; insert headers
+	(let ((case-fold-search t))
+	  (mapcar
+	   (lambda (x)
+	     (let ((header-name (car x))
+		   (header-value (cdr x)))
+	       ;; skip body
+	       (if (not (string-match "^body$" header-name))
+		   (wl-user-agent-insert-header header-name header-value)
+		 t)))
+	   wl-user-agent-headers-and-body-alist))
+	;; highlight headers (from wl-draft in wl-draft.el)
+	(let (wl-highlight-x-face-func)
+	  (wl-highlight-headers))
+	;; insert body
+	(if (wl-string-match-assoc "body" wl-user-agent-headers-and-body-alist
+				   'ignore-case)
+	    (wl-user-agent-insert-body
+	     (cdr (wl-string-match-assoc
+		   "body"
+		   wl-user-agent-headers-and-body-alist 'ignore-case)))))
+    t))
+
+(provide 'wl-draft)
+
+;;; wl-draft.el ends here
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
new file mode 100644
index 0000000..003c749
--- /dev/null
+++ b/wl/wl-expire.el
@@ -0,0 +1,729 @@
+;;; wl-expire.el -- Message expire modules for Wanderlust.
+
+;; Copyright 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;;                          Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:34:13 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+(require 'wl-summary)
+(require 'wl-thread)
+(require 'wl-folder)
+
+;;; Code:
+
+(eval-when-compile
+  (require 'wl-util)
+  (require 'elmo-archive))
+
+;; Variables
+
+(defvar wl-expired-alist nil)
+(defvar wl-expired-alist-file-name "expired-alist")
+(defvar wl-expired-log-alist nil)
+(defvar wl-expired-log-alist-file-name "expired-log")
+
+(defun wl-expired-alist-load ()
+  (elmo-object-load (expand-file-name
+		     wl-expired-alist-file-name
+		     elmo-msgdb-dir)))
+
+(defun wl-expired-alist-save (&optional alist)
+  (elmo-object-save (expand-file-name
+		     wl-expired-alist-file-name
+		     elmo-msgdb-dir)
+		    (or alist wl-expired-alist)))
+
+(defsubst wl-expire-msg-p (msg-num mark-alist)
+  (cond ((consp wl-summary-expire-reserve-marks)
+	 (let ((mark (nth 1 (assq msg-num mark-alist))))
+	   (not (or (member mark wl-summary-expire-reserve-marks)
+		    (and wl-summary-buffer-disp-msg
+			 (eq msg-num wl-summary-buffer-current-msg))))))
+	((eq wl-summary-expire-reserve-marks 'all)
+	 (not (or (assq msg-num mark-alist)
+		  (and wl-summary-buffer-disp-msg
+		       (eq msg-num wl-summary-buffer-current-msg)))))
+	((eq wl-summary-expire-reserve-marks 'none)
+	 t)
+	(t
+	 (error "invalid marks: %s" wl-summary-expire-reserve-marks))))
+
+(defmacro wl-expire-make-sortable-date (date)
+  (` (timezone-make-sortable-date
+      (aref (, date) 0) (aref (, date) 1) (aref (, date) 2)
+      (timezone-make-time-string
+       (aref (, date) 3) (aref (, date) 4) (aref (, date) 5)))))
+
+(defsubst wl-expire-date-p (key-datevec date)
+  (let ((datevec (condition-case nil
+		     (timezone-fix-time date nil nil)
+		   (error nil))))
+    (and
+     datevec (> (aref datevec 1) 0)
+     (string<
+      (wl-expire-make-sortable-date datevec)
+      (wl-expire-make-sortable-date key-datevec)))))
+
+(defun wl-expire-delete-reserve-marked-msgs-from-list (msgs mark-alist)
+  (let ((dlist msgs))
+    (while dlist
+      (unless (wl-expire-msg-p (car dlist) mark-alist)
+	(setq msgs (delq (car dlist) msgs)))
+      (setq dlist (cdr dlist)))
+    msgs))
+
+(defun wl-expire-delete (folder delete-list msgdb &optional no-reserve-marks)
+  "Delete message for expire."
+  (unless no-reserve-marks
+    (setq delete-list
+	  (wl-expire-delete-reserve-marked-msgs-from-list
+	   delete-list (elmo-msgdb-get-mark-alist msgdb))))
+  (when delete-list
+   (let ((mess
+	 (format "Expiring (delete) %s msgs..."
+		 (length delete-list))))
+    (message "%s" mess)
+    (if (elmo-delete-msgs folder
+			  delete-list
+			  msgdb)
+	(progn
+	  (elmo-msgdb-delete-msgs folder
+				  delete-list
+				  msgdb
+				  t)
+	  (wl-expire-append-log folder delete-list nil 'delete)
+	  (message "%s" (concat mess "done")))
+      (error (concat mess "failed!")))))
+  (cons delete-list (length delete-list)))
+
+(defun wl-expire-refile (folder refile-list msgdb dst-folder
+				&optional no-reserve-marks preserve-number copy)
+  "Refile message for expire. If COPY is non-nil, copy message."
+  (when (not (string= folder dst-folder))
+    (unless no-reserve-marks
+      (setq refile-list
+	    (wl-expire-delete-reserve-marked-msgs-from-list
+	     refile-list (elmo-msgdb-get-mark-alist msgdb))))
+    (when refile-list
+     (let* ((doingmes (if copy
+			 "Copying %s"
+		       "Expiring (move %s)"))
+	   (mess (format (concat doingmes " %s msgs...")
+			 dst-folder (length refile-list))))
+      (message "%s" mess)
+      (unless (or (elmo-folder-exists-p dst-folder)
+		  (elmo-create-folder dst-folder))
+	(error "%s: create folder failed" dst-folder))
+      (if wl-expire-add-seen-list
+	  (elmo-msgdb-add-msgs-to-seen-list 
+	   dst-folder
+	   refile-list
+	   msgdb 
+	   (concat wl-summary-important-mark
+		   wl-summary-read-uncached-mark)))
+      (if (elmo-move-msgs folder
+			  refile-list
+			  dst-folder
+			  msgdb
+			  nil nil t
+			  copy
+			  preserve-number)
+	  (progn
+	    (wl-expire-append-log folder refile-list dst-folder (if copy 'copy 'move))
+	    (message "%s" (concat mess "done")))
+	(error (concat mess "failed!")))))
+    (cons refile-list (length refile-list))))
+
+(defun wl-expire-refile-with-copy-reserve-msg
+  (folder refile-list msgdb dst-folder
+	  &optional no-reserve-marks preserve-number copy)
+  "Refile message for expire.
+If REFILE-LIST includes reserve mark message, so copy."
+  (when (not (string= folder dst-folder))
+    (let ((msglist refile-list)
+	  (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	  (number-alist (elmo-msgdb-get-number-alist msgdb))
+	  (ret-val t)
+	  (copy-reserve-message)
+	  (copy-len 0)
+	  msg msg-id)
+      (message "Expiring (move %s) %s msgs..."
+	       dst-folder (length refile-list))
+      (unless (or (elmo-folder-exists-p dst-folder)
+		  (elmo-create-folder dst-folder))
+	(error "%s: create folder failed" dst-folder))
+      (while (setq msg (wl-pop msglist))
+	(unless (wl-expire-msg-p msg mark-alist)
+	  (setq msg-id (cdr (assq msg number-alist)))
+	  (if (assoc msg-id wl-expired-alist)
+	      ;; reserve mark message already refiled or expired
+	      (setq refile-list (delq msg refile-list))
+	    ;; reserve mark message not refiled
+	    (wl-append wl-expired-alist (list (cons msg-id dst-folder)))
+	    (setq copy-reserve-message t))))
+      (when refile-list
+	(if wl-expire-add-seen-list
+	    (elmo-msgdb-add-msgs-to-seen-list 
+	     dst-folder
+	     refile-list
+	     msgdb 
+	     (concat wl-summary-important-mark
+		     wl-summary-read-uncached-mark)))
+	(unless
+	    (setq ret-val
+		  (elmo-move-msgs folder
+				  refile-list
+				  dst-folder
+				  msgdb
+				  nil nil t
+				  copy-reserve-message
+				  preserve-number))
+	  (error "expire: move msgs to %s failed" dst-folder))
+	(wl-expire-append-log folder refile-list dst-folder
+			   (if copy-reserve-message 'copy 'move))
+	(setq copy-len (length refile-list))
+	(when copy-reserve-message
+	  (setq refile-list
+		(wl-expire-delete-reserve-marked-msgs-from-list
+		 refile-list 
+		 mark-alist))
+	  (when refile-list 
+	   (if (setq ret-val
+		    (elmo-delete-msgs folder
+				      refile-list
+				      msgdb))
+	      (progn
+		(elmo-msgdb-delete-msgs folder
+					refile-list
+					msgdb
+					t)
+		(wl-expire-append-log folder refile-list nil 'delete))))))
+      (let ((mes (format "Expiring (move %s) %s msgs..."
+			 dst-folder (length refile-list))))
+	(if ret-val
+	    (message (concat mes "done"))
+	  (error (concat mes "failed!"))))
+      (cons refile-list copy-len))))
+
+(defun wl-expire-archive-get-folder (src-folder &optional fmt)
+  "Get archive folder name from src-folder."
+  (let* ((spec (elmo-folder-get-spec src-folder))
+	 (fmt (or fmt wl-expire-archive-folder-name-fmt))
+	 (archive-spec (char-to-string
+			(car (rassq 'archive elmo-spec-alist))))
+	 dst-folder-base dst-folder-fmt prefix)
+    (cond ((eq (car spec) 'localdir)
+	   (setq dst-folder-base (concat archive-spec (nth 1 spec))))
+	  ((stringp (nth 1 spec))
+	   (setq dst-folder-base
+		 (elmo-concat-path (format "%s%s" archive-spec (car spec))
+				   (nth 1 spec))))
+	  (t
+	   (setq dst-folder-base
+		 (elmo-concat-path (format "%s%s" archive-spec (car spec))
+				   (elmo-replace-msgid-as-filename 
+				    src-folder)))))
+    (setq dst-folder-fmt (format fmt
+				 dst-folder-base
+				 wl-expire-archive-folder-type))
+    (setq dst-folder-base (format "%s;%s"
+				  dst-folder-base
+				  wl-expire-archive-folder-type))
+    (when (and wl-expire-archive-folder-prefix
+	       (stringp (nth 1 spec)))
+      (cond ((eq wl-expire-archive-folder-prefix 'short)
+	     (setq prefix (file-name-nondirectory (nth 1 spec))))
+	    (t
+	     (setq prefix (nth 1 spec))))
+      (setq dst-folder-fmt (concat dst-folder-fmt ";" prefix))
+      (setq dst-folder-base (concat dst-folder-base ";" prefix)))
+    (cons dst-folder-base dst-folder-fmt)))
+
+(defsubst wl-expire-archive-get-max-number (dst-folder-base &optional regexp)
+  (let ((files (reverse (sort (elmo-list-folders dst-folder-base)
+			      'string<)))
+	(regexp (or regexp wl-expire-archive-folder-num-regexp))
+	filenum in-folder)
+    (catch 'done
+      (while files
+	(when (string-match regexp (car files))
+	  (setq filenum (elmo-match-string 1 (car files)))
+	  (setq in-folder (elmo-max-of-folder (car files)))
+	  (throw 'done (cons in-folder filenum)))
+	(setq files (cdr files))))))
+
+(defun wl-expire-archive-number-delete-old (dst-folder-base
+					    preserve-number msgs mark-alist
+					    &optional no-confirm regexp file)
+  (let ((len 0) (max-num 0)
+	folder-info dels)
+    (if (or (and file (setq folder-info
+			    (cons (elmo-max-of-folder file) nil)))
+	    (setq folder-info (wl-expire-archive-get-max-number dst-folder-base
+								regexp)))
+	(progn
+	  (setq len (cdar folder-info))
+	  (when preserve-number
+	    ;; delete small number than max number of dst-folder
+	    (setq max-num (caar folder-info))
+	    (while (and msgs (>= max-num (car msgs)))
+	      (wl-append dels (list (car msgs)))
+	      (setq msgs (cdr msgs)))
+	    (setq dels (wl-expire-delete-reserve-marked-msgs-from-list
+			dels mark-alist))
+	    (unless (and dels
+			 (or (or no-confirm (not wl-expire-delete-oldmsg-confirm))
+			     (progn
+			       (if (eq major-mode 'wl-summary-mode)
+				   (wl-thread-jump-to-msg (car dels)))
+			       (y-or-n-p (format "Delete old messages %s? "
+						 dels)))))
+	      (setq dels nil)))
+	  (list msgs dels max-num (cdr folder-info) len))
+      (list msgs dels 0 "0" 0))))
+
+(defun wl-expire-archive-number1 (folder delete-list msgdb
+					 &optional preserve-number no-delete)
+  "Standard function for `wl-summary-expire'.
+Refile to archive folder followed message number."
+  (let* ((elmo-archive-treat-file t)	;; treat archive folder as a file.
+	 (dst-folder-fmt (funcall
+			  wl-expire-archive-get-folder-func folder))
+	 (dst-folder-base (car dst-folder-fmt))
+	 (dst-folder-fmt (cdr dst-folder-fmt))
+	 (refile-func (if no-delete
+			  'wl-expire-refile
+			'wl-expire-refile-with-copy-reserve-msg))
+	 tmp dels dst-folder
+	 prev-arcnum arcnum msg arcmsg-list
+	 deleted-list ret-val)
+    (setq tmp (wl-expire-archive-number-delete-old
+	       dst-folder-base preserve-number delete-list
+	       (elmo-msgdb-get-mark-alist msgdb)
+	       no-delete))
+    (when (and (not no-delete)
+	       (setq dels (nth 1 tmp)))
+      (wl-append deleted-list (car (wl-expire-delete folder dels msgdb))))
+    (setq delete-list (car tmp))
+    (catch 'done
+      (while t
+	(if (setq msg (wl-pop delete-list))
+	    (setq arcnum (/ msg wl-expire-archive-files))
+	  (setq arcnum nil))
+	(when (and prev-arcnum
+		   (not (eq arcnum prev-arcnum)))
+	  (setq dst-folder (format dst-folder-fmt
+				   (* prev-arcnum wl-expire-archive-files)))
+	  (and (setq ret-val
+		     (funcall
+		      refile-func
+		      folder arcmsg-list msgdb dst-folder t preserve-number
+		      no-delete))
+	       (wl-append deleted-list (car ret-val)))
+	  (setq arcmsg-list nil))
+	(if (null msg)
+	    (throw 'done t))
+	(wl-append arcmsg-list (list msg))
+	(setq prev-arcnum arcnum)))
+    deleted-list
+    ))
+
+(defun wl-expire-archive-number2 (folder delete-list msgdb
+					 &optional preserve-number no-delete)
+  "Standard function for `wl-summary-expire'.
+Refile to archive folder followed the number of message in one archive folder."
+  (let* ((elmo-archive-treat-file t)	;; treat archive folder as a file.
+	 (dst-folder-fmt (funcall
+			  wl-expire-archive-get-folder-func folder))
+	 (dst-folder-base (car dst-folder-fmt))
+	 (dst-folder-fmt (cdr dst-folder-fmt))
+	 (refile-func (if no-delete
+			  'wl-expire-refile
+			'wl-expire-refile-with-copy-reserve-msg))
+	 (len 0) (filenum 0)
+	 tmp dels dst-folder
+	 arc-len msg arcmsg-list
+	 deleted-list ret-val)
+    (setq tmp (wl-expire-archive-number-delete-old
+	       dst-folder-base preserve-number delete-list
+	       (elmo-msgdb-get-mark-alist msgdb)
+	       no-delete))
+    (when (and (not no-delete)
+	       (setq dels (nth 1 tmp)))
+      (wl-append deleted-list (car (wl-expire-delete folder dels msgdb))))
+    (setq delete-list (car tmp)
+	  filenum (string-to-int (nth 3 tmp))
+	  len (nth 4 tmp)
+	  arc-len len)
+    (catch 'done
+      (while t
+	(if (setq msg (wl-pop delete-list))
+	    (setq len (1+ len))
+	  (setq len (1+ wl-expire-archive-files)))
+	(when (> len wl-expire-archive-files)
+	  (when arcmsg-list
+	    (setq dst-folder (format dst-folder-fmt filenum))
+	    (and (setq ret-val
+		       (funcall
+			refile-func
+			folder arcmsg-list msgdb dst-folder t preserve-number
+			no-delete))
+		 (wl-append deleted-list (car ret-val)))
+	    (setq arc-len (+ arc-len (cdr ret-val))))
+	  (setq arcmsg-list nil)
+	  (if (< arc-len wl-expire-archive-files)
+	      (setq len (1+ arc-len))
+	    (setq filenum (+ filenum wl-expire-archive-files)
+		  len (- len arc-len)	;; maybe 1
+		  arc-len (1- len)	;; maybe 0
+		  )))
+	(if (null msg)
+	    (throw 'done t))
+	(wl-append arcmsg-list (list msg))))
+    deleted-list
+    ))
+
+(defun wl-expire-archive-date (folder delete-list msgdb
+				      &optional preserve-number no-delete)
+  "Standard function for `wl-summary-expire'.
+Refile to archive folder followed message date."
+  (let* ((elmo-archive-treat-file t)	;; treat archive folder as a file.
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (overview (elmo-msgdb-get-overview msgdb))
+	 (dst-folder-fmt (funcall
+			  wl-expire-archive-get-folder-func
+			  folder
+			  wl-expire-archive-date-folder-name-fmt
+			  ))
+	 (dst-folder-base (car dst-folder-fmt))
+	 (dst-folder-fmt (cdr dst-folder-fmt))
+	 (refile-func (if no-delete
+			  'wl-expire-refile
+			'wl-expire-refile-with-copy-reserve-msg))
+	 tmp dels dst-folder date time
+	 msg arcmsg-alist arcmsg-list
+	 deleted-list ret-val)
+    (setq tmp (wl-expire-archive-number-delete-old
+	       dst-folder-base preserve-number delete-list
+	       (elmo-msgdb-get-mark-alist msgdb)
+	       no-delete
+	       wl-expire-archive-date-folder-num-regexp))
+    (when (and (not no-delete)
+	       (setq dels (nth 1 tmp)))
+      (wl-append deleted-list (car (wl-expire-delete folder dels msgdb))))
+    (setq delete-list (car tmp))
+    (while (setq msg (wl-pop delete-list))
+      (setq date (elmo-msgdb-overview-entity-get-date
+		  (assoc (cdr (assq msg number-alist)) overview)))
+      (setq time
+	    (condition-case nil
+		(timezone-fix-time date nil nil)
+	      (error [0 0 0 0 0 0 0])))
+      (if (= (aref time 1) 0)	;; if (month == 0)
+	  (aset time 0 0))	;;    year = 0
+      (setq dst-folder (format dst-folder-fmt
+			       (aref time 0)  ;; year
+			       (aref time 1)  ;; month
+			       ))
+      (setq arcmsg-alist
+	    (wl-append-assoc-list
+	     dst-folder
+	     msg
+	     arcmsg-alist)))
+    (while arcmsg-alist
+      (setq dst-folder (caar arcmsg-alist))
+      (setq arcmsg-list (cdar arcmsg-alist))
+      (and (setq ret-val
+		 (funcall
+		  refile-func
+		  folder arcmsg-list msgdb dst-folder t preserve-number
+		  no-delete))
+	   (wl-append deleted-list (car ret-val)))
+      (setq arcmsg-alist (cdr arcmsg-alist)))
+    deleted-list
+    ))
+
+(defsubst wl-expire-folder-p (folder)
+  (wl-get-assoc-list-value wl-expire-alist folder))
+
+(defun wl-summary-expire (&optional folder-name notsummary nolist)
+  (interactive)
+  (let ((folder (or folder-name wl-summary-buffer-folder-name))
+	(alist wl-expire-alist)
+	expires)
+    (when (and (or (setq expires (wl-expire-folder-p folder))
+		   (progn (and (interactive-p)
+			       (message "no match %s in wl-expire-alist" 
+					folder))
+			  nil))
+	       (or (not (interactive-p))
+		   (y-or-n-p (format "Expire %s? " folder))))
+      (let* ((msgdb (or wl-summary-buffer-msgdb
+			(elmo-msgdb-load folder)))
+	     (number-alist (elmo-msgdb-get-number-alist msgdb))
+	     (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	     expval rm-type val-type value more args
+	     delete-list)
+	(save-excursion
+	  (setq expval (car expires)
+		rm-type (nth 1 expires)
+		args (cddr expires))
+	  (setq val-type (car expval)
+		value (nth 1 expval)
+		more (nth 2 expval))
+	  (run-hooks 'wl-summary-expire-pre-hook)
+	  (cond
+	   ((eq val-type nil))
+	   ((eq val-type 'number)
+	    (let* ((msgs (if (not nolist)
+			     (elmo-list-folder folder)
+			   (mapcar 'car number-alist)))
+		   (msglen (length msgs))
+		   (more (or more (1+ value)))
+		   count)
+	      (when (>= msglen more)
+		(setq count (- msglen value))
+		(while (and msgs (> count 0))
+		  (when (assq (car msgs) number-alist) ;; don't expire new message
+		    (wl-append delete-list (list (car msgs)))
+		    (when (or (not wl-expire-number-with-reserve-marks)
+			      (wl-expire-msg-p (car msgs) mark-alist))
+		      (setq count (1- count))))
+		  (setq msgs (cdr msgs))))))
+	   ((eq val-type 'date)
+	    (let* ((overview (elmo-msgdb-get-overview msgdb))
+		   (key-date (elmo-date-get-offset-datevec 
+			      (timezone-fix-time (current-time-string)
+						 (current-time-zone) nil)
+			      value t)))
+	      (while overview
+		(when (wl-expire-date-p
+		       key-date
+		       (elmo-msgdb-overview-entity-get-date
+			(car overview)))
+		  (wl-append delete-list
+			     (list (elmo-msgdb-overview-entity-get-number
+				    (car overview)))))
+		(setq overview (cdr overview)))))
+	   (t
+	    (error "%s: not supported" val-type)))
+	  (when delete-list
+	    (or wl-expired-alist
+		(setq wl-expired-alist (wl-expired-alist-load)))
+	    (setq delete-list
+		  (cond ((eq rm-type nil) nil)
+			((eq rm-type 'remove)
+			 (car (wl-expire-delete folder delete-list msgdb)))
+			((eq rm-type 'trash)
+			 (car (wl-expire-refile folder delete-list msgdb wl-trash-folder)))
+			((stringp rm-type)
+			 (car (wl-expire-refile folder delete-list msgdb rm-type)))
+			((fboundp rm-type)
+			 (apply rm-type (append (list folder delete-list msgdb)
+						args)))
+			(t
+			 (error "%s: invalid type" rm-type))))
+	    (when (and (not notsummary) delete-list)
+	      (wl-summary-delete-messages-on-buffer delete-list)
+	      (wl-summary-folder-info-update)
+	      (wl-summary-set-message-modified)
+	      (wl-summary-set-mark-modified)
+	      (sit-for 0)
+	      (set-buffer-modified-p nil))
+	    (wl-expired-alist-save))
+	  (run-hooks 'wl-summary-expire-hook)
+	  (if delete-list
+	      (message "Expiring %s is done" folder)
+	    (and (interactive-p)
+		 (message "No expire"))))
+	delete-list
+	))))
+
+(defun wl-folder-expire-entity (entity)
+  (cond
+   ((consp entity)
+    (let ((flist (nth 2 entity)))
+      (while flist
+	(wl-folder-expire-entity (car flist))
+	(setq flist (cdr flist)))))
+   ((stringp entity)
+    (when (wl-expire-folder-p entity)
+      (let ((update-msgdb (cond
+			   ((consp wl-expire-folder-update-msgdb)
+			    (wl-string-match-member
+			     entity
+			     wl-expire-folder-update-msgdb))
+			   (t
+			    wl-expire-folder-update-msgdb)))
+	    (wl-summary-highlight (if (or (wl-summary-sticky-p entity)
+					  (wl-summary-always-sticky-folder-p
+					   entity))
+				      wl-summary-highlight))
+	    wl-auto-select-first ret-val)
+	(save-window-excursion
+	  (save-excursion
+	    (and update-msgdb
+		 (wl-summary-goto-folder-subr entity 'force-update nil))
+	    (setq ret-val (wl-summary-expire entity (not update-msgdb)))
+	    (if update-msgdb
+		(wl-summary-save-status 'keep)
+	      (if ret-val
+		  (wl-folder-check-entity entity))))))))))
+
+;; Command
+
+(defun wl-folder-expire-current-entity ()
+  (interactive)
+  (let ((entity-name
+	 (or (wl-folder-get-folder-name-by-id
+	      (get-text-property (point) 'wl-folder-entity-id))
+	     (wl-folder-get-realname (wl-folder-folder-name)))))
+    (when (and entity-name
+	       (or (not (interactive-p))
+		   (y-or-n-p (format "Expire %s? " entity-name))))
+      (wl-folder-expire-entity
+       (wl-folder-search-entity-by-name entity-name
+					wl-folder-entity))
+      (if (get-buffer wl-summary-buffer-name)
+	  (kill-buffer wl-summary-buffer-name))
+      (message "Expiring %s is done" entity-name))))
+
+;;; Archive
+
+(defun wl-folder-archive-current-entity ()
+  (interactive)
+  (let ((entity-name
+	 (or (wl-folder-get-folder-name-by-id
+	      (get-text-property (point) 'wl-folder-entity-id))
+	     (wl-folder-get-realname (wl-folder-folder-name)))))
+    (when (and entity-name
+	       (or (not (interactive-p))
+		   (y-or-n-p (format "Archive %s? " entity-name))))
+      (wl-folder-archive-entity
+       (wl-folder-search-entity-by-name entity-name
+					wl-folder-entity))
+      (message "Archiving %s is done" entity-name))))
+
+(defun wl-archive-number1 (folder archive-list msgdb)
+  (wl-expire-archive-number1 folder archive-list msgdb t t))
+
+(defun wl-archive-number2 (folder archive-list msgdb)
+  (wl-expire-archive-number2 folder archive-list msgdb t t))
+
+(defun wl-archive-date (folder archive-list msgdb)
+  (wl-expire-archive-date folder archive-list msgdb t t))
+
+(defun wl-archive-folder (folder archive-list msgdb dst-folder)
+  (let* ((elmo-archive-treat-file t)	;; treat archive folder as a file.
+	 copied-list ret-val)
+    (setq archive-list
+	  (car (wl-expire-archive-number-delete-old
+		nil t archive-list
+		(elmo-msgdb-get-mark-alist msgdb)
+		t ;; no-confirm
+		nil dst-folder)))
+    (when archive-list
+      (and (setq ret-val
+		 (wl-expire-refile
+		  folder archive-list msgdb dst-folder t t t)) ;; copy!!
+	   (wl-append copied-list ret-val)))
+    copied-list
+    ))
+
+(defun wl-summary-archive (&optional arg folder-name notsummary nolist)
+  (interactive "P")
+  (let* ((folder (or folder-name wl-summary-buffer-folder-name))
+	 (msgdb (or wl-summary-buffer-msgdb
+		    (elmo-msgdb-load folder)))
+	 (msgs (if (not nolist)
+		   (elmo-list-folder folder)
+		 (mapcar 'car (elmo-msgdb-get-number-alist msgdb))))
+	 (alist wl-archive-alist)
+	 func dst-folder archive-list)
+    (if arg
+	(let ((wl-default-spec (char-to-string
+				(car (rassq 'archive elmo-spec-alist)))))
+	  (setq dst-folder (wl-summary-read-folder
+			    (concat wl-default-spec (substring folder 1))
+			    "for archive"))))
+    (run-hooks 'wl-summary-archive-pre-hook)
+    (if dst-folder
+	(wl-archive-folder folder msgs msgdb dst-folder)
+      (when (and (catch 'match
+		   (while alist
+		     (when (string-match (caar alist) folder)
+		       (setq func (cadar alist))
+		       (throw 'match t))
+		     (setq alist (cdr alist)))
+		   (and (interactive-p)
+			(message "No match %s in wl-archive-alist" folder))
+		   (throw 'match nil))
+		 (or (not (interactive-p))
+		     (y-or-n-p (format "Archive %s? " folder))))
+	(setq archive-list
+	      (funcall func folder msgs msgdb))
+	(run-hooks 'wl-summary-archive-hook)
+	(if archive-list
+	    (message "Archiving %s is done" folder)
+	  (and (interactive-p)
+	       (message "No archive")))))))
+
+(defun wl-folder-archive-entity (entity)
+  (cond
+   ((consp entity)
+    (let ((flist (nth 2 entity)))
+      (while flist
+	(wl-folder-archive-entity (car flist))
+	(setq flist (cdr flist)))))
+   ((stringp entity)
+    (wl-summary-archive nil entity t))))
+
+;; append log
+
+(defun wl-expire-append-log (src-folder msgs dst-folder action)
+  (when wl-expire-use-log
+    (save-excursion
+      (let ((tmp-buf (get-buffer-create " *wl-expire work*"))
+	    (filename (expand-file-name wl-expired-log-alist-file-name
+					elmo-msgdb-dir)))
+	(set-buffer tmp-buf)
+	(erase-buffer)
+	(if dst-folder
+	    (insert (format "%s\t%s -> %s\t%s\n"
+			    action
+			    src-folder dst-folder msgs))
+	  (insert (format "%s\t%s\t%s\n"
+			  action
+			  src-folder msgs)))
+	(if (file-writable-p filename)
+	    (write-region (point-min) (point-max) 
+			  filename t 'no-msg)
+	  (message (format "%s is not writable." filename)))
+	(kill-buffer tmp-buf)))))
+
+(provide 'wl-expire)
+
+;;; wl-expire.el ends here
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
new file mode 100644
index 0000000..d9f6c01
--- /dev/null
+++ b/wl/wl-fldmgr.el
@@ -0,0 +1,1388 @@
+;;; wl-fldmgr.el -- Folder manager for Wanderlust.
+
+;; Copyright 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;;                          Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:34:28 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'wl-folder)
+(require 'wl-summary)
+(require 'wl-highlight)
+(eval-when-compile
+  (require 'wl-util))
+
+;;; Global Variable
+
+(defvar wl-fldmgr-modified nil)
+(defvar wl-fldmgr-modified-access-list nil)
+(defvar wl-fldmgr-cut-entity-list nil)
+(defvar wl-fldmgr-entity-list nil)
+(defvar wl-fldmgr-group-insert-opened nil)
+
+(defconst wl-fldmgr-folders-header
+  "#
+# Folder definition file
+# This file is generated automatically by %s %s (%s).
+#
+
+")
+
+(defconst wl-fldmgr-filter-completion-alist
+  '(("/last:")
+    ("/first:")
+    ("/since:")
+    ("/before:")
+    ("/from=")
+    ("/subject=")
+    ("/date=")
+    ("/to=")
+    ("/cc=")
+    ("/tocc=")
+    ("/body=")))
+
+;;; Initial setup
+
+(defvar wl-fldmgr-mode-map nil)
+(if wl-fldmgr-mode-map
+    nil
+  (define-prefix-command 'wl-fldmgr-mode-map)
+  (define-key wl-fldmgr-mode-map "\C-s"   'wl-fldmgr-save-folders)
+  (define-key wl-fldmgr-mode-map "m"      'wl-fldmgr-make-multi)
+  (define-key wl-fldmgr-mode-map "g"      'wl-fldmgr-make-group)
+  (define-key wl-fldmgr-mode-map "A"      'wl-fldmgr-make-access-group)
+  (define-key wl-fldmgr-mode-map "f"      'wl-fldmgr-make-filter)
+  (define-key wl-fldmgr-mode-map "p"      'wl-fldmgr-set-petname)
+  (define-key wl-fldmgr-mode-map "a"      'wl-fldmgr-add)
+  (define-key wl-fldmgr-mode-map "d"      'wl-fldmgr-delete)
+  (define-key wl-fldmgr-mode-map "R"      'wl-fldmgr-rename)
+  (define-key wl-fldmgr-mode-map "c"      'wl-fldmgr-copy)
+  (define-key wl-fldmgr-mode-map "k"      'wl-fldmgr-cut)
+  (define-key wl-fldmgr-mode-map "W"      'wl-fldmgr-copy-region)
+  (define-key wl-fldmgr-mode-map "\C-w"   'wl-fldmgr-cut-region)
+  (define-key wl-fldmgr-mode-map "y"      'wl-fldmgr-yank)
+  (define-key wl-fldmgr-mode-map "s"      'wl-fldmgr-sort)
+  (define-key wl-fldmgr-mode-map "l"      'wl-fldmgr-access-display-normal)
+  (define-key wl-fldmgr-mode-map "L"      'wl-fldmgr-access-display-all)
+  (define-key wl-fldmgr-mode-map "q"      'wl-fldmgr-clear-cut-entity-list)
+  (define-key wl-fldmgr-mode-map "r"      'wl-fldmgr-reconst-entity-hashtb)
+  (define-key wl-fldmgr-mode-map "u"      'wl-fldmgr-unsubscribe)
+  (define-key wl-fldmgr-mode-map "U"      'wl-fldmgr-unsubscribe-region))
+
+(add-hook 'wl-folder-mode-hook 'wl-fldmgr-init)
+
+(defun wl-fldmgr-init ()
+  (setq wl-fldmgr-cut-entity-list nil)
+  (setq wl-fldmgr-modified nil)
+  (setq wl-fldmgr-modified-access-list nil))
+
+(defun wl-fldmgr-exit ()
+  (when (and wl-fldmgr-modified
+	     (or (not wl-interactive-save-folders)
+		 (y-or-n-p "Folder view was modified. Save current folders? ")))
+    (wl-fldmgr-save-folders)))
+
+;;; Macro and misc Function
+;;
+
+(defmacro wl-fldmgr-delete-line ()
+  (` (delete-region (save-excursion (beginning-of-line)
+				    (point))
+		    (save-excursion (end-of-line)
+				    (+ 1 (point))))))
+
+(defmacro wl-fldmgr-make-indent (level)
+  (` (concat " " (make-string (* 2 (, level)) ? ))))
+
+(defmacro wl-fldmgr-get-entity-id (&optional entity)
+  (` (get-text-property (if (, entity)
+			    0
+			  (point))
+			'wl-folder-entity-id
+			(, entity))))
+
+(defmacro wl-fldmgr-assign-id (entity &optional id)
+  (` (let ((entity-id (or (, id) wl-folder-entity-id)))
+       (put-text-property 0 (length (, entity))
+			  'wl-folder-entity-id 
+			  entity-id
+			  (, entity)))))
+
+(defsubst wl-fldmgr-read-string (str)
+  (if (string-match "\n" str)
+      (error "Not supported name: %s" str)
+    (elmo-string str)))
+
+(defsubst wl-fldmgr-add-modified-access-list (group)
+  (if (not (member group wl-fldmgr-modified-access-list))
+      (wl-append wl-fldmgr-modified-access-list (list group))))
+
+(defsubst wl-fldmgr-delete-modified-access-list (group)
+  (if (member group wl-fldmgr-modified-access-list)
+      (setq wl-fldmgr-modified-access-list
+	    (delete group wl-fldmgr-modified-access-list))))
+
+(defsubst wl-fldmgr-add-group (group)
+  (or (assoc group wl-folder-group-alist)
+      (wl-append wl-folder-group-alist
+		 (list (cons group
+			     wl-fldmgr-group-insert-opened)))))
+
+(defsubst wl-fldmgr-delete-group (group)
+  (wl-fldmgr-delete-modified-access-list group)
+  (setq wl-folder-group-alist
+	(delete (assoc group wl-folder-group-alist)
+		wl-folder-group-alist)))
+
+(defun wl-fldmgr-add-entity-hashtb (entities)
+  "update `wl-folder-entity-hashtb', `wl-folder-newsgroups-hashtb'.
+return value is diffs '(new unread all)."
+  (let* ((new-diff 0)
+	 (unread-diff 0)
+	 (all-diff 0)
+	 val entity entity-stack)
+    (setq wl-folder-newsgroups-hashtb
+	  (or (wl-folder-create-newsgroups-hashtb entities t)
+	      wl-folder-newsgroups-hashtb))
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(wl-fldmgr-add-group (car entity))
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(if (not (setq val (wl-folder-get-entity-info entity)))
+	    (wl-folder-set-entity-info entity nil)
+	  (setq new-diff    (+ new-diff    (or (nth 0 val) 0)))
+	  (setq unread-diff (+ unread-diff (or (nth 1 val) 0)))
+	  (setq all-diff    (+ all-diff    (or (nth 2 val) 0))))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    (setq unread-diff (+ unread-diff new-diff))
+    (list new-diff unread-diff all-diff)))
+
+(defun wl-fldmgr-delete-entity-hashtb (entities &optional clear)
+  "update `wl-folder-entity-hashtb'.
+return value is diffs '(-new -unread -all)."
+  (let* ((new-diff 0)
+	 (unread-diff 0)
+	 (all-diff 0)
+	 entity val
+	 entity-stack)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(wl-fldmgr-delete-group (car entity))
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(when (setq val (wl-folder-get-entity-info entity))
+	  (setq new-diff    (+ new-diff    (or (nth 0 val) 0)))
+	  (setq unread-diff (+ unread-diff (or (nth 1 val) 0)))
+	  (setq all-diff    (+ all-diff    (or (nth 2 val) 0)))
+	  (and clear (wl-folder-clear-entity-info entity)))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    (setq unread-diff (+ unread-diff new-diff))
+    (list (- 0 new-diff) (- 0 unread-diff) (- 0 all-diff))))
+
+;; return value
+;; example: '(("Desktop" group) ("+ml" access) "+ml/wl")
+
+(defun wl-fldmgr-get-path (entity target-entity &optional group-target)
+  (let* ((target-id (wl-fldmgr-get-entity-id target-entity))
+	 (entities (list entity))
+	 entity-stack result-path)
+    (reverse
+     (catch 'done
+       (while entities
+	 (setq entity (wl-pop entities))
+	 (cond
+	  ((consp entity)
+	   (if (and (string= target-entity (car entity))
+		    (eq target-id (wl-fldmgr-get-entity-id (car entity))))
+	       (throw 'done
+		      (wl-push (if group-target
+				   (car entity)
+				 (list (car entity) (nth 1 entity)))
+			       result-path))
+	     (wl-push (list (car entity) (nth 1 entity))
+		      result-path))
+	   (wl-push entities entity-stack)
+	   (setq entities (nth 2 entity)))
+	  ((stringp entity)
+	   (if (and (string= target-entity entity)
+		    (eq target-id (wl-fldmgr-get-entity-id entity)))
+	       (throw 'done
+		      (wl-push entity result-path)))))
+	 (unless entities
+	   (while (and entity-stack
+		       (not entities))
+	     (setq result-path (cdr result-path))
+	     (setq entities (wl-pop entity-stack)))))))))
+
+;; (defun wl-fldmgr-get-previous-entity (entity key-id)
+;;   (cdr (wl-fldmgr-get-previous-entity-internal '(nil . nil) entity key-id)))
+;; 
+;; (defun wl-fldmgr-get-previous-entity-internal (result entity key-id)
+;;   (cond
+;;    ((stringp entity)
+;;     (if (eq key-id (wl-fldmgr-get-entity-id entity))
+;; 	(cons t result)
+;;       (cons nil (cons entity entity))))
+;;    ((consp entity)
+;;     (if (eq key-id (wl-fldmgr-get-entity-id (car entity)))
+;; 	(cons t result)
+;;       (setcar result (car entity))
+;;       (let ((flist (nth 2 entity))
+;; 	    return found)
+;; 	(while (and flist (not found))
+;; 	  (if (car (setq return
+;; 			 (wl-fldmgr-get-previous-entity-internal
+;; 			  result (car flist) key-id)))
+;; 	      (setq found t))
+;; 	  (setq result (cdr return))
+;; 	  (setq flist (cdr flist)))
+;; 	(cons found result))))))
+
+;; path is get `wl-fldmgr-get-path-from-buffer'.
+(defun wl-fldmgr-update-group (path diffs)
+  (save-excursion
+    (while (and path (consp (car path)))
+      (if (string= (caar path) wl-folder-desktop-name) ; update desktop
+	  (progn
+	    (goto-char (point-min))
+	    (wl-folder-update-diff-line diffs))
+	;; goto the path line.
+	(goto-char (point-min))
+	(if (wl-folder-buffer-search-group
+	     (wl-folder-get-petname (caar path)))
+	    (wl-folder-update-diff-line diffs)))
+      (setq path (cdr path)))))
+
+;;; Function for wl-folder-entity
+;;
+
+;; usage:
+;; (wl-delete-entity '(("Desktop") ("ML") "+ml/wl") '("+ml/wl") wl-folder-entity)
+;; (wl-delete-entity '(("Desktop") "ML") '("+inbox" "ML") wl-folder-entity)
+;; (wl-delete-entity '(("Desktop") "ML") nil wl-folder-entity)
+
+(defun wl-delete-entity (key-path delete-list entity &optional clear)
+  (let (wl-fldmgr-entity-list)
+    (when (and (string= (caar key-path) (car entity))
+	       (wl-delete-entity-sub (cdr key-path) delete-list entity clear))
+      ;; return value is non-nil (diffs)
+      (wl-fldmgr-delete-entity-hashtb wl-fldmgr-entity-list clear))))
+
+(defun wl-delete-entity-sub (key-path delete-list entity clear)
+  (let ((flist (nth 2 entity))
+	(key (car key-path))
+	next)
+    (cond
+     ((consp key);; into group
+      (if (setq next (assoc (car key) flist))
+	  (wl-delete-entity-sub (cdr key-path)
+				delete-list
+				next
+				clear)
+	;; not found
+	nil))
+     ((stringp key) ;; delete entities
+      (if (not delete-list)
+	  (setq delete-list (list key)))
+      (let* ((group (car entity))
+	     (access (eq (nth 1 entity) 'access))
+	     (unsubscribes (and access (nth 3 entity)))
+	     (update t)
+	     cut-entity is-group)
+	(catch 'done
+	  (while delete-list
+	    (setq key (car delete-list))
+	    (cond ((member key flist);; entity
+		   (setq flist (delete key flist))
+		   (unless clear
+		     (wl-push key wl-fldmgr-cut-entity-list))
+		   (wl-append wl-fldmgr-entity-list (list key))
+		   (setq is-group nil))
+		  ((setq cut-entity (assoc key flist));; group
+		   (setq flist (delete cut-entity flist))
+		   (unless clear
+		     (wl-push cut-entity wl-fldmgr-cut-entity-list))
+		   (wl-append wl-fldmgr-entity-list (list cut-entity))
+		   (setq is-group t))
+		  (t
+		   ;; not found
+		   (message "%s not found" key)
+		   (setq update nil)
+		   (throw 'done t)))
+	    (when access
+	      (if is-group
+		  (wl-append unsubscribes
+			     (list (list (elmo-string key) 'access nil)))
+		(wl-append unsubscribes (list (elmo-string key)))))
+	    (setq delete-list (cdr delete-list))))
+	(when update
+	  (setcdr (cdr entity) (list flist unsubscribes))
+	  (when access
+	    (wl-fldmgr-add-modified-access-list group))
+	  t
+	  ))))))
+
+;; usage:
+;; (wl-add-entity '(("Desktop") ("ML") "ml/wl") '("+ml/new") wl-folder-entity 12)
+;; (wl-add-entity '(("Desktop") "ML") '("+ml/new")  wl-folder-entity 10)
+
+(defun wl-add-entity (key-path new entity prev-entity-id &optional errmes)
+  (when (string= (caar key-path) (car entity))
+    (mapcar
+     '(lambda (ent)
+	(wl-folder-entity-assign-id
+	 ent
+	 wl-folder-entity-id-name-hashtb
+	 t))
+     new)
+    (when (wl-add-entity-sub (cdr key-path) new entity errmes)
+      ;; return value is non-nil (diffs)
+      (wl-fldmgr-add-entity-hashtb new))))
+
+(defun wl-add-entity-sub (key-path new entity &optional errmes)
+  (let ((flist (nth 2 entity))
+	entry)
+    (catch 'success
+      (cond
+       ((consp (car key-path));; into group
+	(if (setq entry (assoc (caar key-path) flist))
+	    (if (not (wl-add-entity-sub (cdr key-path)
+					new
+					entry
+					errmes))
+		(throw 'success nil))
+	  (and errmes (message "%s not found" (caar key-path)))
+	  (throw 'success nil)))
+       (t;; insert entities
+	(let* ((new2 new)
+	       (group (car entity))
+	       (access (eq (nth 1 entity) 'access))
+	       (unsubscribes (and access (nth 3 entity))))
+	  ;; check
+	  (while new2
+	    (cond
+	     ((stringp (car new2)) ;; folder
+	      (cond
+	       ((wl-string-member (car new2) flist)
+		(and errmes (message "%s: already exists" (car new2)))
+		(throw 'success nil))
+	       ((and access
+		     (not (wl-string-member (car new2) unsubscribes)))
+		(and errmes (message "%s: not access group folder" (car new2)))
+		(throw 'success nil))))
+	     (t			   ;; group
+	      (when (and access
+			 (not (wl-string-assoc (caar new2) unsubscribes)))
+		(and errmes (message "%s: can't insert access group"
+				     (caar new2)))
+		(throw 'success nil))))
+	    (setq new2 (cdr new2)))
+	  ;; do it
+	  (when access
+	    ;; remove from unsubscribe
+	    (mapcar
+	     '(lambda (x)
+		(cond
+		 ((consp x)
+		  (setq unsubscribes
+			(delete (wl-string-assoc (car x) unsubscribes)
+				unsubscribes)))
+		 (t
+		  (setq unsubscribes (delete (elmo-string x) unsubscribes)))))
+	     new)
+;;	    (setq new2 new)
+;; 	    (while new2
+;; 	      (setq unsubscribes (delete (elmo-string (car new2)) unsubscribes))
+;; 	      (setq new2 (cdr new2)))
+ 	    (setcdr (cddr entity) (list unsubscribes))
+	    (wl-fldmgr-add-modified-access-list group))
+	  (if (not key-path);; insert group top
+	      (if (cddr entity)
+		  (setcar (cddr entity) (append new flist))
+		(setcdr (cdr entity) (list new)))
+	    (let (akey)
+	      (if (catch 'done
+		    (while flist
+		      (setq akey (car flist))
+		      (cond ((consp akey);; group
+			     (if (equal (car key-path) (car akey))
+				 (throw 'done t)))
+			    (t
+			     (if (equal (car key-path) akey)
+				 (throw 'done t))))
+		      (setq flist (cdr flist))))
+		  (setcdr flist (append new (cdr flist)))
+		(and errmes (message "%s not found" (car key-path)))
+		(throw 'success nil)))))))
+      (throw 'success t))))
+
+;; return value is
+;; (path indent-level (group . type) previous-entity-id target-entity)
+;; previous-entity-id is (id-name-alist-prev-id . entity-alist-prev-id)
+;; example: 
+;; '((("Desktop" group) ("ML" group) "+ml/wl") '(3 2) ("ML" . group) nil "+ml/wl")
+
+(defun wl-fldmgr-get-path-from-buffer (&optional prev)
+  (let ((indent-level 0)
+	(group-target t)
+	folder-path group-type previous-entity entity)
+    (save-excursion
+      (beginning-of-line)
+      (when prev
+;; 	(wl-folder-next-entity-skip-invalid t)
+;; 	(and (setq previous-entity
+;; 		   (wl-fldmgr-get-previous-entity wl-folder-entity
+;; 						  (wl-fldmgr-get-entity-id)))
+;; 	     ;; change entity to id
+;; 	     (setq previous-entity
+;; 		   (cons
+;; 		    (and (car previous-entity)
+;; 			 (wl-fldmgr-get-entity-id (car previous-entity)))
+;; 		    (and (cdr previous-entity)
+;; 			 (wl-fldmgr-get-entity-id (cdr previous-entity))))))
+	(wl-folder-prev-entity-skip-invalid))
+      (if (and prev
+	       (looking-at wl-folder-group-regexp)
+	       (string= (wl-match-buffer 2) "-"))
+	  (setq group-target nil)
+	(if (and prev (bobp))
+	    (error "out of desktop group")))
+      (setq folder-path (wl-fldmgr-get-path wl-folder-entity
+					    (wl-folder-get-entity-from-buffer)
+					    ;;(wl-fldmgr-get-entity-id)
+					    group-target))
+      (let ((fp folder-path))
+	(while fp
+	  (if (consp (car fp))
+	      (progn
+		(setq indent-level (1+ indent-level))
+		(setq group-type (cons (caar fp) (nth 1 (car fp)))))
+	    (setq entity (car fp)))
+	  (setq fp (cdr fp))))
+      (list folder-path indent-level group-type previous-entity entity))))
+
+;;; Command
+;;
+
+(defun wl-fldmgr-clear-cut-entity-list ()
+  (interactive)
+  (setq wl-fldmgr-cut-entity-list nil)
+  (message "Cleared cut entity list"))
+
+(defun wl-fldmgr-reconst-entity-hashtb (&optional arg nomes)
+  (interactive "P")
+  (or nomes (message "Reconstructing entity alist..."))
+  (when (not arg)
+    (setq wl-folder-entity-id 0)
+    (wl-folder-entity-assign-id wl-folder-entity))
+  (setq wl-folder-entity-hashtb
+	(wl-folder-create-entity-hashtb
+	 wl-folder-entity
+	 wl-folder-entity-hashtb
+	 t))
+  ;; reset property on buffer
+  (when (not arg)
+    (let ((inhibit-read-only t)
+	  (cur-point (point)))
+      (erase-buffer)
+      (wl-folder-insert-entity " " wl-folder-entity)
+      (goto-char cur-point)
+      (set-buffer-modified-p nil)))
+  (or nomes (message "Reconstructing entity alist...done")))
+
+
+(defun wl-fldmgr-cut-region ()
+  (interactive)
+  (let* ((p1 (region-beginning))
+	 (p2 (region-end))
+	 (r1 (progn
+	       (goto-char p1)
+	       (beginning-of-line)
+	       (point)))
+	 (r2 (progn
+	       (goto-char p2)
+	       (beginning-of-line)
+	       (point)))
+	 (from (min r1 r2))
+	 (to (max r1 r2))
+	 (count 0)
+	 (errmes nil)
+	 (cut-list nil)
+	 name pre-indent indent)
+    (catch 'err
+      (save-excursion
+	(goto-char from)
+	(and (looking-at "^\\([ ]*\\)")
+	     (setq pre-indent (wl-match-buffer 1)))
+	(while (< (point) to)
+	  (and (looking-at "^\\([ ]*\\)")
+	       (setq indent (wl-match-buffer 1)))
+	  (cond ((= (length pre-indent) (length indent))
+		 (setq pre-indent indent)
+		 (setq count (1+ count))
+		 (and (setq name (wl-folder-get-entity-from-buffer))
+		      (wl-append cut-list (list name)))
+		 (forward-line 1))
+		((< (length pre-indent) (length indent))
+		 (wl-folder-goto-bottom-of-current-folder pre-indent)
+		 (beginning-of-line))
+		(t
+		 (setq errmes "bad region")
+		 (throw 'err t))))
+	(unless (eq (point) to)
+	  (setq errmes "bad region")
+	  (throw 'err t)))
+      (save-excursion
+	(let ((count2 (length cut-list))
+	      tmp path ent diffs)
+	  (goto-char from)
+	  (save-excursion
+	    (wl-folder-next-entity-skip-invalid t)
+	    (setq tmp (wl-fldmgr-get-path-from-buffer)))
+	  (setq path (car tmp))
+	  (setq diffs
+		(wl-delete-entity path cut-list wl-folder-entity))
+	  (catch 'done
+	    (while (> count 0)
+	      (setq ent (looking-at wl-folder-entity-regexp))
+	      (if (not (wl-fldmgr-cut (and ent tmp)
+				      (and ent (pop cut-list))))
+		  (throw 'done nil))
+	      (setq count (1- count))))
+	  (if (> count2 0)
+	      (wl-push count2 wl-fldmgr-cut-entity-list))
+	  (if diffs
+	      (wl-fldmgr-update-group path diffs))
+	  t))
+      (throw 'err nil))
+    (if errmes
+	(message "%s" errmes))))
+
+(defun wl-fldmgr-cut (&optional tmp entity clear)
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (let ((ret-val nil)
+	  (inhibit-read-only t)
+	  path diffs)
+      (if (bobp)
+	  (message "Can't remove desktop group")
+	(or tmp (setq tmp (wl-fldmgr-get-path-from-buffer)))
+	(setq path (car tmp))
+	(if (not path)
+	    (if (not (eobp))
+		(wl-fldmgr-delete-line))   ;; unsubscribe or removed folder
+	  (if (not entity)
+	      (setq diffs
+		    (wl-delete-entity path nil wl-folder-entity clear)))
+	  (setq wl-fldmgr-modified t)
+	  ;;
+	  (if (looking-at wl-folder-group-regexp)
+	      ;; group
+	      (let (beg end indent opened)
+		(setq indent (wl-match-buffer 1))
+		(setq opened (wl-match-buffer 2))
+		(if (string= opened "+")
+		    (wl-fldmgr-delete-line)
+		  (setq beg (point))
+		  (end-of-line)
+		  (save-match-data
+		    (setq end
+			  (progn
+			    (wl-folder-goto-bottom-of-current-folder indent)
+			    (beginning-of-line)
+			    (point))))
+		  (delete-region beg end)))
+	    ;; entity
+	    (wl-fldmgr-delete-line))
+	  (if diffs
+	      (wl-fldmgr-update-group path diffs))
+	  (set-buffer-modified-p nil))
+	(setq ret-val t))
+      ret-val)))
+
+(defun wl-fldmgr-copy-region ()
+  (interactive)
+  (let* ((p1 (region-beginning))
+	 (p2 (region-end))
+	 (r1 (progn
+	       (goto-char p1)
+	       (beginning-of-line)
+	       (point)))
+	 (r2 (progn
+	       (goto-char p2)
+	       (beginning-of-line)
+	       (point)))
+	 (from (min r1 r2))
+	 (to (max r1 r2))
+	 (errmes nil)
+	 (cut-list nil)
+	 (count 0)
+	 name
+	 pre-indent indent)
+    (catch 'err
+      (save-excursion
+	(goto-char from)
+	(when (bobp)
+	  (setq errmes "can't copy desktop group")
+	  (throw 'err t))
+	(and (looking-at "^\\([ ]*\\)")
+	     (setq pre-indent (wl-match-buffer 1)))
+	(while (< (point) to)
+	  (and (looking-at "^\\([ ]*\\)")
+	       (setq indent (wl-match-buffer 1)))
+	  (if (looking-at wl-folder-group-regexp)
+	      (progn
+		(setq errmes "can't copy group folder")
+		(throw 'err t)))
+	  (cond ((= (length pre-indent) (length indent))
+		 (if (setq name (wl-folder-get-entity-from-buffer))
+		     (progn
+		       (setq pre-indent indent)
+		       (wl-push name cut-list)))
+		 (forward-line 1))
+		((< (length pre-indent) (length indent))
+		 (wl-folder-goto-bottom-of-current-folder pre-indent)
+		 (beginning-of-line))
+		(t
+		 (setq errmes "bad region")
+		 (throw 'err t))))
+	(unless (eq (point) to)
+	  (setq errmes "bad region")
+	  (throw 'err t)))
+      (catch 'done
+	(setq cut-list (reverse cut-list))
+	(while cut-list
+	  (setq name (pop cut-list))
+	  (unless (wl-fldmgr-copy name)
+	    (throw 'done nil))
+	  (setq count (1+ count)))
+	(wl-push count wl-fldmgr-cut-entity-list)
+	(message "Copy %s folders" count)
+	(throw 'err nil)))
+    (if errmes
+	(message "%s" errmes))))
+
+(defun wl-fldmgr-copy (&optional ename)
+  (interactive "P")
+  (save-excursion
+    (beginning-of-line)
+    (let ((ret-val nil))
+      (if (and (not ename)
+	       (looking-at wl-folder-group-regexp))
+	  (message "Can't copy group folder")
+	(let* ((name (or ename (wl-folder-get-entity-from-buffer)))
+	       (entity (elmo-string name)))
+	  (when name
+	    (if (member entity wl-fldmgr-cut-entity-list)
+		(setq wl-fldmgr-cut-entity-list
+		      (delete entity wl-fldmgr-cut-entity-list)))
+	    (wl-push entity wl-fldmgr-cut-entity-list)
+	    (or ename
+		(message "Copy: %s" name))
+	    (setq ret-val t))))
+      ret-val)))
+
+(defun wl-fldmgr-yank ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (if (bobp)
+	(message "Can't insert in the out of desktop group")
+      (let ((inhibit-read-only t)
+	    (top (car wl-fldmgr-cut-entity-list))
+	    tmp indent path count new
+	    access new-list diffs)
+	(if (not top)
+	    (message "No cut buffer")
+	  (setq tmp (wl-fldmgr-get-path-from-buffer t))
+	  (setq path (car tmp))
+	  (setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
+	  (if (numberp top)
+	      (setq count (pop wl-fldmgr-cut-entity-list))
+	    (setq count 1))
+	  (if (catch 'err
+		(let ((count count)
+		      (cut-list wl-fldmgr-cut-entity-list))
+		  ;; check insert entity
+		  (while (> count 0)
+		    (setq new (car cut-list))
+		    (wl-push new new-list)
+		    (when (consp new);; group
+		      (cond
+		       (access
+			(message "Can't insert group in access")
+			(throw 'err t))
+		       ((wl-string-assoc (car new) wl-folder-group-alist)
+			(message "%s: group already exists" (car new))
+			(throw 'err t))))
+		    (setq cut-list (cdr cut-list))
+		    (setq count (1- count))))
+		(if (not (setq diffs
+			       (wl-add-entity
+				path new-list wl-folder-entity (nth 3 tmp) t)))
+		    (throw 'err t))
+		(while (> count 0)
+		  (setq new (pop wl-fldmgr-cut-entity-list))
+		  (save-excursion
+		    (wl-folder-insert-entity indent new)
+		    (setq wl-fldmgr-modified t))
+		  (setq count (1- count)))
+		(wl-fldmgr-update-group path diffs)
+		(set-buffer-modified-p nil))
+	      ;; error
+	      (wl-push count wl-fldmgr-cut-entity-list)))))))
+
+(defvar wl-fldmgr-add-completion-hashtb (make-vector 7 0))
+
+(defun wl-fldmgr-add-completion-all-completions (string)
+  (let ((table
+	 (catch 'found
+	   (mapatoms
+	    (function
+	     (lambda (atom)
+	       (if (string-match (symbol-name atom) string)
+		   (throw 'found (symbol-value atom)))))
+	    wl-fldmgr-add-completion-hashtb)))
+	(pattern
+	 (if (string-match "\\.$"
+			   (car (elmo-network-get-spec
+				 string nil nil nil)))
+	     (substring string 0 (match-beginning 0))
+	   (concat string nil))))
+    (or table
+	(setq table (elmo-list-folders pattern))
+	(and table
+	     (or (/= (length table) 1)
+		 (elmo-folder-exists-p (car table))))
+	(setq pattern
+	      (if (string-match "\\.[^\\.]+$" string)
+		  (substring string 0 (match-beginning 0))
+		(char-to-string (aref string 0)))
+	      table (elmo-list-folders pattern)))
+    (setq pattern (concat "^" (regexp-quote pattern)))
+    (unless (intern-soft pattern wl-fldmgr-add-completion-hashtb)
+      (set (intern pattern wl-fldmgr-add-completion-hashtb) table))
+    table))
+
+(defun wl-fldmgr-add-completion-subr (string predicate flag)
+  (let ((table
+	 (if (string= string "")
+	     (mapcar (function (lambda (spec)
+				 (list (char-to-string (car spec)))))
+		     elmo-spec-alist)
+	   (when (assq (aref string 0) elmo-spec-alist)
+	     (delq nil (mapcar
+			(function list)
+			(condition-case nil
+			    (wl-fldmgr-add-completion-all-completions string)
+			  (error nil))))))))
+    (if (null flag)
+	(try-completion string table predicate)
+      (if (eq flag 'lambda)
+	  (eq t (try-completion string table predicate))
+	(if flag
+	    (all-completions string table predicate))))))
+
+(defun wl-fldmgr-add (&optional name)
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (let ((ret-val nil)
+	  (inhibit-read-only t)
+	  (wl-folder-completion-func (function wl-fldmgr-add-completion-subr))
+	  tmp indent path diffs)
+      (if (bobp)
+	  (message "Can't insert in the out of desktop group")
+	(setq tmp (wl-fldmgr-get-path-from-buffer t))
+	(setq path (car tmp))
+	(setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
+	(or name
+	    (setq name (wl-fldmgr-read-string
+			(wl-summary-read-folder wl-default-folder "to add"))))
+	;; maybe add elmo-plugged-alist.
+	(when (stringp name)
+	  (elmo-folder-set-plugged name wl-plugged t))
+	(when (setq diffs
+		    (wl-add-entity
+		     path (list name) wl-folder-entity (nth 3 tmp) t))
+	  (wl-folder-insert-entity indent name)
+	  (wl-fldmgr-update-group path diffs)
+	  (setq wl-fldmgr-modified t)
+	  (set-buffer-modified-p nil)
+	  (setq ret-val t)))
+      ret-val)))
+
+(defun wl-fldmgr-delete ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (if (looking-at wl-folder-group-regexp)
+	(error "can't delete group folder"))
+    (let* ((inhibit-read-only t)
+	   (tmp (wl-fldmgr-get-path-from-buffer))
+	   (entity (elmo-string (nth 4 tmp)))
+	   (msgs (and (elmo-folder-exists-p entity)
+		      (elmo-list-folder entity))))
+      (when (yes-or-no-p (format "%sDo you really delete \"%s\"? "
+				 (if (> (length msgs) 0)
+				     (format "%d msg(s) exists. " (length msgs))
+				   "")
+				 entity))
+	(elmo-delete-folder entity)
+	(wl-fldmgr-cut tmp nil t)))))
+
+(defun wl-fldmgr-rename ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (if (bobp)
+	(message "Can't rename desktop group")
+      (cond
+       ((looking-at wl-folder-group-regexp) ;; group
+	(let* ((indent (wl-match-buffer 1))
+	       (old-group (wl-folder-get-realname (wl-match-buffer 3)))
+	       (group-entity (wl-folder-search-group-entity-by-name 
+			      old-group wl-folder-entity))
+	       group)
+	  (if (eq (nth 1 group-entity) 'access)
+	      (message "%s: can't rename access group folder" old-group)
+	    (setq group (wl-fldmgr-read-string
+			 (read-from-minibuffer "Rename: " old-group)))
+	    (if (string-match "/$" group)
+		(message "Remove tail slash.")
+	      (cond
+	       ((or (string= group "")
+		    (string= old-group group))
+		nil)
+	       (t
+		(if (wl-string-assoc group wl-folder-group-alist)
+		    (message "%s: group already exists" group)
+		  (let ((inhibit-read-only t)
+			(id (wl-fldmgr-get-entity-id
+			     (car group-entity))))
+		    (wl-fldmgr-assign-id group id)
+		    (setcar group-entity group)
+		    (setcar (wl-string-assoc old-group wl-folder-group-alist)
+			    group)
+		    ;;(setcdr (assq id wl-folder-entity-id-name-alist) group)
+		    (wl-folder-set-id-name id group)
+		    (wl-fldmgr-delete-line)
+ 		    (wl-folder-insert-entity
+ 		     indent
+ 		     group-entity t)
+		    (setq wl-fldmgr-modified t)
+		    (set-buffer-modified-p nil)))))))))
+       (t ;; folder
+	(let* ((tmp (wl-fldmgr-get-path-from-buffer))
+	       (old-folder (nth 4 tmp))
+	       new-folder)
+	  (if (eq (cdr (nth 2 tmp)) 'access)
+	      (error "can't rename access folder"))
+	  (setq new-folder
+		(wl-fldmgr-read-string
+		 (wl-summary-read-folder old-folder "to rename" t t old-folder)))
+	  (if (or (wl-folder-entity-exists-p new-folder)
+		  (file-exists-p (elmo-msgdb-expand-path new-folder)))
+	      (error "already exists folder: %s" new-folder))
+	  (elmo-rename-folder old-folder new-folder)
+	  (wl-folder-set-entity-info
+	   new-folder
+	   (wl-folder-get-entity-info old-folder))
+	  (when (wl-fldmgr-cut tmp nil t)
+	    (wl-fldmgr-add new-folder))))))))
+
+(defun wl-fldmgr-make-access-group ()
+  (interactive)
+  (wl-fldmgr-make-group nil t))
+
+(defun wl-fldmgr-make-group (&optional group-name access)
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (if (bobp)
+	(message "Can't insert in the out of desktop group")
+      (let ((inhibit-read-only t)
+	    (type 'group)
+	    group tmp indent path new prev-id flist diffs)
+	(setq tmp (wl-fldmgr-get-path-from-buffer t))
+    	(setq path (car tmp))
+	(setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
+	(setq prev-id (nth 3 tmp))
+	(if (eq (cdr (nth 2 tmp)) 'access)
+	    (message "Can't insert access group")
+	  (setq group (or group-name
+			  (wl-fldmgr-read-string
+			   (read-from-minibuffer 
+			    (if access "Access Type Group: " "Group: ")))))
+	  (when (or access (string-match "[\t ]*/$" group))
+	    (setq group (if access group
+			  (substring group 0 (match-beginning 0))))
+	    (setq type 'access)
+	    (setq flist (wl-create-access-folder-entity group)))
+	  (if (string= group "")
+	      nil
+	    (if (wl-string-assoc group wl-folder-group-alist)
+		(message "%s: group already exists" group)
+	      (setq new (append (list group type) flist))
+	      (when (setq diffs (wl-add-entity path
+					       (list new)
+					       wl-folder-entity
+					       prev-id))
+		(wl-folder-insert-entity indent new)
+		(wl-fldmgr-update-group path diffs)
+		(setq wl-fldmgr-modified t)
+		(set-buffer-modified-p nil)))))))))
+
+(defun wl-fldmgr-make-multi ()
+  (interactive)
+  (if (not wl-fldmgr-cut-entity-list)
+      (message "No cut buffer")
+    (let ((cut-entity wl-fldmgr-cut-entity-list)
+	  (new-entity "")
+	  (first t)
+	  status)
+      (setq status
+	    (catch 'done
+	      (while cut-entity
+		(cond
+		 ((numberp (car cut-entity))
+		  nil)
+		 ((consp (car cut-entity))
+		  (message "Can't make multi included group folder")
+		  (throw 'done nil))
+		 (t
+		  (let ((spec (elmo-folder-get-spec (car cut-entity)))
+			multi-fld)
+		    (if (eq (car spec) 'multi)
+			(setq multi-fld
+			      (substring (car cut-entity) 1)))
+		    (setq new-entity
+			  (format "%s%s%s"
+				  (or multi-fld (car cut-entity))
+				  (if first "" ",")
+				  new-entity))
+		    (setq first nil))))
+		(setq cut-entity (cdr cut-entity)))
+	      (throw 'done t)))
+      (when status
+	(setq new-entity (concat "*" new-entity))
+	(wl-fldmgr-add new-entity)))))
+
+(defun wl-fldmgr-make-filter ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (if (looking-at wl-folder-group-regexp)
+	(message "This folder is group")
+      (let ((tmp (wl-fldmgr-get-path-from-buffer)))
+	(if (eq (cdr (nth 2 tmp)) 'access)
+	    (message "Tan't change access group")
+	  (let* ((entity (nth 4 tmp))
+		 (old-entity entity)
+		 old-filter
+		 filter new-entity)
+	    (unless entity (error "no folder"))
+	    (when (string-match "^\\(\\(/[^/]+/\\)+\\)\\(.*\\)" entity)
+	      (setq old-filter (substring entity
+					  (match-beginning 1)
+					  (match-end 1)))
+	      (setq old-entity (substring entity
+					  (match-beginning 3)
+					  (match-end 3))))
+	    (setq filter (completing-read "Filter: "
+					  wl-fldmgr-filter-completion-alist
+					  nil nil
+					  (or old-filter "/")))
+	    (unless (or (string= filter "")
+			(string-match "/$" filter))
+	      (setq filter (concat filter "/")))
+	    (setq new-entity (concat filter old-entity))
+	    (let ((entity new-entity)
+		  spec)
+	      ;; check filter syntax
+	      (while (eq
+		      (car (setq spec (elmo-folder-get-spec entity)))
+		      'filter)
+		(setq entity (nth 2 spec))))
+	    (wl-fldmgr-add new-entity)))))))
+
+(defun wl-fldmgr-sort ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (let ((inhibit-read-only t)
+	  entity flist indent opened)
+      (when (looking-at wl-folder-group-regexp)
+	(setq indent (wl-match-buffer 1))
+	(setq opened (wl-match-buffer 2))
+	(setq entity (wl-folder-search-group-entity-by-name
+		      (wl-folder-get-realname (wl-match-buffer 3))
+		      wl-folder-entity))
+	(message "Sorting...")
+	(setq flist (sort (nth 2 entity) wl-fldmgr-sort-func))
+	(setcar (cddr entity) flist)
+	(wl-fldmgr-add-modified-access-list (car entity))
+	(setq wl-fldmgr-modified t)
+	;;
+	(when (string= opened "-")
+	  (let (beg end)
+	    (setq beg (point))
+	    (end-of-line)
+	    (save-match-data
+	      (setq end
+		    (progn
+		      (wl-folder-goto-bottom-of-current-folder indent)
+		      (beginning-of-line)
+		      (point))))
+	    (delete-region beg end)
+	    (wl-folder-insert-entity indent entity)))
+	;;(wl-fldmgr-reconst-entity-hashtb t t)
+	(message "Sorting...done")
+	(set-buffer-modified-p nil)))))
+
+(defun wl-fldmgr-sort-standard (x y)
+  (cond ((and (consp x) (not (consp y)))
+	 wl-fldmgr-sort-group-first)
+	((and (not (consp x)) (consp y))
+	 (not wl-fldmgr-sort-group-first))
+	((and (consp x) (consp y))
+	 (string-lessp (car x) (car y)))
+	(t
+	 (string-lessp x y))))
+
+(defun wl-fldmgr-subscribe-region ()
+  (interactive)
+  (wl-fldmgr-unsubscribe-region -1))
+
+(defun wl-fldmgr-unsubscribe-region (&optional arg)
+  (interactive "P")
+  (let* ((p1 (region-beginning))
+	 (p2 (region-end))
+	 (r1 (progn
+	       (goto-char p1)
+	       (beginning-of-line)
+	       (point)))
+	 (r2 (progn
+	       (goto-char p2)
+	       (beginning-of-line)
+	       (point)))
+	 (from (min r1 r2))
+	 (to (max r1 r2))
+	 (count 0))
+    (goto-char from)
+    (while (< (point) to)
+      (setq count (1+ count))
+      (forward-line))
+    (goto-char from)
+    (message "Unsubscribe region...")
+    (while (and (> count 0)
+		(wl-fldmgr-unsubscribe (or arg 1) t))
+      (setq count (1- count)))
+    (message "Unsubscribe region...done")))
+
+(defun wl-fldmgr-subscribe ()
+  (interactive)
+  (wl-fldmgr-unsubscribe -1))
+
+(defun wl-fldmgr-unsubscribe (&optional arg force)
+  (interactive "P")
+  (let ((type (and arg (prefix-numeric-value arg)))
+	execed is-group)
+    (save-excursion
+      (beginning-of-line)
+      (let ((inhibit-read-only t)
+	    folder
+	    tmp indent beg)
+	(cond
+	 ((looking-at (format "^[ ]*%s\\[[+-]\\]\\(.*\\)" wl-folder-unsubscribe-mark))
+	  (if (and type (> type 0))
+	      nil
+	    (setq folder (list (wl-match-buffer 1) 'access nil))
+	    (if (wl-string-assoc (car folder) wl-folder-group-alist)
+		(message "%s: group already exists" (car folder))
+	      (wl-fldmgr-delete-line)
+	      (when (wl-fldmgr-add folder)
+		(wl-folder-maybe-load-folder-list folder)
+;; 		 (wl-folder-search-group-entity-by-name (car folder)
+;; 							wl-folder-entity))
+		(setq execed t)))))
+	 ((looking-at (format "^[ ]*%s\\(.*\\)" wl-folder-unsubscribe-mark))
+	  (if (and type (> type 0))
+	      nil
+	    (setq folder (wl-match-buffer 1))
+	    (wl-fldmgr-delete-line)
+	    (when (wl-fldmgr-add folder)
+	      (setq execed t))))
+	 (t
+	  (if (and type (< type 0))
+	      nil
+	    (setq is-group (looking-at wl-folder-group-regexp))
+	    (setq tmp (wl-fldmgr-get-path-from-buffer))
+	    (setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
+	    (if (eq (cdr (nth 2 tmp)) 'access)
+		(when (wl-fldmgr-cut tmp)
+		  (pop wl-fldmgr-cut-entity-list)  ;; don't leave cut-list
+		  (setq beg (point))
+		  (insert indent wl-folder-unsubscribe-mark
+			  (if is-group
+			      (concat "[+]" (nth 4 tmp))
+			    (nth 4 tmp))
+			  "\n")
+		  (save-excursion (forward-line -1)
+				  (wl-highlight-folder-current-line))
+		  (remove-text-properties beg (point) '(wl-folder-entity-id))
+		  (setq execed t))))))
+	(set-buffer-modified-p nil)))
+    (if (or force execed)
+	(progn
+	  (forward-line)
+	  t))))
+
+(defun wl-fldmgr-access-display-normal (&optional arg)
+  (interactive "P")
+  (wl-fldmgr-access-display-all (not arg)))
+
+(defun wl-fldmgr-access-display-all (&optional arg)
+  (interactive "P")
+  (let ((id (save-excursion
+	      (wl-folder-prev-entity-skip-invalid t)
+	      (wl-fldmgr-get-entity-id))))
+    (save-excursion
+    (beginning-of-line)
+    (let ((inhibit-read-only t)
+	  entity indent opened
+	  unsubscribes beg)
+      (when (not (looking-at wl-folder-group-regexp))
+	(wl-folder-goto-top-of-current-folder)
+	(looking-at wl-folder-group-regexp))
+      (setq indent (wl-match-buffer 1))
+      (setq opened (wl-match-buffer 2))
+      (setq entity (wl-folder-search-group-entity-by-name
+		    (wl-folder-get-realname (wl-match-buffer 3))
+		    wl-folder-entity))
+      (when (eq (nth 1 entity) 'access)
+	(save-excursion
+	  (if (string= opened "-")
+	      (let (beg end)
+		(setq beg (point))
+		(end-of-line)
+		(save-match-data
+		  (setq end
+			(progn
+			  (wl-folder-goto-bottom-of-current-folder indent)
+			  (beginning-of-line)
+			  (point))))
+		(delete-region beg end))
+	    (wl-fldmgr-delete-line)
+	    (setcdr (assoc (car entity) wl-folder-group-alist) t));; set open
+	  (wl-folder-insert-entity indent entity))
+	(when (not arg)
+	  (setq unsubscribes (nth 3 entity))
+	  (forward-line)
+	  (while unsubscribes
+	    (setq beg (point))
+	    (insert indent "  " wl-folder-unsubscribe-mark
+		    (if (consp (car unsubscribes))
+			(concat "[+]" (caar unsubscribes))
+		      (car unsubscribes))
+		    "\n")
+	    (remove-text-properties beg (point) '(wl-folder-entity-id))
+	    (save-excursion (forward-line -1)
+			    (wl-highlight-folder-current-line))
+	    (setq unsubscribes (cdr unsubscribes))))
+	(set-buffer-modified-p nil))))
+    (wl-folder-move-path id)))
+
+(defun wl-fldmgr-set-petname ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+      (let* ((is-group (looking-at wl-folder-group-regexp))
+	     (name (wl-folder-get-entity-from-buffer))
+	     (searchname (wl-folder-get-petname name))
+	     (pentry (wl-string-assoc name wl-folder-petname-alist))
+	     (old-petname (or (cdr pentry) ""))
+	     (change)
+	     petname)
+	(unless name (error "no folder"))
+	(if (and is-group
+		 (not (eq (nth 1 (wl-folder-search-group-entity-by-name
+				  name wl-folder-entity))
+			  'access)))
+	    (message "Can't set petname. please rename.")
+	(setq petname (wl-fldmgr-read-string
+		       (read-from-minibuffer "Petname: " old-petname)))
+	(cond
+	 ((string= petname "")
+	  (when pentry
+	    (setq wl-folder-petname-alist
+		  (delete pentry wl-folder-petname-alist))
+	    (setq change t)))
+	 (t
+	  (if (string= petname old-petname)
+	      nil
+	    (if (or (rassoc petname wl-folder-petname-alist)
+		    (wl-string-assoc petname wl-folder-group-alist))
+		(message "%s: already exists" petname)
+	      (wl-folder-append-petname name petname)
+	      (setq change t)))))
+	(when change
+	  (let ((inhibit-read-only t)
+		indent)
+	    (goto-char (point-min))
+	    (if is-group
+		(progn
+		  (if (string= old-petname "")
+		      (setq old-petname name))
+		  (while (wl-folder-buffer-search-group old-petname) 
+		    (beginning-of-line)		  
+		    (and (looking-at "^\\([ ]*\\)")
+			 (setq indent (wl-match-buffer 1)))
+		    (wl-fldmgr-delete-line)
+		    (wl-folder-insert-entity
+		     indent
+		     (wl-folder-search-group-entity-by-name 
+		      name wl-folder-entity) 
+		     t)))
+	      (while (wl-folder-buffer-search-entity name searchname)
+		(save-excursion
+		  (beginning-of-line)		  
+		  (and (looking-at "^\\([ ]*\\)")
+		       (setq indent (wl-match-buffer 1)))
+		  (wl-fldmgr-delete-line))
+		(wl-folder-insert-entity indent name)))
+	    (setq wl-fldmgr-modified t)
+	    (set-buffer-modified-p nil)))))))
+
+;;; Function for save folders
+;;
+
+(defun wl-fldmgr-insert-folders-buffer (indent entities &optional pet-entities)
+  (let ((flist entities)
+	name petname)
+    (while flist
+      (setq name (car flist))
+      (cond ((stringp name)
+	     (if (setq petname (cdr (wl-string-assoc name wl-folder-petname-alist)))
+		 (wl-append pet-entities (list name)))
+	     (insert indent name
+		     (if petname
+			 (concat "\t\"" petname "\"")
+		       "")
+		     "\n"))
+	    ((consp name)
+	     (let ((group (wl-folder-get-realname (car name)))
+		   (type (nth 1 name)))
+	       (if (not (string= group (car name))) ; petname.
+		   (wl-append pet-entities (list (car name))))
+	       (cond ((eq type 'group)
+		      (insert indent group "{\n")
+		      (setq pet-entities
+			    (wl-fldmgr-insert-folders-buffer
+			     (concat indent wl-fldmgr-folders-indent)
+			     (nth 2 name) pet-entities))
+		      (insert indent "}\n"))
+		     ((eq type 'access)
+		      (insert indent group "/\n"))))))
+      (setq flist (cdr flist))))
+  pet-entities)
+
+(defun wl-fldmgr-insert-petname-buffer (pet-entities)
+  (let ((alist wl-folder-petname-alist))
+    (while alist
+      (if (wl-string-member (caar alist) pet-entities)
+	  nil
+	(insert "=\t" (caar alist) "\t\"" (cdar alist) "\"\n"))
+      (setq alist (cdr alist)))))
+
+(defun wl-fldmgr-delete-disused-petname ()
+  (let ((alist wl-folder-petname-alist))
+    (while alist
+      (unless (wl-folder-search-entity-by-name (caar alist) wl-folder-entity)
+	(setq wl-folder-petname-alist
+	      (delete (car alist) wl-folder-petname-alist)))
+      (setq alist (cdr alist)))))
+
+(defun wl-fldmgr-save-folders ()
+  (interactive)
+  (let ((tmp-buf (get-buffer-create " *wl-fldmgr-tmp*"))
+	(access-list wl-fldmgr-modified-access-list)
+	entity
+	save-petname-entities)
+    (message "Saving folders...")
+    (set-buffer tmp-buf)
+    (erase-buffer)
+    (insert (format wl-fldmgr-folders-header
+		    wl-appname wl-version wl-codename))
+    (wl-fldmgr-delete-disused-petname)
+    (setq save-petname-entities
+	  (wl-fldmgr-insert-folders-buffer "" (nth 2 wl-folder-entity)))
+    (insert "\n# petname definition (group, folder in access group)\n")
+    (wl-fldmgr-insert-petname-buffer save-petname-entities)
+    (insert "\n# end of file.\n")
+    (if (and wl-fldmgr-make-backup
+	     (file-exists-p wl-folders-file))
+	(rename-file wl-folders-file (concat wl-folders-file ".bak") t))
+    (let ((output-coding-system (mime-charset-to-coding-system 
+				 wl-mime-charset)))
+      (write-region
+       (point-min)
+       (point-max)
+       wl-folders-file
+       nil
+       'no-msg)
+      (set-file-modes wl-folders-file 384)) ; 600
+    (kill-buffer tmp-buf)
+    (while access-list
+      (setq entity (wl-folder-search-group-entity-by-name
+		    (car access-list) wl-folder-entity))
+      (elmo-msgdb-flist-save
+       (car access-list)
+       (list
+	(wl-folder-make-save-access-list (nth 2 entity))
+	(wl-folder-make-save-access-list (nth 3 entity))))
+      (setq access-list (cdr access-list)))
+    (setq wl-fldmgr-modified nil)
+    (setq wl-fldmgr-modified-access-list nil)
+    (message "Saving folders...done")))
+
+(provide 'wl-fldmgr)
+
+;;; wl-fldmgr.el ends here
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
new file mode 100644
index 0000000..083e8e3
--- /dev/null
+++ b/wl/wl-folder.el
@@ -0,0 +1,2679 @@
+;;; wl-folder.el -- Folder mode for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/25 16:30:59 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-vars)
+(require 'elmo-util)
+(require 'elmo2)
+(require 'wl-vars)
+(condition-case ()
+    (require 'easymenu) ; needed here.
+  (error))
+
+(eval-when-compile
+  (require 'cl)
+  (require 'wl-util)
+  (provide 'wl-folder)
+  (require 'wl)
+  (require 'elmo-nntp)
+  (if wl-use-semi
+      (require 'mmelmo))
+  (unless (boundp ':file)
+    (set (make-local-variable ':file) nil))
+  (defun-maybe mmelmo-cleanup-entity-buffers ()))
+
+(defvar wl-folder-buffer-name "Folder")
+(defvar wl-folder-entity nil)		; desktop entity.
+(defvar wl-folder-group-alist nil)	; opened or closed
+(defvar wl-folder-entity-id nil) ; id
+(defvar wl-folder-entity-hashtb nil)
+(defvar wl-folder-entity-id-name-hashtb nil)
+(defvar wl-folder-newsgroups-hashtb nil)
+(defvar wl-folder-info-alist-modified nil)
+(defvar wl-folder-completion-func nil)
+
+(defvar wl-folder-mode-map nil)
+
+(defvar wl-folder-opened-glyph nil)
+(defvar wl-folder-closed-glyph nil)
+(defvar wl-folder-nntp-glyph nil)
+(defvar wl-folder-imap4-glyph nil)
+(defvar wl-folder-pop3-glyph nil)
+(defvar wl-folder-localdir-glyph nil)
+(defvar wl-folder-localnews-glyph nil)
+(defvar wl-folder-internal-glyph nil)
+(defvar wl-folder-multi-glyph nil)
+(defvar wl-folder-filter-glyph nil)
+(defvar wl-folder-archive-glyph nil)
+(defvar wl-folder-pipe-glyph nil)
+(defvar wl-folder-maildir-glyph nil)
+(defvar wl-folder-trash-empty-glyph nil)
+(defvar wl-folder-trash-glyph nil)
+(defvar wl-folder-draft-glyph nil)
+(defvar wl-folder-queue-glyph nil)
+
+(defvar wl-folder-buffer-disp-summary nil)
+(make-variable-buffer-local 'wl-folder-buffer-disp-summary)
+(defvar wl-folder-buffer-cur-entity-id nil)
+(make-variable-buffer-local 'wl-folder-buffer-cur-entity-id)
+(defvar wl-folder-buffer-cur-path nil)
+(make-variable-buffer-local 'wl-folder-buffer-cur-entity-id)
+(defvar wl-folder-buffer-cur-point nil)
+(make-variable-buffer-local 'wl-folder-buffer-cur-point)
+
+(defconst wl-folder-entity-regexp "^\\([ ]*\\)\\(\\[[\\+-]\\]\\)?\\([^\\[].+\\):[-*0-9]+/[-*0-9]+/[-*0-9]+")
+(defconst wl-folder-group-regexp  "^\\([ ]*\\)\\[\\([\\+-]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+\n")
+;;				1:indent 2:opened 3:group-name
+(defconst wl-folder-unsync-regexp ":[^0\\*][0-9]*/[0-9\\*-]+/[0-9\\*-]+$")
+
+(defvar wl-folder-mode-menu-spec
+  '("Folder"
+    ["Enter Current Folder" wl-folder-jump-to-current-entity t]
+    ["Prev Folder"          wl-folder-prev-entity t]
+    ["Next Folder"          wl-folder-next-entity t]
+    ["Check Current Folder" wl-folder-check-current-entity t]
+    ["Sync Current Folder"  wl-folder-sync-current-entity t]
+    ["Drop Current Folder" wl-folder-drop-unsync-current-entity t]
+    ["Prefetch Current Folder" wl-folder-prefetch-current-entity t]
+    ["Mark as Read all Current Folder" wl-folder-mark-as-read-all-current-entity t]
+    ["Expire Current Folder" wl-folder-expire-current-entity t]
+    ["Empty trash" wl-folder-empty-trash t]
+    ["Flush queue" wl-folder-flush-queue t]
+    ["Open All" wl-folder-open-all t]
+    ["Open All Unread folder" wl-folder-open-all-unread-folder t]
+    ["Close All" wl-folder-close-all t]
+    ("Folder Manager"
+     ["Add folder" wl-fldmgr-add t]
+     ["Add group" wl-fldmgr-make-group t]
+     ["Copy" wl-fldmgr-copy t]
+     ["Cut" wl-fldmgr-cut t]
+     ["Paste" wl-fldmgr-yank t]
+     ["Set petname" wl-fldmgr-set-petname t]
+     ["Rename" wl-fldmgr-rename t]
+     ["Save" wl-fldmgr-save-folders t]
+     "----"
+     ["Unsubscribe" wl-fldmgr-unsubscribe t]
+     ["Display all" wl-fldmgr-access-display-all t])
+    "----"
+    ["Write a message" wl-draft t]
+    "----"
+    ["Toggle Plug Status" wl-toggle-plugged t]
+    ["Change Plug Status" wl-plugged-change t]
+    "----"
+    ["Save Current Status"  wl-save t]
+    ["Update Satus"         wl-status-update t]
+    ["Exit"                 wl-exit t]
+    ))
+
+(if wl-on-xemacs
+    (defun wl-folder-setup-mouse ()
+      (define-key wl-folder-mode-map 'button2 'wl-folder-click)
+      (define-key wl-folder-mode-map 'button4 'wl-folder-prev-entity)
+      (define-key wl-folder-mode-map 'button5 'wl-folder-next-entity)
+      (define-key wl-folder-mode-map [(shift button4)] 
+	'wl-folder-prev-unread)
+      (define-key wl-folder-mode-map [(shift button5)] 
+	'wl-folder-next-unread))
+  (if wl-on-nemacs
+      (defun wl-folder-setup-mouse ())
+    (defun wl-folder-setup-mouse ()
+      (define-key wl-folder-mode-map [mouse-2] 'wl-folder-click)
+      (define-key wl-folder-mode-map [mouse-4] 'wl-folder-prev-entity)
+      (define-key wl-folder-mode-map [mouse-5] 'wl-folder-next-entity)
+      (define-key wl-folder-mode-map [S-mouse-4] 'wl-folder-prev-unread)
+      (define-key wl-folder-mode-map [S-mouse-5] 'wl-folder-next-unread))))
+
+(if wl-folder-mode-map
+    nil
+  (setq wl-folder-mode-map (make-sparse-keymap))
+  (define-key wl-folder-mode-map " "    'wl-folder-jump-to-current-entity)
+;  (define-key wl-folder-mode-map "\M- " 'wl-folder-open-close)
+  (define-key wl-folder-mode-map "/"    'wl-folder-open-close)
+  (define-key wl-folder-mode-map "\C-m" 'wl-folder-jump-to-current-entity)
+  (define-key wl-folder-mode-map "\M-\C-m" 'wl-folder-update-recursive-current-entity)
+  (define-key wl-folder-mode-map "rc"    'wl-folder-mark-as-read-all-region)
+  (define-key wl-folder-mode-map "c"    'wl-folder-mark-as-read-all-current-entity)
+  (define-key wl-folder-mode-map "g"    'wl-folder-goto-folder)
+  (define-key wl-folder-mode-map "j"    'wl-folder-jump-to-current-entity)
+  (define-key wl-folder-mode-map "w"    'wl-draft)
+  (define-key wl-folder-mode-map "W"    'wl-folder-write-current-newsgroup)
+  (define-key wl-folder-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (define-key wl-folder-mode-map "rS"   'wl-folder-sync-region)
+  (define-key wl-folder-mode-map "S"    'wl-folder-sync-current-entity)
+  (define-key wl-folder-mode-map "rs"   'wl-folder-check-region)
+  (define-key wl-folder-mode-map "s"    'wl-folder-check-current-entity)
+  (define-key wl-folder-mode-map "I"    'wl-folder-prefetch-current-entity)
+  (define-key wl-folder-mode-map "D"    'wl-folder-drop-unsync-current-entity)
+  (define-key wl-folder-mode-map "p"    'wl-folder-prev-entity)
+  (define-key wl-folder-mode-map "n"    'wl-folder-next-entity)
+  (define-key wl-folder-mode-map "v"    'wl-folder-toggle-disp-summary)
+  (define-key wl-folder-mode-map "P"    'wl-folder-prev-unread)
+  (define-key wl-folder-mode-map "N"    'wl-folder-next-unread)
+  (define-key wl-folder-mode-map "J"    'wl-folder-jump-folder)
+  (define-key wl-folder-mode-map "f"    'wl-folder-goto-first-unread-folder)
+  (define-key wl-folder-mode-map "o"    'wl-folder-open-all-unread-folder)
+  (define-key wl-folder-mode-map "["    'wl-folder-open-all)
+  (define-key wl-folder-mode-map "]"    'wl-folder-close-all)
+  (define-key wl-folder-mode-map "e"    'wl-folder-expire-current-entity)
+  (define-key wl-folder-mode-map "E"    'wl-folder-empty-trash)
+  (define-key wl-folder-mode-map "F"    'wl-folder-flush-queue)
+  (define-key wl-folder-mode-map "q"    'wl-exit)
+  (define-key wl-folder-mode-map "z"    'wl-folder-suspend)  
+  (define-key wl-folder-mode-map "\M-t" 'wl-toggle-plugged)
+  (define-key wl-folder-mode-map "\C-t" 'wl-plugged-change)
+  (define-key wl-folder-mode-map "<"    'beginning-of-buffer)
+  (define-key wl-folder-mode-map ">"    'end-of-buffer)
+  ;; wl-fldmgr
+  (unless wl-on-nemacs
+    (define-key wl-folder-mode-map "m"    'wl-fldmgr-mode-map))
+  (define-key wl-folder-mode-map "*"    'wl-fldmgr-make-multi)
+  (define-key wl-folder-mode-map "+"    'wl-fldmgr-make-group)
+  (define-key wl-folder-mode-map "|"    'wl-fldmgr-make-filter)
+  (define-key wl-folder-mode-map "\M-c" 'wl-fldmgr-copy)
+  (define-key wl-folder-mode-map "\M-w" 'wl-fldmgr-copy-region)
+  (define-key wl-folder-mode-map "\C-k" 'wl-fldmgr-cut)
+  (define-key wl-folder-mode-map "\C-w" 'wl-fldmgr-cut-region)
+  (define-key wl-folder-mode-map "\C-y" 'wl-fldmgr-yank)
+  (define-key wl-folder-mode-map "R"    'wl-fldmgr-rename)
+  (define-key wl-folder-mode-map "u"    'wl-fldmgr-unsubscribe)
+  (define-key wl-folder-mode-map "ru"   'wl-fldmgr-unsubscribe-region)
+  (define-key wl-folder-mode-map "U"    'wl-fldmgr-unsubscribe-region)
+  (define-key wl-folder-mode-map "l"    'wl-fldmgr-access-display-normal)
+  (define-key wl-folder-mode-map "L"    'wl-fldmgr-access-display-all)
+  (define-key wl-folder-mode-map "Z"    'wl-status-update)
+  (define-key wl-folder-mode-map "\C-x\C-s" 'wl-save)
+  (define-key wl-folder-mode-map "\M-s"     'wl-save)
+  (define-key wl-folder-mode-map "\C-xk"    'wl-folder-mimic-kill-buffer)
+  (wl-folder-setup-mouse)
+  (easy-menu-define
+   wl-folder-mode-menu
+   wl-folder-mode-map
+   "Menu used in Folder mode."
+   wl-folder-mode-menu-spec))
+
+(defmacro wl-folder-unread-regex (group)
+  (` (concat "^[ ]*.+:[0-9\\*-]+/[^0\\*][0-9]*/[0-9\\*-]+$"
+	     (if (, group)
+		 "\\|^[ ]*\\[[+-]\\]"
+	       ""))))
+
+(defmacro wl-folder-buffer-group-p ()
+  (` (save-excursion (beginning-of-line)
+		     (looking-at wl-folder-group-regexp))))
+
+(defmacro wl-folder-folder-name ()
+  (` (save-excursion
+       (beginning-of-line)
+       (if (or (looking-at "^[ ]*\\[[\\+-]\\]\\(.+\\):[-0-9\\*-]+/[0-9\\*-]+/[0-9\\*-]+\n")
+	       (looking-at "^[ ]*\\([^\\[].+\\):.*\n"))
+	   (wl-match-buffer 1)))))
+
+(defmacro wl-folder-entity-name ()
+  (` (save-excursion
+       (beginning-of-line)
+       (if (looking-at "^[ ]*\\([^\\[].+\\):.*\n")
+	   (wl-match-buffer 1)))))
+
+(defun wl-folder-buffer-search-group (group)
+  (re-search-forward
+   (concat 
+    "^\\([ \t]*\\)\\[[\\+-]\\]"
+    (regexp-quote group) ":[-0-9-]+/[0-9-]+/[0-9-]+") nil t))
+
+(defun wl-folder-buffer-search-entity (folder &optional searchname)
+  (let ((search (or searchname (wl-folder-get-petname folder))))
+    (re-search-forward
+     (concat 
+      "^[ \t]*"
+      (regexp-quote search) ":[-0-9\\*-]+/[0-9\\*-]+/[0-9\\*-]+") nil t)))
+
+(defsubst wl-folder-get-folder-name-by-id (entity-id &optional hashtb)
+  (and (numberp entity-id)
+       (elmo-get-hash-val (format "#%d" entity-id)
+			  (or hashtb wl-folder-entity-id-name-hashtb))))
+
+(defsubst wl-folder-set-id-name (entity-id entity &optional hashtb)
+  (and (numberp entity-id)
+       (elmo-set-hash-val (format "#%d" entity-id)
+			  entity (or hashtb wl-folder-entity-id-name-hashtb))))
+
+(defmacro wl-folder-get-entity-id (entity)
+  (` (or (get-text-property 0
+			    'wl-folder-entity-id
+			    (, entity))
+	 (, entity)))) ;; for nemacs
+
+(defmacro wl-folder-get-entity-from-buffer (&optional getid)
+  (` (let ((id (get-text-property (point)
+				  'wl-folder-entity-id)))
+       (if (not id) ;; for nemacs
+	   (wl-folder-get-realname (wl-folder-folder-name))
+	 (if (, getid)
+	     id
+	   (wl-folder-get-folder-name-by-id id))))))
+
+(defmacro wl-folder-entity-exists-p (entity &optional hashtb)
+  (` (let ((sym (intern-soft (, entity)
+			     (or (, hashtb) wl-folder-entity-hashtb))))
+       (and sym (boundp sym)))))
+
+(defmacro wl-folder-clear-entity-info (entity &optional hashtb)
+  (` (let ((sym (intern-soft (, entity)
+			     (or (, hashtb) wl-folder-entity-hashtb))))
+       (if (boundp sym)
+	   (makunbound sym)))))
+
+(defmacro wl-folder-get-entity-info (entity &optional hashtb)
+  (` (elmo-get-hash-val (, entity) (or (, hashtb) wl-folder-entity-hashtb))))
+
+(defmacro wl-folder-set-entity-info (entity value &optional hashtb)
+  (` (let* ((hashtb (or (, hashtb) wl-folder-entity-hashtb))
+	    (info (wl-folder-get-entity-info (, entity) hashtb)))
+       (elmo-set-hash-val (, entity)
+			  (if (< (length (, value)) 4)
+			      (append (, value) (list (nth 3 info)))
+			    (, value))
+			  hashtb))))
+
+(defun wl-folder-persistent-p (folder)
+  (or (elmo-get-hash-val folder wl-folder-entity-hashtb) ; on Folder mode.
+      (catch 'found
+	(let ((li wl-save-folder-list))
+	  (while li
+	    (if (string-match (car li) folder)
+		(throw 'found t))
+	    (setq li (cdr li)))))
+      (not (catch 'found
+	     (let ((li wl-no-save-folder-list))
+	       (while li
+		 (if (string-match (car li) folder)
+		     (throw 'found t))
+		 (setq li (cdr li))))))))
+
+(defun wl-folder-prev-entity ()
+  (interactive)
+  (forward-line -1))
+
+(defun wl-folder-next-entity ()
+  (interactive)
+  (forward-line 1))
+
+(defun wl-folder-prev-entity-skip-invalid (&optional hereto)
+  "move to previous entity. skip unsubscribed or removed entity."
+  (interactive)
+  (if hereto
+      (end-of-line))
+  (if (re-search-backward wl-folder-entity-regexp nil t)
+      (beginning-of-line)
+    (goto-char (point-min))))
+
+(defun wl-folder-next-entity-skip-invalid (&optional hereto)
+  "move to next entity. skip unsubscribed or removed entity."
+  (interactive)
+  (beginning-of-line)
+  (if (not hereto)
+      (forward-line 1))
+  (if (re-search-forward wl-folder-entity-regexp nil t)
+      (beginning-of-line)
+    (goto-char (point-max))))
+
+(defun wl-folder-search-group-entity-by-name (name entity)
+  (wl-folder-search-entity-by-name name entity 'group))
+
+(defun wl-folder-search-entity-by-name (name entity &optional type)
+  (let ((entities (list entity))
+	entity-stack)
+    (catch 'done
+      (while entities
+	(setq entity (wl-pop entities))
+	(cond
+	 ((consp entity)
+	  (if (and (not (eq type 'folder))
+		   (string= name (car entity)))
+	      (throw 'done entity))
+	  (and entities
+	       (wl-push entities entity-stack))
+	  (setq entities (nth 2 entity)))
+	 ((and (not (eq type 'group))
+	       (stringp entity))
+	  (if (string= name entity)
+	      (throw 'done entity))))
+	(unless entities
+	  (setq entities (wl-pop entity-stack)))))))
+
+(defun wl-folder-search-entity-list-by-name (name entity &optional get-id)
+  (let ((entities (list entity))
+	entity-stack ret-val)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(if (string= name entity)
+	    (wl-append ret-val (if get-id
+				   (list (wl-folder-get-entity-id entity))
+				 (list entity))))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    ret-val))
+
+(defun wl-folder-get-prev-folder (id &optional unread)
+  (let ((name (if (stringp id)
+		  id
+		(wl-folder-get-folder-name-by-id id)))
+	entity entity-stack last-entity finfo
+	(entities (list wl-folder-entity)))
+    (catch 'done
+      (while entities
+	(setq entity (wl-pop entities))
+	(cond
+	 ((consp entity)
+;; 	  (if (and (string= name (car entity))
+;; 		   (eq id (wl-folder-get-entity-id (car entity))))
+;; 	      (throw 'done last-entity))
+	  (and entities
+	       (wl-push entities entity-stack))
+	  (setq entities (nth 2 entity)))
+	 ((stringp entity)
+	  (if (and (string= name entity)
+		   ;; don't use eq, `id' is string on Nemacs.
+		   (equal id (wl-folder-get-entity-id entity)))
+	      (throw 'done last-entity))
+	  (if (or (not unread)
+		  (and (setq finfo (wl-folder-get-entity-info entity))
+		       (and (nth 0 finfo)(nth 1 finfo))
+		       (> (+ (nth 0 finfo)(nth 1 finfo)) 0)))
+	      (setq last-entity entity))))
+	(unless entities
+	  (setq entities (wl-pop entity-stack)))))))
+
+(defun wl-folder-get-next-folder (id &optional unread)
+  (let ((name (if (stringp id)
+		  id
+		(wl-folder-get-folder-name-by-id id)))
+	entity entity-stack found finfo
+	(entities (list wl-folder-entity)))
+    (catch 'done
+      (while entities
+	(setq entity (wl-pop entities))
+	(cond
+	 ((consp entity)
+;; 	  (if (and (string= name (car entity))
+;; 		   (eq id (wl-folder-get-entity-id (car entity))))
+;; 	      (setq found t))
+	  (and entities
+	       (wl-push entities entity-stack))
+	  (setq entities (nth 2 entity)))
+	 ((stringp entity)
+	  (if found
+	      (when (or (not unread)
+			(and (setq finfo (wl-folder-get-entity-info entity))
+			     (and (nth 0 finfo)(nth 1 finfo))
+			     (> (+ (nth 0 finfo)(nth 1 finfo)) 0)))
+		(throw 'done entity))
+	    (if (and (string= name entity)
+		     ;; don't use eq, `id' is string on Nemacs.
+		     (equal id (wl-folder-get-entity-id entity)))
+		(setq found t)))))
+	(unless entities
+	  (setq entities (wl-pop entity-stack)))))))
+
+(defun wl-folder-flush-queue ()
+  "Flush queue."
+  (interactive)
+  (let ((cur-buf (current-buffer))
+	(wl-auto-select-first nil)
+	(wl-plugged t)
+	emptied)
+    (if (not (elmo-list-folder wl-queue-folder))
+	(error "No queue exists")
+      (if wl-stay-folder-window
+	  (wl-folder-select-buffer 
+	   (wl-summary-get-buffer-create wl-queue-folder)))
+      (wl-summary-goto-folder-subr wl-queue-folder 'force-update nil)
+      (unwind-protect
+	  (wl-draft-queue-flush)
+	(if wl-summary-cache-use (wl-summary-save-view-cache))
+	(wl-summary-msgdb-save)
+	(if (get-buffer-window cur-buf)
+	    (select-window (get-buffer-window cur-buf)))
+	(set-buffer cur-buf)
+	(if wl-stay-folder-window
+	    (wl-folder-toggle-disp-summary 'off wl-queue-folder)
+	  (switch-to-buffer cur-buf))))))
+
+(defun wl-folder-empty-trash ()
+  "Empty trash."
+  (interactive)
+  (let ((cur-buf (current-buffer))
+	(wl-auto-select-first nil)
+	trash-buf emptied)
+    (if wl-stay-folder-window
+	(wl-folder-select-buffer 
+	 (wl-summary-get-buffer-create wl-trash-folder)))
+    (wl-summary-goto-folder-subr wl-trash-folder 'force-update nil nil t)
+    (setq trash-buf (current-buffer))
+    (unwind-protect
+	(setq emptied (wl-summary-delete-all-msgs))
+      (when emptied
+	(setq wl-thread-entities nil
+	      wl-thread-entity-list nil)
+	(if wl-summary-cache-use (wl-summary-save-view-cache))
+	(wl-summary-msgdb-save))
+      (if (get-buffer-window cur-buf)
+	  (select-window (get-buffer-window cur-buf)))
+      (set-buffer cur-buf)
+      (if emptied
+	  (wl-folder-set-folder-updated wl-trash-folder '(0 0 0)))
+      (if wl-stay-folder-window
+	  (wl-folder-toggle-disp-summary 'off wl-trash-folder)
+	(switch-to-buffer cur-buf))
+      (and trash-buf 
+	   (kill-buffer trash-buf)))))
+
+(defun wl-folder-goto-top-of-current-folder ()
+  (if (re-search-backward "^\\([ ]*\\)\\[\\([\\+-]\\)\\]\\(.+\\)\n" nil t)
+      (beginning-of-line)
+    (goto-char (point-min))))
+
+(defun wl-folder-goto-bottom-of-current-folder (indent)
+  (if (catch 'done
+	(while (re-search-forward "^\\([ ]*\\)[^ ]" nil t)
+	  (if (<= (length (wl-match-buffer 1))
+		  (length indent))
+	      (throw 'done nil)))
+	(throw 'done t))
+      (goto-char (point-max))))
+
+(defsubst wl-folder-update-group (entity diffs &optional is-group)
+  (let ((path (wl-folder-get-path 
+	       wl-folder-entity
+	       (wl-folder-get-entity-id entity)
+	       entity)))
+    (if (not is-group)
+	;; delete itself from path
+	(setq path (delete (nth (- (length path) 1) path) path)))
+    (goto-char (point-min))
+    (catch 'done
+      (while path
+	;; goto the path line.
+	(if (or (eq (car path) 0) ; update desktop
+		(wl-folder-buffer-search-group
+		 (wl-folder-get-petname
+		  (if (stringp (car path))
+		      (car path)
+		    (wl-folder-get-folder-name-by-id
+		     (car path))))))
+	    ;; update it.
+	    (wl-folder-update-diff-line diffs)
+	  (throw 'done t))
+	(setq path (cdr path))))))
+
+(defun wl-folder-maybe-load-folder-list (entity)
+  (when (null (caddr entity))
+    (setcdr (cdr entity)
+	    (elmo-msgdb-flist-load (car entity)))
+    (when (cddr entity)
+      (let (diffs)
+	(save-excursion
+	  (wl-folder-entity-assign-id entity
+				      wl-folder-entity-id-name-hashtb
+				      t)
+	  (setq diffs (wl-fldmgr-add-entity-hashtb (list entity)))
+	  (unless (equal diffs '(0 0 0))
+	    (wl-folder-update-group (car entity) diffs t)))))))
+
+(defsubst wl-folder-force-fetch-p (entity)
+  (cond
+   ((consp wl-force-fetch-folders)
+    (wl-string-match-member entity wl-force-fetch-folders))
+   (t
+    wl-force-fetch-folders)))
+
+(defun wl-folder-jump-to-current-entity (&optional arg)
+  "Enter the current folder. If optional arg exists, update folder list. "
+  (interactive "P")
+  (beginning-of-line)
+  (let (entity beg end indent opened fname err fld-name)
+    (cond 
+     ((looking-at wl-folder-group-regexp)
+      (save-excursion
+	(setq fname (wl-folder-get-realname (wl-match-buffer 3)))
+	(setq indent (wl-match-buffer 1))
+	(setq opened (wl-match-buffer 2))
+	(if (string= opened "+")
+	    (progn
+	      (setq entity (wl-folder-search-group-entity-by-name 
+			    fname
+			    wl-folder-entity))
+	      (setq beg (point))
+	      (if arg
+		  (wl-folder-update-recursive-current-entity entity)
+	      ;; insert as opened
+	      (setcdr (assoc (car entity) wl-folder-group-alist) t)
+	      (if (eq 'access (cadr entity))
+		  (wl-folder-maybe-load-folder-list entity))
+	      (condition-case errobj
+		  (progn
+		    (if (or (wl-folder-force-fetch-p (car entity))
+			    (and
+			     (eq 'access (cadr entity))
+			     (null (caddr entity))))
+			(wl-folder-update-newest indent entity)
+		      (wl-folder-insert-entity indent entity))
+		    (wl-highlight-folder-path wl-folder-buffer-cur-path))
+		(quit
+		 (setq err t)
+		 (setcdr (assoc fname wl-folder-group-alist) nil))
+		(error 
+		 (elmo-display-error errobj t)
+		 (ding)
+		 (setq err t)
+		 (setcdr (assoc fname wl-folder-group-alist) nil)))
+	      (if (not err)
+		  (let ((buffer-read-only nil))
+		    (delete-region (save-excursion (beginning-of-line)
+						   (point))
+				   (save-excursion (end-of-line)
+						   (+ 1 (point))))))))
+	  (setq beg (point))
+	  (end-of-line)
+	  (save-match-data
+	    (setq end
+		  (progn (wl-folder-goto-bottom-of-current-folder indent)
+			 (beginning-of-line)
+			 (point))))
+	  (setq entity (wl-folder-search-group-entity-by-name 
+			fname
+			wl-folder-entity))
+	  (let ((buffer-read-only nil))
+	    (delete-region beg end))
+	  (setcdr (assoc (car entity) wl-folder-group-alist) nil)
+	  (wl-folder-insert-entity indent entity) ; insert entity
+	  (forward-line -1)
+	  (wl-highlight-folder-path wl-folder-buffer-cur-path)
+;	  (wl-delete-all-overlays)
+;	  (wl-highlight-folder-current-line)
+	  )))
+     ((setq fld-name (wl-folder-entity-name))
+      (if wl-on-nemacs
+	  (progn
+	    (wl-folder-set-current-entity-id 
+	     (wl-folder-get-entity-from-buffer))
+	    (setq fld-name (wl-folder-get-realname fld-name)))
+	(wl-folder-set-current-entity-id 
+	 (get-text-property (point) 'wl-folder-entity-id))
+	(setq fld-name (wl-folder-get-folder-name-by-id
+			wl-folder-buffer-cur-entity-id)))
+      (let ((summary-buf (wl-summary-get-buffer-create fld-name arg))
+	    error-selecting)
+	(if wl-stay-folder-window
+	    (wl-folder-select-buffer summary-buf)
+	  (if (and summary-buf
+		   (get-buffer-window summary-buf))
+	      (delete-window)))
+	(wl-summary-goto-folder-subr fld-name 
+				     (wl-summary-get-sync-range fld-name)
+				     nil arg t)))))
+  (set-buffer-modified-p nil))
+
+(defun wl-folder-close-entity (entity)
+  (let ((entities (list entity))
+	entity-stack)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(setcdr (assoc (car entity) wl-folder-group-alist) nil)
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))))
+
+(defun wl-folder-update-recursive-current-entity (&optional entity)
+  (interactive)
+  (when (wl-folder-buffer-group-p)
+    (cond
+     ((string= (wl-match-buffer 2) "+")
+      (save-excursion
+ 	(if entity ()
+ 	  (setq entity
+  		(wl-folder-search-group-entity-by-name 
+ 		 (wl-folder-get-realname (wl-match-buffer 3))
+ 		 wl-folder-entity)))
+ 	(let ((inhibit-read-only t)
+ 	      (entities (list entity))
+ 	      entity-stack err indent)
+ 	  (while (and entities (not err))
+ 	    (setq entity (wl-pop entities))
+ 	    (cond
+ 	     ((consp entity)
+ 	      (wl-folder-close-entity entity)
+ 	      (setcdr (assoc (car entity) wl-folder-group-alist) t)
+ 	      (unless (wl-folder-buffer-search-group
+ 		       (wl-folder-get-petname (car entity)))
+ 		(error "%s: not found group" (car entity)))
+ 	      (setq indent (wl-match-buffer 1))
+ 	      (if (eq 'access (cadr entity))
+ 		  (wl-folder-maybe-load-folder-list entity))
+ 	      (beginning-of-line)
+ 	      (setq err nil)
+ 	      (save-excursion
+ 		(condition-case errobj
+ 		    (wl-folder-update-newest indent entity)
+ 		  (quit
+ 		   (setq err t)
+ 		   (setcdr (assoc (car entity) wl-folder-group-alist) nil))
+ 		  (error 
+ 		   (elmo-display-error errobj t)
+ 		   (ding)
+ 		   (setq err t)
+ 		   (setcdr (assoc (car entity) wl-folder-group-alist) nil)))
+ 		(if (not err)
+ 		    (delete-region (save-excursion (beginning-of-line)
+ 						   (point))
+ 				   (save-excursion (end-of-line)
+ 						   (+ 1 (point))))))
+ 	      ;;
+ 	      (and entities
+ 		   (wl-push entities entity-stack))
+ 	      (setq entities (nth 2 entity))))
+ 	    (unless entities
+ 	      (setq entities (wl-pop entity-stack)))))
+	(set-buffer-modified-p nil)))
+     (t
+      (wl-folder-jump-to-current-entity)))))
+
+(defun wl-folder-no-auto-check-folder-p (folder)
+  (if (stringp folder)
+      (if (catch 'found
+	    (let ((li wl-auto-check-folder-list))
+	      (while li
+		(if (string-match (car li) folder)
+		    (throw 'found t))
+		(setq li (cdr li)))))
+	  nil
+	(catch 'found
+	  (let ((li wl-auto-uncheck-folder-list))
+	    (while li
+	      (if (string-match (car li) folder)
+		  (throw 'found t))	; no check!
+	      (setq li (cdr li))))))))
+
+(defsubst wl-folder-add-folder-info (pre-value value)
+  (list
+   (+ (or (nth 0 pre-value) 0) (or (nth 0 value) 0))
+   (+ (or (nth 1 pre-value) 0) (or (nth 1 value) 0))
+   (+ (or (nth 2 pre-value) 0) (or (nth 2 value) 0))))
+
+(defun wl-folder-check-entity (entity &optional auto)
+  "Check unsync message number."
+  (let ((start-pos (point))
+	ret-val)
+    (run-hooks 'wl-folder-check-entity-pre-hook)
+    (if (and (consp entity)		;; group entity
+	     wl-folder-check-async)	;; very fast
+	(setq ret-val (wl-folder-check-entity-async entity auto))
+      (save-excursion
+	(cond
+	 ((consp entity)
+	  (let ((flist (if auto 
+			   (elmo-delete-if
+			    'wl-folder-no-auto-check-folder-p
+			    (nth 2 entity))
+			 (nth 2 entity)))
+		(wl-folder-check-entity-pre-hook nil)
+		(wl-folder-check-entity-hook nil)
+		new unread all)
+	    (while flist
+	      (setq ret-val
+		    (wl-folder-add-folder-info
+		     ret-val
+		     (wl-folder-check-entity (car flist))))
+	      (setq flist (cdr flist)))
+	    ;(wl-folder-buffer-search-entity (car entity))
+	    ;(wl-folder-update-line ret-val)
+	    ))
+	 ((and (stringp entity)
+	       (elmo-folder-plugged-p entity))
+	  (message "Checking \"%s\"" entity)
+	  (setq ret-val (wl-folder-check-one-entity entity))
+	  (goto-char start-pos)
+	  (sit-for 0))
+	 (t
+	  (message "Uncheck(unplugged) \"%s\"" entity)))))
+    (if ret-val
+	(message "Checking \"%s\" is done." 
+		 (if (consp entity) (car entity) entity)))
+    (run-hooks 'wl-folder-check-entity-hook)
+    ret-val))
+
+;; All contained folders are imap4 and persistent flag, then 
+;; use server diff.
+(defun wl-folder-use-server-diff-p (folder)
+  (let ((spec (elmo-folder-get-spec folder)))
+    (cond
+     ((eq (car spec) 'multi)
+      (let ((folders (cdr spec)))
+	(catch 'done
+	  (while folders
+	    (if (wl-folder-use-server-diff-p (car folders))
+		(throw 'done t))
+	    (setq folders (cdr folders)))
+	  nil)))
+    ((eq (car spec) 'filter)
+     (wl-folder-use-server-diff-p (nth 2 spec)))
+    ((eq (car spec) 'imap4)
+     (and wl-folder-use-server-diff
+	  (elmo-imap4-use-flag-p spec)))
+    (t nil))))
+
+(defun wl-folder-check-one-entity (entity)
+  (let* ((elmo-use-server-diff (wl-folder-use-server-diff-p entity))
+	 (nums (condition-case err
+		   (if (wl-string-member entity wl-strict-diff-folders)
+		       (elmo-strict-folder-diff entity)
+		     (elmo-folder-diff entity))
+		 (error
+		  ;; maybe not exist folder.
+		  (if (not (elmo-folder-exists-p entity))
+		      (if (not (elmo-folder-creatable-p entity))
+			  (error "Folder %s is not found" entity)
+			(if (y-or-n-p 
+			     (format "Folder %s does not exist, create it?" 
+				     entity))
+			    (progn
+			      (unless (elmo-create-folder entity)
+				(error "Create folder failed"))
+			      ;; one more try.
+			      (if (wl-string-member entity wl-strict-diff-folders)
+				  (elmo-strict-folder-diff entity)
+				(elmo-folder-diff entity)))
+			  (error "Folder is not created")))
+		    (signal (car err) (cdr err))))))
+	 unread unsync nomif)
+    (if (and (eq wl-folder-notify-deleted 'sync)
+	     (car nums)
+	     (or (> 0 (car nums)) (> 0 (cdr nums))))
+	(progn
+	  (wl-folder-sync-entity entity)
+	  (setq nums (elmo-folder-diff entity)))
+      (unless wl-folder-notify-deleted
+	(setq unsync (if (and (car nums) (> 0 (car nums))) 0 (car nums)))
+	(setq nomif (if (and (car nums) (> 0 (cdr nums))) 0 (cdr nums)))
+	(setq nums (cons unsync nomif)))
+      (wl-folder-entity-hashtb-set wl-folder-entity-hashtb entity
+				   (list (car nums)
+					 (setq 
+					  unread
+					  (or 
+					   ;; If server diff, All unreads are
+					   ;; treated as unsync.
+					   (if elmo-use-server-diff 0)
+					   (elmo-folder-get-info-unread entity)
+					   (wl-summary-count-unread
+					    (elmo-msgdb-mark-load
+					     (elmo-msgdb-expand-path entity))
+					    entity)))
+					 (cdr nums))
+				   (current-buffer)))
+    (setq wl-folder-info-alist-modified t)
+    (sit-for 0)
+    (list (if wl-folder-notify-deleted
+	      (car nums)
+	    (max (or (car nums) 0))) unread (cdr nums))))
+
+(defun wl-folder-check-entity-async (entity &optional auto)
+  (let ((elmo-nntp-groups-async t)
+	(elist (if auto
+		   (elmo-delete-if
+		    'wl-folder-no-auto-check-folder-p
+		    (wl-folder-get-entity-list entity))
+		 (wl-folder-get-entity-list entity)))
+	(nntp-connection-keys nil)
+	folder spec-list local-elist net-elist server
+	ret-val)
+    (while elist
+      (if (not (elmo-folder-plugged-p (car elist)))
+	  (message "Uncheck \"%s\"" (car elist))
+	(setq spec-list
+	      (elmo-folder-get-primitive-spec-list (elmo-string (car elist))))
+	(cond ((assq 'nntp spec-list)
+	       (wl-append net-elist (list (car elist)))
+	       (while spec-list
+		 (when (eq (caar spec-list) 'nntp)
+		   (when (not (string= server (nth 2 (car spec-list))))
+		     (setq server (nth 2 (car spec-list)))
+		     (message "Checking on \"%s\"" server))
+		   (setq nntp-connection-keys
+			 (elmo-nntp-get-folders-info-prepare
+			  (car spec-list)
+			  nntp-connection-keys)))
+		 (setq spec-list (cdr spec-list))))
+	      (t
+	       (wl-append local-elist (list (car elist))))))
+      (setq elist (cdr elist)))
+    ;; check local entity at first
+    (while (setq folder (pop local-elist))
+      (if (not (elmo-folder-plugged-p folder))
+	  (message "Uncheck \"%s\"" folder)
+	(message "Checking \"%s\"" folder)
+	(setq ret-val
+	      (wl-folder-add-folder-info
+	       ret-val
+	       (wl-folder-check-one-entity folder)))
+	;;(sit-for 0)
+	))
+    ;; check network entity at last
+    (when net-elist
+      (elmo-nntp-get-folders-info nntp-connection-keys)
+      (while (setq folder (pop net-elist))
+	(if (not (elmo-folder-plugged-p folder))
+	    (message "Uncheck \"%s\"" folder)
+	  (message "Checking \"%s\"" folder)
+	  (setq ret-val
+		(wl-folder-add-folder-info
+		 ret-val
+		 (wl-folder-check-one-entity folder)))
+	  ;;(sit-for 0)
+	  )))
+    ret-val))
+
+;;
+(defun wl-folder-resume-entity-hashtb-by-finfo (entity-hashtb info-alist)
+  "Resume unread info for entity alist."
+  (let (info)
+    (while info-alist
+      (setq info (nth 1 (car info-alist)))
+      (wl-folder-set-entity-info (caar info-alist)
+				 (list (nth 2 info)(nth 3 info)(nth 1 info))
+				 entity-hashtb)
+      (setq info-alist (cdr info-alist)))))
+
+(defun wl-folder-move-path (path)
+  (let ((fp (if (consp path)
+		path
+	      ;; path is entity-id
+	      (wl-folder-get-path wl-folder-entity path))))
+    (goto-char (point-min))
+    (while (and fp
+		(not (eobp)))
+      (when (equal (car fp)
+		   (wl-folder-get-entity-from-buffer t))
+	(setq fp (cdr fp))
+	(setq wl-folder-buffer-cur-point (point)))
+      (forward-line 1))
+    (and wl-folder-buffer-cur-point
+	 (goto-char wl-folder-buffer-cur-point))))
+
+(defun wl-folder-set-current-entity-id (entity-id)
+  (let ((buf (get-buffer wl-folder-buffer-name)))
+    (if buf
+	(save-excursion 
+	  (set-buffer buf)
+	  (setq wl-folder-buffer-cur-entity-id entity-id)
+	  (setq wl-folder-buffer-cur-path (wl-folder-get-path wl-folder-entity
+							      entity-id))
+	  (wl-highlight-folder-path wl-folder-buffer-cur-path)
+	  (and wl-folder-move-cur-folder
+	       wl-folder-buffer-cur-point
+	       (goto-char wl-folder-buffer-cur-point))))
+    (if (eq (current-buffer) buf)
+	(and wl-folder-move-cur-folder
+	     wl-folder-buffer-cur-point
+	     (goto-char wl-folder-buffer-cur-point)))))
+
+(defun wl-folder-check-current-entity ()
+  "Check folder at position. 
+If current line is group folder, check all sub entries."
+  (interactive)
+  (let* ((entity-name (wl-folder-get-entity-from-buffer))
+	 (group (wl-folder-buffer-group-p))
+	 (desktop (string= entity-name wl-folder-desktop-name)))
+    (when entity-name
+      (wl-folder-check-entity
+       (if group
+	   (wl-folder-search-group-entity-by-name entity-name
+						  wl-folder-entity)
+	 entity-name)
+       desktop))))
+
+(defun wl-folder-sync-entity (entity &optional unread-only)
+  "Synchronize the msgdb of ENTITY."
+  (cond
+   ((consp entity)
+    (let ((flist (nth 2 entity)))
+      (while flist
+	(wl-folder-sync-entity (car flist) unread-only)
+	(setq flist (cdr flist)))))
+   ((stringp entity)
+    (let ((nums (wl-folder-get-entity-info entity))
+	  (wl-summary-highlight (if (or (wl-summary-sticky-p entity)
+					(wl-summary-always-sticky-folder-p
+					 entity))
+				    wl-summary-highlight))
+	  wl-auto-select-first new unread)
+      (setq new (or (car nums) 0))
+      (setq unread (or (cadr nums) 0))
+      (if (or (not unread-only)
+	      (or (< 0 new) (< 0 unread)))
+	  (save-window-excursion
+	    (save-excursion
+	      (wl-summary-goto-folder-subr entity 
+					   (wl-summary-get-sync-range entity)
+					   nil nil nil t)
+	      (wl-summary-exit))))))))
+
+(defun wl-folder-sync-current-entity (&optional unread-only)
+  "Synchronize the folder at position. 
+If current line is group folder, check all subfolders."
+  (interactive "P")
+  (save-excursion
+    (let ((entity-name (wl-folder-get-entity-from-buffer))
+	  (group (wl-folder-buffer-group-p)))
+      (when (and entity-name
+		 (y-or-n-p (format "Sync %s?" entity-name)))
+	(wl-folder-sync-entity
+	 (if group
+	     (wl-folder-search-group-entity-by-name entity-name
+						    wl-folder-entity)
+	   entity-name)
+	 unread-only)
+	(message "Syncing %s is done!" entity-name)))))
+
+(defun wl-folder-mark-as-read-all-entity (entity)
+  "Mark as read all messages in the ENTITY"
+  (cond
+   ((consp entity)
+    (let ((flist (nth 2 entity)))
+      (while flist
+	(wl-folder-mark-as-read-all-entity (car flist))
+	(setq flist (cdr flist)))))
+   ((stringp entity)
+    (let ((nums (wl-folder-get-entity-info entity))
+	  (wl-summary-highlight (if (or (wl-summary-sticky-p entity)
+					(wl-summary-always-sticky-folder-p
+					 entity))
+				    wl-summary-highlight))
+	  wl-auto-select-first new unread)
+      (setq new (or (car nums) 0))
+      (setq unread (or (cadr nums) 0))
+      (if (or (< 0 new) (< 0 unread))
+	(save-window-excursion
+	  (save-excursion
+	    (wl-summary-goto-folder-subr entity 
+					 (wl-summary-get-sync-range entity)
+					 nil)
+	    (wl-summary-mark-as-read-all)
+	    (wl-summary-exit)))
+	(sit-for 0))))))
+
+(defun wl-folder-mark-as-read-all-current-entity ()
+  "Mark as read all messages in the folder at position. 
+If current line is group folder, all subfolders are marked."
+  (interactive)
+  (save-excursion
+    (let ((entity-name (wl-folder-get-entity-from-buffer))
+	  (group (wl-folder-buffer-group-p))
+	  summary-buf)
+      (when (and entity-name
+		 (y-or-n-p (format "Mark all messages in %s as read?" entity-name)))
+	(wl-folder-mark-as-read-all-entity
+	 (if group
+	     (wl-folder-search-group-entity-by-name entity-name
+						    wl-folder-entity)
+	   entity-name))
+	(message "All messages in %s are marked!" entity-name)))))
+
+(defun wl-folder-check-region (beg end)
+  (interactive "r")
+  (goto-char beg)
+  (beginning-of-line)
+  (setq beg (point))
+  (goto-char end)
+  (beginning-of-line)
+  (setq end (point))
+  (goto-char beg)
+  (let ((inhibit-read-only t)
+	entity)
+    (while (< (point) end)
+      ;; normal folder entity
+      (if (looking-at "^[\t ]*\\([^\\[]+\\):\\(.*\\)\n") 
+	  (save-excursion
+	    (setq entity (wl-folder-get-entity-from-buffer))
+	    (if (not (elmo-folder-plugged-p entity))
+		(message "Uncheck %s" entity)
+	      (message "Checking %s" entity)
+	      (wl-folder-check-one-entity entity)
+	      (sit-for 0))))
+      (forward-line 1)))
+  (message ""))
+
+(defun wl-folder-sync-region (beg end)
+  (interactive "r")
+  (goto-char beg)
+  (beginning-of-line)
+  (setq beg (point))
+  (goto-char end)
+  (end-of-line)
+  (setq end (point))
+  (goto-char beg)
+  (while (< (point) end)
+    ;; normal folder entity
+    (if (looking-at "^[\t ]*\\([^\\[]+\\):\\(.*\\)\n") 
+	(save-excursion
+	  (let ((inhibit-read-only t)
+		entity)
+	    (setq entity (wl-folder-get-entity-from-buffer))
+	    (wl-folder-sync-entity entity)
+	    (message "Syncing %s is done!" entity)
+	    (sit-for 0))))
+    (forward-line 1))
+  (message ""))
+
+(defun wl-folder-mark-as-read-all-region (beg end)
+  (interactive "r")
+  (goto-char beg)
+  (beginning-of-line)
+  (setq beg (point))
+  (goto-char end)
+  (end-of-line)
+  (setq end (point))
+  (goto-char beg)
+  (while (< (point) end)
+    ;; normal folder entity
+    (if (looking-at "^[\t ]*\\([^\\[]+\\):\\(.*\\)\n") 
+	(save-excursion
+	  (let ((inhibit-read-only t)
+		entity)
+	    (setq entity (wl-folder-get-entity-from-buffer))
+	    (wl-folder-mark-as-read-all-entity entity)
+	    (message "All messages in %s are marked!" entity)
+	    (sit-for 0))))
+    (forward-line 1))
+  (message ""))
+
+(defsubst wl-create-access-init-load-p (folder)
+  (let ((no-load-regexp (when (and
+			       (not wl-folder-init-load-access-folders)
+			       wl-folder-init-no-load-access-folders)
+			  (mapconcat 'identity
+				     wl-folder-init-no-load-access-folders
+				     "\\|")))
+	(load-regexp (and wl-folder-init-load-access-folders
+			  (mapconcat 'identity
+				     wl-folder-init-load-access-folders
+				     "\\|"))))
+    (cond (load-regexp (string-match load-regexp folder))
+	  (t (not (and no-load-regexp
+		       (string-match no-load-regexp folder)))))))
+
+(defun wl-create-access-folder-entity (name)
+  (let (flists flist)
+    (when (wl-create-access-init-load-p name)
+      (setq flists (elmo-msgdb-flist-load name)) ; load flist.
+      (setq flist (car flists))
+      (while flist
+	(when (consp (car flist))
+	  (setcdr (cdar flist)
+		  (wl-create-access-folder-entity (caar flist))))
+	(setq flist (cdr flist)))
+      flists)))
+
+(defun wl-create-folder-entity-from-buffer ()
+  "Create folder entity recursively."
+  (cond
+   ((looking-at "^[ \t]*$")		; blank line
+    (goto-char (+ 1(match-end 0)))
+    'ignore)
+   ((looking-at "^#.*$")		; comment
+    (goto-char (+ 1 (match-end 0)))
+    'ignore)
+   ((looking-at "^[\t ]*\\(.+\\)[\t ]*{[\t ]*$") ; group definition
+    (let (name entity flist)
+      (setq name (wl-match-buffer 1))
+      (goto-char (+ 1 (match-end 0)))
+      (while (setq entity (wl-create-folder-entity-from-buffer))
+	(unless (eq entity 'ignore)
+	  (wl-append flist (list entity))))
+      (if (looking-at "^[\t ]*}[\t ]*$") ; end of group 
+	  (progn
+	    (goto-char (+ 1 (match-end 0)))
+	    (if (wl-string-assoc name wl-folder-petname-alist)
+		(error "%s already defined as petname" name))
+	    (list name 'group flist))
+	(error "Syntax error in folder definition"))))
+   ((looking-at "^[\t ]*\\([^\t \n]+\\)[\t ]*/$") ; access it!
+    (let (name)
+      (setq name (wl-match-buffer 1))
+      (goto-char (+ 1 (match-end 0)))
+;      (condition-case ()
+;	  (unwind-protect
+;	      (setq flist (elmo-list-folders name)))
+;	(error (message "Access to folder %s failed." name)))
+;;       (setq flist (elmo-msgdb-flist-load name)) ; load flist.
+;;       (setq unsublist (nth 1 flist))
+;;       (setq flist (car flist))
+;;       (list name 'access flist unsublist)))
+      (append (list name 'access) (wl-create-access-folder-entity name))))
+   ;((looking-at "^[\t ]*\\([^\t \n}]+\\)[\t ]*\\(\"[^\"]*\"\\)?[\t ]*$") ; normal folder entity   
+   ((looking-at "^[\t ]*=[ \t]+\\([^\n]+\\)$"); petname definition
+    (goto-char (+ 1 (match-end 0)))
+    (let ((rest (elmo-match-buffer 1))
+	  petname)
+      (when (string-match "\\(\"[^\"]*\"\\)[\t ]*$" rest)
+	(setq petname (elmo-delete-char ?\" (elmo-match-string 1 rest)))
+	(setq rest (substring rest 0 (match-beginning 0))))
+      (when (string-match "^[\t ]*\\(.*[^\t ]+\\)[\t ]+$" rest)
+	(wl-folder-append-petname (elmo-match-string 1 rest)
+				  petname))
+      'ignore))
+   ((looking-at "^[ \t]*}[ \t]*$") ; end of group
+    nil)
+   ((looking-at "^.*$") ; normal folder entity
+    (goto-char (+ 1 (match-end 0)))
+    (let ((rest (elmo-match-buffer 0))
+	  realname petname)
+      (if (string-match "\\(\"[^\"]*\"\\)[\t ]*$" rest)
+	  (progn
+	    (setq petname (elmo-delete-char ?\" (elmo-match-string 1 rest)))
+	    (setq rest (substring rest 0 (match-beginning 0)))
+	    (when (string-match "^[\t ]*\\(.*[^\t ]+\\)[\t ]+$" rest)
+	      (wl-folder-append-petname
+	       (setq realname (elmo-match-string 1 rest))
+	       petname)
+	      realname))
+	(if (string-match "^[\t ]*\\(.+\\)$" rest)
+	    (elmo-match-string 1 rest)
+	  rest))))))
+
+(defun wl-folder-create-folder-entity ()
+  "Create folder entries."
+  (let ((tmp-buf (get-buffer-create " *wl-folder-tmp*"))
+	entity ret-val)
+    (condition-case ()
+	(progn
+	  (set-buffer tmp-buf)
+	  (erase-buffer)
+	  (insert-file-contents wl-folders-file)
+	  (goto-char (point-min))
+	  (while (and (not (eobp))
+		      (setq entity (wl-create-folder-entity-from-buffer)))
+	    (unless (eq entity 'ignore)
+	      (wl-append ret-val (list entity))))
+	  (kill-buffer tmp-buf))
+      (file-error nil))
+    (setq ret-val (list wl-folder-desktop-name 'group ret-val))))
+
+(defun wl-folder-entity-assign-id (entity &optional hashtb on-noid)
+  (let* ((hashtb (or hashtb 
+		     (setq wl-folder-entity-id-name-hashtb
+			   (elmo-make-hash wl-folder-entity-id))))
+	 (entities (list entity))
+	 entity-stack)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(when (not (and on-noid
+			(get-text-property 0
+					   'wl-folder-entity-id
+					   (car entity))))
+	  (put-text-property 0 (length (car entity))
+			     'wl-folder-entity-id 
+			     wl-folder-entity-id
+			     (car entity))
+	  (wl-folder-set-id-name wl-folder-entity-id
+				 (car entity) hashtb))
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(when (not (and on-noid
+			(get-text-property 0
+					   'wl-folder-entity-id
+					   entity)))
+	  (put-text-property 0 (length entity) 
+			     'wl-folder-entity-id 
+			     wl-folder-entity-id
+			     entity)
+	  (wl-folder-set-id-name wl-folder-entity-id
+				 entity hashtb))))
+      (setq wl-folder-entity-id (+ 1 wl-folder-entity-id))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))))
+
+(defun wl-folder-click (e)
+  (interactive "e")
+  (mouse-set-point e)
+  (beginning-of-line)
+  (save-excursion
+    (wl-folder-jump-to-current-entity)))
+
+(defun wl-folder-select-buffer (buffer)
+  (let ((gbw (get-buffer-window buffer))
+	ret-val)
+    (if gbw
+	(progn (select-window gbw)
+	       (setq ret-val t))
+      (condition-case ()
+	  (unwind-protect
+	      (split-window-horizontally wl-folder-window-width)
+	    (other-window 1))
+	(error nil)))
+    (set-buffer buffer)
+    (switch-to-buffer buffer)
+    ret-val
+    ))
+
+(defun wl-folder-toggle-disp-summary (&optional arg folder)
+  (interactive)
+  (if (or (and folder (assoc folder wl-folder-group-alist))
+	  (and (interactive-p) (wl-folder-buffer-group-p)))
+      (error "This command is not available on Group"))
+  (beginning-of-line)
+  (let (wl-auto-select-first)
+    (cond
+     ((eq arg 'on)
+      (setq wl-folder-buffer-disp-summary t))
+     ((eq arg 'off)
+      (setq wl-folder-buffer-disp-summary nil)
+      ;; hide wl-summary window.
+      (let ((cur-buf (current-buffer))
+	    (summary-buffer (wl-summary-get-buffer folder)))
+	(wl-folder-select-buffer summary-buffer)
+	(delete-window)
+	(select-window (get-buffer-window cur-buf))))
+     (t
+      (setq wl-folder-buffer-disp-summary 
+	    (not wl-folder-buffer-disp-summary))
+      (let ((cur-buf (current-buffer))
+	    folder-name)
+	(when (looking-at "^[ ]*\\([^\\[].+\\):.*\n")
+	  (setq folder-name (wl-folder-get-entity-from-buffer))
+	  (if wl-folder-buffer-disp-summary
+	      (progn
+		(wl-folder-select-buffer 
+		 (wl-summary-get-buffer-create folder-name))
+		(unwind-protect
+		    (wl-summary-goto-folder-subr folder-name 'no-sync nil)
+		  (select-window (get-buffer-window cur-buf))))
+	    (wl-folder-select-buffer (wl-summary-get-buffer folder-name))
+	    (delete-window)
+	    (select-window (get-buffer-window cur-buf)))))))))
+
+(defun wl-folder-prev-unsync ()
+  "move cursor to the previous unsync folder."
+  (interactive)
+  (let (start-point)
+    (setq start-point (point))
+    (beginning-of-line)
+    (if (re-search-backward wl-folder-unsync-regexp nil t)
+	(beginning-of-line)
+      (goto-char start-point)
+      (message "No more unsync folder"))))
+
+(defun wl-folder-next-unsync (&optional plugged)
+  "move cursor to the next unsync."
+  (interactive)
+  (let (start-point entity)
+    (setq start-point (point))
+    (end-of-line)
+    (if (catch 'found
+	  (while (re-search-forward wl-folder-unsync-regexp nil t)
+	    (if (or (wl-folder-buffer-group-p)
+		    (not plugged)
+		    (setq entity
+			  (wl-folder-get-realname
+			   (wl-folder-folder-name)))
+		    (elmo-folder-plugged-p entity))
+		(throw 'found t))))
+	(beginning-of-line)
+      (goto-char start-point)
+      (message "No more unsync folder"))))
+
+(defun wl-folder-prev-unread (&optional group)
+  "move cursor to the previous unread folder."
+  (interactive "P")
+  (let (start-point)
+    (setq start-point (point))
+    (beginning-of-line)
+    (if (re-search-backward (wl-folder-unread-regex group) nil t)
+	(progn
+	  (beginning-of-line)
+	  (wl-folder-folder-name))
+      (goto-char start-point)
+      (message "No more unread folder")
+      nil)))
+
+(defun wl-folder-next-unread (&optional group)
+  "move cursor to the next unread folder."
+  (interactive "P")
+  (let (start-point)
+    (setq start-point (point))
+    (end-of-line)
+    (if (re-search-forward (wl-folder-unread-regex group) nil t)
+	(progn
+	  (beginning-of-line)
+	  (wl-folder-folder-name))
+      (goto-char start-point)
+      (message "No more unread folder")
+      nil)))
+
+(defun wl-folder-mode ()
+  "Major mode for Wanderlust Folder.
+See info under Wanderlust for full documentation.
+
+Special commands:
+\\{wl-folder-mode-map}
+
+Entering Folder mode calls the value of `wl-folder-mode-hook'."
+  (interactive)
+  (setq major-mode 'wl-folder-mode)
+  (setq mode-name "Folder")
+  (use-local-map wl-folder-mode-map)
+  (setq buffer-read-only t)
+  (setq inhibit-read-only nil)
+  (setq truncate-lines t)
+  (when wl-show-plug-status-on-modeline 
+    (setq mode-line-format (wl-make-modeline)))
+  (easy-menu-add wl-folder-mode-menu)
+  (wl-xmas-setup-folder)
+  (run-hooks 'wl-folder-mode-hook))
+
+(defun wl-folder-append-petname (realname petname)
+  (let (pentry)
+    ;; check group name.
+    (if (wl-folder-search-group-entity-by-name petname wl-folder-entity)
+	(error "%s already defined as group name" petname))
+    (when (setq pentry (wl-string-assoc realname wl-folder-petname-alist))
+      (setq wl-folder-petname-alist
+	    (delete pentry wl-folder-petname-alist)))
+    (wl-append wl-folder-petname-alist
+	       (list (cons realname petname)))))
+
+(defun wl-folder (&optional arg)
+  (interactive "P")
+  (let (initialize)
+;  (delete-other-windows)
+  (if (get-buffer wl-folder-buffer-name)
+      (switch-to-buffer  wl-folder-buffer-name)
+    (switch-to-buffer (get-buffer-create wl-folder-buffer-name))
+    (setq mode-line-buffer-identification '("Wanderlust: %12b"))
+    (wl-folder-mode)
+    (wl-folder-init)
+    (wl-folder-init-icons)
+    (set-buffer wl-folder-buffer-name)
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil))
+      (erase-buffer)
+      (setcdr (assoc (car wl-folder-entity) wl-folder-group-alist) t)
+      (save-excursion
+	(wl-folder-insert-entity " " wl-folder-entity)))
+    (set-buffer-modified-p nil)
+    (sit-for 0)
+    (setq initialize t))
+  (if (not arg)
+      (progn
+	(run-hooks 'wl-auto-check-folder-pre-hook)
+	(cond
+	 ((eq wl-auto-check-folder-name 'none))
+	 ((or (consp wl-auto-check-folder-name)
+	      (stringp wl-auto-check-folder-name))
+	  (let ((folder-list (if (consp wl-auto-check-folder-name)
+				 wl-auto-check-folder-name
+			       (list wl-auto-check-folder-name)))
+		entity)
+	    (while folder-list
+	      (if (setq entity (wl-folder-search-entity-by-name
+				(car folder-list)
+				wl-folder-entity))
+		  (wl-folder-check-entity entity 'auto))
+	      (setq folder-list (cdr folder-list)))))
+	 (t
+	  (wl-folder-check-entity wl-folder-entity 'auto)))
+	(run-hooks 'wl-auto-check-folder-hook)))
+  initialize))
+
+(defun wl-folder-set-folder-updated (name value)
+  (save-excursion
+    (let (buf)
+      (if (setq buf (get-buffer wl-folder-buffer-name))
+	  (wl-folder-entity-hashtb-set 
+	   wl-folder-entity-hashtb name value buf))
+;;       (elmo-folder-set-info-hashtb (elmo-string name)
+;; 				  nil
+;; 				  (nth 2 value)
+;; 				  (nth 0 value)
+;; 				  (nth 1 value))
+      (setq wl-folder-info-alist-modified t))))
+
+(defun wl-folder-calc-finfo (entity)
+  ;; calcurate finfo without inserting.
+  (let ((entities (list entity))
+	entity-stack
+	new unread all nums)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(setq nums (wl-folder-get-entity-info entity))
+	(setq new    (+ (or new 0) (or (nth 0 nums) 0)))
+	(setq unread (+ (or unread 0)
+			(or (and (nth 0 nums)(nth 1 nums)
+				 (+ (nth 0 nums)(nth 1 nums))) 0)))
+	(setq all    (+ (or all 0) (or (nth 2 nums) 0)))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    (list new unread all)))
+
+(defsubst wl-folder-make-save-access-list (list)
+  (mapcar '(lambda (x)
+	     (cond
+	      ((consp x)
+	       (list (elmo-string (car x)) 'access))
+	      (t
+	       (elmo-string x))))
+	  list))
+
+(defun wl-folder-update-newest (indent entity)
+  (let (ret-val new unread all)
+    (cond 
+     ((consp entity)
+      (let ((inhibit-read-only t)
+	    (buffer-read-only nil)
+	    (flist (nth 2 entity))
+	    (as-opened (cdr (assoc (car entity) wl-folder-group-alist)))
+	    beg
+	    )
+	(setq beg (point))
+	(if as-opened
+	    (let (update-flist flist-unsub new-flist removed group-name-end)
+	      (when (and (eq (cadr entity) 'access)
+			 (elmo-folder-plugged-p (car entity)))
+		(message "Fetching folder entries...")
+		(when (setq new-flist
+			    (elmo-list-folders
+			     (elmo-string (car entity))
+			     (wl-string-member
+			      (car entity)
+			      wl-folder-hierarchy-access-folders)))
+		  (setq update-flist
+			(wl-folder-update-access-group entity new-flist))
+		  (setq flist (nth 1 update-flist))
+		  (when (car update-flist) ;; diff
+		    (setq flist-unsub (nth 2 update-flist))
+		    (setq removed (nth 3 update-flist))
+		    (elmo-msgdb-flist-save
+		     (car entity) 
+		     (list
+		      (wl-folder-make-save-access-list flist)
+		      (wl-folder-make-save-access-list flist-unsub)))
+		    (wl-folder-entity-assign-id
+		     entity
+		     wl-folder-entity-id-name-hashtb
+		     t)
+		    (setq wl-folder-entity-hashtb
+			  (wl-folder-create-entity-hashtb
+			   entity
+			   wl-folder-entity-hashtb
+			   t))
+		    (setq wl-folder-newsgroups-hashtb
+			  (or
+			   (wl-folder-create-newsgroups-hashtb
+			    entity nil)
+			   wl-folder-newsgroups-hashtb))))
+		(message "Fetching folder entries...done."))
+	      (wl-folder-insert-entity indent entity))))))))
+
+(defun wl-folder-insert-entity (indent entity &optional onlygroup)
+  (let (ret-val new unread all)
+    (cond 
+     ((consp entity)
+      (let ((inhibit-read-only t)
+	    (buffer-read-only nil)
+	    (flist (nth 2 entity))
+	    (as-opened (cdr (assoc (car entity) wl-folder-group-alist)))
+	    beg
+	    )
+;      (insert indent "[" (if as-opened "-" "+") "]" (car entity) "\n")
+;      (save-excursion (forward-line -1)
+;		      (wl-highlight-folder-current-line))
+	(setq beg (point))
+	(if (and as-opened
+		 (not onlygroup))
+	    (let (update-flist flist-unsub new-flist removed group-name-end)
+;	      (when (and (eq (cadr entity) 'access)
+;			 newest)
+;		(message "fetching folder entries...")
+;		(when (setq new-flist
+;			    (elmo-list-folders
+;			     (elmo-string (car entity))
+;			     (wl-string-member
+;			      (car entity)
+;			      wl-folder-hierarchy-access-folders)
+;			     ))
+;		  (setq update-flist
+;			(wl-folder-update-access-group entity new-flist))
+;		  (setq flist (nth 1 update-flist))
+;		  (when (car update-flist) ;; diff
+;		    (setq flist-unsub (nth 2 update-flist))
+;		    (setq removed (nth 3 update-flist))
+;		    (elmo-msgdb-flist-save
+;		     (car entity) 
+;		     (list
+;		      (wl-folder-make-save-access-list flist)
+;		      (wl-folder-make-save-access-list flist-unsub)))
+;		    ;;
+;		    ;; reconstruct wl-folder-entity-id-name-hashtb and
+;		    ;;		 wl-folder-entity-hashtb
+;		    ;;
+;		    (wl-folder-entity-assign-id
+;		     entity
+;		     wl-folder-entity-id-name-hashtb
+;		     t)
+;		    (setq wl-folder-entity-hashtb
+;			  (wl-folder-create-entity-hashtb
+;			   entity
+;			   wl-folder-entity-hashtb
+;			   t))
+;		    (setq wl-folder-newsgroups-hashtb
+;			  (or
+;			   (wl-folder-create-newsgroups-hashtb
+;			    entity nil)
+;			   wl-folder-newsgroups-hashtb))))
+;		(message "fetching folder entries...done."))
+	      (insert indent "[" (if as-opened "-" "+") "]" 
+		      (wl-folder-get-petname (car entity)))
+	      (setq group-name-end (point))
+	      (insert ":0/0/0\n")
+	      (put-text-property beg (point) 'wl-folder-entity-id
+				 (get-text-property 0 'wl-folder-entity-id 
+						    (car entity)))
+	      (when removed
+		(setq beg (point))
+		(while removed
+		  (insert indent "  " 
+			  wl-folder-removed-mark
+			  (if (listp (car removed))
+			      (concat "[+]" (caar removed))
+			    (car removed))
+			  "\n")
+		  (save-excursion (forward-line -1)
+				  (wl-highlight-folder-current-line))
+		  (setq removed (cdr removed)))
+		(remove-text-properties beg (point) '(wl-folder-entity-id)))
+	      (let* ((len (length flist))
+		     (mes (> len 100))
+		     (i 0))
+		(while flist
+		  (setq ret-val
+			(wl-folder-insert-entity 
+			 (concat indent "  ") (car flist)))
+		  (setq new    (+ (or new 0) (or (nth 0 ret-val) 0)))
+		  (setq unread (+ (or unread 0) (or (nth 1 ret-val) 0)))
+		  (setq all    (+ (or all 0) (or (nth 2 ret-val) 0)))
+		  (when mes
+		    (setq i (1+ i))
+		    (and (zerop (% i 10))
+			 (elmo-display-progress
+			  'wl-folder-insert-entity "Inserting group %s..."
+			  (/ (* i 100) len) (car entity))))
+		  (setq flist (cdr flist)))
+		(when mes (message "")))
+	      (save-excursion
+		(goto-char group-name-end)
+		(delete-region (point) (save-excursion (end-of-line)
+						       (point)))
+		(insert (format ":%d/%d/%d" (or new 0)
+				(or unread 0) (or all 0)))
+		(setq ret-val (list new unread all))
+		(wl-highlight-folder-current-line ret-val)))
+	  (setq ret-val (wl-folder-calc-finfo entity))
+	  (insert indent "[" (if as-opened "-" "+") "]" 
+		  (wl-folder-get-petname (car entity)) 
+		  (format ":%d/%d/%d" 
+			  (or (nth 0 ret-val) 0)
+			  (or (nth 1 ret-val) 0)
+			  (or (nth 2 ret-val) 0))
+		  "\n")
+	  (put-text-property beg (point) 'wl-folder-entity-id
+			     (get-text-property 0 'wl-folder-entity-id 
+						(car entity)))
+	  (save-excursion (forward-line -1)
+			  (wl-highlight-folder-current-line ret-val)))))
+     ((stringp entity)
+      (let* ((inhibit-read-only t)
+	     (buffer-read-only nil)
+	     (nums (wl-folder-get-entity-info entity))
+	     beg)
+	(setq beg (point))
+	(insert indent (wl-folder-get-petname entity)
+		(format ":%s/%s/%s\n" 
+			(or (setq new (nth 0 nums)) "*")
+			(or (setq unread (and (nth 0 nums)(nth 1 nums)
+					      (+ (nth 0 nums)(nth 1 nums))))
+			    "*")
+			(or (setq all (nth 2 nums)) "*")))
+	(put-text-property beg (point) 'wl-folder-entity-id
+			   (get-text-property 0 'wl-folder-entity-id entity))
+	(save-excursion (forward-line -1)
+			(wl-highlight-folder-current-line nums))
+	(setq ret-val (list new unread all)))))
+    (set-buffer-modified-p nil)
+    ret-val))
+
+(defun wl-folder-check-all ()
+  (interactive)
+  (wl-folder-check-entity wl-folder-entity))
+
+(defun wl-folder-entity-hashtb-set (entity-hashtb name value buffer)
+  (let (cur-val 
+	(new-diff 0)
+	(unread-diff 0)
+	(all-diff 0)
+	diffs
+	entity-list)
+    (setq cur-val (wl-folder-get-entity-info name entity-hashtb))
+    (setq new-diff    (- (or (nth 0 value) 0) (or (nth 0 cur-val) 0)))
+    (setq unread-diff 
+	  (+ new-diff
+	     (- (or (nth 1 value) 0) (or (nth 1 cur-val) 0))))
+    (setq all-diff    (- (or (nth 2 value) 0) (or (nth 2 cur-val) 0)))
+    (setq diffs (list new-diff unread-diff all-diff))
+    (unless (and (nth 0 cur-val)
+		 (equal diffs '(0 0 0)))
+      (wl-folder-set-entity-info name value entity-hashtb)
+      (save-match-data
+	(save-excursion
+	  (set-buffer buffer)
+	  (setq entity-list (wl-folder-search-entity-list-by-name
+			     name wl-folder-entity))
+	  (while entity-list
+	    (wl-folder-update-group (car entity-list) diffs)
+	    (setq entity-list (cdr entity-list)))
+	  (goto-char (point-min))
+	  (while (wl-folder-buffer-search-entity name)
+	    (wl-folder-update-line value)))))))
+
+(defun wl-folder-update-unread (folder unread)
+  (save-window-excursion
+    (let ((buf (get-buffer wl-folder-buffer-name))
+	  cur-unread
+	  (unread-diff 0)
+	  ;;(fld (elmo-string folder))
+	  value newvalue entity-list)
+      ;; Update folder-info
+      ;;(elmo-folder-set-info-hashtb fld nil nil nil unread)
+      (setq cur-unread (or (nth 1 (wl-folder-get-entity-info folder)) 0))
+      (setq unread-diff (- (or unread 0) cur-unread))
+      (setq value (wl-folder-get-entity-info folder))
+
+      (setq newvalue (list (nth 0 value)
+			   unread
+			   (nth 2 value)))
+      (wl-folder-set-entity-info folder newvalue)
+      (setq wl-folder-info-alist-modified t)
+      (when (and buf
+		 (not (eq unread-diff 0)))
+	(save-match-data
+	  (save-excursion
+	    (set-buffer buf)
+	    (save-excursion
+	      (setq entity-list (wl-folder-search-entity-list-by-name
+				 folder wl-folder-entity))
+	      (while entity-list
+		(wl-folder-update-group (car entity-list) (list 0
+								unread-diff
+								0))
+		(setq entity-list (cdr entity-list)))
+	      (goto-char (point-min))
+	      (while (wl-folder-buffer-search-entity folder)
+		(wl-folder-update-line newvalue)))))))))
+
+(defun wl-folder-create-entity-hashtb (entity &optional hashtb reconst)
+  (let* ((hashtb (or hashtb (elmo-make-hash wl-folder-entity-id)))
+	 (entities (list entity))
+	 entity-stack)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(when (not (and reconst
+			(wl-folder-get-entity-info entity)))
+	  (wl-folder-set-entity-info entity
+				     nil
+				     hashtb))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    hashtb))
+
+;; Unsync number is reserved.
+;; (defun wl-folder-reconstruct-entity-hashtb (entity &optional hashtb id-name)
+;;   (let* ((hashtb (or hashtb (elmo-make-hash wl-folder-entity-id)))
+;; 	 (entities (list entity))
+;; 	 entity-stack)
+;;     (while entities
+;;       (setq entity (wl-pop entities))
+;;       (cond
+;;        ((consp entity)
+;; 	(if id-name
+;; 	    (wl-folder-set-id-name (wl-folder-get-entity-id (car entity))
+;; 				   (car entity)))
+;; 	(and entities
+;; 	     (wl-push entities entity-stack))
+;; 	(setq entities (nth 2 entity))
+;; 	)
+;;        ((stringp entity)
+;; 	(wl-folder-set-entity-info entity
+;; 			     (wl-folder-get-entity-info entity)
+;; 			     hashtb)
+;; 	(if id-name
+;; 	    (wl-folder-set-id-name (wl-folder-get-entity-id entity)
+;; 				   entity))))
+;;       (unless entities
+;; 	(setq entities (wl-pop entity-stack))))
+;;     hashtb))
+
+(defun wl-folder-create-newsgroups-from-nntp-access2 (entity)
+  (let ((flist (nth 2 entity))
+	folders)
+    (and
+     (setq folders
+	   (delq
+	    nil
+	    (mapcar
+	     '(lambda (fld)
+		(if (consp fld)
+		    (wl-folder-create-newsgroups-from-nntp-access2 fld)
+		  (nth 1 (elmo-folder-get-spec fld))))
+	     flist)))
+     (elmo-nntp-make-groups-hashtb folders 1024))
+    nil))
+
+(defun wl-folder-create-newsgroups-from-nntp-access (entity)
+  (let ((flist (nth 2 entity))
+	folders)
+    (while flist
+      (wl-append folders
+		 (cond
+		  ((consp (car flist))
+		   (wl-folder-create-newsgroups-from-nntp-access (car flist)))
+		  (t
+		   (list (nth 1 (elmo-folder-get-spec (car flist)))))))
+      (setq flist (cdr flist)))
+    folders))
+
+(defun wl-folder-create-newsgroups-hashtb (entity &optional is-list info)
+  (let ((entities (if is-list entity (list entity)))
+	entity-stack spec-list folders fld make-hashtb)
+    (and info (message "Creating newsgroups..."))
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(if (eq (nth 1 entity) 'access)
+	    (when (eq (elmo-folder-get-type (car entity)) 'nntp)
+	      (wl-append folders 
+			 (wl-folder-create-newsgroups-from-nntp-access entity))
+	      (setq make-hashtb t))
+	  (and entities
+	       (wl-push entities entity-stack))
+	  (setq entities (nth 2 entity))))
+       ((stringp entity)
+	(setq spec-list (elmo-folder-get-primitive-spec-list entity))
+	(while spec-list
+	  (when (and (eq (caar spec-list) 'nntp)
+		     (setq fld (nth 1 (car spec-list))))
+	    (wl-append folders (list (elmo-string fld))))
+	  (setq spec-list (cdr spec-list)))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    (and info (message "Creating newsgroups...done"))
+    (if (or folders make-hashtb)
+	(elmo-nntp-make-groups-hashtb folders))))
+
+(defun wl-folder-get-path (entity target-id &optional string)
+  (let* ((entities (list entity))
+	 entity-stack result-path)
+    (reverse
+     (catch 'done
+       (while entities
+	 (setq entity (wl-pop entities))
+	 (cond
+	  ((consp entity)
+	   (if (and (or (not string) (string= string (car entity)))
+		    ;; don't use eq, `id' is string on Nemacs.
+		    (equal target-id (wl-folder-get-entity-id (car entity))))
+	       (throw 'done
+		      (wl-push target-id result-path))
+	     (wl-push (wl-folder-get-entity-id (car entity)) result-path))
+	   (wl-push entities entity-stack)
+	   (setq entities (nth 2 entity)))
+	  ((stringp entity)
+	   (if (and (or (not string) (string= string entity))
+		    ;; don't use eq, `id' is string on Nemacs.
+		    (equal target-id (wl-folder-get-entity-id entity)))
+	       (throw 'done
+		      (wl-push target-id result-path)))))
+	 (unless entities
+	   (while (and entity-stack
+		       (not entities))
+	     (setq result-path (cdr result-path))
+	     (setq entities (wl-pop entity-stack)))))))))
+
+(defun wl-folder-create-group-alist (entity)
+  (if (consp entity)
+      (let ((flist (nth 2 entity)) cur-alist append-alist)
+	(setq cur-alist (list (cons (car entity) nil)))
+	(while flist
+	  (if (consp (car flist))
+	      (wl-append append-alist
+			 (wl-folder-create-group-alist (car flist))))
+	  (setq flist (cdr flist)))
+	(append cur-alist append-alist))))
+
+(defun wl-folder-init-info-hashtb ()
+  (let ((info-alist (and wl-folder-info-save
+			 (elmo-msgdb-finfo-load))))
+    (elmo-folder-info-make-hashtb
+     info-alist
+     wl-folder-entity-hashtb)))
+;;     (wl-folder-resume-entity-hashtb-by-finfo
+;;      wl-folder-entity-hashtb
+;;      info-alist)))
+
+(defun wl-folder-cleanup-variables ()
+  (setq wl-folder-entity nil
+	wl-folder-entity-hashtb nil
+	wl-folder-entity-id-name-hashtb nil
+	wl-folder-group-alist nil
+	wl-folder-petname-alist nil
+	wl-folder-newsgroups-hashtb nil
+	wl-fldmgr-cut-entity-list nil
+	wl-fldmgr-modified nil
+	wl-fldmgr-modified-access-list nil
+	wl-score-cache nil
+	))
+
+(defun wl-make-plugged-alist ()
+  (let ((entity-list (wl-folder-get-entity-list wl-folder-entity))
+	(add (not wl-reset-plugged-alist)))
+    (while entity-list
+      (elmo-folder-set-plugged
+       (elmo-string (car entity-list)) wl-plugged add)
+      (setq entity-list (cdr entity-list)))
+    ;; smtp posting server
+    (when wl-smtp-posting-server
+      (elmo-set-plugged wl-plugged
+			wl-smtp-posting-server  ; server
+			(or (and (boundp 'smtp-service) smtp-service)
+			    "smtp")	; port
+			nil nil "smtp" add))
+    ;; nntp posting server
+    (when wl-nntp-posting-server
+      (elmo-set-plugged wl-plugged
+			wl-nntp-posting-server
+			elmo-default-nntp-port
+			nil nil "nntp" add))
+    (wl-plugged-init-icons)
+    ;; user setting
+    (run-hooks 'wl-make-plugged-hook)))
+
+(defvar wl-folder-init-func 'wl-local-folder-init)
+
+(defun wl-folder-init ()
+  (interactive)
+  (funcall wl-folder-init-func))
+
+(defun wl-local-folder-init ()
+  (message "Initializing folder...")
+  (save-excursion
+    (let* ((entity (wl-folder-create-folder-entity))
+	   (inhibit-read-only t))
+      (setq wl-folder-entity entity)
+      (setq wl-folder-entity-id 0)
+      (wl-folder-entity-assign-id wl-folder-entity)
+      (setq wl-folder-entity-hashtb
+	    (wl-folder-create-entity-hashtb entity))
+      (setq wl-folder-group-alist
+	    (wl-folder-create-group-alist entity))
+      (setq wl-folder-newsgroups-hashtb
+	    (wl-folder-create-newsgroups-hashtb wl-folder-entity))
+      (wl-folder-init-info-hashtb)
+      (setq wl-folder-buffer-cur-entity-id nil
+	    wl-folder-buffer-cur-path nil
+	    wl-folder-buffer-cur-point nil)))
+  (message "Initializing folder...done."))
+
+(defun wl-folder-get-realname (petname)
+  (or (car 
+       (wl-string-rassoc 
+	petname
+	wl-folder-petname-alist))
+      petname))
+
+(defun wl-folder-get-petname (folder)
+  (or (cdr 
+       (wl-string-assoc 
+	folder 
+	wl-folder-petname-alist))
+      folder))
+
+(defun wl-folder-get-entity-with-petname ()
+  (let ((alist wl-folder-petname-alist)
+	(hashtb (copy-sequence wl-folder-entity-hashtb)))
+    (while alist
+      (wl-folder-set-entity-info (cdar alist) nil hashtb)
+      (setq alist (cdr alist)))
+    hashtb))
+
+(defun wl-folder-update-diff-line (diffs)
+  (let ((inhibit-read-only t)
+	(buffer-read-only nil)
+	cur-new new-new
+	cur-unread new-unread
+	cur-all new-all
+	id)
+    (save-excursion
+      (beginning-of-line)
+      (setq id (get-text-property (point) 'wl-folder-entity-id))
+      (when (looking-at "^[ ]*\\(.*\\):\\([0-9\\*-]*\\)/\\([0-9\\*-]*\\)/\\([0-9\\*]*\\)")  
+	;;(looking-at "^[ ]*\\([^\\[].+\\):\\([0-9\\*-]*/[0-9\\*-]*/[0-9\\*]*\\)")  
+	(setq cur-new (string-to-int 
+		       (wl-match-buffer 2)))
+	(setq cur-unread (string-to-int 
+			  (wl-match-buffer 3)))
+	(setq cur-all (string-to-int 
+		       (wl-match-buffer 4)))
+	(delete-region (match-beginning 2)
+		       (match-end 4))
+	(goto-char (match-beginning 2))
+	(insert (format "%s/%s/%s" 
+			(setq new-new (+ cur-new (nth 0 diffs)))
+			(setq new-unread (+ cur-unread (nth 1 diffs)))
+			(setq new-all (+ cur-all (nth 2 diffs)))))
+	(put-text-property (match-beginning 2) (point)
+			   'wl-folder-entity-id id)
+	(if wl-use-highlight-mouse-line 
+	    (put-text-property (match-beginning 2) (point)
+			       'mouse-face 'highlight))
+	(wl-highlight-folder-group-line (list new-new new-unread new-all))
+	(setq buffer-read-only t)
+	(set-buffer-modified-p nil)))))
+
+(defun wl-folder-update-line (nums &optional is-group)
+  (let ((inhibit-read-only t)
+	(buffer-read-only nil)
+	id)
+    (save-excursion
+      (beginning-of-line)
+      (setq id (get-text-property (point) 'wl-folder-entity-id))
+      (if (looking-at "^[ ]*\\(.*\\):\\([0-9\\*-]*/[0-9\\*-]*/[0-9\\*]*\\)")  
+	  ;;(looking-at "^[ ]*\\([^\\[].+\\):\\([0-9\\*-]*/[0-9\\*-]*/[0-9\\*]*\\)")  
+	  (progn
+	    (delete-region (match-beginning 2)
+			   (match-end 2))
+	    (goto-char (match-beginning 2))
+	    (insert (format "%s/%s/%s" 
+			    (or (nth 0 nums) "*")
+			    (or (and (nth 0 nums)(nth 1 nums)
+				     (+ (nth 0 nums)(nth 1 nums)))
+				"*")
+			    (or (nth 2 nums) "*")))
+	    (put-text-property (match-beginning 2) (point)
+			       'wl-folder-entity-id id)
+	    (if is-group
+		;; update only colors
+		(wl-highlight-folder-group-line nums)
+	      (wl-highlight-folder-current-line nums))
+	    (set-buffer-modified-p nil))))))
+
+(defun wl-folder-goto-folder (&optional arg)
+  (interactive "P")
+  (wl-folder-goto-folder-subr nil arg))
+
+(defun wl-folder-goto-folder-subr (&optional folder sticky)
+  (beginning-of-line)
+  (let (summary-buf fld-name entity id error-selecting)
+;;    (setq fld-name (wl-folder-get-entity-from-buffer))
+;;    (if (or (null fld-name)
+;;	    (assoc fld-name wl-folder-group-alist))
+    (setq fld-name wl-default-folder)
+    (setq fld-name (or folder
+		       (wl-summary-read-folder fld-name)))
+    (if (and (setq entity
+		   (wl-folder-search-entity-by-name fld-name
+						    wl-folder-entity
+						    'folder))
+	     (setq id (wl-folder-get-entity-id entity)))
+	(wl-folder-set-current-entity-id id))
+    (setq summary-buf (wl-summary-get-buffer-create fld-name sticky))
+    (if wl-stay-folder-window
+	(wl-folder-select-buffer summary-buf)
+      (if (and summary-buf
+	       (get-buffer-window summary-buf))
+	  (delete-window)))
+    (wl-summary-goto-folder-subr fld-name 
+				 (wl-summary-get-sync-range fld-name)
+				 nil sticky t)))
+
+(defun wl-folder-suspend ()
+  (interactive)
+  (run-hooks 'wl-folder-suspend-hook)
+  (wl-folder-info-save)
+  (wl-crosspost-alist-save)
+  (wl-kill-buffers
+   (format "^\\(%s\\)$"
+	   (mapconcat 'identity
+		      (list (format "%s\\(:.*\\)?"
+				    (default-value 'wl-message-buf-name))
+			    wl-original-buf-name)
+		      "\\|")))
+  (if (fboundp 'mmelmo-cleanup-entity-buffers)
+      (mmelmo-cleanup-entity-buffers))
+  (bury-buffer wl-folder-buffer-name)
+  (delete-windows-on wl-folder-buffer-name t))
+
+(defun wl-folder-info-save ()
+  (when (and wl-folder-info-save
+	     wl-folder-info-alist-modified)
+    (let ((entities (list wl-folder-entity))
+	  entity entity-stack info-alist info)
+      (while entities
+	(setq entity (wl-pop entities))
+	(cond
+	 ((consp entity)
+	  (and entities
+	       (wl-push entities entity-stack))
+	  (setq entities (nth 2 entity)))
+	 ((stringp entity)
+	  (when (and (setq info (elmo-folder-get-info entity))
+		     (not (equal info '(nil))))
+	    (wl-append info-alist (list (list (elmo-string entity)
+					      (list (nth 3 info)  ;; max
+						    (nth 2 info)  ;; length
+						    (nth 0 info)  ;; new
+						    (nth 1 info)) ;; unread
+					      ))))))
+	(unless entities
+	  (setq entities (wl-pop entity-stack))))
+      (elmo-msgdb-finfo-save info-alist)
+      (setq wl-folder-info-alist-modified nil))))
+
+(defun wl-folder-goto-first-unread-folder (&optional arg)
+  (interactive "P")
+  (let ((entities (list wl-folder-entity))
+	entity entity-stack ret-val
+	first-entity finfo)
+    (setq first-entity
+	  (catch 'done
+	    (while entities
+	      (setq entity (wl-pop entities))
+	      (cond
+	       ((consp entity)
+		(and entities
+		     (wl-push entities entity-stack))
+		(setq entities (nth 2 entity)))
+	       ((stringp entity)
+		(if (and (setq finfo (wl-folder-get-entity-info entity))
+			 (and (nth 0 finfo)(nth 1 finfo))
+			 (> (+ (nth 0 finfo)(nth 1 finfo)) 0))
+		    (throw 'done entity))
+		(wl-append ret-val (list entity))))
+	      (unless entities
+		(setq entities (wl-pop entity-stack))))))
+    (if first-entity
+	(progn
+	  (when arg
+	    (wl-folder-jump-folder first-entity)
+	    (sit-for 0))
+	  (wl-folder-goto-folder-subr first-entity))
+      (message "No unread folder"))))
+
+(defun wl-folder-jump-folder (&optional fld-name noopen)
+  (interactive)
+  (if (not fld-name)
+      (setq fld-name (wl-summary-read-folder wl-default-folder)))
+  (goto-char (point-min))
+  (if (not noopen)
+      (wl-folder-open-folder fld-name))
+  (and (wl-folder-buffer-search-entity fld-name)
+       (beginning-of-line)))
+
+(defun wl-folder-get-entity-list (entity)
+  (let ((entities (list entity))
+	entity-stack ret-val)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity)))
+       ((stringp entity)
+	(wl-append ret-val (list entity))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))
+    ret-val))
+
+(defun wl-folder-open-unread-folder (entity)
+  (save-excursion
+    (let ((alist (wl-folder-get-entity-list entity))
+	  (unread 0)
+	  finfo path-list path id)
+      (while alist
+	(when (and (setq finfo (wl-folder-get-entity-info (car alist)))
+		   (nth 0 finfo) (nth 1 finfo)
+		   (> (+ (nth 0 finfo)(nth 1 finfo)) 0))
+	  (setq unread (+ unread (+ (nth 0 finfo)(nth 1 finfo))))
+	  (setq id (wl-folder-get-entity-id (car alist)))
+	  (setq path (delete id (wl-folder-get-path
+				 wl-folder-entity
+				 id
+				 (car alist))))
+	  (if (not (member path path-list))
+	      (wl-append path-list (list path))))
+	(setq alist (cdr alist)))
+      (while path-list
+	(wl-folder-open-folder-sub (car path-list))
+	(setq path-list (cdr path-list)))
+      (message "%s unread folder"
+	       (if (> unread 0) unread "No")))))
+
+(defun wl-folder-open-unread-current-entity ()
+  (interactive)
+  (let ((entity-name (wl-folder-get-entity-from-buffer))
+	(group (wl-folder-buffer-group-p)))
+    (when entity-name
+      (wl-folder-open-unread-folder
+       (if group
+	   (wl-folder-search-group-entity-by-name entity-name
+						  wl-folder-entity)
+	 entity-name)))))
+
+(defun wl-folder-open-only-unread-folder ()
+  (interactive)
+  (let ((id (progn
+	      (wl-folder-prev-entity-skip-invalid t)
+	      (wl-folder-get-entity-from-buffer t))))
+    (wl-folder-open-all-unread-folder)
+    (save-excursion
+      (goto-char (point-max))
+      (while (and (re-search-backward
+		   "^[ ]*\\[[-]\\].+:0/0/[0-9-]+" nil t)
+		  (not (bobp)))
+	(wl-folder-jump-to-current-entity) ;; close it
+	))
+    (wl-folder-move-path id)
+    (recenter)))
+
+(defun wl-folder-open-all-unread-folder (&optional arg)
+  (interactive "P")
+  (let ((id (progn
+	      (wl-folder-prev-entity-skip-invalid t)
+	      (wl-folder-get-entity-from-buffer t))))
+    (wl-folder-open-unread-folder wl-folder-entity)
+    (if (not arg)
+	(wl-folder-move-path id)
+      (goto-char (point-min))
+      (wl-folder-next-unread t))))
+
+(defun wl-folder-open-folder (&optional fld-name)
+  (interactive)
+  (if (not fld-name)
+      (setq fld-name (wl-summary-read-folder wl-default-folder)))
+  (let* ((id (wl-folder-get-entity-id
+	      (wl-folder-search-entity-by-name fld-name wl-folder-entity
+					       'folder)))
+	 (path (and id (wl-folder-get-path wl-folder-entity id))))
+      (if path
+	  (wl-folder-open-folder-sub path))))
+
+(defun wl-folder-open-folder-sub (path)
+  (let ((inhibit-read-only t)
+	(buffer-read-only nil)
+	indent name entity
+	err)
+    (save-excursion
+      (goto-char (point-min))
+      (while (and path
+		  (wl-folder-buffer-search-group
+		   (wl-folder-get-petname
+		    (if (stringp (car path))
+			(car path)
+		      (wl-folder-get-folder-name-by-id 
+		       (car path))))))
+	(beginning-of-line)
+	(setq path (cdr path))
+	(if (and (looking-at wl-folder-group-regexp)
+		 (string= "+" (wl-match-buffer 2)));; closed group
+	    (save-excursion
+	      (setq indent (wl-match-buffer 1))
+	      (setq name (wl-folder-get-realname (wl-match-buffer 3)))
+	      (setq entity (wl-folder-search-group-entity-by-name
+			    name
+			    wl-folder-entity))
+	      ;; insert as opened
+	      (setcdr (assoc (car entity) wl-folder-group-alist) t)
+	      (if (eq 'access (cadr entity))
+		  (wl-folder-maybe-load-folder-list entity))
+	      (wl-folder-insert-entity indent entity)
+	      (delete-region (save-excursion (beginning-of-line)
+					     (point))
+			     (save-excursion (end-of-line)
+					     (+ 1 (point)))))))
+      (set-buffer-modified-p nil))))
+
+(defun wl-folder-open-all-pre ()
+  (let ((entities (list wl-folder-entity))
+	entity entity-stack group-entry)
+    (while entities
+      (setq entity (wl-pop entities))
+      (cond
+       ((consp entity)
+	(unless (or (not (setq group-entry
+			       (assoc (car entity) wl-folder-group-alist)))
+		    (cdr group-entry))
+	  (setcdr group-entry t)
+	  (when (eq 'access (cadr entity))
+	    (wl-folder-maybe-load-folder-list entity)))
+	(and entities
+	     (wl-push entities entity-stack))
+	(setq entities (nth 2 entity))))
+      (unless entities
+	(setq entities (wl-pop entity-stack))))))
+
+(defun wl-folder-open-all (&optional refresh)
+  (interactive "P")
+  (let* ((inhibit-read-only t)
+	 (buffer-read-only nil)
+	 (len (length wl-folder-group-alist))
+	 (i 0)
+	 indent name entity)
+    (if refresh
+	(let ((id (progn
+		    (wl-folder-prev-entity-skip-invalid t)
+		    (wl-folder-get-entity-from-buffer t))))
+	  (mapcar '(lambda (x)
+		     (setcdr x t))
+		  wl-folder-group-alist)
+	  (erase-buffer)
+	  (wl-folder-insert-entity " " wl-folder-entity)
+	  (wl-folder-move-path id))
+      (message "Opening all folders...")
+      (wl-folder-open-all-pre)
+      (save-excursion
+	(goto-char (point-min))
+	(while (re-search-forward
+		"^\\([ ]*\\)\\[\\([+]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+\n"
+		nil t)
+	  (setq indent (wl-match-buffer 1))
+	  (setq name (wl-folder-get-realname (wl-match-buffer 3)))
+	  (setq entity (wl-folder-search-group-entity-by-name
+			name
+			wl-folder-entity))
+	  ;; insert as opened
+	  (setcdr (assoc (car entity) wl-folder-group-alist) t)
+	  (forward-line -1)
+	  (wl-folder-insert-entity indent entity)
+	  (delete-region (save-excursion (beginning-of-line)
+					 (point))
+			 (save-excursion (end-of-line)
+					 (+ 1 (point))))
+	  (setq i (1+ i))
+	  (and (zerop (% i 10))
+	       (elmo-display-progress
+		'wl-folder-open-all "Opening all folders..."
+		(/ (* i 100) len))))))
+    (message "Opening all folders...done")
+    (set-buffer-modified-p nil)))
+
+(defun wl-folder-close-all ()
+  (interactive)
+  (let ((inhibit-read-only t)
+	(buffer-read-only nil)
+	(alist wl-folder-group-alist)
+	(id (progn
+	      (wl-folder-prev-entity-skip-invalid t)
+	      (wl-folder-get-entity-from-buffer t))))
+    (while alist
+      (setcdr (car alist) nil)
+      (setq alist (cdr alist)))
+    (setcdr (assoc (car wl-folder-entity) wl-folder-group-alist) t)
+    (erase-buffer)
+    (wl-folder-insert-entity " " wl-folder-entity)
+    (wl-folder-move-path id)
+    (recenter)
+    (set-buffer-modified-p nil)))
+
+(defun wl-folder-open-close ()
+  "open or close parent entity."
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (if (wl-folder-buffer-group-p)
+	;; if group (whether opend or closed.)
+	(wl-folder-jump-to-current-entity)
+      ;; if folder
+      (let (indent)
+	(setq indent (save-excursion
+		       (re-search-forward "\\([ ]*\\)." nil t)
+		       (wl-match-buffer 1)))
+	(while (looking-at indent)
+	  (forward-line -1)))
+      (wl-folder-jump-to-current-entity))))
+
+(defsubst wl-folder-access-subscribe-p (group folder)
+  (let (subscr regexp match)
+    (if (setq subscr (wl-get-assoc-list-value
+		      wl-folder-access-subscribe-alist
+		      group))
+	(progn
+	  (setq regexp (mapconcat 'identity (cdr subscr) "\\|"))
+	  (setq match (string-match regexp folder))
+	  (if (car subscr)
+	      match
+	    (not match)))
+      t)))
+
+(defun wl-folder-update-access-group (entity new-flist)
+  (let* ((flist (nth 2 entity))
+	 (unsubscribes (nth 3 entity))
+	 (len (+ (length flist) (length unsubscribes)))
+	 (i 0)
+	 diff new-unsubscribes removes
+	 subscribed-list folder group entry)
+    ;; check subscribed groups
+    (while flist
+      (cond
+       ((listp (car flist))	;; group
+	(setq group (elmo-string (caar flist)))
+	(cond
+	 ((assoc group new-flist)	;; found in new-flist
+	  (setq new-flist (delete (assoc group new-flist)
+				  new-flist))
+	  (if (wl-folder-access-subscribe-p (car entity) group)
+	      (wl-append subscribed-list (list (car flist)))
+	    (wl-append new-unsubscribes (list (car flist)))
+	    (setq diff t)))
+	 (t
+	  (setq wl-folder-group-alist
+		(delete (wl-string-assoc group wl-folder-group-alist)
+			wl-folder-group-alist))
+	  (wl-append removes (list (list group))))))
+       (t			;; folder
+	(setq folder (elmo-string (car flist)))
+	(cond
+	 ((member folder new-flist)	;; found in new-flist
+	  (setq new-flist (delete folder new-flist))
+	  (if (wl-folder-access-subscribe-p (car entity) folder)
+	      (wl-append subscribed-list (list (car flist)))
+	    (wl-append new-unsubscribes (list folder))
+	    (setq diff t)))
+	 (t
+	  (wl-append removes (list folder))))))
+      (setq i (1+ i))
+      (and (zerop (% i 10))
+	   (elmo-display-progress
+	    'wl-folder-update-access-group "Updating access group..."
+	    (/ (* i 100) len)))
+      (setq flist (cdr flist)))
+    ;; check unsubscribed groups
+    (while unsubscribes
+      (cond
+       ((listp (car unsubscribes))
+	(when (setq entry (assoc (caar unsubscribes) new-flist))
+	  (setq new-flist (delete entry new-flist))
+	  (wl-append new-unsubscribes (list (car unsubscribes)))))
+       (t
+	(when (member (car unsubscribes) new-flist)
+	  (setq new-flist (delete (car unsubscribes) new-flist))
+	  (wl-append new-unsubscribes (list (car unsubscribes))))))
+      (setq i (1+ i))
+      (and (zerop (% i 10))
+	   (elmo-display-progress
+	    'wl-folder-update-access-group "Updating access group..."
+	    (/ (* i 100) len)))
+      (setq unsubscribes (cdr unsubscribes)))
+    ;;
+    (if (or new-flist removes)
+	(setq diff t))
+    (setq new-flist
+	  (mapcar '(lambda (x)
+		     (cond ((consp x) (list (car x) 'access))
+			   (t x)))
+		  new-flist))
+    ;; check new groups
+    (let ((new-list new-flist))
+      (while new-list
+	(if (not (wl-folder-access-subscribe-p
+		  (car entity)
+		  (if (listp (car new-list))
+		      (caar new-list)
+		    (car new-list))))
+	    ;; auto unsubscribe
+	    (progn
+	      (wl-append new-unsubscribes (list (car new-list)))
+	      (setq new-flist (delete (car new-list) new-flist)))
+	  (cond
+	   ((listp (car new-list))
+	    ;; check group exists
+	    (if (wl-string-assoc (caar new-list) wl-folder-group-alist)
+		(progn
+		  (message "%s: group already exists." (caar new-list))
+		  (sit-for 1)
+		  (wl-append new-unsubscribes (list (car new-list)))
+		  (setq new-flist (delete (car new-list) new-flist)))
+	      (wl-append wl-folder-group-alist
+			 (list (cons (caar new-list) nil)))))))
+	(setq new-list (cdr new-list))))
+    (if new-flist
+	(message "%d new folder(s)." (length new-flist))
+      (message "Updating access group...done"))
+    (wl-append new-flist subscribed-list)	;; new is first
+    (run-hooks 'wl-folder-update-access-group-hook)
+    (setcdr (cdr entity) (list new-flist new-unsubscribes))
+    (list diff new-flist new-unsubscribes removes)))
+
+(defun wl-folder-prefetch-entity (entity)
+  "Prefetch all new messages in the ENTITY"
+  (cond
+   ((consp entity)
+    (let ((flist (nth 2 entity))
+	  (sum-done 0)
+	  (sum-all 0) 	  
+	  result)
+      (while flist
+	(setq result (wl-folder-prefetch-entity (car flist)))
+	(setq sum-done (+ sum-done (car result)))
+	(setq sum-all (+ sum-all (cdr result)))
+	(setq flist (cdr flist)))
+      (message "Prefetched %d/%d message(s) in \"%s\"." 
+	       sum-done sum-all 
+	       (wl-folder-get-petname (car entity)))
+      (cons sum-done sum-all)))
+   ((stringp entity)
+    (let ((nums (wl-folder-get-entity-info entity))
+	  (wl-summary-highlight (if (or (wl-summary-sticky-p entity)
+					(wl-summary-always-sticky-folder-p
+					 entity))
+				    wl-summary-highlight))
+	  wl-summary-exit-next-move
+	  wl-auto-select-first ret-val 
+	  count)
+      (setq count (or (car nums) 0))
+      (setq count (+ count (wl-folder-count-incorporates entity)))
+      (if (< 0 count)
+	  (save-window-excursion
+	    (save-excursion
+	      (wl-summary-goto-folder-subr entity 
+					   (wl-summary-get-sync-range entity)
+					   nil)
+	      (setq ret-val (wl-summary-incorporate))
+	      (wl-summary-exit)
+	      ret-val))
+	(cons 0 0))))))
+
+(defun wl-folder-count-incorporates (folder)
+  (let ((sum 0))
+    (mapcar '(lambda (x)
+	       (if (member (cadr x)
+			   wl-summary-incorporate-marks)
+		   (incf sum)))
+	    (elmo-msgdb-mark-load (elmo-msgdb-expand-path folder)))
+    sum))
+
+(defun wl-folder-prefetch-current-entity (&optional no-check)
+  "Prefetch all uncached messages in the folder at position. 
+If current line is group folder, all subfolders are prefetched."
+  (interactive "P")
+  (save-excursion
+    (let ((entity-name (wl-folder-get-entity-from-buffer))
+	  (group (wl-folder-buffer-group-p))
+	  wl-folder-check-entity-hook
+	  summary-buf entity)
+      (when entity-name
+	(setq entity
+	      (if group
+		  (wl-folder-search-group-entity-by-name entity-name
+							 wl-folder-entity)
+		entity-name))
+	(if (not no-check)
+	    (wl-folder-check-entity entity))
+	(wl-folder-prefetch-entity entity)))))
+
+(defun wl-folder-drop-unsync-entity (entity)
+  "Drop all unsync messages in the ENTITY"
+  (cond
+   ((consp entity)
+    (let ((flist (nth 2 entity)))
+      (while flist
+	(wl-folder-drop-unsync-entity (car flist))
+	(setq flist (cdr flist)))))
+   ((stringp entity)
+    (let ((nums (wl-folder-get-entity-info entity))
+	  wl-summary-highlight wl-auto-select-first new)
+      (setq new (or (car nums) 0))
+      (if (< 0 new)
+	  (save-window-excursion
+	    (save-excursion
+	      (wl-summary-goto-folder-subr entity 'no-sync nil)
+	      (wl-summary-drop-unsync)
+	      (wl-summary-exit))))))))
+
+(defun wl-folder-drop-unsync-current-entity (&optional force-check)
+  "Drop all unsync messages in the folder at position. 
+If current line is group folder, all subfolders are dropped.
+If optional arg exists, don't check any folders."
+  (interactive "P")
+  (save-excursion
+    (let ((entity-name (wl-folder-get-entity-from-buffer))
+	  (group (wl-folder-buffer-group-p))
+	  wl-folder-check-entity-hook
+	  summary-buf entity)
+      (when (and entity-name
+		 (y-or-n-p (format 
+			    "Drop all unsync messages in %s?" entity-name)))
+	(setq entity
+	      (if group
+		  (wl-folder-search-group-entity-by-name entity-name
+							 wl-folder-entity)
+		entity-name))
+	(if (null force-check)
+	    (wl-folder-check-entity entity))
+	(wl-folder-drop-unsync-entity entity)
+	(message "All unsync messages in %s are dropped!" entity-name)))))
+
+(defun wl-folder-write-current-newsgroup ()
+  (interactive)
+  (wl-summary-write-current-newsgroup (wl-folder-entity-name)))
+
+(defun wl-folder-mimic-kill-buffer ()
+  "Kill the current (Folder) buffer with query."
+  (interactive)
+  (let ((bufname (read-buffer (format "Kill buffer: (default %s) "
+				      (buffer-name))))
+	wl-interactive-exit)
+    (if (or (not bufname)
+	    (string-equal bufname "")
+	    (string-equal bufname (buffer-name)))
+	(wl-exit)
+      (kill-buffer bufname))))
+
+(defun wl-folder-confirm-existence (fld &optional ignore-error)
+  (if (or (wl-folder-entity-exists-p fld)
+	  (file-exists-p (elmo-msgdb-expand-path fld)))
+      ()
+    (if ignore-error
+	(condition-case nil
+	    (if (elmo-folder-exists-p fld)
+		()
+	      (if (elmo-folder-creatable-p fld)
+		  (if (y-or-n-p 
+		       (format "Folder %s does not exist, create it?" fld))
+		      (progn
+			(setq wl-folder-entity-hashtb
+			      (wl-folder-create-entity-hashtb
+			       fld
+			       wl-folder-entity-hashtb))
+			(elmo-create-folder fld)))))
+	  (error))
+      (if (elmo-folder-exists-p fld)
+	  ()
+	(if (not (elmo-folder-creatable-p fld))
+	    (error "Folder %s is not found" fld)
+	  (if (y-or-n-p 
+	       (format "Folder %s does not exist, create it?" fld))
+	      (progn
+		(setq wl-folder-entity-hashtb
+		      (wl-folder-create-entity-hashtb
+		       fld
+		       wl-folder-entity-hashtb))
+		(unless (elmo-create-folder fld)
+		  (error "Create folder failed")))
+	    (error "Folder is not created")))))))
+
+(provide 'wl-folder)
+
+;;; wl-folder.el ends here
diff --git a/wl/wl-highlight.el b/wl/wl-highlight.el
new file mode 100644
index 0000000..b9f4c20
--- /dev/null
+++ b/wl/wl-highlight.el
@@ -0,0 +1,1224 @@
+;;; wl-highlight.el -- Hilight modules for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/05 00:59:10 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(if (and (featurep 'xemacs)
+	 (featurep 'dragdrop))
+    (require 'wl-dnd))
+(require 'wl-vars)
+(provide 'wl-highlight)
+
+(eval-when-compile
+  (if wl-on-xemacs
+      (require 'wl-xmas)
+    (if wl-on-nemacs
+	(require 'wl-nemacs)
+      (require 'wl-mule)))
+  (defun-maybe extent-begin-glyph (a))
+  (defun-maybe delete-extent (a))
+  (defun-maybe make-extent (a b))
+  (defun-maybe set-extent-begin-glyph (a b))
+  (defun-maybe set-extent-end-glyph (a b))
+  (defun-maybe extent-at (a b c d e))
+  (defun-maybe wl-dnd-set-drop-target (a b))
+  (defun-maybe wl-dnd-set-drag-starter (a b)))
+
+(put 'wl-defface 'lisp-indent-function 'defun)
+
+(defgroup wl-faces nil
+  "Wanderlust, Faces."
+  :prefix "wl-highlight-"
+  :group 'wl-highlight
+  :group 'wl)
+
+(defgroup wl-summary-faces nil
+  "Wanderlust, Faces of summary buffer."
+  :prefix "wl-highlight-"
+  :group 'wl-highlight
+  :group 'wl-summary)
+
+(defgroup wl-folder-faces nil
+  "Wanderlust, Faces of folder buffer."
+  :prefix "wl-highlight-"
+  :group 'wl-highlight
+  :group 'wl-folder)
+
+(defgroup wl-message-faces nil
+  "Wanderlust, Faces of message buffer."
+  :prefix "wl-highlight-"
+  :group 'wl-highlight)
+
+;; for message header and signature
+
+(wl-defface wl-highlight-message-headers
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background dark))
+     (:foreground "gray" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "gray50" :bold t)))
+  "Face used for displaying header names."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-header-contents
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color)
+      (background dark))
+     (:foreground "LightSkyBlue" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "purple" :bold t)))
+  "Face used for displaying header content."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-important-header-contents
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "yellow"))
+    (((class color)
+      (background dark))
+     (:foreground "yellow" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "brown" :bold t)))
+  "Face used for displaying contents of special headers."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-important-header-contents2
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "red"))
+    (((class color)
+      (background dark))
+     (:foreground "orange" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "DarkSlateBlue" :bold t)))
+  "Face used for displaying contents of special headers."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-citation-header
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background dark))
+     (:foreground "SkyBlue"))
+    (((class color)
+      (background light))
+     (:foreground "DarkGreen")))
+  "Face used for displaying header of quoted texts."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-unimportant-header-contents
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color)
+      (background dark))
+     (:foreground "GreenYellow" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "DarkGreen" :bold t)))
+  "Face used for displaying contents of unimportant headers."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-signature
+  '((((class color)
+      (background dark))
+     (:foreground "khaki"))
+    (((class color)
+      (background light))
+     (:foreground "DarkSlateBlue")))
+  "Face used for displaying signature."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+;; for draft
+
+(wl-defface wl-highlight-header-separator-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "black" :background "yellow"))
+    (((class color))
+     (:foreground "Black" :background "DarkKhaki")))
+  "Face used for displaying header separator."
+  :group 'wl-draft
+  :group 'wl-faces)
+
+;; important messages
+
+(wl-defface wl-highlight-summary-important-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "magenta"))
+    (((class color)
+      (background dark))
+     (:foreground "orange"))
+    (((class color)
+      (background light))
+     (:foreground "purple")))
+  "Face used for displaying important messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-new-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "red"))
+    (((class color)
+      (background dark))
+     (:foreground "tomato"))
+    (((class color)
+      (background light))
+     (:foreground "tomato")))
+  "Face used for displaying new messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-displaying-face
+  '((t
+     (:underline t :bold t)))
+  "Face used for displaying message."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-thread-indent-face
+  '((t
+     (:foreground "gray40")))
+  "Face used for displaying indented thread."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+;; unimportant messages
+
+(wl-defface wl-highlight-summary-unread-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background dark))
+     (:foreground "LightSkyBlue"))
+    (((class color)
+      (background light))
+     (:foreground "RoyalBlue")))
+  "Face used for displaying unread messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-deleted-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "blue"))
+    (((class color)
+      (background dark))
+     (:foreground "gray"))
+    (((class color)
+      (background light))
+     (:foreground "DarkKhaki")))
+  "Face used for displaying messages mark as deleted."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-refiled-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "blue"))
+    (((class color)
+      (background dark))
+     (:foreground "blue"))
+    (((class color)
+      (background light))
+     (:foreground "firebrick")))
+  "Face used for displaying messages mark as refiled."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-copied-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "blue"))
+    (((class color)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background light))
+     (:foreground "blue")))
+  "Face used for displaying messages mark as copied."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+;; obsolete.
+(wl-defface wl-highlight-summary-temp-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "gold"))
+    (((class color))
+     (:foreground "HotPink1")))
+  "Face used for displaying messages mark as temp."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-target-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "gold"))
+    (((class color))
+     (:foreground "HotPink1")))
+  "Face used for displaying messages mark as target."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-low-read-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "yellow" :italic t))
+    (((class color)
+      (background dark))
+     (:foreground "PaleGreen" :italic t))
+    (((class color)
+      (background light))
+     (:foreground "Green3" :italic t)))
+  "Face used for displaying low interest read messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-high-read-face
+  '(
+    (((type tty))
+     (:bold t))
+    (((class color)
+      (background dark))
+     (:foreground "PaleGreen" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "SeaGreen" :bold t)))
+  "Face used for displaying high interest read messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-low-unread-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan" :italic t))
+    (((class color)
+      (background dark))
+     (:foreground "LightSkyBlue" :italic t))
+    (((class color)
+      (background light))
+     (:foreground "RoyalBlue" :italic t)))
+  "Face used for displaying low interest unread messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-high-unread-face
+  '(
+    (((type tty))
+     (:foreground "red" :bold t))
+    (((class color)
+      (background dark))
+     (:foreground "tomato" :bold t))
+    (((class color)
+      (background light))
+     (:foreground "tomato" :bold t)))
+  "Face used for displaying high interest unread messages."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+;; ordinary messages
+
+(wl-defface wl-highlight-summary-thread-top-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color)
+      (background dark))
+     (:foreground "GreenYellow"))
+    (((class color)
+      (background light))
+     (:foreground "green4")))
+  "Face used for displaying top thread message."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-summary-normal-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "yellow"))
+    (((class color)
+      (background dark))
+     (:foreground "PaleGreen"))
+    (((class color)
+      (background light))
+     (:foreground "SeaGreen")))
+  "Face used for displaying normal message."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+;; folder
+
+(wl-defface wl-highlight-folder-unknown-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background dark))
+     (:foreground "pink"))
+    (((class color)
+      (background light))
+     (:foreground "RoyalBlue")))
+  "Face used for displaying unread folder."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-killed-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "gray"))
+    (((class color))
+     (:foreground "gray50")))
+  "Face used for displaying killed folder."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-zero-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color)
+      (background dark))
+     (:foreground "SkyBlue"))
+    (((class color)
+      (background light))
+     (:foreground "BlueViolet")))
+  "Face used for displaying folder needs no sync."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-few-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "yellow"))
+    (((class color)
+      (background dark))
+     (:foreground "orange"))
+    (((class color)
+      (background light))
+     (:foreground "OrangeRed3")))
+  "Face used for displaying folder contains few unsync messages."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-many-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "red"))
+    (((class color)
+      (background dark))
+     (:foreground "HotPink1"))
+    (((class color)
+      (background light))
+     (:foreground "tomato")))
+  "Face used for displaying folder contains many unsync messages."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-unread-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "magenta"))
+    (((class color)
+      (background dark))
+     (:foreground "gold"))
+    (((class color)
+      (background light))
+     (:foreground "MediumVioletRed")))
+  "Face used for displaying unread folder."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-opened-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "blue"))
+    (((class color)
+      (background dark))
+     (:foreground "PaleGreen"))
+    (((class color)
+      (background light))
+     (:foreground "ForestGreen")))
+  "Face used for displaying opened group folder."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-closed-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background dark))
+     (:foreground "GreenYellow"))
+    (((class color)
+      (background light))
+     (:foreground "DarkOliveGreen4")))
+  "Face used for displaying closed group folder."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-folder-path-face
+  '((t
+     (:bold t :underline t)))
+  "Face used for displaying path."
+  :group 'wl-folder-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-demo-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color)
+      (background dark))
+     (:foreground "GreenYellow"))
+    (((class color)
+      (background light))
+     (:foreground "blue2")))
+  "Face used for displaying demo."
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-logo-face
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color)
+      (background dark))
+     (:foreground "SkyBlue"))
+    (((class color)
+      (background light))
+     (:foreground "SteelBlue")))
+  "Face used for displaying demo."
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-refile-destination-face
+  '((((class color)
+      (background dark))
+     (:foreground "pink"))
+    (((class color)
+      (background light))
+     (:foreground "red")))
+  "Face used for displaying refile destination."
+  :group 'wl-summary-faces
+  :group 'wl-faces)
+
+;; cited face
+
+(wl-defface wl-highlight-message-cited-text-1
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "magenta"))
+    (((class color)
+      (background dark))
+     (:foreground "HotPink1"))
+    (((class color)
+      (background light))
+     (:foreground "ForestGreen")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-2
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "blue"))
+    (((class color))
+     (:foreground "violet")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-3
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color))
+     (:foreground "orchid3")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-4
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color))
+     (:foreground "purple1")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-5
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "yellow"))
+    (((class color))
+     (:foreground "MediumPurple1")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-6
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "red"))
+    (((class color))
+     (:foreground "PaleVioletRed")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-7
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "magenta"))
+    (((class color))
+     (:foreground "LightPink")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-8
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "blue"))
+    (((class color))
+     (:foreground "salmon")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-9
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "cyan"))
+    (((class color))
+     (:foreground "SandyBrown")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(wl-defface wl-highlight-message-cited-text-10
+  '(
+    (((type tty)
+      (background dark))
+     (:foreground "green"))
+    (((class color))
+     (:foreground "wheat")))
+  "Face used for displaying quoted text from other messages."
+  :group 'wl-message-faces
+  :group 'wl-faces)
+
+(defvar wl-highlight-folder-opened-regexp " *\\(\\[\\-\\]\\)")
+(defvar wl-highlight-folder-closed-regexp " *\\(\\[\\+\\]\\)")
+(defvar wl-highlight-folder-leaf-regexp "[ ]*\\([-%\\+]\\)\\(.*\\):.*$")
+
+(defvar wl-highlight-summary-unread-regexp " *[0-9]+[^0-9]\\(!\\|U\\)")
+(defvar wl-highlight-summary-important-regexp " *[0-9]+[^0-9]\\$")
+(defvar wl-highlight-summary-new-regexp " *[0-9]+[^0-9]N")
+(defvar wl-highlight-summary-deleted-regexp " *[0-9]+D")
+(defvar wl-highlight-summary-refiled-regexp " *[0-9]+o")
+(defvar wl-highlight-summary-copied-regexp " *[0-9]+O")
+(defvar wl-highlight-summary-target-regexp " *[0-9]+\\*")
+;(defvar wl-highlight-summary-thread-top-regexp " *[0-9]+[^0-9][^0-9]../..\(.*\)..:.. \\[")
+
+(defvar wl-highlight-citation-face-list
+  '(wl-highlight-message-cited-text-1
+    wl-highlight-message-cited-text-2
+    wl-highlight-message-cited-text-3
+    wl-highlight-message-cited-text-4
+    wl-highlight-message-cited-text-5
+    wl-highlight-message-cited-text-6
+    wl-highlight-message-cited-text-7
+    wl-highlight-message-cited-text-8
+    wl-highlight-message-cited-text-9
+    wl-highlight-message-cited-text-10))
+
+(defmacro defun-hilit (name &rest everything-else)
+  "Define a function for highlight. Nemacs implementation is set as empty."
+  (if wl-on-nemacs
+      (` (defun (, name) nil nil))
+    (` (defun (, name) (,@ everything-else)))))
+
+(defmacro defun-hilit2 (name &rest everything-else)
+  "Define a function for highlight w/o nemacs."
+  (if wl-on-nemacs
+      () ; noop
+    (` (defun (, name) (,@ everything-else)))))
+
+(defun-hilit wl-highlight-summary-displaying ()
+  (interactive)
+  (wl-delete-all-overlays)
+  (let (bol eol ov)
+    (save-excursion
+      (beginning-of-line)
+      (setq bol (point))
+      (save-excursion (end-of-line) (setq eol (point)))
+      (setq ov (make-overlay bol eol))
+      (overlay-put ov 'face 'wl-highlight-summary-displaying-face))))
+
+(defun-hilit2 wl-highlight-folder-group-line (numbers)
+  (if wl-highlight-group-folder-by-numbers
+      (let (fsymbol bol eol)
+	(beginning-of-line)
+	(setq bol (point))
+	(save-excursion (end-of-line) (setq eol (point)))
+	(setq fsymbol 
+	      (let ((unsync (nth 0 numbers))
+		    (unread (nth 1 numbers)))
+		(cond ((and unsync (eq unsync 0))
+		       (if (and unread (> unread 0))
+			   'wl-highlight-folder-unread-face
+			 'wl-highlight-folder-zero-face))
+		      ((and unsync 
+			    (>= unsync wl-folder-many-unsync-threshold))
+		       'wl-highlight-folder-many-face)
+		      (t
+		       'wl-highlight-folder-few-face))))
+	(put-text-property bol eol 'face fsymbol))
+    (let ((highlights (list "opened" "closed"))
+	  fregexp fsymbol bol eol matched type extent num type)
+      (beginning-of-line)
+      (setq bol (point))
+      (save-excursion (end-of-line) (setq eol (point)))
+      (catch 'highlighted
+	(while highlights
+	  (setq fregexp (symbol-value
+			 (intern (format "wl-highlight-folder-%s-regexp" 
+					 (car highlights)))))
+	  (setq fsymbol (intern (format "wl-highlight-folder-%s-face"
+					(car highlights))))
+	  (when (looking-at fregexp)
+	    (put-text-property bol eol 'face fsymbol)
+	    (setq matched t)
+	    (throw 'highlighted nil))
+	  (setq highlights (cdr highlights)))))))
+
+(defun-hilit2 wl-highlight-summary-line-string (line mark temp-mark indent)
+  (let (fsymbol)
+    (cond ((and (string= temp-mark "+")
+		(member mark (list wl-summary-unread-cached-mark
+				   wl-summary-unread-uncached-mark
+				   wl-summary-new-mark)))
+	   (setq fsymbol 'wl-highlight-summary-high-unread-face))
+	  ((and (string= temp-mark "-")
+		(member mark (list wl-summary-unread-cached-mark
+				   wl-summary-unread-uncached-mark
+				   wl-summary-new-mark)))
+	   (setq fsymbol 'wl-highlight-summary-low-unread-face))
+	  ((string= temp-mark "o")
+	   (setq fsymbol 'wl-highlight-summary-refiled-face))
+	  ((string= temp-mark "O")
+	   (setq fsymbol 'wl-highlight-summary-copied-face))
+	  ((string= temp-mark "D")
+	   (setq fsymbol 'wl-highlight-summary-deleted-face))
+	  ((string= temp-mark "*")
+	   (setq fsymbol 'wl-highlight-summary-temp-face))	  
+	  ((string= mark wl-summary-new-mark)
+	   (setq fsymbol 'wl-highlight-summary-new-face))
+	  ((member mark (list wl-summary-unread-cached-mark
+			      wl-summary-unread-uncached-mark))
+	   (setq fsymbol 'wl-highlight-summary-unread-face))
+	  ((or (string= mark wl-summary-important-mark))
+	   (setq fsymbol 'wl-highlight-summary-important-face))
+	  ((string= temp-mark "-")
+	   (setq fsymbol 'wl-highlight-summary-low-read-face))
+	  ((string= temp-mark "+")
+	   (setq fsymbol 'wl-highlight-summary-high-read-face))
+	  (t (if (= 0 (length indent))
+		 (setq fsymbol 'wl-highlight-summary-thread-top-face)
+	       (setq fsymbol 'wl-highlight-summary-normal-face))))
+    (put-text-property 0 (length line) 'face fsymbol line))
+  (if wl-use-highlight-mouse-line 
+      (put-text-property 0 (length line) 'mouse-face 'highlight line)))
+  
+(defun-hilit2 wl-highlight-summary-current-line (&optional smark regexp temp-too)
+  (interactive)
+  (save-excursion
+    (let ((inhibit-read-only t)
+	  (case-fold-search nil) temp-mark status-mark
+	  (sregexp (concat 
+		    "^" 
+		    wl-summary-buffer-number-regexp 
+		    "\\(.\\)\\(.\\)../..\(.*\)..:.. \\("
+		    wl-highlight-thread-indent-string-regexp
+		    "\\)\\["))
+	  fregexp fsymbol bol eol matched thread-top looked-at)
+      (beginning-of-line)
+      (setq bol (point))
+      (save-excursion (end-of-line) (setq eol (point)))
+      (if smark 
+	  (setq status-mark smark)
+	(setq looked-at (looking-at sregexp))
+	(setq status-mark (buffer-substring (match-beginning 2)
+					    (match-end 2))))
+      (when temp-too
+	(unless looked-at
+	  (setq looked-at (looking-at sregexp)))
+	(when looked-at
+	  (setq temp-mark (buffer-substring (match-beginning 1)
+					    (match-end 1)))
+	  (cond
+	   ((string= temp-mark "*")
+	    (setq fsymbol 'wl-highlight-summary-temp-face))
+	   ((string= temp-mark "D")
+	    (setq fsymbol 'wl-highlight-summary-deleted-face))
+	   ((string= temp-mark "O")
+	    (setq fsymbol 'wl-highlight-summary-copied-face))
+	   ((string= temp-mark "o")
+	    (setq fsymbol 'wl-highlight-summary-refiled-face)))))
+      (if (not fsymbol)
+	  (cond 
+	   ((and (string= temp-mark "+")
+		 (member status-mark (list wl-summary-unread-cached-mark
+					   wl-summary-unread-uncached-mark
+					   wl-summary-new-mark)))
+	    (setq fsymbol 'wl-highlight-summary-high-unread-face))
+	   ((and (string= temp-mark "-")
+		 (member status-mark (list wl-summary-unread-cached-mark
+					   wl-summary-unread-uncached-mark
+					   wl-summary-new-mark)))
+	    (setq fsymbol 'wl-highlight-summary-low-unread-face))
+	   ((string= status-mark wl-summary-new-mark)
+	    (setq fsymbol 'wl-highlight-summary-new-face))
+	   ((member status-mark (list wl-summary-unread-cached-mark
+				      wl-summary-unread-uncached-mark))
+	    (setq fsymbol 'wl-highlight-summary-unread-face))
+	   ((string= status-mark wl-summary-important-mark)
+	    (setq fsymbol 'wl-highlight-summary-important-face))
+	   ;; score mark
+	   ((string= temp-mark "-")
+	    (setq fsymbol 'wl-highlight-summary-low-read-face))
+	   ((string= temp-mark "+")
+	    (setq fsymbol 'wl-highlight-summary-high-read-face))
+	   ;;
+	   (t (if (and looked-at
+		       (string= (buffer-substring
+				 (match-beginning 3) 
+				 (match-end 3)) ""))
+		  (setq fsymbol 'wl-highlight-summary-thread-top-face)
+		(setq fsymbol 'wl-highlight-summary-normal-face)))))
+      (put-text-property bol eol 'face fsymbol)
+      (if wl-use-highlight-mouse-line 
+	  (put-text-property bol;(1- (match-end 0))
+			     eol 'mouse-face 'highlight))
+;      (put-text-property (match-beginning 3) (match-end 3)
+;			 'face 'wl-highlight-thread-indent-face)
+      ;; Dnd stuff.
+      (if wl-use-dnd
+	  (wl-dnd-set-drag-starter bol eol)))))
+
+(defun-hilit2 wl-highlight-folder (start end)
+  "Highlight folder between start and end.
+Faces used:
+  wl-highlight-folder-unknown-face      unread messages
+  wl-highlight-folder-zero-face         folder needs no sync
+  wl-highlight-folder-few-face          folder contains few unsync messages
+  wl-highlight-folder-many-face         folder contains many unsync messages
+  wl-highlight-folder-opened-face       opened group folder
+  wl-highlight-folder-closed-face       closed group folder
+
+Variables used:
+  wl-highlight-folder-opened-regexp     matches opened group folder
+  wl-highlight-folder-closed-regexp     matches closed group folder
+"
+  (interactive "r")
+  (if (< end start)
+      (let ((s start)) (setq start end end s)))
+  (let* ((lines (count-lines start end))
+	 (real-end end)
+	 gc-message)
+    (save-excursion
+      (save-restriction
+	(widen)
+	(narrow-to-region start end)
+	(save-restriction
+	  (goto-char start)
+	  (while (not (eobp))
+	    (wl-highlight-folder-current-line)
+	    (forward-line 1)))))))
+
+(if (not wl-on-nemacs)
+    (defsubst wl-delete-all-overlays ()
+      (mapcar (lambda (x) 
+		(delete-overlay x))
+	      (overlays-in (point-min) (point-max)))))
+
+(defun-hilit2 wl-highlight-folder-path (folder-path)
+  "Highlight current folder path...overlay"
+  (save-excursion
+    (wl-delete-all-overlays)
+    (let ((fp folder-path) ov)
+      (goto-char (point-min))
+      (while (and fp
+		  (not (eobp)))
+	(beginning-of-line)
+	(or (looking-at "^[ ]*\\[[\\+-]\\]\\(.+\\):.*\n")
+	    (looking-at "^[ ]*\\([^ \\[].+\\):.*\n"))
+	(when (equal
+	       (get-text-property (point) 'wl-folder-entity-id)
+	       (car fp))
+	  (setq fp (cdr fp))
+	  (setq ov (make-overlay 
+		    (match-beginning 1)
+		    (match-end 1)))
+	  (setq wl-folder-buffer-cur-point (point))
+	  (overlay-put ov 'face 'wl-highlight-folder-path-face))
+	(forward-line 1)))))
+
+(defun-hilit2 wl-highlight-refile-destination-string (string)
+  (put-text-property 0 (length string) 'face 
+		     'wl-highlight-refile-destination-face
+		     string))
+
+(defun-hilit wl-highlight-summary-all ()
+  "For evaluation"
+  (interactive)
+  (wl-highlight-summary (point-min)(point-max)))
+  
+(defun-hilit2 wl-highlight-summary (start end)
+  "Highlight summary between start and end.
+Faces used:
+  wl-highlight-summary-unread-face      unread messages
+  wl-highlight-summary-important-face   important messages
+  wl-highlight-summary-deleted-face     messages mark as deleted 
+  wl-highlight-summary-refiled-face     messages mark as refiled
+  wl-highlight-summary-copied-face      messages mark as copied
+  wl-highlight-summary-new-face         new messages
+
+Variables used:
+  wl-highlight-summary-unread-regexp    matches unread messages
+  wl-highlight-summary-important-regexp matches important messages
+  wl-highlight-summary-deleted-regexp   matches messages mark as deleted 
+  wl-highlight-summary-refiled-regexp   matches messages mark as refiled
+  wl-highlight-summary-copied-regexp    matches messages mark as copied
+  wl-highlight-summary-new-regexp       matches new messages
+
+If HACK-SIG is true,then we search backward from END for something that
+looks like the beginning of a signature block, and don't consider that a
+part of the message (this is because signatures are often incorrectly
+interpreted as cited text.)"
+  (if (< end start)
+      (let ((s start)) (setq start end end s)))
+  (let* ((lines (count-lines start end))
+	 (too-big (and wl-highlight-max-summary-lines
+		       (> lines wl-highlight-max-summary-lines)))
+	 (real-end end)
+	 gc-message
+	 e p hend i percent)
+    (save-excursion
+      (save-restriction
+	(widen)
+	(narrow-to-region start end)
+	(if (not too-big)
+	    (save-restriction
+	      (goto-char start)
+	      (setq i 0)
+	      (while (not (eobp))
+		(wl-highlight-summary-current-line nil nil wl-summary-scored)
+		(setq i (+ i 1))
+		(setq percent (/ (* i 100) lines))
+		(if (eq (% percent 5) 0)
+		    (elmo-display-progress
+		     'wl-highlight-summary "Highlighting..."
+		     percent))
+		(forward-line 1))
+	      (message "Highlighting...done.")))))))
+
+(defun wl-highlight-headers ()
+  (let ((beg (point-min))
+	(end (or (save-excursion (re-search-forward "^$" nil t))
+		 (point-max))))
+    (wl-highlight-message beg end nil)
+    (and wl-highlight-x-face-func
+	 (funcall wl-highlight-x-face-func beg end))
+    (run-hooks 'wl-highlight-headers-hook)))
+
+(defun wl-highlight-body-all ()
+  (wl-highlight-message (point-min) (point-max) t t))
+
+(defun-hilit wl-highlight-body ()
+  (let ((beg (or (save-excursion (goto-char (point-min))
+				 (re-search-forward "^$" nil t))
+		 (point-min)))
+	(end (point-max)))
+    (wl-highlight-message beg end t)))
+
+(defun-hilit2 wl-highlight-body-region (beg end)
+  (wl-highlight-message beg end t t))
+
+(defun wl-highlight-signature-search-simple (beg end)
+  "Search signature area in the body message between beg and end.
+Returns start point of signature."
+  (save-excursion
+    (goto-char end)
+    (if (re-search-backward "\n--+ *\n" beg t)
+	(if (eq (char-after (point)) ?\n)
+	    (1+ (point))
+	  (point))
+      end)))
+
+(defun wl-highlight-signature-search (beg end)
+  "Search signature area in the body message between beg and end.
+Returns start point of signature."
+  (save-excursion
+    (goto-char end)
+    (or
+     ;; look for legal signature separator (check at first for fasten)
+     (re-search-backward "\n-- \n" beg t)
+
+     ;; look for dual separator
+     (save-excursion
+       (and
+	(re-search-backward "^[^A-Za-z0-9> \t\n]+ *$" beg t)
+	(> (- (match-end 0) (match-beginning 0)) 10);; "10" is a magic number.
+	(re-search-backward 
+	 (concat "^" 
+		 (regexp-quote (buffer-substring (match-beginning 0) (match-end 0))) 
+		 "$") beg t)))
+
+     ;; look for user specified signature-separator
+     (if (stringp wl-highlight-signature-separator)
+	 (re-search-backward wl-highlight-signature-separator nil t);; case one string
+       (let ((sep wl-highlight-signature-separator))		;; case list
+	 (while (and sep
+		     (not (re-search-backward (car sep) beg t)))
+	   (setq sep (cdr sep)))
+	 (point)))	;; if no separator found, returns end.
+     )))
+
+(defun-hilit2 wl-highlight-message (start end hack-sig &optional body-only)
+  "Highlight message headers between start and end.
+Faces used:
+  wl-highlight-message-headers			  the part before the colon
+  wl-highlight-message-header-contents		  the part after the colon
+  wl-highlight-message-important-header-contents  contents of \"special\" 
+                                                  headers
+  wl-highlight-message-important-header-contents2 contents of \"special\" 
+                                                  headers
+  wl-highlight-message-unimportant-header-contents contents of unimportant 
+                                                   headers
+  wl-highlight-message-cited-text	           quoted text from other 
+                                                   messages
+  wl-highlight-message-citation-header             header of quoted texts
+  wl-highlight-message-signature                   signature
+
+Variables used:
+  wl-highlight-important-header-regexp	 what makes a \"special\" header
+  wl-highlight-important-header2-regexp	 what makes a \"special\" header
+  wl-highlight-unimportant-header-regexp what makes a \"special\" header
+  wl-highlight-citation-prefix-regexp	 matches lines of quoted text
+  wl-highlight-citation-header-regexp	 matches headers for quoted text
+
+If HACK-SIG is true,then we search backward from END for something that
+looks like the beginning of a signature block, and don't consider that a
+part of the message (this is because signatures are often incorrectly
+interpreted as cited text.)"
+  (if (< end start)
+      (let ((s start)) (setq start end end s)))
+  (let* ((too-big (and wl-highlight-max-message-size
+		       (> (- end start)
+			  wl-highlight-max-message-size)))
+	 (real-end end)
+	 current  beg
+	 e p hend)
+    (save-excursion
+      (save-restriction
+	(widen)
+	;; take off signature
+	(if (and hack-sig (not too-big))
+	    (setq end (funcall wl-highlight-signature-search-func 
+			       (- end wl-max-signature-size) end)))
+	(if hack-sig
+	    (put-text-property end (point-max)
+			       'face 'wl-highlight-message-signature))
+	(narrow-to-region start end)
+
+	(save-restriction
+	  ;; narrow down to just the headers...
+	  (goto-char start)
+	  ;; If this search fails then the narrowing performed above
+	  ;; is sufficient
+	  (if (re-search-forward (format 
+				  "^$\\|%s" 
+				  (regexp-quote mail-header-separator)) nil t)
+	      (narrow-to-region (point-min) (point)))
+	  (goto-char start)
+	  (while (and (not body-only)
+		      (not (eobp)))
+	    (cond
+	     ((looking-at "^\\([^ \t\n:]+[ \t]*:\\) *\\(.*\\(\n[ \t].*\\)*\n\\)")
+	      (setq hend (match-end 0))
+	      (put-text-property (match-beginning 1) (match-end 1)
+				 'face 'wl-highlight-message-headers)
+	      (setq p (match-end 1))
+	      (cond
+	       ((catch 'match
+		  (let ((regexp-alist wl-highlight-message-header-alist))
+		    (while regexp-alist
+		      (when (save-match-data
+			      (looking-at (caar regexp-alist)))
+			(put-text-property
+			 (match-beginning 2) (match-end 2)
+			 'face
+			 (cdar regexp-alist))
+			(throw 'match t))
+		      (setq regexp-alist (cdr regexp-alist)))
+		    (throw 'match nil))))
+	       (t
+		(put-text-property
+		 (match-beginning 2) (match-end 2)
+		 'face 'wl-highlight-message-header-contents)))
+ 	      (goto-char hend))
+	     ((looking-at mail-header-separator)
+	      (put-text-property (match-beginning 0) (match-end 0)
+				 'face 'wl-highlight-header-separator-face)
+	      (goto-char (match-end 0)))
+ 	     ;; ignore non-header field name lines
+ 	     (t (forward-line 1)))))
+	;; now do the body, unless it's too big....
+	(if too-big
+	    nil
+	  (let (prefix prefix-face-alist pair end)
+	  (while (not (eobp))
+	    (cond 
+	     ((null wl-highlight-force-citation-header-regexp)
+	      nil) 
+	     ((looking-at wl-highlight-force-citation-header-regexp)
+	      (setq current 'wl-highlight-message-citation-header)
+	      (setq end (match-end 0)))
+	     ((null wl-highlight-citation-prefix-regexp)
+	      nil)
+	     ((looking-at wl-highlight-citation-prefix-regexp)
+	      (setq prefix (buffer-substring (point)
+					     (match-end 0)))
+	      (setq pair (assoc prefix prefix-face-alist))
+	      (unless pair
+		(setq prefix-face-alist
+		      (append prefix-face-alist
+			      (list 
+			       (setq pair 
+				     (cons 
+				      prefix
+				      (nth 
+				       (% (length prefix-face-alist)
+					  (length
+					   wl-highlight-citation-face-list))
+				       wl-highlight-citation-face-list)))))))
+	      (unless wl-highlight-highlight-citation-too
+		(goto-char (match-end 0)))
+	      (setq current (cdr pair)))
+	     ((null wl-highlight-citation-header-regexp)
+	      nil)
+	     ((looking-at wl-highlight-citation-header-regexp)
+	      (setq current 'wl-highlight-message-citation-header)
+	      (setq end (match-end 0)))
+	     (t (setq current nil)))
+	    (cond (current
+		   (setq p (point))
+		   (forward-line 1) ; this is to put the \n in the face too
+		   (let ();(inhibit-read-only t))
+		     (put-text-property p (or end (point))
+					'face current)
+		     (setq end nil))
+		   (forward-char -1)))
+	    (forward-line 1)))
+	  (run-hooks 'wl-highlight-message-hook))))))
+
+
+;; highlight-mouse-line for folder mode
+
+(defun wl-highlight-folder-mouse-line ()
+  (interactive)
+  (let* ((end (save-excursion (end-of-line) (point)))
+	 (beg (progn
+		(re-search-forward "[^ ]" end t)
+		(1- (point))))
+	 (inhibit-read-only t))
+    (put-text-property beg end 'mouse-face 'highlight)))
+
+;;; wl-highlight.el ends here
diff --git a/wl/wl-message.el b/wl/wl-message.el
new file mode 100644
index 0000000..37bb7ba
--- /dev/null
+++ b/wl/wl-message.el
@@ -0,0 +1,615 @@
+;;; wl-message.el -- Message displaying modules for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-17 10:19:41 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'wl-vars)
+(require 'wl-highlight)
+
+(eval-when-compile
+  (if wl-use-semi
+      (progn
+	(require 'wl-mime)
+	(require 'mime-view)
+	(require 'mmelmo-imap4))
+    (require 'tm-wl))
+  (mapcar
+   (function
+    (lambda (symbol)
+      (unless (boundp symbol)
+	(set (make-local-variable symbol) nil))))
+   '(mime-view-ignored-field-list mmelmo-imap4-skipped-parts))
+  (defun-maybe event-window (a))
+  (defun-maybe posn-window (a))
+  (defun-maybe event-start (a))
+  (defun-maybe mime-open-entity (a b)))
+
+(defvar wl-original-buf-name "*Message*")
+(defvar wl-message-buf-name "Message")
+(defvar wl-message-buffer-cur-summary-buffer nil)
+(defvar wl-message-buffer-cur-folder nil)
+(defvar wl-message-buffer-cur-number nil)
+
+(defvar wl-original-buffer-cur-folder nil)
+(defvar wl-original-buffer-cur-number nil)
+(defvar wl-original-buffer-cur-msgdb  nil)
+
+(mapcar 
+ (function make-variable-buffer-local)
+ (list 'wl-message-buffer-cur-folder
+       'wl-message-buffer-cur-number))
+
+(provide 'wl-message)
+
+(defvar wl-fixed-window-configuration nil)
+
+(defun wl-message-buffer-window ()
+  (let* ((mes-buf (concat "^" (default-value 'wl-message-buf-name)))
+	 (start-win (selected-window))
+	 (cur-win start-win))
+    (catch 'found
+      (while (progn
+	       (setq cur-win (next-window cur-win))
+	       (if (string-match mes-buf (buffer-name (window-buffer cur-win)))
+		   (throw 'found cur-win))
+	       (not (eq cur-win start-win)))))))
+
+(defun wl-select-buffer (buffer)
+  (let ((gbw (or (get-buffer-window buffer)
+		 (wl-message-buffer-window)))
+	(sum (car wl-message-window-size))
+	(mes (cdr wl-message-window-size))
+	whi)
+    (when (and gbw
+	       (not (eq (save-excursion (set-buffer (window-buffer gbw))
+					wl-message-buffer-cur-summary-buffer)
+			(current-buffer))))
+      (delete-window gbw)
+      (run-hooks 'wl-message-window-deleted-hook)
+      (setq gbw nil))
+    (if gbw
+	(select-window gbw)
+;      (if (or (null mes)
+;	      wl-stay-folder-window)
+;	  (delete-other-windows))
+      (when wl-fixed-window-configuration
+        (delete-other-windows)
+        (and wl-stay-folder-window
+             (wl-summary-toggle-disp-folder)))
+      (setq whi (1- (window-height)))
+      (if mes
+	  (progn
+	    (let ((total (+ sum mes)))
+	      (setq sum (max window-min-height (/ (* whi sum) total)))
+	      (setq mes (max window-min-height (/ (* whi mes) total))))
+            (if (< whi (+ sum mes))
+                (enlarge-window (- (+ sum mes) whi)))))
+      (split-window (get-buffer-window (current-buffer)) sum)
+      (other-window 1))
+    (switch-to-buffer buffer)))
+
+;;
+;; called by wl-summary-mode buffer
+;;
+(defvar wl-message-func-called-hook nil)
+
+(defun wl-message-scroll-down (amount)
+  (let ((view-message-buffer (get-buffer-create wl-message-buf-name))
+	(cur-buf (current-buffer)))
+    (wl-select-buffer view-message-buffer)
+    (if (bobp)
+	()
+      (scroll-down))
+    (select-window (get-buffer-window cur-buf))))  
+
+(defun wl-message-scroll-up (amount)
+  (let ((view-message-buffer (get-buffer-create wl-message-buf-name))
+	(cur-buf (current-buffer)))
+    (wl-select-buffer view-message-buffer)
+    (save-excursion
+      (save-restriction
+	(widen)
+	(forward-page 1)
+	(if (pos-visible-in-window-p (point))
+	    (wl-message-narrow-to-page 1))))		;Go to next page.
+    (if (eobp)
+	()
+      (scroll-up))
+    (select-window (get-buffer-window cur-buf))))
+  
+(defun wl-message-follow-current-entity (buffer)
+  "Follow to current message"
+  (wl-draft-reply (wl-message-get-original-buffer)
+		  'to-all wl-message-buffer-cur-summary-buffer)
+  (let ((mail-reply-buffer buffer))
+    (wl-draft-yank-from-mail-reply-buffer nil)))
+
+(defun wl-message-original-mode ()
+  (setq major-mode 'wl-message-original-mode)
+  (setq mode-name "Original")
+  (setq buffer-read-only t)
+  (if (fboundp 'set-buffer-file-coding-system)
+      (set-buffer-file-coding-system wl-cs-noconv)))
+
+(defun wl-message-mode ()
+  (interactive)
+  (setq major-mode 'wl-message-mode)
+  (setq buffer-read-only t)
+  (setq mode-name "Message"))
+
+(defun wl-message-get-buffer-create ()
+  (let ((buf-name wl-message-buf-name))
+    (or (get-buffer buf-name)
+	(save-excursion
+	  (set-buffer (get-buffer-create buf-name))
+	  (wl-message-mode)
+	  (run-hooks 'wl-message-buffer-created-hook)
+	  (get-buffer buf-name)))))
+
+(defun wl-message-original-get-buffer-create ()
+  (or (get-buffer wl-original-buf-name)
+      (save-excursion
+	(set-buffer (get-buffer-create wl-original-buf-name))
+	(wl-message-original-mode)
+	(get-buffer wl-original-buf-name))))
+  
+(defun wl-message-exit ()
+  (interactive)
+  (let (summary-buf summary-win)
+    (if (setq summary-buf wl-message-buffer-cur-summary-buffer)
+	(if (setq summary-win (get-buffer-window summary-buf))
+	    (select-window summary-win)
+	  (switch-to-buffer summary-buf)
+	  (wl-select-buffer wl-message-buf-name)
+	  (select-window (get-buffer-window summary-buf))))
+    (run-hooks 'wl-message-exit-hook)))
+
+(defun wl-message-decode (outbuf inbuf flag)
+  (cond
+   ((eq flag 'all-header)
+    (save-excursion
+      (set-buffer inbuf)
+      (let ((buffer-read-only nil))
+	(decode-mime-charset-region (point-min) 
+				    (save-excursion
+				      (goto-char (point-min))
+				      (re-search-forward "^$" nil t)
+				      (point))
+				    wl-mime-charset)))
+    (wl-message-decode-with-all-header outbuf inbuf))
+   ((eq flag 'no-mime)
+    (save-excursion
+      (set-buffer inbuf)
+      (let ((buffer-read-only nil))
+	(save-excursion 
+	  (set-buffer outbuf)
+	  (elmo-set-buffer-multibyte nil))
+	(copy-to-buffer outbuf (point-min) (point-max))
+	(set-buffer outbuf)
+	(local-set-key "q" 'wl-message-exit)
+	(local-set-key "p" 'wl-message-exit)
+	(local-set-key "n" 'wl-message-exit)
+	(elmo-set-buffer-multibyte default-enable-multibyte-characters)
+	;;(decode-mime-charset-region (point-min) (point-max) wl-mime-charset)
+	;; we can call decode-coding-region() directly, because multibyte flag is t.
+	(decode-coding-region (point-min) (point-max) wl-cs-autoconv)
+	(wl-highlight-message (point-min)
+			      (save-excursion
+				(goto-char (point-min))
+				(re-search-forward "^$" nil t)) nil))))
+   (t					; normal
+    (save-excursion
+      (set-buffer inbuf)
+      (let ((buffer-read-only nil))
+	(decode-mime-charset-region (point-min) 
+				    (save-excursion
+				      (goto-char (point-min))
+				      (re-search-forward "^$" nil t)
+				      (point))
+				    wl-mime-charset)))
+    (wl-message-decode-mode outbuf inbuf))))
+
+(defun wl-message-prev-page (&optional lines)
+  "Scroll down this message. Returns non-nil if top of message"
+  (interactive)
+  (let ((cur-buf (current-buffer))
+	(view-message-buffer (get-buffer-create wl-message-buf-name))
+	ret-val)  
+    (wl-select-buffer view-message-buffer)
+    (move-to-window-line 0)
+    (if (and wl-break-pages
+	     (bobp)
+	     (not (save-restriction (widen) (bobp))))
+	(progn
+	  (wl-message-narrow-to-page -1)
+	  (goto-char (point-max))
+	  (recenter -1))
+      (if (not (bobp))
+	  (scroll-down lines)
+	(setq ret-val t)))
+    (select-window (get-buffer-window cur-buf))
+    ret-val))
+
+(static-if (fboundp 'luna-make-entity)
+    (defsubst wl-message-make-mime-entity (backend number backend folder msgdb)
+      (luna-make-entity (mm-expand-class-name 'elmo)
+			:location (get-buffer-create 
+				   (concat mmelmo-entity-buffer-name "0"))
+			:imap (eq backend 'elmo-imap4) 
+			:folder folder
+			:number number
+			:msgdb msgdb :size 0))
+  (defsubst wl-message-make-mime-entity (backend number backend folder msgdb)
+    (mime-open-entity backend (list folder number msgdb nil))))
+
+(defun wl-message-next-page (&optional lines)
+  "Scroll up this message. Returns non-nil if bottom of message"
+  (interactive)
+  (let ((cur-buf (current-buffer))
+	(view-message-buffer (get-buffer-create wl-message-buf-name))
+	ret-val)
+    (wl-select-buffer view-message-buffer)
+    (move-to-window-line -1)
+    (if (save-excursion
+	  (end-of-line)
+	  (and (pos-visible-in-window-p)
+	       (eobp)))
+	(if (or (null wl-break-pages)
+		(save-excursion
+		  (save-restriction
+		    (widen) (forward-line) (eobp))))
+	    (setq ret-val t)
+	  (wl-message-narrow-to-page 1)
+	  (setq ret-val nil))
+      (condition-case ()
+	  (scroll-up lines)
+	(end-of-buffer
+	 (goto-char (point-max))))
+      (setq ret-val nil))
+    (select-window (get-buffer-window cur-buf))
+    ret-val
+    ))
+
+(defun wl-message-narrow-to-page (&optional arg)
+  (interactive "P")
+  (setq arg (if arg (prefix-numeric-value arg) 0))
+  (save-excursion
+    (condition-case ()
+        (forward-page -1)               ; Beginning of current page.
+      (beginning-of-buffer
+       (goto-char (point-min))))
+    (forward-char 1)  ; for compatibility with emacs-19.28 and emacs-19.29
+    (widen)
+    (cond
+     ((> arg 0)	(forward-page arg))
+     ((< arg 0) (forward-page (1- arg))))
+    (forward-page)
+    (if wl-break-pages
+	(narrow-to-region (point)
+			  (progn
+			    (forward-page -1)
+			    (if (and (eolp) (not (bobp)))
+				(forward-line))
+			    (point)))) ))
+
+(defun wl-message-toggle-disp-summary ()
+  (interactive)
+  (let ((summary-buf (get-buffer wl-message-buffer-cur-summary-buffer))
+	summary-win)
+    (if (and summary-buf
+	     (buffer-live-p summary-buf))
+	(if (setq summary-win (get-buffer-window summary-buf))
+	    (delete-window summary-win)
+	  (switch-to-buffer summary-buf)
+	  (wl-select-buffer wl-message-buf-name))
+      (wl-summary-goto-folder-subr wl-message-buffer-cur-folder 'no-sync
+				   nil nil t)
+  					; no summary-buf
+      (let ((sum-buf (current-buffer)))
+	(wl-select-buffer wl-message-buf-name)
+	(setq wl-message-buffer-cur-summary-buffer sum-buf)))))
+
+(defun wl-message-normal-get-original-buffer ()
+  (let (ret-val)
+    (if (setq ret-val (get-buffer wl-original-buf-name))
+	ret-val
+      (set-buffer (setq ret-val 
+			(get-buffer-create wl-original-buf-name)))
+      (wl-message-original-mode)
+      ret-val)))
+
+
+(if wl-use-semi
+    (defalias 'wl-message-get-original-buffer 
+      'mmelmo-get-original-buffer)
+  (defalias 'wl-message-get-original-buffer 
+    'wl-message-normal-get-original-buffer))
+
+(defvar wl-message-redisplay-func 'wl-normal-message-redisplay)
+(defvar wl-message-cache-used nil) ;whether cache is used or not.
+
+(defun wl-message-redisplay (folder number flag msgdb &optional force-reload)
+  (let ((default-mime-charset wl-mime-charset)
+	(buffer-read-only nil))
+    (setq wl-message-cache-used nil)
+    (if wl-message-redisplay-func
+	(funcall wl-message-redisplay-func
+		 folder number flag msgdb force-reload))))
+
+;; nil means don't fetch all.
+(defun wl-message-decide-backend (folder number message-id size)
+  (let ((dont-do-that (and 
+		       (not (setq wl-message-cache-used
+				  (or
+				   (elmo-buffer-cache-hit
+				    (list folder number message-id))
+				   (elmo-cache-exists-p message-id 
+							folder number))))
+		       (integerp size)
+		       (not (elmo-local-file-p folder number))
+		       wl-fetch-confirm-threshold
+		       (>= size wl-fetch-confirm-threshold)
+		       (not (y-or-n-p 
+			     (format "Fetch entire message? (%dbytes)" 
+				     size))))))
+    (message "")
+    (cond ((and dont-do-that
+		(eq (elmo-folder-number-get-type folder number) 'imap4)
+		(not (and (elmo-use-cache-p folder number)
+			  (elmo-cache-exists-p message-id folder number))))
+	   'elmo-imap4)
+	  (t (if (not dont-do-that) 'elmo)))))
+
+(defmacro wl-message-original-buffer-folder ()
+  wl-original-buffer-cur-folder)
+
+(defmacro wl-message-original-buffer-number ()
+  wl-original-buffer-cur-number)
+
+(defun wl-message-set-original-buffer-information (folder number)
+  (when (or (not (string= folder (or wl-original-buffer-cur-folder "")))
+	    (not (eq number (or wl-original-buffer-cur-number 0))))
+    (setq wl-original-buffer-cur-folder folder)
+    (setq wl-original-buffer-cur-number number)))
+
+;; Works on FLIM-1.9.0/SEMI-1.8.2 or later (maybe).
+(defun wl-mmelmo-message-redisplay (folder number flag msgdb
+					   &optional force-reload)
+  (let* ((cur-buf (current-buffer))
+	 (view-message-buffer (wl-message-get-buffer-create))
+	 (message-id (cdr (assq number 
+				(elmo-msgdb-get-number-alist msgdb))))
+	 (size (elmo-msgdb-overview-entity-get-size
+		(assoc message-id 
+		       (elmo-msgdb-get-overview msgdb))))
+	 (backend (wl-message-decide-backend folder number message-id size))
+	 cur-entity ret-val header-end real-fld-num summary-win)
+    (require 'mmelmo)
+    (wl-select-buffer view-message-buffer)
+    (set-buffer view-message-buffer)
+    (unwind-protect
+	(progn
+	  (setq wl-message-buffer-cur-summary-buffer cur-buf)
+	  (setq wl-message-buffer-cur-folder folder)
+	  (setq wl-message-buffer-cur-number number)
+	  (setq buffer-read-only nil)
+	  (erase-buffer)
+	  (if backend
+	      (let (mime-display-header-hook ;; bind to nil...
+		    (mime-view-ignored-field-list 
+		     (if (eq flag 'all-header)
+			 nil
+		       mime-view-ignored-field-list))
+		    (mmelmo-force-reload force-reload)
+		    (mmelmo-imap4-threshold wl-fetch-confirm-threshold))
+		(setq real-fld-num (elmo-get-real-folder-number
+				    folder number))
+		(setq cur-entity
+		      (wl-message-make-mime-entity
+		       backend 
+		       (if (eq backend 'elmo-imap4)
+			   (cdr real-fld-num)
+			 number)
+		       backend
+		       (if (eq backend 'elmo-imap4)
+			   (car real-fld-num)
+			 folder)
+		       msgdb))
+		(setq mmelmo-imap4-skipped-parts nil)
+		;;; mime-display-message sets buffer-read-only variable as t.
+		;;; which makes buffer read-only status confused...
+		(wl-mime-display-message cur-entity view-message-buffer
+					 nil nil 'mmelmo-original-mode)
+		(if mmelmo-imap4-skipped-parts
+		    (progn
+		      (message "Skipped fetching of %s."
+			       (mapconcat 
+				(lambda (x)
+				  (format "[%s]" x))
+				mmelmo-imap4-skipped-parts ","))))
+		(if (and (eq backend 'elmo-imap4)
+			 (null mmelmo-imap4-skipped-parts))
+		    (message "No required part was skipped."))
+		(setq ret-val (not (eq backend 'elmo-imap4))))
+	    (message "Skipped fetching.")
+	    (setq ret-val nil)))
+      (setq buffer-read-only nil)
+      (wl-message-set-original-buffer-information folder number)
+      (wl-message-overload-functions)
+      ;; highlight body
+      (when wl-highlight-body-too
+	(wl-highlight-body))
+      (condition-case ()
+	  (wl-message-narrow-to-page)
+	(error nil));; ignore errors.
+      (setq mode-line-buffer-identification
+	    (format "Wanderlust: << %s / %s >>"
+		    (if (memq 'modeline wl-use-folder-petname)
+			(wl-folder-get-petname folder)
+		      folder) number))
+      (goto-char (point-min))
+      (unwind-protect
+	  (save-excursion
+	    (run-hooks 'wl-message-redisplay-hook))
+	;; go back to summary mode
+	(set-buffer-modified-p nil)
+	(setq buffer-read-only t)
+	(set-buffer cur-buf)
+	(setq summary-win (get-buffer-window cur-buf))
+	(if (window-live-p summary-win)
+	    (select-window summary-win))))
+    ret-val
+    ))
+
+(defun wl-normal-message-redisplay (folder number flag msgdb 
+					   &optional force-reload)
+  (interactive)
+  (let* ((cur-buf (current-buffer))
+	 (original-message-buffer (wl-message-get-original-buffer))
+	 (view-message-buffer (wl-message-get-buffer-create))
+	 (message-id (cdr (assq number 
+				(elmo-msgdb-get-number-alist msgdb))))
+	 (size (elmo-msgdb-overview-entity-get-size
+		(assoc message-id 
+		       (elmo-msgdb-get-overview msgdb))))
+	 header-end ret-val summary-win
+	 )
+    (wl-select-buffer view-message-buffer)
+    (unwind-protect
+	(progn
+	  (setq wl-message-buffer-cur-summary-buffer cur-buf)
+	  (setq wl-message-buffer-cur-folder folder)
+	  (setq wl-message-buffer-cur-number number)
+	  (setq buffer-read-only nil)
+	  (erase-buffer)
+	  (if (or (eq (elmo-folder-number-get-type folder number) 'localdir)
+		  (not (and (integerp size)
+			    wl-fetch-confirm-threshold
+			    (>= size wl-fetch-confirm-threshold)
+			    (not (elmo-cache-exists-p message-id 
+						      folder number))
+			    (not (y-or-n-p
+				  (format "Fetch entire message? (%dbytes)" 
+					  size))))))
+	      (progn
+		(save-excursion
+		  (set-buffer original-message-buffer)
+		  (let ((buffer-read-only nil))
+		    (elmo-read-msg-with-buffer-cache
+		     folder number original-message-buffer msgdb force-reload)))
+		;; decode MIME message.
+		(wl-message-decode 
+		 view-message-buffer 
+		 original-message-buffer flag)
+		(setq ret-val t))
+	    (save-excursion
+	      (set-buffer view-message-buffer)
+	      (insert "\n\n"))))
+      (setq buffer-read-only nil)
+      (wl-message-set-original-buffer-information folder number)
+      (wl-message-overload-functions)
+      ;; highlight body
+      (and wl-highlight-body-too (wl-highlight-body))
+      (condition-case ()
+	  (wl-message-narrow-to-page)
+	(error nil)) ; ignore errors.
+      (setq mode-line-buffer-identification
+	    (format "Wanderlust: << %s / %s >>" 
+		    (if (memq 'modeline wl-use-folder-petname)
+			(wl-folder-get-petname folder)
+		      folder)
+		    number))
+      (goto-char (point-min))
+      (unwind-protect
+	  (run-hooks 'wl-message-redisplay-hook)
+	;; go back to summary mode
+	(set-buffer-modified-p nil)      
+	(setq buffer-read-only t)
+	(set-buffer cur-buf)
+	(setq summary-win (get-buffer-window cur-buf))
+	(if (window-live-p summary-win)
+	    (select-window summary-win)))
+      ret-val
+      )))
+
+(defun wl-message-refer-article-or-url (e)
+  "Read article specified by message-id around point. If failed,
+   attempt to execute button-dispatcher."
+  (interactive "e")
+  (let ((window (get-buffer-window (current-buffer)))
+	mouse-window point beg end msg-id)
+    (unwind-protect
+	(progn
+	  (mouse-set-point e)
+	  (setq mouse-window (get-buffer-window (current-buffer)))
+	  (setq point (point))
+	  (setq beg (save-excursion (beginning-of-line) (point)))
+	  (setq end (save-excursion (end-of-line) (point)))
+	  (search-forward ">" end t)      ;Move point to end of "<....>".
+	  (if (and (re-search-backward "\\(<[^<> \t\n]+@[^<> \t\n]+>\\)" 
+				       beg t)
+		   (not (string-match "mailto:" 
+				      (setq msg-id (wl-match-buffer 1)))))
+	      (progn
+		(goto-char point)
+		(switch-to-buffer-other-window 
+		 wl-message-buffer-cur-summary-buffer)
+		(if (wl-summary-jump-to-msg-by-message-id msg-id)
+		    (wl-summary-redisplay)))
+	    (wl-message-button-dispatcher e)))
+      (if (eq mouse-window (get-buffer-window (current-buffer)))
+	  (select-window window)))))
+
+(defun wl-message-uu-substring (buf outbuf &optional first last)
+  (save-excursion
+    (set-buffer buf)
+    (search-forward "\n\n")
+    (let ((sp (point))
+	  ep filename case-fold-search)
+      (if first
+	  (progn
+	    (re-search-forward "^begin[ \t]+[0-9]+[ \t]+\\([^ ].*\\)" nil t)
+	    (setq filename (buffer-substring (match-beginning 1)(match-end 1))))
+	(re-search-forward "^M.*$" nil t)) ; uuencoded string
+      (beginning-of-line)
+      (setq sp (point))
+      (goto-char (point-max))
+      (if last
+	  (re-search-backward "^end" sp t)
+        (re-search-backward "^M.*$" sp t)) ; uuencoded string
+      (forward-line 1)
+      (setq ep (point))
+      (set-buffer outbuf)
+      (goto-char (point-max))
+      (insert-buffer-substring buf sp ep)
+      (set-buffer buf)
+      filename)))
+
+;;; wl-message.el ends here
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
new file mode 100644
index 0000000..f1fb91b
--- /dev/null
+++ b/wl/wl-mime.el
@@ -0,0 +1,369 @@
+;;; wl-mime.el -- SEMI implementations of MIME processing on Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-23 15:53:53 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'mime-view)
+(require 'mime-edit)
+(require 'mime-play)
+(require 'mmelmo)
+
+(eval-when-compile
+  (defun-maybe Meadow-version ())
+  (mapcar
+   (function
+    (lambda (symbol)
+      (unless (boundp symbol)
+	(set (make-local-variable symbol) nil))))
+   '(xemacs-betaname
+     xemacs-codename
+     enable-multibyte-characters
+     mule-version)))
+
+;;; Draft
+
+(defalias 'wl-draft-editor-mode 'mime-edit-mode)
+
+(defalias 'wl-draft-decode-message-in-buffer 
+  'mime-edit-decode-message-in-buffer)
+
+(defun wl-draft-yank-current-message-entity ()
+  "Yank currently displayed message entity. 
+By setting following-method as yank-content."
+  (let ((wl-draft-buffer (current-buffer))
+	(mime-view-following-method-alist 
+	 (list (cons 'mmelmo-original-mode 
+		     (function wl-draft-yank-to-draft-buffer))))
+	(mime-preview-following-method-alist 
+	 (list (cons 'mmelmo-original-mode
+		     (function wl-draft-yank-to-draft-buffer)))))
+    (if (get-buffer (wl-current-message-buffer))
+	(save-excursion
+	  (save-restriction
+	    (set-buffer (wl-current-message-buffer))
+	    (widen)
+	    (mime-preview-follow-current-entity))))))
+
+(defalias 'wl-draft-enclose-digest-region 'mime-edit-enclose-digest-region)
+
+;; SEMI 1.13.5 or later.
+;; (mime-display-message 
+;;  MESSAGE &optional 
+;;  PREVIEW-BUFFER MOTHER DEFAULT-KEYMAP-OR-FUNCTION ORIGINAL-MAJOR-MODE)
+;; SEMI 1.13.4 or earlier.
+;; (mime-display-message 
+;;  MESSAGE &optional 
+;;  PREVIEW-BUFFER MOTHER DEFAULT-KEYMAP-OR-FUNCTION)
+(static-if (or (and mime-user-interface-product
+		    (eq (nth 0 (aref mime-user-interface-product 1)) 1)
+		    (>= (nth 1 (aref mime-user-interface-product 1)) 14))
+	       (and mime-user-interface-product
+		    (eq (nth 0 (aref mime-user-interface-product 1)) 1)
+		    (eq (nth 1 (aref mime-user-interface-product 1)) 13)
+		    (>= (nth 2 (aref mime-user-interface-product 1)) 5)))
+    ;; Has original-major-mode optional argument.
+    (defalias 'wl-mime-display-message 'mime-display-message)
+  (defmacro wl-mime-display-message (message &optional
+					     preview-buffer mother
+					     default-keymap-or-function
+					     original-major-mode)
+    (` (mime-display-message (, message) (, preview-buffer) (, mother)
+			     (, default-keymap-or-function))))
+  ;; User agent field of XEmacs has problem on SEMI 1.13.4 or earlier.
+  (setq mime-edit-user-agent-value
+	(concat 
+	 (mime-product-name mime-user-interface-product) "/"
+	 (mapconcat 
+	  #'number-to-string
+	  (mime-product-version mime-user-interface-product) ".")
+	 " (" (mime-product-code-name mime-user-interface-product)
+	 ") " (mime-product-name mime-library-product)
+	 "/" (mapconcat #'number-to-string
+			(mime-product-version mime-library-product) ".")
+	 " (" (mime-product-code-name mime-library-product) ") "
+	 (if (featurep 'xemacs)
+	     (concat 
+	      (if (featurep 'mule) "MULE")
+	      " XEmacs"
+	      (if (string-match "\\s +\\((\\|\\\"\\)" emacs-version)
+		  (concat "/" (substring emacs-version 0
+					 (match-beginning 0))
+			  (if (and (boundp 'xemacs-betaname)
+				   ;; It does not exist in XEmacs
+				   ;; versions prior to 20.3.
+				   xemacs-betaname)
+			      (concat " " xemacs-betaname)
+			    "")
+			  " (" xemacs-codename ") ("
+			  system-configuration ")")
+		" (" emacs-version ")"))
+	   (let ((ver (if (string-match "\\.[0-9]+$" emacs-version)
+			  (substring emacs-version 0 (match-beginning 0))
+			emacs-version)))
+	     (if (featurep 'mule)
+		 (if (boundp 'enable-multibyte-characters)
+		     (concat "Emacs/" ver
+			     " (" system-configuration ")"
+			     (if enable-multibyte-characters
+				 (concat " MULE/" mule-version)
+			       " (with unibyte mode)")
+			     (if (featurep 'meadow)
+				 (let ((mver (Meadow-version)))
+				   (if (string-match "^Meadow-" mver)
+				       (concat " Meadow/"
+					       (substring mver
+							  (match-end 0)))))))
+		   (concat "MULE/" mule-version
+			   " (based on Emacs " ver ")"))
+	       (concat "Emacs/" ver " (" system-configuration ")")))))))
+
+;; FLIM 1.12.7
+;; (mime-read-field FIELD-NAME &optional ENTITY)
+;; FLIM 1.13.2 or later
+;; (mime-entity-read-field ENTITY FIELD-NAME)
+(static-if (fboundp 'mime-entity-read-field)
+    (defalias 'wl-mime-entity-read-field 'mime-entity-read-field)
+  (defmacro wl-mime-entity-read-field (entity field-name)
+    (` (mime-read-field (, field-name) (, entity)))))
+
+(defun wl-draft-preview-message ()
+  (interactive)
+  (let ((mime-display-header-hook 'wl-highlight-headers)
+	mime-view-ignored-field-list ; all header.
+	(mime-edit-translate-buffer-hook (append
+					  (list 'wl-draft-config-exec)
+					  mime-edit-translate-buffer-hook)))
+    (mime-edit-preview-message)
+    (let ((buffer-read-only nil))
+      (when wl-highlight-body-too 
+	(wl-highlight-body))
+      (run-hooks 'wl-draft-preview-message-hook))))
+
+(defalias 'wl-draft-caesar-region  'mule-caesar-region)
+
+(defalias 'wl-draft-insert-message 'mime-edit-insert-message)
+
+(defalias 'wl-draft-insert-mail 'mime-edit-insert-mail)
+
+;;; Message
+
+(defun wl-message-decode-mode (outbuf inbuf)
+  (let ((mime-view-content-header-filter-hook 'wl-highlight-headers)
+	(mime-display-header-hook 'wl-highlight-headers))
+    (mime-view-mode nil nil nil inbuf outbuf)))
+
+(defun wl-message-decode-with-all-header (outbuf inbuf)
+  (let ((mime-view-ignored-field-regexp "^:$")
+	(mime-view-content-header-filter-hook 'wl-highlight-headers)
+	(mime-display-header-hook 'wl-highlight-headers)
+	mime-view-ignored-field-list)
+    (mime-view-mode nil nil nil inbuf outbuf)))
+
+(defun wl-message-delete-mime-out-buf ()
+  (let (mime-out-buf mime-out-win)
+    (if (setq mime-out-buf (get-buffer mime-echo-buffer-name))
+	(if (setq mime-out-win (get-buffer-window mime-out-buf))
+	    (delete-window mime-out-win)))))
+
+(defun wl-message-request-partial (folder number msgdb)
+  (elmo-set-work-buf
+   (elmo-read-msg-no-cache folder number (current-buffer) msgdb)
+   (mime-parse-buffer nil))); 'mime-buffer-entity)))
+
+(defalias 'wl-message-read            'mime-preview-scroll-up-entity)
+(defalias 'wl-message-next-content    'mime-preview-move-to-next)
+(defalias 'wl-message-prev-content    'mime-preview-move-to-previous)
+(defalias 'wl-message-play-content    'mime-preview-play-current-entity)
+(defalias 'wl-message-extract-content 'mime-preview-extract-current-entity)
+(defalias 'wl-message-quit            'mime-preview-quit)
+(defalias 'wl-message-button-dispatcher 'mime-button-dispatcher)
+
+;;; Summary
+(defun wl-summary-burst ()
+  (interactive)
+  (let ((raw-buf (wl-message-get-original-buffer))
+	(i 0)
+	target 
+	children message-entity content-type)
+    (save-excursion
+      (setq target wl-summary-buffer-folder-name)
+      (while (not (elmo-folder-writable-p target))
+	(setq target 
+	      (wl-summary-read-folder wl-default-folder "to extract to")))
+      (wl-summary-set-message-buffer-or-redisplay)
+      (save-excursion
+	(set-buffer (get-buffer wl-message-buf-name))
+	(setq message-entity (get-text-property (point-min) 'mime-view-entity)))
+      (set-buffer raw-buf)
+      (setq children (mime-entity-children message-entity))
+      (message "Bursting...")
+      (while children
+	(setq content-type (mime-entity-content-type (car children)))
+	(when (and (eq (cdr (assq 'type content-type)) 'message)
+		   (eq (cdr (assq 'subtype content-type)) 'rfc822))
+	  (message (format "Bursting...%s" (setq i (+ 1 i))))
+	  (setq message-entity
+		(car (mime-entity-children (car children))))
+	  (save-restriction
+	    (narrow-to-region (mime-entity-point-min message-entity)
+			      (mime-entity-point-max message-entity))
+	    (elmo-append-msg target
+			     ;;(mime-entity-content (car children))))
+			     (buffer-substring (point-min) (point-max))
+			     (std11-field-body "Message-ID"))))
+	(setq children (cdr children)))
+      (message "Bursting...done."))
+    (if (elmo-folder-plugged-p target)
+	(elmo-commit target))
+    (wl-summary-sync-update3)))
+
+
+;; internal variable.
+(defvar wl-mime-save-dir nil "Last saved directory.")
+;;; Yet another save method.
+(defun wl-mime-save-content (entity situation)
+  (let ((filename (read-file-name "Save to file: "
+				  (expand-file-name 
+				   (or (mime-entity-safe-filename entity)
+				       ".")
+				   (or wl-mime-save-dir
+				       wl-tmp-dir)))))
+    (while (file-directory-p filename)
+      (setq filename (read-file-name "Please set filename (not directory): "
+				     filename)))
+    (if (file-exists-p filename)
+	(or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
+	    (error "Not saved")))
+    (setq wl-mime-save-dir (file-name-directory filename))
+    (mime-write-entity-content entity filename)))
+
+;;; Yet another combine method.
+(defun wl-mime-combine-message/partial-pieces (entity situation)
+  "Internal method for wl to combine message/partial messages
+automatically."
+  (interactive)
+  (let* ((msgdb (save-excursion 
+		  (set-buffer wl-message-buffer-cur-summary-buffer)
+		  wl-summary-buffer-msgdb))
+	 (mime-display-header-hook 'wl-highlight-headers)
+	 (folder wl-message-buffer-cur-folder)
+	 (id (or (cdr (assoc "id" situation)) ""))
+	 (mother (current-buffer))
+	 subject-id overviews
+	 (root-dir (expand-file-name
+		    (concat "m-prts-" (user-login-name))
+		    temporary-file-directory))
+	 full-file)
+    (setq root-dir (concat root-dir "/" (replace-as-filename id)))
+    (setq full-file (concat root-dir "/FULL"))
+    (if (or (file-exists-p full-file)
+	    (not (y-or-n-p "Merge partials?")))
+	(with-current-buffer mother
+	  (mime-store-message/partial-piece entity situation))
+      (setq subject-id 
+	    (eword-decode-string
+	     (decode-mime-charset-string 
+	      (wl-mime-entity-read-field entity 'Subject)
+	      wl-summary-buffer-mime-charset)))
+      (if (string-match "[0-9\n]+" subject-id)
+	  (setq subject-id (substring subject-id 0 (match-beginning 0))))
+      (setq overviews (elmo-msgdb-get-overview msgdb))
+      (catch 'tag
+	(while overviews
+	  (when (string-match
+		 (regexp-quote subject-id)
+		 (elmo-msgdb-overview-entity-get-subject (car overviews)))
+	    (let* ((message
+		    ;; request message at the cursor in Subject buffer.
+		    (wl-message-request-partial
+		     folder
+		     (elmo-msgdb-overview-entity-get-number (car overviews))
+		     msgdb))
+		   (situation (mime-entity-situation message))
+		   (the-id (or (cdr (assoc "id" situation)) "")))
+	      (when (string= (downcase the-id) 
+			     (downcase id))
+		(with-current-buffer mother
+		  (mime-store-message/partial-piece message situation))
+		(if (file-exists-p full-file)
+		    (throw 'tag nil)))))
+	  (setq overviews (cdr overviews)))
+	(message "Not all partials found.")))))
+
+;;; Setup methods.
+(defun wl-mime-setup ()
+  (set-alist 'mime-preview-quitting-method-alist
+	     'mmelmo-original-mode 'wl-message-exit)
+  (set-alist 'mime-view-over-to-previous-method-alist
+	     'mmelmo-original-mode 'wl-message-exit)
+  (set-alist 'mime-view-over-to-next-method-alist 
+	     'mmelmo-original-mode 'wl-message-exit)
+  (set-alist 'mime-preview-over-to-previous-method-alist
+	     'mmelmo-original-mode 'wl-message-exit)
+  (set-alist 'mime-preview-over-to-next-method-alist
+	     'mmelmo-original-mode 'wl-message-exit)
+  (add-hook 'wl-summary-redisplay-hook 'wl-message-delete-mime-out-buf)
+  (add-hook 'wl-message-exit-hook 'wl-message-delete-mime-out-buf)
+
+  (ctree-set-calist-strictly
+   'mime-acting-condition
+   '((type . message) (subtype . partial)
+     (method .  wl-mime-combine-message/partial-pieces)
+     (request-partial-message-method . wl-message-request-partial)
+     (major-mode . mmelmo-original-mode)))
+  (ctree-set-calist-strictly
+   'mime-acting-condition
+   '((mode . "extract")
+     (major-mode . mmelmo-original-mode)
+     (method . wl-mime-save-content)))
+  (set-alist 'mime-preview-following-method-alist 
+	     'mmelmo-original-mode
+	     (function wl-message-follow-current-entity))
+  (set-alist 'mime-view-following-method-alist 
+	     'mmelmo-original-mode
+	     (function wl-message-follow-current-entity))
+  (set-alist 'mime-edit-message-inserter-alist
+	     'wl-draft-mode (function wl-draft-insert-current-message))
+  (set-alist 'mime-edit-mail-inserter-alist
+	     'wl-draft-mode (function wl-draft-insert-get-message))
+  (set-alist 'mime-edit-split-message-sender-alist
+	     'wl-draft-mode 
+	     (cdr (assq 'mail-mode mime-edit-split-message-sender-alist)))
+  (set-alist 'mime-raw-representation-type-alist
+	     'mmelmo-original-mode 'binary)
+  ;; Sort and highlight header fields.
+  (setq mmelmo-sort-field-list wl-message-sort-field-list)
+  (add-hook 'mmelmo-header-inserted-hook 'wl-highlight-headers)
+  (add-hook 'mmelmo-entity-content-inserted-hook 'wl-highlight-body))
+  
+
+(provide 'wl-mime)
+
+;;; wl-mime.el ends here
diff --git a/wl/wl-mule.el b/wl/wl-mule.el
new file mode 100644
index 0000000..e4e85cf
--- /dev/null
+++ b/wl/wl-mule.el
@@ -0,0 +1,299 @@
+;;; wl-mule.el -- Wanderlust modules for Mule compatible Emacsen.
+;;                (Mule2.3@19.28, Mule2.3@19.34, Emacs 20.x)
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-22 15:57:29 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(eval-when-compile
+  (require 'wl-folder)
+  (require 'wl-summary)
+  (require 'wl-draft)
+  (require 'wl-message)
+  (require 'wl-highlight)
+  (require 'wl-vars)
+  (defvar-maybe wl-draft-mode-map (make-sparse-keymap)))
+
+(defun wl-draft-mode-setup ()
+  (require 'derived)
+  (define-derived-mode wl-draft-mode mail-mode "Draft"
+    "draft mode for Wanderlust derived from mail mode.
+See info under Wanderlust for full documentation.
+
+Special commands:
+\\{wl-draft-mode-map}"))
+
+;; Common implementations.
+(defun wl-highlight-folder-current-line (&optional numbers)
+  "Highlight current folder line."
+  (interactive)
+  (save-excursion
+    (let ((highlights (list "opened" "closed"))
+	  (inhibit-read-only t)
+	  (fld-name (wl-folder-get-folder-name-by-id
+		     (get-text-property (point) 'wl-folder-entity-id)))
+	  fregexp fsymbol bol eol matched type extent num type)
+      (beginning-of-line)
+      (setq bol (point))
+      (save-excursion (end-of-line) (setq eol (point)))
+      (if (and numbers (nth 0 numbers) (nth 1 numbers))
+	  (progn
+	    (setq fsymbol 
+		  (let ((unsync (nth 0 numbers))
+			(unread (nth 1 numbers)))
+		    (cond ((and unsync (eq unsync 0))
+			   (if (and unread (> unread 0))
+			       'wl-highlight-folder-unread-face
+			     'wl-highlight-folder-zero-face))
+			  ((and unsync 
+				(>= unsync wl-folder-many-unsync-threshold))
+			   'wl-highlight-folder-many-face)
+			  (t
+			   'wl-highlight-folder-few-face))))
+	    (put-text-property bol eol 'face fsymbol)
+	    (setq matched t)))
+      (catch 'highlighted
+	(while highlights
+	  (setq fregexp (symbol-value 
+			 (intern (format "wl-highlight-folder-%s-regexp" 
+					 (car highlights)))))
+	  (if (not wl-highlight-group-folder-by-numbers)
+	      (setq fsymbol (intern (format "wl-highlight-folder-%s-face"
+					    (car highlights)))))
+	  (when (looking-at fregexp)
+	    (put-text-property bol eol 'face fsymbol)
+	    (setq matched t)
+	    (throw 'highlighted nil))
+	  (setq highlights (cdr highlights))))
+      (if (not matched)
+	  (if (looking-at (format "^[ ]*\\(%s\\|%s\\)"
+				  wl-folder-unsubscribe-mark
+				  wl-folder-removed-mark))
+	      (put-text-property bol eol 'face
+				 'wl-highlight-folder-killed-face)
+	    (put-text-property bol eol 'face
+			       'wl-highlight-folder-unknown-face)))
+      (if wl-use-highlight-mouse-line 
+	  (wl-highlight-folder-mouse-line)))))
+  
+(defun wl-highlight-plugged-current-line ())
+(defun wl-plugged-set-folder-icon (folder string)
+  string)
+
+(defun wl-folder-init-icons ()) ; dummy.
+(defun wl-plugged-init-icons ()) ; dummy.
+
+(defun wl-xmas-setup-folder ()) ; dummy
+(defun wl-xmas-setup-summary ())
+(defun wl-xmas-setup-draft-toolbar ())
+
+(defun wl-message-overload-functions ()
+  (local-set-key "l" 'wl-message-toggle-disp-summary)
+  (local-set-key [mouse-2] 'wl-message-refer-article-or-url)
+  (local-set-key [mouse-4] 'wl-message-wheel-down)
+  (local-set-key [mouse-5] 'wl-message-wheel-up)
+  (local-set-key [S-mouse-4] 'wl-message-wheel-down)
+  (local-set-key [S-mouse-5] 'wl-message-wheel-up))
+
+(defun wl-message-wheel-up (event)
+  (interactive "e")
+  (if (string-match wl-message-buf-name (buffer-name))
+      (wl-message-next-page)
+    (let ((cur-buf (current-buffer))
+	  proceed)
+      (save-selected-window
+	(select-window (posn-window (event-start event)))
+	(set-buffer cur-buf)
+	(setq proceed (wl-message-next-page)))
+      (if proceed
+	  (if (memq 'shift (event-modifiers event))
+	      (wl-summary-down t)
+	    (wl-summary-next t))))))
+
+(defun wl-message-wheel-down (event)
+  (interactive "e")
+  (if (string-match wl-message-buf-name (buffer-name))
+      (wl-message-prev-page)
+    (let ((cur-buf (current-buffer))
+	  proceed)
+      (save-selected-window
+	(select-window (posn-window (event-start event)))
+	(set-buffer cur-buf)
+	(setq proceed (wl-message-prev-page)))
+      (if proceed
+	  (if (memq 'shift (event-modifiers event))
+	      (wl-summary-up t)
+	    (wl-summary-prev t))))))
+
+(defun wl-draft-key-setup ()
+  (define-key wl-draft-mode-map "\C-c\C-y" 'wl-draft-yank-original)
+  (define-key wl-draft-mode-map "\C-c\C-a" 'wl-draft-insert-x-face-field)
+  (define-key wl-draft-mode-map "\C-c\C-s" 'wl-draft-send)
+  (define-key wl-draft-mode-map "\C-c\C-c" 'wl-draft-send-and-exit)
+  (define-key wl-draft-mode-map "\C-c\C-z" 'wl-draft-save-and-exit)
+  (define-key wl-draft-mode-map "\C-c\C-k" 'wl-draft-kill)
+  (define-key wl-draft-mode-map "\C-l"     'wl-draft-highlight-and-recenter)
+  (define-key wl-draft-mode-map "\C-i"     'wl-complete-field-body-or-tab)
+  (define-key wl-draft-mode-map "\C-c\C-r" 'wl-draft-caesar-region)
+  (define-key wl-draft-mode-map "\M-t"     'wl-toggle-plugged)
+  (define-key wl-draft-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (define-key wl-draft-mode-map "\C-c\C-e" 'wl-draft-config-exec)
+  (define-key wl-draft-mode-map "\C-c\C-j" 'wl-template-select)
+  (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
+  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
+  (define-key wl-draft-mode-map "\C-xk" 'wl-draft-mimic-kill-buffer))
+
+(defun wl-draft-overload-menubar ()
+  (local-set-key [menu-bar mail send]
+    '("Send Message" . wl-draft-send-and-exit))
+  (local-set-key [menu-bar mail send-stay]
+    '("Send, Keep Editing" . wl-draft-send))
+  (local-set-key [menu-bar mail cancel]
+    '("Kill Current Draft" . wl-draft-kill))
+  (local-set-key [menu-bar mail yank]
+    '("Cite Message" . wl-draft-yank-original))
+  (local-set-key [menu-bar mail signature]
+    '("Insert Signature" . insert-signature))
+  (local-set-key [menu-bar headers fcc]
+    '("FCC" . wl-draft-fcc)))
+
+(defun wl-draft-overload-functions ()
+  (setq mode-line-buffer-identification
+	(format "Wanderlust: %s" (buffer-name)))
+  (local-set-key "\C-c\C-s" 'wl-draft-send)    ; override
+  (wl-draft-overload-menubar)
+  (when wl-show-plug-status-on-modeline
+    (setq mode-line-format (wl-make-modeline))))
+
+(defalias 'wl-make-modeline 'wl-make-modeline-subr)
+
+;; for "ja-mule-canna-2.3.mini" on PocketBSD
+(defun-maybe make-face (a))
+
+(eval-when-compile 
+  (require 'static))
+(static-cond
+ ((and (fboundp 'defface)
+       (not (featurep 'tinycustom)))
+  (defalias 'wl-defface 'defface)
+  (eval-when-compile
+    (defun wl-face-spec-set-match-display (display frame))
+    (defun wl-frame-parameter (frame property &optional default))
+    (defun wl-get-frame-properties (&optional frame))))
+ (t
+  (defmacro wl-defface (face spec doc &rest args)
+    (nconc (list 'wl-declare-face (list 'quote face) spec)))
+
+  (defun wl-declare-face (face spec)
+    (make-face face)
+    (while spec
+      (let* ((entry (car spec))
+	     (display (nth 0 entry))
+	     (atts (nth 1 entry)))
+	(setq spec (cdr spec))
+	(when (wl-face-spec-set-match-display display nil)
+	  (apply 'wl-face-attributes-set face nil atts)))))
+
+  (defconst wl-face-attributes
+    '((:bold set-face-bold-p)
+      (:italic set-face-italic-p)
+      (:underline set-face-underline-p)
+      (:foreground set-face-foreground)
+      (:background set-face-background)
+      (:stipple set-face-stipple)))
+
+  (defun wl-face-attributes-set (face frame &rest atts)
+    "For FACE on FRAME set the attributes [KEYWORD VALUE]....
+Each keyword should be listed in `custom-face-attributes'.
+
+If FRAME is nil, set the default face."
+    (while atts 
+      (let* ((name (nth 0 atts))
+	     (value (nth 1 atts))
+	     (fun (nth 1 (assq name wl-face-attributes))))
+	(setq atts (cdr (cdr atts)))
+	(condition-case nil
+	    (funcall fun face value frame)
+	  (error nil)))))
+
+  (defun wl-frame-parameter (frame property &optional default)
+    "Return FRAME's value for property PROPERTY."
+    (or (cdr (assq property (frame-parameters frame)))
+	default))
+
+  (eval-when-compile
+    (defun-maybe x-display-grayscale-p ()))
+
+  (defun wl-get-frame-properties (&optional frame)
+    "Return a plist with the frame properties of FRAME used by custom."
+    (list (cons 'type window-system)
+	  (cons 'class (or (wl-frame-parameter frame 'display-type)
+			   (when window-system
+			     (cond ((x-display-color-p)
+				    'color)
+				   ((and (fboundp 'x-display-grayscale-p)
+					 (x-display-grayscale-p))
+				    'grayscale)
+				   (t 'mono)))))
+	  (cons 'background (or (wl-frame-parameter frame 'background-mode)
+				wl-highlight-background-mode))))
+
+  (defun wl-face-spec-set-match-display (display frame)
+    "Non-nil iff DISPLAY matches FRAME.
+If FRAME is nil, the current FRAME is used."
+    ;; This is a kludge to get started, we really should use specifiers!
+    (if (eq display t)
+	t
+      (let* ((props (wl-get-frame-properties frame))
+	     (type (cdr (assq 'type props)))
+	     (class (cdr (assq 'class props)))
+	     (background (cdr (assq 'background props)))
+	     (match t)
+	     (entries display)
+	     entry req options)
+	(while (and entries match)
+	  (setq entry (car entries)
+		entries (cdr entries)
+		req (car entry)
+		options (cdr entry)
+		match (cond ((eq req 'type)
+			     (memq type options))
+			    ((eq req 'class)
+			     (memq class options))
+			    ((eq req 'background)
+			     (memq background options))
+			    (t
+			     (message (format "\
+Warning: Unknown req `%S' with options `%S'" req options))
+			     nil))))
+	match)))))
+
+(provide 'wl-mule)
+
+;;; wl-mule.el ends here
diff --git a/wl/wl-nemacs.el b/wl/wl-nemacs.el
new file mode 100644
index 0000000..4a28f3e
--- /dev/null
+++ b/wl/wl-nemacs.el
@@ -0,0 +1,172 @@
+;;; wl-nemacs.el -- Wanderlust modules for Nemacs.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-22 15:57:31 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(defun wl-xmas-setup-folder ()) ; dummy
+(defun wl-xmas-setup-summary ())
+(defun wl-xmas-setup-draft-toolbar ())
+
+(defun wl-summary-setup-mouse ())
+(defun wl-message-overload-functions ()
+  (local-set-key "l" 'wl-message-toggle-disp-summary))
+
+(defun wl-message-wheel-up (event)
+  (interactive "e"))
+(defun wl-message-wheel-down (event)
+  (interactive "e"))
+
+(defun wl-highlight-folder-current-line (&optional numbers))
+(defun wl-highlight-folder-path (folder-path))
+(defun wl-highlight-summary (start end))
+(defun wl-highlight-folder-group-line (numbers))
+(defun wl-highlight-summary-line-string (line mark indent before-indent))
+(defun wl-highlight-body-region (beg end))
+(defun wl-highlight-message (start end hack-sig &optional body-only))
+(defun wl-delete-all-overlays ())
+(defun wl-highlight-summary-current-line (&optional smark regexp temp-too))
+
+(defun wl-highlight-plugged-current-line ())
+(defun wl-plugged-set-folder-icon (folder string)
+  string)
+
+(defun wl-folder-init-icons ()) ; dummy.
+(defun wl-plugged-init-icons ()) ; dummy.
+
+(defmacro wl-defface (face spec doc &rest args)
+  (` (defvar (, face) (, spec) (, doc))))
+
+(defsubst elmo-archive-call-process (prog args &optional output)
+  (apply 'call-process prog nil output nil args)
+  0)
+
+(defun wl-draft-mode-setup ()
+  (defalias 'wl-draft-mode 'mail-mode))
+(defun wl-draft-key-setup ())
+
+;; ??? 
+(defvar mime-article/kanji-code-alist
+  (list (cons t (mime-charset-to-coding-system default-mime-charset))))
+
+(defun wl-draft-overload-functions ()
+  (setq mode-line-buffer-identification
+	(format "Wanderlust: %s" (buffer-name)))
+  (local-set-key "\C-c\C-y" 'wl-draft-yank-original)
+  (local-set-key "\C-c\C-s" 'wl-draft-send)
+  (local-set-key "\C-c\C-a" 'wl-draft-insert-x-face-field)
+  (local-set-key "\C-c\C-c" 'wl-draft-send-and-exit)
+  (local-set-key "\C-c\C-z" 'wl-draft-save-and-exit)
+  (local-set-key "\C-c\C-k" 'wl-draft-kill)
+  (local-set-key "\C-l"     'wl-draft-highlight-and-recenter)
+  (local-set-key "\C-i"     'wl-complete-field-body-or-tab)
+  (local-set-key "\C-c\C-r" 'wl-draft-caesar-region)
+  (local-set-key "\M-t"     'wl-toggle-plugged)
+  (local-set-key "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (local-set-key "\C-c\C-j" 'wl-template-select)
+  (local-set-key "\C-c\C-p" 'wl-draft-preview-message)
+  (local-set-key "\C-x\C-s" 'wl-draft-save)
+  (local-set-key "\C-xk"    'wl-draft-mimic-kill-buffer)
+  (when wl-show-plug-status-on-modeline
+    (set (make-variable-buffer-local 'mode-line-format) (wl-make-modeline))))
+
+(defalias 'wl-make-modeline 'wl-make-modeline-subr)
+
+;;; Emulations.
+
+(defvar-maybe user-mail-address nil)
+(defvar-maybe mail-send-actions nil)
+(defvar-maybe mail-default-headers nil)
+(defvar-maybe mail-citation-hook nil)
+(defvar-maybe mail-yank-hooks nil)
+(defvar-maybe mail-mailer-swallows-blank-line nil)
+
+(defvar mail-send-actions nil)
+
+(defun-maybe mail-indent-citation ()
+  "Modify text just inserted from a message to be cited.
+The inserted text should be the region.
+When this function returns, the region is again around the modified text.
+
+Normally, indent each nonblank line `mail-indentation-spaces' spaces.
+However, if `mail-yank-prefix' is non-nil, insert that prefix on each line."
+  (let ((start (point)))
+    (mail-yank-clear-headers start (mark t))
+    (if (null mail-yank-prefix)
+	(indent-rigidly start (mark t) mail-indentation-spaces)
+      (save-excursion
+	(goto-char start)
+	(while (< (point) (mark t))
+	  (insert mail-yank-prefix)
+	  (forward-line 1))))))
+
+(defun-maybe mail-yank-clear-headers (start end)
+  (save-excursion
+    (goto-char start)
+    (if (search-forward "\n\n" end t)
+	(save-restriction
+	  (narrow-to-region start (point))
+	  (goto-char start)
+	  (while (let ((case-fold-search t))
+		   (re-search-forward mail-yank-ignored-headers nil t))
+	    (beginning-of-line)
+	    (delete-region (point)
+			   (progn (re-search-forward "\n[^ \t]")
+				  (forward-char -1)
+				  (point))))))))
+
+(defun-maybe find-file-name-handler (filename operation))
+
+(defun-maybe read-event ()
+  (setq unread-command-events 
+	(if (fboundp 'read-char-exclusive)
+	    (read-char-exclusive)
+	  ;; XXX Emacs18.59 does not have read-char-exclusive().
+	  (read-char))))
+
+(defmacro easy-menu-define (a b c d)
+  (` (defvar (, a) nil (, c))))
+(defmacro easy-menu-add (a)
+  (` nil))
+
+(defun copy-face (a b))
+(defun make-face (a))
+(defun set-face-foreground (a b))
+(defun set-face-background (a b))
+(defun set-face-underline-p (a b))
+(defun set-face-font (a b))
+
+;;; XXX cl's member() brings evil upon MIME-View.
+;; cl is always called after poe-18, so `(require 'poe-18)' is
+;; a dead duck... We MUST re-load it certainly.
+(load-library "poe-18")
+
+(provide 'wl-nemacs)
+
+;;; wl-nemacs.el ends here
diff --git a/wl/wl-refile.el b/wl/wl-refile.el
new file mode 100644
index 0000000..836fe54
--- /dev/null
+++ b/wl/wl-refile.el
@@ -0,0 +1,204 @@
+;;; wl-refile.el -- Refile modules for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/23 19:07:28 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'wl-vars)
+(require 'wl-util)
+(provide 'wl-refile)
+
+
+(defvar wl-refile-alist nil)
+(defvar wl-refile-alist-file-name "refile-alist")
+;; should be renamed to "refile-from-alist"
+(defvar wl-refile-msgid-alist nil)
+(defvar wl-refile-msgid-alist-file-name "refile-msgid-alist")
+
+(defvar wl-refile-alist-max-length 1000)
+
+(defun wl-refile-alist-setup ()
+  (setq wl-refile-alist
+	(elmo-object-load
+	 (expand-file-name wl-refile-alist-file-name
+			   elmo-msgdb-dir)))
+  (setq wl-refile-msgid-alist
+	(elmo-object-load
+	 (expand-file-name wl-refile-msgid-alist-file-name
+			   elmo-msgdb-dir))))
+
+(defun wl-refile-alist-save (file-name alist)
+  (save-excursion
+    (let ((filename (expand-file-name file-name
+				      elmo-msgdb-dir))
+	  (tmp-buffer (get-buffer-create " *wl-refile-alist-tmp*")))
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (if (> (length alist) wl-refile-alist-max-length)
+	  (setcdr (nthcdr (1- wl-refile-alist-max-length) alist) nil))
+      (prin1 alist tmp-buffer)
+      (princ "\n" tmp-buffer)
+      (if (file-writable-p filename)
+	  (write-region (point-min) (point-max) 
+			filename nil 'no-msg)
+	(message (format "%s is not writable." filename)))
+      (kill-buffer tmp-buffer))))
+
+(defun wl-refile-learn (entity dst)
+  (let (tocc-list from key hit ml)
+    (setq dst (elmo-string dst))
+    (setq tocc-list 
+	  (mapcar (function
+		   (lambda (entity) 
+		     (downcase (wl-address-header-extract-address entity))))
+		  (wl-parse-addresses 
+		   (concat
+		    (elmo-msgdb-overview-entity-get-to entity) ","
+		    (elmo-msgdb-overview-entity-get-cc entity)))))
+    (while tocc-list
+      (if (wl-string-member 
+	   (car tocc-list) 
+	   (mapcar (function downcase) wl-subscribed-mailing-list))
+	  (setq ml (car tocc-list)
+		tocc-list nil)
+	(setq tocc-list (cdr tocc-list))))
+    (if ml
+	(setq key ml) ; subscribed entity!!
+      (or (wl-address-user-mail-address-p
+	   (setq from 
+		 (downcase 
+		  (wl-address-header-extract-address
+		   (elmo-msgdb-overview-entity-get-from 
+		    entity)))))
+	  (setq key from)))
+    (if (not ml)
+	(wl-refile-msgid-learn entity dst))
+    (if key
+	(if (setq hit (assoc key wl-refile-alist))
+	    (setcdr hit dst)
+	  (setq wl-refile-alist
+		(nconc wl-refile-alist (list (cons key dst))))))))
+
+(defun wl-refile-msgid-learn (entity dst)
+  (let ((key (elmo-msgdb-overview-entity-get-id entity))
+	hit)
+    (setq dst (elmo-string dst))
+    (if key
+	(if (setq hit (assoc key wl-refile-msgid-alist))
+	    (setcdr hit dst)
+	  (setq wl-refile-msgid-alist (cons (cons key dst)
+					    wl-refile-msgid-alist))))))
+
+;;
+;; refile guess
+;;
+(defvar wl-refile-guess-func-list
+  '(wl-refile-guess-by-rule
+    wl-refile-guess-by-msgid
+    wl-refile-guess-by-history)
+  "*Functions in this list are used for guessing refile destination folder.")
+
+(defun wl-refile-guess (entity)
+  (let ((flist wl-refile-guess-func-list) guess)
+    (while flist
+      (if (setq guess (funcall (car flist) entity))
+	  (setq flist nil)
+	(setq flist (cdr flist))))
+    guess))
+
+(defun wl-refile-guess-by-rule (entity)
+  (let ((rules wl-refile-rule-alist)
+	(rule-set) (field) (field-cont))
+    (catch 'found
+      (while rules
+	(setq rule-set (cdr (car rules))
+	      field (car (car rules)))
+	(cond ((string-match field "From")
+	       (setq field-cont
+		     (elmo-msgdb-overview-entity-get-from entity)))
+	      ((string-match field "Subject")
+	       (setq field-cont
+		     (elmo-msgdb-overview-entity-get-subject entity)))
+	      ((string-match field "To")
+	       (setq field-cont
+		     (elmo-msgdb-overview-entity-get-to entity)))
+	      ((string-match field "Cc")
+	       (setq field-cont
+		     (elmo-msgdb-overview-entity-get-cc entity)))
+	      (t
+	       (setq field-cont
+		     (elmo-msgdb-overview-entity-get-extra-field
+		      entity (downcase field)))))
+	(if field-cont
+	    (while rule-set
+	      (if (string-match (car (car rule-set)) field-cont)
+		  (throw 'found (cdr (car rule-set)))
+		(setq rule-set (cdr rule-set)))))
+	(setq rules (cdr rules))))))
+
+(defun wl-refile-guess-by-history (entity)
+  (let ((tocc-list 
+	 (mapcar (function
+		  (lambda (entity)
+		    (downcase (wl-address-header-extract-address entity))))
+		 (wl-parse-addresses 
+		  (concat
+		   (elmo-msgdb-overview-entity-get-to entity) ","
+		   (elmo-msgdb-overview-entity-get-cc entity)))))
+	ret-val)
+    (setq tocc-list (elmo-list-delete
+		     (or wl-user-mail-address-list
+			 (list (wl-address-header-extract-address wl-from)))
+		     tocc-list))
+    (while tocc-list
+      (if (setq ret-val (cdr (assoc (car tocc-list) wl-refile-alist)))
+	  (setq tocc-list nil)
+	(setq tocc-list (cdr tocc-list))))
+    (or ret-val
+	(wl-refile-guess-by-from entity))))
+
+(defun wl-refile-get-account-part-from-address (address)
+  (if (string-match "\\([^@]+\\)@[^@]+" address)
+      (wl-match-string 1 address)
+    address))
+		 
+(defun wl-refile-guess-by-from (entity)
+  (let ((from
+	 (downcase (wl-address-header-extract-address
+		    (elmo-msgdb-overview-entity-get-from entity)))))
+    ;; search from alist
+    (or (cdr (assoc from wl-refile-alist))
+	(format "%s/%s" wl-refile-default-from-folder 
+		(wl-refile-get-account-part-from-address from)))))
+  
+(defun wl-refile-guess-by-msgid (entity)
+  (cdr (assoc (elmo-msgdb-overview-entity-get-references entity)
+	      wl-refile-msgid-alist)))
+
+;;; wl-refile.el ends here
diff --git a/wl/wl-score.el b/wl/wl-score.el
new file mode 100644
index 0000000..69aca75
--- /dev/null
+++ b/wl/wl-score.el
@@ -0,0 +1,1499 @@
+;;; wl-score.el -- Scoring in Wanderlust.
+
+;; Copyright 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;;                          Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/14 19:35:28 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; Original codes are gnus-score.el and score-mode.el
+
+;;; Code:
+;; 
+
+
+(require 'wl-vars)
+(require 'wl-util)
+(eval-when-compile
+  (provide 'elmo-msgdb))
+
+(defvar wl-score-edit-header-char
+  '((?a "from" nil string)
+    (?s "subject" nil string)
+    (?i "message-id" nil string)
+    (?r "references" "message-id" string)
+    (?x "xref" nil string)
+    (?e "extra" nil string)
+    (?l "lines" nil number)
+    (?d "date" nil date)
+    (?f "followup" nil string)
+    (?t "thread" "message-id" string)))
+
+(defvar wl-score-edit-type-char
+  '((?s s "substring" string)
+    (?e e "exact string" string)
+    (?f f "fuzzy string" string)
+    (?r r "regexp string" string)
+    (?b before "before date" date)
+    (?a after "after date" date)
+    (?n at "this date" date)
+    (?< < "less than number" number)
+    (?> > "greater than number" number)
+    (?= = "equal to number" number)))
+
+(defvar wl-score-edit-perm-char
+  '((?t temp "temporary")
+    (?p perm "permanent")
+    (?i now "immediate")))
+
+;;; Global Variable
+
+(defconst wl-score-header-index
+  ;; Name to function alist.
+  '(("number"     wl-score-integer  elmo-msgdb-overview-entity-get-number) ;;0
+    ("subject"    wl-score-string   3 charset)
+    ("from"       wl-score-string   2 charset)
+    ("date"       wl-score-date     elmo-msgdb-overview-entity-get-date) ;;4
+    ("message-id" wl-score-string   elmo-msgdb-overview-entity-get-id)
+    ("references" wl-score-string   1)
+    ("to"         wl-score-string   5)
+    ("cc"         wl-score-string   6)
+    ("chars"      wl-score-integer  elmo-msgdb-overview-entity-get-size) ;;7
+    ("lines"      wl-score-integer  wl-score-overview-entity-get-lines)
+    ("xref"       wl-score-string   wl-score-overview-entity-get-xref)
+    ("extra"      wl-score-extra    wl-score-overview-entity-get-extra mime)
+    ("followup"   wl-score-followup 2 charset)
+    ("thread"     wl-score-thread   1)))
+
+(defvar wl-score-auto-make-followup-entry nil)
+(defvar wl-score-debug nil)
+(defvar wl-score-trace nil)
+
+(defvar wl-score-alist nil)
+(defvar wl-score-index nil)
+(defvar wl-score-cache nil)
+(defvar wl-scores-messages nil)
+(defvar wl-current-score-file nil)
+(defvar wl-score-make-followup nil)
+(defvar wl-score-stop-add-entry nil)
+
+(defvar wl-prev-winconf nil)
+(defvar wl-score-help-winconf nil)
+(defvar wl-score-header-buffer-list nil)
+(defvar wl-score-alike-hashtb nil)
+
+(defvar wl-score-edit-exit-func nil
+  "Function run on exit from the score buffer.")
+
+(mapcar 
+ (function make-variable-buffer-local)
+ (list 'wl-current-score-file
+       'wl-score-alist))
+
+;; Utility functions 
+
+(defun wl-score-simplify-buffer-fuzzy ()
+  "Simplify string in the buffer fuzzily.
+The string in the accessible portion of the current buffer is simplified.
+It is assumed to be a single-line subject.
+Whitespace is generally cleaned up, and miscellaneous leading/trailing
+matter is removed.  Additional things can be deleted by setting
+wl-score-simplify-fuzzy-regexp."
+  (let ((case-fold-search t)
+	(modified-tick))
+    (elmo-buffer-replace "\t" " ")
+    (while (not (eq modified-tick (buffer-modified-tick)))
+      (setq modified-tick (buffer-modified-tick))
+      (cond
+       ((listp wl-score-simplify-fuzzy-regexp)
+	(mapcar 'elmo-buffer-replace
+		wl-score-simplify-fuzzy-regexp))
+       (wl-score-simplify-fuzzy-regexp
+	(elmo-buffer-replace
+	 wl-score-simplify-fuzzy-regexp)))
+      (elmo-buffer-replace "^ *\\[[-+?*!][-+?*!]\\] *")
+      (elmo-buffer-replace
+       "^ *\\(re\\|fw\\|fwd\\|forward\\)[[{(^0-9]*[])}]?[:;] *")
+      (elmo-buffer-replace "^[[].*:\\( .*\\)[]]$" "\\1"))
+    (elmo-buffer-replace " *[[{(][^()\n]*[]})] *$")
+    (elmo-buffer-replace "  +" " ")
+    (elmo-buffer-replace " $")
+    (elmo-buffer-replace "^ +")))
+
+(defun wl-score-simplify-string-fuzzy (string)
+  "Simplify a string fuzzily.
+See `wl-score-simplify-buffer-fuzzy' for details."
+  (elmo-set-work-buf
+   (let ((case-fold-search t))
+     (insert string)
+     (wl-score-simplify-buffer-fuzzy)
+     (buffer-string))))
+
+(defun wl-score-simplify-subject (subject)
+  (elmo-set-work-buf
+   (let ((case-fold-search t))
+     (insert subject)
+     (cond
+      ((listp wl-score-simplify-fuzzy-regexp)
+       (mapcar 'elmo-buffer-replace
+	       wl-score-simplify-fuzzy-regexp))
+      (wl-score-simplify-fuzzy-regexp
+       (elmo-buffer-replace
+	wl-score-simplify-fuzzy-regexp)))
+     (elmo-buffer-replace
+      "^[ \t]*\\(re\\|was\\|fw\\|fwd\\|forward\\)[:;][ \t]*")
+     (buffer-string))))
+
+;;
+
+(defun wl-score-overview-entity-get-lines (entity)
+  (let ((lines
+	 (elmo-msgdb-overview-entity-get-extra-field entity "lines")))
+    (and lines
+	 (string-to-int lines))))
+
+(defun wl-score-overview-entity-get-xref (entity)
+  (or (elmo-msgdb-overview-entity-get-extra-field entity "xref")
+      ""))
+
+(defun wl-score-overview-entity-get-extra (entity header &optional decode)
+  (let ((extra (elmo-msgdb-overview-entity-get-extra-field entity header)))
+    (if (and extra decode)
+	(eword-decode-string
+	 (decode-mime-charset-string extra elmo-mime-charset))
+      (or extra ""))))
+
+(defun wl-string> (s1 s2)
+  (not (or (string< s1 s2)
+	   (string= s1 s2))))
+
+(defmacro wl-score-ov-entity-get-by-index (entity index)
+  (` (aref (cdr (, entity)) (, index))))
+
+(defsubst wl-score-ov-entity-get (entity index &optional extra decode)
+  (let ((str (cond ((integerp index)
+		    (wl-score-ov-entity-get-by-index entity index))
+		   (extra
+		    (funcall index entity extra decode))
+		   (t
+		    (funcall index entity)))))
+    (if (and decode (not extra))
+	(decode-mime-charset-string str elmo-mime-charset)
+      str)))
+
+(defun wl-score-string-index< (a1 a2)
+  (string-lessp (wl-score-ov-entity-get-by-index (car a1) wl-score-index)
+ 		(wl-score-ov-entity-get-by-index (car a2) wl-score-index)))
+
+(defun wl-score-string-func< (a1 a2)
+  (string-lessp (funcall wl-score-index (car a1))
+		(funcall wl-score-index (car a2))))
+
+(defun wl-score-string-sort (messages index)
+  (let ((func (cond ((integerp index)
+		     'wl-score-string-index<)
+		    (t
+		     'wl-score-string-func<))))
+    (sort messages func)))
+
+(defsubst wl-score-get (symbol &optional alist)
+  ;; Get SYMBOL's definition in ALIST.
+  (cdr (assoc symbol
+	      (or alist
+		  wl-score-alist))))
+
+(defun wl-score-set (symbol value &optional alist warn)
+  ;; Set SYMBOL to VALUE in ALIST.
+  (let* ((alist (or alist wl-score-alist))
+	 (entry (assoc symbol alist)))
+    (cond ((wl-score-get 'read-only alist)
+	   ;; This is a read-only score file, so we do nothing.
+	   (when warn
+	     (message "Note: read-only score file; entry discarded")))
+	  (entry
+	   (setcdr entry value))
+	  ((null alist)
+	   (error "Empty alist"))
+	  (t
+	   (setcdr alist
+		   (cons (cons symbol value) (cdr alist)))))))
+
+(defun wl-score-cache-clean ()
+  (interactive)
+  (setq wl-score-cache nil))
+
+(defun wl-score-load-score-alist (file)
+  "Read score FILE."
+  (let (alist)
+    (if (not (file-readable-p file))
+	(setq wl-score-alist nil)
+      (with-temp-buffer
+	(wl-as-mime-charset wl-score-mode-mime-charset
+	  (insert-file-contents file))
+	(goto-char (point-min))
+	;; Only do the loading if the score file isn't empty.
+	(when (save-excursion (re-search-forward "[()0-9a-zA-Z]" nil t))
+	  (setq alist
+		(condition-case ()
+		    (read (current-buffer))
+		  (error "Problem with score file %s" file))))
+	(cond
+	 ((and alist
+	       (atom alist))
+	  (error "Invalid syntax with score file %s" file))
+	 (t
+	  (setq wl-score-alist alist)))))))
+
+(defun wl-score-save ()
+  ;; Save all score information.
+  (let ((cache wl-score-cache)
+	entry score file dir)
+    (with-temp-buffer
+      (setq wl-score-alist nil)
+      (while cache
+	(setq entry (pop cache)
+	      file (car entry)
+	      score (cdr entry))
+	(unless (or (not (equal (wl-score-get 'touched score) '(t)))
+		    (wl-score-get 'read-only score)
+		    (and (file-exists-p file)
+			 (not (file-writable-p file))))
+	  (setq score (setcdr entry (wl-delete-alist 'touched score)))
+	  (erase-buffer)
+	  (let (emacs-lisp-mode-hook
+		(lisp-mode-syntax-table wl-score-mode-syntax-table))
+	    (pp score (current-buffer)))
+	  (setq dir (file-name-directory file))
+	  (if (file-directory-p dir)
+	      (); ok.
+	    (if (file-exists-p dir)
+		(error "File %s already exists" dir)
+	      (elmo-make-directory dir)))
+	  ;; If the score file is empty, we delete it.
+	  (if (zerop (buffer-size))
+	      (when (file-exists-p file) ; added by teranisi.
+		(delete-file file))
+	    ;; There are scores, so we write the file.
+	    (when (file-writable-p file)
+	      (wl-as-mime-charset wl-score-mode-mime-charset
+		(write-region (point-min) (point-max)
+			      file nil 'no-msg)))))))))
+
+(defun wl-score-remove-from-cache (file)
+  (setq wl-score-cache
+	(delq (assoc file wl-score-cache) wl-score-cache)))
+
+(defun wl-score-load-file (file)
+  (let* ((file (expand-file-name
+		(or (and (string-match
+			  (concat "^" (regexp-quote
+				       (expand-file-name
+					wl-score-files-dir)))
+			  (expand-file-name file))
+			 file)
+		    (expand-file-name
+		     file
+		     (file-name-as-directory wl-score-files-dir)))))
+	 (cached (assoc file wl-score-cache))
+	 alist)
+    (if cached
+	;; The score file was already loaded.
+	(setq alist (cdr cached))
+      ;; We load the score file.
+      (setq wl-score-alist nil)
+      (setq alist (wl-score-load-score-alist file))
+      (unless (assq 'touched alist)
+	(wl-push (list 'touched nil) alist))
+      (wl-push (cons file alist) wl-score-cache))
+    (let ((a alist))
+      (while a
+	;; Downcase all header names.
+	(cond
+	 ((stringp (caar a))
+	  (setcar (car a) (downcase (caar a)))))
+	(pop a)))
+    (setq wl-current-score-file file)
+    (setq wl-score-alist alist)))
+
+(defun wl-score-guess-like-gnus (folder)
+  (let* (score-list
+         (spec (elmo-folder-get-spec folder))
+         (method (symbol-name (car spec)))
+         (fld-name (car (cdr spec))))
+    (when (stringp fld-name)
+      (while (string-match "[\\/:,;*?\"<>|]" fld-name)
+        (setq fld-name (replace-match "." t nil fld-name)))
+      (setq score-list (list (concat method "@" fld-name ".SCORE")))
+      (while (string-match "[\\/.][^\\/.]*$" fld-name)
+        (setq fld-name (substring fld-name 0 (match-beginning 0)))
+        (wl-append score-list (list (concat method "@" fld-name
+                                            ".all.SCORE"))))
+      score-list)))
+
+(defun wl-score-get-score-files (score-alist folder)
+  (let ((files (wl-get-assoc-list-value
+		score-alist folder
+		(if (not wl-score-folder-alist-matchone) 'all-list)))
+        fl f)
+    (while (setq f (wl-pop files))
+      (wl-append
+       fl
+       (cond ((functionp f)
+	      (funcall f  folder))
+	     ((and (symbolp f) (eq f 'guess))
+              (wl-score-guess-like-gnus folder))
+	     (t
+	      (list f)))))
+    fl))
+
+(defun wl-score-get-score-alist (&optional folder)
+  (interactive)
+  (let* ((fld (or folder wl-summary-buffer-folder-name))
+	 (score-alist (reverse
+		       (wl-score-get-score-files wl-score-folder-alist fld)))
+	 alist scores)
+    (setq wl-current-score-file nil)
+    (unless (and wl-score-default-file
+		 (member wl-score-default-file score-alist))
+      (wl-push wl-score-default-file score-alist))
+    (while score-alist
+      (setq alist
+	    (cond ((stringp (car score-alist))	;; file
+		   (wl-score-load-file (car score-alist)))
+		  ((consp (car score-alist))	;; alist
+		   (car score-alist))
+		  ((boundp (car score-alist))	;; variable
+		   (symbol-value (car score-alist)))
+		  (t
+		   (error "Void variable: %s" (car score-alist)))))
+      (let ((mark (car (wl-score-get 'mark alist)))
+	    (expunge (car (wl-score-get 'expunge alist)))
+	    (mark-and-expunge (car (wl-score-get 'mark-and-expunge alist)))
+	    (temp (car (wl-score-get 'temp alist)))
+	    (important (car (wl-score-get 'important alist))))
+	(setq wl-summary-important-above
+	      (or important wl-summary-important-above))
+	(setq wl-summary-temp-above
+	      (or temp wl-summary-temp-above))
+	(setq wl-summary-mark-below
+	      (or mark mark-and-expunge wl-summary-mark-below))
+	(setq wl-summary-expunge-below
+	      (or expunge mark-and-expunge wl-summary-expunge-below)))
+      (wl-append scores (list alist))
+      (setq score-alist (cdr score-alist)))
+    scores))
+
+(defun wl-score-headers (scores &optional msgdb force-msgs not-add)
+  (let* ((elmo-mime-charset wl-summary-buffer-mime-charset)
+	 (now (wl-day-number (current-time-string)))
+	 (expire (and wl-score-expiry-days
+		      (- now wl-score-expiry-days)))
+	 (overview (elmo-msgdb-get-overview
+		    (or msgdb wl-summary-buffer-msgdb)))
+	 (mark-alist (elmo-msgdb-get-mark-alist
+		      (or msgdb wl-summary-buffer-msgdb)))
+	 (wl-score-stop-add-entry not-add)
+	 entries
+	 news new num entry ov header)
+    (setq wl-scores-messages nil)
+    (message "Scoring...")
+
+    ;; Create messages, an alist of the form `(OVERVIEW . SCORE)'.
+    (while (setq ov (pop overview))
+      (when (and (not (assq
+		       (setq num
+			     (elmo-msgdb-overview-entity-get-number ov))
+		       wl-summary-scored))
+		 (or (memq num force-msgs)
+		     (member (cadr (assq num mark-alist))
+			     wl-summary-score-marks)))
+	(setq wl-scores-messages
+	      (cons (cons ov (or wl-summary-default-score 0))
+		    wl-scores-messages))))
+
+    (save-excursion
+      (setq news scores)
+      (while news
+	(setq scores news
+	      news nil)
+	;; Run each header through the score process.
+	(setq entries wl-score-header-index)
+	(while entries
+	  (setq entry (pop entries)
+		header (car entry))
+	  (if (> (length wl-scores-messages) 500)
+	      (message "Scoring...\"%s\"" header))
+	  (when (< 0 (apply 'max (mapcar
+				  (lambda (score)
+				    (length (wl-score-get header score)))
+				  scores)))
+	    ;; Call the scoring function for this type of "header".
+	    (when (setq new (funcall (nth 1 entry) scores header now expire))
+	      (wl-push new news))))))
+
+    ;; Add messages to `wl-summary-scored'.
+    (let (entry num score)
+      (while wl-scores-messages
+	(when (or (/= wl-summary-default-score
+		      (cdar wl-scores-messages)))
+	  (setq num (elmo-msgdb-overview-entity-get-number
+		     (caar wl-scores-messages))
+		score (cdar wl-scores-messages))
+	  (if (setq entry (assq num wl-summary-scored))
+	      (setcdr entry (+ score (cdr entry)))
+	    (wl-push (cons num score)
+		  wl-summary-scored)))
+	(setq wl-scores-messages (cdr wl-scores-messages))))
+    (message "Scoring...done")
+    ;; Remove buffers.
+    (mapcar '(lambda (x) (elmo-kill-buffer x))
+    	    wl-score-header-buffer-list)
+    (setq wl-score-header-buffer-list nil)))
+
+(defun wl-score-integer (scores header now expire)
+  (let ((wl-score-index (nth 2 (assoc header wl-score-header-index)))
+	entries alist)
+
+    ;; Find matches.
+    (while scores
+      (setq alist (car scores)
+	    scores (cdr scores)
+	    entries (assoc header alist))
+      (while (cdr entries)		;First entry is the header index.
+	(let* ((rest (cdr entries))
+	       (kill (car rest))
+	       (match (nth 0 kill))
+	       (type (or (nth 3 kill) '>))
+	       (score (or (nth 1 kill) wl-score-interactive-default-score))
+	       (date (nth 2 kill))
+	       (found nil)
+	       (match-func (if (memq type '(> < <= >= =))
+			       type
+			     (error "Invalid match type: %s" type)))
+	       (messages wl-scores-messages))
+	  (while messages
+	    (when (funcall match-func
+			   (or (wl-score-ov-entity-get
+				(caar messages) wl-score-index)
+			       0)
+			   match)
+	      (setq found t)
+	      (setcdr (car messages) (+ score (cdar messages))))
+	    (setq messages (cdr messages)))
+	  ;; Update expire date
+	  (cond ((null date))		;Permanent entry.
+		((and found wl-score-update-entry-dates) ;Match, update date.
+		 (wl-score-set 'touched '(t) alist)
+		 (setcar (nthcdr 2 kill) now))
+		((and expire (< date expire)) ;Old entry, remove.
+		 (wl-score-set 'touched '(t) alist)
+		 (setcdr entries (cdr rest))
+		 (setq rest entries)))
+	  (setq entries rest)))))
+  nil)
+
+(defun wl-score-date (scores header now expire)
+  (let ((wl-score-index (nth 2 (assoc header wl-score-header-index)))
+	entries alist match match-func message)
+    ;; Find matches.
+    (while scores
+      (setq alist (car scores)
+	    scores (cdr scores)
+	    entries (assoc header alist))
+      (while (cdr entries)		;First entry is the header index.
+	(let* ((rest (cdr entries))
+	       (kill (car rest))
+	       (type (or (nth 3 kill) 'before))
+	       (score (or (nth 1 kill) wl-score-interactive-default-score))
+	       (date (nth 2 kill))
+	       (found nil)
+	       (messages wl-scores-messages)
+	       l)
+	  (cond
+	   ((eq type 'after)
+	    (setq match-func 'string<
+		  match (wl-date-iso8601 (nth 0 kill))))
+	   ((eq type 'before)
+	    (setq match-func 'wl-string>
+		  match (wl-date-iso8601 (nth 0 kill))))
+	   ((eq type 'at)
+	    (setq match-func 'string=
+		  match (wl-date-iso8601 (nth 0 kill))))
+	   ((eq type 'regexp)
+	    (setq match-func 'string-match
+		  match (nth 0 kill)))
+	   (t (error "Invalid match type: %s" type)))
+	  (while (setq message (pop messages))
+	    (when (and
+		   (setq l (wl-score-ov-entity-get
+			    (car message) wl-score-index))
+		   (funcall match-func match (wl-date-iso8601 l)))
+	      (setq found t)
+	      (setcdr message (+ score (cdr message)))))
+	  ;; Update expire date
+	  (cond ((null date))		;Permanent entry.
+		((and found wl-score-update-entry-dates) ;Match, update date.
+		 (wl-score-set 'touched '(t) alist)
+		 (setcar (nthcdr 2 kill) now))
+		((and expire (< date expire)) ;Old entry, remove.
+		 (wl-score-set 'touched '(t) alist)
+		 (setcdr entries (cdr rest))
+		 (setq rest entries)))
+	  (setq entries rest)))))
+  nil)
+
+(defsubst wl-score-lines ()
+  (save-excursion
+    (beginning-of-line)
+    (count-lines 1 (point))))
+
+(defun wl-score-extra (scores header now expire)
+  (let ((score-list scores)
+	entries alist extra extras)
+    (while score-list
+      (setq alist (pop score-list)
+	    entries (assoc header alist))
+      (while (cdr entries)
+	(setq extra (nth 4 (cadr entries)))
+	(unless (member extra extras)
+	  (wl-push extra extras))
+	(setq entries (cdr entries))))
+    (while extras
+      (wl-score-string scores header now expire (car extras))
+      (setq extras (cdr extras)))
+    nil))
+
+(defmacro wl-score-put-alike ()
+  (` (elmo-set-hash-val (format "#%d" (wl-score-lines))
+			alike
+			wl-score-alike-hashtb)))
+;;(push (cons (wl-score-lines) alike) wl-score-alike-alist)
+;;(put-text-property (1- (point)) (point) 'messages alike)
+
+(defmacro wl-score-get-alike ()
+  (` (elmo-get-hash-val (format "#%d" (wl-score-lines))
+			wl-score-alike-hashtb)))
+;;(cdr (assq (wl-score-lines) wl-score-alike-alist))
+;;(get-text-property (point) 'messages)))
+
+(defun wl-score-insert-header (header messages &optional extra-header)
+  (let ((mime-decode (nth 3 (assoc header wl-score-header-index)))
+	(buffer-name (concat "*Score-Headers-" header
+			     (if extra-header
+				 (concat "-" extra-header)
+			       "")
+			     "*"))
+	buf)
+    (if (setq buf (get-buffer buffer-name))
+	(set-buffer buf)
+      (set-buffer (setq buf (get-buffer-create buffer-name)))
+      (wl-append wl-score-header-buffer-list (list buf))
+      (buffer-disable-undo (current-buffer))
+      (make-local-variable 'wl-score-alike-hashtb)
+      (setq wl-score-alike-hashtb (elmo-make-hash (* (length messages) 2)))
+      (when mime-decode
+	(elmo-set-buffer-multibyte default-enable-multibyte-characters))
+      (let (art last this alike)
+	(while (setq art (pop messages))
+	  (setq this (wl-score-ov-entity-get (car art)
+					     wl-score-index
+					     extra-header))
+	  (and this (setq this (std11-unfold-string this)))
+	  (if (equal last this)
+	      ;; O(N*H) cons-cells used here, where H is the number of
+	      ;; headers.
+	      (wl-push art alike)
+	    (when last
+	      (wl-score-put-alike)
+	      (insert last ?\n))
+	    (setq alike (list art)
+		  last this)))
+	(when last
+	  (wl-score-put-alike)
+	  (insert last ?\n))
+	(when mime-decode
+	  (decode-mime-charset-region (point-min) (point-max)
+				      elmo-mime-charset)
+	  (when (eq mime-decode 'mime)
+	    (eword-decode-region (point-min) (point-max))))))))
+
+(defun wl-score-string (scores header now expire &optional extra-header)
+  ;; Insert the unique message headers in the buffer.
+  (let ((wl-score-index (nth 2 (assoc header wl-score-header-index)))
+	entries alist messages
+	fuzzies kill)
+    (when (integerp wl-score-index)
+      (setq wl-scores-messages
+	    (wl-score-string-sort wl-scores-messages wl-score-index)))
+    (setq messages wl-scores-messages)
+
+    (wl-score-insert-header header messages extra-header)
+
+    ;; Go through all the score alists and pick out the entries
+    ;; for this header.
+    (while scores
+      (setq alist (pop scores)
+	    entries (assoc header alist))
+      (while (cdr entries)		;First entry is the header index.
+	(let* ((kill (cadr entries))
+	       (type (or (nth 3 kill) 's))
+	       (score (or (nth 1 kill) wl-score-interactive-default-score))
+	       (date (nth 2 kill))
+	       (extra (nth 4 kill))	; non-standard header; string.
+	       (mt (aref (symbol-name type) 0))
+	       (case-fold-search (not (memq mt '(?R ?S ?E ?F))))
+	       (dmt (downcase mt))
+	       (match (nth 0 kill))
+	       (search-func
+		(cond ((= dmt ?r) 're-search-forward)
+		      ((memq dmt '(?e ?s ?f)) 'search-forward)
+		      ((= dmt ?w) nil)
+		      (t (error "Invalid match type: %s" type))))
+	       arts art found)
+	  (if (and extra-header
+		   (or (not extra)
+		       (not (string= extra-header extra))))
+	      (setq entries (cdr entries))
+	    (cond
+	     ;; Fuzzy matches.  We save these for later.
+	     ((= dmt ?f)
+	      (wl-push (cons entries alist) fuzzies)
+	      (setq entries (cdr entries)))
+	     (t
+	      ;; Regexp, substring and exact matching.
+	      (goto-char (point-min))
+	      (when (and (not (= dmt ?e))
+			 (string= match ""))
+		(setq match "\n"))
+	      (while (and (not (eobp))
+			  (funcall search-func match nil t))
+		(when (or (not (= dmt ?e))
+			  ;; Is it really exact?
+			  (and (eolp)
+			       (= (save-excursion (forward-line 0) (point))
+				  (match-beginning 0))))
+		  ;;(end-of-line)
+		  (setq found (setq arts (wl-score-get-alike)))
+		  ;; Found a match, update scores.
+		  (while (setq art (pop arts))
+		    (setcdr art (+ score (cdr art)))))
+		(forward-line 1))
+	      ;; Update expiry date
+	      (cond
+	       ;; Permanent entry.
+	       ((null date)
+		(setq entries (cdr entries)))
+	       ;; We have a match, so we update the date.
+	       ((and found wl-score-update-entry-dates)
+		(wl-score-set 'touched '(t) alist)
+		(setcar (nthcdr 2 kill) now)
+		(setq entries (cdr entries)))
+	       ;; This entry has expired, so we remove it.
+	       ((and expire (< date expire))
+		(wl-score-set 'touched '(t) alist)
+		(setcdr entries (cddr entries)))
+	       ;; No match; go to next entry.
+	       (t
+		(setq entries (cdr entries))))))))))
+
+    ;; Find fuzzy matches.
+    (when fuzzies
+      ;; Simplify the entire buffer for easy matching.
+      (wl-score-simplify-buffer-fuzzy)
+      (while (setq kill (cadaar fuzzies))
+	(let* ((match (nth 0 kill))
+	       (type (nth 3 kill))
+	       (score (or (nth 1 kill) wl-score-interactive-default-score))
+	       (date (nth 2 kill))
+	       (mt (aref (symbol-name type) 0))
+	       (case-fold-search (not (= mt ?F)))
+	       arts art found)
+	  (goto-char (point-min))
+	  (while (and (not (eobp))
+		      (search-forward match nil t))
+	    (when (and (eolp)
+		       (= (save-excursion (forward-line 0) (point))
+			  (match-beginning 0)))
+	      (setq found (setq arts (wl-score-get-alike)))
+	      (while (setq art (pop arts))
+		(setcdr art (+ score (cdr art)))))
+	    (forward-line 1))
+	  ;; Update expiry date
+	  (cond
+	   ;; Permanent.
+	   ((null date))
+	   ;; Match, update date.
+	   ((and found wl-score-update-entry-dates)
+	    (wl-score-set 'touched '(t) (cdar fuzzies))
+	    (setcar (nthcdr 2 kill) now))
+	   ;; Old entry, remove.
+	   ((and expire (< date expire))
+	    (wl-score-set 'touched '(t) (cdar fuzzies))
+	    (setcdr (caar fuzzies) (cddaar fuzzies))))
+	  (setq fuzzies (cdr fuzzies)))))
+    nil))
+
+(defun wl-score-thread (scores header now expire)
+  (wl-score-followup scores header now expire t))
+
+(defun wl-score-followup (scores header now expire &optional thread)
+  ;; Insert the unique message headers in the buffer.
+  (let ((wl-score-index (nth 2 (assoc header wl-score-header-index)))
+	(all-scores scores)
+	entries alist messages
+	new news)
+    (when (integerp wl-score-index)
+      (setq wl-scores-messages
+	    (wl-score-string-sort wl-scores-messages wl-score-index)))
+    (setq messages wl-scores-messages)
+
+    (wl-score-insert-header (if thread "references" "from") messages)
+
+    ;; Find matches.
+    (while scores
+      (setq alist (car scores)
+	    scores (cdr scores)
+	    entries (assoc header alist))
+      (while (cdr entries)		;First entry is the header index.
+	(let* ((rest (cdr entries))
+	       (kill (car rest))
+	       (match (nth 0 kill))
+	       (type (or (nth 3 kill) 's))
+	       (score (or (nth 1 kill) wl-score-interactive-default-score))
+	       (date (nth 2 kill))
+	       (found nil)
+	       (mt (aref (symbol-name type) 0))
+	       (case-fold-search (not (memq mt '(?R ?S ?E ?F))))
+	       (dmt (downcase mt))
+	       (search-func
+		(cond ((= dmt ?r) 're-search-forward)
+		      ((memq dmt '(?e ?s ?f)) 'search-forward)
+		      (t (error "Invalid match type: %s" type))))
+	       arts art day)
+	  (goto-char (point-min))
+	  (while (funcall search-func match nil t)
+	    (when (or (not (= dmt ?e))
+		      (and (eolp)
+			   (= (progn (beginning-of-line) (point))
+			      (match-beginning 0))))
+	      ;;(end-of-line)
+	      (setq found (setq arts (wl-score-get-alike)))
+	      ;; Found a match, update scores.
+	      (while (setq art (pop arts))
+		(setq day nil)
+		(when (or (not wl-score-make-followup)
+			  (and wl-score-update-entry-dates
+			       expire
+			       (< expire
+				  (setq day
+					(wl-day-number
+					 (elmo-msgdb-overview-entity-get-date
+					  (car art)))))))
+		  (when (setq new (wl-score-add-followups
+				   (car art) score all-scores alist thread
+				   day))
+		    (when thread
+		      (unless wl-score-stop-add-entry
+			(wl-append rest (list new)))
+		      (setcdr art (+ score (cdr art))))
+		    (wl-push new news))))
+	      (forward-line 1)))
+	  ;; Update expire date
+	  (cond ((null date))		;Permanent entry.
+		((and found wl-score-update-entry-dates) ;Match, update date.
+		 (wl-score-set 'touched '(t) alist)
+		 (setcar (nthcdr 2 kill) now))
+		((and expire (< date expire)) ;Old entry, remove.
+		 (wl-score-set 'touched '(t) alist)
+		 (setcdr entries (cdr rest))
+		 (setq rest entries)))
+	  (setq entries rest))))
+    (when (and news (not thread))
+      (list (cons "references" news)))))
+
+(defun wl-score-add-followups (header score scores alist &optional thread day)
+  (let* ((id (car header))
+	 (scores (car scores))
+	 entry dont)
+    (when id
+      ;; Don't enter a score if there already is one.
+      (while (setq entry (pop scores))
+	(and (member (car entry) '("thread" "references"))
+	     (memq (nth 3 (cadr entry)) '(s nil))
+	     (assoc id entry)
+	     (setq dont t)))
+      (unless dont
+	(let ((entry (list id score
+			   (or day (wl-day-number (current-time-string))) 's)))
+	  (unless (or thread wl-score-stop-add-entry)
+	    (wl-score-update-score-entry "references" entry alist))
+	  (wl-score-set 'touched '(t) alist)
+	  entry)))))
+
+(defun wl-score-flush-cache ()
+  "Flush the cache of score files."
+  (interactive)
+  (wl-score-save)
+  (setq wl-score-cache nil
+	wl-score-alist nil)
+  (message "The score cache is now flushed"))
+
+(defun wl-score-set-mark-below (score)
+  "Automatically mark messages with score below SCORE as read."
+  (interactive
+   (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg))
+	     (string-to-int (read-string "Mark below: ")))))
+  (setq score (or score wl-summary-default-score 0))
+  (wl-score-set 'mark (list score))
+  (wl-score-set 'touched '(t))
+  (setq wl-summary-mark-below score)
+  (wl-summary-score-update-all-lines t))
+
+(defun wl-score-set-expunge-below (score)
+  "Automatically expunge messages with score below SCORE."
+  (interactive
+   (list (or (and current-prefix-arg (prefix-numeric-value current-prefix-arg))
+	     (string-to-int (read-string "Expunge below: ")))))
+  (setq score (or score wl-summary-default-score 0))
+  (wl-score-set 'expunge (list score))
+  (wl-score-set 'touched '(t)))
+
+(defun wl-score-change-score-file (file)
+  "Change current score alist."
+  (interactive
+   (list (read-file-name "Change to score file: " wl-score-files-dir)))
+  (wl-score-load-file file))
+
+(defun wl-score-default (level)
+  (if level (prefix-numeric-value level)
+    wl-score-interactive-default-score))
+
+(defun wl-summary-lower-score (&optional score)
+  (interactive "P")
+  (wl-summary-increase-score score t))
+
+(defun wl-summary-increase-score (&optional score lower)
+  (interactive "P")
+  (if (wl-summary-message-number)
+  (let* ((rscore (if lower
+		     (- (wl-score-default score))
+		   (wl-score-default score)))
+	 (increase (> rscore 0))
+	 lscore entry list match type)
+    (setq entry (wl-score-get-header-entry nil rscore))
+    (setq list (nth 1 entry))
+    (setq match (car list))
+    (setq type (nth 3 list))
+    (cond ((memq type '(r R s S nil))
+	   (when (and match (string= (car entry) "subject"))
+	     (setq match (wl-score-simplify-subject match))))
+	  ((memq type '(f F))
+	   (setq match (wl-score-simplify-string-fuzzy match))))
+    (setq match (read-string
+		 (format "Match on %s, %s: "
+			 (car entry)
+			 (if increase "raise" "lower"))
+		 (if (numberp match)
+		     (int-to-string match)
+		   match)))
+    ;; transform from string to int.
+    (when (eq (nth 1 (assoc (car entry) wl-score-header-index))
+	      'wl-score-integer)
+      (setq match (string-to-int match)))
+    ;; set score
+    (if score
+	(setq lscore rscore)
+      (setq lscore (nth 1 list))
+      (setq lscore
+	    (abs (if lscore
+		     lscore
+		   wl-score-interactive-default-score)))
+      (setq lscore (if lower (- lscore) lscore)))
+    (setcar (cdr list)
+	    (if (eq lscore wl-score-interactive-default-score)
+		nil
+	      lscore))
+    ;; update score file
+    (setcar list match)
+    (unless (eq (nth 2 list) 'now)
+      (let ((alist (if wl-current-score-file
+		       (cdr (assoc wl-current-score-file wl-score-cache))
+		     wl-score-alist)))
+	(wl-score-update-score-entry (car entry) list alist)
+	(wl-score-set 'touched '(t) alist)))
+    (wl-summary-score-effect (car entry) list (eq (nth 2 list) 'now)))))
+
+(defun wl-score-get-latest-msgs ()
+  (let* ((now (wl-day-number (current-time-string)))
+	 (expire (and wl-score-expiry-days
+		      (- now wl-score-expiry-days)))
+	 (roverview (reverse (elmo-msgdb-get-overview
+			      wl-summary-buffer-msgdb)))
+	 msgs)
+    (if (not expire)
+	(mapcar 'car (elmo-msgdb-get-number-alist
+		      wl-summary-buffer-msgdb)) ;; all messages
+      (catch 'break
+	(while roverview
+	  (if (< (wl-day-number
+		  (elmo-msgdb-overview-entity-get-date (car roverview)))
+		 expire)
+	      (throw 'break t))
+	  (wl-push (elmo-msgdb-overview-entity-get-number (car roverview))
+		msgs)
+	  (setq roverview (cdr roverview))))
+      msgs)))
+
+(defsubst wl-score-get-overview ()
+  (let ((num (wl-summary-message-number)))
+    (if num
+	(assoc (cdr (assq num (elmo-msgdb-get-number-alist
+			       wl-summary-buffer-msgdb)))
+	       (elmo-msgdb-get-overview wl-summary-buffer-msgdb)))))
+
+(defun wl-score-get-header (header &optional extra)
+  (let ((index (nth 2 (assoc header wl-score-header-index)))
+	(decode (nth 3 (assoc header wl-score-header-index))))
+    (if index
+	(wl-score-ov-entity-get (wl-score-get-overview) index extra decode))))
+
+(defun wl-score-kill-help-buffer ()
+  (when (get-buffer "*Score Help*")
+    (kill-buffer "*Score Help*")
+    (when wl-score-help-winconf
+      (set-window-configuration wl-score-help-winconf))))
+
+(defun wl-score-insert-help (string alist idx)
+  (setq wl-score-help-winconf (current-window-configuration))
+  (let ((cur-win (selected-window))
+	mes-win)
+    (save-excursion
+      (set-buffer (get-buffer-create "*Score Help*"))
+      (buffer-disable-undo (current-buffer))
+      (delete-windows-on (current-buffer))
+      (erase-buffer)
+      (insert string ":\n\n")
+      (let ((max -1)
+	    (list alist)
+	    (i 0)
+	    n width pad format)
+	;; find the longest string to display
+	(while list
+	  (setq n (length (nth idx (car list))))
+	  (unless (> max n)
+	    (setq max n))
+	  (setq list (cdr list)))
+	(setq max (+ max 4))		; %c, `:', SPACE, a SPACE at end
+	(setq n (/ (1- (window-width)) max)) ; items per line
+	(setq width (/ (1- (window-width)) n)) ; width of each item
+	;; insert `n' items, each in a field of width `width'
+	(while alist
+	  (unless (< i n)
+	    (setq i 0)
+	    (delete-char -1)		; the `\n' takes a char
+	    (insert "\n"))
+	  (setq pad (- width 3))
+	  (setq format (concat "%c: %-" (int-to-string pad) "s"))
+	  (insert (format format (caar alist) (nth idx (car alist))))
+	  (setq alist (cdr alist))
+	  (setq i (1+ i))
+	  (set-buffer-modified-p nil)))
+      (when (and (get-buffer wl-message-buf-name)
+		 (setq mes-win (get-buffer-window
+				(get-buffer wl-message-buf-name))))
+	(select-window mes-win)
+	(unless (eq (next-window) cur-win)
+	  (delete-window (next-window))))
+      (split-window)
+      (pop-to-buffer "*Score Help*")
+      (let ((window-min-height 1))
+	(shrink-window-if-larger-than-buffer))
+      (select-window cur-win))))
+
+(defun wl-score-get-header-entry (&optional match-func increase)
+  (let (hchar tchar pchar
+	header score perm type extra hentry entry)
+    (unwind-protect
+	(progn
+	  ;; read the header to score.
+	  (while (not hchar)
+	    (message "%s header (%s?): "
+		     (if increase
+			 (if (> increase 0) "Increase" "Lower")
+		       "Set")
+		     (mapconcat (lambda (s) (char-to-string (car s)))
+				wl-score-edit-header-char ""))
+	    (setq hchar (read-char))
+	    (when (or (= hchar ??) (= hchar ?\C-h))
+	      (setq hchar nil)
+	      (wl-score-insert-help "Match on header"
+				    wl-score-edit-header-char 1)))
+	  (wl-score-kill-help-buffer)
+	  (unless (setq hentry (assq (downcase hchar)
+				     wl-score-edit-header-char))
+	    (error "Invalid header type"))
+
+	  (message "")
+	  (setq entry (assoc (setq header (nth 1 hentry))
+			     wl-score-header-default-entry))
+	  (setq score (nth 1 entry)
+		perm (nth 2 entry)
+		type (nth 3 entry))
+
+	  ;; read extra header.
+	  (when (equal header "extra")
+	    (setq extra
+		  (completing-read
+		   "Set extra header: "
+		   (mapcar 'list
+			   elmo-msgdb-extra-fields))))
+
+	  ;; read the type.
+	  (unless type
+	    (let ((valid-types
+		   (delq nil
+			 (mapcar (lambda (s)
+				   (if (eq (nth 3 hentry)
+					   (nth 3 s))
+				       s nil))
+				 (copy-sequence
+				  wl-score-edit-type-char)))))
+	      (while (not tchar)
+		(message "Set header '%s' with match type (%s?): "
+			 header
+			 (mapconcat (lambda (s) (char-to-string (car s)))
+				    valid-types ""))
+		(setq tchar (read-char))
+		(when (or (= tchar ??) (= tchar ?\C-h))
+		  (setq tchar nil)
+		  (wl-score-insert-help "Match type" valid-types 2)))
+	      (wl-score-kill-help-buffer)
+	      (unless (setq type (nth 1 (assq (downcase tchar) valid-types)))
+		(error "Invalid match type"))
+	      (message "")))
+
+	  ;; read the permanence.
+	  (unless perm
+	    (while (not pchar)
+	      (message "Set permanence (%s?): "
+		       (mapconcat (lambda (s) (char-to-string (car s)))
+				  wl-score-edit-perm-char ""))
+	      (setq pchar (read-char))
+	      (when (or (= pchar ??) (= pchar ?\C-h))
+		(setq pchar nil)
+		(wl-score-insert-help "Match permanence"
+				      wl-score-edit-perm-char 2)))
+	    (wl-score-kill-help-buffer)
+	    (unless (setq perm (nth 1 (assq (downcase pchar)
+					    wl-score-edit-perm-char)))
+	      (error "Invalid match duration"))
+	    (message ""))
+
+	  ;; read the score.
+	  (unless (or score increase)
+	    (setq score (string-to-int (read-string "Set score: "))))
+	  (message "")))
+
+    (let* ((match-header (or (nth 2 hentry) header))
+	   (match (if match-func
+		      (funcall match-func match-header extra)
+		    (wl-score-get-header match-header extra)))
+	   (match (cond ((memq type '(r R regexp Regexp))
+			 (regexp-quote match))
+			((eq (nth 1 (assoc (car entry) wl-score-header-index))
+			     'wl-score-integer)
+			 match)
+			(t
+			 (or match ""))))
+	   (perm (cond ((eq perm 'perm)
+			nil)
+		       ((eq perm 'temp)
+			(wl-day-number (current-time-string)))
+		       ((eq perm 'now)
+			perm)))
+	   (new (list match score perm type extra)))
+      (list header new))))
+
+(defun wl-score-update-score-entries (header entries &optional alist)
+  (while entries
+    (wl-score-update-score-entry header (car entries) alist)
+    (setq entries (cdr entries)))
+  (wl-score-set 'touched '(t) alist))
+
+(defun wl-score-update-score-entry (header new &optional alist)
+  (let ((old (wl-score-get header alist))
+	(match (nth 0 new))
+	elem)
+    (if (and old
+	     (setq elem (assoc match old))
+	     (eq (nth 3 elem) (nth 3 new))
+	     (or (and (numberp (nth 2 elem)) (numberp (nth 2 new)))
+		 (and (not (nth 2 elem)) (not (nth 2 new)))))
+	(setcar (cdr elem) (+ (or (nth 1 elem)
+				  wl-score-interactive-default-score)
+			      (or (nth 1 new)
+				  wl-score-interactive-default-score)))
+      (wl-score-set header (if old (cons new old) (list new)) alist t))))
+
+;; functions for summary mode
+
+(defun wl-summary-score-effect (header entry &optional now)
+  (let ((scores (list (list (list header entry)))))
+    (setq wl-summary-scored nil)
+    (cond ((string= header "followup")
+	   (if wl-score-auto-make-followup-entry
+	       (let ((wl-score-make-followup t))
+		 (wl-score-headers scores nil (wl-score-get-latest-msgs)))
+	     (wl-score-headers scores nil
+			       (if (eq wl-summary-buffer-view 'thread)
+				   (wl-thread-get-children-msgs
+				    (wl-summary-message-number))
+				 (list (wl-summary-message-number)))))
+	   (unless now
+	     (wl-score-update-score-entries
+	      "references"
+	      (cdr (assoc "references" (car scores))))))
+	  ((string= header "thread")
+	   (wl-score-headers scores nil
+			     (if (eq wl-summary-buffer-view 'thread)
+				 (wl-thread-get-children-msgs
+				  (wl-summary-message-number))
+			       (list (wl-summary-message-number))))
+	   (unless now
+	     (wl-score-update-score-entries header
+					    ;; remove parent
+					    (cdr (cdaar scores)))))
+	  (t
+	   (wl-score-headers scores nil
+			     (list (wl-summary-message-number)))))
+    (wl-summary-score-update-all-lines t)))
+
+(defun wl-summary-rescore-msgs (number-alist)
+  (mapcar
+   'car
+   (nthcdr 
+    (max (- (length number-alist)
+	    wl-summary-rescore-partial-threshold)
+	 0)
+    number-alist)))
+
+(defun wl-summary-rescore (&optional arg)
+  "Redo the entire scoring process in the current summary."
+  (interactive "P")
+  (let (number-alist expunged)
+    (wl-score-save)
+    (setq wl-score-cache nil)
+    (setq wl-summary-scored nil)
+    (setq number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+    (wl-summary-score-headers nil wl-summary-buffer-msgdb
+			      (unless arg
+				(wl-summary-rescore-msgs number-alist)))
+    (setq expunged (wl-summary-score-update-all-lines t))
+    (if expunged 
+	(message "%d message(s) are expunged by scoring." (length expunged)))
+    (set-buffer-modified-p nil)))
+
+;; optional argument force-msgs is added by teranisi.
+(defun wl-summary-score-headers (&optional folder msgdb force-msgs not-add)
+  "Do scoring if scoring is required."
+  (let ((scores (wl-score-get-score-alist
+		 (or folder wl-summary-buffer-folder-name))))
+    (when scores
+      (wl-score-headers scores msgdb force-msgs not-add))))
+
+(defun wl-summary-score-update-all-lines (&optional update)
+  (let* ((alist wl-summary-scored)
+	 (count (length alist))
+	 (folder wl-summary-buffer-folder-name)
+	 (i 0)
+	 (update-unread nil)
+	 num score dels visible score-mark mark-alist)
+    (save-excursion
+      (message "Updating score...")
+      (while alist
+	(setq num (caar alist)
+	      score (cdar alist))
+	(when wl-score-debug
+	  (message "Scored %d with %d" score num)
+	  (wl-push (list (elmo-string wl-summary-buffer-folder-name) num score)
+		wl-score-trace))
+	(setq score-mark (wl-summary-get-score-mark num))
+	(and (setq visible (wl-summary-jump-to-msg num))
+	     (wl-summary-set-score-mark score-mark))
+	(cond ((and wl-summary-expunge-below
+		    (< score wl-summary-expunge-below))
+	       (wl-push num dels))
+	      ((< score wl-summary-mark-below)
+	       (if visible
+		   (wl-summary-mark-as-read
+		    t nil nil nil (elmo-use-cache-p folder num));; opened
+		 (setq update-unread t)
+		 (wl-thread-msg-mark-as-read num)));; closed
+	      ((and wl-summary-important-above
+		    (> score wl-summary-important-above))
+	       (if (wl-thread-jump-to-msg num);; force open
+		   (wl-summary-mark-as-important num " ")))
+	      ((and wl-summary-temp-above
+		    (> score wl-summary-temp-above))
+	       (if visible
+		   (wl-summary-mark-line "*"))
+	       (setq wl-summary-buffer-target-mark-list
+		     (cons num wl-summary-buffer-target-mark-list))))
+	(setq i (1+ i))
+	(and (zerop (% i 10))
+	     (message "Updating score...%d%%" (/ (* i 100) count)))
+	(setq alist (cdr alist)))
+      (when dels
+;	(elmo-msgdb-delete-msgs wl-summary-buffer-folder-name
+;				dels wl-summary-buffer-msgdb t)
+	;; mark as read.
+	(setq mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	(mapcar (function (lambda (x)
+			    (setq mark-alist 
+				  (elmo-msgdb-mark-set mark-alist x nil))))
+		dels)
+	(elmo-mark-as-read wl-summary-buffer-folder-name
+			   dels wl-summary-buffer-msgdb)
+	(elmo-msgdb-set-mark-alist wl-summary-buffer-msgdb mark-alist)
+	(wl-summary-delete-messages-on-buffer dels))
+      (when (and update update-unread)
+	(let ((num-db (elmo-msgdb-get-number-alist
+		       wl-summary-buffer-msgdb))
+	      (mark-alist (elmo-msgdb-get-mark-alist
+			   wl-summary-buffer-msgdb)))
+	  ;; Update Folder mode
+	  (wl-folder-set-folder-updated wl-summary-buffer-folder-name
+					(list 0
+					      (wl-summary-count-unread 
+					       mark-alist)
+					      (length num-db)))
+	  (wl-summary-update-modeline)))
+      (message "Updating score...done.")
+      dels)))
+
+(defun wl-score-edit-done ()
+  (let ((bufnam (buffer-file-name (current-buffer)))
+	(winconf wl-prev-winconf))
+    (when winconf
+      (set-window-configuration winconf))
+    (wl-score-remove-from-cache bufnam)
+    (wl-score-load-file bufnam)))
+
+(defun wl-score-edit-current-scores (file)
+  "Edit the current score alist."
+  (interactive (list wl-current-score-file))
+  (if file
+      (wl-score-edit-file file)
+    (call-interactively 'wl-score-edit-file)))
+
+(defun wl-score-edit-file (file)
+  "Edit a score file."
+  (interactive
+   (list (read-file-name "Edit score file: " wl-score-files-dir)))
+  (when (wl-collect-summary)
+    (wl-score-save))
+  (let ((winconf (current-window-configuration))
+	(edit-buffer (wl-as-mime-charset wl-score-mode-mime-charset
+		       (find-file-noselect file)))
+	(sum-buf (current-buffer)))
+    (if (string-match (concat "^" wl-summary-buffer-name) (buffer-name))
+	(let ((cur-buf (current-buffer))
+	      (view-message-buffer (get-buffer wl-message-buf-name)))
+	  (when view-message-buffer
+	    (wl-select-buffer view-message-buffer)
+	    (delete-window)
+	    (select-window (get-buffer-window cur-buf)))
+	  (wl-select-buffer edit-buffer))
+      (switch-to-buffer edit-buffer))
+    (wl-score-mode)
+    (setq wl-score-edit-exit-func 'wl-score-edit-done)
+    (setq wl-score-edit-summary-buffer sum-buf)
+    (make-local-variable 'wl-prev-winconf)
+    (setq wl-prev-winconf winconf))
+  (message
+   (substitute-command-keys
+    "\\<wl-score-mode-map>\\[wl-score-edit-exit] to save edits")))
+
+;; score-mode
+
+(defvar wl-score-edit-summary-buffer nil)
+
+(defvar wl-score-mode-syntax-table
+  (let ((table (copy-syntax-table lisp-mode-syntax-table)))
+    (modify-syntax-entry ?| "w" table)
+    table)
+  "Syntax table used in score-mode buffers.")
+
+(defvar wl-score-mode-map nil)
+(defvar wl-score-mode-menu-spec
+  '("Score"
+    ["Exit" wl-score-edit-exit t]
+    ["Insert date" wl-score-edit-insert-date t]
+    ["Format" wl-score-pretty-print t]))
+
+(unless wl-score-mode-map
+  (setq wl-score-mode-map (copy-keymap emacs-lisp-mode-map))
+  (define-key wl-score-mode-map "\C-c\C-k" 'wl-score-edit-kill)
+  (define-key wl-score-mode-map "\C-c\C-c" 'wl-score-edit-exit)
+  (define-key wl-score-mode-map "\C-c\C-p" 'wl-score-pretty-print)
+  (define-key wl-score-mode-map "\C-c\C-d" 'wl-score-edit-insert-date)
+  (define-key wl-score-mode-map "\C-c\C-s" 'wl-score-edit-insert-header)
+  (define-key wl-score-mode-map "\C-c\C-e" 'wl-score-edit-insert-header-entry)
+
+  (unless (boundp 'wl-score-menu)
+    (easy-menu-define
+     wl-score-menu wl-score-mode-map "Menu used in score mode."
+     wl-score-mode-menu-spec)))
+
+(defun wl-score-mode ()
+  "Mode for editing Wanderlust score files.
+This mode is an extended emacs-lisp mode.
+
+Special commands;
+\\{wl-score-mode-map}
+Entering Score mode calls the value of `wl-score-mode-hook'."
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map wl-score-mode-map)
+  (set-syntax-table wl-score-mode-syntax-table)
+  (setq major-mode 'wl-score-mode)
+  (setq mode-name "Score")
+  (lisp-mode-variables nil)
+  (make-local-variable 'wl-score-edit-exit-func)
+  (make-local-variable 'wl-score-edit-summary-buffer)
+  (run-hooks 'emacs-lisp-mode-hook 'wl-score-mode-hook))
+
+(defun wl-score-edit-insert-date ()
+  "Insert date in numerical format."
+  (interactive)
+  (princ (wl-day-number (current-time-string)) (current-buffer)))
+
+(defun wl-score-pretty-print ()
+  "Format the current score file."
+  (interactive)
+  (goto-char (point-min))
+  (let ((form (read (current-buffer))))
+    (erase-buffer)
+    (let ((emacs-lisp-mode-syntax-table wl-score-mode-syntax-table))
+      (pp form (current-buffer))))
+  (goto-char (point-min)))
+
+(defun wl-score-edit-exit ()
+  "Stop editing the score file."
+  (interactive)
+  (unless (file-exists-p (file-name-directory (buffer-file-name)))
+    (elmo-make-directory (file-name-directory (buffer-file-name))))
+  (if (zerop (buffer-size))
+      (progn
+	(set-buffer-modified-p nil)
+	(and (file-exists-p (buffer-file-name))
+	     (delete-file (buffer-file-name))))
+    (wl-as-mime-charset wl-score-mode-mime-charset
+      (save-buffer)))
+  (let ((buf (current-buffer)))
+    (when wl-score-edit-exit-func
+      (funcall wl-score-edit-exit-func))
+    (kill-buffer buf)))
+
+(defun wl-score-edit-kill ()
+  "Cancel editing the score file."
+  (interactive)
+  (let ((buf (current-buffer)))
+    (set-buffer-modified-p nil)
+    (when wl-score-edit-exit-func
+      (funcall wl-score-edit-exit-func))
+    (kill-buffer buf)))
+
+(defun wl-score-edit-get-summary-buf ()
+  (let ((summary-buf (and wl-score-edit-summary-buffer
+			  (get-buffer wl-score-edit-summary-buffer))))
+    (if (and summary-buf
+	     (buffer-live-p summary-buf))
+	summary-buf
+      (if (and (setq summary-buf (window-buffer (previous-window)))
+	       (string-match (concat "^" wl-summary-buffer-name)
+			     (buffer-name summary-buf)))
+	  summary-buf))))
+
+(defun wl-score-edit-get-header (header &optional extra)
+  (let ((sum-buf (wl-score-edit-get-summary-buf))
+	(index (nth 2 (assoc header wl-score-header-index))))
+    (when (and sum-buf index)
+      (save-excursion
+	(set-buffer sum-buf)
+	(wl-score-get-header header extra)))))
+
+(defun wl-score-edit-insert-number ()
+  (interactive)
+  (let ((sum-buf (wl-score-edit-get-summary-buf))
+	num)
+    (when sum-buf
+      (if (setq num (save-excursion
+		      (set-buffer sum-buf)
+		      (wl-summary-message-number)))
+	  (prin1 num (current-buffer))))))
+
+(defun wl-score-edit-insert-header ()
+  (interactive)
+  (let (hchar entry)
+    (unwind-protect
+	(progn
+	  (while (not hchar)
+	    (message "Insert header (%s?): "
+		     (mapconcat (lambda (s) (char-to-string (car s)))
+				wl-score-edit-header-char ""))
+	    (setq hchar (read-char))
+	    (when (or (= hchar ??) (= hchar ?\C-h))
+	      (setq hchar nil)
+	      (wl-score-insert-help "Match on header"
+				    wl-score-edit-header-char 1)))
+	  (wl-score-kill-help-buffer)
+	  (unless (setq entry (assq (downcase hchar)
+				    wl-score-edit-header-char))
+	    (error "Invalid match type")))
+      (message "")
+      (let* ((header (nth 1 entry))
+	     (value (wl-score-edit-get-header header)))
+	(and value (prin1 value (current-buffer)))))))
+
+(defun wl-score-edit-insert-header-entry ()
+  (interactive)
+  (let (form entry)
+    (goto-char (point-min))
+    (setq form (and (not (zerop (buffer-size)))
+		    (condition-case ()
+			(read (current-buffer))
+		      (error "Invalid syntax"))))
+    (setq entry (wl-score-get-header-entry 'wl-score-edit-get-header))
+    (unless (eq (nth 2 (nth 1 entry)) 'now)
+      (if form
+	  (wl-score-update-score-entry (car entry) (nth 1 entry) form)
+	(setq form (list entry)))
+      (erase-buffer)
+      (let ((emacs-lisp-mode-syntax-table wl-score-mode-syntax-table))
+	(pp form (current-buffer)))
+      (goto-char (point-min)))))
+
+(provide 'wl-score)
+
+;;; wl-score.el ends here
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
new file mode 100644
index 0000000..b62d9c5
--- /dev/null
+++ b/wl/wl-summary.el
@@ -0,0 +1,5872 @@
+;;; wl-summary.el -- Summary mode for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/22 01:00:41 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo2)
+(require 'elmo-multi)
+(require 'wl-message)
+(require 'wl-vars)
+(require 'wl-highlight)
+(require 'wl-refile)
+(require 'wl-util)
+(condition-case ()
+    (progn
+      (require 'timezone)
+      (require 'easymenu))
+  (error))
+(require 'elmo-date)
+ 
+(condition-case nil
+    (require 'ps-print)
+  (error))
+
+(eval-when-compile
+  (require 'cl)
+  (condition-case () (require 'timer) (error nil))
+  (mapcar
+   (function
+    (lambda (symbol)
+      (unless (boundp symbol)
+	(set (make-local-variable symbol) nil))))
+   '(dragdrop-drop-functions scrollbar-height mail-reply-buffer))
+  (defun-maybe ps-print-buffer-with-faces (a))
+  (defun-maybe elmo-database-msgid-put (a b c))
+  (defun-maybe elmo-database-close ())
+  (defun-maybe elmo-database-msgid-get (a))
+  (defun-maybe run-with-idle-timer (secs repeat function &rest args)))
+
+(defvar wl-summary-buffer-name "Summary")
+(defvar wl-summary-mode-map nil)
+(defvar wl-current-summary-buffer nil)
+
+(defvar wl-summary-buffer-msgdb       nil)
+(defvar wl-summary-buffer-folder-name nil)
+(defvar wl-summary-buffer-disp-msg    nil)
+(defvar wl-summary-buffer-disp-folder nil)
+(defvar wl-summary-buffer-refile-list nil) 
+(defvar wl-summary-buffer-delete-list nil) 
+(defvar wl-summary-buffer-last-displayed-msg nil)
+(defvar wl-summary-buffer-current-msg nil)
+(defvar wl-summary-buffer-unread-status " (0 new/0 unread)")
+(defvar wl-summary-buffer-unread-count 0)
+(defvar wl-summary-buffer-new-count    0)
+(defvar wl-summary-buffer-mime-charset  nil)
+(defvar wl-summary-buffer-weekday-name-lang  nil)
+(defvar wl-summary-buffer-thread-indent-set-alist  nil)
+(defvar wl-summary-buffer-message-redisplay-func nil)
+(defvar wl-summary-buffer-view 'thread)
+(defvar wl-summary-buffer-message-modified nil)
+(defvar wl-summary-buffer-mark-modified nil)
+(defvar wl-summary-buffer-number-column nil)
+(defvar wl-summary-buffer-number-regexp nil)
+(defvar wl-summary-buffer-persistent nil)
+(defvar wl-summary-buffer-thread-nodes nil)
+(defvar wl-summary-buffer-target-mark-list nil)
+(defvar wl-summary-buffer-copy-list nil) 
+(defvar wl-summary-buffer-prev-refile-destination nil)
+(defvar wl-summary-buffer-prev-copy-destination nil)
+(defvar wl-thread-indent-level-internal nil)
+(defvar wl-thread-have-younger-brother-str-internal nil)
+(defvar wl-thread-youngest-child-str-internal nil)
+(defvar wl-thread-vertical-str-internal nil)
+(defvar wl-thread-horizontal-str-internal nil)
+(defvar wl-thread-space-str-internal nil)
+(defvar wl-summary-last-visited-folder nil)
+(defvar wl-read-folder-hist nil)
+(defvar wl-summary-scored nil)
+(defvar wl-crosspost-alist-modified nil)
+
+(defvar wl-summary-message-regexp "^ *\\([0-9]+\\)")
+
+(defvar wl-summary-shell-command-last "")
+
+(defvar wl-ps-preprint-hook nil)
+(defvar wl-ps-print-hook nil)
+
+(mapcar 
+ (function make-variable-buffer-local)
+ (list 'wl-summary-buffer-msgdb
+       'wl-summary-buffer-disp-msg
+       'wl-summary-buffer-disp-folder
+       'wl-summary-buffer-refile-list
+       'wl-summary-buffer-copy-list
+       'wl-summary-buffer-target-mark-list
+       'wl-summary-buffer-delete-list
+       'wl-summary-buffer-folder-name
+       'wl-summary-buffer-last-displayed-msg
+       'wl-summary-buffer-unread-status
+       'wl-summary-buffer-unread-count
+       'wl-summary-buffer-new-count
+       'wl-summary-buffer-mime-charset
+       'wl-summary-buffer-weekday-name-lang
+       'wl-summary-buffer-thread-indent-set
+       'wl-summary-buffer-message-redisplay-func
+       'wl-summary-buffer-view
+       'wl-summary-buffer-message-modified
+       'wl-summary-buffer-mark-modified
+       'wl-summary-buffer-number-column
+       'wl-summary-buffer-number-regexp
+       'wl-summary-buffer-persistent
+       'wl-summary-buffer-thread-nodes
+       'wl-summary-buffer-prev-refile-destination
+       'wl-summary-scored
+       'wl-summary-default-score
+       'wl-summary-move-direction-downward
+       'wl-summary-important-above
+       'wl-summary-temp-above
+       'wl-summary-mark-below
+       'wl-summary-expunge-below
+       'wl-thread-indent-level-internal
+       'wl-thread-have-younger-brother-str-internal
+       'wl-thread-youngest-child-str-internal
+       'wl-thread-vertical-str-internal
+       'wl-thread-horizontal-str-internal
+       'wl-thread-space-str-internal))
+
+;; internal functions (dummy)
+(unless (fboundp 'wl-summary-append-message-func-internal)
+  (defun wl-summary-append-message-func-internal (entity overview 
+							 mark-alist update)))
+(unless (fboundp 'wl-summary-from-func-internal)
+  (defun wl-summary-from-func-internal (from)
+    from))
+(unless (fboundp 'wl-summary-subject-func-internal)
+  (defun wl-summary-subject-func-internal (subject)
+    subject))
+(unless (fboundp 'wl-summary-subject-filter-func-internal)
+  (defun wl-summary-subject-filter-func-internal (subject)
+    subject))
+
+(defmacro wl-summary-sticky-buffer-name (folder)
+  (` (concat wl-summary-buffer-name ":" (, folder))))
+
+(defun wl-summary-default-subject (subject-string)
+  (if (string-match "^[ \t]*\\[[^:]+[,: ][0-9]+\\][ \t]*" subject-string)
+      (substring subject-string (match-end 0))
+    subject-string))
+
+(eval-when-compile (defvar-maybe entity nil)) ; silence byte compiler.
+(defun wl-summary-default-from (from)
+  (let (retval tos ng)
+    (unless
+	(and (eq major-mode 'wl-summary-mode)
+	     (stringp wl-summary-showto-folder-regexp)
+	     (string-match wl-summary-showto-folder-regexp
+			   wl-summary-buffer-folder-name)
+	     (wl-address-user-mail-address-p from)
+	     (cond
+	      ((and (setq tos (elmo-msgdb-overview-entity-get-to entity))
+		    (not (string= "" tos)))
+	       (setq retval
+		     (concat "To:"
+			     (mapconcat
+			      (function
+			       (lambda (to)
+				 (eword-decode-string
+				  (if wl-use-petname
+				      (wl-address-get-petname to)
+				    (car 
+				     (std11-extract-address-components to))))))
+			      (wl-parse-addresses tos)
+			      ","))))
+	      ((setq ng (elmo-msgdb-overview-entity-get-extra-field
+			 entity "newsgroups"))
+	       (setq retval (concat "Ng:" ng)))))
+      (if wl-use-petname
+	  (setq retval (wl-address-get-petname from))
+	(setq retval from)))
+    retval))
+
+(defun wl-summary-simple-from (string)
+  (if wl-use-petname
+      (wl-address-get-petname string)
+    string))
+
+(defvar wl-summary-mode-menu-spec
+  '("Summary"
+    ["Read" wl-summary-read t]
+    ["Prev page" wl-summary-prev-page t]
+    ["Next page" wl-summary-next-page t]
+    ["Top"       wl-summary-display-top t]
+    ["Bottom"    wl-summary-display-bottom t]
+    ["Prev"      wl-summary-prev t]
+    ["Next"      wl-summary-next t]
+    ["Up"        wl-summary-up t]
+    ["Down"      wl-summary-down t]
+    ["Parent message" wl-summary-jump-to-parent-message t]
+    "----"
+    ["Sync"            wl-summary-sync t]
+    ["Execute"         wl-summary-exec t]
+    ["Go to other folder" wl-summary-goto-folder t]
+    ["Pick" wl-summary-pick t]
+    ["Mark as read all" wl-summary-mark-as-read-all t]
+    ["Unmark all"      wl-summary-unmark-all t]
+    ["Toggle display message" wl-summary-toggle-disp-msg t]
+    ["Display folder" wl-summary-toggle-disp-folder t]
+    ["Toggle threading" wl-summary-toggle-thread t]
+    ["Stick" wl-summary-stick t]
+    ("Sort"
+     ["By Number" wl-summary-sort-by-number t]
+     ["By Date" wl-summary-sort-by-date t]
+     ["By From" wl-summary-sort-by-from t]
+     ["By Subject" wl-summary-sort-by-subject t])    
+    "----"
+    ("Message Operation"
+     ["Mark as read"    wl-summary-mark-as-read t]
+     ["Mark as important" wl-summary-mark-as-important t]
+     ["Mark as unread"   wl-summary-mark-as-unread t]
+     ["Set delete mark" wl-summary-delete t]
+     ["Set refile mark" wl-summary-refile t]
+     ["Set copy mark"   wl-summary-copy t]
+     ["Prefetch"        wl-summary-prefetch t]
+     ["Set target mark" wl-summary-target-mark t]
+     ["Unmark"          wl-summary-unmark t]
+     ["Save"		wl-summary-save t]
+     ["Cancel posted news" wl-summary-cancel-message t]
+     ["Supersedes message" wl-summary-supersedes-message t]
+     ["Resend bounced mail" wl-summary-resend-bounced-mail t]
+     ["Resend message" wl-summary-resend-message t]
+     ["Enter the message" wl-summary-jump-to-current-message t]
+     ["Pipe message" wl-summary-pipe-message t]
+     ["Print message" wl-summary-print-message t])
+    ("Thread Operation"
+     ["Open or Close" wl-thread-open-close (eq wl-summary-buffer-view 'thread)]
+     ["Open all"     wl-thread-open-all (eq wl-summary-buffer-view 'thread)]
+     ["Close all"    wl-thread-close-all (eq wl-summary-buffer-view 'thread)]
+     ["Mark as read" wl-thread-mark-as-read (eq wl-summary-buffer-view 'thread)]
+     ["Mark as important"	wl-thread-mark-as-important (eq wl-summary-buffer-view 'thread)]
+     ["Mark as unread"		wl-thread-mark-as-unread (eq wl-summary-buffer-view 'thread)]
+     ["Set delete mark"  wl-thread-delete (eq wl-summary-buffer-view 'thread)]
+     ["Set refile mark"  wl-thread-refile (eq wl-summary-buffer-view 'thread)]
+     ["Set copy mark"    wl-thread-copy (eq wl-summary-buffer-view 'thread)]
+     ["Prefetch"     wl-thread-prefetch (eq wl-summary-buffer-view 'thread)]
+     ["Set target mark"        wl-thread-target-mark (eq wl-summary-buffer-view 'thread)]
+     ["Unmark"      wl-thread-unmark (eq wl-summary-buffer-view 'thread)]
+     ["Save"		wl-thread-save (eq wl-summary-buffer-view 'thread)]
+     ["Execute"      wl-thread-exec (eq wl-summary-buffer-view 'thread)])
+    ("Region Operation"
+     ["Mark as read" wl-summary-mark-as-read-region t]
+     ["Mark as important" wl-summary-mark-as-important-region t]
+     ["Mark as unread" wl-summary-mark-as-unread-region t]
+     ["Set delete mark" wl-summary-delete-region t]
+     ["Set refile mark" wl-summary-refile-region t]
+     ["Set copy mark" wl-summary-copy-region t]
+     ["Prefetch" wl-summary-prefetch-region t]
+     ["Set target mark" wl-summary-target-mark-region t]
+     ["Unmark" wl-summary-unmark-region t]
+     ["Save" wl-summary-save-region t]
+     ["Execute" wl-summary-exec-region t])
+    ("Mark Operation"
+     ["Mark as read" wl-summary-target-mark-mark-as-read t]
+     ["Mark as important" wl-summary-target-mark-mark-as-important t]
+     ["Mark as unread" wl-summary-target-mark-mark-as-unread t]
+     ["Set delete mark" wl-summary-target-mark-delete t]
+     ["Set refile mark" wl-summary-target-mark-refile t]
+     ["Set copy mark" wl-summary-target-mark-copy t]
+     ["Prefetch" wl-summary-target-mark-prefetch t]
+     ["Save" wl-summary-target-mark-save t]
+     ["Reply with citation" wl-summary-target-mark-reply-with-citation t]
+     ["Forward" wl-summary-target-mark-forward t]
+     ["uudecode" wl-summary-target-mark-uudecode t])
+    ("Score Operation"
+     ["Switch current score file" wl-score-change-score-file t]
+     ["Edit current score file" wl-score-edit-current-scores t]
+     ["Edit score file" wl-score-edit-file t]
+     ["Set mark below" wl-score-set-mark-below t]
+     ["Set expunge below" wl-score-set-expunge-below t]
+     ["Rescore buffer" wl-summary-rescore t]
+     ["Increase score" wl-summary-increase-score t]
+     ["Lower score" wl-summary-lower-score t])
+    "----"
+    ("Writing Messages"
+     ["Write a message" wl-summary-write t]
+     ["Reply" wl-summary-reply t]
+     ["Reply with citation" wl-summary-reply-with-citation t]
+     ["Forward" wl-summary-forward t])
+    "----"
+    ["Toggle Plug Status" wl-toggle-plugged t]
+    ["Change Plug Status" wl-plugged-change t]
+    "----"
+    ["Exit Current Folder" wl-summary-exit t]))
+
+(if wl-on-xemacs
+    (defun wl-summary-setup-mouse ()
+      (define-key wl-summary-mode-map 'button4 'wl-summary-prev)
+      (define-key wl-summary-mode-map 'button5 'wl-summary-next)
+      (define-key wl-summary-mode-map [(shift button4)] 
+	'wl-summary-up)
+      (define-key wl-summary-mode-map [(shift button5)] 
+	'wl-summary-down)
+      (define-key wl-summary-mode-map 'button2 'wl-summary-click))
+  (if wl-on-nemacs
+      (defun wl-summary-setup-mouse ())
+    (defun wl-summary-setup-mouse ()
+      (define-key wl-summary-mode-map [mouse-4] 'wl-summary-prev)
+      (define-key wl-summary-mode-map [mouse-5] 'wl-summary-next)
+      (define-key wl-summary-mode-map [S-mouse-4] 'wl-summary-up)
+      (define-key wl-summary-mode-map [S-mouse-5] 'wl-summary-down)
+      (define-key wl-summary-mode-map [mouse-2] 'wl-summary-click))))
+
+(if wl-summary-mode-map
+    ()
+  (setq wl-summary-mode-map (make-sparse-keymap))
+  (define-key wl-summary-mode-map " "    'wl-summary-read)
+  (define-key wl-summary-mode-map "."    'wl-summary-redisplay)
+  (define-key wl-summary-mode-map "<"    'wl-summary-display-top)
+  (define-key wl-summary-mode-map ">"    'wl-summary-display-bottom)
+  (define-key wl-summary-mode-map "\177" 'wl-summary-prev-page)
+  (unless wl-on-nemacs
+    (define-key wl-summary-mode-map [backspace] 'wl-summary-prev-page))
+  (define-key wl-summary-mode-map "\r"   'wl-summary-next-line-content)
+  (define-key wl-summary-mode-map "\C-m" 'wl-summary-next-line-content)
+  (define-key wl-summary-mode-map "/"    'wl-thread-open-close)
+  (define-key wl-summary-mode-map "["    'wl-thread-open-all)
+  (define-key wl-summary-mode-map "]"    'wl-thread-close-all)
+  (define-key wl-summary-mode-map "-"    'wl-summary-prev-line-content)
+  (define-key wl-summary-mode-map "\e\r" 'wl-summary-prev-line-content)
+  (define-key wl-summary-mode-map "g"    'wl-summary-goto-folder)
+  (define-key wl-summary-mode-map "c"    'wl-summary-mark-as-read-all)
+  (define-key wl-summary-mode-map "D"    'wl-summary-drop-unsync)
+  
+  (define-key wl-summary-mode-map "a"    'wl-summary-reply)
+  (define-key wl-summary-mode-map "A"    'wl-summary-reply-with-citation)
+  (define-key wl-summary-mode-map "C"    'wl-summary-cancel-message)
+  (define-key wl-summary-mode-map "E"    'wl-summary-reedit)
+  (define-key wl-summary-mode-map "\eE"  'wl-summary-resend-bounced-mail)
+  (define-key wl-summary-mode-map "f"    'wl-summary-forward)
+  (define-key wl-summary-mode-map "$"    'wl-summary-mark-as-important)
+  (define-key wl-summary-mode-map "@"    'wl-summary-edit-addresses)
+
+  (define-key wl-summary-mode-map "y"    'wl-summary-save)
+  (define-key wl-summary-mode-map "n"    'wl-summary-next)
+  (define-key wl-summary-mode-map "p"    'wl-summary-prev)
+  (define-key wl-summary-mode-map "N"    'wl-summary-down)
+  (define-key wl-summary-mode-map "P"    'wl-summary-up)
+;  (define-key wl-summary-mode-map "w"    'wl-draft)
+  (define-key wl-summary-mode-map "w"    'wl-summary-write)
+  (define-key wl-summary-mode-map "W"    'wl-summary-write-current-newsgroup)
+;  (define-key wl-summary-mode-map "e"     'wl-draft-open-file)
+  (define-key wl-summary-mode-map "e"     'wl-summary-save)
+  (define-key wl-summary-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (define-key wl-summary-mode-map "H"    'wl-summary-redisplay-all-header)
+  (define-key wl-summary-mode-map "M"    'wl-summary-redisplay-no-mime)
+  (define-key wl-summary-mode-map "B"    'wl-summary-burst)
+  (define-key wl-summary-mode-map "Z"    'wl-status-update)
+  (define-key wl-summary-mode-map "#"    'wl-summary-print-message)
+  (define-key wl-summary-mode-map "|"    'wl-summary-pipe-message)
+  (define-key wl-summary-mode-map "q"    'wl-summary-exit)
+  (define-key wl-summary-mode-map "Q"    'wl-summary-force-exit)
+  
+  (define-key wl-summary-mode-map "j"    'wl-summary-jump-to-current-message)
+  (define-key wl-summary-mode-map "J"    'wl-thread-jump-to-msg)
+  (define-key wl-summary-mode-map "I"    'wl-summary-incorporate)
+  (define-key wl-summary-mode-map "\M-j" 'wl-summary-jump-to-msg-by-message-id)
+  (define-key wl-summary-mode-map "^"    'wl-summary-jump-to-parent-message)
+  (define-key wl-summary-mode-map "!"    'wl-summary-mark-as-unread)
+  
+  (define-key wl-summary-mode-map "s"    'wl-summary-sync)
+  (define-key wl-summary-mode-map "S"    'wl-summary-sort)
+  (define-key wl-summary-mode-map "\M-s"    'wl-summary-stick)
+  (define-key wl-summary-mode-map "T"    'wl-summary-toggle-thread)
+
+  (define-key wl-summary-mode-map "l"    'wl-summary-toggle-disp-folder)
+  (define-key wl-summary-mode-map "v"    'wl-summary-toggle-disp-msg)
+  (define-key wl-summary-mode-map "V"    'wl-summary-virtual)
+
+  (define-key wl-summary-mode-map "\C-i"  'wl-summary-goto-last-displayed-msg)
+  (define-key wl-summary-mode-map "?"    'wl-summary-pick)
+  (define-key wl-summary-mode-map "\ee"  'wl-summary-expire)
+
+  ;; line commands
+  (define-key wl-summary-mode-map "R"    'wl-summary-mark-as-read)
+  (define-key wl-summary-mode-map "i"    'wl-summary-prefetch)
+  (define-key wl-summary-mode-map "x"    'wl-summary-exec)
+  (define-key wl-summary-mode-map "*"    'wl-summary-target-mark)
+  (define-key wl-summary-mode-map "o"    'wl-summary-refile)
+  (define-key wl-summary-mode-map "O"    'wl-summary-copy)
+  (define-key wl-summary-mode-map "\M-o" 'wl-summary-refile-prev-destination)
+;  (define-key wl-summary-mode-map "\M-O" 'wl-summary-copy-prev-destination)
+  (define-key wl-summary-mode-map "\C-o" 'wl-summary-auto-refile)  
+  (define-key wl-summary-mode-map "d"    'wl-summary-delete)
+  (define-key wl-summary-mode-map "u"    'wl-summary-unmark)
+  (define-key wl-summary-mode-map "U"    'wl-summary-unmark-all)
+
+  ;; thread commands
+  (define-key wl-summary-mode-map "t"	(make-sparse-keymap))
+  (define-key wl-summary-mode-map "tR" 'wl-thread-mark-as-read)
+  (define-key wl-summary-mode-map "ti" 'wl-thread-prefetch)
+  (define-key wl-summary-mode-map "tx" 'wl-thread-exec)
+  (define-key wl-summary-mode-map "t*" 'wl-thread-target-mark)
+  (define-key wl-summary-mode-map "to" 'wl-thread-refile)
+  (define-key wl-summary-mode-map "tO" 'wl-thread-copy)
+  (define-key wl-summary-mode-map "td" 'wl-thread-delete)
+  (define-key wl-summary-mode-map "tu" 'wl-thread-unmark)
+  (define-key wl-summary-mode-map "t!" 'wl-thread-mark-as-unread)
+  (define-key wl-summary-mode-map "t$" 'wl-thread-mark-as-important)
+  (define-key wl-summary-mode-map "ty" 'wl-thread-save)
+
+  ;; target-mark commands
+  (define-key wl-summary-mode-map "m"	  (make-sparse-keymap))
+  (define-key wl-summary-mode-map "mi"   'wl-summary-target-mark-prefetch)
+  (define-key wl-summary-mode-map "mR"   'wl-summary-target-mark-mark-as-read)
+  (define-key wl-summary-mode-map "mo"   'wl-summary-target-mark-refile)
+  (define-key wl-summary-mode-map "mO"   'wl-summary-target-mark-copy)
+  (define-key wl-summary-mode-map "md"   'wl-summary-target-mark-delete)
+  (define-key wl-summary-mode-map "my"   'wl-summary-target-mark-save)
+  (define-key wl-summary-mode-map "m!"   'wl-summary-target-mark-mark-as-unread)
+  (define-key wl-summary-mode-map "m$"   'wl-summary-target-mark-mark-as-important)
+  (define-key wl-summary-mode-map "mu"   'wl-summary-delete-all-temp-marks)
+  (define-key wl-summary-mode-map "mU"   'wl-summary-target-mark-uudecode)
+  (define-key wl-summary-mode-map "ma"   'wl-summary-target-mark-all)
+  (define-key wl-summary-mode-map "mt"   'wl-summary-target-mark-thread)
+  (define-key wl-summary-mode-map "mA"   'wl-summary-target-mark-reply-with-citation)
+  (define-key wl-summary-mode-map "mf"   'wl-summary-target-mark-forward)
+  (define-key wl-summary-mode-map "m?"   'wl-summary-target-mark-pick)
+  
+  ;; region commands
+  (define-key wl-summary-mode-map "r"    (make-sparse-keymap))
+  (define-key wl-summary-mode-map "rR"   'wl-summary-mark-as-read-region)
+  (define-key wl-summary-mode-map "ri"   'wl-summary-prefetch-region)
+  (define-key wl-summary-mode-map "rx"   'wl-summary-exec-region)
+  (define-key wl-summary-mode-map "mr"   'wl-summary-target-mark-region)
+  (define-key wl-summary-mode-map "r*"   'wl-summary-target-mark-region)
+  (define-key wl-summary-mode-map "ro"   'wl-summary-refile-region)
+  (define-key wl-summary-mode-map "rO"   'wl-summary-copy-region)
+  (define-key wl-summary-mode-map "rd"   'wl-summary-delete-region)
+  (define-key wl-summary-mode-map "ru"   'wl-summary-unmark-region)
+  (define-key wl-summary-mode-map "r!"   'wl-summary-mark-as-unread-region)
+  (define-key wl-summary-mode-map "r$"   'wl-summary-mark-as-important-region)
+  (define-key wl-summary-mode-map "ry"   'wl-summary-save-region)
+
+  ;; score commands
+  (define-key wl-summary-mode-map "K"    'wl-summary-increase-score)
+  (define-key wl-summary-mode-map "L"    'wl-summary-lower-score)
+  (define-key wl-summary-mode-map "h"    (make-sparse-keymap))
+  (define-key wl-summary-mode-map "hR"   'wl-summary-rescore)
+  (define-key wl-summary-mode-map "hc"   'wl-score-change-score-file)
+  (define-key wl-summary-mode-map "he"   'wl-score-edit-current-scores)
+  (define-key wl-summary-mode-map "hf"   'wl-score-edit-file)
+  (define-key wl-summary-mode-map "hF"   'wl-score-flush-cache)
+  (define-key wl-summary-mode-map "hm"	 'wl-score-set-mark-below)
+  (define-key wl-summary-mode-map "hx"   'wl-score-set-expunge-below)
+
+  (define-key wl-summary-mode-map "\M-t" 'wl-toggle-plugged)
+  (define-key wl-summary-mode-map "\C-t" 'wl-plugged-change)
+  ;;
+  (wl-summary-setup-mouse)
+  (easy-menu-define
+   wl-summary-mode-menu
+   wl-summary-mode-map
+   "Menu used in Summary mode."
+   wl-summary-mode-menu-spec))
+
+(defun wl-status-update ()
+  (interactive)
+  (wl-address-init))
+
+(defun wl-summary-display-top ()
+  (interactive)
+  (goto-char (point-min))
+  (if wl-summary-buffer-disp-msg
+      (wl-summary-redisplay)))
+
+(defun wl-summary-display-bottom ()
+  (interactive)
+  (goto-char (point-max))
+  (forward-line -1)
+  (if wl-summary-buffer-disp-msg
+      (wl-summary-redisplay)))
+
+(defun wl-summary-collect-unread (mark-alist &optional folder)
+  (let (mark ret-val)
+    (while mark-alist
+      (setq mark (cadr (car mark-alist)))
+      (and mark
+	   (or (string= mark wl-summary-new-mark)
+	       (string= mark wl-summary-unread-uncached-mark)
+	       (string= mark wl-summary-unread-cached-mark))
+	   (setq ret-val (cons (car (car mark-alist)) ret-val)))
+      (setq mark-alist (cdr mark-alist)))
+    ret-val))
+
+(defun wl-summary-count-unread (mark-alist &optional folder)
+  (let ((new 0)
+	(unread 0)
+	mark)
+    (while mark-alist
+      (setq mark (cadr (car mark-alist)))
+      (and mark
+	   (cond 
+	    ((string= mark wl-summary-new-mark)
+	     (setq new (+ 1 new)))
+	    ((or (string= mark wl-summary-unread-uncached-mark)
+		 (string= mark wl-summary-unread-cached-mark))
+	     (setq unread (+ 1 unread)))))
+      (setq mark-alist (cdr mark-alist)))
+    (if (eq major-mode 'wl-summary-mode)
+	(setq wl-summary-buffer-new-count new 
+	      wl-summary-buffer-unread-count unread))
+    (+ new unread)))
+
+(defun wl-summary-make-modeline ()
+  "Create new modeline format for Wanderlust"
+  (let* ((duplicated (copy-sequence mode-line-format))
+	 (cur-entry duplicated)
+	 return-modeline)
+    (if (memq 'wl-plug-state-indicator mode-line-format)
+	duplicated
+      (catch 'done
+	(while cur-entry
+	  (if (or (and (symbolp (car cur-entry))
+		       (eq 'mode-line-buffer-identification 
+			      (car cur-entry)))
+		  (and (consp (car cur-entry))
+		       (or 
+			(eq 'modeline-buffer-identification 
+			       (car (car cur-entry)))
+			(eq 'modeline-buffer-identification 
+			       (cdr (car cur-entry))))))
+	      (progn
+		(setq return-modeline (append return-modeline
+					      (list 
+					       'wl-plug-state-indicator
+					       (car cur-entry)
+					       'wl-summary-buffer-unread-status)
+					      (cdr cur-entry)))
+		(throw 'done return-modeline))
+	    (setq return-modeline (append return-modeline
+					  (list (car cur-entry)))))
+	  (setq cur-entry (cdr cur-entry)))))))
+
+(defun wl-summary-reedit (&optional arg)
+  "Re-edit current message.
+If optional argument is non-nil, Supersedes message"
+  (interactive "P")
+  (if arg
+      (wl-summary-supersedes-message)
+    (if (string= wl-summary-buffer-folder-name wl-draft-folder)
+	(if (wl-summary-message-number)
+	    (unwind-protect
+		(wl-draft-reedit (wl-summary-message-number))
+	      (if (wl-message-news-p)
+		  (mail-position-on-field "Newsgroups")
+		(mail-position-on-field "To"))
+	      (delete-other-windows)))
+      (save-excursion
+	(let ((mmelmo-force-fetch-entire-message t))
+	  (wl-summary-set-message-buffer-or-redisplay)
+	  (set-buffer (wl-message-get-original-buffer))
+	  (wl-draft-edit-string (buffer-substring (point-min)
+						  (point-max))))))))
+
+(defun wl-summary-resend-bounced-mail ()
+  "Re-mail the current message.
+This only makes sense if the current message is a bounce message which
+contains some mail you have written but has been bounced back to
+you."
+  (interactive)
+  (save-excursion
+    (let ((mmelmo-force-fetch-entire-message t))
+      (wl-summary-set-message-buffer-or-redisplay)
+      (set-buffer (wl-message-get-original-buffer))
+      (goto-char (point-min))
+      (let ((case-fold-search nil))
+	(cond
+	 ((and
+	   (re-search-forward
+	    (concat "^\\($\\|[Cc]ontent-[Tt]ype:[ \t]+multipart/report\\)") nil t)
+	   (not (bolp))
+	   (re-search-forward "boundary=\"\\([^\"]+\\)\"" nil t))
+	  (let ((boundary (buffer-substring (match-beginning 1) (match-end 1)))
+		start)
+	    (cond
+	     ((and (setq start (re-search-forward
+			   (concat "^--" boundary "\n"
+				   "[Cc]ontent-[Tt]ype:[ \t]+"
+				   "\\(message/rfc822\\|text/rfc822-headers\\)\n"
+				   "\\(.+\n\\)*\n") nil t))
+		   (re-search-forward
+			 (concat "\n\\(--" boundary "\\)--\n") nil t))
+	      (wl-draft-edit-string (buffer-substring start (match-beginning 1))))
+	     (t
+	      (message "Seems no message/rfc822 part.")))))
+	 ((let ((case-fold-search t))
+	    (re-search-forward wl-rejected-letter-start nil t))
+	  (skip-chars-forward " \t\n")
+	  (wl-draft-edit-string (buffer-substring (point) (point-max))))
+	 (t
+	  (message "Does not appear to be a rejected letter.")))))))
+
+(defun wl-summary-resend-message (address)
+  "Resend the current message to ADDRESS."
+  (interactive "sResend message to: ")
+  (if (or (null address) (string-match "^[ \t]*$" address))
+      (message "No address specified.")
+    (message "Resending message to %s..." address)
+    (save-excursion
+      (let ((mmelmo-force-fetch-entire-message t))
+	(wl-summary-set-message-buffer-or-redisplay)
+	;; We first set up a normal mail buffer.
+	(set-buffer (get-buffer-create " *wl-draft-resend*"))
+	(buffer-disable-undo (current-buffer))
+	(erase-buffer)
+	(setq wl-sent-message-via nil)
+	;; Insert our usual headers.
+	(wl-draft-insert-from-field)
+	(wl-draft-insert-date-field)
+	(insert "to: " address "\n")
+	(goto-char (point-min))
+	;; Rename them all to "Resent-*".
+	(while (re-search-forward "^[A-Za-z]" nil t)
+	  (forward-char -1)
+	  (insert "Resent-"))
+	(widen)
+	(forward-line)
+	(delete-region (point) (point-max))
+	(let ((beg  (point)))
+	  ;; Insert the message to be resent.
+	  (insert-buffer-substring (wl-message-get-original-buffer))
+	  (goto-char (point-min))
+	  (search-forward "\n\n")
+	  (forward-char -1)
+	  (save-restriction
+	    (narrow-to-region beg (point))
+	    (wl-draft-delete-fields wl-ignored-resent-headers)
+	    (goto-char (point-max)))
+	  (insert mail-header-separator)
+	  ;; Rename all old ("Previous-")Resent headers.
+	  (while (re-search-backward "^\\(Previous-\\)*Resent-" beg t)
+	    (beginning-of-line)
+	    (insert "Previous-"))
+	  ;; Quote any "From " lines at the beginning.
+	  (goto-char beg)
+	  (when (looking-at "From ")
+	    (replace-match "X-From-Line: ")))
+	;; Send it.
+	(wl-draft-dispatch-message)
+	(kill-buffer (current-buffer)))
+      (message "Resending message to %s...done" address))))
+
+(defun wl-summary-msgdb-load-async (folder)
+  "Loading msgdb and selecting folder is executed asynchronously in IMAP4.
+Returns nil if selecting folder was in failure."
+  (if (and (elmo-folder-plugged-p folder)
+	   (eq (elmo-folder-get-type folder) 'imap4))
+      (let* ((spec (elmo-folder-get-spec folder))
+	     (connection (elmo-imap4-get-connection spec))
+	     (process (elmo-imap4-connection-get-process connection))
+	     msgdb response)
+	(save-excursion
+	  (unwind-protect
+	      (progn
+		(elmo-imap4-send-command (process-buffer process)
+					 process
+					 (format "select \"%s\"" 
+						 (elmo-imap4-spec-folder
+						  spec)))
+		(setq msgdb (elmo-msgdb-load (elmo-string folder)))
+		(setq response (elmo-imap4-read-response 
+				(process-buffer process)
+				process)))
+	    (if (null response)
+		(progn
+		  (setcar (cddr connection) nil)
+		  (error "Select folder failed"))
+	      (setcar (cddr connection) (elmo-imap4-spec-folder spec))))
+	  (if response msgdb)))
+    (elmo-msgdb-load (elmo-string folder))))
+
+(defun wl-summary-buffer-set-folder (folder)
+  (setq wl-summary-buffer-folder-name folder)
+  (when (wl-summary-sticky-p)
+    (make-local-variable 'wl-message-buf-name)
+    (setq wl-message-buf-name (format "%s:%s" wl-message-buf-name folder)))
+  (setq wl-summary-buffer-mime-charset (or (wl-get-assoc-list-value 
+					    wl-folder-mime-charset-alist
+					    folder)
+					   wl-mime-charset))
+  (setq wl-summary-buffer-weekday-name-lang 
+	(or (wl-get-assoc-list-value 
+	     wl-folder-weekday-name-lang-alist
+	     folder)
+	    wl-summary-weekday-name-lang))
+  (setq wl-summary-buffer-thread-indent-set
+	(wl-get-assoc-list-value 
+	 wl-folder-thread-indent-set-alist
+	 folder))
+  (setq wl-summary-buffer-persistent (wl-folder-persistent-p folder))
+  (setq 
+   wl-thread-indent-level-internal
+   (or (nth 0 wl-summary-buffer-thread-indent-set)
+       wl-thread-indent-level)
+   wl-thread-have-younger-brother-str-internal
+   (or (nth 1 wl-summary-buffer-thread-indent-set)
+       wl-thread-have-younger-brother-str)
+   wl-thread-youngest-child-str-internal
+   (or (nth 2 wl-summary-buffer-thread-indent-set)
+       wl-thread-youngest-child-str)
+   wl-thread-vertical-str-internal
+   (or (nth 3 wl-summary-buffer-thread-indent-set)
+       wl-thread-vertical-str)
+   wl-thread-horizontal-str-internal
+   (or (nth 4 wl-summary-buffer-thread-indent-set)
+       wl-thread-horizontal-str)
+   wl-thread-space-str-internal
+   (or (nth 5 wl-summary-buffer-thread-indent-set)
+       wl-thread-space-str))
+  (setq wl-thread-indent-regexp 
+	(concat 
+	 (regexp-quote wl-thread-have-younger-brother-str-internal) "\\|"
+	 (regexp-quote wl-thread-youngest-child-str-internal) "\\|"
+	 (regexp-quote wl-thread-vertical-str-internal) "\\|"
+	 (regexp-quote wl-thread-horizontal-str-internal) "\\|"
+	 (regexp-quote wl-thread-space-str-internal)))
+  (run-hooks 'wl-summary-buffer-set-folder-hook))
+
+(defun wl-summary-mode ()
+  "Major mode for reading threaded messages.
+The keys that are defined for this mode are:\\<wl-summary-mode-map>
+
+SPC	Read messages. 
+DEL	Back-scroll this message. 
+.	Force to display this message. 
+RET	Make this message scroll up with one line.
+M-RET -	Make this message scroll down with one line.
+
+C-n	Go to the next line.
+C-p	Go to the previous line.
+n	Move to below then display. 
+N       Move to next unread.
+p	Move to above then display. 
+P       Move to previous unread.
+s	Sync current folder.
+t       Same as 's' but force update. 
+g	Go to the folder which you input.
+w	Write a message. A new draft is prepared.
+a	Answer to this message. A new draft is prepared in Draft mode. 
+f	Forward this message to a third person. A new draft is prepared in 
+	Draft mode and this message is automatically attached.
+v	Toggle \"Summary and Folder view\".
+        You can quickly put the delete marks since the next message is not 
+        displayed.
+i       Prefetch message if uncached.
+o	Put the refile mark('o') on this message. 
+!	Mark current message as unread.
+$	Toggle mark current message as important.
+d	Put the delete mark('D') on this message.
+c       Check all messages as read.
+*	Put the temporal mark('*') on this message. 
+u	Cancel the mark on this message.
+x	Process marked messages. 
+
+mo	Put the refile mark onto all messages marked with '*'.
+	This is very convenient to refile all messages picked by '?'.
+md	Put the delete mark onto all messages marked with '*'.
+mi      Prefetch all messages marked with '*'.
+mu	Unmark all target-marked messages.
+mt      Put the '*' mark onto all messages which belong to th current thread.
+ma      Put the '*' mark onto all messages.
+?	Pick messages according to a pick pattern which you input, 
+	then put the '*' mark onto them.
+q	Goto folder mode.
+"
+  (interactive)
+  (setq major-mode 'wl-summary-mode)
+  (setq mode-name "Summary")
+  (use-local-map wl-summary-mode-map)
+  (setq wl-summary-buffer-refile-list nil)
+  (setq wl-summary-buffer-target-mark-list nil)
+  (setq wl-summary-buffer-delete-list nil)
+  (setq wl-summary-scored nil)
+  (setq wl-summary-buffer-disp-msg nil)  
+;; (setq default-directory (or wl-tmp-dir (expand-file-name "~/")))  
+  (setq buffer-read-only t)
+  (setq truncate-lines t)
+;  (make-local-variable 'tab-width)
+;  (setq tab-width 1)
+  (buffer-disable-undo (current-buffer))
+  (if wl-use-semi
+      (setq wl-summary-buffer-message-redisplay-func 
+	    'wl-mmelmo-message-redisplay)
+    (setq wl-summary-buffer-message-redisplay-func
+	  'wl-normal-message-redisplay))
+  (wl-xmas-setup-summary) ; setup toolbar, dnd, etc.
+  (when wl-show-plug-status-on-modeline 
+    (setq mode-line-format (wl-summary-make-modeline)))
+  (easy-menu-add wl-summary-mode-menu)
+  (run-hooks 'wl-summary-mode-hook))
+
+(defun wl-summary-overview-entity-compare-by-date (x y)
+  "Compare entity by date"
+  (condition-case nil
+      (string<
+       (timezone-make-date-sortable 
+	(elmo-msgdb-overview-entity-get-date x))
+       (timezone-make-date-sortable 
+	(elmo-msgdb-overview-entity-get-date y)))
+    (error))) ;; ignore error.
+
+(defun wl-summary-overview-entity-compare-by-number (x y)
+  "Compare entity by number"
+  (<
+   (elmo-msgdb-overview-entity-get-number x)
+   (elmo-msgdb-overview-entity-get-number y)))
+
+(defun wl-summary-overview-entity-compare-by-from (x y)
+  "Compare entity by from"
+  (string<
+   (wl-address-header-extract-address
+    (or (elmo-msgdb-overview-entity-get-from-no-decode x)
+	wl-summary-no-from-message))
+   (wl-address-header-extract-address
+    (or (elmo-msgdb-overview-entity-get-from-no-decode y)
+	wl-summary-no-from-message))))
+
+(defun wl-summary-overview-entity-compare-by-subject (x y)
+  "Compare entity by subject"
+  (string< (elmo-msgdb-overview-entity-get-subject-no-decode x)
+	   (elmo-msgdb-overview-entity-get-subject-no-decode y)))
+
+(defun wl-summary-sort-by-date ()
+  (interactive)
+  (wl-summary-rescan "date"))
+(defun wl-summary-sort-by-number ()
+  (interactive)
+  (wl-summary-rescan "number"))
+(defun wl-summary-sort-by-subject ()
+  (interactive)
+  (wl-summary-rescan "subject"))
+(defun wl-summary-sort-by-from ()
+  (interactive)
+  (wl-summary-rescan "from"))
+
+(defun wl-summary-rescan (&optional sort-by)
+  "Rescan current folder without updating."
+  (interactive)
+  (let* ((cur-buf (current-buffer))
+	 (msgdb wl-summary-buffer-msgdb) 
+	 (overview (elmo-msgdb-get-overview msgdb))
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 (elmo-mime-charset wl-summary-buffer-mime-charset)
+	 i percent num
+	 gc-message entity
+	 curp
+	 (inhibit-read-only t)
+	 (buffer-read-only nil)
+	 expunged)
+    (fset 'wl-summary-append-message-func-internal 
+	  (wl-summary-get-append-message-func))
+    (erase-buffer)
+    (message "Re-scanning...")
+    (setq i 0)
+    (setq num (length overview))
+    (when sort-by
+      (message "Sorting by %s..." sort-by)
+      (setq overview
+	    (sort overview
+		  (intern (format "wl-summary-overview-entity-compare-by-%s"
+				  sort-by))))
+      (message "Sorting by %s...done" sort-by)
+      (elmo-msgdb-set-overview wl-summary-buffer-msgdb
+			       overview))
+    (setq curp overview)
+    (set-buffer cur-buf)
+    (setq wl-thread-entity-hashtb (elmo-make-hash (* (length overview) 2)))
+    (setq wl-thread-entity-list nil)
+    (setq wl-thread-entities nil)
+    (setq wl-summary-buffer-target-mark-list nil)
+    (setq wl-summary-buffer-refile-list nil)
+    (setq wl-summary-buffer-delete-list nil)
+    (message "Constructing summary structure..." percent)
+    (while curp
+      (setq entity (car curp))
+      (wl-summary-append-message-func-internal entity overview mark-alist
+					       nil)
+      (setq curp (cdr curp))
+      (setq i (+ i 1))
+      (elmo-display-progress
+       'wl-summary-rescan "Constructing summary structure..."
+       (/ (* i 100) num)))
+    (message "Constructing summary structure...done." percent)
+    (set-buffer cur-buf)
+    (when (eq wl-summary-buffer-view 'thread)
+      (message "Inserting thread...")
+      (wl-thread-insert-top)
+      (message "Inserting thread...done."))
+    (when wl-use-scoring
+      (setq wl-summary-scored nil)
+      (wl-summary-score-headers nil msgdb
+				(wl-summary-rescore-msgs number-alist)
+				t)
+      (setq expunged (wl-summary-score-update-all-lines))
+      (if expunged
+	  (message "%d message(s) are expunged by scoring." (length expunged))))
+    (wl-summary-set-message-modified)
+    (wl-summary-count-unread mark-alist)
+    (wl-summary-update-modeline)    
+    (goto-char (point-max))
+    (forward-line -1)
+    (set-buffer-modified-p nil)))
+    
+(defun wl-summary-next-folder-or-exit (&optional next-entity upward)
+  (if (and next-entity
+	   wl-auto-select-next)
+      (let (retval)
+	(wl-summary-toggle-disp-msg 'off)
+	(unwind-protect
+	    (setq retval
+		  (wl-summary-goto-folder-subr next-entity 
+					       'force-update
+					       nil
+					       nil ; not sticky
+					       t   ; interactive!
+					       ))
+	  (wl-folder-set-current-entity-id (wl-folder-get-entity-id next-entity))
+	  (if (and (eq retval 'more-next)
+		   (memq wl-auto-select-next '(unread skip-no-unread))
+		   (memq this-command wl-summary-next-no-unread-command))
+	      (if upward
+		  (wl-summary-up
+		   t (eq wl-auto-select-next 'skip-no-unread))
+		(goto-char (point-max))
+		(forward-line -1)
+		(wl-summary-down
+		 t (eq wl-auto-select-next 'skip-no-unread))))))
+    (wl-summary-exit)))
+
+(defun wl-summary-entity-info-msg (entity finfo)
+  (or (and entity
+	   (concat
+	    (elmo-replace-in-string
+	     (if (memq 'ask-folder wl-use-folder-petname)
+		 (wl-folder-get-petname entity)
+	       entity)
+	     "%" "%%")
+	    (if (null (car finfo))
+		" (? new/? unread)"
+	      (format 
+	       " (%d new/%d unread)" 
+	       (nth 0 finfo)
+	       (+ (nth 0 finfo)
+		  (nth 1 finfo))))))
+      "folder mode"))
+
+(defun wl-summary-set-message-modified ()
+  (setq wl-summary-buffer-message-modified t))
+(defun wl-summary-message-modified-p ()
+  wl-summary-buffer-message-modified)
+(defun wl-summary-set-mark-modified ()
+  (setq wl-summary-buffer-mark-modified t))
+(defun wl-summary-mark-modified-p ()
+  wl-summary-buffer-mark-modified)
+
+(defun wl-summary-msgdb-save ()
+  "Save msgdb if modified."
+  (when wl-summary-buffer-msgdb
+    (save-excursion
+      (let (path)
+	(when (wl-summary-message-modified-p)
+	  (setq path (elmo-msgdb-expand-path wl-summary-buffer-folder-name))
+	  (elmo-msgdb-overview-save 
+	   path 
+	   (elmo-msgdb-get-overview wl-summary-buffer-msgdb))
+	  (elmo-msgdb-number-save 
+	   path 
+	   (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	  (elmo-folder-set-info-max-by-numdb
+	   (elmo-string wl-summary-buffer-folder-name)
+	   (elmo-msgdb-get-number-alist
+	    wl-summary-buffer-msgdb))
+	  (setq wl-summary-buffer-message-modified nil))
+	(when (wl-summary-mark-modified-p)
+	  (or path 
+	      (setq path (elmo-msgdb-expand-path
+			  wl-summary-buffer-folder-name)))
+	  (elmo-msgdb-mark-save 
+	   path
+	   (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+;; 	  (elmo-folder-set-info-hashtb
+;; 	   (elmo-string wl-summary-buffer-folder-name)
+;; 	   nil nil
+;; 	   0
+;; 	   (+ wl-summary-buffer-new-count wl-summary-buffer-unread-count))
+;;	  (setq wl-folder-info-alist-modified t)
+	  (setq wl-summary-buffer-mark-modified nil))))))
+
+(defsubst wl-summary-cleanup-temp-marks (&optional sticky)
+  (if (or wl-summary-buffer-refile-list
+	  wl-summary-buffer-copy-list
+	  wl-summary-buffer-delete-list)
+      (if (y-or-n-p "Marks remain to be executed. Execute them?")
+	  (progn
+	    (wl-summary-exec)
+	    (if (or wl-summary-buffer-refile-list
+		    wl-summary-buffer-copy-list
+		    wl-summary-buffer-delete-list)
+		(error "Some execution was failed")))
+	;; delete temp-marks
+	(message "")
+	(wl-summary-delete-all-refile-marks)
+	(wl-summary-delete-all-copy-marks)
+	(wl-summary-delete-all-delete-marks)))
+  (if wl-summary-buffer-target-mark-list
+      (progn
+	(wl-summary-delete-all-target-marks)
+	(setq wl-summary-buffer-target-mark-list nil)))
+  (wl-summary-delete-all-temp-marks-on-buffer sticky)
+  (setq wl-summary-scored nil))
+
+;; a subroutine for wl-summary-exit/wl-save-status
+(defun wl-summary-save-status (&optional sticky)
+  ;; already in summary buffer.
+  (when wl-summary-buffer-persistent
+    ;; save the current summary buffer view.
+    (if (and wl-summary-cache-use 
+	     (or (wl-summary-message-modified-p)
+		 (wl-summary-mark-modified-p)))
+	(wl-summary-save-view-cache sticky))
+    ;; save msgdb ... 
+    (wl-summary-msgdb-save)))
+
+(defun wl-summary-force-exit ()
+  "Exit current summary. Buffer is deleted even the buffer is sticky"
+  (interactive)
+  (wl-summary-exit 'force-exit))
+
+(defun wl-summary-exit (&optional force-exit)
+  "Exit current summary. if FORCE-EXIT, exits even the summary is sticky."
+  (interactive "P")
+  (let ((summary-buf (current-buffer))
+	(sticky (wl-summary-sticky-p))
+	(message-buf (get-buffer wl-message-buf-name))
+	summary-win
+	message-buf message-win
+	folder-buf folder-win)
+    (wl-summary-cleanup-temp-marks sticky)
+    (unwind-protect
+	;; save summary status
+	(progn
+	  (wl-summary-save-status sticky)
+	  ;(wl-summary-msgdb-save)
+	  (if wl-use-scoring
+	      (wl-score-save)))
+      ;; for sticky summary
+      (wl-delete-all-overlays)
+      (setq wl-summary-buffer-disp-msg nil)
+      ;; delete message window if displayed.
+      (if (setq message-buf (get-buffer wl-message-buf-name))
+	  (if (setq message-win (get-buffer-window message-buf))
+	      (delete-window message-win)))
+      (if (setq folder-buf (get-buffer wl-folder-buffer-name))
+	  (if (setq folder-win (get-buffer-window folder-buf))
+	      ;; folder win is already displayed.
+	      (select-window folder-win)
+	    ;; folder win is not displayed.
+	    (switch-to-buffer folder-buf))
+	;; currently no folder buffer
+	(wl-folder))
+      (and wl-folder-move-cur-folder
+	   wl-folder-buffer-cur-point
+	   (goto-char wl-folder-buffer-cur-point))
+      (setq wl-folder-buffer-cur-path nil)
+      (setq wl-folder-buffer-cur-entity-id nil)
+      (wl-delete-all-overlays)
+      (if wl-summary-exit-next-move
+	  (wl-folder-next-unsync t)
+	(beginning-of-line))
+      (if (setq summary-win (get-buffer-window summary-buf))
+	  (delete-window summary-win))
+      (if (or force-exit 
+	      (not sticky))
+	  (progn
+	    (set-buffer summary-buf)
+	    (and (get-buffer wl-message-buf-name)
+		 (kill-buffer wl-message-buf-name))
+	    ;; kill buffers of mime-view-caesar
+	    (wl-kill-buffers
+	     (format "^%s-([0-9 ]+)$" (regexp-quote wl-message-buf-name)))
+	    (kill-buffer summary-buf)))
+      (run-hooks 'wl-summary-exit-hook))))
+
+(defun wl-summary-sync-force-update (&optional unset-cursor)
+  (interactive)
+  (let ((msgdb-dir (elmo-msgdb-expand-path wl-summary-buffer-folder-name))
+	ret-val seen-list)
+    (unwind-protect
+	(progn
+	  (setq seen-list (elmo-msgdb-seen-load msgdb-dir))
+	  (setq ret-val (wl-summary-sync-update3 seen-list unset-cursor))
+	  (elmo-msgdb-seen-save msgdb-dir nil))
+      (set-buffer (current-buffer)))
+    (if (interactive-p)
+	(message "%s" ret-val))
+    ret-val))
+
+(defun wl-summary-sync (&optional unset-cursor force-range)
+  (interactive)
+  (let* ((folder wl-summary-buffer-folder-name)
+	 (inhibit-read-only t)
+	 (buffer-read-only nil)
+	 (msgdb-dir (elmo-msgdb-expand-path
+		     folder))
+	 (range (or force-range (wl-summary-input-range folder)))
+	 mes seen-list)
+    (cond ((string= range "all")
+	   ;; initialize buffer local databases.
+	   (unless (elmo-folder-plugged-p folder) ; forbidden
+	     (error "Unplugged"))
+	   (wl-summary-cleanup-temp-marks)
+	   (setq seen-list
+		 (nconc
+		  (elmo-msgdb-mark-alist-to-seen-list
+		   (elmo-msgdb-get-number-alist
+		    wl-summary-buffer-msgdb)
+		   (elmo-msgdb-get-mark-alist 
+		    wl-summary-buffer-msgdb)
+		   (concat wl-summary-important-mark
+			   wl-summary-read-uncached-mark))
+		  (elmo-msgdb-seen-load msgdb-dir)))
+	   (setq wl-thread-entity-hashtb (elmo-make-hash
+					  (* (length (elmo-msgdb-get-number-alist
+						      wl-summary-buffer-msgdb)) 2)))
+	   (setq wl-summary-buffer-msgdb '(nil nil nil nil))
+	   (setq wl-thread-entity-list nil)
+	   (setq wl-thread-entities nil)
+	   (setq wl-summary-buffer-target-mark-list nil)
+	   (setq wl-summary-buffer-refile-list nil)
+	   (setq wl-summary-buffer-copy-list nil)
+	   (setq wl-summary-buffer-delete-list nil)
+	   (wl-summary-buffer-number-column-detect nil)
+	   (setq mes (wl-summary-sync-update3 seen-list unset-cursor))
+	   (elmo-msgdb-seen-save msgdb-dir nil) ; delete all seen.
+	   (if mes (message "%s" mes)))
+;	   (wl-summary-sync-all folder t))
+	  ((string= range "rescan")
+	   (let ((msg (wl-summary-message-number)))
+	     (wl-summary-rescan)
+	     (and msg (wl-summary-jump-to-msg msg))))
+	  ((string= range "rescan-noscore")
+	   (let ((msg (wl-summary-message-number))
+		 wl-use-scoring)
+	     (wl-summary-rescan)
+	     (and msg (wl-summary-jump-to-msg msg))))
+	  ((or (string-match "last:" range)
+	       (string-match "first:" range))
+	   (wl-summary-goto-folder-subr (concat "/" range "/" folder)
+					'force-update nil nil t))
+	  ((string= range "no-sync")
+	   ;; do nothing.
+	   )
+	  (t 
+	   (setq seen-list (elmo-msgdb-seen-load msgdb-dir))
+	   (setq mes (wl-summary-sync-update3 seen-list unset-cursor))
+	   (elmo-msgdb-seen-save msgdb-dir nil) ; delete all seen.
+	   (if mes (message "%s" mes))))))
+
+(defvar wl-summary-edit-addresses-candidate-fields
+  ;; First element becomes default.
+  '("from" "to" "cc"))
+
+(defun wl-summary-edit-addresses-collect-candidate-fields (mime-charset)
+  (let ((fields wl-summary-edit-addresses-candidate-fields)
+	body candidates components)
+    (while fields
+      (setq body 
+	    (mapconcat 'identity (elmo-multiple-field-body (car fields))
+		       ","))
+      (setq body (wl-parse-addresses body))
+      (if body (setq candidates (append candidates body)))
+      (setq fields (cdr fields)))
+    (setq candidates (elmo-uniq-list candidates))
+    (elmo-set-work-buf
+     (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+     (mapcar (function
+	      (lambda (x)
+		(setq components (std11-extract-address-components x))
+		(cons (nth 1 components)
+		      (and (car components)
+			   (eword-decode-string
+			    (decode-mime-charset-string
+			     (car components)
+			     mime-charset))))))
+	     candidates))))
+
+(defun wl-summary-edit-addresses-subr (the-email name-in-addr)
+  ;; returns nil if there's no change.
+  (if (elmo-get-hash-val (downcase the-email) wl-address-petname-hash)
+      (let (char)
+	(message (format "'%s' already exists. (e)dit/(d)elete/(c)ancel?"
+			 the-email))
+	(while (not (or (eq (setq char (read-char)) ?\r)
+			(eq char ?\n)
+			(eq char ? )
+			(eq char ?e)
+			(eq char ?c)
+			(eq char ?d)))
+	  (message
+	   "Please answer `e' or `d' or `c'. (e)dit/(d)elete/(c)ancel?"))
+	(cond
+	 ((or (eq char ?e)
+	      (eq char ?\n)
+	      (eq char ?\r)
+	      (eq char ? ))
+	  ;; Change Addresses
+	  (wl-address-petname-add-or-change 
+	   the-email
+	   (elmo-get-hash-val the-email wl-address-petname-hash)
+	   (wl-address-header-extract-realname
+	    (cdr (assoc (downcase the-email)
+			wl-address-completion-list))) t)
+	  "edited")
+	 ((eq char ?d)
+	  ;; Delete Addresses
+	  (if (y-or-n-p (format "Delete '%s'? "
+				the-email))
+	      (progn
+		(wl-address-petname-delete the-email)
+		"deleted")
+	    (message "")
+	    nil))
+	 (t (message "")
+	    nil)))
+    ;; Add Petname
+    (wl-address-petname-add-or-change 
+     the-email name-in-addr name-in-addr)
+    "added"))
+
+(defun wl-summary-edit-addresses (&optional addr-str)
+  "Edit address book interactively.
+Optional argument ADDR-STR is used as a target address if specified."
+  (interactive (if current-prefix-arg
+		   (list (read-from-minibuffer "Target address: "))))
+  (save-excursion
+    (wl-summary-set-message-buffer-or-redisplay))
+  (let* ((charset wl-summary-buffer-mime-charset)
+	 (candidates
+	  (with-current-buffer (wl-message-get-original-buffer)
+	    (wl-summary-edit-addresses-collect-candidate-fields
+	     charset)))
+	 address pair result)
+    (if addr-str
+	(setq address addr-str)
+      (when candidates
+	(setq address (car (car candidates)))
+	(setq address
+	      (completing-read 
+	       (format "Target address (%s): " address)
+	       (mapcar
+		(function (lambda (x) (cons (car x) (car x))))
+		candidates)
+	       nil nil nil nil address))))
+    (when address
+      (setq pair (assoc address candidates))
+      (unless pair
+	(setq pair (cons address nil)))
+      (when (setq result (wl-summary-edit-addresses-subr (car pair) (cdr pair)))
+	;; update alias
+	(wl-status-update)
+	(setq address (assoc (car pair) wl-address-list))
+	(if address
+	    (message "%s, %s, <%s> is %s."
+		     (nth 2 address)
+		     (nth 1 address)
+		     (nth 0 address)
+		     result)))
+      ;; i'd like to update summary-buffer, but...
+      ;;(wl-summary-rescan)
+      (run-hooks 'wl-summary-edit-addresses-hook))))
+
+(defun wl-summary-incorporate (&optional arg)
+  "Check and prefetch all uncached messages.
+If optional argument is non-nil, checking is omitted."
+  (interactive "P")
+  (unless arg
+    (wl-summary-sync-force-update))
+  (wl-summary-prefetch-region (point-min) (point-max)
+			      wl-summary-incorporate-marks))
+
+(defun wl-summary-prefetch-msg (number)
+  "Returns status-mark. if skipped, returns nil."
+  ;; prefetching procedure.
+  (save-excursion
+    (let* ((msgdb wl-summary-buffer-msgdb)
+	   (mark-alist (elmo-msgdb-get-mark-alist msgdb))	  
+	   (number-alist (elmo-msgdb-get-number-alist msgdb))
+	   (message-id (cdr (assq number number-alist)))
+	   (ov (assoc message-id 
+		      (elmo-msgdb-get-overview msgdb)))
+	   (entity ov)
+	   (size (elmo-msgdb-overview-entity-get-size ov))
+	   (inhibit-read-only t)
+	   (buffer-read-only nil)	   
+	   (force-read (and size
+			    (or (null wl-prefetch-threshold)
+				(< size wl-prefetch-threshold))))
+	   mark new-mark)
+      (unwind-protect
+	  (progn
+	    (when (and size (not force-read) wl-prefetch-confirm)
+	      (setq force-read
+		    (save-restriction
+		      (widen)
+		      (y-or-n-p
+		       (format
+			"Message from %s has %d bytes. Prefetch it?" 
+			(concat 
+			 "[ "
+			 (save-match-data 
+			   (wl-set-string-width 
+			    wl-from-width
+			    (wl-summary-from-func-internal
+			     (eword-decode-string
+			      (elmo-delete-char 
+			       ?\"
+			       (or 
+				(elmo-msgdb-overview-entity-get-from ov)
+				"??")))))) " ]")
+			size))))
+	      (message "")); flush.
+	    (setq mark (cadr (assq number mark-alist)))
+            (if force-read
+	      (save-excursion
+		(save-match-data
+		  (if (and (null (elmo-folder-plugged-p
+				  wl-summary-buffer-folder-name))
+			   elmo-enable-disconnected-operation)
+		      (progn ;; append-queue for offline
+			(elmo-dop-prefetch-msgs
+			 wl-summary-buffer-folder-name (list number))
+			(setq new-mark
+			      (cond
+			       ((string= mark
+					 wl-summary-unread-uncached-mark)
+				wl-summary-unread-cached-mark)
+			       ((string= mark wl-summary-new-mark)
+				(setq wl-summary-buffer-new-count
+				      (- wl-summary-buffer-new-count 1))
+				(setq wl-summary-buffer-unread-count
+				      (+ wl-summary-buffer-unread-count 1))
+				wl-summary-unread-cached-mark)
+			       ((or (null mark)
+				    (string= mark wl-summary-read-uncached-mark))
+				(setq wl-summary-buffer-unread-count
+				      (+ wl-summary-buffer-unread-count 1))
+				wl-summary-unread-cached-mark)
+			       (t mark))))
+		    ;; online
+		    (elmo-prefetch-msg wl-summary-buffer-folder-name
+				       number
+				       (wl-message-get-original-buffer)
+				       msgdb)
+		    (setq new-mark
+			  (cond
+			   ((string= mark 
+				     wl-summary-unread-uncached-mark)
+			    wl-summary-unread-cached-mark)
+			   ((string= mark wl-summary-new-mark)
+			    (setq wl-summary-buffer-new-count 
+				  (- wl-summary-buffer-new-count 1))
+			    (setq wl-summary-buffer-unread-count
+				  (+ wl-summary-buffer-unread-count 1))
+			    wl-summary-unread-cached-mark)
+			   ((string= mark wl-summary-read-uncached-mark)
+			    nil)
+			   (t mark))))
+		  (setq mark-alist (elmo-msgdb-mark-set
+				    mark-alist number new-mark))
+		  (or new-mark (setq new-mark " "))
+		  (elmo-msgdb-set-mark-alist msgdb mark-alist)
+		  (wl-summary-set-mark-modified)
+		  (wl-summary-update-modeline)
+		  (wl-folder-update-unread
+		   wl-summary-buffer-folder-name
+		   (+ wl-summary-buffer-unread-count
+		      wl-summary-buffer-new-count)))
+		new-mark)))))))
+
+;(defvar wl-summary-message-uncached-marks
+;  (list wl-summary-new-mark 
+;	wl-summary-unread-uncached-mark
+;	wl-summary-read-uncached-mark))
+
+(defun wl-summary-prefetch-region (beg end &optional prefetch-marks)
+  (interactive "r")
+  (let ((count 0)
+	targets
+	mark length
+	entity msg
+	start-pos)
+    (save-excursion
+      (setq start-pos (point))
+      (save-restriction
+	(narrow-to-region beg end)
+	;; collect prefetch targets.
+	(message "Collecting marks...")
+	(goto-char (point-min))
+	(while (not (eobp))
+	  (beginning-of-line)
+	  (when (looking-at "^ *\\([0-9]+\\)[^0-9]\\([^0-9]\\)")
+	    (setq mark (wl-match-buffer 2))
+	    (setq msg (string-to-int (wl-match-buffer 1)))
+	    (if (or (and (null prefetch-marks)
+			 msg
+			 (null (elmo-cache-exists-p
+				(cdr (assq msg
+					   (elmo-msgdb-get-number-alist
+					    wl-summary-buffer-msgdb))))))
+		    (member mark prefetch-marks))
+		(setq targets (nconc targets (list msg))))
+	    (setq entity (wl-thread-get-entity msg))
+	    (if (or (not (eq wl-summary-buffer-view 'thread))
+		    (wl-thread-entity-get-opened entity))
+		(); opened. no hidden children.
+	      ;; hidden children!!
+	      (setq targets (nconc
+			     targets
+			     (wl-thread-get-children-msgs-uncached
+			      msg prefetch-marks)))))
+	  (forward-line 1))
+	(setq length (length targets))
+	(message "Prefetching...")
+	(while targets
+	  (setq mark (if (not (wl-thread-entity-parent-invisible-p
+			       (wl-thread-get-entity (car targets))))
+			 (progn
+			   (wl-summary-jump-to-msg (car targets))
+			   (wl-summary-prefetch))
+		       (wl-summary-prefetch-msg (car targets))))
+	  (if (if prefetch-marks
+		  (string= mark wl-summary-unread-cached-mark)
+		(or (string= mark wl-summary-unread-cached-mark)
+		    (string= mark " ")))
+	      (message "Prefetching... %d/%d message(s)"
+		       (setq count (+ 1 count)) length))
+	  ;; redisplay!
+	  (save-excursion
+	    (save-restriction
+	      (widen)
+	      (goto-char start-pos)
+	      (sit-for 0)))
+	  (setq targets (cdr targets)))
+	(message "Prefetched %d/%d message(s)" count length)
+	(cons count length)))))
+
+(defun wl-summary-prefetch ()
+  "Prefetch current message."
+  (interactive)
+  (save-excursion
+    (save-match-data
+      (beginning-of-line)
+      (when (looking-at "^ *\\([0-9]+\\)[^0-9]\\([^0-9]\\)")
+	(goto-char (match-beginning 2))
+	(let ((inhibit-read-only t)
+	      (buffer-read-only nil)
+	      mark)
+	  (setq mark (wl-summary-prefetch-msg
+		      (string-to-int (wl-match-buffer 1))))
+	  (when mark
+	    (delete-region (match-beginning 2)
+			   (match-end 2))
+	    (insert mark)
+	    (if wl-summary-highlight
+		(wl-highlight-summary-current-line)))
+	  (set-buffer-modified-p nil)
+	  mark)))))
+
+(defun wl-summary-delete-all-status-marks-on-buffer ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  (case-fold-search nil))
+      (while (re-search-forward 
+	      (concat "^" wl-summary-buffer-number-regexp ".\\(.\\)") nil t)
+	(delete-region (match-beginning 1) (match-end 1))
+	(insert " ")))))
+
+(defun wl-summary-delete-copy-marks-on-buffer (cpys)
+  (mapcar (function
+	   (lambda (x)
+	     (wl-summary-unmark x)))
+	  cpys))
+
+(defun wl-summary-delete-all-refile-marks ()
+  (mapcar (function
+	   (lambda (x)
+	     (wl-summary-unmark (car x)))) wl-summary-buffer-refile-list))
+
+(defun wl-summary-delete-all-copy-marks ()
+  (mapcar (function
+	   (lambda (x)
+	     (wl-summary-unmark (car x)))) wl-summary-buffer-copy-list))
+ 
+(defun wl-summary-delete-all-delete-marks ()
+  (mapcar 'wl-summary-unmark wl-summary-buffer-delete-list))
+
+(defun wl-summary-delete-all-target-marks ()
+  (mapcar 'wl-summary-unmark wl-summary-buffer-target-mark-list))
+
+(defun wl-summary-delete-all-temp-marks-on-buffer (&optional sticky)
+  ;; for summary view cache saving.
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  (case-fold-search nil)
+	  (regexp (concat "^" wl-summary-buffer-number-regexp "\\([^ ]\\)" )))
+      (while (re-search-forward regexp nil t)
+	(delete-region (match-beginning 1) (match-end 1))
+	(insert " ")
+	(if (and sticky wl-summary-highlight)
+	    (wl-highlight-summary-current-line))))))
+
+(defun wl-summary-delete-all-marks (mark-alist mark)
+  "Delete all MARKs in MARK-ALIST"
+  (let ((malist mark-alist)
+	(ret-val mark-alist)
+	entity)
+    (while malist
+      (setq entity (car malist))
+      (if (string= (cadr entity) mark)
+	  ;; delete this entity
+	  (setq ret-val (delete entity ret-val)))
+      (setq malist (cdr malist)))
+    ret-val))
+
+;; Does not work correctly...
+(defun wl-summary-mark-as-read-region (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end);(save-excursion (goto-char end)
+					;    (end-of-line) (point)))
+      (goto-char (point-min))
+      (if (eq wl-summary-buffer-view 'thread)
+	  (progn
+	    (while (not (eobp))
+	      (let* ((number (wl-summary-message-number))
+		     (entity (wl-thread-get-entity number))
+		     children)
+		(if (wl-thread-entity-get-opened entity)
+		    ;; opened...mark line.
+		    ;; Crossposts are not processed
+		    (wl-summary-mark-as-read t)
+		  ;; closed
+		  (wl-summary-mark-as-read t) ; mark itself.
+		  (setq children (wl-thread-get-children-msgs number))
+		  (while children 
+		    (wl-thread-msg-mark-as-read (car children))
+		    (setq children (cdr children))))
+		(forward-line 1))))
+	(while (not (eobp))
+	  (wl-summary-mark-as-read t)
+	  (forward-line 1)))))
+  (wl-summary-count-unread (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+  (wl-summary-update-modeline))
+
+(defun wl-summary-mark-as-unread-region (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end);(save-excursion (goto-char end)
+					;    (end-of-line) (point)))
+      (goto-char (point-min))
+      (if (eq wl-summary-buffer-view 'thread)
+	  (progn
+	    (while (not (eobp))
+	      (let* ((number (wl-summary-message-number))
+		     (entity (wl-thread-get-entity number))
+		     children)
+		(if (wl-thread-entity-get-opened entity)
+		    ;; opened...mark line.
+		    ;; Crossposts are not processed
+		    (wl-summary-mark-as-unread)
+		  ;; closed
+		  (wl-summary-mark-as-unread) ; mark itself.
+		  (setq children 
+			(delq number (wl-thread-get-children-msgs number)))
+		  (while children 
+		    (wl-thread-msg-mark-as-unread (car children))
+		    (setq children (cdr children))))
+		(forward-line 1))))
+	(while (not (eobp))
+	  (wl-summary-mark-as-unread)
+	  (forward-line 1)))))
+  (wl-summary-count-unread (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+  (wl-summary-update-modeline))
+
+(defun wl-summary-mark-as-important-region (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end);(save-excursion (goto-char end)
+					;    (end-of-line) (point)))
+      (goto-char (point-min))
+      (if (eq wl-summary-buffer-view 'thread)
+	  (progn
+	    (while (not (eobp))
+	      (let* ((number (wl-summary-message-number))
+		     (entity (wl-thread-get-entity number))
+		     children)
+		(if (wl-thread-entity-get-opened entity)
+		    ;; opened...mark line.
+		    ;; Crossposts are not processed
+		    (wl-summary-mark-as-important)
+		  ;; closed
+		  (wl-summary-mark-as-important) ; mark itself.
+		  (setq children 
+			(delq number (wl-thread-get-children-msgs number)))
+		  (while children 
+		    (wl-thread-msg-mark-as-important (car children))
+		    (setq children (cdr children))))
+		(forward-line 1))))
+	(while (not (eobp))
+	  (wl-summary-mark-as-important)
+	  (forward-line 1)))))
+  (wl-summary-count-unread (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+  (wl-summary-update-modeline))
+
+(defun wl-summary-mark-as-read-all ()
+  (interactive)
+  (if (or (not (interactive-p))
+	  (y-or-n-p "Mark all messages as read?"))
+      (let* ((folder wl-summary-buffer-folder-name)
+	     (cur-buf (current-buffer))
+	     (msgdb wl-summary-buffer-msgdb)
+	     ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+	     (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	     (malist mark-alist)
+	     (inhibit-read-only t)
+	     (buffer-read-only nil)
+	     (case-fold-search nil)
+	     msg mark)
+	(message "Setting all msgs as read...")
+	(elmo-mark-as-read folder (wl-summary-collect-unread mark-alist)
+			   msgdb)
+	(save-excursion
+	  (goto-char (point-min))
+	  (while (re-search-forward "^ *\\([0-9]+\\)[^0-9]\\([^0-9 ]\\)" nil t)
+	    (setq msg (string-to-int (wl-match-buffer 1)))
+	    (setq mark (wl-match-buffer 2))
+	    (when (and (not (string= mark wl-summary-important-mark))
+		       (not (string= mark wl-summary-read-uncached-mark)))
+	      (delete-region (match-beginning 2) (match-end 2))
+	      (if (or (not (elmo-use-cache-p folder msg))
+		      (string= mark wl-summary-unread-cached-mark))
+		  (progn
+		    (insert " ")
+		    (setq mark-alist
+			  (elmo-msgdb-mark-set 
+			   mark-alist
+			   msg ;(cdr (assq msg number-alist)) 
+			   nil)))
+		;; New mark and unread-uncached mark
+		(insert wl-summary-read-uncached-mark)
+		(setq mark-alist
+		      (elmo-msgdb-mark-set mark-alist
+					   msg
+					; (cdr (assq msg number-alist)) 
+					   wl-summary-read-uncached-mark)))
+	      (if wl-summary-highlight
+		  (wl-highlight-summary-current-line nil nil t)))))
+	(setq mark-alist (wl-summary-set-as-read-mark-alist mark-alist))
+	(wl-summary-set-mark-modified)
+	(set-buffer cur-buf); why is this needed???
+	(elmo-msgdb-set-mark-alist msgdb mark-alist)
+	(wl-folder-update-unread wl-summary-buffer-folder-name 0)
+	(setq wl-summary-buffer-unread-count 0)
+	(setq wl-summary-buffer-new-count    0)	
+	(wl-summary-update-modeline)
+	(message "Setting all msgs as read...done.")
+	(set-buffer-modified-p nil))))
+
+(defun wl-summary-delete-cache ()
+  "Delete cache of current message."
+  (interactive)
+  (save-excursion
+    (let* ((inhibit-read-only t)
+	   (buffer-read-only nil)
+	   (folder wl-summary-buffer-folder-name)
+	   (msgdb wl-summary-buffer-msgdb)
+	   (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	   (number-alist (elmo-msgdb-get-number-alist msgdb))
+	   (case-fold-search nil)
+	   mark number unread new-mark)
+;      (re-search-backward "^ *[0-9]+..[0-9]+/[0-9]+" nil t) ; set cursor line
+      (beginning-of-line)
+      (when (looking-at "^ *\\([0-9]+\\)[^0-9]\\([^0-9]\\)")
+	(progn
+	  (setq mark (wl-match-buffer 2))
+	  (cond 
+	   ((or (string= mark wl-summary-new-mark)
+		(string= mark wl-summary-unread-uncached-mark)
+		(string= mark wl-summary-important-mark))
+	    ;; noop
+	    )
+	   ((string= mark wl-summary-unread-cached-mark)
+	    (setq new-mark wl-summary-unread-uncached-mark))
+	   (t 
+	    (setq new-mark wl-summary-read-uncached-mark)))
+	  (when new-mark
+	    (setq number (string-to-int (wl-match-buffer 1)))
+	    (delete-region (match-beginning 2) (match-end 2))
+	    (goto-char (match-beginning 2))
+	    (insert new-mark)
+	    (elmo-cache-delete (cdr (assq number number-alist))
+			       wl-summary-buffer-folder-name
+			       number)
+	    (setq mark-alist
+		  (elmo-msgdb-mark-set mark-alist number new-mark))
+	    (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	    (wl-summary-set-mark-modified)
+	    (if wl-summary-highlight
+		(wl-highlight-summary-current-line nil nil t))
+	    (set-buffer-modified-p nil)))))))
+  
+(defun wl-summary-resume-cache-status ()
+  "Resume the cache status of all messages in the current folder."
+  (interactive)
+  (let* ((folder wl-summary-buffer-folder-name)
+	 (cur-buf (current-buffer))
+	 (msgdb wl-summary-buffer-msgdb)
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 (inhibit-read-only t)
+	 (buffer-read-only nil)
+	 (case-fold-search nil)
+	 msg mark msgid set-mark)
+    (message "Resuming cache status...")
+    (save-excursion
+      (goto-char (point-min))
+      (while (re-search-forward "^ *\\([0-9]+\\)[^0-9]\\([^0-9]\\)" nil t)
+	(setq msg (string-to-int
+		   (wl-match-buffer 1)))
+	(setq mark (wl-match-buffer 2))
+	(setq msgid (cdr (assq msg number-alist)))
+	(setq set-mark nil)
+	(if (elmo-cache-exists-p msgid folder msg)
+	    (if (or
+		 (string= mark wl-summary-unread-uncached-mark) ; U -> !
+		 (string= mark wl-summary-new-mark)             ; N -> !
+		 )
+		(setq set-mark wl-summary-unread-cached-mark)
+	      (if (string= mark wl-summary-read-uncached-mark)  ; u -> ' '
+		  (setq set-mark " ")))
+	  (if (string= mark " ")                            
+	      (setq set-mark wl-summary-read-uncached-mark)     ;' ' -> u
+	    (if (string= mark wl-summary-unread-cached-mark) 
+		(setq set-mark wl-summary-unread-uncached-mark) ; !  -> U
+	      )))
+	(when set-mark
+	  (delete-region (match-beginning 2) (match-end 2))
+	  (insert set-mark)
+	  (setq mark-alist
+		(elmo-msgdb-mark-set 
+		 mark-alist msg ; msgid 
+		 (if (string= set-mark " ") nil set-mark)))
+	  (if wl-summary-highlight
+	      (wl-highlight-summary-current-line))))
+      (wl-summary-set-mark-modified)
+      (set-buffer cur-buf); why is this needed???
+      (elmo-msgdb-set-mark-alist msgdb mark-alist)
+      (wl-summary-count-unread mark-alist)
+      (wl-summary-update-modeline)
+      (message "Resuming cache status...done.")
+      (set-buffer-modified-p nil))))
+
+(defun wl-summary-resume-marks-and-highlight ()
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (count (count-lines (point-min)(point-max)))
+	 (i 0)
+	 msg-num percent smark)
+    (save-excursion
+      (goto-char (point-min))
+      (message "Resuming all marks...")
+      (while (not (eobp))
+	(setq msg-num (wl-summary-message-number))
+	(setq smark (car (cdr (assq msg-num mark-alist))))
+	(if (looking-at (format "^ *%s \\( \\)" msg-num))
+	    (progn
+	      (goto-char (match-end 1))
+	      (delete-region (match-beginning 1) (match-end 1))
+	      (insert (or smark " "))))
+	(wl-highlight-summary-current-line smark)
+	(setq i (+ i 1))
+	(setq percent (/ (* i 100) count))
+	(elmo-display-progress
+	 'wl-summary-resume-marks-and-highlight "Resuming all marks..."
+	 percent)
+	(forward-line 1)))
+    (message "Resuming all marks...done.")))
+
+(defun wl-summary-resume-marks ()
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (count (length mark-alist))
+	 (i 0)
+	 entity msg-num percent)
+    (save-excursion
+      (message "Resuming all marks...")
+      (while mark-alist
+	(setq entity (car mark-alist))
+	(if (setq msg-num (car (rassoc (car entity) number-alist)))
+	    (progn ;(goto-char (point-min))
+	      (if (re-search-forward (format "^ *%s \\( \\)" msg-num) nil t)
+		  (progn
+		    (delete-region (match-beginning 1) (match-end 1))
+		    (insert (or (cadr entity)
+				" ")))
+		(if (re-search-backward (format "^ *%s \\( \\)" msg-num) nil t)
+		    (progn
+		      (goto-char (match-end 1))
+		      (delete-region (match-beginning 1) (match-end 1))
+		      (insert (or (cadr entity)
+				  " ")))))))
+	(setq i (+ i 1))
+	(setq percent (/ (* i 100) count))
+	(elmo-display-progress
+	 'wl-summary-resume-marks "Resuming all marks..."
+	 percent)
+	(setq mark-alist (cdr mark-alist)))
+      (message "Resuming all marks...done."))))
+
+(defun wl-summary-delete-messages-on-buffer (msgs &optional deleting-info)
+  (interactive)
+  (save-excursion
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  (msgs2 msgs)
+	  (len (length msgs))
+	  (i 0)
+	  update-list)
+      (while msgs
+	(if (eq wl-summary-buffer-view 'thread)
+	    (progn
+	      (setq update-list
+		    (wl-append update-list
+			       (wl-thread-delete-message (car msgs))))
+	      (setq update-list (and update-list
+				     (delete (car msgs) update-list))))
+	  (goto-char (point-min))
+	  (if (re-search-forward (format "^ *%d[^0-9]\\([^0-9]\\).*$" 
+					 (car msgs)) nil t)
+	      (progn
+		(delete-region (match-beginning 0) (match-end 0))
+		(delete-char 1) ; delete '\n'
+		)))
+	(when deleting-info
+	  (setq i (1+ i))
+	  (and (zerop (% i 10))
+	       (elmo-display-progress
+		'wl-summary-delete-messages-on-buffer "Deleting..."
+		(/ (* i 100) len))))
+	(setq msgs (cdr msgs)))
+      (if (eq wl-summary-buffer-view 'thread)
+	  (wl-thread-update-line-msgs (elmo-uniq-list update-list)))
+      (wl-thread-cleanup-symbols msgs2)
+      (wl-summary-count-unread 
+       (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+      (wl-summary-update-modeline)	    
+      (wl-folder-update-unread
+       wl-summary-buffer-folder-name
+       (+ wl-summary-buffer-unread-count wl-summary-buffer-new-count)))))
+
+(defun wl-summary-set-as-read-mark-alist (mark-alist)
+  (let ((marks (list (cons wl-summary-unread-cached-mark 
+			   nil)
+		     (cons wl-summary-unread-uncached-mark 
+			   wl-summary-read-uncached-mark)
+		     (cons wl-summary-new-mark
+			   wl-summary-read-uncached-mark)))
+	(ret-val mark-alist)
+	entity pair)
+    (while mark-alist
+      (setq entity (car mark-alist))
+      (when (setq pair (assoc (cadr entity) marks))
+	(if (elmo-use-cache-p wl-summary-buffer-folder-name
+			      (caar mark-alist))
+	    (if (cdr pair)
+		(setcar (cdr entity) (cdr pair))
+		(setq ret-val (delete entity ret-val)))
+	  (setq ret-val (delete entity ret-val))))
+      (setq mark-alist (cdr mark-alist)))
+    ret-val))
+
+(defun wl-summary-set-status-marks (mark-alist before after)
+  "Set the BEFORE marks to AFTER"
+  (let ((ret-val mark-alist)
+	entity)
+    (while mark-alist
+      (setq entity (car mark-alist))
+      (when (string= (cadr entity) before)
+	(if after
+	    (setcar (cdr entity) after)
+	  (setq ret-val (delete entity ret-val))))
+      (setq mark-alist (cdr mark-alist)))
+    ret-val))
+
+(defun wl-summary-set-status-marks-on-buffer (before after)
+  "Set the MARKS marks on buffer"
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  (regexp (concat "^" wl-summary-buffer-number-regexp ".\\(\\%s\\)")))
+      (while (re-search-forward 
+	      (format regexp (regexp-quote before)) nil t)
+	(delete-region (match-beginning 1) (match-end 1))
+	(insert after)
+	(if wl-summary-highlight
+	    (wl-highlight-summary-current-line))))))
+
+(defun wl-summary-get-delete-folder (folder)
+  (if (string= folder wl-trash-folder)
+      'null
+    (let* ((type (or (wl-get-assoc-list-value wl-delete-folder-alist folder)
+		     'trash)))
+      (cond ((stringp type)
+	     type)
+	    ((or (equal type 'remove) (equal type 'null))
+	     'null)
+	    (t;; (equal type 'trash)
+	     wl-trash-folder)))))
+
+(defun wl-summary-delete-important-msgs-from-list (delete-list 
+						   mark-alist)
+  (let ((dlist delete-list))
+    (while dlist
+      (if (string= wl-summary-important-mark 
+		   (car (cdr (assq (car dlist) mark-alist))))
+	  (setq delete-list (delete (car dlist) delete-list)))
+      (setq dlist (cdr dlist)))
+    delete-list))
+
+(defun wl-summary-delete-canceled-msgs-from-list (delete-list msgdb)
+  (let ((dlist delete-list))
+    (while dlist
+      (if (null (cdr (assq (car dlist) (cadr msgdb))))
+	  (setq delete-list (delete (car dlist) delete-list)))
+      (setq dlist (cdr dlist)))
+    delete-list))
+  
+(defun wl-summary-get-append-message-func ()
+  (if (eq wl-summary-buffer-view 'thread)
+      'wl-summary-insert-thread-entity
+;      'wl-summary-insert-thread
+    'wl-summary-insert-summary))
+
+(defun wl-summary-sort ()
+  (interactive)
+  (let ((sort-by (let ((input-range-list '("number" "date" "subject" "from"))
+		       (default "date")
+		       in)
+		   (setq in
+			 (completing-read 
+			  (format "Sort by (%s): " default)
+			  (mapcar 
+			   (function (lambda (x) (cons x x)))
+			   input-range-list)))
+		   (if (string= in "")
+		       default
+		     in))))
+    (if (not (member sort-by '("number" "date" "subject" "from")))
+	(error "Sort by %s is not implemented"  sort-by))
+    (wl-summary-rescan sort-by)))
+
+(defun wl-summary-sync-marks ()
+  "Update marks in summary."
+  (interactive)
+  (let ((plugged (elmo-folder-plugged-p wl-summary-buffer-folder-name))
+	mark-alist unread-marks msgs mark importants unreads 
+	importants-in-db unreads-in-db has-imap4 diff diffs
+	mes)
+    ;; synchronize marks.
+    (when (not (eq (elmo-folder-get-type 
+		    wl-summary-buffer-folder-name)
+		   'internal))
+      (message "Updating marks...")
+      (setq unread-marks (list wl-summary-unread-cached-mark
+			       wl-summary-unread-uncached-mark
+			       wl-summary-new-mark)
+	    mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb)
+	    importants (elmo-list-folder-important 
+			wl-summary-buffer-folder-name
+			(elmo-msgdb-get-overview wl-summary-buffer-msgdb))
+	    has-imap4 (elmo-folder-contains-type 
+		       wl-summary-buffer-folder-name 'imap4)
+	    unreads (if (and has-imap4 plugged)
+			(elmo-list-folder-unread 
+			 wl-summary-buffer-folder-name
+			 mark-alist unread-marks)))
+      (while mark-alist 
+	(if (string= (cadr (car mark-alist))
+		     wl-summary-important-mark)
+	    (setq importants-in-db (cons (car (car mark-alist))
+					 importants-in-db))
+	  (if (member (cadr (car mark-alist)) unread-marks)
+	      (setq unreads-in-db (cons (car (car mark-alist))
+ 					unreads-in-db))))
+	(setq mark-alist (cdr mark-alist)))      
+      (setq diff (elmo-list-diff importants importants-in-db))
+      (setq diffs (cadr diff)) ; important-deletes
+      (setq mes (format "Updated (-%d" (length diffs)))
+      (while diffs
+	(wl-summary-mark-as-important (car diffs)
+				      wl-summary-important-mark
+				      'no-server)
+	(setq diffs (cdr diffs)))
+      (setq diffs (car diff)) ; important-appends
+      (setq mes (concat mes (format "/+%d) important," (length diffs))))
+      (while diffs
+	(wl-summary-mark-as-important (car diffs) " " 'no-server)
+	(setq diffs (cdr diffs)))
+      (when (and has-imap4 plugged)
+	(setq diff (elmo-list-diff unreads unreads-in-db))
+	(setq diffs (cadr diff))
+	(setq mes (concat mes (format "(-%d" (length diffs))))
+	(while diffs
+	  (wl-summary-mark-as-read t 'no-server nil (car diffs) 'no-cache)
+	  (setq diffs (cdr diffs)))
+	(setq diffs (car diff)) ; unread-appends
+	(setq mes (concat mes (format "/+%d) unread mark(s)." (length diffs))))
+	(while diffs
+	  (wl-summary-mark-as-unread (car diffs) 'no-server 'no-modeline)
+	  (setq diffs (cdr diffs))))
+      (if (interactive-p) (message mes)))))
+
+(defun wl-summary-confirm-appends (appends)
+  (condition-case nil
+      (let ((len (length appends))
+	    in)
+	(if (> len wl-summary-update-confirm-threshold)
+	    (if (y-or-n-p (format "Too many messages(%d). Continue?" len))
+		appends
+	      (setq in wl-summary-update-confirm-threshold)
+	      (catch 'end
+		(while t
+		  (setq in (read-from-minibuffer "Update number: " 
+						 (int-to-string in))
+			in (string-to-int in))
+		  (if (y-or-n-p (format "%d messages are disappeared. OK?" 
+					(- len in)))
+		      (throw 'end in))))
+	      (nthcdr (max (- len in) 0) appends))
+	  appends))
+    (quit nil)
+    (error nil))) ;
+
+(defun wl-summary-sync-update3 (&optional seen-list unset-cursor)
+  "Update the summary view."
+  (interactive)
+  (let* ((folder wl-summary-buffer-folder-name)
+	 (cur-buf (current-buffer))
+	 (msgdb wl-summary-buffer-msgdb)
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 (overview (elmo-msgdb-get-overview msgdb))
+	 ;;(location (elmo-msgdb-get-location msgdb))
+	 (case-fold-search nil)
+	 (elmo-mime-charset wl-summary-buffer-mime-charset)
+	 (inhibit-read-only t)
+	 (buffer-read-only nil)
+	 diff append-list delete-list
+	 i percent num result
+	 gc-message
+	 in-folder
+	 in-db curp
+	 overview-append
+	 entity ret-val crossed crossed2 sync-all
+	 top-num update-top-list mark
+	 expunged msgs unreads importants)
+    ;(setq seen-list nil) ;for debug.
+    (fset 'wl-summary-append-message-func-internal 
+	  (wl-summary-get-append-message-func))
+    ;; Flush pending append operations (disconnected operation).
+    (setq seen-list
+	  (wl-summary-flush-pending-append-operations seen-list))
+    (goto-char (point-max))
+    (message "Checking folder diff...")
+    (setq in-folder (elmo-list-folder folder))
+    (setq in-db (sort (mapcar 'car number-alist) '<))
+    (when (or (eq msgdb nil) ; trick for unplugged...
+	      (equal msgdb '(nil nil nil nil)))
+      (setq sync-all t)
+      (wl-summary-set-message-modified)
+      (wl-summary-set-mark-modified)
+      (erase-buffer))
+    (setq diff (if (eq (elmo-folder-get-type folder) 'multi)
+		   (elmo-multi-list-bigger-diff in-folder in-db)
+		 (elmo-list-bigger-diff in-folder in-db)))
+    (setq append-list (car diff))
+    (setq delete-list (cadr diff))
+    (message "Checking folder diff...done.")
+    ;; Don't delete important-marked msgs other than 'internal.
+    (unless (eq (elmo-folder-get-type folder) 'internal)
+      (setq delete-list
+	    (wl-summary-delete-important-msgs-from-list delete-list 
+							mark-alist)))
+    (if (and (elmo-folder-contains-type folder 'nntp)
+	     (elmo-nntp-max-number-precedes-list-active-p))
+	;; XXX this does not work correctly in rare case.
+	(setq delete-list
+	      (wl-summary-delete-canceled-msgs-from-list delete-list
+							 msgdb)))    
+    (if (or (equal diff '(nil nil))
+	    (equal diff '(nil))
+	    (and (eq (length delete-list) 0)
+		 (eq (length append-list) 0)))
+	(progn
+	  ;; For max-number update...
+	  (if (and (elmo-folder-contains-type folder 'nntp)
+		     (elmo-nntp-max-number-precedes-list-active-p)
+		     (elmo-update-number folder msgdb))
+	      (wl-summary-set-message-modified)
+	    (setq ret-val (format "No update is needed for \"%s\"" folder))))
+      (when delete-list
+	(message "Deleting...")
+	(elmo-msgdb-delete-msgs folder delete-list msgdb t) ; reserve cache.
+	;;(set-buffer cur-buf)
+	(wl-summary-delete-messages-on-buffer delete-list t)
+	(message "Deleting...done."))
+      ;;(set-buffer cur-buf)
+      ;; Change "New" marks to "Uncached Unread" marks.
+      (wl-summary-set-status-marks mark-alist 
+				   wl-summary-new-mark 
+				   wl-summary-unread-uncached-mark)
+      (wl-summary-set-status-marks-on-buffer 
+       wl-summary-new-mark 
+       wl-summary-unread-uncached-mark)
+      ;; Confirm appended message number.
+      (setq append-list (wl-summary-confirm-appends append-list))
+      (setq num (length append-list))
+      (if append-list
+	  (progn
+	    (setq i 0)
+	    (setq result (elmo-msgdb-create 
+			  folder 
+			  append-list
+			  wl-summary-new-mark
+			  wl-summary-unread-cached-mark ; !
+			  wl-summary-read-uncached-mark ; u ;; XXXX
+			  wl-summary-important-mark
+			  seen-list))
+	    ;; delete duplicated messages.
+	    (when (elmo-folder-contains-multi folder)
+	      (setq crossed (elmo-multi-delete-crossposts
+			     msgdb result))
+	      (setq result (cdr crossed))
+	      (setq crossed (car crossed)))
+	    (setq overview-append (car result))
+	    (setq msgdb (elmo-msgdb-append msgdb result))
+	    ;; set these value for append-message-func
+	    (setq overview (elmo-msgdb-get-overview msgdb))
+	    (setq number-alist (elmo-msgdb-get-number-alist msgdb))
+	    (setq mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	    ;; (setq location (elmo-msgdb-get-location msgdb))
+	    (setq curp overview-append)
+	    (setq num (length curp))
+	    (while curp
+	      (setq entity (car curp))
+	      (setq top-num
+		    (wl-summary-append-message-func-internal 
+		     entity overview mark-alist 
+		     (not sync-all)))
+	      (when top-num
+		(wl-append update-top-list (list top-num)))
+	      (if elmo-use-database
+		  (elmo-database-msgid-put 
+		   (car entity) folder
+		   (elmo-msgdb-overview-entity-get-number entity)))
+	      (setq curp (cdr curp))
+	      (setq i (+ i 1))
+	      (setq percent (/ (* i 100) num))
+	      (elmo-display-progress
+	       'wl-summary-sync-update3 "Updating thread..."
+	       percent))
+	    (setq update-top-list
+		  (elmo-uniq-list update-top-list))
+	    (when (and (eq wl-summary-buffer-view 'thread)
+		       update-top-list )
+	      (message "Updating indent...")
+	      (wl-thread-update-indent-string-thread update-top-list)
+	      (message "Updating indent...done."))
+	    (message "Updating thread...done.")
+	    ;;(set-buffer cur-buf)
+	    ))
+      (wl-summary-set-message-modified)
+      (wl-summary-set-mark-modified)
+      (setq wl-summary-buffer-msgdb msgdb)
+      (when (and sync-all (eq wl-summary-buffer-view 'thread))
+	(message "Inserting thread...")
+	(setq wl-thread-entity-cur 0)
+	(wl-thread-insert-top)
+	(message "Inserting thread...done."))
+      (if elmo-use-database
+	  (elmo-database-close))
+      (run-hooks 'wl-summary-sync-updated-hook)
+      (setq ret-val (format "Updated (-%d/+%d) message(s)" 
+			    (length delete-list) num)))
+    ;; synchronize marks.
+    (if wl-summary-auto-sync-marks
+	(wl-summary-sync-marks))
+    ;; scoring
+    (when wl-use-scoring
+      (setq wl-summary-scored nil)
+      (wl-summary-score-headers nil msgdb 
+				(and sync-all
+				     (wl-summary-rescore-msgs number-alist))
+				sync-all)
+      (setq expunged (wl-summary-score-update-all-lines))
+      (if expunged
+	  (setq ret-val (concat ret-val 
+				(format " (%d expunged)" 
+					(length expunged))))))
+    ;; crosspost
+    (setq crossed2 (wl-summary-update-crosspost))
+    (if (or crossed crossed2)
+	(let ((crosses (+ (or crossed 0)
+			  (or crossed2 0))))
+	  (setq ret-val
+		(if ret-val
+		    (concat ret-val
+			    (format " (%d crosspost)" crosses))
+		  (format "%d crosspost message(s)" crosses))))
+      (and ret-val
+	   (setq ret-val (concat ret-val "."))))
+    ;; Update Folder mode
+    (wl-folder-set-folder-updated folder (list 0 
+					       (wl-summary-count-unread 
+						(elmo-msgdb-get-mark-alist
+						 msgdb))
+					       (length in-folder)))
+    (wl-summary-update-modeline)
+    ;;
+    (unless unset-cursor
+      (goto-char (point-min))
+      (if (not (wl-summary-cursor-down t))
+	  (progn
+	    (goto-char (point-max))
+	    (forward-line -1))
+	(if (and wl-summary-highlight
+		 (not (get-text-property (point) 'face)))
+	    (save-excursion
+	      (forward-line (- 0 
+			       (or
+				wl-summary-partial-highlight-above-lines
+				wl-summary-highlight-partial-threshold)))
+	      (wl-highlight-summary (point) (point-max))))))
+    (wl-delete-all-overlays)
+    (set-buffer-modified-p nil)
+    ret-val))
+
+(defun wl-summary-set-score-mark (mark)
+  (save-excursion
+    (beginning-of-line)
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  msg-num
+	  cur-mark)
+      (when (looking-at "^ *\\([0-9]+\\)\\([^0-9]\\)")
+	(setq msg-num  (string-to-int (wl-match-buffer 1)))
+	(setq cur-mark (wl-match-buffer 2))
+	(when (member cur-mark (list " "
+				     wl-summary-score-below-mark
+				     wl-summary-score-over-mark))
+	  (goto-char (match-end 1))
+	  (delete-region (match-beginning 2) (match-end 2))
+	  (insert mark)
+	  (if wl-summary-highlight
+	      (wl-highlight-summary-current-line nil nil t))
+	  (set-buffer-modified-p nil))))))
+
+(defun wl-summary-get-score-mark (msg-num)
+  (let ((score (cdr (assq msg-num wl-summary-scored))))
+    (if score
+	(cond ((< score wl-summary-default-score)
+	       "-")
+	      ((> score wl-summary-default-score)
+	       "+")))))
+
+(defun wl-summary-update-modeline ()
+  (setq wl-summary-buffer-unread-status 
+	(format " {%s}(%d new/%d unread)"
+		(if (eq wl-summary-buffer-view 'thread)
+		    "T" "S")
+		wl-summary-buffer-new-count
+		(+ wl-summary-buffer-new-count
+		   wl-summary-buffer-unread-count))))
+
+(defsubst wl-summary-jump-to-msg (&optional number)
+  (interactive)
+  (let ((num (or number 
+		 (string-to-int 
+		  (read-from-minibuffer "Jump to Message(No.): ")))))
+    (setq num (int-to-string num))
+    (if (re-search-forward (concat "^[ \t]*" num "[^0-9]") nil t)
+	(progn
+	  (beginning-of-line)
+	  t)
+      (if (re-search-backward (concat "^[ \t]*" num "[^0-9]") nil t)
+	  (progn
+	    (beginning-of-line)
+	    t)
+	nil))))
+
+(defun wl-summary-highlight-msgs (msgs)
+  (save-excursion
+    (let ((len (length msgs))
+	  i)
+      (message "Hilighting...")
+      (setq i 0)
+      (while msgs
+	(setq i (+ i 1))
+	(elmo-display-progress
+	 'wl-summary-highlight-msgs "Highlighting..."
+	 (/ (* i 100) len))
+	(if (wl-summary-jump-to-msg (car msgs))
+	    (wl-highlight-summary-current-line))
+	(setq msgs (cdr msgs)))
+      (message "Highlighting...done."))))
+
+(defun wl-summary-message-number ()
+  (save-excursion
+    (beginning-of-line)
+    (if (looking-at "^ *\\([0-9]+\\)")
+	(string-to-int (wl-match-buffer 1))
+      nil)))
+
+(defun wl-summary-move (src dsts-msgs)
+  (let* ((dsts (car dsts-msgs))		; (+foo +bar)
+;;	 (msgs (cdr dsts-msgs))		; (1 2 3)
+;;	 (msgdb wl-summary-buffer-msgdb)
+;;	 result)
+	 )
+    (while dsts
+      (setq dsts (cdr dsts)))))
+
+(defun wl-summary-flush-pending-append-operations (&optional seen-list)
+  "Execute append operations that are done while offline status."
+  (when (and (elmo-folder-plugged-p wl-summary-buffer-folder-name)
+	     elmo-enable-disconnected-operation)
+    (let* ((resumed-list (elmo-dop-append-list-load 
+			  wl-summary-buffer-folder-name t))
+	   (append-list (elmo-dop-append-list-load 
+			 wl-summary-buffer-folder-name))
+	   (appends (append resumed-list append-list))
+	   (number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	   dels pair)
+      (when appends
+	(while appends
+	  (if (setq pair (rassoc (car appends) number-alist))
+	      (setq dels (append dels (list (car pair)))))
+	  (setq appends (cdr appends)))
+	(when dels
+	  (setq seen-list
+		(elmo-msgdb-add-msgs-to-seen-list-subr
+		 dels
+		 wl-summary-buffer-msgdb
+		 (concat wl-summary-important-mark
+			 wl-summary-read-uncached-mark)
+		 seen-list))
+	  (message "Resuming summary status...")
+	  (elmo-msgdb-delete-msgs wl-summary-buffer-folder-name
+				  dels wl-summary-buffer-msgdb t)
+	  (wl-summary-delete-messages-on-buffer dels)
+	  (message "Resuming summary status...done."))
+	;; delete resume-file
+	(elmo-dop-append-list-save wl-summary-buffer-folder-name nil t)
+	(when append-list
+	  (elmo-dop-flush-pending-append-operations 
+	   wl-summary-buffer-folder-name append-list)))))
+  seen-list)
+
+(defun wl-summary-delete-all-msgs ()
+  (interactive)
+  (let ((cur-buf (current-buffer))
+	(dels (elmo-list-folder wl-summary-buffer-folder-name)))
+    (set-buffer cur-buf)
+    (if (null dels)
+	(message "No message to delete.")
+      (if (y-or-n-p (format "%s has %d message(s). Delete all?"
+			    wl-summary-buffer-folder-name
+			    (length dels)))
+	  (progn
+	    (message "Deleting...")
+	    (elmo-delete-msgs wl-summary-buffer-folder-name dels
+			      wl-summary-buffer-msgdb)
+	    (elmo-msgdb-delete-msgs wl-summary-buffer-folder-name
+				    dels wl-summary-buffer-msgdb)
+	    ;;(elmo-msgdb-save wl-summary-buffer-folder-name nil)
+	    (wl-summary-set-message-modified)
+	    (wl-summary-set-mark-modified)
+	    (wl-folder-set-folder-updated wl-summary-buffer-folder-name
+					  (list 0 0 0))
+	    ;; for thread.
+	    ;; (setq wl-thread-top-entity '(nil t nil nil))
+	    (setq wl-summary-buffer-unread-count 0)
+	    (setq wl-summary-buffer-new-count    0)
+	    (wl-summary-update-modeline)
+	    (set-buffer cur-buf)
+	    (let ((inhibit-read-only t)
+		  (buffer-read-only nil))
+	      (erase-buffer))
+	    ;;	  (if wl-summary-cache-use (wl-summary-save-view-cache))      
+	    (message "Deleting...done.")
+	    t)
+	nil))))
+
+(defun wl-summary-toggle-thread (&optional arg)
+  "Toggle thread status (T)hread and (S)equencial."
+  (interactive "P")
+  (when (or arg
+	    (y-or-n-p (format "Toggle threading? (y=%s): " 
+			      (if (eq wl-summary-buffer-view 'thread)
+				  "\"off\"" "\"on\""))))
+    (if (eq wl-summary-buffer-view 'thread)
+	(setq wl-summary-buffer-view 'sequence)
+      (setq wl-summary-buffer-view 'thread))
+    (wl-summary-update-modeline)
+    (force-mode-line-update)
+    (wl-summary-rescan)))
+
+(defun wl-summary-load-file-object (filename)
+  "Load lisp object from dir."
+  (save-excursion
+    (let ((tmp-buffer (get-buffer-create " *wl-summary-load-file-object*"))
+	  insert-file-contents-pre-hook   ; To avoid autoconv-xmas...
+	  insert-file-contents-post-hook 
+	  ret-val)
+      (if (not (file-readable-p filename))
+	  ()
+	(set-buffer tmp-buffer)
+	(as-binary-input-file (insert-file-contents filename))
+	(setq ret-val
+	      (condition-case nil
+		  (read (current-buffer)) 
+		(error (error "reading failed")))))
+      (kill-buffer tmp-buffer)
+      ret-val)))
+
+(defun wl-summary-goto-folder (&optional arg)
+  (interactive "P")
+  (wl-summary-goto-folder-subr nil nil nil arg t))
+
+(defun wl-summary-goto-last-visited-folder ()
+  (interactive)
+  (let ((entity
+	 (wl-folder-search-entity-by-name wl-summary-last-visited-folder
+					  wl-folder-entity
+					  'folder)))
+    (if entity (wl-folder-set-current-entity-id
+		(wl-folder-get-entity-id entity))))
+  (wl-summary-goto-folder-subr wl-summary-last-visited-folder nil nil nil t))
+
+(defun wl-summary-sticky-p (&optional fld)
+  (if fld
+      (get-buffer (wl-summary-sticky-buffer-name fld))
+    (not (string= wl-summary-buffer-name (buffer-name)))))
+
+(defmacro wl-summary-always-sticky-folder-p (fld)
+  (` (wl-string-match-member (, fld) wl-summary-always-sticky-folder-list)))
+
+(defun wl-summary-stick (&optional force)
+  "Make current summary buffer sticky."
+  (interactive "P")
+  (if (wl-summary-sticky-p)
+      (message "Current summary buffer is already sticky.")
+    (when (or force (y-or-n-p "Stick current summary buffer?"))
+      (wl-summary-toggle-disp-msg 'off)
+      (wl-summary-switch-to-clone-buffer 
+       (wl-summary-sticky-buffer-name 
+	wl-summary-buffer-folder-name))
+;;; ???hang up
+;      (rename-buffer (wl-summary-sticky-buffer-name 
+;		      wl-summary-buffer-folder-name)))
+      (message "Folder `%s' is now sticky." wl-summary-buffer-folder-name))))
+
+(defun wl-summary-switch-to-clone-buffer (buffer-name)
+  (let ((cur-buf (current-buffer))
+	(msg (wl-summary-message-number))
+	(buf (get-buffer-create buffer-name))
+	(folder wl-summary-buffer-folder-name)
+	(copy-variables
+	 (append '(wl-summary-buffer-view
+		   wl-summary-buffer-refile-list
+		   wl-summary-buffer-delete-list
+		   wl-summary-buffer-copy-list
+		   wl-summary-buffer-target-mark-list
+		   wl-summary-buffer-msgdb
+		   wl-summary-buffer-number-column
+		   wl-summary-buffer-number-regexp
+		   wl-summary-buffer-message-modified
+		   wl-summary-buffer-mark-modified)
+		 (and (eq wl-summary-buffer-view 'thread)
+		      '(wl-thread-entity-hashtb
+			wl-thread-entities
+			wl-thread-entity-list))
+		 (and wl-use-scoring
+		      '(wl-summary-scored
+			wl-summary-default-score
+			wl-summary-important-above
+			wl-summary-temp-above
+			wl-summary-mark-below
+			wl-summary-expunge-below))
+		 (and (featurep 'wl-score)
+		      '(wl-current-score-file
+			wl-score-alist)))))
+    (set-buffer buf)
+    (wl-summary-buffer-set-folder folder)
+    (wl-summary-mode)
+    (let ((buffer-read-only nil))
+      (insert-buffer cur-buf))
+    (set-buffer-modified-p nil)
+    (mapcar
+     (function
+      (lambda (var)
+	(set var (save-excursion
+		   (set-buffer cur-buf)
+		   (symbol-value var)))))
+     copy-variables)
+    (switch-to-buffer buf)
+    (kill-buffer cur-buf)
+    (setq mode-line-buffer-identification
+	  (format "Wanderlust: %s" 
+		  (if (memq 'modeline wl-use-folder-petname)
+		      (wl-folder-get-petname folder)
+		    folder)))
+    (wl-summary-count-unread 
+     (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+    (wl-summary-update-modeline)
+    (if msg
+	(if (eq wl-summary-buffer-view 'thread)
+	    (wl-thread-jump-to-msg msg)
+	  (wl-summary-jump-to-msg msg))
+      (goto-char (point-max))
+      (beginning-of-line))))
+
+(defun wl-summary-get-buffer (folder)
+  (or (and folder
+	   (get-buffer (wl-summary-sticky-buffer-name folder)))
+      (get-buffer wl-summary-buffer-name)))
+
+(defun wl-summary-get-buffer-create (folder &optional force-sticky)
+  (if force-sticky
+      (get-buffer-create 
+       (wl-summary-sticky-buffer-name folder))
+    (or (get-buffer (wl-summary-sticky-buffer-name folder))
+	(get-buffer-create wl-summary-buffer-name))))
+
+(defun wl-summary-disp-msg (folder disp-msg)
+  (let (disp mes-win)
+    (if (and disp-msg
+	     wl-summary-buffer-disp-msg)
+	(let ((view-message-buffer (get-buffer wl-message-buf-name))
+	      (number (wl-summary-message-number))
+	      cur-folder cur-number sel-win)
+	  (when view-message-buffer
+	    (save-excursion
+	      (set-buffer view-message-buffer)
+	      (setq cur-folder wl-message-buffer-cur-folder
+		    cur-number wl-message-buffer-cur-number))
+	    (when (and (string= folder cur-folder)
+		       (eq number cur-number))
+	      (setq sel-win (selected-window))
+	      (wl-select-buffer view-message-buffer)
+	      (select-window sel-win)
+	      (setq disp t)))))
+    (if (not disp)
+	(setq wl-summary-buffer-disp-msg nil))
+    (when (and (not disp)
+ 	       (setq mes-win (wl-message-buffer-window)))
+      (delete-window mes-win)
+      (run-hooks 'wl-summary-toggle-disp-off-hook))))
+
+(defun wl-summary-goto-folder-subr (&optional folder scan-type other-window 
+					      sticky interactive scoring)
+  "Display target folder on summary"
+  (interactive)
+  (let* ((keep-cursor (memq this-command
+			    wl-summary-keep-cursor-command))
+	 (fld (or folder (wl-summary-read-folder wl-default-folder)))
+	 (cur-fld wl-summary-buffer-folder-name)
+	 buf mes hilit reuse-buf
+	 retval entity)
+    (if (string= fld "")
+	(setq fld wl-default-folder))
+    (when (and (not (string= cur-fld fld)) ; folder is moved.
+	       (eq major-mode 'wl-summary-mode)) ; called in summary.
+      (setq wl-summary-last-visited-folder wl-summary-buffer-folder-name)
+      (wl-summary-cleanup-temp-marks (wl-summary-sticky-p))
+      (wl-summary-save-status 'keep)) ;; keep current buffer, anyway.
+    (setq buf (wl-summary-get-buffer-create fld sticky))
+    (setq reuse-buf
+	  (save-excursion
+	    (set-buffer buf)
+	    (string= fld wl-summary-buffer-folder-name)))
+    (unwind-protect
+	(if reuse-buf
+	    (if interactive
+		(switch-to-buffer buf)
+	      (set-buffer buf))
+	  (if other-window
+	      (delete-other-windows))
+	  (set-buffer buf)
+	  (wl-summary-buffer-set-folder fld)
+	  (unless (eq major-mode 'wl-summary-mode)
+	    (wl-summary-mode))
+	  (setq wl-summary-buffer-disp-msg nil)
+	  (setq wl-summary-buffer-last-displayed-msg nil)
+	  (setq wl-summary-buffer-current-msg nil)
+	  (let ((case-fold-search nil)
+		(inhibit-read-only t)
+		(buffer-read-only nil))
+	    (erase-buffer)
+	    (setq mode-line-buffer-identification
+		  (format "Wanderlust: %s" 
+			  (if (memq 'modeline wl-use-folder-petname)
+			      (wl-folder-get-petname fld)
+			    fld)))
+	      ;; resume summary cache
+	    (if wl-summary-cache-use
+		(let* ((dir (elmo-msgdb-expand-path fld))
+		       (cache (expand-file-name wl-summary-cache-file dir))
+		       (view (expand-file-name wl-summary-view-file dir)))
+		  (when (file-exists-p cache)
+		    (as-binary-input-file
+		     (insert-file-contents cache))
+		    (elmo-set-buffer-multibyte
+		     default-enable-multibyte-characters)
+		    (decode-mime-charset-region
+		     (point-min)(point-max)
+		     wl-summary-buffer-mime-charset))
+		  (when (file-exists-p view)
+		    (setq wl-summary-buffer-view 
+			  (wl-summary-load-file-object view)))
+		  (if (eq wl-summary-buffer-view 'thread)
+		      (wl-thread-resume-entity fld))))
+	    ;; Load msgdb
+	    (setq wl-summary-buffer-msgdb nil) ; new msgdb
+	    (setq wl-summary-buffer-msgdb 
+		  (wl-summary-msgdb-load-async fld))
+	    (if (null wl-summary-buffer-msgdb)
+		(setq wl-summary-buffer-msgdb 
+		      (elmo-msgdb-load (elmo-string fld))))
+	    (wl-summary-count-unread 
+	     (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	    (wl-summary-update-modeline)))
+      (wl-summary-buffer-number-column-detect t)
+      (wl-summary-disp-msg fld (and reuse-buf keep-cursor))
+      (unless (and reuse-buf keep-cursor)
+	(setq hilit wl-summary-highlight)
+	(unwind-protect
+	    (let ((wl-summary-highlight (if reuse-buf wl-summary-highlight))
+		  (wl-use-scoring
+		   (if (or scoring interactive) wl-use-scoring)))
+	      (if (and (not scan-type)
+		       interactive
+		       (not wl-ask-range))
+		  (setq scan-type (wl-summary-get-sync-range fld)))
+	      (cond 
+	       ((eq scan-type nil)
+		(wl-summary-sync 'unset-cursor))
+	       ((eq scan-type 'all)
+		(wl-summary-sync 'unset-cursor "all"))
+	       ((eq scan-type 'no-sync))
+	       ((or (eq scan-type 'force-update)
+		    (eq scan-type 'update))
+		(setq mes (wl-summary-sync-force-update 'unset-cursor)))))
+	  (if interactive
+	      (switch-to-buffer buf)
+	    (set-buffer buf))
+	  ;; stick always-sticky-folder
+	  (when (wl-summary-always-sticky-folder-p fld)
+	    (or (wl-summary-sticky-p) (wl-summary-stick t)))
+	  (run-hooks 'wl-summary-prepared-pre-hook)
+	  (set-buffer-modified-p nil)
+	  (goto-char (point-min))
+	  (if (wl-summary-cursor-down t)
+	      (let ((unreadp (wl-thread-next-mark-p
+			      (wl-thread-entity-get-mark 
+			       (wl-summary-message-number))
+			      wl-summary-move-order)))
+		(cond ((and wl-auto-select-first unreadp)
+		       (setq retval 'disp-msg))
+		      ((not unreadp)
+		       (setq retval 'more-next))))
+	    (goto-char (point-max))
+	    (if (elmo-folder-plugged-p folder) 
+		(forward-line -1)
+	      (wl-summary-prev))
+	    (setq retval 'more-next))
+	  (setq wl-summary-highlight hilit)
+	  (if (and wl-summary-highlight
+		   (not reuse-buf))
+	      (if (and wl-summary-highlight-partial-threshold
+		       (> (count-lines (point-min) (point-max))
+			  wl-summary-highlight-partial-threshold))
+		  (save-excursion
+		    (forward-line (- 
+				   0 
+				   wl-summary-partial-highlight-above-lines))
+		    (wl-highlight-summary (point) (point-max)))
+		(wl-highlight-summary (point-min) (point-max))))
+	  (if (null wl-summary-buffer-msgdb) ;; one more try.
+	      (setq wl-summary-buffer-msgdb 
+		    (elmo-msgdb-load (elmo-string fld))))
+	  (if (eq retval 'disp-msg)
+	      (wl-summary-redisplay))
+	  (if mes (message "%s" mes))
+	  (if (and interactive wl-summary-recenter)
+	      (recenter (/ (- (window-height) 2) 2))))))
+    ;; set current entity-id
+    (if (and (not folder)
+	     (setq entity
+		   (wl-folder-search-entity-by-name fld
+						    wl-folder-entity
+						    'folder)))
+	;; entity-id is unknown.
+	(wl-folder-set-current-entity-id
+	 (wl-folder-get-entity-id entity)))
+    (unwind-protect
+	(run-hooks 'wl-summary-prepared-hook)
+      (set-buffer-modified-p nil))
+    retval))
+
+(defun wl-summary-summary-line-already-exists-p (parent-number buffer)
+  "returns the depth."
+  (set-buffer buffer)
+  (goto-char (point-max))
+  (let ((depth 0))
+    (when (re-search-backward (format "^ *%s..../..\(.*\)..:.. "
+				      parent-number) nil t)
+      (goto-char (match-end 0))
+      (while (string-match wl-thread-indent-regexp 
+			   (char-to-string
+			    (char-after (point))))	  
+	(setq depth (+ 1 depth))
+	(forward-char))
+      (/ depth wl-thread-indent-level-internal))))
+
+(defun wl-summary-goto-bottom-of-current-thread ()
+  (if (re-search-forward (concat "^" wl-summary-buffer-number-regexp 
+				 "..../..\(.*\)..:.. \\[") nil t)
+      ()
+    (goto-char (point-max))))
+
+(defun wl-summary-goto-top-of-current-thread ()
+  (wl-summary-jump-to-msg
+   (wl-thread-entity-get-number
+    (wl-thread-entity-get-top-entity (wl-thread-get-entity 
+				      (wl-summary-message-number))))))
+
+(defun wl-summary-goto-bottom-of-sub-thread (&optional depth)
+  (interactive)
+  (let ((depth (or depth 
+		   (wl-thread-get-depth-of-current-line))))
+    (forward-line 1)
+    (while (and (not (eobp))
+		(>= (wl-thread-get-depth-of-current-line) 
+		    depth))
+      (forward-line 1))
+    (beginning-of-line)))
+
+(defun wl-summary-insert-line (line)
+  "Insert LINE in the Summary."
+  (if wl-use-highlight-mouse-line 
+      ;; remove 'mouse-face of current line.
+      (put-text-property
+       (save-excursion (beginning-of-line)(point))
+       (save-excursion (end-of-line)(point))
+       'mouse-face nil))
+  (insert line "\n")
+  (if wl-use-highlight-mouse-line 
+      ;; remove 'mouse-face of current line.
+      (put-text-property
+       (save-excursion (beginning-of-line)(point))
+       (save-excursion (end-of-line)(point))
+       'mouse-face nil))
+  (condition-case nil ; it's dangerous, so ignore error.
+      (run-hooks 'wl-summary-line-inserted-hook)
+    (error (ding)
+	   (message "Error in wl-summary-line-inserted-hook"))))
+
+(defun wl-summary-insert-summary (entity database mark-alist dummy)
+  (let ((overview-entity entity)
+	summary-line msg)
+    (setq msg (elmo-msgdb-overview-entity-get-number entity))
+    (when (setq summary-line
+		(wl-summary-overview-create-summary-line 
+		 msg entity nil 0 mark-alist))
+      (let ((inhibit-read-only t)
+	    buffer-read-only)
+	(goto-char (point-max))
+	(wl-summary-insert-line summary-line)))))
+
+(defun wl-summary-default-subject-filter (subject)
+  (let ((case-fold-search t))
+    (setq subject (elmo-replace-in-string subject "[ \t]*\\(re\\|was\\):" ""))
+    (setq subject (elmo-replace-in-string subject "[ \t]" ""))
+    (elmo-replace-in-string subject "^\\[.*\\]" "")))
+
+(defun wl-summary-subject-equal (subject1 subject2)
+  (string= (wl-summary-subject-filter-func-internal subject1)
+	   (wl-summary-subject-filter-func-internal subject2)))
+
+(defun wl-summary-insert-thread-entity (entity overview mark-alist update)
+  (let* ((this-id (elmo-msgdb-overview-entity-get-id entity))
+	 (parent-entity 
+	  (elmo-msgdb-overview-get-parent-entity entity overview));; temp
+	 ;;(parent-id (elmo-msgdb-overview-entity-get-id parent-entity))
+	 (parent-number (elmo-msgdb-overview-entity-get-number parent-entity))
+	 msg)
+    (if (and parent-number
+	     wl-summary-divide-thread-when-subject-changed
+	     (not (wl-summary-subject-equal 
+		   (or (elmo-msgdb-overview-entity-get-subject 
+			entity) "")
+		   (or (elmo-msgdb-overview-entity-get-subject 
+			parent-entity) ""))))
+	(setq parent-number nil))
+    (setq msg (elmo-msgdb-overview-entity-get-number entity))
+    (wl-thread-insert-message entity overview mark-alist
+			      msg parent-number update)))
+
+(defun wl-summary-update-thread (entity 
+				 overview 
+				 mark-alist 
+				 thr-entity
+				 parent-entity)
+  (let* ((depth 0)
+	 (this-id (elmo-msgdb-overview-entity-get-id entity))
+	 (overview-entity entity)
+	 (parent-id (elmo-msgdb-overview-entity-get-id parent-entity))
+	 (parent-number (elmo-msgdb-overview-entity-get-number parent-entity))
+	 summary-line msg subject-differ)
+    (cond 
+     ((or (not parent-id)
+	  (string= this-id parent-id))
+      (goto-char (point-max))
+      (beginning-of-line))
+     ;; parent already exists in buffer.
+     ((setq depth (or (wl-summary-summary-line-already-exists-p 
+		       parent-number (current-buffer)) -1))
+      (setq depth (+ 1 depth))
+      (wl-thread-goto-bottom-of-sub-thread)))
+    (if (and (elmo-msgdb-overview-entity-get-number entity))
+	(if (setq summary-line
+		  (wl-summary-overview-create-summary-line 
+		   (elmo-msgdb-overview-entity-get-number entity)
+		   entity parent-entity depth mark-alist nil nil
+		   thr-entity))
+	    (let ((inhibit-read-only t)
+		  (buffer-read-only nil))
+	      (wl-summary-insert-line summary-line))))))
+
+(defun wl-summary-mark-as-unread (&optional number 
+					    no-server-update
+					    no-modeline-update)
+  (interactive)
+  (save-excursion
+    (let* (eol
+	  (inhibit-read-only t)
+	  (buffer-read-only nil)
+	  (folder wl-summary-buffer-folder-name)
+	  (msgdb wl-summary-buffer-msgdb)
+	  (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	  ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+	  new-mark visible mark)
+      (if number 
+	  (progn
+	    (setq visible (wl-summary-jump-to-msg number))
+	    (unless (setq mark (cadr (assq number mark-alist)))
+	      (setq mark " ")))
+	;; interactive
+	(setq visible t))
+      (end-of-line)
+      (setq eol (point))
+      (re-search-backward (concat "^" wl-summary-buffer-number-regexp
+				  "..../..")) ; set cursor line
+      (beginning-of-line)
+      (if (or (and (not visible)
+		   ;; already exists in msgdb.
+		   (assq number (elmo-msgdb-get-number-alist msgdb)))
+	      (re-search-forward 
+	       (format (concat "^ *\\(" 
+			       (if number (int-to-string number)
+				 "[0-9]+")
+			       "\\)[^0-9]\\(%s\\|%s\\)")
+		       wl-summary-read-uncached-mark
+		       " ") eol t))
+	  (progn
+	    (setq number (or number (string-to-int (wl-match-buffer 1))))
+	    (setq mark (or mark (elmo-match-buffer 2)))
+	    (save-match-data
+	      (setq new-mark (if (string= mark
+					  wl-summary-read-uncached-mark)
+				 wl-summary-unread-uncached-mark
+			       (if (elmo-use-cache-p folder number)
+				   wl-summary-unread-mark
+				 wl-summary-unread-uncached-mark))))
+	    ;; server side mark
+	    (unless no-server-update
+	      (elmo-mark-as-unread folder (list number)
+				   msgdb))
+	    (when visible
+	      (delete-region (match-beginning 2) (match-end 2))
+	      (insert new-mark))
+	    (setq mark-alist
+		  (elmo-msgdb-mark-set mark-alist
+				       number
+				       new-mark))
+	    (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	    (unless no-modeline-update
+	      (setq wl-summary-buffer-unread-count 
+		    (+ 1 wl-summary-buffer-unread-count))
+	      (wl-summary-update-modeline)
+	      (wl-folder-update-unread 
+	       folder
+	       (+ wl-summary-buffer-unread-count 
+		  wl-summary-buffer-new-count)))
+	    (wl-summary-set-mark-modified)
+	    (if (and visible wl-summary-highlight)
+		(wl-highlight-summary-current-line))))))
+  (set-buffer-modified-p nil))
+
+(defun wl-summary-delete (&optional number)
+  "Mark Delete mark 'D'.
+If optional argument NUMBER is specified, mark message specified by NUMBER."
+  (interactive)
+  (let* ((buffer-num (wl-summary-message-number))
+	 (msg-num (or number buffer-num))
+	 mark)
+    (catch 'done
+      (when (null msg-num)
+	(if (interactive-p)
+	    (message "No message."))
+	(throw 'done nil))
+      (when (setq mark (wl-summary-get-mark msg-num))
+	(when (wl-summary-reserve-temp-mark-p mark)
+	  (if (interactive-p)
+	      (error "Already marked as `%s'" mark))
+	  (throw 'done nil))
+	(wl-summary-unmark msg-num))
+      (if (or (interactive-p)
+	      (eq number buffer-num))
+	  (wl-summary-mark-line "D"))
+      (setq wl-summary-buffer-delete-list
+	    (cons msg-num wl-summary-buffer-delete-list))
+      (if (interactive-p)
+	  (if (eq wl-summary-move-direction-downward nil)
+	      (wl-summary-prev)
+	    (wl-summary-next)))
+      msg-num)))
+
+(defun wl-summary-remove-destination ()
+  (save-excursion
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+          (buf (current-buffer))
+          sol eol rs re)
+      (beginning-of-line)
+      (setq sol (point))
+      (end-of-line)
+      (setq eol (point))
+      (setq rs (next-single-property-change sol 'wl-summary-destination
+					    buf eol))
+      (setq re (next-single-property-change rs 'wl-summary-destination
+					    buf eol))
+      (put-text-property rs re 'wl-summary-destination nil)
+      (put-text-property rs re 'invisible nil)
+      (goto-char re)
+      (delete-char (- eol re)))))
+
+(defun wl-summary-check-mark (msg mark)
+  (let ((check-func (cond ((string= mark "o")
+			   'wl-summary-msg-marked-as-refiled)
+			  ((string= mark "O")
+			   'wl-summary-msg-marked-as-copied)
+			  ((string= mark "D")
+			   'wl-summary-msg-marked-as-deleted)
+			  ((string= mark "*")
+			   'wl-summary-msg-marked-as-target))))
+    (if check-func
+	(funcall check-func msg))))
+
+(defun wl-summary-mark-collect (mark &optional begin end)
+  (save-excursion
+    (save-restriction
+      (let (msglist)
+	(narrow-to-region (or begin (point-min))
+			  (or end (point-max)))
+	(goto-char (point-min))
+	;; for thread...
+	(if (eq wl-summary-buffer-view 'thread)
+	    (progn
+	      (while (not (eobp))
+		(let* ((number (wl-summary-message-number))
+		       (entity (wl-thread-get-entity number))
+		       result)
+		  ;; opened...only myself is checked.
+		  (if (wl-summary-check-mark number mark)
+		      (wl-append msglist (list number)))
+		  (unless (wl-thread-entity-get-opened entity) 
+		    ;; closed...children is also checked.
+		    (if (setq result (wl-thread-get-children-msgs-with-mark
+				      number
+				      mark))
+			(wl-append msglist result)))
+		  (forward-line 1)))
+	      (elmo-uniq-list msglist))
+	  (let* ((case-fold-search nil)
+		 (re (format (concat wl-summary-message-regexp "%s") 
+			     (regexp-quote mark))))
+	    (while (re-search-forward re nil t)
+	      (setq msglist (cons (wl-summary-message-number) msglist)))
+	    (nreverse msglist)))))))
+
+(defun wl-summary-exec ()
+  (interactive)
+  (wl-summary-exec-subr (mapcar 'car wl-summary-buffer-refile-list)
+			(reverse wl-summary-buffer-delete-list)
+			(mapcar 'car wl-summary-buffer-copy-list)))
+
+(defun wl-summary-exec-region (beg end)
+  (interactive "r")
+  (message "Collecting marks ...")
+  (save-excursion
+    (goto-char beg)
+    (beginning-of-line)
+    (setq beg (point))
+    (goto-char (1- end))
+    (forward-line)
+    (setq end (point))
+    (wl-summary-exec-subr (wl-summary-mark-collect "o" beg end)
+			  (wl-summary-mark-collect "D" beg end)
+			  (wl-summary-mark-collect "O" beg end))))
+  
+(defun wl-summary-exec-subr (msgs dels cpys)
+  (save-excursion
+    (let* ((del-fld (wl-summary-get-delete-folder 
+		     wl-summary-buffer-folder-name))
+	   (start (point))
+	   dst tmp msg msgs2 cpys2
+	   msg-dst dst-msgs len 
+	   refile-failures 
+	   copy-failures
+	   succeeds result executed)
+      (if (not (or msgs dels cpys))
+	  (message "No marks")
+	(message "Executing ...")
+	(setq msgs (append msgs dels))
+	(setq msgs2 msgs)
+	(while dels
+	  (when (not (assq (car dels) wl-summary-buffer-refile-list))
+	    (wl-append wl-summary-buffer-refile-list
+		       (list (cons (car dels) del-fld)))
+	    (setq wl-summary-buffer-delete-list
+		  (delete (car dels) wl-summary-buffer-delete-list)))
+	  (setq dels (cdr dels)))
+	(setq len (length msgs2))
+	;; begin refile...
+	(while msgs
+	  (setq msg (car msgs))
+	  (setq msgs (cdr msgs))
+	  (setq msg-dst (assq msg wl-summary-buffer-refile-list))
+	  (setq dst (cdr msg-dst))
+	  (if dst
+	      (if (setq tmp (assoc dst dst-msgs))
+		  (setq dst-msgs (cons (append tmp (list msg))
+					 (delete tmp dst-msgs)))
+		(setq dst-msgs (cons (list dst msg) dst-msgs)))))
+	(setq refile-failures 0)
+	(goto-char start) ; avoid moving cursor to the bottom line.
+	(setq executed 0)
+	(while dst-msgs
+	  ;;(elmo-msgdb-add-msgs-to-seen-list 
+	  ;; (car (car dst-msgs)) ;dst-folder	   
+	  ;; (cdr (car dst-msgs)) ;msgs 
+	  ;; wl-summary-buffer-msgdb 
+	  ;; (concat wl-summary-important-mark
+	  ;;  wl-summary-read-uncached-mark))
+	  (setq result nil)
+	  (condition-case nil
+	      (setq result (elmo-move-msgs wl-summary-buffer-folder-name 
+					   (cdr (car dst-msgs))
+					   (car (car dst-msgs))
+					   wl-summary-buffer-msgdb 
+					   len executed (cdr dst-msgs)
+					   nil ; no-delete
+					   nil ; same-number
+					   (list wl-summary-unread-cached-mark
+						 wl-summary-unread-uncached-mark
+						 wl-summary-new-mark)))
+	    (error nil))
+	  (if result ; succeeded.
+	      (progn
+		;; update buffer.
+		(wl-summary-delete-messages-on-buffer 
+		 (cdr (car dst-msgs)))
+		;; update refile-alist.
+		(mapcar 
+		 (function 
+		  (lambda (x)
+		    (setq wl-summary-buffer-refile-list
+			  (delq (assq x wl-summary-buffer-refile-list)
+				wl-summary-buffer-refile-list))))
+		 (cdr (car dst-msgs))))
+	    (setq refile-failures 
+		  (+ refile-failures (length (cdr (car dst-msgs))))))
+	  (setq executed (+ executed (length (cdr (car dst-msgs)))))
+	  (setq dst-msgs (cdr dst-msgs)))
+	;; end refile
+	;; begin cOpy...
+	(setq cpys2 cpys)
+	(setq len (length cpys2))
+	(while cpys
+	  (setq msg (car cpys))
+	  (setq cpys (cdr cpys))
+	  (setq msg-dst (assq msg wl-summary-buffer-copy-list))
+	  (setq dst (cdr msg-dst))
+	  (if dst
+	      (if (setq tmp (assoc dst dst-msgs))
+		  (setq dst-msgs (cons (append tmp (list msg))
+				       (delete tmp dst-msgs)))
+		(setq dst-msgs (cons (list dst msg) dst-msgs)))))
+	(setq copy-failures 0)
+	(setq executed 0)
+	(while dst-msgs
+	  ;;(elmo-msgdb-add-msgs-to-seen-list 
+	  ;;(car (car dst-msgs)) ;dst-folder	   
+	  ;;(cdr (car dst-msgs)) ;msgs 
+	  ;;wl-summary-buffer-msgdb 
+	  ;;(concat wl-summary-important-mark
+	  ;;wl-summary-read-uncached-mark))
+	  (setq result nil)
+	  (condition-case nil
+	      (setq result (elmo-move-msgs wl-summary-buffer-folder-name 
+					   (cdr (car dst-msgs))
+					   (car (car dst-msgs))
+					   wl-summary-buffer-msgdb 
+					   len executed 
+					   (cdr dst-msgs) 
+					   t ; t is no-delete (copy)
+					   nil ; same number
+					   (list 
+					    wl-summary-unread-cached-mark
+					    wl-summary-unread-uncached-mark
+					    wl-summary-new-mark)))
+	    (error nil))
+	  (if result ; succeeded.
+	      (progn
+		;; update buffer.
+		(wl-summary-delete-copy-marks-on-buffer (cdr (car dst-msgs)))
+		;; update copy-alist
+		(mapcar
+		 (function
+		  (lambda (x)
+		    (setq wl-summary-buffer-copy-list
+			  (delq (assq x wl-summary-buffer-copy-list)
+				wl-summary-buffer-copy-list))))
+		 (cdr (car dst-msgs))))
+	    (setq copy-failures
+		  (+ copy-failures (length (cdr (car dst-msgs))))))
+	  (setq executed (+ executed (length (cdr (car dst-msgs)))))
+	  (setq dst-msgs (cdr dst-msgs)))
+	;; end cOpy 
+	(wl-summary-folder-info-update)
+	(wl-summary-set-message-modified)
+	(wl-summary-set-mark-modified)
+	(run-hooks 'wl-summary-exec-hook)
+	(set-buffer-modified-p nil)
+	(message (concat "Executing ... done"
+			 (if (> refile-failures 0)
+			     (format " (%d refiling failed)" refile-failures)
+			   "")
+			 (if (> copy-failures 0)
+			     (format " (%d copying failed)" copy-failures)
+			   "")
+			 "."))))))
+
+(defun wl-summary-read-folder (default &optional purpose ignore-error
+				no-create init)
+  (let ((fld (completing-read
+	      (format "Folder name %s(%s): " (or purpose "")
+		      default)
+	      (or wl-folder-completion-func
+		  (if (memq 'read-folder wl-use-folder-petname)
+		      (wl-folder-get-entity-with-petname)
+		    wl-folder-entity-hashtb))
+	      nil nil (or init wl-default-spec)
+	      'wl-read-folder-hist)))
+    (setq fld (elmo-string (wl-folder-get-realname fld)))
+    (if (string-match "\n" fld)
+	(error "Not supported folder name: %s" fld))
+    (if (or (string= fld wl-default-spec)
+	    (string= fld ""))
+	(setq fld default))
+    (unless no-create
+      (wl-folder-confirm-existence fld ignore-error))
+    fld))
+
+(defun wl-summary-print-destination (msg-num folder)
+  "Print refile destination on line."
+  (wl-summary-remove-destination)
+  (let ((inhibit-read-only t)
+	(buffer-read-only nil)
+	len rs re c)
+    (setq len (string-width folder))
+    (if (< len 1) ()
+      (end-of-line)
+      (setq re (point))
+      (setq c 0)
+      (while (< c len)
+	(forward-char -1)
+	(setq c (+ c (char-width (following-char)))))
+      (setq rs (point))
+      (put-text-property rs re 'invisible t)
+      (put-text-property rs re 'wl-summary-destination t)
+      (goto-char re)
+      (wl-highlight-refile-destination-string folder)
+      (insert folder)
+      (set-buffer-modified-p nil))))
+
+;; override.
+(when wl-on-nemacs
+  (defun wl-summary-print-destination (msg-num &optional folder))
+  (defun wl-summary-remove-destination ()))
+
+(defsubst wl-summary-get-mark (number)
+  "Returns a temporal mark of message specified by NUMBER."
+  (or (and (memq number wl-summary-buffer-delete-list) "D")
+      (and (assq number wl-summary-buffer-copy-list) "O")
+      (and (assq number wl-summary-buffer-refile-list) "o")
+      (and (assq number wl-summary-buffer-target-mark-list) "*")))
+
+(defsubst wl-summary-reserve-temp-mark-p (mark)
+  "Returns t if temporal MARK should be reserved."
+  (member mark wl-summary-reserve-mark-list))
+
+(defun wl-summary-refile (&optional dst number)
+  "Put refile mark on current line message.
+If optional argument DST is specified, put mark without asking
+destination folder.
+If optional argument NUMBER is specified, mark message specified by NUMBER.
+
+If folder is read-only, message should be copied. 
+See `wl-refile-policy-alist' for more details."  
+  (interactive)
+  (let ((policy (wl-get-assoc-list-value wl-refile-policy-alist
+					 wl-summary-buffer-folder-name)))
+    (cond ((eq policy 'copy)
+	   (if (interactive-p)
+	       (call-interactively 'wl-summary-copy)
+	     (wl-summary-copy dst number)))
+	  (t
+	   (wl-summary-refile-subr "refile" (interactive-p) dst number)))))
+
+(defun wl-summary-copy (&optional dst number)
+  "Put refile mark on current line message.
+If optional argument DST is specified, put mark without asking
+destination folder.
+If optional argument NUMBER is specified, mark message specified by NUMBER."
+  (interactive)
+  (wl-summary-refile-subr "copy" (interactive-p) dst number))
+
+(defun wl-summary-refile-subr (copy-or-refile interactive &optional dst number)
+  (interactive)
+  (let* ((buffer-num (wl-summary-message-number))
+	 (msg-num (or number buffer-num))
+	 (msgid (and msg-num 
+		     (cdr (assq msg-num
+				(elmo-msgdb-get-number-alist
+				 wl-summary-buffer-msgdb)))))
+	 (entity (and msg-num
+		      (elmo-msgdb-overview-get-entity-by-number
+		       (elmo-msgdb-get-overview wl-summary-buffer-msgdb)
+		       msg-num)))
+	 (variable 
+	  (intern (format "wl-summary-buffer-%s-list" copy-or-refile)))
+	 folder mark already tmp-folder)
+    (catch 'done
+      (when (null entity)
+	;; msgdb is empty?
+	(if interactive
+	    (message "Cannot refile."))
+	(throw 'done nil))
+      (when (null msg-num)
+	(if interactive
+	    (message "No message."))
+	(throw 'done nil))
+      (when (setq mark (wl-summary-get-mark msg-num))
+	(when (wl-summary-reserve-temp-mark-p mark)
+	  (if interactive
+	      (error "Already marked as `%s'" mark))
+	  (throw 'done nil)))
+      (setq folder (and msg-num
+			(or dst (wl-summary-read-folder 
+				 (or (wl-refile-guess entity) wl-trash-folder)
+				 (format "for %s" copy-or-refile)))))
+      ;; Cache folder hack by okada@opaopa.org
+      (if (and (eq (car (elmo-folder-get-spec folder)) 'cache)
+ 	       (not (string= folder
+			     (setq tmp-folder
+				   (concat "'cache/" 
+					   (elmo-cache-get-path-subr
+					    (elmo-msgid-to-cache msgid)))))))
+ 	  (progn 
+ 	    (setq folder tmp-folder)
+ 	    (message "Force refile to %s." folder)))
+      (if (string= folder wl-summary-buffer-folder-name)
+	  (error "Same folder"))
+      (if (and
+	   (not (elmo-folder-plugged-p folder))
+	   (or (null msgid)
+	       (not (elmo-cache-exists-p msgid))))
+	  (error "Unplugged (no cache or msgid)"))
+      (if (or (string= folder wl-queue-folder)
+	      (string= folder wl-draft-folder))
+	  (error "Don't %s messages to %s" copy-or-refile folder))
+      ;; learn for refile.
+      (if (string= "refile" copy-or-refile)
+	  (wl-refile-learn entity folder))
+      (wl-summary-unmark msg-num)
+      (set variable (append 
+		     (symbol-value variable)
+		     (list (cons msg-num folder))))
+      (when (or interactive
+		(eq number buffer-num))
+	(wl-summary-mark-line (if (string= "refile" copy-or-refile)
+				  "o" "O"))
+	;; print refile destination
+	(wl-summary-print-destination msg-num folder))
+      (if interactive
+	  (if (eq wl-summary-move-direction-downward nil)
+	      (wl-summary-prev)
+	    (wl-summary-next)))
+      (run-hooks (intern (format "wl-summary-%s-hook" copy-or-refile)))
+      (setq wl-summary-buffer-prev-refile-destination folder)
+      msg-num)))
+
+(defun wl-summary-refile-prev-destination ()
+  "Refile message to previously refiled destination"
+  (interactive)
+  (wl-summary-refile wl-summary-buffer-prev-refile-destination
+		     (wl-summary-message-number))
+  (if (eq wl-summary-move-direction-downward nil)
+      (wl-summary-prev)
+    (wl-summary-next)))
+
+(defun wl-summary-copy-prev-destination ()
+  "Refile message to previously refiled destination"
+  (interactive)
+  (wl-summary-copy wl-summary-buffer-prev-copy-destination
+		   (wl-summary-message-number))
+  (if (eq wl-summary-move-direction-downward nil)
+      (wl-summary-prev)
+    (wl-summary-next)))
+
+(defsubst wl-summary-no-auto-refile-message-p (msg mark-alist) 
+  (member (cadr (assq msg mark-alist)) wl-summary-auto-refile-skip-marks))
+
+(defun wl-summary-auto-refile-check-refile-rule-alist ()
+  (when wl-refile-rule-alist
+    (message "Checking destination folders...")
+    (let ((ralist wl-refile-rule-alist)
+	  pairs dsts)
+      (while ralist
+	(setq pairs (cdr (car ralist)))
+	(while pairs
+	  (if (not (member (cdr (car pairs)) dsts))
+	      (setq dsts (cons (cdr (car pairs)) dsts)))
+	  (setq pairs (cdr pairs)))
+	(setq ralist (cdr ralist)))
+      (mapcar 
+       'wl-folder-confirm-existence
+       dsts))
+    (message "Checking destination folders...done.")))
+
+(defun wl-summary-auto-refile (&optional open-all)
+  "Set refile mark automatically according to wl-refile-guess-by-rule."
+  (interactive "P")
+  (wl-summary-auto-refile-check-refile-rule-alist)
+  (message "Marking...")
+  (save-excursion
+    (if (and (eq wl-summary-buffer-view 'thread)
+	     open-all) 
+	(wl-thread-open-all))
+    (let* ((spec wl-summary-buffer-folder-name)
+	   (overview (elmo-msgdb-get-overview
+		      wl-summary-buffer-msgdb))
+	   (mark-alist (elmo-msgdb-get-mark-alist
+			wl-summary-buffer-msgdb))
+	   (count 0)
+	   number dst thr-entity)
+      (goto-line 1)
+      (while (not (eobp))
+	(setq number (wl-summary-message-number))
+	(when (and (not (wl-summary-no-auto-refile-message-p number 
+							     mark-alist))
+		   (setq dst
+			 (wl-refile-guess-by-rule
+			  (elmo-msgdb-overview-get-entity-by-number
+			   overview number)))
+		   (not (equal dst spec)))
+	  ;(wl-folder-confirm-existence dst)
+	  (if (wl-summary-refile dst number)
+	      (incf count))
+	  (message "Marking...%d message(s)." count))
+	(if (eq wl-summary-buffer-view 'thread)
+	    ;; process invisible children.
+	    (if (not (wl-thread-entity-get-opened
+		      (setq thr-entity (wl-thread-get-entity number))))
+		(mapcar 
+		 (function
+		  (lambda (x)
+		    (when (and (setq dst 
+				     (wl-refile-guess-by-rule
+				      (elmo-msgdb-overview-get-entity-by-number 
+				       overview x)))
+			       (not (equal dst spec)))
+		      (if (wl-summary-refile dst x)
+			  (incf count))
+		      (message "Marking...%d message(s)." count))))
+		 (elmo-delete-if
+		  (function (lambda (x)
+			      (wl-summary-no-auto-refile-message-p 
+			       x
+			       mark-alist)))
+		  (wl-thread-entity-get-descendant thr-entity)))))
+	(forward-line))
+      (if (eq count 0)
+	  (message "No message was marked.")
+	(message "Marked %d message(s)." count)))))
+
+(defun wl-summary-unmark (&optional number)
+  "Unmark marks (temporary, refile, copy, delete)of current line. 
+If optional argument NUMBER is specified, unmark message specified by NUMBER."
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  visible
+	  msg-num
+	  cur-mark
+	  score-mark)
+      (if number
+	  (setq visible (wl-summary-jump-to-msg number))
+	(setq visible t))
+      ;; Delete mark on buffer.
+      (when (and visible 
+		 (looking-at "^ *\\([0-9]+\\)\\([^0-9]\\)"))
+	(goto-char (match-end 2))
+	(or number
+	    (setq number (string-to-int (wl-match-buffer 1))))
+	(setq cur-mark (wl-match-buffer 2))
+	(if (string= cur-mark " ")
+	    ()
+	  (delete-region (match-beginning 2) (match-end 2))
+	  (if (setq score-mark (wl-summary-get-score-mark number))
+	      (insert score-mark)
+	    (insert " ")))
+	(if (or (string= cur-mark "o")
+		(string= cur-mark "O"))
+	    (wl-summary-remove-destination))
+	(if wl-summary-highlight	  
+	    (wl-highlight-summary-current-line nil nil score-mark))
+	(set-buffer-modified-p nil))
+      ;; Remove from temporary mark structure.
+      (and number
+	   (wl-summary-delete-mark number)))))
+
+(defun wl-summary-msg-marked-as-target (msg)
+  (if (memq msg wl-summary-buffer-target-mark-list)
+      t))
+
+(defun wl-summary-msg-marked-as-copied (msg)
+  (assq msg wl-summary-buffer-copy-list))
+
+(defun wl-summary-msg-marked-as-deleted (msg)
+  (if (memq msg wl-summary-buffer-delete-list)
+      t))
+
+(defun wl-summary-msg-marked-as-refiled (msg)
+  (assq msg wl-summary-buffer-refile-list))
+
+(defun wl-summary-target-mark (&optional number)
+  "Put target mark '*' on current message.
+If optional argument NUMBER is specified, mark message specified by NUMBER."
+  (interactive)
+  (let* ((buffer-num (wl-summary-message-number))
+	 (msg-num (or number buffer-num))
+	 mark)
+    (catch 'done
+      (when (null msg-num)
+	(if (interactive-p)
+	    (message "No message."))
+	(throw 'done nil))
+      (when (setq mark (wl-summary-get-mark msg-num))
+	(when (wl-summary-reserve-temp-mark-p mark)
+	  (if (interactive-p)
+	      (error "Already marked as `%s'" mark))
+	  (throw 'done nil))
+	(wl-summary-unmark msg-num))
+      (if (or (interactive-p)
+	      (eq number buffer-num))
+	  (wl-summary-mark-line "*"))
+      (setq wl-summary-buffer-target-mark-list
+	    (cons msg-num wl-summary-buffer-target-mark-list))
+      (if (interactive-p)
+	  (if (eq wl-summary-move-direction-downward nil)
+	      (wl-summary-prev)
+	    (wl-summary-next)))
+      msg-num)))
+
+
+(defun wl-summary-refile-region (beg end)
+  "Put copy mark on messages in the region specified by BEG and END."
+  (interactive "r")
+  (wl-summary-refile-region-subr "refile" beg end))
+  
+(defun wl-summary-copy-region (beg end)
+  "Put copy mark on messages in the region specified by BEG and END."
+  (interactive "r")
+  (wl-summary-refile-region-subr "copy" beg end))
+
+(defun wl-summary-refile-region-subr (copy-or-refile beg end)
+  (save-excursion
+    (save-restriction
+      (goto-char beg)
+      ;; guess by first msg
+      (let* ((msgid (cdr (assq (wl-summary-message-number)
+				(elmo-msgdb-get-number-alist
+				 wl-summary-buffer-msgdb))))
+	     (function (intern (format "wl-summary-%s" copy-or-refile)))
+	     (entity (assoc msgid (elmo-msgdb-get-overview
+				   wl-summary-buffer-msgdb)))
+	     folder)
+  	(if entity
+  	    (setq folder (wl-summary-read-folder (wl-refile-guess entity)
+ 						 (format "for %s"
+							 copy-or-refile))))
+ 	(narrow-to-region beg end)
+ 	(if (eq wl-summary-buffer-view 'thread)
+ 	    (progn
+ 	      (while (not (eobp))
+ 		(let* ((number (wl-summary-message-number))
+ 		       (entity (wl-thread-get-entity number))
+ 		       children)
+ 		  (if (wl-thread-entity-get-opened entity)
+ 		      ;; opened...refile line.
+ 		      (funcall function folder number)
+ 		    ;; closed
+		    (mapcar
+		     (function
+		      (lambda (x)
+			(funcall function folder x)))
+		     (wl-thread-get-children-msgs number)))
+ 		  (forward-line 1))))
+ 	  (while (not (eobp))
+ 	    (funcall function folder (wl-summary-message-number))
+ 	    (forward-line 1)))))))
+
+(defun wl-summary-unmark-region (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (if (eq wl-summary-buffer-view 'thread)
+	  (progn
+	    (while (not (eobp))
+	      (let* ((number (wl-summary-message-number))
+		     (entity (wl-thread-get-entity number)))
+		(if (wl-thread-entity-get-opened entity)
+		    ;; opened...unmark line.
+		    (wl-summary-unmark)
+		  ;; closed
+		  (mapcar
+		   'wl-summary-unmark
+		   (wl-thread-get-children-msgs number))))
+	      (forward-line 1)))
+	(while (not (eobp))
+	  (wl-summary-unmark)
+	  (forward-line 1))))))
+
+(defun wl-summary-mark-region-subr (function beg end)
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (if (eq wl-summary-buffer-view 'thread)
+	  (progn
+	    (while (not (eobp))
+	      (let* ((number (wl-summary-message-number))
+		     (entity (wl-thread-get-entity number))
+		     (wl-summary-move-direction-downward t))
+		(if (wl-thread-entity-get-opened entity)
+		    ;; opened...delete line.
+		    (funcall function number)
+		  ;; closed
+		  (mapcar
+		   function
+		   (wl-thread-get-children-msgs number)))
+		(forward-line 1))))
+	(while (not (eobp))
+	  (funcall function (wl-summary-message-number))
+	  (forward-line 1))))))
+
+(defun wl-summary-delete-region (beg end)
+  (interactive "r")
+  (wl-summary-mark-region-subr 'wl-summary-delete beg end))
+
+(defun wl-summary-target-mark-region (beg end)
+  (interactive "r")
+  (wl-summary-mark-region-subr 'wl-summary-target-mark beg end))
+
+(defun wl-summary-target-mark-all ()
+  (interactive)
+  (wl-summary-target-mark-region (point-min) (point-max))
+  (setq wl-summary-buffer-target-mark-list 
+	(mapcar 'car 
+		(elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))))
+
+(defun wl-summary-delete-all-mark (mark)
+  (goto-char (point-min))
+  (let ((case-fold-search nil))
+    (while (re-search-forward (format "^ *[0-9]+%s" 
+				      (regexp-quote mark)) nil t)
+      (wl-summary-unmark))
+    (cond ((string= mark "*")
+	   (setq wl-summary-buffer-target-mark-list nil))
+	  ((string= mark "D")
+	   (setq wl-summary-buffer-delete-list nil))
+	  ((string= mark "O")
+	   (setq wl-summary-buffer-copy-list nil))
+	  ((string= mark "o")
+	   (setq wl-summary-buffer-refile-list nil)))))
+
+(defun wl-summary-unmark-all ()
+  "Unmark all according to what you input."
+  (interactive)
+  (let ((unmarks (string-to-char-list (read-from-minibuffer "Unmark: ")))
+	cur-mark)
+    (save-excursion
+      (while unmarks
+	(setq cur-mark (char-to-string (car unmarks)))
+	(wl-summary-delete-all-mark cur-mark)
+	(setq unmarks (cdr unmarks))))))
+
+(defun wl-summary-target-mark-thread ()
+  (interactive)
+  (let (beg end)
+    (end-of-line)
+    (wl-summary-goto-top-of-current-thread)
+    (wl-thread-force-open)
+    (setq beg (point))
+    (end-of-line)
+    (wl-summary-goto-bottom-of-current-thread)
+;    (forward-line -1)
+    (beginning-of-line)
+    (setq end (point))
+    (wl-summary-target-mark-region beg end)))
+
+(defun wl-summary-target-mark-msgs (msgs)
+  (while msgs
+    (if (eq wl-summary-buffer-view 'thread)
+	(wl-thread-jump-to-msg (car msgs))
+      (wl-summary-jump-to-msg (car msgs)))
+    (wl-summary-target-mark (wl-summary-message-number))
+    (setq msgs (cdr msgs))))
+
+(defun wl-summary-pick (&optional from-list delete-marks)
+  (interactive)
+  (save-excursion
+    (let* ((completion-ignore-case t)
+	   (field (completing-read
+		   (format "Field name (%s): " wl-summary-pick-field-default)
+		   (mapcar 'list
+			   (append '("From" "Subject" "Date"
+				     "To" "Cc" "Body" "Since" "Before")
+				   elmo-msgdb-extra-fields))))
+	   (field (if (string= field "")
+		      (setq field wl-summary-pick-field-default)
+		    field))
+	   (value (if (string-match field "Since\\|Before")
+		      (completing-read "Value: "
+				       (mapcar (function
+						(lambda (x)
+						  (list (format "%s" (car x)))))
+					       elmo-date-descriptions))
+		    (read-from-minibuffer "Value: ")))
+	   (overview (elmo-msgdb-get-overview wl-summary-buffer-msgdb))
+	   (number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	   (elmo-search-mime-charset wl-search-mime-charset)
+	   server-side-search
+	   result get-func sum)
+      (if delete-marks
+	  (let ((mlist wl-summary-buffer-target-mark-list))
+	    (while mlist
+	      (when (wl-summary-jump-to-msg (car mlist))
+		(wl-summary-unmark))
+	      (setq mlist (cdr mlist)))
+	    (setq wl-summary-buffer-target-mark-list nil)))
+      (setq field (downcase field))
+      (cond 
+       ((string-match field "from")
+	(setq get-func 'elmo-msgdb-overview-entity-get-from))
+       ((string-match field "subject")
+	(setq get-func 'elmo-msgdb-overview-entity-get-subject))
+       ((string-match field "date")
+	(setq get-func 'elmo-msgdb-overview-entity-get-date))
+       ((string-match field "to")
+	(setq get-func 'elmo-msgdb-overview-entity-get-to))
+       ((string-match field "cc")
+	(setq get-func 'elmo-msgdb-overview-entity-get-cc))
+       ((string-match field "since")
+	(setq server-side-search (vector 'date "since" value)))
+       ((string-match field "before")
+	(setq server-side-search (vector 'date "before" value)))
+       ((string-match field "body")
+	(setq server-side-search (vector 'match "body" value)))
+       ((member field elmo-msgdb-extra-fields)
+	(setq get-func
+	      (lambda (entity)
+		(elmo-msgdb-overview-entity-get-extra-field entity field))))
+       (t
+	(error "Pick by %s is not supported" field)))
+      (unwind-protect
+	  (if server-side-search
+	      (progn
+		(message "Searching...")
+		(let ((elmo-mime-charset wl-summary-buffer-mime-charset))
+		  (setq result (elmo-search wl-summary-buffer-folder-name 
+					    (list server-side-search))))
+		(if from-list
+		    (setq result (elmo-list-filter from-list result)))
+		(message "%d message(s) are picked." (length result)))
+	    (setq sum 0)
+	    (message "Searching...")
+	    (while overview
+	      (when (and (string-match value
+				       (or 
+					(funcall get-func (car overview))
+					""))
+			 (or (not from-list)
+			     (memq 
+			      (elmo-msgdb-overview-entity-get-number
+			       (car overview)) from-list)))
+		(setq result
+		      (append result
+			      (list
+			       (elmo-msgdb-overview-entity-get-number
+				(car overview)))))
+		(message "Picked %d message(s)." (setq sum (+ sum 1))))
+	      (setq overview (cdr overview)))
+	    (message "%d message(s) are picked." sum))
+	(if (null result)
+	    (message "No message was picked.")
+	  (wl-summary-target-mark-msgs result))))))
+  
+(defun wl-summary-unvirtual ()
+  "Exit from current virtual folder."
+  (interactive)
+  (if (eq 'filter
+	  (elmo-folder-get-type wl-summary-buffer-folder-name))
+      (wl-summary-goto-folder-subr (nth 2 (elmo-folder-get-spec
+					   wl-summary-buffer-folder-name))
+				   'update nil nil t)
+    (error "This folder is not filtered")))
+
+(defun wl-summary-virtual (&optional arg)
+  "Goto virtual folder."
+  (interactive "P")
+  (if arg
+      (wl-summary-unvirtual)
+    (let* ((completion-ignore-case t)
+	   (field (completing-read (format "Field name (%s): " 
+					   wl-summary-pick-field-default)
+				   '(("From" . "From") 
+				     ("Subject" . "Subject")
+				     ("To" . "To")
+				     ("Cc" . "Cc")
+				     ("Body" . "Body")
+				     ("Since" . "Since")
+				     ("Before" . "Before"))))
+	   (value (read-from-minibuffer "Value: ")))
+      (if (string= field "")
+	  (setq field wl-summary-pick-field-default))
+      (wl-summary-goto-folder-subr (concat "/" (downcase field) "=" value "/" 
+					   wl-summary-buffer-folder-name)
+				   'update nil nil t))))
+
+(defun wl-summary-delete-all-temp-marks ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (message "Unmarking...")
+    (while (not (eobp))
+      (wl-summary-unmark)
+      (forward-line))
+    (message "Unmarking...done.")
+    (setq wl-summary-buffer-target-mark-list nil)
+    (setq wl-summary-buffer-delete-list nil)
+    (setq wl-summary-buffer-refile-list nil)
+    (setq wl-summary-buffer-copy-list nil)))
+    
+(defun wl-summary-delete-mark (number)
+  "Delete temporary mark of the message specified by NUMBER."
+  (cond
+   ((memq number wl-summary-buffer-target-mark-list)
+    (setq wl-summary-buffer-target-mark-list
+	  (delq number wl-summary-buffer-target-mark-list)))
+   ((memq number wl-summary-buffer-delete-list)
+    (setq wl-summary-buffer-delete-list
+	  (delq number wl-summary-buffer-delete-list)))
+   (t
+    (let (pair)
+      (cond 
+       ((setq pair (assq number wl-summary-buffer-copy-list))
+	(setq wl-summary-buffer-copy-list
+	      (delq pair wl-summary-buffer-copy-list)))
+       ((setq pair (assq number wl-summary-buffer-refile-list))
+	(setq wl-summary-buffer-refile-list
+	      (delq pair wl-summary-buffer-refile-list))))))))
+
+(defun wl-summary-mark-line (mark)
+  "Put MARK on current line. Returns message number."
+  (save-excursion
+    (beginning-of-line)
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  msg-num
+	  cur-mark)
+      (when (looking-at "^ *\\([0-9]+\\)\\([^0-9]\\)")
+	(setq msg-num  (string-to-int (wl-match-buffer 1)))
+	(setq cur-mark (wl-match-buffer 2))
+	(goto-char (match-end 1))
+	(delete-region (match-beginning 2) (match-end 2))
+	;(wl-summary-delete-mark msg-num)
+	(insert mark)
+	(if wl-summary-highlight
+	    (wl-highlight-summary-current-line nil nil t))
+	(set-buffer-modified-p nil)
+	msg-num))))
+
+(defun wl-summary-target-mark-delete ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((regexp (concat "^" wl-summary-buffer-number-regexp "\\(\\*\\)"))
+	  number mlist)
+      (while (re-search-forward regexp nil t)
+	(let (wl-summary-buffer-disp-msg)
+	  (when (setq number (wl-summary-message-number))
+	    (wl-summary-delete number)
+	    (setq wl-summary-buffer-target-mark-list
+		  (delq number wl-summary-buffer-target-mark-list)))))
+      (setq mlist wl-summary-buffer-target-mark-list)
+      (while mlist
+	(wl-append wl-summary-buffer-delete-list (list (car mlist)))
+	(setq wl-summary-buffer-target-mark-list
+	      (delq (car mlist) wl-summary-buffer-target-mark-list))
+	(setq mlist (cdr mlist))))))
+
+(defun wl-summary-target-mark-prefetch ()
+  (interactive)
+  (save-excursion
+    (let* ((mlist (nreverse wl-summary-buffer-target-mark-list))
+	   (inhibit-read-only t)
+	   (buffer-read-only nil)
+	   (count 0)
+	   (length (length mlist))
+	   (pos (point))
+	   skipped
+	   new-mark)
+      (while mlist
+	(setq new-mark (wl-summary-prefetch-msg (car mlist)))
+	(if new-mark
+	    (progn
+	      (message "Prefetching... %d/%d message(s)"
+		       (setq count (+ 1 count)) length)
+	      (when (wl-summary-jump-to-msg (car mlist))
+		(wl-summary-unmark)
+		(when new-mark
+		  (when (looking-at "^ *[0-9]+[^0-9]\\([^0-9]\\)")
+		    (delete-region (match-beginning 1) (match-end 1)))
+		  (goto-char (match-beginning 1))
+		  (insert new-mark)
+		  (if wl-summary-highlight	
+		      (wl-highlight-summary-current-line))
+		  (save-excursion
+		    (goto-char pos)
+		    (sit-for 0)))))
+	  (setq skipped (cons (car mlist) skipped)))
+	(setq mlist (cdr mlist)))
+      (setq wl-summary-buffer-target-mark-list skipped)
+      (message "Prefetching... %d/%d message(s)." count length)
+      (set-buffer-modified-p nil))))
+
+(defun wl-summary-target-mark-refile-subr (copy-or-refile)
+  (let ((variable
+	 (intern (format "wl-summary-buffer-%s-list" copy-or-refile)))
+	(function
+	 (intern (format "wl-summary-%s" copy-or-refile)))
+	regexp number msgid entity folder mlist)
+    (save-excursion
+      (goto-char (point-min))
+      (setq regexp (concat "^" wl-summary-buffer-number-regexp "\\(\\*\\)"))
+      ;; guess by first mark
+      (when (re-search-forward regexp nil t)
+	(setq msgid (cdr (assq (setq number (wl-summary-message-number))
+			       (elmo-msgdb-get-number-alist
+				wl-summary-buffer-msgdb)))
+	      entity (assoc msgid
+			    (elmo-msgdb-get-overview
+			     wl-summary-buffer-msgdb)))
+	(if (null entity)
+	    (error "Cannot %s" copy-or-refile))
+	(funcall function
+		 (setq folder (wl-summary-read-folder
+			       (wl-refile-guess entity)
+			       (format "for %s" copy-or-refile)))
+		 number)
+	(if number
+	    (setq wl-summary-buffer-target-mark-list
+		  (delq number wl-summary-buffer-target-mark-list)))
+	(while (re-search-forward regexp nil t)
+	  (let (wl-summary-buffer-disp-msg)
+	    (when (setq number (wl-summary-message-number))
+	      (funcall function folder number)
+	      (setq wl-summary-buffer-target-mark-list
+		    (delq number wl-summary-buffer-target-mark-list)))))
+	;; process invisible messages.
+	(setq mlist wl-summary-buffer-target-mark-list)
+	(while mlist
+	  (set variable 
+	       (append (symbol-value variable)
+		       (list (cons (car mlist) folder))))
+	  (setq wl-summary-buffer-target-mark-list
+		(delq (car mlist) wl-summary-buffer-target-mark-list))
+	  (setq mlist (cdr mlist)))))))
+
+(defun wl-summary-target-mark-copy ()
+  (interactive)
+  (wl-summary-target-mark-refile-subr "copy"))
+
+(defun wl-summary-target-mark-refile ()
+  (interactive)
+  (wl-summary-target-mark-refile-subr "refile"))
+
+(defun wl-summary-target-mark-mark-as-read ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((regexp (concat "^" wl-summary-buffer-number-regexp "\\(\\*\\)"))
+	  (inhibit-read-only t)
+	  (buffer-read-only nil)
+	  number mlist)
+      (while (re-search-forward regexp nil t)
+	(let (wl-summary-buffer-disp-msg)
+	  ;; delete target-mark from buffer.
+	  (delete-region (match-beginning 1) (match-end 1))
+	  (insert " ")
+	  (setq number (wl-summary-mark-as-read t))
+	  (if wl-summary-highlight	
+	      (wl-highlight-summary-current-line))
+	  (if number
+	      (setq wl-summary-buffer-target-mark-list
+		    (delq number wl-summary-buffer-target-mark-list)))))
+      (setq mlist wl-summary-buffer-target-mark-list)
+      (while mlist
+	(wl-thread-msg-mark-as-read (car mlist))
+	(setq wl-summary-buffer-target-mark-list
+	      (delq (car mlist) wl-summary-buffer-target-mark-list))
+	(setq mlist (cdr mlist)))
+      (wl-summary-count-unread 
+       (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+      (wl-summary-update-modeline))))
+
+(defun wl-summary-target-mark-mark-as-unread ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((regexp (concat "^" wl-summary-buffer-number-regexp "\\(\\*\\)"))
+	  (inhibit-read-only t)
+	  (buffer-read-only nil)
+	  number mlist)
+      (while (re-search-forward regexp nil t)
+	(let (wl-summary-buffer-disp-msg)
+	  ;; delete target-mark from buffer.
+	  (delete-region (match-beginning 1) (match-end 1))
+	  (insert " ")
+	  (setq number (wl-summary-mark-as-unread))
+	  (if wl-summary-highlight	
+	      (wl-highlight-summary-current-line))
+	  (if number
+	      (setq wl-summary-buffer-target-mark-list
+		    (delq number wl-summary-buffer-target-mark-list)))))
+      (setq mlist wl-summary-buffer-target-mark-list)
+      (while mlist
+	(wl-summary-mark-as-unread (car mlist))
+	(wl-thread-msg-mark-as-unread (car mlist))
+	(setq wl-summary-buffer-target-mark-list
+	      (delq (car mlist) wl-summary-buffer-target-mark-list))
+	(setq mlist (cdr mlist)))
+      (wl-summary-count-unread 
+       (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+      (wl-summary-update-modeline))))
+
+(defun wl-summary-target-mark-mark-as-important ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((regexp (concat "^" wl-summary-buffer-number-regexp "\\(\\*\\)"))
+	  (inhibit-read-only t)
+	  (buffer-read-only nil)
+	  number mlist)
+      (while (re-search-forward regexp nil t)
+	(let (wl-summary-buffer-disp-msg)
+	  ;; delete target-mark from buffer.
+	  (delete-region (match-beginning 1) (match-end 1))
+	  (insert " ")
+	  (setq number (wl-summary-mark-as-important))
+	  (if wl-summary-highlight	
+	      (wl-highlight-summary-current-line))
+	  (if number
+	      (setq wl-summary-buffer-target-mark-list
+		    (delq number wl-summary-buffer-target-mark-list)))))
+      (setq mlist wl-summary-buffer-target-mark-list)
+      (while mlist
+	(wl-summary-mark-as-important (car mlist))
+	(wl-thread-msg-mark-as-important (car mlist))
+	(setq wl-summary-buffer-target-mark-list
+	      (delq (car mlist) wl-summary-buffer-target-mark-list))
+	(setq mlist (cdr mlist)))
+      (wl-summary-count-unread 
+       (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+      (wl-summary-update-modeline))))
+
+(defun wl-summary-target-mark-save ()
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (let ((wl-save-dir
+	   (wl-read-directory-name "Save to directory: " wl-tmp-dir))
+	  (regexp (concat "^" wl-summary-buffer-number-regexp "\\(\\*\\)"))
+	  number mlist)
+      (if (null (file-exists-p wl-save-dir))
+	  (make-directory wl-save-dir))
+      (while (re-search-forward regexp nil t)
+	(let (wl-summary-buffer-disp-msg)
+	  (setq number (wl-summary-save t wl-save-dir))
+	  (wl-summary-unmark)
+	  (if number
+	      (setq wl-summary-buffer-target-mark-list
+		    (delq number wl-summary-buffer-target-mark-list))))))))
+
+(defun wl-summary-target-mark-pick ()
+  (interactive)
+  (wl-summary-pick wl-summary-buffer-target-mark-list 'delete))
+
+(defun wl-summary-mark-as-read (&optional notcrosses 
+					  leave-server-side-mark-untouched
+					  displayed 
+					  number
+					  no-cache)
+  (interactive)
+  (save-excursion
+    (let* (eol
+	   (inhibit-read-only t)
+	   (buffer-read-only nil)
+	   (folder wl-summary-buffer-folder-name)
+	   (msgdb wl-summary-buffer-msgdb)
+	   (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	   ;;(number-alist (elmo-msgdb-get-number-alist msgdb))
+	   (case-fold-search nil)
+	   mark unread visible uncached new-mark)
+      (if number 
+	  (progn
+	    (setq visible (wl-summary-jump-to-msg number))
+	    (setq mark (cadr (assq number mark-alist))))
+	(setq visible t))
+      (beginning-of-line)
+      (if (or (not visible)
+	      (looking-at
+	       (format "^ *\\([0-9]+\\)[^0-9]\\(%s\\|%s\\|%s\\|%s\\).*$" 
+		       (regexp-quote wl-summary-read-uncached-mark)
+		       (regexp-quote wl-summary-unread-uncached-mark)
+		       (regexp-quote wl-summary-unread-cached-mark)
+		       (regexp-quote wl-summary-new-mark))))
+	  (progn
+	    (setq mark (or mark (wl-match-buffer 2)))
+	    (when mark
+	      (cond 
+	       ((string= mark wl-summary-new-mark) ; N
+		(setq wl-summary-buffer-new-count 
+		      (- wl-summary-buffer-new-count 1))
+		(setq uncached t)
+		(setq unread t))
+	       ((string= mark wl-summary-unread-uncached-mark) ; U
+		(setq wl-summary-buffer-unread-count 
+		      (- wl-summary-buffer-unread-count 1))
+		(setq uncached t)
+		(setq unread t))
+	       ((string= mark wl-summary-unread-cached-mark)  ; !
+		(setq wl-summary-buffer-unread-count 
+		      (- wl-summary-buffer-unread-count 1))
+		(setq unread t))
+	       (t
+		;; no need to mark server.
+		(setq leave-server-side-mark-untouched t)))
+	      (wl-summary-update-modeline)
+	      (wl-folder-update-unread 
+	       folder
+	       (+ wl-summary-buffer-unread-count 
+		  wl-summary-buffer-new-count)))
+	    (setq number (or number (string-to-int (wl-match-buffer 1))))
+	    ;; set server side mark...
+	    (setq new-mark (if (and uncached no-cache) 
+			       wl-summary-read-uncached-mark
+			     nil))
+	    (if (not leave-server-side-mark-untouched)
+		(elmo-mark-as-read folder
+				   (list number) msgdb))
+	    (when visible
+	      (goto-char (match-end 2))
+	      (delete-region (match-beginning 2) (match-end 2))
+	      (insert (or new-mark " ")))
+	    (setq mark-alist
+		  (elmo-msgdb-mark-set mark-alist number new-mark))
+	    (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	    (wl-summary-set-mark-modified)
+	    (if (and visible wl-summary-highlight)
+		(wl-highlight-summary-current-line nil nil t))
+	    (if (not notcrosses)
+		(wl-summary-set-crosspost nil (and wl-summary-buffer-disp-msg
+                                                   (interactive-p))))))
+      (set-buffer-modified-p nil)
+      (if unread
+	  (run-hooks 'wl-summary-unread-message-hook))
+      number ;return value
+      )))
+
+(defun wl-summary-mark-as-important (&optional number
+					       mark
+					       no-server-update)
+  (interactive)
+  (if (eq (elmo-folder-get-type wl-summary-buffer-folder-name)
+	  'internal)
+      (error "Cannot process mark in this folder"))
+  (save-excursion
+    (let* (eol
+	  (inhibit-read-only t)
+	  (buffer-read-only nil)
+	  (folder wl-summary-buffer-folder-name)
+	  (msgdb wl-summary-buffer-msgdb)
+	  (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	  (number-alist (elmo-msgdb-get-number-alist msgdb))
+	  message-id visible)
+      (if number 
+	  (progn
+	    (setq visible (wl-summary-jump-to-msg number))
+	    (setq mark (or mark (cadr (assq number mark-alist)))))
+	(setq visible t))
+      (end-of-line)
+      (setq eol (point))
+      (if visible
+	  (re-search-backward (concat "^" wl-summary-buffer-number-regexp
+				      "..../..") nil t)) ; set cursor line
+      (beginning-of-line)
+      (if (re-search-forward "^ *\\([0-9]+\\)[^0-9]\\([^0-9]\\)" eol t)
+	  (progn
+	    (setq number (or number (string-to-int (wl-match-buffer 1))))
+	    (setq mark (or mark (wl-match-buffer 2)))
+	    (setq message-id (cdr (assq number number-alist)))
+	    (if (string= mark wl-summary-important-mark)
+		(progn
+		  ;; server side mark
+		  (unless no-server-update
+		    (elmo-unmark-important folder (list number) msgdb)
+		    (elmo-msgdb-global-mark-delete message-id))
+		  (when visible
+		    (delete-region (match-beginning 2) (match-end 2))
+		    (insert " "))
+		  (setq mark-alist
+			(elmo-msgdb-mark-set mark-alist
+					     number
+					     nil)))
+	      ;; server side mark
+	      (unless no-server-update
+		(elmo-mark-as-important folder (list number) msgdb))
+	      (when visible
+		(delete-region (match-beginning 2) (match-end 2))
+		(insert wl-summary-important-mark))
+	      (setq mark-alist
+		    (elmo-msgdb-mark-set mark-alist
+					 (string-to-int (wl-match-buffer 1))
+					 wl-summary-important-mark))
+	      ;; Force cache message!!
+	      (save-match-data
+		(unless (elmo-cache-exists-p message-id)
+		  (elmo-force-cache-msg folder number message-id
+					(elmo-msgdb-get-location msgdb))))
+	      (unless no-server-update
+		(elmo-msgdb-global-mark-set message-id 
+					    wl-summary-important-mark)))
+	    (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	    (wl-summary-set-mark-modified)))
+      (if (and visible wl-summary-highlight)
+	  (wl-highlight-summary-current-line nil nil t))))
+  (set-buffer-modified-p nil)
+  number)
+
+(defsubst wl-summary-format-date (date-string)
+  (condition-case nil
+      (let ((datevec (timezone-fix-time date-string nil 
+					wl-summary-fix-timezone)))
+	(format "%02d/%02d(%s)%02d:%02d"
+		(aref datevec 1)
+		(aref datevec 2)
+		(elmo-date-get-week (aref datevec 0)
+				    (aref datevec 1)
+				    (aref datevec 2))
+		(aref datevec 3)
+		(aref datevec 4)))
+    (error "??/??(??)??:??")))
+
+(defun wl-summary-overview-create-summary-line (msg 
+						entity 
+						parent-entity 
+						depth
+						mark-alist
+						&optional 
+						children-num
+						temp-mark thr-entity
+						subject-differ)
+  (let ((wl-mime-charset wl-summary-buffer-mime-charset)
+	(elmo-mime-charset wl-summary-buffer-mime-charset)
+	no-parent before-indent
+	from subject parent-raw-subject parent-subject
+	mark line
+	(elmo-lang wl-summary-buffer-weekday-name-lang)
+	(children-num (if children-num (int-to-string children-num)))
+	(thr-str ""))
+    (if thr-entity
+	(setq thr-str (wl-thread-make-indent-string thr-entity)))
+    (if (string= thr-str "")
+	(setq no-parent t)) ; no parent
+    (if (and wl-summary-width 
+	     wl-summary-indent-length-limit
+	     (< wl-summary-indent-length-limit
+		(string-width thr-str)))
+	(setq thr-str (wl-set-string-width 
+		       wl-summary-indent-length-limit
+		       thr-str)))
+    (setq from 
+	  (wl-set-string-width 
+	   (if children-num
+	       (- wl-from-width (length children-num) 2)
+	     wl-from-width)
+	   (elmo-delete-char ?\n
+			     (wl-summary-from-func-internal
+			      (elmo-msgdb-overview-entity-get-from entity)))))
+    (setq subject
+	  (elmo-delete-char ?\n
+			    (or (elmo-msgdb-overview-entity-get-subject 
+				 entity)
+				wl-summary-no-subject-message)))
+    (setq parent-raw-subject 
+	  (elmo-msgdb-overview-entity-get-subject parent-entity))
+    (setq parent-subject 
+	  (if parent-raw-subject 
+	      (elmo-delete-char ?\n parent-raw-subject)))
+    (setq mark (or (cadr (assq msg mark-alist)) " "))
+    (setq line 
+	  (concat 
+	   (setq before-indent
+		 (format (concat "%" 
+				 (int-to-string 
+				  wl-summary-buffer-number-column)
+				 "s%s%s%s %s")
+			 msg
+			 (or temp-mark " ")
+			 mark
+			 (wl-summary-format-date
+			  (elmo-msgdb-overview-entity-get-date entity))
+			 (if thr-str thr-str "")))
+	   (format "[%s ] %s"
+		   (if children-num
+		       (concat "+" children-num ": " from)
+		     (concat " " from))
+		   (if (or no-parent
+			   (null parent-subject)
+			   (not (wl-summary-subject-equal 
+				 subject parent-subject)))
+		       (wl-summary-subject-func-internal subject) ""))))
+    (if wl-summary-width (setq line 
+			       (wl-set-string-width 
+				(- wl-summary-width 1) line)))
+    (if wl-summary-highlight
+	(wl-highlight-summary-line-string line 
+					  mark
+					  temp-mark
+					  thr-str))
+    line))
+
+(defsubst wl-summary-buffer-number-column-detect (update)
+  (let (end)
+    (save-excursion
+      (setq wl-summary-buffer-number-column
+	    (or
+	     (if (and update 
+		      (setq end (if (re-search-forward "^ *[0-9]+[^0-9]" nil t)
+				    (point))))
+		 (- end (progn (beginning-of-line) (point)) 1))
+	     (wl-get-assoc-list-value wl-summary-number-column-alist
+				      wl-summary-buffer-folder-name)
+	     wl-summary-default-number-column))
+      (setq wl-summary-buffer-number-regexp
+	    (wl-repeat-string "." wl-summary-buffer-number-column)))))
+       
+(defsubst wl-summary-proc-wday (wday-str year month mday)
+  (save-match-data
+    (if (string-match "\\([A-Z][a-z][a-z]\\).*" wday-str)
+	(wl-match-string 1 wday-str)
+      (elmo-date-get-week year month mday))))
+
+(defmacro wl-summary-cursor-move-regex ()
+  (` (let ((mark-alist
+	    (if (elmo-folder-plugged-p wl-summary-buffer-folder-name)
+		(cond ((eq wl-summary-move-order 'new)
+		       (list
+			(list
+			 wl-summary-new-mark)
+			(list
+			 wl-summary-unread-uncached-mark
+			 wl-summary-unread-cached-mark
+			 wl-summary-important-mark)))
+		      ((eq wl-summary-move-order 'unread)
+		       (list
+		       (list
+			wl-summary-unread-uncached-mark
+			wl-summary-unread-cached-mark
+			wl-summary-new-mark)
+		       (list
+			wl-summary-important-mark)))
+		      (t
+		       (list
+		       (list
+			wl-summary-unread-uncached-mark
+			wl-summary-unread-cached-mark
+			wl-summary-new-mark
+			wl-summary-important-mark))))
+	      (cond ((eq wl-summary-move-order 'unread)
+		     (list
+		     (list
+		      wl-summary-unread-cached-mark)
+		     (list
+		      wl-summary-important-mark)))
+		    (t
+		     (list
+		     (list
+		      wl-summary-unread-cached-mark
+		      wl-summary-important-mark)))))))
+       (mapcar
+	(function
+	 (lambda (mark-list)
+	   (concat wl-summary-message-regexp
+		   ".\\("
+		   (mapconcat 'regexp-quote
+			      mark-list
+			      "\\|")
+		   "\\)\\|"
+		   wl-summary-message-regexp "\\*")))
+	mark-alist))))
+
+;;
+;; Goto unread or important
+;; 
+(defun wl-summary-cursor-up (&optional hereto)
+  (interactive "P")
+  (if (and (not wl-summary-buffer-target-mark-list)
+	   (eq wl-summary-buffer-view 'thread))
+      (progn
+	(if (eobp)
+	    (forward-line -1))
+	(wl-thread-jump-to-prev-unread hereto))
+    (if hereto
+	(end-of-line)
+      (beginning-of-line))
+    (let ((case-fold-search nil)
+	  regex-list)
+      (setq regex-list (wl-summary-cursor-move-regex))
+      (catch 'done
+	(while regex-list
+	  (when (re-search-backward
+		 (car regex-list)
+		 nil t nil)
+	    (beginning-of-line)
+	    (throw 'done t))
+	  (setq regex-list (cdr regex-list)))
+	(beginning-of-line)
+	(throw 'done nil)))))
+
+;;
+;; Goto unread or important
+;; returns t if next message exists in this folder.
+(defun wl-summary-cursor-down (&optional hereto)
+  (interactive "P")
+  (if (and (null wl-summary-buffer-target-mark-list)
+	   (eq wl-summary-buffer-view 'thread))
+      (wl-thread-jump-to-next-unread hereto)
+    (if hereto
+	(beginning-of-line)
+      (end-of-line))
+    (let ((case-fold-search nil)
+	  regex-list)
+      (setq regex-list (wl-summary-cursor-move-regex))
+      (catch 'done
+	(while regex-list
+	  (when (re-search-forward
+		 (car regex-list)
+		 nil t nil)
+	    (beginning-of-line)
+	    (throw 'done t))
+	  (setq regex-list (cdr regex-list)))
+	(beginning-of-line)
+	(throw 'done nil)))))
+
+(defun wl-summary-save-view-cache (&optional keep-current-buffer)
+  (save-excursion
+    (let* ((dir (elmo-msgdb-expand-path wl-summary-buffer-folder-name))
+	   (cache (expand-file-name wl-summary-cache-file dir))
+	   (view (expand-file-name wl-summary-view-file dir))
+	   ;;(coding-system-for-write wl-cs-cache)
+	   ;;(output-coding-system wl-cs-cache)
+	   (save-view wl-summary-buffer-view)
+	   (tmp-buffer(get-buffer-create " *wl-summary-save-view-cache*"))
+	   charset)
+      (if (file-directory-p dir)
+	  (); ok.
+	(if (file-exists-p dir)
+	    (error "File %s already exists" dir)
+	  (elmo-make-directory dir)))
+      (if (eq save-view 'thread)
+	  (wl-thread-save-entity dir))
+      (unwind-protect
+	  (progn
+	    (when (file-writable-p cache)
+	      (if keep-current-buffer
+		  (progn
+		    (save-excursion
+		      (set-buffer tmp-buffer)
+		      (erase-buffer))
+		    (setq charset wl-summary-buffer-mime-charset)
+		    (copy-to-buffer tmp-buffer (point-min) (point-max))
+		    (save-excursion
+		      (set-buffer tmp-buffer)
+		      (widen)
+		      (encode-mime-charset-region 
+		       (point-min) (point-max) charset)
+		      (as-binary-output-file
+		       (write-region (point-min)
+				     (point-max) cache nil 'no-msg))))
+		(let (buffer-read-only)
+		  (widen)
+		  (encode-mime-charset-region (point-min) (point-max)
+					      wl-summary-buffer-mime-charset)
+		  (as-binary-output-file
+		   (write-region (point-min) (point-max) cache nil 'no-msg)))))
+	    (when (file-writable-p view) ; 'thread or 'sequence
+	      (save-excursion
+		(set-buffer tmp-buffer)
+		(erase-buffer)
+		(prin1 save-view tmp-buffer)
+		(princ "\n" tmp-buffer)
+		(write-region (point-min) (point-max) view nil 'no-msg))))
+	;; kill tmp buffer.
+	(kill-buffer tmp-buffer)))))
+
+(defsubst wl-summary-get-sync-range (folder)
+  (intern (or (and
+	       (elmo-folder-plugged-p folder)
+	       (wl-get-assoc-list-value 
+		wl-folder-sync-range-alist
+		folder))
+	      wl-default-sync-range)))
+
+;; redefined for wl-summary-sync-update
+(defun wl-summary-input-range (folder)
+  "returns update or all or rescan."
+  ;; for the case when parts are expanded in the bottom of the folder
+  (let ((input-range-list '("update" "all" "rescan" "first:" "last:" 
+			    "no-sync" "rescan-noscore"))
+	(default (or (wl-get-assoc-list-value 
+		      wl-folder-sync-range-alist
+		      folder) 
+		     wl-default-sync-range))
+	range)
+    (setq range
+	  (completing-read (format "Range (%s): " default)
+			   (mapcar
+			    (function (lambda (x) (cons x x)))
+			    input-range-list)))
+    (if (string= range "")
+	default
+      range)))
+
+(defun wl-summary-toggle-disp-folder (&optional arg)
+  (interactive)
+  (let (fld-buf fld-win
+	(view-message-buffer (wl-message-get-buffer-create))
+	(cur-buf (current-buffer))
+	(summary-win (get-buffer-window (current-buffer))))
+    (cond 
+     ((eq arg 'on)
+      (setq wl-summary-buffer-disp-folder t)
+      ;; hide your folder window
+      (if (setq fld-buf (get-buffer wl-folder-buffer-name))
+	  (if (setq fld-win (get-buffer-window fld-buf))
+	      (delete-window fld-win))))
+     ((eq arg 'off)
+      (setq wl-summary-buffer-disp-folder nil)
+      ;; hide your wl-message window!
+      (wl-select-buffer view-message-buffer)
+      (delete-window)
+      (select-window (get-buffer-window cur-buf))
+      ;; display wl-folder window!!
+      (if (setq fld-buf (get-buffer wl-folder-buffer-name))
+	  (if (setq fld-win (get-buffer-window fld-buf))
+	      ;; folder win is already displayed.
+	      (select-window fld-win)
+	    ;; folder win is not displayed.
+	    (switch-to-buffer fld-buf))
+	;; no folder buf
+	(wl-folder))
+      ;; temporarily delete summary-win.
+      (if summary-win
+	  (delete-window summary-win))
+      (split-window-horizontally wl-folder-window-width)
+      (other-window 1)
+      (switch-to-buffer cur-buf))
+     (t
+      (if (setq fld-buf (get-buffer wl-folder-buffer-name))
+	  (if (setq fld-win (get-buffer-window fld-buf))      
+	      (setq wl-summary-buffer-disp-folder nil)
+	    (setq wl-summary-buffer-disp-folder t)))
+      (if (not wl-summary-buffer-disp-folder)
+	  ;; hide message window
+	  (let ((mes-win (get-buffer-window view-message-buffer))
+		(wl-stay-folder-window t))
+	    (if mes-win (delete-window mes-win))
+	    ;; hide your folder window
+	    (if (setq fld-buf (get-buffer wl-folder-buffer-name))
+		(if (setq fld-win (get-buffer-window fld-buf))
+		    (progn
+		      (delete-window (get-buffer-window cur-buf))
+		      (select-window fld-win)
+		      (switch-to-buffer cur-buf))))
+	    (run-hooks 'wl-summary-toggle-disp-folder-off-hook)
+	    ;; resume message window.
+	    (when mes-win
+	      (wl-select-buffer view-message-buffer)
+	      (run-hooks 'wl-summary-toggle-disp-folder-message-resumed-hook)
+	      (select-window (get-buffer-window cur-buf)))
+	    )
+	(save-excursion
+	  ;; hide message window
+	  (let ((mes-win (get-buffer-window view-message-buffer))
+		(wl-stay-folder-window t))
+	    (if mes-win (delete-window mes-win))
+	    (select-window (get-buffer-window cur-buf))
+	    ;; display wl-folder window!!
+	    (if (setq fld-buf (get-buffer wl-folder-buffer-name))
+		(if (setq fld-win (get-buffer-window fld-buf))
+		    ;; folder win is already displayed.
+		    (select-window fld-win)
+		  ;; folder win is not displayed...occupy all.
+		  (switch-to-buffer fld-buf))
+	      ;; no folder buf
+	      (wl-folder))
+	    (split-window-horizontally wl-folder-window-width)
+	    (other-window 1)
+	    (switch-to-buffer cur-buf)
+	    ;; resume message window.
+	    (run-hooks 'wl-summary-toggle-disp-folder-on-hook)
+	    (when mes-win
+	      (wl-select-buffer view-message-buffer)
+	      (run-hooks 'wl-summary-toggle-disp-folder-message-resumed-hook)
+	      (select-window (get-buffer-window cur-buf))))
+	  )))))
+  (run-hooks 'wl-summary-toggle-disp-folder-hook))
+  
+(defun wl-summary-toggle-disp-msg (&optional arg)
+  (interactive)
+  (let (fld-buf fld-win
+	(view-message-buffer (wl-message-get-buffer-create))
+	(cur-buf (current-buffer))
+	summary-win)
+    (cond 
+     ((eq arg 'on)
+      (setq wl-summary-buffer-disp-msg t)
+      ;; hide your folder window
+      (if (and (not wl-stay-folder-window)
+	       (setq fld-buf (get-buffer wl-folder-buffer-name)))
+	  (if (setq fld-win (get-buffer-window fld-buf))
+	      (delete-window fld-win))))
+     ((eq arg 'off)
+      (wl-delete-all-overlays)
+      (setq wl-summary-buffer-disp-msg nil)
+      (save-excursion
+        (wl-select-buffer view-message-buffer)
+        (delete-window)
+	(and (get-buffer-window cur-buf)
+	     (select-window (get-buffer-window cur-buf)))
+        (run-hooks 'wl-summary-toggle-disp-off-hook)))
+     (t
+      (if (get-buffer-window view-message-buffer) ; already displayed
+	  (setq wl-summary-buffer-disp-msg nil)
+	(setq wl-summary-buffer-disp-msg t))
+      (if wl-summary-buffer-disp-msg
+	  (progn
+	    (wl-summary-redisplay)
+	    ;; hide your folder window
+;;		(setq fld-buf (get-buffer wl-folder-buffer-name))
+;;		(if (setq fld-win (get-buffer-window fld-buf))
+;;		    (delete-window fld-win)))	    
+	    (run-hooks 'wl-summary-toggle-disp-on-hook))
+	(wl-delete-all-overlays)
+	(save-excursion
+	  (wl-select-buffer view-message-buffer)
+	  (delete-window)
+	  (select-window (get-buffer-window cur-buf))
+	  (run-hooks 'wl-summary-toggle-disp-off-hook))
+	;;(switch-to-buffer cur-buf)
+	)))))
+
+(defun wl-summary-next-line-content ()
+  (interactive)
+  (let ((cur-buf (current-buffer)))
+    (wl-summary-toggle-disp-msg 'on)
+    (when (wl-summary-set-message-buffer-or-redisplay 'ignore-original)
+      (set-buffer cur-buf)
+      (wl-message-next-page 1))))
+
+(defun wl-summary-prev-line-content ()
+  (interactive)
+  (let ((cur-buf (current-buffer)))
+    (wl-summary-toggle-disp-msg 'on)
+    (when (wl-summary-set-message-buffer-or-redisplay 'ignore-original)
+      (set-buffer cur-buf)
+      (wl-message-prev-page 1))))
+
+(defun wl-summary-next-page ()
+  (interactive)
+  (wl-message-next-page))
+
+(defun wl-summary-prev-page ()
+  (interactive)
+  (wl-message-prev-page))
+  
+(defsubst wl-summary-no-mime-p (folder)
+  (wl-string-match-member folder wl-summary-no-mime-folder-list))
+
+(defun wl-summary-set-message-buffer-or-redisplay (&optional ignore-original)
+  ;; if current message is not displayed, display it.
+  ;; return t if exists.
+  (let ((folder wl-summary-buffer-folder-name)
+	(number (wl-summary-message-number))
+	cur-folder cur-number message-last-pos
+	(view-message-buffer (wl-message-get-buffer-create)))
+    (save-excursion
+      (set-buffer view-message-buffer)
+      (setq cur-folder wl-message-buffer-cur-folder)
+      (setq cur-number wl-message-buffer-cur-number))
+    (if (and (not ignore-original)
+	     (not 
+	      (and (eq number (wl-message-original-buffer-number))
+		   (string= folder (wl-message-original-buffer-folder)))))
+	(progn
+	  (if (wl-summary-no-mime-p folder)
+	      (wl-summary-redisplay-no-mime folder number)
+	    (wl-summary-redisplay-internal folder number))
+	  nil)
+      (if (and (string= folder (or cur-folder ""))
+	       (eq number (or cur-number 0)))
+	  (progn
+	    (set-buffer view-message-buffer)
+	    t)
+	(if (wl-summary-no-mime-p folder)
+	    (wl-summary-redisplay-no-mime folder number)
+	  (wl-summary-redisplay-internal folder number))
+	nil))))
+
+(defun wl-summary-target-mark-forward (&optional arg)
+  (interactive "P")
+  (let ((mlist (nreverse wl-summary-buffer-target-mark-list))
+	(summary-buf (current-buffer))
+	(wl-draft-forward t)
+	start-point
+	draft-buf)
+    (wl-summary-jump-to-msg (car mlist))
+    (wl-summary-forward t)
+    (setq start-point (point))
+    (setq draft-buf (current-buffer))
+    (setq mlist (cdr mlist))
+    (save-window-excursion
+      (when mlist
+	(while mlist
+	  (set-buffer summary-buf)
+	  (wl-summary-jump-to-msg (car mlist))
+	  (wl-summary-redisplay)
+	  (set-buffer draft-buf)
+	  (goto-char (point-max))
+	  (wl-draft-insert-message)
+	  (setq mlist (cdr mlist)))
+	(wl-draft-body-goto-top)
+	(wl-draft-enclose-digest-region (point) (point-max)))
+      (goto-char start-point)
+      (save-excursion
+	(set-buffer summary-buf)
+	(wl-summary-delete-all-temp-marks)))
+    (run-hooks 'wl-mail-setup-hook)))
+
+(defun wl-summary-target-mark-reply-with-citation (&optional arg)
+  (interactive "P")
+  (let ((mlist (nreverse wl-summary-buffer-target-mark-list))
+	(summary-buf (current-buffer))
+	change-major-mode-hook
+	start-point
+	draft-buf)
+    (wl-summary-jump-to-msg (car mlist))
+    (wl-summary-reply arg t)
+    (goto-char (point-max))
+    (setq start-point (point))
+    (setq draft-buf (current-buffer))
+    (save-window-excursion
+      (while mlist
+	(set-buffer summary-buf)
+	(wl-summary-jump-to-msg (car mlist))
+	(wl-summary-redisplay)
+	(set-buffer draft-buf)
+	(goto-char (point-max))
+	(wl-draft-yank-original)
+	(setq mlist (cdr mlist)))
+      (goto-char start-point)
+      (save-excursion
+	(set-buffer summary-buf)
+	(wl-summary-delete-all-temp-marks)))
+    (run-hooks 'wl-mail-setup-hook)))
+
+(defun wl-summary-reply-with-citation (&optional arg)
+  (interactive "P")
+  (unwind-protect
+      (wl-summary-reply arg t)
+    (goto-char (point-max))
+    (wl-draft-yank-original)
+    (run-hooks 'wl-mail-setup-hook)))
+
+(defun wl-summary-jump-to-msg-by-message-id (&optional id)
+  (interactive)
+  (let* ((original (wl-summary-message-number))
+	 (msgid (elmo-string (or id (read-from-minibuffer "Message-ID: "))))
+	 (number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	 msg otherfld schar
+	 (errmsg
+	  (format "No message with id \"%s\" in the folder." msgid)))
+    (if (setq msg (car (rassoc msgid number-alist)))
+	;;(wl-summary-jump-to-msg-internal
+	;;wl-summary-buffer-folder-name msg 'no-sync)
+	(progn
+	  (wl-thread-jump-to-msg msg)
+	  t)
+      ;; for XEmacs!
+      (if (and elmo-use-database
+ 	       (setq errmsg
+ 		     (format 
+		      "No message with id \"%s\" in the database." msgid))
+ 	       (setq otherfld (elmo-database-msgid-get msgid)))
+	  (if (cdr (wl-summary-jump-to-msg-internal
+		    (car otherfld) (nth 1 otherfld) 'no-sync))
+	      t ; succeed.
+	    ;; Back to original.
+	    (wl-summary-jump-to-msg-internal
+	     wl-summary-buffer-folder-name original 'no-sync))
+ 	(cond ((eq wl-summary-search-via-nntp 'confirm)
+	       (message "Search message in nntp server \"%s\" <y/n/s(elect)>?"
+			elmo-default-nntp-server)
+	       (setq schar (read-char))
+	       (cond ((eq schar ?y)
+		      (wl-summary-jump-to-msg-by-message-id-via-nntp msgid))
+		     ((eq schar ?s)
+		      (wl-summary-jump-to-msg-by-message-id-via-nntp
+		       msgid 
+		       (read-from-minibuffer "NNTP Server: ")))
+		     (t
+		      (message errmsg)
+		      nil)))
+	      (wl-summary-search-via-nntp
+ 	       (wl-summary-jump-to-msg-by-message-id-via-nntp msgid))
+ 	      (t
+ 	       (message errmsg)
+ 	       nil))))))
+
+(defun wl-summary-jump-to-msg-by-message-id-via-nntp (&optional id server-spec)
+  (interactive)
+  (let* ((msgid (elmo-string (or id (read-from-minibuffer "Message-ID: "))))
+ 	 newsgroups folder ret
+	 user server port ssl spec)
+    (if server-spec
+	(if (string-match "^-" server-spec)
+	    (setq spec (elmo-nntp-get-spec server-spec)
+		  user (nth 2 spec)
+		  server (nth 3 spec)
+		  port (nth 4 spec)
+		  ssl (nth 5 spec))
+	  (setq server server-spec)))
+    (when (setq ret (elmo-nntp-get-newsgroup-by-msgid
+		     msgid
+		     (or server elmo-default-nntp-server)
+		     (or user elmo-default-nntp-user)
+		     (or port elmo-default-nntp-port)
+		     (or ssl elmo-default-nntp-ssl)))
+      (setq newsgroups (wl-parse-newsgroups ret))
+      (setq folder (concat "-" (car newsgroups)
+			   (elmo-nntp-folder-postfix user server port ssl)))
+      (catch 'found
+	(while newsgroups
+	  (if (wl-folder-entity-exists-p (car newsgroups)
+					 wl-folder-newsgroups-hashtb)
+	      (throw 'found
+		     (setq folder (concat "-" (car newsgroups)
+					  (elmo-nntp-folder-postfix user server port ssl)))))
+	  (setq newsgroups (cdr newsgroups)))))
+    (if ret
+	(wl-summary-jump-to-msg-internal folder nil 'update msgid)
+      (message "No message id \"%s\" in nntp server \"%s\"."
+	       msgid (or server elmo-default-nntp-server))
+      nil)))
+
+(defun wl-summary-jump-to-msg-internal (folder msg scan-type &optional msgid)
+  (let (wl-auto-select-first entity)
+    (if (or (string= folder wl-summary-buffer-folder-name)
+ 	    (y-or-n-p 
+ 	     (format
+ 	      "Message was found in the folder \"%s\". Jump to it? "
+ 	      folder)))
+ 	(progn
+ 	  (unwind-protect
+ 	      (wl-summary-goto-folder-subr
+ 	       folder scan-type nil nil t)
+ 	    (if msgid
+ 		(setq msg
+ 		      (car (rassoc msgid
+ 				   (elmo-msgdb-get-number-alist
+ 				    wl-summary-buffer-msgdb)))))
+	    (setq entity (wl-folder-search-entity-by-name folder
+							  wl-folder-entity
+							  'folder))
+	    (if entity
+		(wl-folder-set-current-entity-id 
+		 (wl-folder-get-entity-id entity))))
+	  (if (null msg)
+	      (message "Message was not found currently in this folder.")
+	    (setq msg (and (wl-thread-jump-to-msg msg) msg)))
+	  (cons folder msg)))))
+
+(defun wl-summary-jump-to-parent-message (arg)
+  (interactive "P")
+  (let ((cur-buf (current-buffer))
+	(regexp "\\(<[^<>]*>\\)[ \t]*$")
+	(i -1) ;; xxx
+	msg-id ref-list ref irt)
+    (wl-summary-set-message-buffer-or-redisplay)
+    (set-buffer (wl-message-get-original-buffer))
+    (message "Searching parent message...")
+    (setq ref (std11-field-body "References")
+	  irt (std11-field-body "In-Reply-To"))
+    (cond
+     ((and arg (not (numberp arg)) ref (not (string= ref ""))
+	   (string-match regexp ref))
+      ;; The first message of the thread.
+      (setq msg-id (wl-match-string 1 ref)))
+     ;; "In-Reply-To:" has only one msg-id.
+     ((and irt (not (string= irt ""))
+	   (string-match regexp irt))
+      (setq msg-id (wl-match-string 1 irt)))
+     ((and (or (null arg) (numberp arg)) ref (not (string= ref ""))
+	   (string-match regexp ref))
+      ;; "^" searching parent, "C-u 2 ^" looking for grandparent.
+      (while (string-match regexp ref)
+	(setq ref-list
+	      (append (list
+		       (wl-match-string 1 ref))
+		      ref-list))
+	(setq ref (substring ref (match-end 0)))
+	(setq i (1+ i)))
+      (setq msg-id
+            (if (null arg) (nth 0 ref-list) ;; previous
+              (if (<= arg i) (nth (1- arg) ref-list)
+                (nth i ref-list))))))
+    (set-buffer cur-buf)
+    (cond ((null msg-id)
+	   (message "No parent message!")
+	   nil)
+	  ((wl-summary-jump-to-msg-by-message-id msg-id)
+	   (wl-summary-redisplay)
+	   (message "Searching parent message...done.")
+	   t)
+	  (t ; failed.
+	   (message "Parent message was not found.")
+	   nil))))
+
+(defun wl-summary-reply (&optional arg without-setup-hook)
+  "Reply to current message. Default is \"wide\" reply.
+Reply to author if invoked with argument."
+  (interactive "P")
+  (let ((folder wl-summary-buffer-folder-name)
+	(number (wl-summary-message-number))
+	(summary-buf (current-buffer))
+	mes-buf)
+    (wl-summary-redisplay-internal folder number)
+    (wl-select-buffer (get-buffer (setq mes-buf (wl-current-message-buffer))))
+    (set-buffer mes-buf)
+    (goto-char (point-min))
+    (or wl-draft-use-frame
+	(split-window-vertically))
+    (other-window 1)
+    (when (setq mes-buf (wl-message-get-original-buffer))
+      (wl-draft-reply mes-buf (not arg) summary-buf)
+      (unless without-setup-hook
+	(run-hooks 'wl-mail-setup-hook)))))
+
+(defun wl-summary-write ()
+  "Write a new draft from Summary."
+  (interactive)
+  (wl-draft nil nil nil nil nil
+	    nil nil nil nil nil (current-buffer))
+  (run-hooks 'wl-mail-setup-hook)
+  (mail-position-on-field "To"))
+
+(defun wl-summary-write-current-newsgroup (&optional folder)
+  (interactive)
+  (let* ((folder (or folder wl-summary-buffer-folder-name))
+	 (flist (elmo-folder-get-primitive-folder-list folder))
+	 newsgroups fld ret)
+    (while (setq fld (car flist))
+      (if (setq ret
+		(cond ((eq 'nntp (elmo-folder-get-type fld))
+		       (nth 1 (elmo-folder-get-spec fld)))
+		      ((eq 'localnews (elmo-folder-get-type fld))
+		       (elmo-replace-in-string
+			(nth 1 (elmo-folder-get-spec fld)) "/" "\\."))))
+	  (setq newsgroups (cond (newsgroups
+				  (concat newsgroups "," ret))
+				 (t ret))))
+      (setq flist (cdr flist)))
+    (if newsgroups
+	(progn
+	  (wl-draft nil nil nil nil nil newsgroups)
+	  (run-hooks 'wl-mail-setup-hook))
+      (error "%s is not newsgroup" folder))))
+
+(defun wl-summary-forward (&optional without-setup-hook)
+  (interactive)
+  (let ((folder wl-summary-buffer-folder-name)
+	(number (wl-summary-message-number))
+	(summary-buf (current-buffer))
+	(wl-draft-forward t)
+	entity subject num)
+    (wl-summary-redisplay-internal folder number)
+    (wl-select-buffer (get-buffer wl-message-buf-name))
+    (or wl-draft-use-frame
+	(split-window-vertically))
+    (other-window 1)
+    ;; get original subject.
+    (if summary-buf
+	(save-excursion 
+	  (set-buffer summary-buf)
+	  (setq num (wl-summary-message-number))
+	  (setq entity (assoc (cdr (assq num 
+					 (elmo-msgdb-get-number-alist 
+					  wl-summary-buffer-msgdb)))
+			      (elmo-msgdb-get-overview 
+			       wl-summary-buffer-msgdb)))
+	  (and entity
+	       (setq subject 
+		     (or (elmo-msgdb-overview-entity-get-subject entity) 
+			 "")))))
+    (wl-draft-forward subject summary-buf)
+    (unless without-setup-hook
+      (run-hooks 'wl-mail-setup-hook))))
+
+(defun wl-summary-click (e)
+  (interactive "e")
+  (mouse-set-point e)
+  (wl-summary-read))
+
+(defun wl-summary-read ()
+  (interactive)
+  (let ((folder wl-summary-buffer-folder-name)
+	(number (wl-summary-message-number))
+	cur-folder cur-number message-last-pos
+	(view-message-buffer (get-buffer-create wl-message-buf-name))
+        (sticky-buf-name (and (wl-summary-sticky-p) wl-message-buf-name))
+        (summary-buf-name (buffer-name)))
+    (save-excursion
+      (set-buffer view-message-buffer)
+      (when (and sticky-buf-name
+                 (not (wl-local-variable-p 'wl-message-buf-name
+					   (current-buffer))))
+        (make-local-variable 'wl-message-buf-name)
+        (setq wl-message-buf-name sticky-buf-name)
+        (make-local-variable 'wl-message-buffer-cur-summary-buffer)
+        (setq wl-message-buffer-cur-summary-buffer summary-buf-name))
+      (setq cur-folder wl-message-buffer-cur-folder)
+      (setq cur-number wl-message-buffer-cur-number))
+    (wl-summary-toggle-disp-msg 'on)
+    (if (and (string= folder cur-folder)
+	     (eq number cur-number))
+	(progn
+	  (if (wl-summary-next-page)
+	      (wl-summary-down t)))
+;	    (wl-summary-scroll-up-content)))
+      (if (wl-summary-no-mime-p folder)
+	  (wl-summary-redisplay-no-mime folder number)
+	(wl-summary-redisplay-internal folder number)))))
+
+(defun wl-summary-move-cached-regex (skip-marks)
+  (if (eq wl-summary-move-order 'unread)
+      (list
+       (format "^%s[^%s]\\(%s\\)"
+	       wl-summary-buffer-number-regexp
+	       skip-marks
+	       (regexp-quote wl-summary-unread-cached-mark))
+       (format "^%s[^%s]\\(%s\\| \\)"
+	       wl-summary-buffer-number-regexp
+	       skip-marks
+	       (regexp-quote wl-summary-important-mark)))
+    (list
+     (format "^%s[^%s]\\(%s\\|%s\\| \\)"
+	     wl-summary-buffer-number-regexp
+	     skip-marks
+	     (regexp-quote wl-summary-unread-cached-mark)
+	     (regexp-quote wl-summary-important-mark)))))
+
+(defun wl-summary-prev (&optional interactive)
+  (interactive)
+  (if wl-summary-move-direction-toggle
+      (setq wl-summary-move-direction-downward nil))
+  (let ((type (elmo-folder-get-type wl-summary-buffer-folder-name))
+	(skip-mark-regexp (mapconcat
+			   'regexp-quote
+			   wl-summary-skip-mark-list ""))
+	goto-next regex-list regex next-entity finfo)
+    (beginning-of-line)
+    (if (elmo-folder-plugged-p wl-summary-buffer-folder-name)
+	(progn
+	  (setq regex (format "^%s[^%s]"
+			      wl-summary-buffer-number-regexp
+			      skip-mark-regexp))
+	  (unless (re-search-backward regex nil t)
+	    (setq goto-next t)))
+      (setq regex-list (wl-summary-move-cached-regex skip-mark-regexp))
+      (catch 'done
+	(while regex-list
+	  (if (re-search-backward (car regex-list) nil t)
+	      (throw 'done t))
+	  (setq regex-list (cdr regex-list)))
+	(setq goto-next t)))
+    (beginning-of-line)
+    (if (not goto-next)
+	(progn
+	  (if wl-summary-buffer-disp-msg
+	      (wl-summary-redisplay)))
+      (if (or interactive (interactive-p))
+	  (progn
+	    (when wl-auto-select-next
+	      (setq next-entity (wl-summary-get-prev-folder))
+	      (if next-entity
+		  (setq finfo (wl-folder-get-entity-info next-entity))))
+	    (wl-ask-folder 
+	     '(lambda () (wl-summary-next-folder-or-exit next-entity))
+	     (format
+	      "No more messages. Type SPC to go to %s."
+	      (wl-summary-entity-info-msg next-entity finfo))))))))
+
+(defun wl-summary-next (&optional interactive)
+  (interactive)
+  (if wl-summary-move-direction-toggle
+      (setq wl-summary-move-direction-downward t))
+  (let ((type (elmo-folder-get-type wl-summary-buffer-folder-name))
+	(skip-mark-regexp (mapconcat
+			   'regexp-quote
+			   wl-summary-skip-mark-list ""))
+	goto-next regex regex-list next-entity finfo)
+    (end-of-line)
+    (if (elmo-folder-plugged-p wl-summary-buffer-folder-name)
+	(progn
+	  (setq regex (format "^%s[^%s]"
+			      wl-summary-buffer-number-regexp
+			      skip-mark-regexp))
+	  (unless (re-search-forward regex nil t)
+	    (forward-line 1)
+	    (setq goto-next t)))
+      (setq regex-list (wl-summary-move-cached-regex skip-mark-regexp))
+      (catch 'done
+	(while regex-list
+	  (if (re-search-forward (car regex-list) nil t)
+	      (throw 'done t))
+	  (setq regex-list (cdr regex-list)))
+	(setq goto-next t)))
+    (beginning-of-line)
+    (if (not goto-next)
+	(if wl-summary-buffer-disp-msg
+	    (wl-summary-redisplay))
+      (if (or interactive (interactive-p))
+	  (progn
+	    (when wl-auto-select-next
+	      (setq next-entity (wl-summary-get-next-folder))
+	      (if next-entity
+		  (setq finfo (wl-folder-get-entity-info next-entity))))
+	    (wl-ask-folder 
+	     '(lambda () (wl-summary-next-folder-or-exit next-entity))
+	     (format
+	      "No more messages. Type SPC to go to %s."
+	      (wl-summary-entity-info-msg next-entity finfo))))))))
+
+(defun wl-summary-up (&optional interactive skip-no-unread)
+  (interactive)
+  (if wl-summary-move-direction-toggle
+      (setq wl-summary-move-direction-downward nil))
+  (if (wl-summary-cursor-up)
+      (if wl-summary-buffer-disp-msg
+	  (wl-summary-redisplay))
+    (if (or interactive
+	    (interactive-p))
+	(let (next-entity finfo)
+	  (when wl-auto-select-next
+	    (progn
+	      (setq next-entity (wl-summary-get-prev-unread-folder))
+	      (if next-entity
+		  (setq finfo (wl-folder-get-entity-info next-entity)))))
+	  (if (and skip-no-unread
+		   (eq wl-auto-select-next 'skip-no-unread))
+	      (wl-summary-next-folder-or-exit next-entity t)
+	    (wl-ask-folder 
+	     '(lambda () (wl-summary-next-folder-or-exit next-entity t))
+	     (format
+	      "No more unread messages. Type SPC to go to %s."
+	      (wl-summary-entity-info-msg next-entity finfo))))))))
+
+(defun wl-summary-get-prev-folder ()
+  (let ((folder-buf (get-buffer wl-folder-buffer-name))
+	last-entity cur-id)
+    (when folder-buf
+      (setq cur-id (save-excursion (set-buffer folder-buf)
+				   wl-folder-buffer-cur-entity-id))
+      (wl-folder-get-prev-folder cur-id))))
+
+(defun wl-summary-get-next-folder ()
+  (let ((folder-buf (get-buffer wl-folder-buffer-name))
+	cur-id)
+    (when folder-buf
+      (setq cur-id (save-excursion (set-buffer folder-buf)
+				   wl-folder-buffer-cur-entity-id))
+      (wl-folder-get-next-folder cur-id))))
+
+(defun wl-summary-get-next-unread-folder ()
+  (let ((folder-buf (get-buffer wl-folder-buffer-name))
+	cur-id)
+    (when folder-buf
+      (setq cur-id (save-excursion (set-buffer folder-buf)
+				   wl-folder-buffer-cur-entity-id))
+      (wl-folder-get-next-folder cur-id 'unread))))
+
+(defun wl-summary-get-prev-unread-folder ()
+  (let ((folder-buf (get-buffer wl-folder-buffer-name))
+	cur-id)
+    (when folder-buf
+      (setq cur-id (save-excursion (set-buffer folder-buf)
+				   wl-folder-buffer-cur-entity-id))
+      (wl-folder-get-prev-folder cur-id 'unread))))
+
+(defun wl-summary-down (&optional interactive skip-no-unread)
+  (interactive)
+  (if wl-summary-move-direction-toggle
+      (setq wl-summary-move-direction-downward t))
+  (if (wl-summary-cursor-down)
+      (if wl-summary-buffer-disp-msg
+	  (wl-summary-redisplay))
+    (if (or interactive
+	    (interactive-p))
+	(let (next-entity finfo)
+	  (when wl-auto-select-next
+	    (setq next-entity (wl-summary-get-next-unread-folder))
+	    (if next-entity
+		(setq finfo (wl-folder-get-entity-info next-entity))))
+	  (if (and skip-no-unread
+		   (eq wl-auto-select-next 'skip-no-unread))
+	      (wl-summary-next-folder-or-exit next-entity)
+	    (wl-ask-folder 
+	     '(lambda () (wl-summary-next-folder-or-exit next-entity))
+	     (format
+	      "No more unread messages. Type SPC to go to %s."
+	      (wl-summary-entity-info-msg next-entity finfo))))))))
+
+(defun wl-summary-goto-last-displayed-msg ()
+  (interactive)
+  (unless wl-summary-buffer-last-displayed-msg
+    (setq wl-summary-buffer-last-displayed-msg 
+	  wl-summary-buffer-current-msg))
+  (if wl-summary-buffer-last-displayed-msg
+      (progn
+	(wl-summary-jump-to-msg wl-summary-buffer-last-displayed-msg)
+	(if wl-summary-buffer-disp-msg
+	    (wl-summary-redisplay)))
+    (message "No last message.")))
+
+(defun wl-summary-redisplay (&optional arg)
+  (interactive "P")
+  (if (and (not arg)
+	   (wl-summary-no-mime-p wl-summary-buffer-folder-name))
+      (wl-summary-redisplay-no-mime)
+    (wl-summary-redisplay-internal nil nil arg)))
+
+(defsubst wl-summary-redisplay-internal (&optional folder number force-reload)
+  (interactive)
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (fld (or folder wl-summary-buffer-folder-name))
+	 (num (or number (wl-summary-message-number)))
+	 (wl-mime-charset      wl-summary-buffer-mime-charset)
+	 (default-mime-charset wl-summary-buffer-mime-charset)
+	 (wl-message-redisplay-func 
+	  wl-summary-buffer-message-redisplay-func)
+	 fld-buf fld-win thr-entity)
+    (if (and wl-thread-open-reading-thread
+	     (eq wl-summary-buffer-view 'thread)
+	     (not (wl-thread-entity-get-opened 
+		   (setq thr-entity (wl-thread-get-entity 
+				     num))))
+	     (wl-thread-entity-get-children thr-entity))
+	(wl-thread-force-open))
+    (if num
+	(progn
+	  (setq wl-summary-buffer-disp-msg t)
+	  (setq wl-summary-buffer-last-displayed-msg 
+		wl-summary-buffer-current-msg)
+	  ;; hide folder window
+	  (if (and (not wl-stay-folder-window)
+		   (setq fld-buf (get-buffer wl-folder-buffer-name)))
+	      (if (setq fld-win (get-buffer-window fld-buf))
+		  (delete-window fld-win)))	  
+          (setq wl-current-summary-buffer (current-buffer))
+	  (if (wl-message-redisplay fld num 'mime msgdb force-reload) 
+	      (wl-summary-mark-as-read nil
+				       ;; cached, then change server-mark.
+				       (if wl-message-cache-used
+					   nil
+					 ;; plugged, then leave server-mark.
+					 (if (elmo-folder-plugged-p
+					      wl-summary-buffer-folder-name)
+					     'leave))
+				       t) ;; displayed
+	    )
+	  (setq wl-summary-buffer-current-msg num)
+	  (if wl-summary-recenter
+	      (recenter (/ (- (window-height) 2) 2)))
+	  (wl-highlight-summary-displaying)
+	  (wl-cache-prefetch-next fld num (current-buffer))
+	  (run-hooks 'wl-summary-redisplay-hook))
+      (message "No message to display."))))
+
+(defun wl-summary-redisplay-no-mime (&optional folder number)
+  (interactive)
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (fld (or folder wl-summary-buffer-folder-name))
+	 (num (or number (wl-summary-message-number)))
+	 (wl-mime-charset      wl-summary-buffer-mime-charset)
+	 (default-mime-charset wl-summary-buffer-mime-charset)	 
+	 wl-break-pages)
+    (if num
+	(progn
+	  (setq wl-summary-buffer-disp-msg t)
+	  (setq wl-current-summary-buffer (current-buffer))
+	  (wl-normal-message-redisplay fld num 'no-mime msgdb)
+	  (wl-summary-mark-as-read nil nil t)
+	  (setq wl-summary-buffer-current-msg num)
+	  (if wl-summary-recenter
+	      (recenter (/ (- (window-height) 2) 2)))
+	  (wl-highlight-summary-displaying)
+	  (run-hooks 'wl-summary-redisplay-hook))
+      (message "No message to display.")
+      (wl-ask-folder 'wl-summary-exit
+		     "No more messages. Type SPC to go to folder mode."))))
+
+(defun wl-summary-redisplay-all-header (&optional folder number)
+  (interactive)
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (fld (or folder wl-summary-buffer-folder-name))
+	 (num (or number (wl-summary-message-number)))
+	 (wl-mime-charset      wl-summary-buffer-mime-charset)
+	 (default-mime-charset wl-summary-buffer-mime-charset)	 
+	 (wl-message-redisplay-func wl-summary-buffer-message-redisplay-func))
+    (if num
+	(progn
+	  (if (wl-message-redisplay fld num 'all-header msgdb); t if displayed.
+	      (wl-summary-mark-as-read nil nil t))
+	  (run-hooks 'wl-summary-redisplay-hook))
+      (message "No message to display."))))
+	 
+(defun wl-summary-jump-to-current-message ()
+  (interactive)
+  (let (message-buf message-win)
+    (if (setq message-buf (get-buffer wl-message-buf-name))
+	(if (setq message-win (get-buffer-window message-buf))
+	    (select-window message-win)
+	  (wl-select-buffer (get-buffer wl-message-buf-name)))
+      (wl-summary-redisplay)
+      (wl-select-buffer (get-buffer wl-message-buf-name)))
+    (goto-char (point-min))))
+
+(defun wl-summary-cancel-message ()
+  "Cancel an article on news."
+  (interactive)
+  (let ((summary-buf (current-buffer))
+	message-buf)
+    (wl-summary-set-message-buffer-or-redisplay)
+    (if (setq message-buf (wl-message-get-original-buffer))
+	(set-buffer message-buf))
+    (unless (wl-message-news-p)
+      (error "This is not a news article; canceling is impossible"))
+    (when (yes-or-no-p "Do you really want to cancel this article? ")
+      (let (from newsgroups message-id distribution buf)
+	(save-excursion
+	  (setq from (std11-field-body "from")
+		newsgroups (std11-field-body "newsgroups")
+		message-id (std11-field-body "message-id")
+		distribution (std11-field-body "distribution"))
+	  ;; Make sure that this article was written by the user.
+	  (unless (wl-address-user-mail-address-p 
+		   (wl-address-header-extract-address
+		    (car (wl-parse-addresses from))))
+	    (error "This article is not yours"))
+	  ;; Make control message.
+	  (setq buf (set-buffer (get-buffer-create " *message cancel*")))
+	  (setq wl-draft-buffer-cur-summary-buffer summary-buf)
+	  (buffer-disable-undo (current-buffer))
+	  (erase-buffer)
+	  (insert "Newsgroups: " newsgroups "\n"
+		  "From: " (wl-address-header-extract-address
+			    wl-from) "\n"
+			    "Subject: cmsg cancel " message-id "\n"
+			    "Control: cancel " message-id "\n"
+			    (if distribution
+				(concat "Distribution: " distribution "\n")
+			      "")
+			    mail-header-separator "\n"
+			    wl-summary-cancel-message)
+	  (message "Canceling your message...")
+	  (wl-draft-raw-send t t) ; kill when done, force-pre-hooks.
+	  (message "Canceling your message...done"))))))
+
+(defun wl-summary-supersedes-message ()
+  "Supersede current message."
+  (interactive)
+  (let ((summary-buf (current-buffer))
+ 	(mmelmo-force-fetch-entire-message t)
+ 	message-buf from)
+    (wl-summary-set-message-buffer-or-redisplay)
+    (if (setq message-buf (wl-message-get-original-buffer))
+ 	(set-buffer message-buf))
+    (unless (wl-message-news-p)
+      (error "This is not a news article; supersedes is impossible"))
+    (save-excursion
+      (setq from (std11-field-body "from"))
+      ;; Make sure that this article was written by the user.
+      (unless (wl-address-user-mail-address-p 
+	       (wl-address-header-extract-address
+		(car (wl-parse-addresses from))))
+ 	(error "This article is not yours"))
+      (let* ((message-id (std11-field-body "message-id"))
+ 	     (followup-to (std11-field-body "followup-to"))
+ 	     (mail-default-headers
+ 	      (concat mail-default-headers
+ 		      "Supersedes: " message-id "\n"
+ 		      (and followup-to
+ 			   (concat "Followup-To: " followup-to "\n")))))
+ 	(set-buffer (wl-message-get-original-buffer))
+ 	(wl-draft-edit-string (buffer-substring (point-min) (point-max)))))))
+
+(defun wl-summary-save (&optional arg wl-save-dir)
+  (interactive)
+  (let ((filename)
+	(num (wl-summary-message-number))
+	(mmelmo-force-fetch-entire-message t))
+    (if (null wl-save-dir)
+	(setq wl-save-dir wl-tmp-dir))
+    (if num
+	(save-excursion
+	  (setq filename (expand-file-name
+			  (int-to-string num)
+			  wl-save-dir))
+	  (if (null (and arg
+			 (null (file-exists-p filename))))
+	      (setq filename
+		    (read-file-name "Save to file: " filename)))
+				 
+	  (wl-summary-set-message-buffer-or-redisplay)
+	  (set-buffer (wl-message-get-original-buffer))
+	  (if (and (null arg) (file-exists-p filename))
+	      (if (y-or-n-p "file already exists. override it?")
+		  (write-region (point-min) (point-max) filename))
+	    (write-region (point-min) (point-max) filename)))
+      (message "No message to save."))
+    num))
+
+(defun wl-summary-save-region (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (let ((wl-save-dir
+	     (wl-read-directory-name "Save to directory: " wl-tmp-dir)))
+	(if (null (file-exists-p wl-save-dir))
+	    (make-directory wl-save-dir))
+	(if (eq wl-summary-buffer-view 'thread)
+	    (progn
+	      (while (not (eobp))
+		(let* ((number (wl-summary-message-number))
+		       (entity (wl-thread-get-entity number)))
+		  (if (wl-thread-entity-get-opened entity)
+		      (wl-summary-save t wl-save-dir)
+		    ;; closed
+		    (wl-summary-save t wl-save-dir))
+		  (forward-line 1))))
+	  (while (not (eobp))
+	    (wl-summary-save t wl-save-dir)
+	    (forward-line 1)))))))
+
+;; mew-summary-pipe-message()
+(defun wl-summary-pipe-message (prefix command)
+  "Send this message via pipe."
+  (interactive
+   (list current-prefix-arg
+	 (read-string "Shell command on message: " wl-summary-shell-command-last)))
+  (if (y-or-n-p "Send this message to pipe? ")
+      (save-excursion
+	(wl-summary-set-message-buffer-or-redisplay)
+	(set-buffer (wl-message-get-original-buffer))
+	(if (string= command "")
+	    (setq command wl-summary-shell-command-last))
+	(goto-char (point-min)) ; perhaps this line won't be necessary
+	(if prefix
+	    (search-forward "\n\n"))
+	(shell-command-on-region (point) (point-max) command nil)
+	(setq wl-summary-shell-command-last command))))
+
+(defun wl-summary-print-message (&optional arg)
+  (interactive "P")
+  (save-excursion
+    (wl-summary-set-message-buffer-or-redisplay)
+    (if (or (not (interactive-p))
+	    (y-or-n-p "Print ok?"))
+	(progn
+	  (let* ((message-buffer (get-buffer wl-message-buf-name))
+		 ;; (summary-buffer (get-buffer wl-summary-buffer-name))
+		 (buffer (generate-new-buffer " *print*")))
+	    (set-buffer message-buffer)
+	    (copy-to-buffer buffer (point-min) (point-max))
+	    (set-buffer buffer)
+	    (funcall wl-print-buffer-func)
+	    (kill-buffer buffer)))
+      (message ""))))
+
+(defun wl-summary-print-message-with-ps-print (&optional filename)
+  (interactive (list (ps-print-preprint current-prefix-arg)))
+  (if (or (not (interactive-p))
+	  (y-or-n-p "Print ok?"))
+      (let ((summary-buffer (current-buffer))
+	    wl-break-pages)
+	(save-excursion
+	  ;;(wl-summary-set-message-buffer-or-redisplay)
+	  (wl-summary-redisplay-internal)
+	  (let* ((message-buffer (get-buffer wl-message-buf-name))
+		 (buffer (generate-new-buffer " *print*"))
+		 (entity (progn
+			   (set-buffer summary-buffer)
+			   (assoc (cdr (assq 
+					(wl-summary-message-number)
+					(elmo-msgdb-get-number-alist 
+					 wl-summary-buffer-msgdb)))
+				  (elmo-msgdb-get-overview 
+				   wl-summary-buffer-msgdb))))
+		 (wl-ps-subject
+		  (and entity
+		       (or (elmo-msgdb-overview-entity-get-subject entity) 
+			   "")))
+		 (wl-ps-from
+		  (and entity
+		       (or (elmo-msgdb-overview-entity-get-from entity) "")))
+		 (wl-ps-date
+		  (and entity
+		       (or (elmo-msgdb-overview-entity-get-date entity) ""))))
+	    (run-hooks 'wl-ps-preprint-hook)
+	    (set-buffer message-buffer)
+	    (copy-to-buffer buffer (point-min) (point-max))
+	    (set-buffer buffer)
+	    (unwind-protect
+		(let ((ps-left-header
+		       (list (concat "(" wl-ps-subject ")")
+			     (concat "(" wl-ps-from ")")))
+		      (ps-right-header 
+		       (list "/pagenumberstring load" 
+			     (concat "(" wl-ps-date ")"))))
+		  (run-hooks 'wl-ps-print-hook)
+		  (funcall wl-ps-print-buffer-func filename))
+	      (kill-buffer buffer)))))
+    (message "")))
+  
+(if (featurep 'ps-print) ; ps-print is available.
+    (fset 'wl-summary-print-message 'wl-summary-print-message-with-ps-print))
+
+(defun wl-summary-folder-info-update ()
+  (let ((folder (elmo-string wl-summary-buffer-folder-name))
+	(num-db (elmo-msgdb-get-number-alist
+		 wl-summary-buffer-msgdb)))
+    (wl-folder-set-folder-updated folder
+				  (list 0
+					(+ wl-summary-buffer-unread-count 
+					   wl-summary-buffer-new-count)
+					(length num-db)))))
+
+(defun wl-summary-get-newsgroups ()
+  (let ((spec-list (elmo-folder-get-primitive-spec-list
+		    (elmo-string wl-summary-buffer-folder-name)))
+	ng-list)
+    (while spec-list
+      (when (eq (caar spec-list) 'nntp)
+	(wl-append ng-list (list (nth 1 (car spec-list)))))
+      (setq spec-list (cdr spec-list)))
+    ng-list))
+
+(defun wl-summary-set-crosspost (&optional type redisplay)
+  (let* ((number (wl-summary-message-number))
+	 (spec (elmo-folder-number-get-spec wl-summary-buffer-folder-name
+					    number))
+	 (folder (nth 1 spec))
+	 message-buf newsgroups)
+    (when (eq (car spec) 'nntp)
+      (if redisplay
+	  (wl-summary-redisplay))
+      (save-excursion
+	(if (setq message-buf (wl-message-get-original-buffer))
+	    (set-buffer message-buf))
+	(setq newsgroups (std11-field-body "newsgroups")))
+      (when newsgroups
+	(let* ((msgdb wl-summary-buffer-msgdb)
+	       (num-db (elmo-msgdb-get-number-alist msgdb))
+	       (ng-list (wl-summary-get-newsgroups)) ;; for multi folder
+	       crosspost-folders)
+	  (when (setq crosspost-folders
+		      (elmo-delete-lists ng-list
+					 (wl-parse-newsgroups newsgroups t)))
+	    (elmo-crosspost-message-set (cdr (assq number num-db)) ;;message-id
+					crosspost-folders
+					type) ;;not used
+	    (setq wl-crosspost-alist-modified t)))))))
+
+(defun wl-summary-is-crosspost-folder (spec-list fld-list)
+  (let (fld flds)
+    (while spec-list
+      (if (and (eq (caar spec-list) 'nntp)
+	       (member (setq fld (nth 1 (car spec-list))) fld-list))
+	  (wl-append flds (list fld)))
+      (setq spec-list (cdr spec-list)))
+    flds))
+
+(defun wl-summary-update-crosspost ()
+  (let* ((msgdb wl-summary-buffer-msgdb) 
+	 (number-alist (elmo-msgdb-get-number-alist msgdb))
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 (spec-list (elmo-folder-get-primitive-spec-list
+		     (elmo-string wl-summary-buffer-folder-name)))
+	 (alist elmo-crosspost-message-alist)
+	 (crossed 0)
+	 mark ngs num)
+    (when (assq 'nntp spec-list)
+      (while alist
+	(when (setq ngs
+		    (wl-summary-is-crosspost-folder
+		     spec-list
+		     (nth 1 (car alist))))
+	  (when (setq num (car (rassoc (caar alist) number-alist)))
+	    (if (and (setq mark (cadr (assq num mark-alist)))
+		     (member mark (list wl-summary-new-mark
+					wl-summary-unread-uncached-mark
+					wl-summary-unread-cached-mark)))
+		(setq crossed (1+ crossed)))
+	    (if (wl-summary-jump-to-msg num)
+		(wl-summary-mark-as-read t);; opened
+	      (wl-thread-msg-mark-as-read num)));; closed
+	  ;; delete if message does't exists.
+	  (elmo-crosspost-message-delete (caar alist) ngs)
+	  (setq wl-crosspost-alist-modified t))
+	(setq alist (cdr alist))))
+    (if (> crossed 0)
+	crossed)))
+
+(defun wl-crosspost-alist-load ()
+  (setq elmo-crosspost-message-alist (elmo-crosspost-alist-load))
+  (setq wl-crosspost-alist-modified nil))
+
+(defun wl-crosspost-alist-save ()
+  (when wl-crosspost-alist-modified
+    ;; delete non-exists newsgroups
+    (let ((alist elmo-crosspost-message-alist)
+	  newsgroups)
+      (while alist
+	(setq newsgroups
+	      (elmo-delete-if
+	       '(lambda (x)
+		  (not (intern-soft x wl-folder-newsgroups-hashtb)))
+	       (nth 1 (car alist))))
+	(if newsgroups
+	    (setcar (cdar alist) newsgroups)
+	  (setq elmo-crosspost-message-alist
+		(delete (car alist) elmo-crosspost-message-alist)))
+	(setq alist (cdr alist)))
+      (elmo-crosspost-alist-save elmo-crosspost-message-alist)
+      (setq wl-crosspost-alist-modified nil))))
+
+(defun wl-summary-pack-number (&optional arg)
+  (interactive "P")
+  (setq wl-summary-buffer-msgdb
+	(elmo-pack-number
+	 wl-summary-buffer-folder-name wl-summary-buffer-msgdb arg))
+  (wl-summary-rescan))
+
+(defun wl-summary-target-mark-uudecode ()
+  (interactive)
+  (let ((mlist (reverse wl-summary-buffer-target-mark-list))
+	(summary-buf (current-buffer))
+	(tmp-buf (get-buffer-create "*WL UUENCODE*"))
+	orig-buf i k filename rc errmsg)
+    (setq i 1)
+    (setq k (length mlist))
+    (set-buffer tmp-buf)
+    (erase-buffer)
+    (save-window-excursion
+      (while mlist
+	(set-buffer summary-buf)
+	(wl-summary-jump-to-msg (car mlist))
+	(wl-summary-redisplay)
+	(set-buffer (setq orig-buf (wl-message-get-original-buffer)))
+	(goto-char (point-min))
+	(cond ((= i 1) ; first
+	       (setq filename (wl-message-uu-substring 
+			       orig-buf tmp-buf t 
+			       (= i k))))
+	      ((< i k)
+	       (wl-message-uu-substring orig-buf tmp-buf))
+	      (t ; last
+	       (wl-message-uu-substring orig-buf tmp-buf nil t)))
+	(setq i (1+ i))
+	(setq mlist (cdr mlist)))
+      (set-buffer tmp-buf)
+      (message "Exec %s..." wl-prog-uudecode)
+      (unwind-protect
+	  (let ((decode-dir wl-tmp-dir))
+	    (if (not wl-prog-uudecode-no-stdout-option)
+		(setq filename (read-file-name "Save to file: "
+					       (expand-file-name
+						(elmo-safe-filename filename)
+						wl-tmp-dir)))
+	      (setq decode-dir
+		    (wl-read-directory-name "Save to directory: "
+					    wl-tmp-dir))
+	      (setq filename (expand-file-name filename decode-dir)))
+	    (if (file-exists-p filename)
+		(or (yes-or-no-p (format "File %s exists. Save anyway? " 
+					 filename))
+		    (error "")))
+	    (elmo-bind-directory
+	     decode-dir
+	     (setq rc
+		   (as-binary-process
+		    (apply 'call-process-region (point-min) (point-max)
+			   wl-prog-uudecode t (current-buffer) nil
+			   wl-prog-uudecode-arg))))
+	    (when (not (= 0 rc))
+	      (setq errmsg (buffer-substring (point-min)(point-max)))
+	      (error "uudecode error: %s" errmsg))
+	    (if (not wl-prog-uudecode-no-stdout-option)
+		(let (file-name-handler-alist) ;; void jka-compr
+		  (as-binary-output-file
+		   (write-region (point-min) (point-max)
+				 filename nil 'no-msg))))
+	    (save-excursion
+	      (set-buffer summary-buf)
+	      (wl-summary-delete-all-temp-marks))
+	    (if (file-exists-p filename)
+		(message "Saved as %s" filename)))
+	(kill-buffer tmp-buf)))))
+
+(defun wl-summary-drop-unsync ()
+  "Drop all unsync messages."
+  (interactive)
+  (if (elmo-folder-pipe-p wl-summary-buffer-folder-name)
+      (error "You cannot drop unsync messages in this folder"))
+  (if (or (not (interactive-p))
+	  (y-or-n-p "Drop all unsync messages?"))
+      (let* ((folder-list (elmo-folder-get-primitive-folder-list
+			   wl-summary-buffer-folder-name))
+	     (is-multi (elmo-multi-p wl-summary-buffer-folder-name))
+	     (sum 0)
+	     (multi-num 0)
+	     pair)
+	(message "Dropping...")
+	(while folder-list
+	  (setq pair (elmo-max-of-folder (car folder-list)))
+	  (when is-multi ;; dirty hack...
+	    (incf multi-num)
+	    (setcar pair (+ (* multi-num elmo-multi-divide-number)
+			    (car pair))))
+	  (elmo-msgdb-set-number-alist 
+	   wl-summary-buffer-msgdb 
+	   (nconc 
+	    (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb)
+	    (list (cons (car pair) nil))))
+	  (setq sum (+ sum (cdr pair)))
+	  (setq folder-list (cdr folder-list)))
+	(wl-summary-set-message-modified)
+	(wl-folder-set-folder-updated wl-summary-buffer-folder-name
+				      (list 0
+					    (+ wl-summary-buffer-unread-count 
+					       wl-summary-buffer-new-count)
+					    sum))
+	(message "Dropping...done."))))
+
+(defun wl-summary-default-get-next-msg (msg)
+  (let (next)
+    (if (and (not wl-summary-buffer-target-mark-list)
+	     (eq wl-summary-buffer-view 'thread)
+	     (if (eq wl-summary-move-direction-downward nil)
+		 (setq next (wl-thread-get-prev-unread msg))
+	       (setq next (wl-thread-get-next-unread msg))))
+	next
+      (save-excursion
+	(wl-summary-jump-to-msg msg)
+	(let (wl-summary-buffer-disp-msg)
+	  (if (eq wl-summary-move-direction-downward nil)
+	      (unless (wl-summary-cursor-up)
+		(wl-summary-prev))
+	    (unless (wl-summary-cursor-down)
+	      (wl-summary-next)))
+	  (wl-summary-message-number))))))
+
+(defsubst wl-cache-prefetch-p (fld &optional num)
+  (cond ((and num wl-cache-prefetch-folder-type-list)
+	 (memq
+	  (elmo-folder-number-get-type fld num)
+	  wl-cache-prefetch-folder-type-list))
+	(wl-cache-prefetch-folder-type-list
+	 (let ((list wl-cache-prefetch-folder-type-list)
+	       type)
+	   (catch 'done
+	     (while (setq type (pop list))
+	       (if (elmo-folder-contains-type fld type)
+		   (throw 'done t))))))
+	((consp wl-cache-prefetch-folder-list)
+	 (wl-string-match-member fld wl-cache-prefetch-folder-list))
+	(t
+	 wl-cache-prefetch-folder-list)))
+
+(defconst wl-cache-prefetch-idle-time 
+  (if (featurep 'lisp-float-type) (/ (float 1) (float 10)) 1))
+
+(defun wl-cache-prefetch-next (fld msg &optional summary)
+  (if (wl-cache-prefetch-p fld)
+      (if (not elmo-use-buffer-cache)
+	 ;; (message "`elmo-use-buffer-cache' is nil, cache prefetch is disable.")
+	(save-excursion
+	  (set-buffer (or summary (get-buffer wl-summary-buffer-name)))
+	  (let ((next (funcall wl-cache-prefetch-get-next-func msg)))
+	    (when (and next
+		       (wl-cache-prefetch-p fld next))
+	      (if (not (fboundp 'run-with-idle-timer))
+		  (when (sit-for wl-cache-prefetch-idle-time)
+		    (wl-cache-prefetch-message fld next summary))
+		(run-with-idle-timer
+		 wl-cache-prefetch-idle-time
+		 nil
+		 'wl-cache-prefetch-message fld next summary)
+		(sit-for 0))))))))
+
+(defvar wl-cache-prefetch-debug nil)
+(defun wl-cache-prefetch-message (folder msg summary &optional next)
+  (when (buffer-live-p summary)
+    (save-excursion
+      (set-buffer summary)
+      (when (string= folder wl-summary-buffer-folder-name)
+	(unless next
+	  (setq next msg))
+	(let* ((msgdb wl-summary-buffer-msgdb)
+	       (message-id (cdr (assq next
+				      (elmo-msgdb-get-number-alist msgdb)))))
+	  (if (not (elmo-buffer-cache-hit (list folder next message-id)))
+	      (let* ((size (elmo-msgdb-overview-entity-get-size
+			    (assoc message-id 
+				   (elmo-msgdb-get-overview msgdb)))))
+		(when (or (elmo-local-file-p folder next)
+			  (not (and (integerp size)
+				    wl-cache-prefetch-threshold
+				    (>= size wl-cache-prefetch-threshold)
+				    (not (elmo-cache-exists-p message-id
+							      folder next)))))
+		  (if wl-cache-prefetch-debug
+		      (message "Reading %d..." msg))
+		  (elmo-buffer-cache-message folder next msgdb)
+		  (if wl-cache-prefetch-debug
+		      (message "Reading %d... done" msg))))))))))
+
+(provide 'wl-summary)
+
+;;; wl-summary.el ends here
diff --git a/wl/wl-template.el b/wl/wl-template.el
new file mode 100644
index 0000000..78d49f5
--- /dev/null
+++ b/wl/wl-template.el
@@ -0,0 +1,194 @@
+;;; wl-template.el -- Draft template feature for Wanderlust.
+
+;; Copyright 1998,1999,2000 Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;;                          Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Masahiro MURATA <muse@ba2.so-net.ne.jp>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-03 13:18:35 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+
+;;; Code:
+;; 
+
+;; Variables
+
+(defvar wl-template-default-name "default")
+(defvar wl-template-buffer-name "*WL-Template*")
+(defvar wl-template-mode-map nil)
+
+(defvar wl-template nil)
+(defvar wl-template-cur-num 0)
+(defvar wl-template-max-num 0)
+(defvar wl-template-draft-buffer nil)
+
+;;; Code
+
+(if wl-template-mode-map
+    nil
+  (setq wl-template-mode-map (make-sparse-keymap))
+  (define-key wl-template-mode-map "p"     'wl-template-prev)
+  (define-key wl-template-mode-map "n"     'wl-template-next)
+  (define-key wl-template-mode-map "q"     'wl-template-abort)
+  (define-key wl-template-mode-map "\r"    'wl-template-set)
+  (define-key wl-template-mode-map "\n"    'wl-template-set))
+
+(defun wl-template-apply (name)
+  (let (template)
+    (when name
+      (if (string= name "")
+	  (setq name wl-template-default-name))
+      (when (setq template (cdr (assoc name wl-template-alist)))
+	(save-excursion
+	  (setq wl-draft-config-variables
+		(elmo-uniq-list
+		 (nconc wl-draft-config-variables
+			(save-excursion
+			  (wl-draft-config-exec-sub template)))))
+	  ;; rehighlight
+	  (if wl-highlight-body-too
+	      (let ((beg (point-min))
+		    (end (point-max)))
+		(put-text-property beg end 'face nil)
+		(wl-highlight-message beg end t))))))))
+
+(defun wl-template-mode ()
+  "Major mode for Wanderlust template.
+See info under Wanderlust for full documentation.
+
+\\{wl-template-mode}
+
+Enterring WL-Template mode calls the value of `wl-template-mode-hook'."
+  (kill-all-local-variables)
+  (setq mode-name "Wl-Template"
+	major-mode 'wl-template-mode)
+  (use-local-map wl-template-mode-map)
+  (setq buffer-read-only t)
+  (run-hooks 'wl-template-mode-hook))
+
+(defun wl-template-select ()
+  (interactive)
+  (if (not wl-template-visible-select)
+      (wl-template-apply
+       (completing-read (format "Template (%s): " wl-template-default-name)
+			wl-template-alist))
+    (let* ((begin wl-template-default-name)
+	   (work wl-template-alist))
+      (if (and begin (cdr (assoc begin wl-template-alist)))
+	  (while (not (string= (car (car work)) begin))
+	    (setq wl-template-cur-num (1+ wl-template-cur-num))
+	    (setq work (cdr work))))
+      (setq wl-template nil
+	    wl-template-cur-num 0
+	    wl-template-max-num (length wl-template-alist))
+      (setq wl-template-draft-buffer (current-buffer))
+      (if (get-buffer-window wl-template-buffer-name)
+	  (select-window (get-buffer-window wl-template-buffer-name))
+	(let* ((cur-win (selected-window))
+	       (size (min
+		      (- (window-height cur-win)
+			 window-min-height 1)
+		      (- (window-height cur-win)
+			 (max window-min-height
+			      (1+ wl-template-buffer-lines))))))
+	  (split-window cur-win (if (> size 0) size window-min-height))
+	  ;; goto the bottom of the two...
+	  (select-window (next-window))
+	  ;; make it display...
+	  (let ((pop-up-windows nil))
+	    (switch-to-buffer (get-buffer-create wl-template-buffer-name)))))
+      (set-buffer wl-template-buffer-name)
+      (wl-template-mode)
+      (wl-template-show))))
+
+(defun wl-template-show (&optional arg)
+  "Show reference INDEX in wl-template-alist."
+  (save-excursion
+    (set-buffer wl-template-buffer-name)
+    (let ((buffer-read-only nil)
+	  (mail-header-separator  "--header separater--"))
+      (erase-buffer)
+      (goto-char (point-min))
+      (wl-template-insert
+       (setq wl-template (car (nth wl-template-cur-num wl-template-alist)))
+       mail-header-separator)
+      (wl-highlight-message (point-min) (point-max) t)
+      (and wl-highlight-x-face-func
+	   (funcall 
+	    wl-highlight-x-face-func 
+	    (point-min) (re-search-forward mail-header-separator nil t)))
+      (setq mode-line-process (concat ":" wl-template))
+      (set-buffer-modified-p nil))))
+
+(defun wl-template-next ()
+  "Display next reference in other buffer."
+  (interactive)
+  (if (eq wl-template-max-num
+	  (setq wl-template-cur-num (1+ wl-template-cur-num)))
+      (setq wl-template-cur-num 0))
+  (wl-template-show))
+
+(defun wl-template-prev ()
+  "Display previous reference in other buffer."
+  (interactive)
+  (setq wl-template-cur-num (if (eq wl-template-cur-num 0)
+				(1- wl-template-max-num)
+			      (1- wl-template-cur-num)))
+  (wl-template-show))
+
+(defun wl-template-abort ()
+  "Exit from electric reference mode without inserting reference."
+  (interactive)
+  (setq wl-template nil)
+  (delete-window)
+  (kill-buffer wl-template-buffer-name)
+  (when (buffer-live-p wl-template-draft-buffer)
+    (set-buffer wl-template-draft-buffer)
+    (let ((win (get-buffer-window wl-template-draft-buffer)))
+      (if win (select-window win)))))
+
+(defun wl-template-set ()
+  "Exit from electric reference mode and insert selected reference."
+  (interactive)
+  (if (and wl-template-confirm
+	   (not (y-or-n-p "Are you sure ? ")))
+      (message "")
+    (delete-window)
+    (kill-buffer wl-template-buffer-name)
+    (when (buffer-live-p wl-template-draft-buffer)
+      (set-buffer wl-template-draft-buffer)
+      (wl-template-apply wl-template)
+      (let ((win (get-buffer-window wl-template-draft-buffer)))
+	(if win (select-window win))))))
+
+(defun wl-template-insert (name &optional mail-header)
+  (let ((template (cdr (assoc name wl-template-alist)))
+	(mail-header-separator (or mail-header
+				   mail-header-separator)))
+    (when template
+      (if mail-header
+	  (insert mail-header-separator "\n"))
+      (wl-draft-config-exec-sub template))))
+
+(provide 'wl-template)
+
+;;; wl-template.el ends here
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
new file mode 100644
index 0000000..ac11584
--- /dev/null
+++ b/wl/wl-thread.el
@@ -0,0 +1,1427 @@
+;;; wl-thread.el -- Thread display modules for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/13 16:10:25 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'wl-summary)
+(require 'wl-highlight)
+
+;; buffer local variables.
+;(defvar wl-thread-top-entity '(nil t nil nil)) ; top entity
+(defvar wl-thread-tops nil)           ; top number list (number)
+(defvar wl-thread-entities nil)
+(defvar wl-thread-entity-list nil)    ; entity list
+(defvar wl-thread-entity-hashtb nil)  ; obarray
+(defvar wl-thread-indent-regexp nil)
+
+(mapcar 
+ (function make-variable-buffer-local)
+ (list 'wl-thread-entity-hashtb
+       'wl-thread-entities     ; -> ".wl-thread-entity"
+       'wl-thread-entity-list  ; -> ".wl-thread-entity-list"
+       'wl-thread-entity-cur
+       'wl-thread-indent-regexp))
+
+;;; global flag
+(defvar wl-thread-insert-force-opened nil)
+
+;;;;;; each entity is (number opened-or-not children parent) ;;;;;;;
+
+(defun wl-meaning-of-mark (mark)
+  (if (not (elmo-folder-plugged-p wl-summary-buffer-folder-name))
+      (cond 
+       ((string= mark wl-summary-unread-cached-mark)
+	'unread)
+       ((string= mark wl-summary-important-mark)
+	'important))
+    (cond 
+     ((string= mark wl-summary-new-mark)
+      'new)
+     ((or (string= mark wl-summary-unread-uncached-mark)
+	  (string= mark wl-summary-unread-cached-mark))
+      'unread)
+     ((string= mark wl-summary-important-mark)
+      'important))))
+  
+(defun wl-thread-next-mark-p (mark next)
+  (cond ((not (elmo-folder-plugged-p wl-summary-buffer-folder-name))
+	 (or (string= mark wl-summary-unread-cached-mark)
+	     (string= mark wl-summary-important-mark)))
+	((eq next 'new)
+	 (string= mark wl-summary-new-mark))
+	((eq next 'unread)
+	 (or (string= mark wl-summary-unread-uncached-mark)
+	     (string= mark wl-summary-unread-cached-mark)
+	     (string= mark wl-summary-new-mark)))
+	(t 
+	 (or (string= mark wl-summary-unread-uncached-mark)
+	     (string= mark wl-summary-unread-cached-mark)
+	     (string= mark wl-summary-new-mark)
+	     (string= mark wl-summary-important-mark)))))
+
+(defun wl-thread-next-failure-mark-p (mark next)
+  (cond ((not (elmo-folder-plugged-p wl-summary-buffer-folder-name))
+	 (string= mark wl-summary-unread-cached-mark))
+	((or (eq next 'new)
+	     (eq next 'unread))
+	 (or (string= mark wl-summary-unread-uncached-mark)
+	     (string= mark wl-summary-unread-cached-mark)
+	     (string= mark wl-summary-new-mark)
+	     (string= mark wl-summary-important-mark)))
+	(t t)))
+
+(defun wl-thread-resume-entity (fld)
+  (let (entities top-list)
+    (setq entities (wl-summary-load-file-object 
+		    (expand-file-name wl-thread-entity-file
+				      (elmo-msgdb-expand-path fld))))
+    (setq top-list
+	  (wl-summary-load-file-object
+	   (expand-file-name wl-thread-entity-list-file
+			     (elmo-msgdb-expand-path fld))))
+    (current-buffer)
+    (message "Resuming thread structure...")
+    ;; set obarray value.
+    (setq wl-thread-entity-hashtb (elmo-make-hash (* (length entities) 2)))
+    (mapcar 
+     '(lambda (x)
+       (elmo-set-hash-val (format "#%d" (car x))
+			  x
+			  wl-thread-entity-hashtb))
+     entities)
+    ;; set buffer local variables.
+    (setq wl-thread-entities entities)
+    (setq wl-thread-entity-list top-list)
+    (message "Resuming thread structure...done.")))
+
+(defun wl-thread-save-entity (dir)
+  (wl-thread-save-entities dir)
+  (wl-thread-save-top-list dir))
+
+(defun wl-thread-save-top-list (dir)
+  (let ((top-file (expand-file-name wl-thread-entity-list-file dir))
+	(entity wl-thread-entity-list)
+	(tmp-buffer (get-buffer-create " *wl-thread-save-top-list*")))
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (when (file-writable-p top-file)
+	(prin1 entity tmp-buffer)
+	(princ "\n" tmp-buffer)
+	(write-region (point-min) (point-max) top-file nil 'no-msg)
+	(kill-buffer tmp-buffer)))))
+
+(defun wl-thread-save-entities (dir)
+  (let ((top-file (expand-file-name wl-thread-entity-file dir))
+	(entities wl-thread-entities)
+	(tmp-buffer (get-buffer-create " *wl-thread-save-entities*")))
+    (save-excursion
+      (set-buffer tmp-buffer)
+      (erase-buffer)
+      (when (file-writable-p top-file)
+	(prin1 entities tmp-buffer)
+	(princ "\n" tmp-buffer)
+	(write-region (point-min) (point-max) top-file nil 'no-msg)
+	(kill-buffer tmp-buffer)))))
+
+(defsubst wl-thread-entity-get-number (entity)
+  (nth 0 entity))
+(defsubst wl-thread-entity-get-opened (entity)
+  (nth 1 entity))
+(defsubst wl-thread-entity-get-children (entity)
+  (nth 2 entity))
+(defsubst wl-thread-entity-get-parent (entity)
+  (nth 3 entity))
+
+(defsubst wl-thread-create-entity (num parent &optional opened)
+  (list num (or opened wl-thread-insert-opened) nil parent))
+
+(defsubst wl-thread-get-entity (num)
+  (and num
+       (boundp (intern (format "#%d" num) wl-thread-entity-hashtb))
+       (elmo-get-hash-val (format "#%d" num) wl-thread-entity-hashtb)))
+
+(defsubst wl-thread-entity-set-parent (entity parent)
+  (setcar (cdddr entity) parent)
+  entity)
+
+(defsubst wl-thread-entity-set-children (entity children)
+  (setcar (cddr entity) children))
+
+(defsubst wl-thread-entity-insert-as-top (entity)
+  (when (and entity
+	     (car entity))
+    (setq wl-thread-entity-list (append wl-thread-entity-list
+					(list (car entity))))
+    (setq wl-thread-entities (cons entity wl-thread-entities))
+    (elmo-set-hash-val (format "#%d" (car entity)) entity
+		       wl-thread-entity-hashtb)))
+
+(defsubst wl-thread-entity-insert-as-children (to entity)
+  (let ((children (nth 2 to)))
+    (setcar (cddr to) (wl-append children 
+				 (list (car entity))))
+    (setq wl-thread-entities (cons entity wl-thread-entities))
+    (elmo-set-hash-val (format "#%d" (car entity)) entity
+		       wl-thread-entity-hashtb)))
+
+(defsubst wl-thread-entity-set-opened (entity opened)
+  (setcar (cdr entity) opened))
+
+(defsubst wl-thread-entity-get-children-num (entity)
+  (let (children
+	ret-val msgs-stack
+	(msgs (list (car entity))))
+   (while msgs
+     (setq msgs (cdr msgs))
+     (setq children (wl-thread-entity-get-children entity))
+     (if (null children)
+	 (while (and (null msgs) msgs-stack)
+	   (setq msgs (wl-pop msgs-stack)))
+       (setq ret-val (+ (or ret-val 0) (length children)))
+       (wl-push msgs msgs-stack)
+       (setq msgs children))
+     (setq entity (wl-thread-get-entity (car msgs))))
+   ret-val))
+
+(defsubst wl-thread-entity-get-descendant (entity)
+  (let (children
+	ret-val msgs-stack
+	(msgs (list (car entity))))
+   (while msgs
+     (setq msgs (cdr msgs))
+     (setq children (wl-thread-entity-get-children entity))
+     (if (null children)
+	 (while (and (null msgs) msgs-stack)
+	   (setq msgs (wl-pop msgs-stack)))
+       (setq ret-val (append ret-val (copy-sequence children)))
+       (wl-push msgs msgs-stack)
+       (setq msgs children))
+     (setq entity (wl-thread-get-entity (car msgs))))
+   ret-val))  
+
+(defsubst wl-thread-entity-get-parent-entity (entity)
+  (wl-thread-get-entity (wl-thread-entity-get-parent entity)))
+
+(defun wl-thread-entity-get-top-entity (entity)
+  (let ((cur-entity entity)
+	p-num)
+    (while (setq p-num (wl-thread-entity-get-parent cur-entity))
+      (setq cur-entity (wl-thread-get-entity p-num)))
+    cur-entity))
+
+(defun wl-thread-entity-parent-invisible-p (entity)
+  "If parent of ENTITY is invisible, the top invisible ancestor entity of 
+ENTITY is returned."
+  (let ((cur-entity entity)
+	ret-val)
+    (catch 'done
+      (while (setq cur-entity (wl-thread-entity-get-parent-entity 
+			       cur-entity))
+	(if (null (wl-thread-entity-get-number cur-entity))
+	    ;; top!!
+	    (progn
+	      ;;(setq ret-val nil)
+	      (throw 'done nil))
+	  (when (not (wl-thread-entity-get-opened cur-entity))
+	    ;; not opened!!
+	    (setq ret-val cur-entity)))))
+    ;; top of closed entity in the path.
+    ret-val))
+
+(defun wl-thread-entity-get-mark (number)
+  (let ((mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	mark)
+    (setq mark (cadr (assq number mark-alist)))
+    (if (string= mark wl-summary-read-uncached-mark)
+	()
+      mark)))
+
+(defun wl-thread-meaning-alist-get-result (meaning-alist)
+  (let ((malist meaning-alist)
+	ret-val)
+    (catch 'done
+      (while malist
+	(if (setq ret-val (cdr (car malist)))
+	    (throw 'done ret-val))
+	(setq malist (cdr malist))))))
+
+(defun wl-thread-entity-check-prev-mark (entity prev-marks)
+  "Check prev mark. Result is stored in PREV-MARK."
+  (let ((msgs (list (car entity)))
+	(succeed-list (car prev-marks))
+	(failure-list (cdr prev-marks))
+	msgs-stack children
+	mark meaning success failure parents)
+  (catch 'done
+    (while msgs
+      (if (and (not (memq (car msgs) parents))
+	       (setq children (reverse (wl-thread-entity-get-children entity))))
+	  (progn
+	    (wl-append parents (list (car msgs)))
+	    (wl-push msgs msgs-stack)
+	    (setq msgs children))
+	(if (setq mark (wl-thread-entity-get-mark (car entity)))
+	    (if (setq meaning (wl-meaning-of-mark mark))
+		(if (setq success (assq meaning succeed-list))
+		    (progn
+		      (setcdr success entity)
+		      (throw 'done nil))
+		  (setq failure (assq meaning failure-list))
+		  (unless (cdr failure)		      
+		    (setcdr (assq meaning failure-list) entity)))))
+	(setq msgs (cdr msgs)))
+	(unless msgs
+	  (while (and (null msgs) msgs-stack)
+	    (setq msgs (wl-pop msgs-stack))))
+      (setq entity (wl-thread-get-entity (car msgs)))))))
+
+(defun wl-thread-entity-check-next-mark (entity next-marks)
+  "Check next mark. Result is stored in NEXT-MARK."
+  (let ((msgs (list (car entity)))
+	(succeed-list (car next-marks))
+	(failure-list (cdr next-marks))
+	msgs-stack children
+	mark meaning success failure)
+  (catch 'done
+    (while msgs
+      (if (setq mark (wl-thread-entity-get-mark (car entity)))
+	  (if (setq meaning (wl-meaning-of-mark mark))
+	      (if (setq success (assq meaning succeed-list))
+		  (progn
+		    (setcdr success entity)
+		    (throw 'done nil))
+		(setq failure (assq meaning failure-list))
+		(unless (cdr failure)		      
+		  (setcdr (assq meaning failure-list) entity)))))
+      (setq msgs (cdr msgs))
+      (setq children (wl-thread-entity-get-children entity))
+      (if children
+	  (progn
+	    (wl-push msgs msgs-stack)
+	    (setq msgs children))
+	(unless msgs
+	  (while (and (null msgs) msgs-stack)
+	    (setq msgs (wl-pop msgs-stack)))))
+      (setq entity (wl-thread-get-entity (car msgs)))))))
+
+(defun wl-thread-entity-get-older-brothers (entity &optional parent)
+  (let* ((parent (or parent
+		     (wl-thread-entity-get-parent-entity entity)))
+	 (brothers (wl-thread-entity-get-children parent))
+	 ret-val)
+    (if parent
+	brothers
+      (setq brothers wl-thread-entity-list))
+    (catch 'done
+      (while brothers
+	(if (not (eq (wl-thread-entity-get-number entity)
+		     (car brothers)))
+	    (wl-append ret-val (list (car brothers)))
+	  (throw 'done ret-val))
+	(setq brothers (cdr brothers))))))
+
+(defun wl-thread-entity-get-younger-brothers (entity &optional parent)
+  (let* ((parent (or parent
+		     (wl-thread-entity-get-parent-entity entity)))
+	 (brothers (wl-thread-entity-get-children parent)))
+    (if parent 
+	(cdr (memq (wl-thread-entity-get-number entity)
+		   brothers))
+      ;; top!!
+      (cdr (memq (car entity) wl-thread-entity-list)))))
+
+(defun wl-thread-entity-check-prev-mark-from-older-brother (entity prev-marks)
+  (let* (older-brother parent)
+  (catch 'done
+    (while entity
+      (setq older-brother
+	    (reverse (wl-thread-entity-get-older-brothers entity)))
+      ;; check itself
+      (let ((succeed-list (car prev-marks))
+ 	    (failure-list (cdr prev-marks))
+ 	    mark meaning success failure)
+ 	(if (setq mark (wl-thread-entity-get-mark (car entity)))
+ 	    (if (setq meaning (wl-meaning-of-mark mark))
+ 		(if (setq success (assq meaning succeed-list))
+ 		    (progn
+ 		      (setcdr success entity)
+ 		      (throw 'done nil))
+ 		  (setq failure (assq meaning failure-list))
+ 		  (unless (cdr failure)		      
+ 		    (setcdr (assq meaning failure-list) entity))))))
+      ;; check older brothers
+      (while older-brother
+	(wl-thread-entity-check-prev-mark (wl-thread-get-entity
+					   (car older-brother))
+					  prev-marks)
+	(if (wl-thread-meaning-alist-get-result
+	     (car prev-marks))
+	    (throw 'done nil))
+	(setq older-brother (cdr older-brother)))
+      (setq entity (wl-thread-entity-get-parent-entity entity))))))
+
+(defun wl-thread-entity-get-prev-marked-entity (entity prev-marks)
+  (let ((older-brothers (reverse 
+			 (wl-thread-entity-get-older-brothers entity)))
+	marked)
+    (or (catch 'done
+	  (while older-brothers
+	    (wl-thread-entity-check-prev-mark 
+	     (wl-thread-get-entity (car older-brothers)) prev-marks)
+	    (if (setq marked
+		      (wl-thread-meaning-alist-get-result
+		       (car prev-marks)))
+		(throw 'done marked))
+	    (setq older-brothers (cdr older-brothers))))
+	(wl-thread-entity-check-prev-mark-from-older-brother
+	 (wl-thread-entity-get-parent-entity entity) prev-marks)
+	(if (setq marked
+		  (wl-thread-meaning-alist-get-result
+		   (car prev-marks)))
+	    marked
+	  (if (setq marked
+		    (wl-thread-meaning-alist-get-result
+		     (cdr prev-marks)))
+	      marked)))))
+
+(defun wl-thread-get-prev-unread (msg &optional hereto)
+  (let ((cur-entity (wl-thread-get-entity msg))
+	(prev-marks (cond ((eq wl-summary-move-order 'new)
+			   (cons (list (cons 'new nil))
+				 (list (cons 'unread nil)
+				       (cons 'important nil))))
+			  ((eq wl-summary-move-order 'unread)
+			   (cons (list (cons 'unread nil)
+				       (cons 'new nil))
+				 (list (cons 'important nil))))
+			  (t 
+			   (cons (list (cons 'unread nil)
+				       (cons 'new nil)
+				       (cons 'important nil))
+				 nil))))
+	mark ret-val)
+    (if hereto
+	(when (wl-thread-next-mark-p (setq mark
+					   (wl-thread-entity-get-mark 
+					    (car cur-entity)))
+				     (caaar prev-marks))
+	  ;;(setq mark (cons cur-entity
+	  ;;(wl-thread-entity-get-mark cur-entity)))
+	  (setq ret-val msg)))
+    (when (and (not ret-val)
+	       (or (setq cur-entity 
+			 (wl-thread-entity-get-prev-marked-entity
+			  cur-entity prev-marks))
+		   (and hereto mark)))
+      (if (and hereto
+	       (catch 'done
+		 (let ((success-list (car prev-marks)))
+		   (while success-list
+		     (if (cdr (car success-list))
+			 (throw 'done nil))
+		     (setq success-list (cdr success-list)))
+		   t))
+	       (wl-thread-next-failure-mark-p mark (caaar prev-marks)))
+	  (setq ret-val msg)
+	(when cur-entity
+	  (setq ret-val (car cur-entity)))))
+    ret-val))
+    
+(defun wl-thread-jump-to-prev-unread (&optional hereto)
+  "If prev unread is a children of a closed message, 
+the closed parent will be opened."
+  (interactive "P")
+  (let ((msg (wl-thread-get-prev-unread
+	      (wl-summary-message-number) hereto)))
+    (when msg
+      (wl-thread-entity-force-open (wl-thread-get-entity msg))
+      (wl-summary-jump-to-msg msg)
+      t)))
+
+(defun wl-thread-jump-to-msg (&optional number)
+  (interactive)
+  (let ((num (or number 
+                 (string-to-int 
+                  (read-from-minibuffer "Jump to Message(No.): ")))))
+    (wl-thread-entity-force-open (wl-thread-get-entity num))
+    (wl-summary-jump-to-msg num)))
+
+(defun wl-thread-get-next-unread (msg &optional hereto)
+  (let ((cur-entity (wl-thread-get-entity msg))
+	(next-marks (cond ((not (elmo-folder-plugged-p
+				 wl-summary-buffer-folder-name))
+			   (cons (list (cons 'unread nil))
+				 (list (cons 'important nil))))
+			  ((eq wl-summary-move-order 'new)
+			   (cons (list (cons 'new nil))
+				 (list (cons 'unread nil)
+				       (cons 'important nil))))
+			  ((eq wl-summary-move-order 'unread)
+			   (cons (list (cons 'unread nil)
+				       (cons 'new nil))
+				 (list (cons 'important nil))))
+			  (t 
+			   (cons (list (cons 'unread nil)
+				       (cons 'new nil)
+				       (cons 'important nil))
+				 nil))))
+	mark ret-val)
+    (if hereto
+	(when (wl-thread-next-mark-p (setq mark
+					   (wl-thread-entity-get-mark 
+					    (car cur-entity)))
+				     (caaar next-marks))
+	  (setq ret-val msg)))
+    (when (and (not ret-val)
+	       (or (setq cur-entity 
+			 (wl-thread-entity-get-next-marked-entity 
+			  cur-entity next-marks))
+		   (and hereto mark)))
+      (if (and hereto
+	       ;; all success-list is nil
+	       (catch 'done
+		 (let ((success-list (car next-marks)))
+		   (while success-list
+		     (if (cdr (car success-list))
+		       (throw 'done nil))
+		     (setq success-list (cdr success-list)))
+		   t))
+	       (wl-thread-next-failure-mark-p mark (caaar next-marks)))
+	  (setq ret-val msg)
+	(when cur-entity
+	  (setq ret-val (car cur-entity)))))
+    ret-val))
+
+(defun wl-thread-jump-to-next-unread (&optional hereto)
+  "If next unread is a children of a closed message, 
+the closed parent will be opened."
+  (interactive "P")
+  (let ((msg (wl-thread-get-next-unread
+	      (wl-summary-message-number) hereto)))
+    (when msg
+      (wl-thread-entity-force-open (wl-thread-get-entity msg))
+      (wl-summary-jump-to-msg msg)
+      t)))
+
+(defun wl-thread-close-all ()
+  "Close all top threads."
+  (interactive)
+  (message "Closing all threads...")
+  (let ((entities wl-thread-entity-list)
+	(cur 0)
+	(len (length wl-thread-entity-list)))
+    (while entities
+      (when (and (wl-thread-entity-get-opened (wl-thread-get-entity
+					       (car entities)))
+		 (wl-thread-entity-get-children (wl-thread-get-entity
+						 (car entities))))
+	(wl-summary-jump-to-msg (car entities))
+	(wl-thread-open-close)
+	(setq cur (1+ cur))
+	(elmo-display-progress
+	 'wl-thread-close-all "Closing all threads..." 
+	 (/ (* cur 100) len)))
+      (setq entities (cdr entities))))
+  (message "Closing all threads...done.")
+  (goto-char (point-max)))
+
+(defun wl-thread-open-all ()
+  "Open all threads."
+  (interactive)
+  (message "Opening all threads...")
+  (let ((entities wl-thread-entity-list)
+	(cur 0)
+	(len (length wl-thread-entity-list)))
+    (while entities
+      (if (not (wl-thread-entity-get-opened (wl-thread-get-entity
+					     (car entities))))
+	  (wl-thread-entity-force-open (wl-thread-get-entity
+					(car entities))))
+      (setq cur (1+ cur))
+      (elmo-display-progress
+       'wl-thread-open-all "Opening all threads..." 
+       (/ (* cur 100) len))
+      (setq entities (cdr entities))))
+  (message "Opening all threads...done.")
+  (goto-char (point-max)))
+
+(defun wl-thread-open-all-unread ()
+  (interactive)
+  (let ((mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	mark)
+    (while mark-alist
+      (if (setq mark (nth 1 (car mark-alist)))
+	  (if (or (string= mark wl-summary-unread-uncached-mark)
+		  (string= mark wl-summary-unread-cached-mark)
+		  (string= mark wl-summary-new-mark)
+		  (string= mark wl-summary-important-mark))
+	      (wl-thread-entity-force-open (wl-thread-get-entity
+					    (nth 0 (car mark-alist))))))
+      (setq mark-alist (cdr mark-alist)))))
+
+;;; a subroutine for wl-thread-entity-get-next-marked-entity.
+(defun wl-thread-entity-check-next-mark-from-younger-brother 
+  (entity next-marks)
+  (let* (parent younger-brother)
+    (catch 'done
+      (while entity
+	(setq parent (wl-thread-entity-get-parent-entity entity)
+	      younger-brother 
+	      (wl-thread-entity-get-younger-brothers entity parent))
+	;; check my brother!
+	(while younger-brother
+	  (wl-thread-entity-check-next-mark 
+	   (wl-thread-get-entity (car younger-brother))
+	   next-marks)
+	  (if  (wl-thread-meaning-alist-get-result
+		(car next-marks))
+	      (throw 'done nil))
+	  (setq younger-brother (cdr younger-brother)))
+	(setq entity parent)))))
+
+(defun wl-thread-entity-get-next-marked-entity (entity next-marks)
+  (let ((children (wl-thread-entity-get-children entity))
+	marked)
+    (or (catch 'done
+	  (while children
+	    (wl-thread-entity-check-next-mark 
+	     (wl-thread-get-entity (car children)) next-marks)
+	    (if (setq marked 
+		      (wl-thread-meaning-alist-get-result 
+		       (car next-marks)))
+		(throw 'done marked))
+	    (setq children (cdr children))))
+	;; check younger brother
+	(wl-thread-entity-check-next-mark-from-younger-brother
+	 entity next-marks)
+	(if (setq marked 
+		  (wl-thread-meaning-alist-get-result 
+		   (car next-marks)))
+	    marked
+	  (if (setq marked
+		    (wl-thread-meaning-alist-get-result
+		     (cdr next-marks)))
+	      marked)))))
+
+(defun wl-thread-update-line-msgs (msgs)
+  (wl-delete-all-overlays)
+  (while msgs
+    (setq msgs
+	  (wl-thread-update-line-on-buffer (car msgs) nil msgs))))
+
+(defsubst wl-thread-update-line-on-buffer-sub (entity &optional msg parent-msg)
+  (let ((number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	(overview (elmo-msgdb-get-overview wl-summary-buffer-msgdb))
+	(mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	(buffer-read-only nil)
+	(inhibit-read-only t)
+	;;(parent-msg parent-msg)
+	overview-entity
+	temp-mark
+	children-num
+	summary-line)
+    (if (memq msg wl-summary-buffer-delete-list)
+	(setq temp-mark "D"))
+    (if (memq msg wl-summary-buffer-target-mark-list)
+	(setq temp-mark "*"))
+    (if (assq msg wl-summary-buffer-refile-list)
+	(setq temp-mark "o"))
+    (if (assq msg wl-summary-buffer-copy-list)
+	(setq temp-mark "O"))
+    (unless temp-mark
+      (setq temp-mark (wl-summary-get-score-mark msg)))
+    ;(setq parent-entity (wl-thread-entity-get-parent-entity entity))
+    (unless parent-msg
+      (setq parent-msg (wl-thread-entity-get-parent entity)))
+    ;;(setq children (wl-thread-entity-get-children entity))
+    (setq children-num (wl-thread-entity-get-children-num entity))
+    (setq overview-entity
+	  (elmo-msgdb-search-overview-entity msg 
+					     number-alist overview))
+    ;;(wl-delete-all-overlays)
+    (when overview-entity
+      (setq summary-line 
+	    (wl-summary-overview-create-summary-line
+	     msg
+	     overview-entity
+	     (assoc			; parent-entity
+	      (cdr (assq parent-msg
+			 number-alist)) overview)
+	     nil
+	     mark-alist
+	     (if wl-thread-insert-force-opened
+		 nil
+	       (if (not (wl-thread-entity-get-opened entity))
+		   (or children-num)))
+	     temp-mark entity))
+      (wl-summary-insert-line summary-line))))
+
+(defun wl-thread-update-line-on-buffer (&optional msg parent-msg updates)
+  (interactive)
+  (let ((msgs (list (or msg (wl-summary-message-number))))
+	entity children msgs-stack)
+   (while msgs
+    (setq msg (wl-pop msgs))
+    (setq updates (and updates (delete msg updates)))
+    (when (wl-thread-delete-line-from-buffer msg)
+      (setq entity (wl-thread-get-entity msg))
+      (wl-thread-update-line-on-buffer-sub entity msg parent-msg)
+      ;;
+      (setq children (wl-thread-entity-get-children entity))
+      (if children
+	  ;; update children
+	  (when (wl-thread-entity-get-opened entity)
+	    (wl-push msgs msgs-stack)
+	    (setq parent-msg msg
+		  msgs children))
+	(unless msgs
+	  (while (and (null msgs) msgs-stack)
+	    (setq msgs (wl-pop msgs-stack)))
+	  (when msgs
+	    (setq parent-msg
+		  (wl-thread-entity-get-number
+		   (wl-thread-entity-get-parent-entity
+		    (wl-thread-get-entity (car msgs))))))))))
+   updates))
+
+(defun wl-thread-delete-line-from-buffer (msg)
+  "Simply delete msg line."
+  (let (beg)
+    (if (wl-summary-jump-to-msg msg)
+	(progn
+	  (setq beg (point))
+	  (forward-line 1)
+	  (delete-region beg (point))
+	  t)
+      nil)))
+
+(defun wl-thread-cleanup-symbols (msgs)
+  (let (sym)
+    (while msgs
+      ;; free symbol.
+      (when (boundp (setq sym (intern (format "#%d" (car msgs))
+				      wl-thread-entity-hashtb)))
+	;; delete entity.
+	(setq wl-thread-entities 
+	      (delq (wl-thread-get-entity (car msgs))
+		    wl-thread-entities))
+	(makunbound sym))
+      (setq msgs (cdr msgs)))))
+
+(defun wl-thread-delete-message (msg &optional update)
+  "Delete MSG from entity and buffer."
+  (save-excursion
+    (let* ((entity (wl-thread-get-entity msg))
+	   children children2
+	   older-brothers younger-brothers ;;brothers
+	   parent num)
+      (when entity
+	(setq parent (wl-thread-entity-get-parent-entity entity))
+	(if parent 
+	    (progn
+	      ;; has parent.
+	      ;;(setq brothers (wl-thread-entity-get-children parent))
+	      (setq older-brothers (wl-thread-entity-get-older-brothers
+				    entity parent))
+	      (setq younger-brothers (wl-thread-entity-get-younger-brothers
+				      entity parent))
+	      ;; 
+	      (setq children (wl-thread-entity-get-children entity))
+	      (mapcar '(lambda (x)
+			(wl-thread-entity-set-parent 
+			 (wl-thread-get-entity x)
+			 (wl-thread-entity-get-number parent)))
+		      children)
+	      (wl-thread-entity-set-children
+	       parent
+	       (append
+		(append
+		 older-brothers
+		 children)
+		younger-brothers)))
+	  ;; top...children becomes top.
+	  (mapcar '(lambda (x)
+		    (wl-thread-entity-set-parent (wl-thread-get-entity x)
+						 nil))
+		  (setq children (wl-thread-entity-get-children entity)))
+	  ;; delete myself from top list.
+	  (setq older-brothers (wl-thread-entity-get-older-brothers
+				entity nil))
+	  (setq younger-brothers (wl-thread-entity-get-younger-brothers
+				  entity nil))
+	  (setq wl-thread-entity-list
+		(append (append older-brothers children) 
+			younger-brothers))))
+      
+      ;; delete myself from buffer.
+      (unless (wl-thread-delete-line-from-buffer msg)
+	;; jump to suitable point.
+	;; just upon the oldest younger-brother of my top.
+	(let ((younger-bros (wl-thread-entity-get-younger-brothers
+			     (wl-thread-entity-get-top-entity entity)
+			     nil)))
+	  (if younger-bros
+	      (wl-summary-jump-to-msg (car younger-bros))
+	    (goto-char (point-max)))) ; no younger brothers.
+	)
+      ;; insert children if thread is closed.
+      (when (not (wl-thread-entity-get-opened entity))
+	(setq children2 children)
+	(while children2
+	  (wl-thread-insert-entity 0 ; no mean now...
+				   (wl-thread-get-entity 
+				    (car children2))
+				   entity nil)
+	  (setq children2 (cdr children2))))
+      (if update
+ 	  ;; modify buffer.
+ 	  (progn
+ 	    (if parent
+ 		;; update parent on buffer.
+ 		(progn
+		  (setq num (wl-thread-entity-get-number parent))
+ 		  (when num
+ 		    (wl-thread-update-line-on-buffer num)))
+ 	      ;; update children lines on buffer.
+ 	      (mapcar '(lambda (x)
+			(wl-thread-update-line-on-buffer 
+ 			 x
+ 			 (wl-thread-entity-get-number parent)))
+ 		      children)))
+ 	;; don't update buffer
+	(if parent
+ 	    ;; return parent number
+ 	    (list (wl-thread-entity-get-number parent))
+ 	  children))
+       ;; update the indent string 
+;	    (wl-summary-goto-top-of-current-thread)
+;	    (setq beg (point))
+;	    (wl-thread-goto-bottom-of-sub-thread)
+;	    (wl-thread-update-indent-string-region beg (point)))
+      )))
+ 
+  
+(defun wl-thread-insert-message (overview-entity overview mark-alist
+				 msg parent-msg &optional update)
+  "Insert MSG to the entity.
+When optional argument UPDATE is non-nil, 
+Message is inserted to the summary buffer."
+  (let ((parent (wl-thread-get-entity parent-msg))
+	child-entity invisible-top)
+;; Update the thread view...not implemented yet.
+;    (when force-insert
+;      (if parent
+;	  (wl-thread-entity-force-open parent))
+    (if parent
+	;; insert as children.
+	(wl-thread-entity-insert-as-children
+	 parent
+	 (setq child-entity (wl-thread-create-entity msg (nth 0 parent))))
+      ;; insert as top message.
+      (wl-thread-entity-insert-as-top
+       (wl-thread-create-entity msg nil)))
+    (if update
+	(if (not (setq invisible-top
+		       (wl-thread-entity-parent-invisible-p child-entity)))
+	    ;; visible.
+	    (progn
+	      (wl-summary-update-thread 
+	       overview-entity
+	       overview 
+	       mark-alist 
+	       child-entity
+	       (elmo-msgdb-overview-get-entity-by-number overview parent-msg))
+	      (when parent
+		;; use thread structure.
+		(wl-thread-entity-get-number
+		 (wl-thread-entity-get-top-entity parent)))); return value;
+;; 	      (setq beg (point))
+;; 	      (wl-thread-goto-bottom-of-sub-thread)
+;; 	      (wl-thread-update-indent-string-region beg (point)))
+	  ;; currently invisible.. update closed line.
+	  (wl-thread-update-children-number invisible-top)
+	  nil))))
+
+(defun wl-thread-update-indent-string-thread (top-list)
+  (let (beg)
+    (while top-list
+      (wl-summary-jump-to-msg (car top-list))
+      (setq beg (point))
+      (wl-thread-goto-bottom-of-sub-thread)
+      (wl-thread-update-indent-string-region beg (point))
+      (setq top-list (cdr top-list)))))
+
+(defun wl-thread-update-children-number (entity)
+  "Update the children number."
+  (save-excursion
+    (wl-summary-jump-to-msg (wl-thread-entity-get-number entity))
+    (beginning-of-line)
+    (let ((text-prop (get-text-property (point) 'face))
+	  from from-end beg str)
+      (cond 
+       ((looking-at (concat "^" wl-summary-buffer-number-regexp 
+			    "..../..\(.*\)..:.. ["
+			    wl-thread-indent-regexp
+			    "]*\\[\\+\\([0-9]+\\):"))
+	(delete-region (match-beginning 1)(match-end 1))
+	(goto-char (match-beginning 1))
+	(setq str (format "%s" (wl-thread-entity-get-children-num entity)))
+	(if wl-summary-highlight
+	    (put-text-property 0 (length str) 'face text-prop str))
+	(insert str))
+       ((looking-at (concat "^" wl-summary-buffer-number-regexp 
+			    "..../..\(.*\)..:.. ["
+			    wl-thread-indent-regexp
+			    "]*\\["))
+	(goto-char (match-end 0))
+	(setq beg (current-column))
+	(setq from-end (save-excursion 
+			 (move-to-column (+ 1 beg wl-from-width))
+			 (point)))
+	(setq from (buffer-substring (match-end 0) from-end))
+	(delete-region (match-end 0) from-end)
+	(setq str (wl-set-string-width 
+		   (1+ wl-from-width)
+		   (format 
+		    "+%s:%s" 
+		    (wl-thread-entity-get-children-num
+		     entity)
+		    from)))
+	(if wl-summary-highlight
+	    (put-text-property 0 (length str) 'face text-prop str))
+	(insert str)
+	(condition-case nil ; it's dangerous, so ignore error.
+	    (run-hooks 'wl-thread-update-children-number-hook)
+	  (error
+	   (ding)
+	   (message "Error in wl-thread-update-children-number-hook."))))))))
+
+;; 
+;; Thread oriented commands.
+;;
+(defun wl-thread-call-region-func (func &optional arg)
+  (save-excursion
+    (if arg
+	(wl-summary-goto-top-of-current-thread)
+      (beginning-of-line))
+    (let ((beg (point)))
+      (wl-thread-goto-bottom-of-sub-thread)
+      (funcall func beg (point)))))
+
+(defun wl-thread-prefetch (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-prefetch-region arg))
+
+(defun wl-thread-msg-mark-as-read (msg)
+  "Set mark as read for invisible MSG. Modeline is not changed."
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 cur-mark)
+    (setq cur-mark (cadr (assq msg mark-alist)))
+    (cond ((or (string= cur-mark wl-summary-new-mark)
+	       (string= cur-mark wl-summary-unread-uncached-mark))
+	   ;; N,U -> u or " "
+	   (setq mark-alist
+		 (elmo-msgdb-mark-set mark-alist
+				      msg
+				      (if (elmo-use-cache-p
+					   wl-summary-buffer-folder-name
+					   msg)
+					  wl-summary-read-uncached-mark)))
+	   (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	   (wl-summary-set-mark-modified))
+	  ((string= cur-mark wl-summary-unread-cached-mark)
+	   ;; "!" -> " "
+	   (setq mark-alist (elmo-msgdb-mark-set mark-alist msg nil))
+	   (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	   (wl-summary-set-mark-modified)))))
+
+(defun wl-thread-msg-mark-as-unread (msg)
+  "Set mark as unread for invisible MSG. Modeline is not changed."
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 cur-mark)
+    (setq cur-mark (cadr (assq msg mark-alist)))
+    (cond ((string= cur-mark wl-summary-read-uncached-mark)
+	   ;; u -> U
+	   (setq mark-alist
+		 (elmo-msgdb-mark-set mark-alist
+				      msg
+				      wl-summary-unread-uncached-mark))
+	   (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	   (wl-summary-set-mark-modified))
+	  ((null cur-mark)
+	   ;; " " -> "!"
+	   (setq mark-alist (elmo-msgdb-mark-set mark-alist msg 
+				      wl-summary-unread-cached-mark))
+	   (elmo-msgdb-set-mark-alist msgdb mark-alist)
+	   (wl-summary-set-mark-modified)))))
+
+(defun wl-thread-msg-mark-as-important (msg)
+  "Set mark as important for invisible MSG. Modeline is not changed."
+  (let* ((msgdb wl-summary-buffer-msgdb)
+	 (mark-alist (elmo-msgdb-get-mark-alist msgdb))
+	 cur-mark)
+    (setq cur-mark (cadr (assq msg mark-alist)))
+    (setq mark-alist
+	  (elmo-msgdb-mark-set mark-alist
+			       msg
+			       (if (string= cur-mark wl-summary-important-mark)
+				   nil
+				 wl-summary-important-mark)))
+    (elmo-msgdb-set-mark-alist msgdb mark-alist)
+    (wl-summary-set-mark-modified)))
+
+(defun wl-thread-mark-as-read (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-mark-as-read-region arg))
+
+(defun wl-thread-mark-as-unread (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-mark-as-unread-region arg))
+
+(defun wl-thread-mark-as-important (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-mark-as-important-region arg))
+
+(defun wl-thread-copy (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-copy-region arg))
+
+(defun wl-thread-refile (&optional arg)
+  (interactive "P")
+  (condition-case err
+      (progn
+	(wl-thread-call-region-func 'wl-summary-refile-region arg)
+	(if arg
+	    (wl-summary-goto-top-of-current-thread))
+	(wl-thread-goto-bottom-of-sub-thread))
+    (error
+     (elmo-display-error err t)
+     nil)))
+	
+(defun wl-thread-delete (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-delete-region arg)
+  (if arg
+      (wl-summary-goto-top-of-current-thread))
+  (if (not wl-summary-move-direction-downward)
+      (wl-summary-prev)
+    (wl-thread-goto-bottom-of-sub-thread)
+    (if wl-summary-buffer-disp-msg
+	(wl-summary-redisplay))))
+
+(defun wl-thread-target-mark (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-target-mark-region arg))
+
+(defun wl-thread-unmark (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-unmark-region arg))
+
+(defun wl-thread-exec (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-exec-region arg))
+
+(defun wl-thread-save (&optional arg)
+  (interactive "P")
+  (wl-thread-call-region-func 'wl-summary-save-region arg))
+
+(defun wl-thread-force-open (&optional msg-num)
+  "force open current folder"
+  (if msg-num
+      (wl-summary-jump-to-msg msg-num))
+  (let ((wl-thread-insert-force-opened t))
+    (wl-thread-open-close)))
+
+(defun wl-thread-entity-force-open (entity)
+  (let ((wl-thread-insert-force-opened t)
+	notopen)
+    (if (null (wl-thread-entity-get-parent entity))
+	;; top!!
+	(if (and (not (wl-thread-entity-get-opened entity))
+		 (wl-thread-entity-get-children entity))
+	    (wl-thread-force-open (wl-thread-entity-get-number entity)))
+      (if (setq notopen (wl-thread-entity-parent-invisible-p entity))
+	  (wl-thread-force-open (wl-thread-entity-get-number notopen))))))
+
+(defun wl-thread-insert-top ()
+  (let ((elist wl-thread-entity-list)
+	(len (length wl-thread-entity-list))
+	(cur 0))
+    (wl-delete-all-overlays)
+    (while elist
+      (wl-thread-insert-entity 
+       0
+       (wl-thread-get-entity (car elist))
+       nil
+       len)
+      (setq cur (1+ cur))
+      (elmo-display-progress
+       'wl-thread-insert-top "Inserting thread..."
+       (/ (* cur 100) len))
+      (setq elist (cdr elist)))))
+
+(defsubst wl-thread-insert-entity-sub (indent entity parent-entity all)
+  (let ((number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	(overview (elmo-msgdb-get-overview wl-summary-buffer-msgdb))
+	(mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	msg-num
+	overview-entity
+	temp-mark
+	children-num
+	summary-line
+	score)
+    (when (setq msg-num (wl-thread-entity-get-number entity))
+      (unless all ; all...means no temp-mark.
+	(cond ((memq msg-num wl-summary-buffer-delete-list)
+	       (setq temp-mark "D"))
+	      ((memq msg-num wl-summary-buffer-target-mark-list)
+	       (setq temp-mark "*"))
+	      ((assq msg-num wl-summary-buffer-refile-list)
+	       (setq temp-mark "o"))
+	      ((assq msg-num wl-summary-buffer-copy-list)
+	       (setq temp-mark "O"))))
+      (unless temp-mark
+	(setq temp-mark (wl-summary-get-score-mark msg-num)))
+      (setq children-num (wl-thread-entity-get-children-num entity))
+      (setq overview-entity 
+	    (elmo-msgdb-search-overview-entity
+	     (nth 0 entity) number-alist overview))
+      ;;(wl-delete-all-overlays)
+      (when overview-entity
+	(setq summary-line 
+	      (wl-summary-overview-create-summary-line
+	       msg-num
+	       overview-entity
+	       (assoc  ; parent-entity
+		(cdr (assq (nth 0 parent-entity)
+			   number-alist)) overview)
+	       (1+ indent)
+	       mark-alist
+	       (if wl-thread-insert-force-opened
+		   nil
+		 (if (not (wl-thread-entity-get-opened entity))
+		     (or children-num)))
+	       temp-mark entity))
+	(wl-summary-insert-line summary-line)))))
+
+(defun wl-thread-insert-entity (indent entity parent-entity all)
+  "Insert thread entity in current buffer."
+  (let ((msgs (list (car entity)))
+	children msgs-stack)
+    (while msgs
+      (wl-thread-insert-entity-sub indent entity parent-entity all)
+      (setq msgs (cdr msgs))
+      (setq children (nth 2 entity))
+      (if children
+	  ;; insert children
+	  (when (or wl-thread-insert-force-opened
+		    (wl-thread-entity-get-opened entity))
+	    (wl-thread-entity-set-opened entity t)
+	    (wl-push msgs msgs-stack)
+	    (setq msgs children
+		  indent (1+ indent)
+		  parent-entity entity)))
+      (unless msgs
+	(while (and (null msgs) msgs-stack)
+	  (setq msgs (wl-pop msgs-stack))
+	  (setq indent (1- indent)))
+	(when msgs
+	  (setq entity (wl-thread-get-entity (car msgs)))
+	  (setq parent-entity (wl-thread-entity-get-parent-entity entity))))
+      (setq entity (wl-thread-get-entity (car msgs))))))
+
+(defun wl-thread-descendant-p (mynumber number)
+  (let ((cur (wl-thread-get-entity number))
+	num)
+    (catch 'done
+      (while cur
+	(setq cur (wl-thread-entity-get-parent-entity cur))
+	(if (null (setq num (wl-thread-entity-get-number cur))) ; top!
+	    (throw 'done nil))
+	(if (and num
+		 (eq mynumber (wl-thread-entity-get-number cur)))
+	    (throw 'done t)))
+      nil)))
+
+; (defun wl-thread-goto-bottom-of-sub-thread ()
+;   (interactive)
+;   (let ((depth (wl-thread-get-depth-of-current-line)))
+;     (forward-line 1)
+;     (while (and (not (eobp))
+; 		(> (wl-thread-get-depth-of-current-line) 
+; 		   depth))
+;       (forward-line 1))
+;     (beginning-of-line)))
+
+(defun wl-thread-goto-bottom-of-sub-thread (&optional msg)
+  (interactive)
+  (let ((mynumber (or msg (wl-summary-message-number))))
+    (forward-line 1)
+    (while (wl-thread-descendant-p mynumber (wl-summary-message-number))
+      (forward-line 1))
+    (beginning-of-line)))
+
+(defun wl-thread-remove-destination-region (beg end)
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (while (not (eobp))
+	(let ((num (wl-summary-message-number)))
+	  (if (assq num wl-summary-buffer-refile-list)
+	      (wl-summary-remove-destination)))
+	(forward-line 1)))))
+
+(defun wl-thread-print-destination-region (beg end)
+  (if (or wl-summary-buffer-refile-list
+	  wl-summary-buffer-copy-list)
+      (save-excursion
+	(save-restriction
+	  (narrow-to-region beg end)
+	  (goto-char (point-min))
+	  (while (not (eobp))
+	    (let ((num (wl-summary-message-number))
+		  pair)
+	      (if (or (setq pair (assq num wl-summary-buffer-refile-list))
+		      (setq pair (assq num wl-summary-buffer-copy-list)))
+		  (wl-summary-print-destination (car pair) (cdr pair))))
+	    (forward-line 1))))))
+
+(defsubst wl-thread-get-children-msgs (msg)
+  (let ((msgs (list msg))
+	msgs-stack children
+	ret-val)
+    (while msgs
+      (wl-append ret-val (list (car msgs)))
+      (setq children (wl-thread-entity-get-children
+		      (wl-thread-get-entity (car msgs))))
+      (setq msgs (cdr msgs))
+      (if (null children)
+	  (while (and (null msgs) msgs-stack)
+	    (setq msgs (wl-pop msgs-stack)))
+	(wl-push msgs msgs-stack)
+	(setq msgs children)))
+    ret-val))
+
+(defun wl-thread-get-children-msgs-uncached (msg &optional uncached-marks)
+  (let ((children-msgs (wl-thread-get-children-msgs msg))
+	(mark-alist (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb))
+	(number-alist (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb))
+	mark
+	uncached-list)
+    (while children-msgs
+      (if (and (not (eq msg (car children-msgs))) ; except itself
+	       (or (and uncached-marks
+			(setq mark (cadr (assq (car children-msgs)
+					       mark-alist)))
+			(member mark uncached-marks))
+		   (and (not uncached-marks)
+			(null (elmo-cache-exists-p
+			       (cdr (assq (car children-msgs)
+					  number-alist)))))))
+	  (wl-append uncached-list (list (car children-msgs))))
+      (setq children-msgs (cdr children-msgs)))
+    uncached-list))
+
+(defun wl-thread-get-children-msgs-with-mark (msg mark)
+  (let ((children-msgs (wl-thread-get-children-msgs msg))
+	(check-func (cond ((string= mark "o")
+			   'wl-summary-msg-marked-as-refiled)
+			  ((string= mark "O")
+			   'wl-summary-msg-marked-as-copied)
+			  ((string= mark "D")
+			   'wl-summary-msg-marked-as-deleted)
+			  ((string= mark "*")
+			   'wl-summary-msg-marked-as-target)))
+	ret-val)
+    (while children-msgs
+      (if (funcall check-func (car children-msgs))
+	  (wl-append ret-val (list (car children-msgs))))
+      (setq children-msgs (cdr children-msgs)))
+    ret-val))
+
+(defun wl-thread-close (entity)
+  (let (depth beg)
+    (wl-thread-entity-set-opened entity nil)
+    (setq depth (wl-thread-get-depth-of-current-line))
+    (beginning-of-line)
+    (setq beg (point))
+    (wl-thread-goto-bottom-of-sub-thread)
+    (wl-thread-remove-destination-region beg 
+					 (point))
+    (forward-char -1)	;; needed for mouse-face.
+    (delete-region beg (point))
+    (wl-thread-insert-entity (- depth 1)
+			     entity 
+			     (wl-thread-get-entity
+			      (nth 3 entity))
+			     nil)
+    (delete-char 1) ; delete '\n'
+    (wl-thread-print-destination-region beg (point))))
+
+(defun wl-thread-open (entity)
+  (let (depth beg)
+    (beginning-of-line)
+    (setq beg (point))
+    (setq depth (wl-thread-get-depth-of-current-line))
+    (end-of-line)
+    (delete-region beg (point))
+    (wl-thread-entity-set-opened entity t)
+    (wl-thread-insert-entity depth ;(- depth 1) 
+			     entity 
+			     (wl-thread-get-entity
+			      (nth 3 entity)) nil)
+    (delete-char 1) ; delete '\n'
+    (wl-thread-print-destination-region beg (point))))
+
+(defun wl-thread-open-close (&optional force-open)
+  (interactive "P")
+  (when (eq wl-summary-buffer-view 'thread)
+    ;(if (equal wl-thread-top-entity '(nil t nil nil))
+    ;(error "There's no thread structure."))
+    (save-excursion
+      (let ((inhibit-read-only t)
+	    (buffer-read-only nil)
+	    (wl-thread-insert-force-opened 
+	     (or wl-thread-insert-force-opened 
+		 force-open))
+	    msg entity beg depth parent)
+	(setq msg (wl-summary-message-number))
+	(setq entity (wl-thread-get-entity msg))
+	(if (wl-thread-entity-get-opened entity)
+	    ;; if already opened, close its child!
+	  (if (wl-thread-entity-get-children entity)
+	      (wl-thread-close entity)
+	    ;; opened, but has no children, close its parent!
+	    (when (setq parent (wl-thread-entity-get-parent entity))
+	      (wl-summary-jump-to-msg parent)
+	      (wl-thread-close
+	       (wl-thread-get-entity (wl-summary-message-number)))))
+	  ;; if closed (or it is just a thread bottom message)
+	  ;; has children, open it!
+	  (if (wl-thread-entity-get-children entity)
+	      (wl-thread-open entity)
+	    ;; closed, and has no children, close its parent!
+	    (setq msg (or (wl-thread-entity-get-parent entity)
+			  (wl-thread-entity-get-number entity)))
+	    (when msg
+	      (wl-summary-jump-to-msg msg)
+	      (wl-thread-close
+	       (wl-thread-get-entity (wl-summary-message-number)))))))
+      (wl-summary-set-message-modified)
+      (set-buffer-modified-p nil))))
+  
+
+(defun wl-thread-get-depth-of-current-line ()
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (let ((depth 0))
+      (if (re-search-forward (concat "^" wl-summary-buffer-number-regexp 
+				     "..../..\(.*\)..:.. ")
+			     nil t)
+	  (while (string-match wl-thread-indent-regexp 
+			       (char-to-string
+				(char-after (point))))
+	    (setq depth (1+ depth))
+	    (forward-char)))
+      (/ depth wl-thread-indent-level-internal))))
+
+(defun wl-thread-update-indent-string-region (beg end)
+  (interactive "r")
+  (save-excursion
+    (goto-char beg)
+    (while (< (point) end)
+      (wl-thread-update-indent-string)
+      (forward-line 1))))
+
+(defsubst wl-thread-make-indent-string (entity)
+  (let ((cur entity)
+	(ret-val "")
+	(space-str (wl-repeat-string wl-thread-space-str-internal
+				     (- wl-thread-indent-level-internal 1)))
+	parent)
+    (when (wl-thread-entity-get-number 
+	   (setq parent (wl-thread-entity-get-parent-entity cur)))
+      (if (wl-thread-entity-get-younger-brothers cur)
+	  (setq ret-val wl-thread-have-younger-brother-str-internal)
+	(setq ret-val wl-thread-youngest-child-str-internal))
+      (setq ret-val (concat ret-val 
+			    (wl-repeat-string
+			     wl-thread-horizontal-str-internal
+			     (- wl-thread-indent-level-internal 1))))
+      (setq cur parent)
+      (while (wl-thread-entity-get-number 
+	      (wl-thread-entity-get-parent-entity cur))
+	(if (wl-thread-entity-get-younger-brothers cur)
+	    (setq ret-val (concat wl-thread-vertical-str-internal
+				  space-str
+				  ret-val))
+	  (setq ret-val (concat wl-thread-space-str-internal 
+				space-str
+				ret-val)))
+	(setq cur (wl-thread-entity-get-parent-entity cur))))
+    ret-val))
+
+(defun wl-thread-update-indent-string ()
+  "Update indent string of current line."
+  (interactive)
+  (save-excursion
+    (beginning-of-line)
+    (let ((inhibit-read-only t)
+	  (buffer-read-only nil)
+	  thr-str)
+      (when (looking-at (concat "^ *\\([0-9]+\\)"
+				"..../..\(.*\)..:.. \\("
+				wl-highlight-thread-indent-string-regexp
+				"\\)\\["))
+	(goto-char (match-beginning 2))
+	(delete-region (match-beginning 2)
+		       (match-end 2))
+	(setq thr-str
+	      (wl-thread-make-indent-string 
+	       (wl-thread-get-entity (string-to-int (wl-match-buffer 1)))))
+	(if (and wl-summary-width 
+		 wl-summary-indent-length-limit
+		 (< wl-summary-indent-length-limit
+		    (string-width thr-str)))
+	    (setq thr-str (wl-set-string-width 
+			   wl-summary-indent-length-limit
+			   thr-str)))
+	(insert thr-str)
+	(if wl-summary-highlight
+	    (wl-highlight-summary-current-line))))))
+
+(provide 'wl-thread)
+
+;;; wl-thread.el ends here
diff --git a/wl/wl-util.el b/wl/wl-util.el
new file mode 100644
index 0000000..0102e10
--- /dev/null
+++ b/wl/wl-util.el
@@ -0,0 +1,820 @@
+;;; wl-util.el -- Utility modules for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <2000-03-22 15:56:12 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(provide 'wl-util)
+(eval-when-compile
+  (provide 'elmo-util))
+
+(condition-case ()
+    (require 'tm-edit)
+  (error))
+(condition-case ()
+    (require 'pp)
+  (error))
+(eval-when-compile
+  (mapcar
+   (function
+    (lambda (symbol)
+      (unless (boundp symbol)
+	(set (make-local-variable symbol) nil))))
+   '(mule-version 
+     nemacs-version 
+     emacs-beta-version
+     xemacs-codename
+     mime-edit-insert-user-agent-field
+     mime-edit-user-agent-value
+     mime-editor/version
+     mime-editor/codename))
+  (require 'time-stamp)
+  (defun-maybe read-event ())
+  (defun-maybe next-command-event ())
+  (defun-maybe event-to-character (a))
+  (defun-maybe key-press-event-p (a))
+  (defun-maybe button-press-event-p (a))
+  (defun-maybe set-process-kanji-code (a b))
+  (defun-maybe set-process-coding-system (a b c))
+  (defun-maybe dispatch-event (a)))
+
+(defalias 'wl-set-work-buf 'elmo-set-work-buf)
+(make-obsolete 'wl-set-work-buf 'elmo-set-work-buf)
+
+(defmacro wl-append (val func)
+  (list 'if val
+      (list 'nconc val func)
+    (list 'setq val func)))
+
+(defun wl-parse (string regexp &optional matchn)
+  (or matchn (setq matchn 1))
+  (let (list)
+    (store-match-data nil)
+    (while (string-match regexp string (match-end 0))
+      (setq list (cons (substring string (match-beginning matchn)
+                                  (match-end matchn)) list)))
+    (nreverse list)))
+
+(defun wl-delete-duplicates (list &optional all hack-addresses)
+  "Delete duplicate equivalent strings from the list.
+If ALL is t, then if there is more than one occurrence of a string in the list,
+ then all occurrences of it are removed instead of just the subsequent ones.
+If HACK-ADDRESSES is t, then the strings are considered to be mail addresses,
+ and only the address part is compared (so that \"Name <foo>\" and \"foo\"
+ would be considered to be equivalent.)"
+  (let ((hashtable (make-vector 29 0))
+	(new-list nil)
+	sym-string sym)
+    (fillarray hashtable 0)
+    (while list
+      (setq sym-string
+	    (if hack-addresses
+		(wl-address-header-extract-address (car list))
+	      (car list))
+	    sym-string (or sym-string "-unparseable-garbage-")
+	    sym (intern sym-string hashtable))
+      (if (boundp sym)
+	  (and all (setcar (symbol-value sym) nil))
+	(setq new-list (cons (car list) new-list))
+	(set sym new-list))
+      (setq list (cdr list)))
+    (delq nil (nreverse new-list))))
+
+;; string utils.
+(defalias 'wl-string-member 'elmo-string-member)
+(defalias 'wl-string-match-member 'elmo-string-match-member)
+(defalias 'wl-string-delete-match 'elmo-string-delete-match)
+(defalias 'wl-string-match-assoc 'elmo-string-match-assoc)
+(defalias 'wl-string-assoc 'elmo-string-assoc)
+(defalias 'wl-string-rassoc 'elmo-string-rassoc)
+
+(defun wl-parse-addresses (string)
+  (if (null string)
+      ()
+    (elmo-set-work-buf
+     ;;(unwind-protect
+     (let (list start s char)
+       (insert string)
+       (goto-char (point-min))
+       (skip-chars-forward "\t\f\n\r ")
+       (setq start (point))
+       (while (not (eobp))
+	 (skip-chars-forward "^\"\\,(")
+	 (setq char (following-char))
+	 (cond ((= char ?\\)
+		(forward-char 1)
+		(if (not (eobp))
+		    (forward-char 1)))
+	       ((= char ?,)
+		(setq s (buffer-substring start (point)))
+		(if (or (null (string-match "^[\t\f\n\r ]+$" s))
+			(not (string= s "")))
+		    (setq list (cons s list)))
+		(skip-chars-forward ",\t\f\n\r ")
+		(setq start (point)))
+	       ((= char ?\")
+		(re-search-forward "[^\\]\"" nil 0))
+	       ((= char ?\()
+		(let ((parens 1))
+		  (forward-char 1)
+		  (while (and (not (eobp)) (not (zerop parens)))
+		    (re-search-forward "[()]" nil 0)
+		    (cond ((or (eobp)
+			       (= (char-after (- (point) 2)) ?\\)))
+			  ((= (preceding-char) ?\()
+			   (setq parens (1+ parens)))
+			  (t
+			   (setq parens (1- parens)))))))))
+       (setq s (buffer-substring start (point)))
+       (if (and (null (string-match "^[\t\f\n\r ]+$" s))
+		(not (string= s "")))
+	   (setq list (cons s list)))
+       (nreverse list)) ; jwz: fixed order
+     )))
+
+(defun wl-version (&optional with-codename)
+  (format "%s %s%s" wl-appname wl-version 
+	  (if with-codename 
+	      (format " - \"%s\"" wl-codename) "")))
+
+(defun wl-version-show ()
+  (interactive)
+  (message "%s" (wl-version t)))
+
+;; from gnus
+(defun wl-extended-emacs-version (&optional with-codename)
+  "Stringified Emacs version"
+  (interactive)
+  (cond
+   ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
+    (concat "Emacs " (wl-match-string 1 emacs-version)
+	    (and (boundp 'mule-version)(concat "/Mule " mule-version))))
+   ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
+		  emacs-version)
+    (concat (wl-match-string 1 emacs-version)
+	    (format " %d.%d" emacs-major-version emacs-minor-version)
+	    (if (and (boundp 'emacs-beta-version)
+		     emacs-beta-version)
+		(format "b%d" emacs-beta-version))
+	    (if with-codename
+		(if (boundp 'xemacs-codename)
+		    (concat " - \"" xemacs-codename "\"")))))
+   (t emacs-version)))
+
+(defun wl-extended-emacs-version2 (&optional delimiter with-codename)
+  "Stringified Emacs version"
+  (interactive)
+  (cond
+   ((and (boundp 'mule-version)
+	 mule-version
+	 (string-match "\\([0-9]+\.[0-9]+\\)\\(.*$\\)" mule-version))
+    (format "Mule%s%s@%d.%d%s" 
+	    (or delimiter " ")
+	    (wl-match-string 1 mule-version)
+	    emacs-major-version
+	    emacs-minor-version
+	    (if with-codename
+		(wl-match-string 2 mule-version)
+	      "")))
+   ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
+    (if (boundp 'nemacs-version)
+	(concat "Nemacs" (or delimiter " ") 
+		nemacs-version
+		"@"
+		(substring emacs-version
+			   (match-beginning 1)
+			   (match-end 1)))
+      (concat "Emacs" (or delimiter " ")
+	      (wl-match-string 1 emacs-version))))
+   ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
+		  emacs-version)
+    (concat (wl-match-string 1 emacs-version)
+	    (or delimiter " ")
+	    (format "%d.%d" emacs-major-version emacs-minor-version)
+	    (if (and (boundp 'emacs-beta-version)
+		     emacs-beta-version)
+		(format "b%d" emacs-beta-version))
+	    (if (and with-codename
+		     (boundp 'xemacs-codename)
+		     xemacs-codename)
+		(format " (%s)" xemacs-codename))))
+   (t emacs-version)))
+
+(defun wl-extended-emacs-version3 (&optional delimiter with-codename)
+  "Stringified Emacs version"
+  (interactive)
+  (cond
+   ((and (boundp 'mule-version)
+	 mule-version
+	 (string-match "\\([0-9]+\.[0-9]+\\)\\(.*$\\)" mule-version))
+    (format "Emacs%s%d.%d Mule%s%s%s" 
+	    (or delimiter " ")
+	    emacs-major-version
+	    emacs-minor-version
+	    (or delimiter " ")
+	    (wl-match-string 1 mule-version)
+	    (if with-codename
+		(wl-match-string 2 mule-version)
+	      "")))
+   ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
+    (if (boundp 'nemacs-version)
+	(let ((nemacs-codename-assoc '(("3.3.2" . " (FUJIMUSUME)")
+				       ("3.3.1" . " (HINAMATSURI)")
+				       ("3.2.3" . " (YUMENO-AWAYUKI)"))))
+	  (format "Emacs%s%s Nemacs%s%s%s"
+		  (or delimiter " ") 		  
+		  (wl-match-string 1 emacs-version)
+		  (or delimiter " ") 		  
+		  nemacs-version
+		  (or (and with-codename
+			   (cdr (assoc nemacs-version
+				       nemacs-codename-assoc)))
+		      "")))
+      (concat "Emacs" (or delimiter " ")
+	      (wl-match-string 1 emacs-version))))
+   ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
+		  emacs-version)
+    (concat (wl-match-string 1 emacs-version)
+	    (or delimiter " ")
+	    (format "%d.%d" emacs-major-version emacs-minor-version)
+	    (if (and (boundp 'emacs-beta-version)
+		     emacs-beta-version)
+		(format "b%d" emacs-beta-version))
+	    (if (and with-codename
+		     (boundp 'xemacs-codename)
+		     xemacs-codename)
+		(format " (%s)" xemacs-codename))))
+   (t emacs-version)))
+
+(defun wl-append-element (list element)
+  (if element
+      (append list (list element))
+    list))
+
+(defun wl-read-event-char ()
+  "Get the next event."
+  (let ((event (read-event)))
+    ;; should be gnus-characterp, but this can't be called in XEmacs anyway
+    (cons (and (numberp event) event) event)))
+
+(defun wl-xmas-read-event-char ()
+  "Get the next event."
+  (let ((event (next-command-event)))
+    (sit-for 0)
+    ;; We junk all non-key events.  Is this naughty?
+    (while (not (or (key-press-event-p event)
+		    (button-press-event-p event)))
+      (dispatch-event event)
+      (setq event (next-command-event)))
+    (cons (and (key-press-event-p event)
+	       (event-to-character event))
+	  event)))
+
+(if running-xemacs
+    (fset 'wl-read-event-char 'wl-xmas-read-event-char))
+
+(defmacro wl-push (v l)
+  (list 'setq l (list 'cons v l)))
+
+(defmacro wl-pop (l)
+  (list 'car (list 'prog1 l (list 'setq l (list 'cdr l)))))
+
+(defun wl-ask-folder (func mes-string)
+  (let* (key keve
+	     (cmd (if (featurep 'xemacs)
+		      (event-to-character last-command-event)
+		    (string-to-char (format "%s" (this-command-keys))))))
+    (message mes-string)
+    (setq key (car (setq keve (wl-read-event-char))))
+    (if (or (equal key ?\ )
+	    (and cmd
+		 (equal key cmd)))
+	(progn
+	  (message "")
+	  (funcall func))
+      (wl-push (cdr keve) unread-command-events))))
+
+;(defalias 'wl-make-hash 'elmo-make-hash)
+;(make-obsolete 'wl-make-hash 'elmo-make-hash)
+
+;(defalias 'wl-get-hash-val 'elmo-get-hash-val)
+;(make-obsolete 'wl-get-hash-val 'elmo-get-hash-val)
+
+;(defalias 'wl-set-hash-val 'elmo-set-hash-val)
+;(make-obsolete 'wl-set-hash-val 'elmo-set-hash-val)
+
+(defsubst wl-set-string-width (width string)
+  (elmo-set-work-buf
+   (elmo-set-buffer-multibyte default-enable-multibyte-characters)
+   (insert string)
+   (if (> (current-column) width)
+       (if (> (move-to-column width) width)
+	   (progn
+	     (condition-case nil ; ignore error 
+		 (backward-char 1)
+	       (error))
+	     (concat (buffer-substring (point-min) (point)) " "))
+	 (buffer-substring (point-min) (point)))
+     (if (= (current-column) width)
+	 string
+       (concat string
+	       (format (format "%%%ds" 
+			       (- width (current-column)))
+		       " "))))))
+
+(defun wl-display-bytes (num)
+  (let (result remain)
+    (cond
+     ((> (setq result (/ num 1000000)) 0)
+      (setq remain (% num 1000000))
+      (if (> remain 400000)
+	  (setq result (+ 1 result)))
+      (format "%dM" result))
+     ((> (setq result (/ num 1000)) 0)
+      (setq remain (% num 1000))
+      (if (> remain 400)
+	  (setq result (+ 1 result)))
+      (format "%dK" result))
+     (t (format "%dB" result)))))
+
+(defun wl-generate-user-agent-string ()
+  "A candidate of wl-generate-mailer-string-func. 
+Insert User-Agent field instead of X-Mailer field."
+  (let ((mime-user-agent (and (boundp 'mime-edit-insert-user-agent-field)
+			      mime-edit-insert-user-agent-field
+			      mime-edit-user-agent-value)))
+    (if mime-user-agent
+	(concat "User-Agent: "
+		wl-appname "/" wl-version
+		" (" wl-codename ") "
+		mime-user-agent)
+      (if (and (boundp 'mime-editor/version)
+	       mime-editor/version)
+	  (concat "User-Agent: "
+		  wl-appname "/" wl-version
+		  " (" wl-codename ") "
+		  "tm/" mime-editor/version
+		  (if (and (boundp 'mime-editor/codename)
+			   mime-editor/codename)
+		      (concat " (" mime-editor/codename ")"))
+		  (if (and (boundp 'mime-library-product)
+			   mime-library-product)
+		      (concat " " (aref mime-library-product 0)
+			      "/"
+			      (mapconcat 'int-to-string
+					 (aref mime-library-product 1)
+					 ".")
+			      " (" (aref mime-library-product 2) ")"))
+		  (condition-case nil
+		      (progn
+			(require 'apel-ver)
+			(concat " " (apel-version)))
+		    (file-error nil))
+		  " " (wl-extended-emacs-version3 "/" t))
+	(concat "User-Agent: " wl-appname "/" wl-version " (" wl-codename ") "
+		(wl-extended-emacs-version3 "/" t))))))
+
+(defun wl-make-modeline-subr ()
+  (let* ((duplicated (copy-sequence mode-line-format))
+	 (cur-entry duplicated)
+	 return-modeline)
+    (if (memq 'wl-plug-state-indicator mode-line-format)
+	duplicated
+      (catch 'done
+	(while cur-entry
+	  (if (or (and (symbolp (car cur-entry))
+		       (eq 'mode-line-buffer-identification 
+			      (car cur-entry)))
+		  (and (consp (car cur-entry))
+		       (or 
+			(eq 'modeline-buffer-identification 
+			       (car (car cur-entry)))
+			(eq 'modeline-buffer-identification 
+			       (cdr (car cur-entry))))))
+	      (progn
+		(setq return-modeline (append return-modeline
+					      (list 'wl-plug-state-indicator)
+					      cur-entry))
+		(throw 'done return-modeline))
+	    (setq return-modeline (append return-modeline
+					  (list (car cur-entry)))))
+	  (setq cur-entry (cdr cur-entry)))))))
+
+(defalias 'wl-display-error 'elmo-display-error)
+(make-obsolete 'wl-display-error 'elmo-display-error)
+
+(defun wl-get-assoc-list-value (assoc-list folder &optional match)
+  (catch 'found
+    (let ((alist assoc-list)
+	  value pair)
+      (while alist
+	(setq pair (car alist))
+	(if (string-match (car pair) folder)
+	    (cond ((eq match 'all)
+		   (setq value (append value (list (cdr pair)))))
+		  ((eq match 'all-list)
+		   (setq value (append value (cdr pair))))
+		  ((not match)
+		   (throw 'found (cdr pair)))))
+	(setq alist (cdr alist)))
+      value)))
+
+(defmacro wl-match-string (pos string)
+  "Substring POSth matched string."
+  (` (substring (, string) (match-beginning (, pos)) (match-end (, pos)))))
+
+(defmacro wl-match-buffer (pos)
+  "Substring POSth matched from the current buffer."
+  (` (buffer-substring-no-properties
+      (match-beginning (, pos)) (match-end (, pos)))))
+
+(put 'wl-as-coding-system 'lisp-indent-function 1)
+(put 'wl-as-mime-charset 'lisp-indent-function 1)
+
+(eval-and-compile
+  (if wl-on-mule3
+      (defmacro wl-as-coding-system (coding-system &rest body)
+	(` (let ((coding-system-for-read (, coding-system))
+		 (coding-system-for-write (, coding-system)))
+	     (,@ body))))
+    (if wl-on-mule
+	(defmacro wl-as-coding-system (coding-system &rest body)
+	  (` (let ((file-coding-system-for-read (, coding-system))
+		   (file-coding-system (, coding-system)))
+	       (,@ body))))
+      (if wl-on-nemacs
+	  (defmacro wl-as-coding-system (coding-system &rest body)
+	    (` (let ((default-kanji-fileio-code (, coding-system))
+		     (kanji-fileio-code (, coding-system))
+		     kanji-expected-code)
+		 (,@ body))))))))
+
+(defmacro wl-as-mime-charset (mime-charset &rest body)
+  (` (wl-as-coding-system (mime-charset-to-coding-system (, mime-charset))
+       (,@ body))))
+
+(defalias 'wl-string 'elmo-string)
+(make-obsolete 'wl-string 'elmo-string)
+
+(defun wl-parse-newsgroups (string &optional subscribe-only)
+  (let* ((nglist (wl-parse string "[ \t\f\r\n,]*\\([^ \t\f\r\n,]+\\)"))
+	 spec ret-val)
+    (if (not subscribe-only)
+	nglist
+      (while nglist
+	(if (intern-soft (car nglist) wl-folder-newsgroups-hashtb)
+	    (wl-append ret-val (list (car nglist))))
+	(setq nglist (cdr nglist)))
+      ret-val)))
+
+;; Check if active region exists or not.
+(if (boundp 'mark-active)
+    (defmacro wl-region-exists-p ()
+      'mark-active)
+  (if (fboundp 'region-exists-p)
+      (defmacro wl-region-exists-p ()
+	(list 'region-exists-p))))
+  
+(if (not (fboundp 'overlays-in))
+    (defun overlays-in (beg end)
+      "Return a list of the overlays that overlap the region BEG ... END.
+Overlap means that at least one character is contained within the overlay
+and also contained within the specified region.
+Empty overlays are included in the result if they are located at BEG
+or between BEG and END."
+      (let ((ovls (overlay-lists))
+	    tmp retval)
+	(if (< end beg)
+	    (setq tmp end
+		  end beg
+		  beg tmp))
+	(setq ovls (nconc (car ovls) (cdr ovls)))
+	(while ovls
+	  (setq tmp (car ovls)
+		ovls (cdr ovls))
+	  (if (or (and (<= (overlay-start tmp) end)
+		       (>= (overlay-start tmp) beg))
+		  (and (<= (overlay-end tmp) end)
+		       (>= (overlay-end tmp) beg)))
+	      (setq retval (cons tmp retval))))
+	retval)))
+
+(defsubst wl-repeat-string (str times)
+  (let ((loop times)
+	ret-val)
+    (while (> loop 0)
+      (setq ret-val (concat ret-val str))
+      (setq loop (- loop 1)))
+    ret-val))
+
+(defun wl-list-diff (list1 list2)
+  "Return a list of elements of LIST1 that do not appear in LIST2."
+  (let ((list1 (copy-sequence list1)))
+    (while list2
+      (setq list1 (delq (car list2) list1))
+      (setq list2 (cdr list2)))
+    list1))
+
+(defun wl-append-assoc-list (item value alist)
+  "make assoc list '((item1 value1-1 value1-2 ...)) (item2 value2-1 ...)))"
+  (let ((entry (assoc item alist)))
+    (if entry
+	(progn
+	  (when (not (member value (cdr entry)))
+	    (nconc entry (list value)))
+	  alist)
+      (append alist
+	      (list (list item value))))))
+
+(defun wl-delete-alist (key alist)
+  "Delete all entries in ALIST that have a key eq to KEY."
+  (let (entry)
+    (while (setq entry (assq key alist))
+      (setq alist (delq entry alist)))
+    alist))
+
+(eval-when-compile 
+  (require 'static))
+(static-unless (fboundp 'pp)
+  (defvar pp-escape-newlines t)
+  (defun pp (object &optional stream)
+    "Output the pretty-printed representation of OBJECT, any Lisp object.
+Quoting characters are printed when needed to make output that `read'
+can handle, whenever this is possible.
+Output stream is STREAM, or value of `standard-output' (which see)."
+    (princ (pp-to-string object) (or stream standard-output)))
+
+  (defun pp-to-string (object)
+    "Return a string containing the pretty-printed representation of OBJECT,
+any Lisp object.  Quoting characters are used when needed to make output
+that `read' can handle, whenever this is possible."
+    (save-excursion
+      (set-buffer (generate-new-buffer " pp-to-string"))
+      (unwind-protect
+	  (progn
+	    (lisp-mode-variables t)
+	    (let ((print-escape-newlines pp-escape-newlines))
+	      (prin1 object (current-buffer)))
+	    (goto-char (point-min))
+	    (while (not (eobp))
+	      (cond
+	       ((looking-at "\\s(\\|#\\s(")
+		(while (looking-at "\\s(\\|#\\s(")
+		  (forward-char 1)))
+	       ((and (looking-at "\\(quote[ \t]+\\)\\([^.)]\\)")
+		     (> (match-beginning 1) 1)
+		     (= ?\( (char-after (1- (match-beginning 1))))
+		     ;; Make sure this is a two-element list.
+		     (save-excursion
+		       (goto-char (match-beginning 2))
+		       (forward-sexp)
+		       ;; Avoid mucking with match-data; does this test work?
+		       (char-equal ?\) (char-after (point)))))
+		;; -1 gets the paren preceding the quote as well.
+		(delete-region (1- (match-beginning 1)) (match-end 1))
+		(insert "'")
+		(forward-sexp 1)
+		(if (looking-at "[ \t]*\)")
+		    (delete-region (match-beginning 0) (match-end 0))
+		  (error "Malformed quote"))
+		(backward-sexp 1))	      
+	       ((condition-case err-var
+		    (prog1 t (down-list 1))
+		  (error nil))
+		(backward-char 1)
+		(skip-chars-backward " \t")
+		(delete-region
+		 (point)
+		 (progn (skip-chars-forward " \t") (point)))
+		(if (not (char-equal ?' (char-after (1- (point)))))
+		    (insert ?\n)))
+	       ((condition-case err-var
+		    (prog1 t (up-list 1))
+		  (error nil))
+		(while (looking-at "\\s)")
+		  (forward-char 1))
+		(skip-chars-backward " \t")
+		(delete-region
+		 (point)
+		 (progn (skip-chars-forward " \t") (point)))
+		(if (not (char-equal ?' (char-after (1- (point)))))
+		    (insert ?\n)))
+	       (t (goto-char (point-max)))))
+	    (goto-char (point-min))
+	    (indent-sexp)
+	    (buffer-string))
+	(kill-buffer (current-buffer))))))
+
+(defsubst wl-get-date-iso8601 (date)
+  (or (get-text-property 0 'wl-date date)
+      (let* ((d1 (timezone-fix-time date nil nil))
+ 	     (time (format "%04d%02d%02dT%02d%02d%02d"
+ 			   (aref d1 0) (aref d1 1) (aref d1 2)
+ 			   (aref d1 3) (aref d1 4) (aref d1 5))))
+ 	(put-text-property 0 1 'wl-date time date)
+ 	time)))
+
+(defun wl-make-date-string ()
+  (let ((s (current-time-string)))
+    (string-match "\\`\\([A-Z][a-z][a-z]\\) +[A-Z][a-z][a-z] +[0-9][0-9]? *[0-9][0-9]?:[0-9][0-9]:[0-9][0-9] *[0-9]?[0-9]?[0-9][0-9]"
+		  s)
+    (concat (wl-match-string 1 s) ", "
+	    (timezone-make-date-arpa-standard s (current-time-zone)))))
+ 
+(defun wl-date-iso8601 (date)
+  "Convert the DATE to YYMMDDTHHMMSS."
+  (condition-case ()
+      (wl-get-date-iso8601 date)
+    (error "")))
+ 
+(defun wl-day-number (date)
+  (let ((dat (mapcar '(lambda (s) (and s (string-to-int s)) )
+		     (timezone-parse-date date))))
+    (timezone-absolute-from-gregorian
+     (nth 1 dat) (nth 2 dat) (car dat))))
+
+(defun wl-url-news (url &rest args)
+  (interactive "sURL: ")
+  (if (string-match "^news:\\(.*\\)$" url)
+      (wl-summary-goto-folder-subr
+       (concat "-" (elmo-match-string 1 url)) nil nil nil t)
+    (message "Not a news: url.")))
+
+(defun wl-url-nntp (url &rest args)
+  (interactive "sURL: ")
+  (let (folder fld-name server port msg)
+    (if (string-match
+	 "^nntp://\\([^:/]*\\):?\\([0-9]*\\)/\\([^/]*\\)/\\([0-9]*\\).*$" url)
+	(progn
+	  (if (eq (length (setq fld-name
+                                (elmo-match-string 3 url))) 0)
+              (setq fld-name nil))
+	  (if (eq (length (setq port
+				(elmo-match-string 2 url))) 0)
+              (setq port (int-to-string elmo-default-nntp-port)))
+	  (if (eq (length (setq server
+                                (elmo-match-string 1 url))) 0)
+              (setq server elmo-default-nntp-server))
+	  (setq folder (concat "-" fld-name "@" server ":" port))
+	  (if (eq (length (setq msg
+				(elmo-match-string 4 url))) 0)
+	      (wl-summary-goto-folder-subr
+	       folder nil nil nil t)
+	    (wl-summary-goto-folder-subr
+	     folder 'update nil nil t)
+	    (goto-char (point-min))
+	    (re-search-forward (concat "^ *" msg) nil t)
+	    (wl-summary-redisplay)))
+      (message "Not a nntp: url."))))
+
+(defmacro wl-concat-list (list separator)
+  (` (mapconcat 'identity (delete "" (delq nil (, list))) (, separator))))
+
+(defmacro wl-current-message-buffer ()
+  (` (save-excursion
+       (if (buffer-live-p wl-current-summary-buffer)
+           (set-buffer wl-current-summary-buffer))
+       wl-message-buf-name)))
+
+(defmacro wl-kill-buffers (regexp)
+  (` (mapcar (function
+	      (lambda (x)
+		(if (and (buffer-name x)
+			 (string-match (, regexp) (buffer-name x)))
+		    (and (get-buffer x)
+			 (kill-buffer x)))))
+	     (buffer-list))))
+ 
+(defun wl-sendlog-time ()
+  (static-if (fboundp 'format-time-string)
+      (format-time-string "%Y/%m/%d %T")
+    (let ((date (current-time-string)))
+      (format "%s/%02d/%02d %s"
+ 	      (substring date -4)
+ 	      (cdr (assoc (upcase (substring date 4 7)) 
+			  timezone-months-assoc))
+ 	      (string-to-int (substring date 8 10))
+ 	      (substring date 11 19)))))
+
+(defun wl-collect-summary ()
+  (let (result)
+    (mapcar
+     (function (lambda (x)
+		 (if (and (string-match "^Summary"
+					(buffer-name x))
+			  (save-excursion
+			    (set-buffer x)
+			    (equal major-mode 'wl-summary-mode)))
+		     (setq result (nconc result (list x))))))
+     (buffer-list))
+    result))
+
+(static-if (fboundp 'read-directory-name)
+    (defalias 'wl-read-directory-name 'read-directory-name)
+  (defun wl-read-directory-name (prompt dir)
+    (let ((dir (read-file-name prompt dir)))
+      (unless (file-directory-p dir)
+	(error "%s is not directory" dir))
+      dir)))
+
+;; local variable check.
+(static-if (fboundp 'local-variable-p)
+    (defalias 'wl-local-variable-p 'local-variable-p)
+  (defmacro wl-local-variable-p (symbol &optional buffer)
+    (` (if (assq (, symbol) (buffer-local-variables (, buffer)))
+	   t))))
+
+(defun wl-number-base36 (num len)
+  (if (if (< len 0)
+	  (<= num 0)
+	(= len 0))
+      ""
+    (concat (wl-number-base36 (/ num 36) (1- len))
+	    (char-to-string (aref "zyxwvutsrqponmlkjihgfedcba9876543210"
+				  (% num 36))))))
+
+(defvar wl-unique-id-char nil)
+
+(defun wl-unique-id ()
+  ;; Don't use microseconds from (current-time), they may be unsupported.
+  ;; Instead we use this randomly inited counter.
+  (setq wl-unique-id-char
+	(% (1+ (or wl-unique-id-char (logand (random t) (1- (lsh 1 20)))))
+	   ;; (current-time) returns 16-bit ints,
+	   ;; and 2^16*25 just fits into 4 digits i base 36.
+	   (* 25 25)))
+  (let ((tm (static-if (fboundp 'current-time)
+		(current-time)
+	      (let* ((cts (split-string (current-time-string) "[ :]"))
+		     (m (cdr (assoc (nth 1 cts)
+				    '(("Jan" . "01") ("Feb" . "02")
+				      ("Mar" . "03") ("Apr" . "04")
+				      ("May" . "05") ("Jun" . "06")
+				      ("Jul" . "07") ("Aug" . "08")
+				      ("Sep" . "09") ("Oct" . "10")
+				      ("Nov" . "11") ("Dec" . "12"))))))
+		(list (string-to-int (concat (nth 6 cts) m
+					     (substring (nth 2 cts) 0 1)))
+		      (string-to-int (concat (substring (nth 2 cts) 1)
+					     (nth 4 cts) (nth 5 cts)
+					     (nth 6 cts))))))))
+    (concat
+     (if (memq system-type '(ms-dos emx vax-vms))
+	 (let ((user (downcase (user-login-name))))
+	   (while (string-match "[^a-z0-9_]" user)
+	     (aset user (match-beginning 0) ?_))
+	   user)
+       (wl-number-base36 (user-uid) -1))
+     (wl-number-base36 (+ (car   tm)
+			  (lsh (% wl-unique-id-char 25) 16)) 4)
+     (wl-number-base36 (+ (nth 1 tm)
+			  (lsh (/ wl-unique-id-char 25) 16)) 4)
+     ;; Append the name of the message interface, because while the
+     ;; generated ID is unique to this newsreader, other newsreaders
+     ;; might otherwise generate the same ID via another algorithm.
+     ".wl")))
+
+(defun wl-draft-make-message-id-string ()
+  (concat "<" (wl-unique-id) "@"
+	  (or wl-message-id-domain
+	      (if wl-local-domain
+		  (concat (system-name) "." wl-local-domain)
+		(system-name)))
+	  ">"))
+
+;;; Profile loading.
+(defvar wl-load-profile-func 'wl-local-load-profile)
+(defun wl-local-load-profile ()
+  (message "Initializing ...")
+  (load wl-init-file 'noerror 'nomessage))
+  
+(defun wl-load-profile ()
+  (funcall wl-load-profile-func))
+
+;;; wl-util.el ends here
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
new file mode 100644
index 0000000..3146152
--- /dev/null
+++ b/wl/wl-vars.el
@@ -0,0 +1,1949 @@
+;;; wl-vars.el -- Variable definitions for Wanderlust.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/25 00:19:06 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo-vars)
+
+(if (module-installed-p 'custom)
+    (require 'custom))
+
+(defconst wl-appname  "Wanderlust")
+(defconst wl-version  elmo-version) ; equals to ELMO version.
+(defconst wl-codename "Purple Rain")
+
+;;; Customizable Variables
+
+(defgroup wl nil
+  "Wanderlust, a news and mail reading software."
+  :tag "Wanderlust"
+  :link '(custom-manual "(wl-ja)Top")
+  :group 'news
+  :group 'mail)
+
+(defgroup wl-pref nil
+  "Wanderlust, Preferences."
+  :prefix "wl-"
+  :group 'wl)
+
+(defgroup wl-folder nil
+  "Wanderlust, folder buffer."
+  :prefix "wl-"
+  :group 'wl)
+
+(defgroup wl-summary nil
+  "Wanderlust, summary buffer."
+  :prefix "wl-"
+  :group 'wl)
+
+(defgroup wl-summary-marks nil
+  "Wanderlust, marks used in summary buffers."
+  :prefix "wl-summary-"
+  :group 'wl-summary)
+
+(defgroup wl-expire nil
+  "Wanderlust, Expiring and archiving."
+  :prefix "wl-"
+  :group 'wl)
+
+(defgroup wl-score nil
+  "Wanderlust, Score file handling."
+  :prefix "wl-"
+  :group 'wl)
+
+(defgroup wl-highlight nil
+  "Wanderlust, Highlights."
+  :prefix "wl-"
+  :group 'wl)
+
+(defgroup wl-draft nil
+  "Wanderlust, draft mode."
+  :prefix "wl-"
+  :group 'wl)
+
+;;; Emacsen
+(defconst wl-on-emacs20 (> emacs-major-version 19))
+
+(defconst wl-on-xemacs (featurep 'xemacs))
+
+(defconst wl-on-nemacs (fboundp 'nemacs-version))
+
+(defconst wl-on-mule (featurep 'mule))
+
+(defconst wl-on-mule3
+  (and wl-on-mule (or wl-on-xemacs wl-on-emacs20)))
+
+(require 'elmo-vars)
+
+(eval-when-compile
+  (defun-maybe locate-data-directory (a)))
+
+(defvar wl-cs-noconv
+  (cond (wl-on-mule3 'binary)
+        (wl-on-mule  '*noconv*)
+	(wl-on-nemacs 0)
+        (t           nil)))
+
+(defvar wl-cs-autoconv
+  (cond (wl-on-mule3 'undecided)
+        (wl-on-mule  '*autoconv*)
+	(wl-on-nemacs 2) ; junet...
+        (t           nil)))
+
+(defvar wl-cs-local
+  (cond (wl-on-mule3  'junet)
+        (wl-on-mule   '*junet*)
+        (wl-on-nemacs 2)
+        (t           nil)))
+
+(defvar wl-cs-cache wl-cs-local)
+
+(defvar wl-use-semi (module-installed-p 'mime-view) ; If nil, use tm.
+  "*Use SEMI or not")
+
+(defcustom wl-from (if (boundp 'user-mail-address)
+		       user-mail-address)
+  "*From string used in draft."
+  :type 'string
+  :group 'wl)
+
+(defcustom wl-user-mail-address-list nil
+  "*A list of user's mail addresses. 
+This list is used to judge whether an address is user's or not.
+You should set this variable if you use multiple e-mail addresses.
+If you don't have multiple e-mail addresses, you don't have to set this."
+  :type '(repeat string)
+  :group 'wl)
+
+(defcustom wl-organization nil
+  "Organization name."
+  :type '(choice (const :tag "none" nil)
+                 string)
+  :group 'wl)
+
+(defcustom wl-tmp-dir "~/tmp/"
+  "*Default temporary directory to save message, part."
+  :type 'directory
+  :group 'wl)
+
+(defcustom wl-icon-dir (if (fboundp 'locate-data-directory)
+			   (locate-data-directory "wl"))
+  "*Icon directory (XEmacs)."
+  :type '(choice (const :tag "none" nil)
+		 string)
+  :group 'wl)
+
+(defcustom wl-summary-from-func 'wl-summary-default-from
+  "*A function for displaying sender (From: field) information."
+  :type 'function
+  :group 'wl-summary)
+
+(defcustom wl-summary-subject-func 'wl-summary-default-subject
+  "*A function for displaying subject."
+  :type 'function
+  :group 'wl-summary)
+
+(defcustom wl-summary-subject-filter-func 'wl-summary-default-subject-filter
+  "*A filter function for comparing subjects."
+  :type 'function
+  :group 'wl-summary)
+
+(defcustom wl-summary-update-confirm-threshold 500
+  "*Confirm updating summary if message number is larger than this value."
+  :type 'integer
+  :group 'wl-summary)
+
+;; Important folders
+(defcustom wl-default-folder "%inbox"
+  "*Default folder used in wl-summary-goto-folder."
+  :type 'string
+  :group 'wl)
+(defcustom wl-draft-folder "+draft"
+  "*Draft folder"
+  :type 'string
+  :group 'wl)
+(defcustom wl-trash-folder "+trash"
+  "*Trash folder"
+  :type 'string
+  :group 'wl)
+(defcustom wl-queue-folder "+queue"
+  "*Queue folder"
+  :type 'string
+  :group 'wl)
+
+(defcustom wl-default-spec "%"
+  "*Default spec"
+  :type 'string
+  :group 'wl)
+
+(defcustom wl-insert-mail-followup-to nil
+  "*Insert Mail-Followup-To: field if non-nil."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-insert-mail-reply-to nil
+  "*Insert Mail-Reply-To: field if non-nil."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-insert-message-id t
+  "*Insert Message-ID: field if non-nil."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-auto-insert-x-face t
+  "*Insert X-Face: field automatically"
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-x-face-file "~/.xface"
+  "*If file exists and `wl-auto-insert-x-face' is non-nil, 
+X-Face field is inserted using its contents."
+  :type 'file
+  :group 'wl-draft)
+
+(defcustom wl-subscribed-mailing-list nil
+  "*Subscribed mailing list. You had better set this variable 
+if you set wl-insert-mail-followup-to as t."
+  :type '(repeat string)
+  :group 'wl-pref)
+
+(defcustom wl-demo t
+  "*Display demo at start time."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-envelope-from nil
+  "*Envelope From used in SMTP.
+If nil, wl-from is used."
+  :type '(choice (const :tag "Same as 'From' field." nil)
+		 string)
+  :group 'wl)
+
+(defcustom wl-smtp-connection-type nil
+  "*SMTP connection type.
+If nil, default smtp connection type is used."
+  :type '(choice (const :tag "default" nil)
+ 		 (const :tag "Use STARTTLS" starttls)
+ 		 symbol)
+  :group 'wl)
+
+(defcustom wl-smtp-posting-user nil
+  "*SMTP authentication user. "
+  :type '(choice (const :tag "none" nil)
+                 string)
+  :group 'wl)
+
+(defcustom wl-smtp-posting-server nil
+  "*SMTP server name to send mail (wl-draft-send-mail-with-smtp)."
+  :type 'string
+  :group 'wl)
+
+(defcustom wl-smtp-posting-port nil
+  "*SMTP port number in `wl-smtp-posting-server'.
+If nil, default SMTP port number(25) is used."
+  :type '(choice (const :tag "Default (25)" nil)
+                 integer)
+  :group 'wl)
+
+(defcustom wl-smtp-authenticate-type nil
+  "*SMTP Authentication type. 
+If nil, don't authenticate."
+  :type '(choice (const :tag "none" nil)
+		 (const :tag "PLAIN" "plain")
+		 (const :tag "CRAM-MD5" "cram-md5")
+		 (const :tag "LOGIN" "login")
+		 (string :tag "Other"))
+  :group 'wl)
+
+(defcustom wl-pop-before-smtp-user nil
+  "*POP3 user name to send mail using POP-before-SMTP.
+If nil, elmo-default-pop3-user is used.
+To use POP-before-SMTP,
+(setq wl-draft-send-mail-func 'wl-draft-send-mail-with-pop-before-smtp)"
+  :type '(choice (const :tag "none" nil)
+                 string)
+  :group 'wl)
+
+(defcustom wl-pop-before-smtp-server nil
+  "*POP3 server for POP-before-SMTP.
+If nil, elmo-default-pop3-server is used."
+  :type '(choice (const :tag "none" nil)
+                 string)
+  :group 'wl)
+
+(defcustom wl-pop-before-smtp-port nil
+  "*POP3 port for POP-before-SMTP.
+If nil, elmo-default-pop3-port is used."
+  :type '(choice (const :tag "none" nil)
+		 integer string)
+  :group 'wl)
+
+(defcustom wl-pop-before-smtp-ssl nil
+  "*Non-nil forces using SSL by default for POP-before-SMTP.
+If nil, elmo-default-pop3-ssl is used."
+  :type 'boolean
+  :group 'wl)
+
+(defcustom wl-pop-before-smtp-authenticate-type nil
+  "*Default Authentication type for POP-before-SMTP
+If nil, elmo-default-pop3-authenticate-type is used."
+  :type '(choice (const :tag "none" nil)
+		 (const :tag "APOP" "apop")
+		 (const :tag "POP3" "user"))
+  :group 'wl)
+
+(defcustom wl-nntp-posting-server nil
+  "*NNTP server name to post news.
+If nil, elmo-default-nntp-server is used."
+  :type '(choice (const :tag "none" nil)
+                 string)
+  :group 'wl)
+(defcustom wl-nntp-posting-user nil
+  "*NNTP user name to post news for authinfo.
+If nil, elmo-default-nntp-user is used.
+If nil, don't authenticate."
+  :type '(choice (const :tag "none" nil)
+                 string)
+  :group 'wl)
+(defcustom wl-nntp-posting-port nil
+  "*NNTP port to post news.
+If nil, elmo-default-nntp-port is used."
+  :type '(choice (const :tag "none" nil)
+		 integer string)
+  :group 'wl)
+(defcustom wl-nntp-posting-ssl nil
+  "*Non-nil forces using SSL to post news.
+If nil, elmo-default-nntp-ssl is used."
+  :type 'boolean
+  :group 'wl)
+
+(defcustom wl-fetch-confirm-threshold 30000
+  "*Confirm fetching if message size is larger than this value."
+  :type 'integer
+  :group 'wl-pref)
+
+(defcustom wl-prefetch-confirm t
+  "*Confirm prefetching if message size is larger than `wl-prefetch-threshold'."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-prefetch-threshold 30000
+  "*Maximum size of message prefetched without confirmation.
+If nil, all messages prefetched regardless of its size.
+If message size is larger than this value, confirm prefetching
+when `wl-prefetch-confirm' is non-nil."
+  :type '(choice (integer :tag "Threshold (bytes)")
+		 (const :tag "No limitation" nil))
+  :group 'wl-pref)
+
+(defcustom wl-cache-prefetch-threshold 30000
+  "*Quit forward cache prefetching if message size is larger than this value."
+  :type 'integer
+  :group 'wl-pref)
+
+(defcustom wl-thread-insert-opened nil
+  "*Non-nil forces to insert thread as opened in updating."
+  :type 'boolean
+  :group 'wl-summary)
+
+(defcustom wl-thread-open-reading-thread t
+  "*Non-nil forces to open reading thread."
+  :type 'boolean
+  :group 'wl-summary)
+
+;;;; Hooks
+(defvar wl-folder-mode-hook nil
+  "A hook called when wanderlust folder mode is started.")
+(defvar wl-summary-toggle-disp-on-hook nil
+  "A hook called when message is toggled.")
+(defvar wl-summary-toggle-disp-off-hook nil
+  "A hook called when message is disappeared.")
+(defvar wl-summary-toggle-disp-folder-on-hook nil
+  "A hook called when folder is toggled.")
+(defvar wl-summary-toggle-disp-folder-off-hook nil
+  "A hook called when folder is disappeared.")
+(defvar wl-summary-toggle-disp-folder-message-resumed-hook nil
+  "A hook called when message window is resumed when folder is toggled.")
+(defvar wl-summary-mode-hook nil
+  "A hook called when summary mode is started.")
+(defvar wl-summary-prepared-pre-hook nil
+  "A hook called before the summary buffer has been generated.")
+(defvar wl-summary-prepared-hook nil
+  "A hook called after the summary buffer has been generated.")
+(defvar wl-summary-sync-updated-hook nil
+  "A hook called when update summary buffer.")
+(defvar wl-summary-unread-message-hook nil
+  "A hook called when unread message is displayed.")
+(defvar wl-summary-edit-addresses-hook nil
+  "A hook called when address book is edited.")
+(defvar wl-summary-divide-thread-when-subject-changed nil
+  "Divide thread when subject is changed.")
+(defvar wl-init-hook nil
+  "A hook called when initialization is finished.")
+(defvar wl-hook nil
+  "A hook called when Wanderlust is invoked.")
+(defvar wl-reply-hook nil
+  "A hook called when replied.")
+(defvar wl-mail-setup-hook nil
+  "A hook called when Draft is prepared.")
+(defvar wl-draft-reedit-hook nil
+  "A hook called when Draft is re-edited.")
+(defvar wl-draft-send-hook nil
+  "A hook called on the draft editing buffer before sending process starts.")
+(defvar wl-mail-send-pre-hook nil
+  "A hook called just before the mail sending process starts.")
+(defvar wl-news-send-pre-hook nil
+  "A hook called just before the news sending process starts.")
+(defvar wl-message-buffer-created-hook nil
+  "A hook called when Message buffer is prepared.")
+(defvar wl-message-redisplay-hook nil
+  "A hook called when Message is displayed.")
+(defvar wl-message-exit-hook nil
+  "A hook called when quit message.")
+(defvar wl-summary-exit-hook nil
+  "A hook called when exit summary mode.")
+(defvar wl-highlight-headers-hook nil
+  "A hook called when header is highlighted.")
+(defvar wl-highlight-message-hook nil
+  "A hook called when message is highlighted.")
+(defvar wl-exit-hook nil
+  "A hook called when exit wanderlust.")
+(defvar wl-folder-suspend-hook nil
+  "A hook called when suspend wanderlust.")
+(defvar wl-auto-check-folder-pre-hook nil
+  "A hook called before auto check folders.")
+(defvar wl-auto-check-folder-hook nil
+  "A hook called when auto check folders.")
+(defvar wl-folder-check-entity-pre-hook nil
+  "A hook called before check entity.")
+(defvar wl-folder-check-entity-hook nil
+  "A hook called when check entity.")
+(defvar wl-draft-config-exec-hook nil
+  "A hook called when execute header-config on draft.")
+(defvar wl-summary-expire-pre-hook nil
+  "A hook called before expire.")
+(defvar wl-summary-expire-hook nil
+  "A hook called when expired.")
+(defvar wl-summary-archive-pre-hook nil
+  "A hook called before archive.")
+(defvar wl-summary-archive-hook nil
+  "A hook called when archived.")
+(defvar wl-summary-line-inserted-hook nil
+  "A hook called when summary line is inserted.")
+(defvar wl-thread-update-children-number-hook nil
+  "A hook called when children number is updated.")
+(defvar wl-folder-update-access-group-hook nil
+  "A hook called when update access group folder.")
+(defvar wl-draft-cited-hook nil
+  "A hook called after a message is cited.")
+(defvar wl-draft-insert-x-face-field-hook nil
+  "A hook called after a x-face field is inserted.")
+(defvar wl-template-mode-hook nil
+  "A hook called when template mode is started.")
+(defvar wl-score-mode-hook nil
+  "A hook called when score mode is started.")
+(defvar wl-make-plugged-hook nil
+  "A hook called when make plugged alist.")
+(defvar wl-plugged-exit-hook nil
+  "A hook called when exit plugged mode.")
+
+;;;; functions for draft
+(defcustom wl-draft-send-func 'wl-draft-normal-send-func
+  "A function to send message."
+  :type 'function
+  :group 'wl-draft)
+
+(defcustom wl-draft-send-news-func 'wl-draft-elmo-nntp-send
+  "A function to send news."
+  :type 'function
+  :group 'wl-draft)
+
+(defcustom wl-draft-send-mail-func 'wl-draft-send-mail-with-smtp
+  "A function to send mail.
+Prepared candidates are 'wl-draft-send-mail-with-smtp,
+'wl-draft-send-mail-with-qmail and 'wl-draft-send-mail-with-pop-before-smtp."
+  :type '(radio (function-item wl-draft-send-mail-with-smtp)
+		(function-item wl-draft-send-mail-with-qmail)
+		(function-item wl-draft-send-mail-with-pop-before-smtp)
+		(function :tag "Other"))
+  :group 'wl-draft)
+
+(defcustom wl-draft-reply-with-argument-list
+  '(("Reply-To" . (("Reply-To") nil nil))
+    ("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
+    ("From" . (("From") nil nil)))
+  "Alist of cons cell of 
+('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+If car of each cons cell exists in original message,
+cdr of each cons cell is used for draft message.
+Default is for 'reply-to-author'."
+  :type '(repeat (cons (choice (string :tag "Field Name")
+			       (repeat (string :tag "Field Name")))
+		       (list (repeat :tag "Fields For To" string)
+			     (repeat :tag "Fields For Cc" string)
+			     (repeat :tag "Fields For Newsgroups" string))))
+  :group 'wl-draft)
+  
+(defcustom wl-draft-reply-without-argument-list
+  '(("Followup-To" . (nil nil ("Followup-To")))
+    ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
+    ("From" . (("From") ("To" "Cc") ("Newsgroups"))))
+  "Alist of cons cell of 
+('field-name' .  ('fields for To' 'fields for Cc' 'fields for Newsgroups'))
+'field-name' is a string.
+'fields for ***' is a list of strings.
+If car of each cons cell exists in original message,
+cdr of each cons cell is used for draft message.
+Default is for 'reply-to-all'."
+  :type '(repeat (cons (choice (string :tag "Field Name")
+			       (repeat (string :tag "Field Name")))
+		       (list (repeat :tag "Fields For To" string)
+			     (repeat :tag "Fields For Cc" string)
+			     (repeat :tag "Fields For Newsgroups" string))))
+  :group 'wl-draft)
+
+(defcustom wl-draft-always-delete-myself nil
+  "*Always delete myself from reciepient if non-nil."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-draft-resume-folder-window t
+  "*Resume folder window in wl-draft-hide"
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-draft-use-frame nil
+  "*Raise new frame when composing draft."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-draft-qmail-send-plugged nil
+  "*Send mail when plugged is on, in the `wl-draft-send-mail-with-qmail'."
+  :type 'boolean
+  :group 'wl-draft)
+
+;;;; 
+(defcustom wl-init-file "~/.wl"
+  "*User customization setting file."
+  :type 'file
+  :group 'wl)
+
+(defcustom wl-folders-file "~/.folders"
+  "*Folders file"
+  :type 'file
+  :group 'wl)
+
+(defcustom wl-address-file "~/.addresses"
+  "*Addresses file"
+  :type 'file
+  :group 'wl)
+
+(defcustom wl-alias-file "~/.im/Aliases"
+  "*Alias file for completion"
+  :type 'file
+  :group 'wl)
+
+(defcustom wl-folder-info-save t
+  "If non-nil, save elmo-folder-info-alist."
+  :type 'boolean
+  :group 'wl-folder)
+
+(defcustom wl-summary-unread-mark "!"
+  "Mark for unread message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-important-mark "$"
+  "Mark for important message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-new-mark "N"
+  "Mark for new message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-unread-uncached-mark "U"
+  "Mark for unread and uncached message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-unread-cached-mark "!"
+  "Mark for unread but already cached message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-read-uncached-mark "u"
+  "Mark for read but uncached message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-score-over-mark "+"
+  "Score mark used for messages with high scores."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+(defcustom wl-summary-score-below-mark "-"
+  "Score mark used for messages with low scores."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+
+(defcustom wl-summary-no-mime-folder-list
+  (list (concat "^" (regexp-quote wl-draft-folder) "$"))
+  "*All folders that match this list don't analysis mime."
+  :type '(repeat string)
+  :group 'wl-summary)
+
+(defcustom wl-summary-fix-timezone "JST"
+  "Non-nil forces to fix timezone of summary date."
+  :type 'string
+  :group 'wl-summary)
+
+(defcustom wl-summary-default-score 0
+  "*Default message score level.
+All scores generated by the score files will be added to this score.
+If this variable is nil, scoring will be disabled."
+  :type '(choice (const :tag "disable" nil)
+		 integer)
+  :group 'wl-score)
+
+(defcustom wl-summary-important-above nil
+  "*Mark all messages with a score above this variable as important.
+This variable is local to the summary buffers."
+  :type '(choice (const :tag "off" nil)
+		 integer)
+  :group 'wl-score)
+
+(defcustom wl-summary-temp-above nil
+  "*Mark all messages with a score above this variable as temp.
+This variable is local to the summary buffers."
+  :type '(choice (const :tag "off" nil)
+		 integer)
+  :group 'wl-score)
+
+(defcustom wl-summary-mark-below 0
+  "*Mark all messages with a score below this variable as read.
+This variable is local to each summary buffer and usually set by the
+score file."
+  :type 'integer
+  :group 'wl-score)
+
+(defcustom wl-summary-expunge-below nil
+  "All messages that have a score less than this variable will be expunged.
+This variable is local to the summary buffers."
+  :type '(choice (const :tag "off" nil)
+		 integer)
+  :group 'wl-score)
+
+(defcustom wl-summary-score-marks 
+  (list wl-summary-new-mark)
+  "Persistent marks to scoring."
+  :type '(repeat (string :tag "Mark"))
+  :group 'wl-score)
+
+(defcustom wl-use-scoring (not wl-on-nemacs)
+  "*If non-nil, enable scoring."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-summary-rescore-partial-threshold 200
+  "*Summary is not scored entirely if there are messages more than this value
+in sync-all or rescan."
+  :type 'integer
+  :group 'wl-score)
+
+(defcustom wl-score-files-dir (concat elmo-msgdb-dir elmo-path-sep)
+  "*Name of the directory where score files will be stored (default \"~/.elmo\")."
+  :type 'directory
+  :group 'wl)
+
+(defcustom wl-score-interactive-default-score 1000
+  "*Scoring commands will raise/lower the score with this number as the default."
+  :type 'integer
+  :group 'wl-score)
+
+(defcustom wl-score-expiry-days 7
+  "*Number of days before unused score file entries are expired.
+If this variable is nil, no score file entries will be expired."
+  :type '(choice (const :tag "never" nil)
+		 number)
+  :group 'wl-score)
+
+(defcustom wl-score-update-entry-dates t
+  "*In non-nil, update matching score entry dates.
+If this variable is nil, then score entries that provide matches
+will be expired along with non-matching score entries."
+  :type 'boolean
+  :group 'wl-score)
+
+(defcustom wl-score-folder-alist nil
+  "*Alist of folder regexp and score file."
+  :type '(repeat (list (regexp :tag "Folder Regexp")
+		       (repeat :inline t
+			       (choice file
+				       (symbol :tag "Variable")))))
+  :group 'wl-score)
+
+(defcustom wl-score-folder-alist-matchone t
+  "*If non-nil, getting only one element of `wl-score-folder-alist'."
+  :type 'boolean
+  :group 'wl-score)
+
+(defcustom wl-score-default-file "all.SCORE"
+  "*Default score file name."
+  :type 'file
+  :group 'wl-score)
+
+(defcustom wl-score-simplify-fuzzy-regexp
+  '("^[ \t]*\\[[^:]+[,: ][0-9]+\\][ \t]*")
+  "*Strings to be removed when doing fuzzy matches.
+This can either be a regular expression or list of regular expressions."
+  :type '(repeat regexp)
+  :group 'wl-score)
+
+(defcustom wl-score-header-default-entry
+  '(("number" -1000 perm =)
+    ("subject" -1000 nil nil)
+    ("from" -1000 perm s)
+    ("message-id" -1000 temp e)
+    ("references" -1000 perm e)
+    ("to" -1000 perm s)
+    ("cc" -1000 perm s)
+    ("date" -1000 temp nil)
+    ("xref" -1000 perm s)
+    ("extra" -1000 perm s)
+    ("chars" -1000 perm >)
+    ("lines" -1000 perm >)
+    ("followup" -1000 perm s)
+    ("thread" -1000 temp s))
+  "*Default entry when insert score entry."
+  :type '(repeat (list (string :tag "Header")
+		       (choice (integer :tag "Score")
+			       (const :tag "Ask" nil))
+		       (choice (const :tag "Permanent" perm)
+			       (const :tag "Temporary" temp)
+			       (const :tag "Ask" nil))
+		       (choice (const :tag "Regexp string" r)
+			       (const :tag "Substring" s)
+			       (const :tag "fuzzy string" f)
+			       (const :tag "Exact string" e)
+			       (const :tag "REGEXP STRING" R)
+			       (const :tag "SUBSTRING" S)
+			       (const :tag "FUZZY STRING" F)
+			       (const :tag "EXACT STRING" E)
+			       (const :tag "less than" <)
+			       (const :tag "less equal" <=)
+			       (const :tag "greater than" >)
+			       (const :tag "greater equal" >=)
+			       (const :tag "equal" =)
+			       (const :tag "Ask" nil))))
+  :group 'wl-score)
+
+(defcustom wl-score-mode-mime-charset 'x-ctext
+  "*MIME Charset for score file."
+  :type 'symbol
+  :group 'wl-score)
+
+(defcustom wl-draft-fields
+  '("To:" "Cc:" "Bcc:" "FCC:" "Distribution:" "Organization:"
+    "Newsgroups:" "Followup-To:" "Mail-Followup-To:" "From:" "Reply-To:") 
+  "Fields used in draft mode."
+  :type '(repeat (string :tag "Field"))
+  :group 'wl-draft)
+
+(defcustom wl-draft-config-alist nil
+  "Alist of configuration field on draft.
+ex.
+'((\"^To: .*wl@lists.airs.net\"
+   (\"From\" . wl-from2)
+   (\"Organization\" . wl-organization2))
+  (\"^To: .*hogehoge@\"
+   (\"From\" . \"Anonymous <hogehoge@aaa.ne.jp>\")
+   wl-my-draft-config-func-hoge))"
+  :type '(repeat (list (sexp :tag "Match")
+		       (repeat
+			:inline t
+			(choice (cons (sexp :tag "Field(Variable)")
+				      (sexp :tag "Value"))
+				(sexp :tag "Function")))))
+  :group 'wl-draft)
+
+(defcustom wl-draft-config-matchone nil
+  "*If non-nil, applied only one element of `wl-draft-config-alist'."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-template-alist nil
+  "Alist of template."
+  :type '(repeat (list (string :tag "Name")
+		       (repeat
+			:inline t
+			(choice (cons (sexp :tag "Field(Variable)")
+				      (sexp :tag "Value"))
+				(sexp :tag "Function")))))
+  :group 'wl-draft)
+
+(defcustom wl-template-visible-select t
+  "*If non-nil, select template with visible."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-template-confirm nil
+  "*If non-nil, require your confirmation when selected template."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-template-buffer-lines 7
+  "*Lines of template buffer."
+  :type 'integer
+  :group 'wl-draft)
+
+;; queued sending.
+(defcustom wl-draft-enable-queuing t
+  "*Non-nil enables queued sending."
+  :type 'boolean
+  :group 'wl-draft
+  :group 'wl-pref)
+
+(defcustom wl-auto-flush-queue t
+  "*If non-nil, sending queue is flushed when network status is toggled."
+  :type 'boolean
+  :group 'wl-draft
+  :group 'wl-pref)
+
+(defcustom wl-draft-reply-buffer-style 'split
+  "'split or 'full"
+  :type '(radio (const split)
+		(const full))
+  :group 'wl-draft)
+
+(defcustom wl-draft-queue-save-variables
+  '(wl-envelope-from
+    wl-smtp-posting-server smtp-service
+    wl-nntp-posting-server elmo-default-nntp-port)
+  "*Saving variables in queue info."
+  :type '(repeat (sexp :tag "Variable"))
+  :group 'wl-draft)
+
+(defcustom wl-draft-sendlog t
+  "*Keep send state in log if non-nil."
+  :type 'boolean
+  :group 'wl-draft)
+
+(defcustom wl-draft-sendlog-max-size 20000
+  "*Max file size of sendlog."
+  :type 'integer
+  :group 'wl-draft)
+
+(defcustom wl-summary-default-number-column 5
+  "number of columns in summary buffer."
+  :type 'integer
+  :group 'wl-summary)
+
+(defcustom wl-summary-number-column-alist '(("\\*.*" . 6))
+  "Alist of folder and its number column.
+If no matches, 'wl-summary-default-number-column' is used.
+ex.
+'((\"^%inbox@qmail-maildir\" . 9)
+  (\"^-.*@news-server\" . 6))"
+  :type '(repeat (cons (regexp :tag "Folder Regexp") integer))
+  :group 'wl-summary)
+
+(defcustom wl-summary-highlight t
+  "Non-nil forces Summary buffer to be highlighted."
+  :type 'boolean
+  :group 'wl-summary
+  :group 'wl-highlight)
+
+(defcustom wl-summary-highlight-partial-threshold 1000
+  "Summary is not highlighted entirely 
+if there are lines more than this value."
+  :type 'integer
+  :group 'wl-summary
+  :group 'wl-highlight)
+
+(defcustom wl-summary-partial-highlight-above-lines 30
+  "If Summary has lines more than wl-summary-highlight-partial-threshold,
+Summary lines are highlighted partialy above current position."
+  :type 'integer
+  :group 'wl-summary
+  :group 'wl-highlight)
+
+(defcustom wl-summary-cache-use t
+  "Non-nil forces wl-summary to use cache file."
+  :type 'boolean
+  :group 'wl-summary)
+
+(defcustom wl-summary-auto-sync-marks t
+  "Non-nil forces to synchronize unread/important marks."
+  :type 'boolean
+  :group 'wl-summary)
+
+(defcustom wl-summary-cache-file ".wl-summary-cache"
+  "*Cache file for summary mode contents."
+  :type 'file
+  :group 'wl-summary)
+(defcustom wl-summary-view-file ".wl-summary-view"
+  "*current summary view."
+  :type 'file
+  :group 'wl-summary)
+(defcustom wl-thread-top-file ".wl-thread-top"
+  "*current thread top entity... obsolete."
+  :type 'file
+  :group 'wl-summary)
+(defcustom wl-thread-entity-file ".wl-thread-entity"
+  "*thread entities."
+  :type 'file
+  :group 'wl-summary)
+(defcustom wl-thread-entity-list-file ".wl-thread-entity-list"
+  "*thread top entity list."
+  :type 'file
+  :group 'wl-summary)
+
+(defcustom wl-print-buffer-func 'lpr-buffer
+  "A function to print current buffer."
+  :type 'function
+  :group 'wl-pref)
+
+(defcustom wl-ps-print-buffer-func 
+  (if window-system 'ps-print-buffer-with-faces 'ps-print-buffer)
+  "A function to print current buffer with ps-print."
+  :type 'function
+  :group 'wl-pref)
+
+;;;; Preferences
+(defcustom wl-use-petname t
+  "*Display petname in summary and default citation title."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-use-folder-petname
+  '(modeline)
+  "*List of situation using folder petname. Allowed situations are:
+
+  modeline    : displayed on modeline.
+  ask-folder  : displayed on minibuffer when ask folder.
+  read-folder : can used for completion at `wl-summary-read-folder'."
+  :type '(set (const modeline)
+	      (const ask-folder)
+	      (const read-folder))
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-folder-petname-alist nil
+  "A list of (realname . petname)"
+  :type '(repeat (cons (string :tag "Realname") (string :tag "Petname")))
+  :group 'wl-folder)
+
+(defcustom wl-summary-weekday-name-lang "ja"
+  "*Language to display week day."
+  :type '(choice (const "ja")
+		 (const "en")
+		 (const "fr")
+		 (const "de")
+		 (string :tag "Other"))
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-local-domain nil
+  "*Domain part of this client (without hostname).  
+Set this if (system-name) does not return FQDN."
+  :type '(choice (const :tag "Use System Name" nil)
+                 string)
+  :group 'wl-pref)
+
+(defcustom wl-message-id-domain nil
+  "*Specific domain part of Message-ID."
+  :type '(choice (const :tag "Use System Name" nil)
+                 string)
+  :group 'wl-pref)
+
+(defcustom wl-break-pages t
+  "*Break Pages at ^L."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-message-scroll-amount 5
+  "*Scroll amount by SPC key."
+  :type 'integer
+  :group 'wl-pref)
+
+(defcustom wl-message-window-size '(1 . 4)
+  "*Size of summary and message window. cons cell of (Summary : Message)."
+  :type '(cons integer integer)
+  :group 'wl-pref)
+
+(defcustom wl-message-sort-field-list '("Return-Path" "Received" "^To" "^Cc" 
+					"Newsgroups" "Subject" "^From")
+  "*Sort order of header fields. Each elements are regexp of field name.
+(Not valid on tm.)"
+  :type '(repeat (string :tag "Field Regexp"))
+  :group 'wl-pref)
+
+(defcustom wl-folder-window-width 20
+  "*Width of folder window."
+  :type 'integer
+  :group 'wl-folder
+  :group 'wl-pref)
+
+(defcustom wl-summary-recenter t
+  "*Recenter on redisplay"
+  :type 'boolean
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-stay-folder-window nil
+  "*Stay folder window when folder is selected if non-nil."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-reply-subject-prefix "Re: "
+  "*Prefix of the subject of the replied message."
+  :type 'string
+  :group 'wl-draft
+  :group 'wl-pref)
+
+(defcustom wl-folder-many-unsync-threshold 70
+  "*Folders which contains messages more than this number are highlighted
+with wl-highlight-folder-many-face."
+  :type 'integer
+  :group 'wl-folder
+  :group 'wl-pref)
+
+(defcustom wl-fcc nil
+  "*Folder Carbon Copy."
+  :type '(choice (const :tag "disable" nil)
+                 string)
+  :group 'wl-draft
+  :group 'wl-pref)
+
+(defcustom wl-bcc nil
+  "*Blind Carbon Copy."
+  :type '(choice (const :tag "disable" nil)
+                 string)
+  :group 'wl-draft
+  :group 'wl-pref)
+
+(defcustom wl-folder-desktop-name "Desktop"
+  "*An implicit name of the folder top entity."
+  :type 'string
+  :group 'wl-folder
+  :group 'wl-pref)
+
+(defcustom wl-summary-indent-length-limit 46
+  "*Limit of indent length for thread."
+  :type 'integer
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-summary-no-from-message "nobody@nowhere?"
+  "*A string displayed in summary when no from field exists."
+  :type 'string
+  :group 'wl-summary)
+
+(defcustom wl-summary-no-subject-message "(WL:No Subject in original.)"
+  "*A string displayed in summary when no subject field exists."
+  :type 'string
+  :group 'wl-summary)
+
+(defcustom wl-summary-cancel-message "I'd like to cancel my message."
+  "*The body content of a cancel message."
+  :type 'string
+  :group 'wl-summary)
+
+(defcustom wl-summary-width 80
+  "*Set summary line width if non nil."
+  :type 'integer
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-summary-pick-field-default "Body"
+  "*Default field for pick."
+  :type '(radio (const "From")
+		(const "Subject")
+		(const "Date")
+		(const "To")
+		(const "Cc")
+		(const "Body")
+		(const "Since")
+		(const "Before")
+		(string :tag "Other"))
+  :group 'wl-summary)
+
+(defcustom wl-from-width 17
+  "*From width in summary."
+  :type 'integer
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-mime-charset (if wl-on-nemacs
+			       'iso-2022-jp
+			     'x-ctext)
+  "*MIME Charset for summary and message."
+  :type 'symbol
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-generate-mailer-string-func 'wl-generate-user-agent-string
+  "A function to create X-Mailer field string ."
+  :type 'function
+  :group 'wl-draft)
+
+(defcustom wl-highlight-background-mode  (if (boundp 'hilit-background-mode)
+					     (or hilit-background-mode 'dark)
+					   'dark)
+  "*Background mode of highlight (for Old Emacsen). 'dark or 'light"
+  :type '(radio (const dark)
+		(const light))
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-x-face-func nil
+  "A function to display X-Face."
+  :type 'function
+  :group 'wl-highlight)
+
+(defcustom wl-qmail-inject-program "/var/qmail/bin/qmail-inject"
+  "Location of the qmail-inject program."
+  :type '(string :tag "Program")
+  :group 'wl-draft)
+
+(defcustom wl-qmail-inject-args nil
+  "Arguments passed to qmail-inject programs.
+This should be a list of strings, one string for each argument.
+
+For e.g., if you wish to set the envelope sender address so that bounces
+go to the right place or to deal with listserv's usage of that address, you
+might set this variable to '(\"-f\" \"you@some.where\")."
+  :type '(repeat (string :tag "Argument"))
+  :group 'wl-draft)
+
+(defcustom wl-rejected-letter-start 
+  "^[\t ]*-+[\t ]+\\(original\\|\\(\\(the \\)?unsent\\)\\) message\\( follows\\)?[\t ]+-+[\t ]*$"
+  "Regexp specifying the beginning of the wrapper around a returned letter.
+  This wrapper is generated by the mail system when rejecting a letter."
+  :type 'regexp
+  :group 'wl-draft)
+
+(defcustom wl-ignored-resent-headers "\\(return-receipt\\|[bdf]cc\\)"
+  "*All headers that match this regexp will be deleted when resending a message."
+  :type 'regexp
+  :group 'wl-draft)
+
+(defcustom wl-refile-default-from-folder "+from"
+  "*Folder name to refile by `wl-refile-guess-by-from'."
+  :type '(string :tag "Folder")
+  :group 'wl-pref)
+
+(defcustom wl-summary-auto-refile-skip-marks 
+  (list wl-summary-new-mark
+	wl-summary-unread-uncached-mark
+	wl-summary-unread-cached-mark)
+  "Persistent marks to skip auto-refiling."
+  :type '(repeat (string :tag "Mark"))
+  :group 'wl-summary)
+
+(defcustom wl-summary-reserve-mark-list
+  (list "o" "O" "D")
+  "If a message is already marked as temporal marks in this list, 
+the message is not marked by any mark command."
+  :type '(repeat (string :tag "Temp-Mark"))
+  :group 'wl-summary)
+
+(defcustom wl-summary-skip-mark-list
+  (list "D")
+  "If a message is already marked as temporal marks in this list, 
+the message is skipped at cursor move."
+  :type '(repeat (string :tag "Temp-Mark"))
+  :group 'wl-summary)
+
+(defcustom wl-summary-incorporate-marks
+  (list wl-summary-new-mark
+	wl-summary-unread-uncached-mark)
+  "Persistent marks to prefetch at `wl-summary-incorporate'"
+  :type '(repeat (string :tag "Mark"))
+  :group 'wl-summary)
+
+(defcustom wl-refile-rule-alist nil
+  "Refile rule alist.
+e.x.
+'(
+  (\"From\"
+   (\"teranisi@isl.ntt.co.jp\" . \"+teranisi\"))
+  (\"x-ml-name\"
+   (\"^Wanderlust\"    . \"+wl\")
+   (\"^Elips\" . \"+elips\")))"
+  :type '(repeat (list (string :tag "Field")
+		       (repeat :inline t
+			       (cons (regexp :tag "Value")
+				     (string :tag "Folder")))))
+  :group 'wl-pref)
+
+(defcustom wl-strict-diff-folders nil
+  "Folders in this list are checked its unsync message number strictly."
+  :type '(repeat (string :tag "Folder"))
+  :group 'wl-folder)
+
+(defcustom wl-folder-use-server-diff t
+  "Checked unread message number on IMAP4 server. 
+Only IMAP4 folders have an effect."
+  :type 'boolean
+  :group 'wl-folder)
+
+(defcustom wl-force-fetch-folders nil
+  "Non-nil forces to fetch subfolders when user opened an 'access' folder."
+  :type '(choice (const :tag "off" nil)
+		 (const :menu-tag "on" t)
+		 (repeat (regexp :tag "Folder Regexp")))
+  :group 'wl-folder)
+
+(defcustom wl-auto-check-folder-name nil
+  "*The folder specified by this variable will be automatically checked 
+at start time."
+  :type '(choice (string :tag "Folder")
+		 (repeat (string :tag "Folder"))
+		 (const none))
+  :group 'wl-folder)
+
+(defcustom wl-auto-uncheck-folder-list '("\\$.*")
+  "All folders that match this list won't be checked when group is 
+automatically checked (or desktop is checked).
+This value is preceded by wl-auto-check-folder-list.
+Each elements are regexp of folder name."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-folder)
+
+(defcustom wl-auto-check-folder-list nil
+  "All folders that match this list are checked when group is 
+automatically checked (or desktop is checked).
+This value precedes wl-auto-uncheck-folder-list.
+Each elements are regexp of folder name."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-folder)
+
+(defcustom wl-interactive-send nil
+  "*If non-nil, require your confirmation when sending draft message."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-interactive-exit t
+  "*If non-nil, require your confirmation when exiting WL."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-summary-move-order 'unread
+  "*The order of priority when move in summary mode.
+If this variable is `unread', precede \"U\", \"!\", \"N\" mark.
+If this variable is `new', precede \"N\" mark."
+  :type '(radio (const new)
+		(const unread))
+  :group 'wl-summary)
+
+(defvar wl-summary-move-direction-downward t)
+
+(defcustom wl-summary-move-direction-toggle t
+  "*If non-nil, search direction for the next message will be determined
+depends on previous search direction. 
+It uses wl-summary-move-direction-downward as a direction flag."
+  :type 'boolean
+  :group 'wl-summary)
+
+(defcustom wl-auto-select-first nil
+  "*If non-nil, display selected first message when enter summary."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-auto-select-next nil
+  "*If non-nil, offer to go to the next folder from the end of the previous.
+If the value is the symbol `unread', go to the next folder 
+that no unread message exists. If the value is the symbol `skip-no-unread',
+skip the folder that no unread message exists.
+
+See also variable `wl-summary-next-no-unread-command'."
+  :type '(radio (const :tag "off" nil)
+		(const :tag "on" t)
+		(const unread)
+		(const skip-no-unread))
+  :group 'wl-pref)
+
+(defcustom wl-cache-prefetch-folder-type-list '(imap4 nntp)
+  "*All folder types that match this list prefetch next message, 
+and reserved buffer cache."
+  :type '(set (const localdir)
+	      (const localnews)
+	      (const imap4)
+	      (const nntp)
+	      (const pop3)
+	      (const archive)
+	      (const internal))
+  :group 'wl-pref)
+
+(defcustom wl-cache-prefetch-folder-list nil
+  "*All folders that match this list prefetch next message, 
+and reserved buffer cache.
+e.x.
+'(\"^[-%]\")"
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-pref)
+
+(defcustom wl-cache-prefetch-get-next-func 'wl-summary-default-get-next-msg
+  "*A function to get message number when prefetch next message."
+  :type 'function
+  :group 'wl-pref)
+
+;; obsolete
+;(defvar wl-no-cache-folder-list '("^\\$.*")
+;  "All folders that match this list won't be cached when reading messages.
+;Each elements are regexp of folder name.")
+
+(defcustom wl-summary-always-sticky-folder-list nil
+  "All folders that match this list has sticky summary.
+Each elements are regexp of folder name."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-pref)
+
+(defcustom wl-no-save-folder-list '("^/.*$")
+  "All folders that match this list won't save its msgdb.
+Each elements are regexp of folder name."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-pref)
+
+(defcustom wl-save-folder-list nil
+  "All folders that match this list save its msgdb.
+Each elements are regexp of folder name."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-pref)
+
+(defcustom wl-search-mime-charset 'iso-2022-jp
+  "*MIME Charset for searching message."
+  :type 'symbol
+  :group 'wl-pref)
+
+(defcustom wl-folder-mime-charset-alist
+  '(("^-alt\\.chinese" . big5)
+    ("^-relcom\\." . koi8-r)
+    ("^-tw\\." . big5)
+    ("^-han\\." . euc-kr))
+  "Charset alist. If no match, wl-mime-charset is used."
+  :type '(repeat (cons (regexp :tag "Folder Regexp") (symbol :tag "Charset")))
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-folder-weekday-name-lang-alist
+  '(("^-alt\\.chinese" . "en")
+    ("^-relcom\\." . "en")
+    ("^-tw\\." . "en")
+    ("^-han\\." . "en"))
+  "Weekday name lang alist. If no match, wl-summary-weekday-name-lang 
+is used.
+e.x.
+'((\"xemacs-beta$\" . \"en\")
+  (\"^-fj\" . \"ja\"))"
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+		       (choice (const "ja")
+			       (const "en")
+			       (const "fr")
+			       (const "de")
+			       (string :tag "Other"))))
+  :group 'wl-pref)
+
+(defcustom wl-folder-thread-indent-set-alist
+  '(("^-alt\\.chinese" . (2 "+" "+" "|" "-" " "))
+    ("^-relcom\\." . (2 "+" "+" "|" "-" " "))
+    ("^-tw\\." . (2 "+" "+" "|" "-" " "))
+    ("^-han\\." . (2 "+" "+" "|" "-" " ")))
+  "Thread indent set alist. 
+If no match, following indent set is used.
+(wl-thread-indent-level
+ wl-thread-have-younger-brother-str
+ wl-thread-youngest-child-str
+ wl-thread-vertical-str
+ wl-thread-horizontal-str
+ wl-thread-space-str)
+e.x.
+'((\"xemacs-beta$\" . (2 \"+\" \"+\" \"|\" \"-\" \" \")))"
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+		       (group (integer :tag "Indent")
+			      (string :tag "Yonger Brother")
+			      (string :tag "Yonger Child")
+			      (string :tag "Vertical")
+			      (string :tag "Horizontal")
+			      (string :tag "Space"))))
+  :group 'wl-pref)
+
+(defcustom wl-folder-sync-range-alist 
+  (list (cons "^&.*$" "all")
+	(cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^" 
+		      (regexp-quote wl-queue-folder) "$")
+	      "all"))
+  "*Default sync range alist. If no matches, `wl-default-sync-range' is used."
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+		       (choice (const "update")
+			       (const "all")
+			       (const "rescan")
+			       (const "first:")
+			       (const "last:")
+			       (const "no-sync")
+			       (const :tag "none" nil))))
+  :group 'wl-pref)
+
+(defcustom wl-default-sync-range  "update"
+  "*Default sync range."
+  :type '(choice (const "update")
+		 (const "all")
+		 (const "rescan")
+		 (const "first:")
+		 (const "last:")
+		 (const "no-sync")
+		 (const :tag "none" nil))
+  :group 'wl-pref)
+
+(defcustom wl-ask-range t
+  "*If non-nil, ask for a range for summary synchronization. 
+If nil, always use default."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-folder-move-cur-folder nil
+  "*Non-nil, move to current folder on folder-mode when goto folder."
+  :type 'boolean
+  :group 'wl-folder)
+
+(defcustom wl-folder-check-async (not wl-on-nemacs)
+  "*Check the folder asynchronous."
+  :type 'boolean
+  :group 'wl-folder)
+
+(defcustom wl-folder-notify-deleted nil
+  "*Non-nil, display negative number on folder-mode when message is deleted
+in folder. If the value is 'sync, msgdb would be synchronized."
+  :type '(choice (const :tag "off" nil)
+		 (const :tag "on" t)
+		 (const sync))
+  :group 'wl-folder)
+
+(defcustom wl-summary-exit-next-move t
+  "*Non-nil, move to next-unsync or next-entity when exit summary."
+  :type 'boolean
+  :group 'wl-summary)
+
+(defcustom wl-summary-next-no-unread-command 
+  '(wl-summary-read wl-summary-down wl-summary-up)
+  "*Command list available when the value of `wl-auto-select-next' is 'unread
+or 'skip-no-unread."
+  :type '(repeat function)
+  :group 'wl-summary)
+
+(defcustom wl-summary-search-via-nntp 'confirm
+  "*Non-nil, search message via nntp after `wl-summary-jump-to-msg-by-message-id'. If the value is 'confirm, confirm before search."
+  :type 'boolean
+  :group 'wl-summary)
+
+(defcustom wl-summary-keep-cursor-command 
+  '(wl-summary-goto-folder wl-summary-goto-last-visited-folder)
+  "*Command list to keep cursor position when folder is changed to
+already existing summary."
+  :type '(repeat function)
+  :group 'wl-summary)
+
+(defcustom wl-summary-showto-folder-regexp nil
+  "Regexp specifying the folder that shows the To (or Newsgroups) field as
+  Sender information in summary mode."
+  :type 'regexp
+  :group 'wl-summary)
+
+(defcustom wl-folder-removed-mark "#<removed>"
+  "Mark for removed folder."
+  :type 'string
+  :group 'wl-folder)
+
+(defcustom wl-folder-unsubscribe-mark "#"
+  "Mark for unsubscribe folder."
+  :type 'string
+  :group 'wl-folder)
+
+(defcustom wl-delete-folder-alist '(("^-" . remove))
+  "*Alist of folder and delete policy. 
+Each element is (folder-regexp . policy).
+
+The policy is one of the followings:
+'remove or
+'null     : remove message.
+string    : refile to the specified folder.
+'trash or 
+otherwise : refile to the `wl-trash-folder'.
+ex.
+'((\"^%\" . \"%#mh/trash\")
+  (\"^-\" . remove)
+  (\"^\\\\+\" . trash))"
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+		       (choice :tag "Policy"
+			       (const remove)
+			       (const :tag "remove(null)" null)
+			       (const trash)
+			       (const :tag "trash(other)" trash)
+			       (string :tag "Folder"))))
+  :group 'wl-folder)
+
+(defcustom wl-refile-policy-alist '(("^[-=']" . copy)
+				    (".*" . move))
+  "*List of refile policy. Each element is (FOLDER-REGEXP . POLICY).
+POLICY is copy or move."
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+		       (choice (const copy)
+			       (const move))))
+  :group 'wl-summary
+  :group 'wl-pref)
+
+(defcustom wl-folder-hierarchy-access-folders '("-" "-alt")
+  "*Access group folders to make hierarchy structure."
+  :type '(repeat (string :tag "Folder"))
+  :group 'wl-folder)
+
+(defcustom wl-folder-init-load-access-folders nil
+  "*Access group folders to load folder list on `wl-folder-init'.
+If this variable is non-nil,
+`wl-folder-init-no-load-access-folders' will be ignored."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-folder)
+
+(defcustom wl-folder-init-no-load-access-folders nil
+  "*Access group folders to not load folder list on `wl-folder-init'.
+If `wl-folder-init-load-access-folders' is non-nil,
+this variable will be ignored."
+  :type '(repeat (regexp :tag "Folder Regexp"))
+  :group 'wl-folder)
+
+(defcustom wl-folder-access-subscribe-alist nil
+  "*Subscribe folders to fetching folder entries.
+Each element is (group-regexp (subscribe folder-regexp ...)).
+If subscribe is non-nil, subscribe when match folder-regexp.
+If subscribe is nil, unsubscribe when match folder-regexp.
+
+ex.
+'((\"^-fj$\"   . (t   \"^-fj\\\\.\\\\(editor\\\\|mail\\\\|net\\\\|news\\\\)\"))
+  (\"^-comp$\" . (t   \"^-comp\\\\.unix\" \"^-comp\\\\.sys\"))
+  (\"^-$\"     . (nil \"^-alt\" \"^-rec\")))"
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+		       (list (boolean :tag "Subscribed")
+			     (repeat :inline t
+				     (regexp :tag "Folder Regexp")))))
+  :group 'wl-folder)
+
+;;; For Folder Manager 
+
+(defcustom wl-interactive-save-folders t
+  "*Non-nil require your confirmation when save folders."
+  :type 'boolean
+  :group 'wl-folder)
+
+(defcustom wl-fldmgr-make-backup t
+  "*Non-nil make backup file when save folders."
+  :type 'boolean
+  :group 'wl-folder)
+
+(defcustom wl-fldmgr-folders-indent "\t"
+  "*Indent string for folders file."
+  :type 'string
+  :group 'wl-folder)
+
+(defcustom wl-fldmgr-sort-func 'wl-fldmgr-sort-standard
+  "*A function to sort folder."
+  :type 'function
+  :group 'wl-folder)
+
+(defcustom wl-fldmgr-sort-group-first t
+  "*Non-nil Group folder is first when sort."
+  :type 'function
+  :group 'wl-folder)
+
+;;; For Expire and Archive
+
+(defcustom wl-expire-alist nil
+  "Alist to decide a policy for expire.
+Each element is (folder-regexp (number or date) policy).
+
+The policy is one of the followings:
+'remove  : remove messsage.
+'trash   : refile wl-trash-folder.
+string   : refile string folder.
+function : call function.
+
+ex.
+'((\"^\\\\+ml/wl$\"		(number 500 510) wl-expire-archive-number1 t)
+  (\"^\\\\+ml/\"		(number 300 305) wl-expire-archive-number2)
+  (\"^\\\\+outbox$\"		(number 300) \"$outbox;lha\")
+  (\"^\\\\(\\\\+tmp\\\\|\\\\+trash\\\\)$\"	(date 7) remove)
+  (\"^\\\\+misc$\"		(date 14) trash))"
+  :type '(repeat (choice (list :tag "No-match"
+			       (regexp :tag "Folder Regexp")
+			       (const nil))
+			 (list :tag "Match"
+			       (regexp :tag "Folder Regexp")
+			       (list (radio :value number
+					    (const number)
+					    (const date))
+				     (list :inline t
+					   integer
+					   (repeat :inline t integer)))
+			       (choice :tag "Policy"
+				       :value remove
+				       (const remove)
+				       (const trash)
+				       (string :tag "folder")
+				       function)
+			       (repeat :inline t
+				       :tag "Arg for function"
+				       sexp))))
+  :group 'wl-expire)
+
+(defcustom wl-archive-alist '((".*" wl-archive-number1))
+  "Alist to decide a policy for archive.
+Each element is (folder-regexp policy(function)).
+
+ex.
+'((\"\\\\+work$\" wl-archive-date)
+  (\"\\\\+ml/\"   wl-archive-number1)
+  (\".*\"       wl-archive-number2))"
+  :type '(repeat (list (regexp :tag "Folder Regexp")
+		       function
+		       (repeat :inline t
+			       (sexp :tag "Argument"))))
+  :group 'wl-expire)
+
+(defcustom wl-summary-expire-reserve-marks
+  (list wl-summary-important-mark
+	wl-summary-new-mark
+	wl-summary-unread-mark
+	wl-summary-unread-uncached-mark
+	wl-summary-unread-cached-mark)
+  "Permanent marks of reserved message when expire.
+Don't reserve temporary mark message.
+
+ex.
+'all  : reserved all permanent marks.
+'none : not reserve permanent marks.
+list  : reserved specified permanent marks."
+  :type '(repeat (string :tag "Mark"))
+  :group 'wl-expire)
+
+(defcustom wl-expire-number-with-reserve-marks nil
+  "If non-nil, include reserve message when expire by number."
+  :type 'boolean
+  :group 'wl-expire)
+
+(defcustom wl-expire-add-seen-list t
+  "*If non-nil, add seen message list when refile message at expire."
+  :type 'boolean
+  :group 'wl-expire)
+
+(defcustom wl-expire-use-log nil
+  "*If non-nil, write a log when expired."
+  :type 'boolean
+  :group 'wl-expire)
+
+(defcustom wl-expire-folder-update-msgdb t
+  "*Non-nil update summary msgdb when expire on folder mode."
+  :type 'boolean
+  :group 'wl-expire)
+
+;; for wl-expire-archive-{number1|number2}
+(defcustom wl-expire-archive-files 100
+  "*The number of one archive folder."
+  :type 'integer
+  :group 'wl-expire)
+
+;; for wl-expire-archive-{number1|number2|date}
+(defcustom wl-expire-archive-get-folder-func
+  'wl-expire-archive-get-folder
+  "*A function to get archive folder name."
+  :type 'function
+  :group 'wl-expire)
+
+(defcustom wl-expire-delete-oldmsg-confirm t
+  "*If non-nil, require your confirmation when delete old message."
+  :type 'boolean
+  :group 'wl-expire)
+
+;; for wl-expire-archive-get-folder
+(defcustom wl-expire-archive-folder-type 'zip
+  "*Archiver type of archive folder."
+  :type '(radio (const zip)
+		(const lha)
+		(const zoo)
+		(const rar)
+		(const tar)
+		(const tgz)
+		(symbol :tag "Other"))
+  :group 'wl-expire)
+
+(defcustom wl-expire-archive-folder-name-fmt "%s-%%05d;%s" ;; $folder-00100;zip
+  "*A format string for archive folder name."
+  :type 'string
+  :group 'wl-expire)
+
+(defcustom wl-expire-archive-folder-num-regexp "-\\([0-9]+\\);"
+  "*A regexp string for archive folder name."
+  :type 'string
+  :group 'wl-expire)
+
+(defcustom wl-expire-archive-date-folder-name-fmt "%s-%%04d%%02d;%s"
+						;; $folder-199812;zip
+  "*A format string for archive date folder name."
+  :type 'string
+  :group 'wl-expire)
+
+(defcustom wl-expire-archive-date-folder-num-regexp "-\\([0-9]+\\);"
+  "*A regexp string for archive date folder name."
+  :type 'string
+  :group 'wl-expire)
+
+(defcustom wl-expire-archive-folder-prefix nil
+  "*Prefix for archive folder."
+  :type '(radio (const :tag "nothing" nil)
+		(const :tag "full" t)
+		(const short))
+  :group 'wl-expire)
+
+;;;; Highlights.
+
+;; highilght about summary
+(defcustom wl-highlight-max-summary-lines 10000
+  "*If the summary is larger than this lines, don't highlight it."
+  :type 'integer
+  :group 'wl-highlight)
+ 
+;; highilght about draft and message
+(defcustom wl-highlight-body-too t
+  "*In addition to header, highlight the body too. if non nil."
+  :type 'boolean
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-message-header-alist
+  '(("Subject[ \t]*:" . wl-highlight-message-important-header-contents)
+    ("From[ \t]*:\\|To[ \t]*:" . wl-highlight-message-important-header-contents2)
+    ("X-[^ \t]*:\\|User-Agent[ \t]*:" . wl-highlight-message-unimportant-header-contents))
+  ""
+  :type '(repeat (cons regexp face))
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-citation-prefix-regexp 
+  "^[>|:} ]*[>|:}]\\([^ \n>]*>\\)?\\|^[^ <\n>]*>"
+  "All lines that match this regexp will be highlighted with
+ `wl-highlight-message-cited-text-*' face."
+  :type 'regexp
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-highlight-citation-too nil
+  "*Whether the whole citation line should go in the 
+  `wl-highlight-citation-face' face.
+If nil, the text matched by `wl-highlight-citation-prefix-regexp' is in the
+default face, and the remainder of the line is in the 
+wl-highlight-message-cited-text face."
+  :type 'boolean
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-force-citation-header-regexp
+  "^>>>.*$\\|^[ \t]*<[^>]*>[ \t]*$"
+  "*The pattern to match the prolog of a cited block.
+Text in the body of a message which matches this will be displayed in
+the `wl-highlight-message-headers' face."
+  :type 'regexp
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-citation-header-regexp
+  (concat "In article.*$\\|In message.*$\\|In the message.*$\\|"
+ 	  "^At[^\n]+\n[^\n]+wrote:\n\\|" 
+ 	  "^.*\\(writes\\|wrote\\|said\\):\n")
+  "*The pattern to match the prolog of a cited block.
+Text in the body of a message which matches this will be displayed in
+the `wl-highlight-message-headers' face."
+   :type 'regexp
+   :group 'wl-highlight)
+
+(defcustom wl-highlight-max-message-size 10000
+  "*If the message body is larger than this many chars, don't highlight it.
+This is to prevent us from wasting time trying to fontify things like
+uuencoded files and large digests.  If this is nil, all messages will
+be highlighted."
+    :type 'integer
+    :group 'wl-highlight)
+  
+;; highilght about signature (of draft and message)
+(defcustom wl-highlight-signature-separator 
+  '("\n--+\n" "\n\n--+.*\n*\\'")
+  "List of regexps matching signature separator.
+It will be verified from head to tail looking for a separator.  
+Verification will be done from the end of the buffer.
+No need to specify \"^-- $\" in this list, 
+because it is verified by default.
+This variable can also be a regex. "
+  :type '(repeat regexp)
+  :group 'wl-highlight)
+
+(defcustom wl-max-signature-size 400
+  "*If the signature is larger than this chars, don't treat it as a signature."
+  :type 'integer
+  :group 'wl-highlight)
+  
+;; highilght about mouse
+(defcustom wl-use-highlight-mouse-line (and wl-on-xemacs window-system)
+  "*Highlight mouse line, if non nil."
+  :type 'boolean
+  :group 'wl-highlight)
+ 
+;; highilght about folder
+(defcustom wl-highlight-folder-with-icon 
+  (and (featurep 'xemacs)
+       (featurep 'xpm))
+  "*Highlight folder with icon(XEmacs)."
+  :type 'boolean
+  :group 'wl-highlight)
+(defcustom wl-highlight-group-folder-by-numbers t
+  "*Highlight group folder by numbers."
+  :type 'boolean
+  :group 'wl-highlight)
+
+(defcustom wl-highlight-signature-search-func 'wl-highlight-signature-search
+  "Function to search signature area in the message body."
+  :type 'function
+  :group 'wl-highlight)
+
+(defcustom wl-use-dnd (and wl-on-xemacs
+			   (featurep 'dragdrop))
+  "If Non-nil, support dragdrop feature in XEmacs."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-reset-plugged-alist t
+  "*If non-nil, reset `elmo-plugged-alist' when startup."
+  :type 'boolean
+  :group 'wl-pref)
+
+(defcustom wl-demo-display-logo (or (and (featurep 'xemacs)
+					 (featurep 'xpm))
+				    (and (module-installed-p 'image)
+					 (image-type-available-p 'xpm))
+				    (module-installed-p 'bitmap))
+  "If non-nil, display image (or bitmap) logo in th Wanderlust opening demo."
+  :type 'boolean
+  :group 'wl-pref)
+
+;;; Internal variables
+(defvar wl-init nil)
+
+;; For disconnected operations.
+(defvar wl-plugged-hook nil)
+(defvar wl-unplugged-hook nil)
+(defvar wl-plugged t)
+
+(defvar wl-plug-state-indicator-on  " [ON] ")
+(defvar wl-plug-state-indicator-off " [--] ")
+(defvar wl-plug-state-indicator wl-plug-state-indicator-on)
+
+(defvar wl-show-plug-status-on-modeline t)
+
+;; Advanced thread view.  
+(defvar wl-thread-indent-level 1
+  "*Indent level for thread.")
+(defvar wl-thread-have-younger-brother-str "$B(2(B"
+  "*A string for thread branch line. It should contain one character.")
+(defvar wl-thread-youngest-child-str       "$B(1(B"
+  "*A string for thread branch line. It should contain one character.")
+(defvar wl-thread-vertical-str             "$B(-(B"
+  "*A string for thread branch line. It should contain one character.")
+(defvar wl-thread-horizontal-str           "$B(,(B"
+  "*A string for thread branch line. It should contain one character.")
+(defvar wl-thread-space-str                "$B!!(B"
+  "*A string for thread branch line. It should contain one character.")
+
+(defvar wl-highlight-thread-indent-string-regexp "[^\\[]*"
+  "* A regexp string for thread indent...for highlight.")
+
+;; folder icons. filename relative to wl-icon-dir
+(defvar wl-opened-group-folder-icon "opened.xpm"
+  "*Icon file for opened group folder.")
+(defvar wl-closed-group-folder-icon "closed.xpm"
+  "*Icon file for closed group folder.")
+(defvar wl-nntp-folder-icon "news.xpm"
+  "*Icon file for nntp folder.")
+(defvar wl-imap-folder-icon "imap.xpm"
+  "*Icon file for imap folder.")
+(defvar wl-pop-folder-icon  "pop.xpm"
+  "*Icon file for pop folder.")
+(defvar wl-localdir-folder-icon "local.xpm"
+  "*Icon file for localdir folder.")
+(defvar wl-localnews-folder-icon "localnews.xpm"
+  "*Icon file for localnews folder.")
+(defvar wl-internal-folder-icon "internal.xpm"
+  "*Icon file for internal folder.")
+(defvar wl-multi-folder-icon "multi.xpm"
+  "*Icon file for multi folder.")
+(defvar wl-filter-folder-icon "filter.xpm"
+  "*Icon file for filter folder.")
+(defvar wl-archive-folder-icon "archive.xpm"
+  "*Icon file for archive folder.")
+(defvar wl-pipe-folder-icon "pipe.xpm"
+  "*Icon file for pipe folder.")
+(defvar wl-maildir-folder-icon "maildir.xpm"
+  "*Icon file for maildir folder.")
+(defvar wl-empty-trash-folder-icon "trash-e.xpm"
+  "*Icon file for emptied trash folder.")
+(defvar wl-trash-folder-icon "trash.xpm"
+  "*Icon file for trash folder.")
+(defvar wl-draft-folder-icon "draft.xpm"
+  "*Icon file for draft folder.")
+(defvar wl-queue-folder-icon "queue.xpm"
+  "*Icon file for queue folder.")
+(defvar wl-plugged-icon "plugged.xpm"
+  "*Icon file for plugged state.")
+(defvar wl-unplugged-icon "unplugged.xpm"
+  "*Icon file for unplugged state.")
+(defvar wl-prog-uudecode "uudecode"
+  "*uudecode program name")
+(defvar wl-prog-uudecode-arg '("-p") ;; outout is stdout.
+  "*arguments for uudecode program")
+(defvar wl-prog-uudecode-no-stdout-option nil
+  "*If non-nil, uudecode program don't have option for output to stdout.")
+
+;; Obsolete variables. for compatibility.
+(defvar wl-address-filename wl-address-file)
+(make-obsolete-variable 'wl-address-filename 'wl-address-file)
+(defvar wl-score-default-file-name wl-score-default-file)
+(make-obsolete-variable 'wl-score-default-file-name 'wl-score-default-file)
+(defvar wl-draft-prepared-config-alist nil)
+(make-obsolete-variable 'wl-draft-prepared-config-alist 'wl-draft-config-alist)
+(defvar wl-score-files-directory wl-score-files-dir)
+(make-obsolete-variable 'wl-score-files-directory 'wl-score-files-dir)
+
+;; plug
+(defvar wl-plugged-plug-on "ON")
+(defvar wl-plugged-plug-off "--")
+(defvar wl-plugged-auto-off "**")
+(defvar wl-plugged-server-indent 2)
+(defvar wl-plugged-port-indent 4)
+(defvar wl-plugged-queue-status-column 25)
+
+(provide 'wl-vars)
+
+;;; wl-vars.el ends here
diff --git a/wl/wl-xmas.el b/wl/wl-xmas.el
new file mode 100644
index 0000000..9ad923f
--- /dev/null
+++ b/wl/wl-xmas.el
@@ -0,0 +1,463 @@
+;;; wl-xmas.el -- Wanderlust modules for XEmacsen.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/24 14:44:00 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(eval-when-compile
+  (require 'wl-folder)
+  (require 'wl-summary)
+  (require 'wl-draft)  
+  (require 'wl-message)
+  (require 'wl-highlight)
+  (defvar-maybe wl-draft-mode-map (make-sparse-keymap)))
+
+(defun wl-xmas-setup-toolbar (bar)
+  (let ((dir wl-icon-dir)
+	icon up down disabled name)
+    (when dir
+      (while bar
+	(setq icon (aref (car bar) 0)
+	      name (symbol-name icon)
+	      bar (cdr bar))
+	(when (not (boundp icon))
+	  (setq up (concat dir elmo-path-sep name "-up.xpm"))
+	  (setq down (concat dir elmo-path-sep name "-down.xpm"))
+	  (setq disabled (concat dir elmo-path-sep name "-disabled.xpm"))
+	  (if (not (file-exists-p up))
+	      (setq bar nil
+		    dir nil)
+	    (set icon (toolbar-make-button-list
+		       up (and (file-exists-p down) down)
+		       (and (file-exists-p disabled) disabled)))))))
+    dir))
+
+(defvar wl-use-toolbar (if (featurep 'toolbar) 'default-toolbar nil))
+(defvar wl-plugged-glyph nil)
+(defvar wl-unplugged-glyph nil)
+
+(defvar wl-folder-toolbar
+  '([wl-folder-jump-to-current-entity
+     wl-folder-jump-to-current-entity t "Enter Current Folder"]
+    [wl-folder-next-entity
+     wl-folder-next-entity t "Next Folder"]
+    [wl-folder-prev-entity
+     wl-folder-prev-entity t "Previous Folder"]
+    [wl-folder-check-current-entity
+     wl-folder-check-current-entity t "Check Current Folder"]
+;    [wl-draft
+;     wl-draft t "Write a New Message"]
+    [wl-folder-sync-current-entity
+     wl-folder-sync-current-entity t "Sync Current Folder"]
+    [wl-draft
+     wl-draft t "Write a New Message"]
+    [wl-folder-empty-trash
+     wl-folder-empty-trash t "Empty Trash"]
+    [wl-exit
+     wl-exit t "Quit Wanderlust"]
+    )
+  "The Folder buffer toolbar.")
+
+(defvar wl-summary-toolbar
+  '([wl-summary-read
+     wl-summary-read t "Read Messages"]
+    [wl-summary-next
+     wl-summary-next t "Next Message"]
+    [wl-summary-prev
+     wl-summary-prev t "Previous Message"]
+    [wl-summary-jump-to-current-message
+     wl-summary-jump-to-current-message t "Jump to Current Message"]
+    [wl-summary-sync-force-update
+     wl-summary-sync-force-update t "Sync Current Folder"]
+    [wl-summary-delete
+     wl-summary-delete t "Delete Current Message"]
+    [wl-summary-mark-as-important
+     wl-summary-mark-as-important t "Mark Current Message as Important"]
+    [wl-draft
+     wl-draft t "Write a New Message"]
+    [wl-summary-reply
+     wl-summary-reply t "Reply to Current Message" ]
+    [wl-summary-reply-with-citation
+     wl-summary-reply-with-citation t "Reply to Current Message with Citation"]
+    [wl-summary-forward
+     wl-summary-forward t "Forward Current Message"]
+    [wl-summary-exit
+     wl-summary-exit t "Exit Current Summary"]    
+    )
+  "The Summary buffer toolbar.")
+
+(defvar wl-message-toolbar
+  '([wl-message-read
+     wl-message-read t "Read Contents"]
+    [wl-message-next-content
+     wl-message-next-content t "Next Content"]
+    [wl-message-prev-content
+     wl-message-prev-content t "Previous Content"]
+    [wl-message-quit
+     wl-message-quit t "Back to Summary"]
+    [wl-message-play-content
+     wl-message-play-content t "Play Content"]
+    [wl-message-extract-content
+     wl-message-extract-content t "Extract Content"]
+    )
+  "The Message buffer toolbar.")
+
+(defalias 'wl-draft-insert-signature 'insert-signature) ;; for draft toolbar.
+
+(defvar wl-draft-toolbar
+  '([wl-draft-send-from-toolbar
+     wl-draft-send-from-toolbar t "Send Current Draft"]
+    [wl-draft-yank-original
+     wl-draft-yank-original t "Yank Displaying Message"]
+    [wl-draft-insert-signature
+     wl-draft-insert-signature t "Insert Signature"]
+    [wl-draft-kill
+     wl-draft-kill t "Kill Current Draft"]
+    )
+  "The Draft buffer toolbar.")
+
+(defun wl-xmas-setup-folder-toolbar ()
+  (and wl-use-toolbar
+       (wl-xmas-setup-toolbar wl-folder-toolbar)
+       (set-specifier (symbol-value wl-use-toolbar)
+		      (cons (current-buffer) wl-folder-toolbar))))
+
+(defun wl-xmas-setup-summary-toolbar ()
+  (and wl-use-toolbar
+       (wl-xmas-setup-toolbar wl-summary-toolbar)
+       (set-specifier (symbol-value wl-use-toolbar)
+		      (cons (current-buffer) wl-summary-toolbar))))
+
+(defun wl-xmas-setup-message-toolbar ()
+  (and wl-use-toolbar
+       (wl-xmas-setup-toolbar wl-message-toolbar)
+       (set-specifier (symbol-value wl-use-toolbar)
+		      (cons (current-buffer) wl-message-toolbar))))
+
+(defun wl-xmas-setup-draft-toolbar ()
+  (and wl-use-toolbar
+       (wl-xmas-setup-toolbar wl-draft-toolbar)
+       (set-specifier (symbol-value wl-use-toolbar)
+		      (cons (current-buffer) wl-draft-toolbar))))
+
+;; XEmacs implementations.
+(defun wl-highlight-folder-current-line (&optional numbers)
+  (interactive)
+  (save-excursion
+    (let ((highlights (list "opened" "closed"))
+	  (inhibit-read-only t)
+	  (fld-name (wl-folder-get-folder-name-by-id
+		     (get-text-property (point) 'wl-folder-entity-id)))
+	  fregexp fsymbol bol eol matched type extent num type glyph)
+      (setq eol (progn (end-of-line) (point))
+	    bol (progn (beginning-of-line) (point)))
+      (when (and fld-name (looking-at "[ \t]+\\([^ \t]+\\)"))
+	(if (and (setq extent (extent-at (match-beginning 1) nil nil nil 'at))
+		 (extent-begin-glyph extent))
+	    (delete-extent extent))
+	(setq extent (make-extent (match-beginning 1) (match-beginning 1)))
+	(cond
+	 ((string= fld-name wl-trash-folder) ;; set trash folder icon
+	  (setq num (nth 2 numbers)) ;; number of messages
+	  (set-extent-begin-glyph extent
+				  (if (or (null num) 
+					  (eq num 0))
+				      wl-folder-trash-empty-glyph
+				    wl-folder-trash-glyph)))
+	 ((string= fld-name wl-draft-folder) ;; set draft folder icon
+	  (set-extent-begin-glyph extent wl-folder-draft-glyph))
+	 ((string= fld-name wl-queue-folder)
+	  (set-extent-begin-glyph extent wl-folder-queue-glyph))
+	 ((and (setq type (elmo-folder-get-type fld-name))
+	       (or numbers ;; XXX dirty...!!
+		   (not (assoc fld-name wl-folder-group-alist))))
+	  ;; not group folder.
+	  (set-extent-begin-glyph extent 
+				  (symbol-value
+				   (intern (format "wl-folder-%s-glyph"
+						   type)))))))
+      (when (and numbers (nth 0 numbers) (nth 1 numbers))
+	(setq fsymbol 
+	      (let ((unsync (nth 0 numbers))
+		    (unread (nth 1 numbers)))
+		(cond ((and unsync (eq unsync 0))
+		       (if (and unread (> unread 0))
+			   'wl-highlight-folder-unread-face
+			 'wl-highlight-folder-zero-face))
+		      ((and unsync 
+			    (>= unsync wl-folder-many-unsync-threshold))
+		       'wl-highlight-folder-many-face)
+		      (t
+		       'wl-highlight-folder-few-face))))
+	(put-text-property bol eol 'face nil)
+	(put-text-property bol eol 'face fsymbol)
+	(setq matched t))
+      (while highlights
+	(setq fregexp (symbol-value 
+		       (intern (format "wl-highlight-folder-%s-regexp" 
+				       (car highlights)))))
+	(if (not wl-highlight-group-folder-by-numbers)
+	    (setq fsymbol (intern (format "wl-highlight-folder-%s-face"
+					  (car highlights)))))
+	(when (looking-at fregexp)
+	  (setq extent (make-extent (match-beginning 1) (match-end 1))
+		glyph (intern (format "wl-folder-%s-glyph"
+				      (car highlights))))
+	  (if (null (symbol-value glyph))
+	      (set glyph (wl-xmas-make-icon-glyph
+			  (extent-string extent)
+			  (symbol-value
+			   (cdr (assq glyph wl-folder-toggle-icon-list))))))
+	  (setq glyph (symbol-value glyph))
+	  (set-extent-property extent 'end-open t)
+	  (set-extent-property extent 'start-closed t)
+	  (set-extent-property extent 'invisible t)
+	  (set-extent-end-glyph extent glyph)
+	  (put-text-property bol eol 'face nil)
+	  (put-text-property bol eol 'face fsymbol)
+	  (setq matched t highlights nil))
+	(setq highlights (cdr highlights)))
+      (when (not matched)
+	(put-text-property bol eol 'face nil)
+	(if (looking-at (format "^[ ]*\\(%s\\|%s\\)"
+				wl-folder-unsubscribe-mark
+				wl-folder-removed-mark))
+	    (put-text-property bol eol 'face
+			       'wl-highlight-folder-killed-face)
+	  (put-text-property bol eol 'face
+			     'wl-highlight-folder-unknown-face)))
+      (if wl-use-highlight-mouse-line 
+	  (wl-highlight-folder-mouse-line))
+      (if (and (featurep 'dragdrop) wl-use-dnd)
+	  (wl-dnd-set-drop-target bol eol)))))
+
+(defun wl-highlight-plugged-current-line ()
+  (interactive)
+  (save-excursion
+    (let ((inhibit-read-only t)
+	  extent switch)
+      (beginning-of-line)
+      (when (looking-at "[ \t]*\\(\\[\\([^]]+\\)\\]\\)")
+	(setq switch (elmo-match-buffer 2))
+	(if (and (setq extent (extent-at (match-end 1) nil nil nil 'at))
+		 (extent-end-glyph extent))
+	    (delete-extent extent))
+	(setq extent (make-extent (match-beginning 1) (match-end 1)))
+	(set-extent-property extent 'end-open t)
+	(set-extent-property extent 'start-closed t)
+	(set-extent-property extent 'invisible t)
+	(set-extent-end-glyph extent (if (string= switch wl-plugged-plug-on)
+					 wl-plugged-glyph
+				       wl-unplugged-glyph))))))
+
+(defun wl-plugged-set-folder-icon (folder string)
+  (let ((string (copy-sequence string))
+	(len (length string))
+	type)
+    (if (string= folder wl-queue-folder)
+	(put-text-property 0 len 'begin-glyph wl-folder-queue-glyph string)
+      (if (setq type (elmo-folder-get-type folder))
+	  (put-text-property 0 len
+			     'begin-glyph
+			     (symbol-value
+			      (intern (format "wl-folder-%s-glyph" type)))
+			     string)))
+    string))
+
+(defvar wl-folder-internal-icon-list
+  ;; alist of (glyph . icon-file)
+  '((wl-folder-nntp-glyph         . wl-nntp-folder-icon)
+    (wl-folder-imap4-glyph        . wl-imap-folder-icon)
+    (wl-folder-pop3-glyph         . wl-pop-folder-icon)
+    (wl-folder-localdir-glyph     . wl-localdir-folder-icon)
+    (wl-folder-localnews-glyph    . wl-localnews-folder-icon)
+    (wl-folder-internal-glyph     . wl-internal-folder-icon)
+    (wl-folder-multi-glyph        . wl-multi-folder-icon)
+    (wl-folder-filter-glyph       . wl-filter-folder-icon)
+    (wl-folder-archive-glyph      . wl-archive-folder-icon)
+    (wl-folder-pipe-glyph         . wl-pipe-folder-icon)
+    (wl-folder-maildir-glyph      . wl-maildir-folder-icon)
+    (wl-folder-trash-empty-glyph  . wl-empty-trash-folder-icon)
+    (wl-folder-draft-glyph        . wl-draft-folder-icon)
+    (wl-folder-queue-glyph        . wl-queue-folder-icon)
+    (wl-folder-trash-glyph        . wl-trash-folder-icon)))
+
+(defvar wl-folder-toggle-icon-list
+  '((wl-folder-opened-glyph       . wl-opened-group-folder-icon)
+    (wl-folder-closed-glyph       . wl-closed-group-folder-icon)))
+
+(defun wl-xmas-make-icon-glyph (icon-string icon-file &optional locale tag-set)
+  (let ((glyph (make-glyph (vector 'string :data icon-string))))
+    (if wl-highlight-folder-with-icon
+	(set-glyph-image glyph
+			 (vector 'xpm :file (expand-file-name
+					     icon-file wl-icon-dir))
+			 locale tag-set 'prepend))
+    glyph))
+
+(defun wl-folder-init-icons ()  
+  (mapcar
+   (lambda (x)
+     (if (null (symbol-value (car x)))
+	 (set (car x) (wl-xmas-make-icon-glyph "" (symbol-value (cdr x))))))
+   wl-folder-internal-icon-list))
+
+(defun wl-plugged-init-icons ()
+  (if (null wl-plugged-glyph)
+      (setq wl-plugged-glyph
+	    (wl-xmas-make-icon-glyph
+	     (concat "[" wl-plugged-plug-on "]")
+	     wl-plugged-icon)))
+  (if (null wl-unplugged-glyph)
+      (setq wl-unplugged-glyph
+	    (wl-xmas-make-icon-glyph
+	     (concat "[" wl-plugged-plug-off "]")
+	     wl-unplugged-icon))))
+
+(defun wl-make-modeline ()
+  "Make modeline for Wanderlust"
+  (wl-plugged-init-icons)
+  (let ((extent (make-extent nil nil))
+	(toggle-keymap (make-sparse-keymap)))
+    (define-key toggle-keymap 'button2 (make-modeline-command-wrapper
+					'wl-toggle-plugged))
+    (set-extent-keymap extent toggle-keymap)
+    (set-extent-property extent 'help-echo "button2 toggles plugged status")
+    (setq wl-plug-state-indicator-on (cons extent wl-plugged-glyph))
+    (setq wl-plug-state-indicator-off (cons extent wl-unplugged-glyph))
+    (setq wl-plug-state-indicator (if wl-plugged 
+				      wl-plug-state-indicator-on
+				    wl-plug-state-indicator-off)))
+  (wl-make-modeline-subr))
+
+(defun wl-make-date-string ()
+  (let ((s (current-time-string)))
+    (string-match "\\`\\([A-Z][a-z][a-z]\\) +[A-Z][a-z][a-z] +[0-9][0-9]? *[0-9][0-9]?:[0-9][0-9]:[0-9][0-9] *[0-9]?[0-9]?[0-9][0-9]"
+		  s)
+    (concat (wl-match-string 1 s) ", "
+	    (timezone-make-date-arpa-standard s (current-time-zone)))))
+
+
+(defun wl-xmas-setup-folder ()
+  (and (featurep 'scrollbar)
+       (set-specifier scrollbar-height (cons (current-buffer) 0)))
+  (wl-xmas-setup-folder-toolbar))
+
+(defun wl-xmas-setup-summary ()
+  (make-local-variable 'dragdrop-drop-functions)
+  (setq dragdrop-drop-functions '((wl-dnd-default-drop-message t t)))
+  (and (featurep 'scrollbar)
+       (set-specifier scrollbar-height (cons (current-buffer) 0)))
+  (wl-xmas-setup-summary-toolbar))
+
+(defun wl-message-overload-functions ()
+  (wl-xmas-setup-message-toolbar)
+  (local-set-key "l" 'wl-message-toggle-disp-summary)
+  (local-set-key 'button2 'wl-message-refer-article-or-url)
+  (local-set-key 'button4 'wl-message-wheel-down)
+  (local-set-key 'button5 'wl-message-wheel-up)
+  (local-set-key [(shift button4)] 'wl-message-wheel-down)
+  (local-set-key [(shift button5)] 'wl-message-wheel-up))
+
+(defun wl-message-wheel-up (event)
+  (interactive "e")
+  (let ((cur-buf (current-buffer))
+	proceed)
+    (save-selected-window
+      (select-window (event-window event))
+      (set-buffer cur-buf)
+      (setq proceed (wl-message-next-page)))
+    (if proceed
+	(if (memq 'shift (event-modifiers event))
+	    (wl-summary-down t)
+	  (wl-summary-next t)))))
+
+(defun wl-message-wheel-down (event)
+  (interactive "e")
+  (let ((cur-buf (current-buffer))
+	proceed)
+    (save-selected-window
+      (select-window (event-window event))
+      (set-buffer cur-buf)
+      (setq proceed (wl-message-prev-page)))
+    (if proceed
+	(if (memq 'shift (event-modifiers event))
+	    (wl-summary-up t)
+	  (wl-summary-prev t)))))
+
+(defun wl-draft-overload-menubar ()
+  (add-menu-item '("Mail") "Send, Keep Editing" 
+		 'wl-draft-send t "Send Mail")
+  (add-menu-item '("Mail") "Send Message" 
+		 'wl-draft-send-and-exit t "Send and Exit")
+  (delete-menu-item '("Mail" "Send Mail"))
+  (delete-menu-item '("Mail" "Send and Exit"))
+  )
+
+(defun wl-draft-mode-setup ()
+  (require 'derived)
+  (define-derived-mode wl-draft-mode mail-mode "Draft"
+    "draft mode for Wanderlust derived from mail mode.
+See info under Wanderlust for full documentation.
+
+Special commands:
+\\{wl-draft-mode-map}"))
+
+(defun wl-draft-key-setup ()
+  (define-key wl-draft-mode-map "\C-c\C-y" 'wl-draft-yank-original)
+  (define-key wl-draft-mode-map "\C-c\C-s" 'wl-draft-send)
+  (define-key wl-draft-mode-map "\C-c\C-a" 'wl-draft-insert-x-face-field)
+  (define-key wl-draft-mode-map "\C-c\C-c" 'wl-draft-send-and-exit)
+  (define-key wl-draft-mode-map "\C-c\C-z" 'wl-draft-save-and-exit)
+  (define-key wl-draft-mode-map "\C-c\C-k" 'wl-draft-kill)
+  (define-key wl-draft-mode-map "\C-l" 'wl-draft-highlight-and-recenter)
+  (define-key wl-draft-mode-map "\C-i" 'wl-complete-field-body-or-tab)
+  (define-key wl-draft-mode-map "\C-c\C-r" 'wl-draft-caesar-region)
+  (define-key wl-draft-mode-map "\M-t" 'wl-toggle-plugged)
+  (define-key wl-draft-mode-map "\C-c\C-o" 'wl-jump-to-draft-buffer)
+  (define-key wl-draft-mode-map "\C-c\C-e" 'wl-draft-config-exec)
+  (define-key wl-draft-mode-map "\C-c\C-j" 'wl-template-select)
+  (define-key wl-draft-mode-map "\C-c\C-p" 'wl-draft-preview-message)
+  (define-key wl-draft-mode-map "\C-x\C-s" 'wl-draft-save)
+  (define-key wl-draft-mode-map "\C-xk"    'wl-draft-mimic-kill-buffer))
+
+(defun wl-draft-overload-functions ()
+  (setq mode-line-buffer-identification
+	(format "Wanderlust: %s" (buffer-name)))
+  (local-set-key "\C-c\C-s" 'wl-draft-send) ; override
+  (wl-xmas-setup-draft-toolbar)
+  (wl-draft-overload-menubar)
+  (when wl-show-plug-status-on-modeline
+    (setq mode-line-format (wl-make-modeline))))
+
+(defalias 'wl-defface 'defface)
+
+(provide 'wl-xmas)
+
+;;; wl-xmas.el ends here
diff --git a/wl/wl.el b/wl/wl.el
new file mode 100644
index 0000000..3efc943
--- /dev/null
+++ b/wl/wl.el
@@ -0,0 +1,811 @@
+;;; wl.el -- Wanderlust bootstrap.
+
+;; Copyright 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
+
+;; Author: Yuuichi Teranishi <teranisi@gohome.org>
+;; Keywords: mail, net news
+;; Time-stamp: <00/03/22 15:44:44 teranisi>
+
+;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;
+
+;;; Commentary:
+;; 
+
+;;; Code:
+;; 
+
+(require 'elmo2)
+;; from x-face.el
+(unless (and (fboundp 'defgroup)
+             (fboundp 'defcustom))
+  (require 'backquote)
+  (defmacro defgroup (&rest args))
+  (defmacro defcustom (symbol value &optional doc &rest args)
+    (let ((doc (concat "*" (or doc ""))))
+      (` (defvar (, symbol) (, value) (, doc))))))
+
+(require 'wl-vars)
+(require 'wl-util)
+
+(if wl-on-xemacs
+    (require 'wl-xmas)
+  (if wl-on-nemacs
+      (require 'wl-nemacs)
+    (require 'wl-mule)))
+
+(provide 'wl) ; circular dependency
+(require 'wl-folder)
+(require 'wl-summary)
+(require 'wl-thread)
+(require 'wl-address)
+
+(wl-draft-mode-setup)
+(require 'wl-draft)
+(wl-draft-key-setup)
+
+(require 'wl-demo)
+(require 'wl-highlight)
+
+(eval-when-compile 
+  (require 'smtp)
+  (require 'wl-score)
+  (unless wl-on-nemacs
+    (require 'wl-fldmgr))
+  (if wl-use-semi
+      (require 'wl-mime)
+    (require 'tm-wl)))
+
+(defun wl-plugged-init (&optional make-alist)
+  (setq elmo-plugged wl-plugged)
+  (if wl-reset-plugged-alist
+      (elmo-set-plugged elmo-plugged))
+  (when make-alist
+    (wl-make-plugged-alist))
+  ;; Plug status.
+  (setq elmo-plugged (setq wl-plugged (elmo-plugged-p)))
+  (setq wl-plug-state-indicator
+	(if wl-plugged
+	    wl-plug-state-indicator-on
+	  wl-plug-state-indicator-off))
+  (force-mode-line-update t))
+
+(defun wl-toggle-plugged (&optional arg queue-flush-only)
+  (interactive)
+  (elmo-quit) ; Disconnect current connection.
+  (unless queue-flush-only
+    (cond
+     ((eq arg 'on)
+      (setq wl-plugged t))
+     ((eq arg 'off)
+      (setq wl-plugged nil))
+     (t (setq wl-plugged (null wl-plugged))))
+    (elmo-set-plugged wl-plugged))
+  (setq elmo-plugged wl-plugged)
+  (save-excursion
+    (mapcar 
+     (function 
+      (lambda (x)
+	(set-buffer x)
+	(wl-summary-msgdb-save)
+	;; msgdb is saved, but cache is not saved yet.
+	(wl-summary-set-message-modified)))
+     (wl-collect-summary)))
+  (if wl-plugged
+      (progn
+	;; flush queue!!
+	(setq wl-plug-state-indicator wl-plug-state-indicator-on)
+	(elmo-dop-queue-flush)
+	(if (and wl-draft-enable-queuing
+		 wl-auto-flush-queue)
+	    (wl-draft-queue-flush))
+	(when (and (eq major-mode 'wl-summary-mode)
+		   (elmo-folder-plugged-p wl-summary-buffer-folder-name))
+	  (let* ((msgdb-dir (elmo-msgdb-expand-path
+			     wl-summary-buffer-folder-name))
+		 (seen-list (elmo-msgdb-seen-load msgdb-dir)))
+	    (setq seen-list
+		  (wl-summary-flush-pending-append-operations seen-list))
+	    (elmo-msgdb-seen-save msgdb-dir seen-list)))
+	(run-hooks 'wl-plugged-hook))
+    (setq wl-plug-state-indicator wl-plug-state-indicator-off)
+    (run-hooks 'wl-unplugged-hook))
+  (force-mode-line-update t))
+
+;;; wl-plugged-mode
+
+(defvar wl-plugged-port-label-alist
+  (list (cons elmo-default-nntp-port "nntp")
+	(cons elmo-default-imap4-port "imap4")
+	(cons elmo-default-pop3-port "pop3")))
+	;;(cons elmo-pop-before-smtp-port "pop3")
+
+(defconst wl-plugged-switch-variables
+  '(("Queuing" . wl-draft-enable-queuing)
+    ("AutoFlushQueue" . wl-auto-flush-queue)
+    ("DisconnectedOperation" . elmo-enable-disconnected-operation)))
+ 
+(defvar wl-plugged-buf-name "Plugged")
+(defvar wl-plugged-mode-map nil)
+(defvar wl-plugged-alist nil)
+(defvar wl-plugged-switch nil)
+(defvar wl-plugged-winconf nil)
+(defvar wl-plugged-sending-queue-alist nil)
+(defvar wl-plugged-dop-queue-alist nil)
+(defvar wl-plugged-alist-modified nil)
+
+(defvar wl-plugged-glyph nil)
+(defvar wl-unplugged-glyph nil)
+
+(defvar wl-plugged-mode-menu-spec
+  '("Plugged"
+    ["Toggle plugged" wl-plugged-toggle t]
+    ["Toggle All plugged" wl-plugged-toggle-all t]
+    ["Prev Port"      wl-plugged-move-to-previous t]
+    ["Next Port"      wl-plugged-move-to-next t]
+    ["Prev Server"    wl-plugged-move-to-previous-server t]
+    ["Next Server"    wl-plugged-move-to-next-server t]
+    ["Flush queue"    wl-plugged-flush-queue t]
+    "----"
+    ["Exit"           wl-plugged-exit t]))
+
+(eval-and-compile
+  (if wl-on-xemacs
+      (defun wl-plugged-setup-mouse ()
+	(define-key wl-plugged-mode-map 'button2 'wl-plugged-click))
+    (if wl-on-nemacs
+	(defun wl-plugged-setup-mouse ())
+      (defun wl-plugged-setup-mouse ()
+	(define-key wl-plugged-mode-map [mouse-2] 'wl-plugged-click)))))
+
+(unless wl-plugged-mode-map
+  (setq wl-plugged-mode-map (make-sparse-keymap))
+  (define-key wl-plugged-mode-map " "    'wl-plugged-toggle)
+  (define-key wl-plugged-mode-map "\C-m" 'wl-plugged-toggle)
+  (define-key wl-plugged-mode-map "\M-t" 'wl-plugged-toggle-all)
+  (define-key wl-plugged-mode-map "q"    'wl-plugged-exit)
+  (define-key wl-plugged-mode-map "\C-t" 'wl-plugged-exit)
+  (define-key wl-plugged-mode-map "F"    'wl-plugged-flush-queue)
+  (define-key wl-plugged-mode-map "P"    'wl-plugged-move-to-previous-server)
+  (define-key wl-plugged-mode-map "N"    'wl-plugged-move-to-next-server)
+  (define-key wl-plugged-mode-map "p"    'wl-plugged-move-to-previous)
+  (define-key wl-plugged-mode-map "n"    'wl-plugged-move-to-next)
+  (define-key wl-plugged-mode-map "\e\t" 'wl-plugged-move-to-previous)
+  (define-key wl-plugged-mode-map "\t"   'wl-plugged-move-to-next)
+  (wl-plugged-setup-mouse)
+  (easy-menu-define
+   wl-plugged-mode-menu
+   wl-plugged-mode-map
+   "Menu used in Plugged mode."
+   wl-plugged-mode-menu-spec))
+
+(defun wl-plugged-mode ()
+  "Mode for setting Wanderlust plugged.
+See info under Wanderlust for full documentation.
+
+Special commands:
+\\{wl-plugged-mode-map}
+
+Entering Plugged mode calls the value of `wl-plugged-mode-hook'."
+  (interactive)
+  (kill-all-local-variables)
+  (use-local-map wl-plugged-mode-map)
+  (setq major-mode 'wl-plugged-mode)
+  (setq mode-name "Plugged")
+  (easy-menu-add wl-plugged-mode-menu)
+  (when wl-show-plug-status-on-modeline 
+    (setq mode-line-format (wl-make-modeline)))
+  (setq wl-plugged-switch wl-plugged)
+  (setq wl-plugged-alist-modified nil)
+  (setq buffer-read-only t)
+  (run-hooks 'wl-plugged-mode-hook))
+
+(defmacro wl-plugged-string (plugged &optional time)
+  (` (if (, time) wl-plugged-auto-off
+       (if (, plugged) wl-plugged-plug-on wl-plugged-plug-off))))
+
+(defmacro wl-plugged-server-indent ()
+  (` (make-string wl-plugged-server-indent ? )))
+
+(defun wl-plugged-set-variables ()
+  (setq wl-plugged-sending-queue-alist
+	(wl-plugged-sending-queue-info))
+  (setq wl-plugged-dop-queue-alist
+	(wl-plugged-dop-queue-info))
+  (setq wl-plugged-alist
+	(sort (copy-sequence elmo-plugged-alist)
+	      '(lambda (a b)
+		 (string< (caar a) (caar b))))))
+
+(defun wl-plugged-sending-queue-info ()
+  ;; sending queue status
+  (let (alist msgs sent-via server port)
+    (setq msgs (elmo-list-folder wl-queue-folder))
+    (while msgs
+      (setq sent-via (wl-draft-queue-info-operation (car msgs) 'get-sent-via))
+      (while sent-via
+	(when (eq (nth 1 (car sent-via)) 'unplugged)
+	  (setq server (car (nth 2 (car sent-via)))
+		port (cdr (nth 2 (car sent-via))))
+	  (elmo-plugged-p server port)	;; add elmo-plugged-alist if nothing.
+	  (setq alist
+		(wl-append-assoc-list
+		 (cons server port)
+		 (car msgs)
+		 alist)))
+	(setq sent-via (cdr sent-via)))
+      (setq msgs (cdr msgs)))
+    alist))
+
+(defun wl-plugged-sending-queue-status (qinfo)
+  ;; sending queue status
+  (let ((len (length (cdr qinfo))))
+    (concat (wl-plugged-set-folder-icon
+	     wl-queue-folder
+	     (wl-folder-get-petname wl-queue-folder))
+	    (if (> len 1)
+		(format ": %d msgs (" len)
+	      (format ": %d msg (" len))
+	    (mapconcat (function int-to-string) (cdr qinfo) ",")
+	    ")")))
+
+(defun wl-plugged-dop-queue-info ()
+  ;; dop queue status
+  (let* ((count 0)
+	 elmo-dop-queue dop-queue last alist server-info
+	 ope operation)
+    (elmo-dop-queue-load)
+    (elmo-dop-queue-merge)
+    (setq dop-queue (sort elmo-dop-queue '(lambda (a b)
+					    (string< (car a) (car b)))))
+    (wl-append dop-queue (list nil)) ;; terminate(dummy)
+    (setq last (caar dop-queue)) ;; first
+    (while dop-queue
+      (setq ope (cons (nth 1 (car dop-queue))
+		      (length (nth 2 (car dop-queue)))))
+      (if (string= last (caar dop-queue))
+	  (wl-append operation (list ope))
+	;;(setq count (1+ count))
+	(when (and last (setq server-info (elmo-folder-portinfo last)))
+	  (setq alist
+		(wl-append-assoc-list
+		 (cons (car server-info) (nth 1 server-info)) ;; server port
+		 (cons last operation)
+		 alist)))
+	(setq last (caar dop-queue)
+	      operation (list ope)))
+      (setq dop-queue (cdr dop-queue)))
+    alist))
+
+(defun wl-plugged-dop-queue-status (qinfo &optional column)
+  ;; dop queue status
+  (let ((operations (cdr qinfo))
+	(column (or column wl-plugged-queue-status-column)))
+    (mapconcat
+     '(lambda (folder-ope)
+	(concat (wl-plugged-set-folder-icon
+		 (car folder-ope)
+		 (wl-folder-get-petname (car folder-ope)))
+		"("
+		(mapconcat
+		 '(lambda (ope)
+		    (if (> (cdr ope) 0)
+			(format "%s:%d" (car ope) (cdr ope))
+		      (format "%s" (car ope))))
+		 (cdr folder-ope) ",")
+		")"))
+     operations
+     (concat "\n" (wl-set-string-width column "")))))
+
+(defun wl-plugged-drawing (plugged-alist)
+  (let ((buffer-read-only nil)
+	(alist plugged-alist)
+	(vars wl-plugged-switch-variables)
+	last server port label plugged time
+	line len qinfo column)
+    (erase-buffer)
+    (while vars
+      (insert (format "%s:[%s]%s"
+		      (caar vars)
+		      (wl-plugged-string (symbol-value (cdar vars)))
+		      (if (cdr vars) " " "")))
+      (setq vars (cdr vars)))
+    (insert "\n")
+    (let ((elmo-plugged wl-plugged-switch))
+      (setq line (format "[%s](wl-plugged)"
+			 (wl-plugged-string (elmo-plugged-p))))
+      ;; sending queue status
+      (when (setq qinfo (assoc (cons nil nil) wl-plugged-sending-queue-alist))
+	(setq line (concat
+		    (wl-set-string-width wl-plugged-queue-status-column line)
+		    (wl-plugged-sending-queue-status qinfo))))
+      (insert line "\n"))
+    (while alist
+      (setq server (caaar alist)
+	    port (cdaar alist)
+	    label (nth 1 (car alist))
+	    plugged (nth 2 (car alist))
+	    time (nth 3 (car alist)))
+      (unless (string= last server)
+	;; server plug
+	(insert (format "%s[%s]%s\n"
+			(wl-plugged-server-indent)
+			(wl-plugged-string
+			 (elmo-plugged-p server nil plugged-alist))
+			server))
+	(setq last server))
+      ;; port plug
+      (setq line
+	    (format "%s[%s]%s"
+		    (make-string wl-plugged-port-indent ? )
+		    (wl-plugged-string plugged time)
+		    (cond
+		     ((stringp port)
+		      port)
+		     (t
+		      (format "%s(%d)"
+			      (or label
+				  (cdr (assq port wl-plugged-port-label-alist))
+				  "")
+			      port)))))
+      (setq column (max (if line (1+ (string-width line)) 0)
+			wl-plugged-queue-status-column))
+      (cond
+       ;; sending queue status
+       ((setq qinfo (assoc (cons server port) wl-plugged-sending-queue-alist))
+	(setq line
+	      (concat
+	       (wl-set-string-width column line)
+	       (wl-plugged-sending-queue-status qinfo))))
+       ;; dop queue status
+       ((setq qinfo (assoc (cons server port) wl-plugged-dop-queue-alist))
+	(setq line
+	      (concat
+	       (wl-set-string-width column line)
+	       (wl-plugged-dop-queue-status qinfo column)))))
+      (insert line "\n")
+      (setq alist (cdr alist)))
+    (delete-region (1- (point-max)) (point-max)) ;; delete line at the end.
+    (goto-char (point-min))
+    (while (not (eobp))
+      (wl-highlight-plugged-current-line)
+      (forward-line 1)))
+  (set-buffer-modified-p nil)
+  (count-lines (point-min) (point-max)))
+
+(defun wl-plugged-redrawing-switch (indent switch &optional time)
+  (beginning-of-line)
+  (when (re-search-forward
+	 (format "^%s\\[\\([^]]+\\)\\]" (make-string indent ? )))
+    (goto-char (match-beginning 1))
+    (delete-region (match-beginning 1) (match-end 1))
+    (insert (wl-plugged-string switch time))
+    (wl-highlight-plugged-current-line)
+    (forward-line 1)))
+
+(defun wl-plugged-redrawing (plugged-alist)
+  (let ((buffer-read-only nil)
+	(alist plugged-alist)
+	last server port plugged time)
+    (goto-char (point-min))
+    (wl-plugged-redrawing-switch 0 (elmo-plugged-p))
+    (while alist
+      (setq server (caaar alist)
+	    port (cdaar alist)
+	    plugged (nth 2 (car alist))
+	    time (nth 3 (car alist)))
+      (unless (string= last server)
+	;; server plug
+	(wl-plugged-redrawing-switch
+	 wl-plugged-server-indent
+	 (elmo-plugged-p server nil plugged-alist))
+	(setq last server))
+      ;; port plug
+      (wl-plugged-redrawing-switch
+       wl-plugged-port-indent plugged time)
+      (setq alist (cdr alist))))
+  (set-buffer-modified-p nil))
+
+(defun wl-plugged-change ()
+  (interactive)
+  (if (not elmo-plugged-alist)
+      (message "No plugged info")
+    (setq wl-plugged-winconf (current-window-configuration))
+    (let* ((cur-win (selected-window))
+	   (max-lines (if (eq major-mode 'wl-summary-mode)
+			  (/ (frame-height) 2)
+			(window-height)))
+	   window-lines lines)
+      (save-excursion
+	(set-buffer (get-buffer-create wl-plugged-buf-name))
+	(wl-plugged-mode)
+	(buffer-disable-undo (current-buffer))
+	(delete-windows-on (current-buffer))
+	(wl-plugged-set-variables)
+	(setq lines (wl-plugged-drawing wl-plugged-alist)))
+      (select-window cur-win)
+      (setq window-lines (min max-lines (max lines window-min-height)))
+      (when (> (- (window-height) window-lines) window-min-height)
+	(split-window cur-win (- (window-height) window-lines)))
+      (switch-to-buffer wl-plugged-buf-name)
+      (condition-case nil
+	  (progn
+	    (enlarge-window (- window-lines (window-height)))
+	    (when (fboundp 'pos-visible-in-window-p)
+	      (goto-char (point-min))
+	      (while (and (<= (window-height) max-lines)
+			  (not (pos-visible-in-window-p (1- (point-max)))))
+		(enlarge-window 2))))
+	(error))
+      (goto-char (point-min))
+      (forward-line 1)
+      (wl-plugged-move-to-next)))) ;; goto first entry
+
+(defsubst wl-plugged-get-server ()
+  (save-excursion
+    (end-of-line)
+    (wl-plugged-move-to-previous-server)
+    (beginning-of-line)
+    (when (looking-at (format "^%s\\[[^]]+\\]\\(.*\\)"
+			      (wl-plugged-server-indent)))
+      (elmo-match-buffer 1))))
+
+(defun wl-plugged-toggle ()
+  (interactive)
+  (let ((cur-point (point)))
+    (save-excursion
+      (beginning-of-line)
+      (cond
+       ;; swtich variable
+       ((bobp)
+	(let (variable switch name)
+	  (goto-char cur-point)
+	  (when (and (not (bobp))
+		     (not (eq (char-before) ? )))
+	    (if (re-search-backward " [^ ]+" nil t)
+		(forward-char 1)
+	      (re-search-backward "^[^ ]+" nil t)))
+	  (when (looking-at "\\([^ :[]+\\):?\\[\\([^]]+\\)\\]")
+	    (setq name (elmo-match-buffer 1))
+	    (setq switch (not (string= (elmo-match-buffer 2) wl-plugged-plug-on)))
+	    (when (setq variable (cdr (assoc name wl-plugged-switch-variables)))
+	      (set variable switch))
+	    (goto-char (match-beginning 2))
+	    (let ((buffer-read-only nil))
+	      (delete-region (match-beginning 2) (match-end 2))
+	      (insert (wl-plugged-string switch))
+	      (set-buffer-modified-p nil)))))
+       ;; swtich plug
+       ((looking-at "^\\( *\\)\\[\\([^]]+\\)\\]\\([^ \n]*\\)")
+	(let* ((indent (length (elmo-match-buffer 1)))
+	       (switch (elmo-match-buffer 2))
+	       (name (elmo-match-buffer 3))
+	       (plugged (not (string= switch wl-plugged-plug-on)))
+	       (alist wl-plugged-alist)
+	       server port)
+	  (cond
+	   ((eq indent wl-plugged-port-indent)  ;; toggle port plug
+	    (cond
+	     ((string-match "\\([^([]*\\)(\\([^)[]+\\))" name)
+	      (setq port (string-to-int (elmo-match-string 2 name))))
+	     (t
+	      (setq port name)))
+	    (setq server (wl-plugged-get-server))
+	    (elmo-set-plugged plugged server port nil alist))
+	   ((eq indent wl-plugged-server-indent)  ;; toggle server plug
+	    (elmo-set-plugged plugged name nil nil alist))
+	   ((eq indent 0)  ;; toggle all plug
+	    (elmo-set-plugged plugged nil nil nil alist)))
+	  ;; redraw
+	  (wl-plugged-redrawing wl-plugged-alist)
+	  ;; change wl-plug-state-indicator
+	  (let ((elmo-plugged wl-plugged-switch))
+	    (setq wl-plugged-switch (elmo-plugged-p))
+	    (setq wl-plug-state-indicator
+		  (if wl-plugged-switch
+		      wl-plug-state-indicator-on
+		    wl-plug-state-indicator-off))
+	    (force-mode-line-update t))))))
+    (setq wl-plugged-alist-modified t)
+    (goto-char cur-point)))
+
+(defun wl-plugged-click (e)
+  (interactive "e")
+  (mouse-set-point e)
+  (wl-plugged-toggle))
+
+(defun wl-plugged-toggle-all ()
+  (interactive)
+  (let ((cur-point (point)))
+    (setq wl-plugged-switch (not wl-plugged-switch))
+    (elmo-set-plugged wl-plugged-switch nil nil nil wl-plugged-alist)
+    (wl-plugged-redrawing wl-plugged-alist)
+    (goto-char cur-point)
+    (setq wl-plugged-alist-modified t)
+    ;; change wl-plug-state-indicator
+    (setq wl-plug-state-indicator
+	  (if wl-plugged-switch
+	      wl-plug-state-indicator-on
+	    wl-plug-state-indicator-off))
+    (force-mode-line-update t)))
+
+(defun wl-plugged-exit ()
+  (interactive)
+  (setq ;;elmo-plugged-alist wl-plugged-alist
+	wl-plugged wl-plugged-switch
+	wl-plugged-alist nil
+	wl-plugged-sending-queue-alist nil
+	wl-plugged-dop-queue-alist nil)
+  (run-hooks 'wl-plugged-exit-hook)
+  (when wl-plugged-alist-modified
+    (wl-toggle-plugged (if wl-plugged 'on 'off) t))
+  (kill-buffer (current-buffer))
+  (if wl-plugged-winconf
+      (set-window-configuration wl-plugged-winconf)))
+
+(defun wl-plugged-flush-queue ()
+  (interactive)
+  (let ((cur-point (point))
+	(dop-status (elmo-dop-queue-flush))
+	(send-status (wl-draft-queue-flush)))
+    (unless (or dop-status send-status)
+      (message "No processing queue."))
+    (wl-plugged-set-variables)
+    (wl-plugged-drawing wl-plugged-alist)
+    (goto-char cur-point)))
+
+(defun wl-plugged-move-to-next ()
+  (interactive)
+  (when (re-search-forward "\\[\\([^]]+\\)\\]" nil t)
+    (let ((pos (match-beginning 1)))
+      (if (invisible-p pos)
+	  (goto-char (next-visible-point pos))
+	(goto-char pos)))))
+
+(defun wl-plugged-move-to-previous ()
+  (interactive)
+  (if (eq (char-before) ?\]) (forward-char -1))
+  (when (re-search-backward "\\[\\([^]]+\\)\\]" nil t)
+    (let ((pos (match-beginning 1)))
+      (if (invisible-p pos)
+	  (goto-char (next-visible-point pos))
+	(goto-char pos)))))
+
+(defun wl-plugged-move-to-next-server ()
+  (interactive)
+  (let ((regexp
+	 (format "^%s\\[\\([^]]+\\)\\]" (wl-plugged-server-indent)))
+	point)
+    (save-excursion
+      (end-of-line)
+      (if (re-search-forward regexp nil t)
+	  (setq point (match-beginning 1))))
+    (if point (goto-char point))))
+
+(defun wl-plugged-move-to-previous-server ()
+  (interactive)
+  (let ((regexp
+	 (format "^%s\\[\\([^]]+\\)\\]" (wl-plugged-server-indent))))
+    (if (re-search-backward regexp nil t)
+	(goto-char (match-beginning 1)))))
+
+;;; end of wl-plugged-mode
+
+(defun wl-save ()
+  "Save summary and folder status."
+  (interactive)
+  (wl-save-status 'keep-summary))
+
+(defun wl-save-status (&optional keep-summary)
+  (message "Saving summary and folder status...")
+  (let (summary-buf)
+    (save-excursion
+      (let ((summaries (wl-collect-summary)))
+	(mapcar 
+	 (function
+	  (lambda (x)
+	    (set-buffer x)
+	    (unless keep-summary
+	      (wl-summary-cleanup-temp-marks))
+	    (wl-summary-save-status keep-summary)
+	    (unless keep-summary
+	      (kill-buffer x))))
+	 summaries))))
+  (wl-refile-alist-save
+   wl-refile-alist-file-name wl-refile-alist)
+  (wl-refile-alist-save
+   wl-refile-msgid-alist-file-name wl-refile-msgid-alist)
+  (wl-folder-info-save)
+  (and (featurep 'wl-fldmgr) (wl-fldmgr-exit))
+  (wl-crosspost-alist-save)
+  (message "Saving summary and folder status...done."))
+
+(defun wl-exit ()
+  (interactive)
+  (when (or (not wl-interactive-exit)
+	    (y-or-n-p "Quit Wanderlust?"))
+    (elmo-quit)
+    (run-hooks 'wl-exit-hook)
+    (wl-save-status)
+    (wl-folder-cleanup-variables)
+    (elmo-cleanup-variables)
+    (wl-kill-buffers
+     (format "^\\(%s\\)$"
+	     (mapconcat 'identity
+			(list (format "%s\\(:.*\\)?"
+				      (default-value 'wl-message-buf-name))
+			      wl-original-buf-name
+			      wl-folder-buffer-name)
+			"\\|")))
+    (elmo-buffer-cache-clean-up)
+    (if (fboundp 'mmelmo-cleanup-entity-buffers)
+	(mmelmo-cleanup-entity-buffers))
+    (setq wl-init nil)
+    (unless wl-on-nemacs
+      (remove-hook 'kill-emacs-hook 'wl-save-status))
+    t)
+  (message "") ;; empty minibuffer.
+  )
+
+(defun wl-init (&optional arg)
+  (when (not wl-init)
+    (setq elmo-plugged wl-plugged)
+    (let (succeed demo-buf)
+      (if wl-demo
+	  (setq demo-buf (wl-demo)))
+      (unless wl-on-nemacs
+	(add-hook 'kill-emacs-hook 'wl-save-status))
+      (unwind-protect
+	  (progn
+	    (wl-address-init)
+	    (wl-draft-setup)
+	    (wl-refile-alist-setup)
+	    (wl-crosspost-alist-load)
+	    (if wl-use-semi
+		(progn
+		  (require 'wl-mime)
+		  (setq elmo-use-semi t))
+	      (require 'tm-wl)
+	      (setq elmo-use-semi nil))
+	    ;; defined above.
+	    (wl-mime-setup)
+	    (fset 'wl-summary-from-func-internal 
+		  (symbol-value 'wl-summary-from-func))
+	    (fset 'wl-summary-subject-func-internal 
+		  (symbol-value 'wl-summary-subject-func))
+	    (fset 'wl-summary-subject-filter-func-internal 
+		  (symbol-value 'wl-summary-subject-filter-func))
+	    (setq elmo-no-from wl-summary-no-from-message)
+	    (setq elmo-no-subject wl-summary-no-subject-message)
+	    (setq succeed t)
+	    (progn
+	      (message "Checking environment...")
+	      (wl-check-environment arg)
+	      (message "Checking environment...done.")))
+	(if demo-buf
+	    (kill-buffer demo-buf))
+	(if succeed
+	    (setq wl-init t))
+	(run-hooks 'wl-init-hook)))))
+
+(defun wl-check-environment (no-check-folder)
+  (unless (featurep 'mime-setup)
+    (require 'mime-setup))
+  (unless wl-from
+    (error "Please set `wl-from'"))
+  (unless (string-match "[^.]\\.[^.]" (or wl-message-id-domain
+					  (if wl-local-domain
+ 					      (concat (system-name)
+						      "." wl-local-domain)
+ 					    (system-name))))
+    (error "Please set `wl-local-domain' to get valid FQDN"))
+  (when (not no-check-folder)
+    (if (not (eq (elmo-folder-get-type wl-draft-folder) 'localdir))
+	(error "%s is not allowed for draft folder" wl-draft-folder))
+    (unless (elmo-folder-exists-p wl-draft-folder)
+      (if (y-or-n-p 
+	   (format "Draft Folder %s does not exist, create it?" 
+		   wl-draft-folder))
+	  (elmo-create-folder wl-draft-folder)
+	(error "Draft Folder is not created")))
+    (if (and wl-draft-enable-queuing
+	     (not (elmo-folder-exists-p wl-queue-folder)))
+	(if (y-or-n-p 
+	     (format "Queue Folder %s does not exist, create it?" 
+		     wl-queue-folder))
+	    (elmo-create-folder wl-queue-folder)
+	  (error "Queue Folder is not created")))
+    (unless (elmo-folder-exists-p wl-trash-folder)
+      (if (y-or-n-p 
+	   (format "Trash Folder %s does not exist, create it?" 
+		   wl-trash-folder))
+	  (elmo-create-folder wl-trash-folder)
+	(error "Trash Folder is not created")))
+    (unless (elmo-folder-exists-p elmo-lost+found-folder)
+      (elmo-create-folder elmo-lost+found-folder)))
+  (unless (file-exists-p wl-tmp-dir)
+    (if (y-or-n-p 
+	 (format "Temp directory (to save multipart) %s does not exist, create it now?" 
+		 wl-tmp-dir))
+	(make-directory wl-tmp-dir)
+      (error "Temp directory is not created"))))
+
+;;;###autoload
+(defun wl (&optional arg)
+  "Start Wanderlust -- Yet Another Message Interface On Emacsen.
+If prefix argument is specified, folder checkings are skipped."
+  (interactive "P")
+  (unless wl-init
+    (wl-load-profile))
+  (unwind-protect
+      (wl-init arg)
+    (let ((make (wl-folder arg)))
+      (wl-plugged-init make)))
+  (run-hooks 'wl-hook))
+
+;; Define some autoload functions WL might use.
+(eval-and-compile
+  ;; This little mapcar goes through the list below and marks the
+  ;; symbols in question as autoloaded functions.
+  (mapcar
+   (function
+    (lambda (package)
+      (let ((interactive (nth 1 (memq ':interactive package))))
+	(mapcar
+	 (function
+	  (lambda (function)
+	    (let (keymap)
+	      (when (consp function)
+		(setq keymap (car (memq 'keymap function)))
+		(setq function (car function)))
+	      (autoload function (car package) nil interactive keymap))))
+	 (if (eq (nth 1 package) ':interactive)
+	     (cdddr package)
+	   (cdr package))))))
+   '(("wl-fldmgr" :interactive t
+      wl-fldmgr-access-display-all wl-fldmgr-access-display-normal
+      wl-fldmgr-add wl-fldmgr-clear-cut-entity-list wl-fldmgr-copy
+      wl-fldmgr-copy-region wl-fldmgr-cut wl-fldmgr-cut-region
+      wl-fldmgr-make-access-group wl-fldmgr-make-filter
+      wl-fldmgr-make-group wl-fldmgr-make-multi
+      wl-fldmgr-reconst-entity-hashtb wl-fldmgr-rename wl-fldmgr-delete
+      wl-fldmgr-save-folders wl-fldmgr-set-petname wl-fldmgr-sort
+      wl-fldmgr-subscribe wl-fldmgr-subscribe-region
+      wl-fldmgr-unsubscribe wl-fldmgr-unsubscribe-region wl-fldmgr-yank )
+     ("wl-fldmgr"
+      (wl-fldmgr-mode-map keymap)
+      wl-fldmgr-add-entity-hashtb)
+     ("wl-expire" :interactive t
+      wl-folder-archive-current-entity
+      wl-folder-expire-current-entity wl-summary-archive
+      wl-summary-expire )
+     ("wl-score"
+      wl-score-save wl-summary-rescore-msgs wl-summary-score-headers
+      wl-summary-score-update-all-lines )
+     ("wl-score" :interactive t
+      wl-score-change-score-file wl-score-edit-current-scores
+      wl-score-edit-file wl-score-flush-cache wl-summary-rescore
+      wl-score-set-mark-below wl-score-set-expunge-below
+      wl-summary-increase-score wl-summary-lower-score ))))
+
+;; for backward compatibility
+(defalias 'wl-summary-from-func-petname 'wl-summary-default-from)
+ 
+(provide 'wl)
+
+;;; wl.el ends here