changeset 110317:50478146a2e1

10-09-13

--- a/configure	Mon Sep 13 06:39:36 2010 +0200
+++ b/configure	Mon Sep 13 10:14:52 2010 +0000
@@ -1,11 +1,11 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.65 for emacs 24.0.50.
+# Generated by GNU Autoconf 2.67 for emacs 24.0.50.
 #
 #
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
+# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software
+# Foundation, Inc.
 #
 #
 # This configure script is free software; the Free Software Foundation
@@ -316,7 +316,7 @@
       test -d "$as_dir" && break
     done
     test -z "$as_dirs" || eval "mkdir $as_dirs"
-  } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir"
+  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
 
 
 } # as_fn_mkdir_p
@@ -356,19 +356,19 @@
 fi # as_fn_arith
 
 
-# as_fn_error ERROR [LINENO LOG_FD]
-# ---------------------------------
+# as_fn_error STATUS ERROR [LINENO LOG_FD]
+# ----------------------------------------
 # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
 # provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with status $?, using 1 if that was 0.
+# script with STATUS, using 1 if that was 0.
 as_fn_error ()
 {
-  as_status=$?; test $as_status -eq 0 && as_status=1
-  if test "$3"; then
-    as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-    $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3
-  fi
-  $as_echo "$as_me: error: $1" >&2
+  as_status=$1; test $as_status -eq 0 && as_status=1
+  if test "$4"; then
+    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
+  fi
+  $as_echo "$as_me: error: $2" >&2
   as_fn_exit $as_status
 } # as_fn_error
 
@@ -530,7 +530,7 @@
 exec 6>&1
 
 # Name of the host.
-# hostname on some systems (SVR3.2, Linux) returns a bogus exit status,
+# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
 # so uname gets run too.
 ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
 
@@ -910,8 +910,9 @@
   fi
 
   case $ac_option in
-  *=*)	ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
-  *)	ac_optarg=yes ;;
+  *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
+  *=)   ac_optarg= ;;
+  *)    ac_optarg=yes ;;
   esac
 
   # Accept the important Cygnus configure options, so we can diagnose typos.
@@ -956,7 +957,7 @@
     ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
     # Reject names that are not valid shell variable names.
     expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error "invalid feature name: $ac_useropt"
+      as_fn_error $? "invalid feature name: $ac_useropt"
     ac_useropt_orig=$ac_useropt
     ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
     case $ac_user_opts in
@@ -982,7 +983,7 @@
     ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
     # Reject names that are not valid shell variable names.
     expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error "invalid feature name: $ac_useropt"
+      as_fn_error $? "invalid feature name: $ac_useropt"
     ac_useropt_orig=$ac_useropt
     ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
     case $ac_user_opts in
@@ -1186,7 +1187,7 @@
     ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
     # Reject names that are not valid shell variable names.
     expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error "invalid package name: $ac_useropt"
+      as_fn_error $? "invalid package name: $ac_useropt"
     ac_useropt_orig=$ac_useropt
     ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
     case $ac_user_opts in
@@ -1202,7 +1203,7 @@
     ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
     # Reject names that are not valid shell variable names.
     expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error "invalid package name: $ac_useropt"
+      as_fn_error $? "invalid package name: $ac_useropt"
     ac_useropt_orig=$ac_useropt
     ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
     case $ac_user_opts in
@@ -1232,8 +1233,8 @@
   | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
     x_libraries=$ac_optarg ;;
 
-  -*) as_fn_error "unrecognized option: \`$ac_option'
-Try \`$0 --help' for more information."
+  -*) as_fn_error $? "unrecognized option: \`$ac_option'
+Try \`$0 --help' for more information"
     ;;
 
   *=*)
@@ -1241,7 +1242,7 @@
     # Reject names that are not valid shell variable names.
     case $ac_envvar in #(
       '' | [0-9]* | *[!_$as_cr_alnum]* )
-      as_fn_error "invalid variable name: \`$ac_envvar'" ;;
+      as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
     esac
     eval $ac_envvar=\$ac_optarg
     export $ac_envvar ;;
@@ -1259,13 +1260,13 @@
 
 if test -n "$ac_prev"; then
   ac_option=--`echo $ac_prev | sed 's/_/-/g'`
-  as_fn_error "missing argument to $ac_option"
+  as_fn_error $? "missing argument to $ac_option"
 fi
 
 if test -n "$ac_unrecognized_opts"; then
   case $enable_option_checking in
     no) ;;
-    fatal) as_fn_error "unrecognized options: $ac_unrecognized_opts" ;;
+    fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
     *)     $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
   esac
 fi
@@ -1288,7 +1289,7 @@
     [\\/$]* | ?:[\\/]* )  continue;;
     NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
   esac
-  as_fn_error "expected an absolute directory name for --$ac_var: $ac_val"
+  as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
 done
 
 # There might be people who depend on the old broken behavior: `$host'
@@ -1302,8 +1303,8 @@
 if test "x$host_alias" != x; then
   if test "x$build_alias" = x; then
     cross_compiling=maybe
-    $as_echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host.
-    If a cross compiler is detected then cross compile mode will be used." >&2
+    $as_echo "$as_me: WARNING: if you wanted to set the --build type, don't use --host.
+    If a cross compiler is detected then cross compile mode will be used" >&2
   elif test "x$build_alias" != "x$host_alias"; then
     cross_compiling=yes
   fi
@@ -1318,9 +1319,9 @@
 ac_pwd=`pwd` && test -n "$ac_pwd" &&
 ac_ls_di=`ls -di .` &&
 ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
-  as_fn_error "working directory cannot be determined"
+  as_fn_error $? "working directory cannot be determined"
 test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
-  as_fn_error "pwd does not report name of working directory"
+  as_fn_error $? "pwd does not report name of working directory"
 
 
 # Find the source files, if location was not specified.
@@ -1359,11 +1360,11 @@
 fi
 if test ! -r "$srcdir/$ac_unique_file"; then
   test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
-  as_fn_error "cannot find sources ($ac_unique_file) in $srcdir"
+  as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
 fi
 ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
 ac_abs_confdir=`(
-	cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error "$ac_msg"
+	cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
 	pwd)`
 # When building in place, set srcdir=.
 if test "$ac_abs_confdir" = "$ac_pwd"; then
@@ -1403,7 +1404,7 @@
       --help=short        display options specific to this package
       --help=recursive    display the short help of all the included packages
   -V, --version           display version information and exit
-  -q, --quiet, --silent   do not print \`checking...' messages
+  -q, --quiet, --silent   do not print \`checking ...' messages
       --cache-file=FILE   cache test results in FILE [disabled]
   -C, --config-cache      alias for \`--cache-file=config.cache'
   -n, --no-create         do not create output files
@@ -1621,9 +1622,9 @@
 if $ac_init_version; then
   cat <<\_ACEOF
 emacs configure 24.0.50
-generated by GNU Autoconf 2.65
-
-Copyright (C) 2009 Free Software Foundation, Inc.
+generated by GNU Autoconf 2.67
+
+Copyright (C) 2010 Free Software Foundation, Inc.
 This configure script is free software; the Free Software Foundation
 gives unlimited permission to copy, distribute and modify it.
 _ACEOF
@@ -1739,7 +1740,7 @@
     mv -f conftest.er1 conftest.err
   fi
   $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; } >/dev/null && {
+  test $ac_status = 0; } > conftest.i && {
 	 test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
 	 test ! -s conftest.err
        }; then :
@@ -1763,10 +1764,10 @@
 ac_fn_c_check_header_mongrel ()
 {
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+  if eval "test \"\${$3+set}\"" = set; then :
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 fi
 eval ac_res=\$$3
@@ -1802,7 +1803,7 @@
 else
   ac_header_preproc=no
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5
 $as_echo "$ac_header_preproc" >&6; }
 
@@ -1829,7 +1830,7 @@
 esac
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=\$ac_header_compiler"
@@ -1893,7 +1894,7 @@
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1915,15 +1916,18 @@
 
 } # ac_fn_c_check_header_compile
 
-# ac_fn_c_check_decl LINENO SYMBOL VAR
-# ------------------------------------
-# Tests whether SYMBOL is declared, setting cache variable VAR accordingly.
+# ac_fn_c_check_decl LINENO SYMBOL VAR INCLUDES
+# ---------------------------------------------
+# Tests whether SYMBOL is declared in INCLUDES, setting cache variable VAR
+# accordingly.
 ac_fn_c_check_decl ()
 {
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $2 is declared" >&5
-$as_echo_n "checking whether $2 is declared... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+  as_decl_name=`echo $2|sed 's/ *(.*//'`
+  as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'`
+  { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $as_decl_name is declared" >&5
+$as_echo_n "checking whether $as_decl_name is declared... " >&6; }
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1932,8 +1936,12 @@
 int
 main ()
 {
-#ifndef $2
-  (void) $2;
+#ifndef $as_decl_name
+#ifdef __cplusplus
+  (void) $as_decl_use;
+#else
+  (void) $as_decl_name;
+#endif
 #endif
 
   ;
@@ -1962,7 +1970,7 @@
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -1974,7 +1982,7 @@
 else
   eval "$3=no"
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 fi
 eval ac_res=\$$3
 	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
@@ -1992,7 +2000,7 @@
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5
 $as_echo_n "checking for $2.$3... " >&6; }
-if { as_var=$4; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$4+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2048,7 +2056,7 @@
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
@@ -2116,7 +2124,7 @@
   as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
   { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
 $as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${$3+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   eval "$3=no"
@@ -2165,7 +2173,7 @@
 running configure, to aid debugging if configure makes a mistake.
 
 It was created by emacs $as_me 24.0.50, which was
-generated by GNU Autoconf 2.65.  Invocation command line was
+generated by GNU Autoconf 2.67.  Invocation command line was
 
   $ $0 $@
 
@@ -2275,11 +2283,9 @@
   {
     echo
 
-    cat <<\_ASBOX
-## ---------------- ##
+    $as_echo "## ---------------- ##
 ## Cache variables. ##
-## ---------------- ##
-_ASBOX
+## ---------------- ##"
     echo
     # The following way of writing the cache mishandles newlines in values,
 (
@@ -2313,11 +2319,9 @@
 )
     echo
 
-    cat <<\_ASBOX
-## ----------------- ##
+    $as_echo "## ----------------- ##
 ## Output variables. ##
-## ----------------- ##
-_ASBOX
+## ----------------- ##"
     echo
     for ac_var in $ac_subst_vars
     do
@@ -2330,11 +2334,9 @@
     echo
 
     if test -n "$ac_subst_files"; then
-      cat <<\_ASBOX
-## ------------------- ##
+      $as_echo "## ------------------- ##
 ## File substitutions. ##
-## ------------------- ##
-_ASBOX
+## ------------------- ##"
       echo
       for ac_var in $ac_subst_files
       do
@@ -2348,11 +2350,9 @@
     fi
 
     if test -s confdefs.h; then
-      cat <<\_ASBOX
-## ----------- ##
+      $as_echo "## ----------- ##
 ## confdefs.h. ##
-## ----------- ##
-_ASBOX
+## ----------- ##"
       echo
       cat confdefs.h
       echo
@@ -2407,7 +2407,12 @@
 ac_site_file1=NONE
 ac_site_file2=NONE
 if test -n "$CONFIG_SITE"; then
-  ac_site_file1=$CONFIG_SITE
+  # We do not want a PATH search for config.site.
+  case $CONFIG_SITE in #((
+    -*)  ac_site_file1=./$CONFIG_SITE;;
+    */*) ac_site_file1=$CONFIG_SITE;;
+    *)   ac_site_file1=./$CONFIG_SITE;;
+  esac
 elif test "x$prefix" != xNONE; then
   ac_site_file1=$prefix/share/config.site
   ac_site_file2=$prefix/etc/config.site
@@ -2422,7 +2427,11 @@
     { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
 $as_echo "$as_me: loading site script $ac_site_file" >&6;}
     sed 's/^/| /' "$ac_site_file" >&5
-    . "$ac_site_file"
+    . "$ac_site_file" \
+      || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+as_fn_error $? "failed to load site script $ac_site_file
+See \`config.log' for more details" "$LINENO" 5 ; }
   fi
 done
 
@@ -2503,7 +2512,7 @@
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
   { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
-  as_fn_error "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
+  as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
 fi
 ## -------------------- ##
 ## Main body of script. ##
@@ -2677,7 +2686,7 @@
 	    g | gt | gtk  )	val=gtk ;;
 	    gtk3  )	val=gtk3 ;;
 	    * )
-as_fn_error "\`--with-x-toolkit=$withval' is invalid;
+as_fn_error $? "\`--with-x-toolkit=$withval' is invalid;
 this option's value should be \`yes', \`no', \`lucid', \`athena', \`motif', \`gtk' or
 \`gtk3'.  \`yes' and \`gtk' are synonyms. \`athena' and \`lucid' are synonyms." "$LINENO" 5
 	    ;;
@@ -2972,7 +2981,7 @@
 	stringfreelist) ac_gc_check_string_free_list=1 ;;
 	xmallocoverrun)	ac_xmalloc_overrun=1 ;;
 	conslist)	ac_gc_check_cons_list=1 ;;
-	*)	as_fn_error "unknown check category $check" "$LINENO" 5 ;;
+	*)	as_fn_error $? "unknown check category $check" "$LINENO" 5  ;;
 	esac
 done
 IFS="$ac_save_IFS"
@@ -3090,16 +3099,22 @@
 
 ac_aux_dir=
 for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do
-  for ac_t in install-sh install.sh shtool; do
-    if test -f "$ac_dir/$ac_t"; then
-      ac_aux_dir=$ac_dir
-      ac_install_sh="$ac_aux_dir/$ac_t -c"
-      break 2
-    fi
-  done
+  if test -f "$ac_dir/install-sh"; then
+    ac_aux_dir=$ac_dir
+    ac_install_sh="$ac_aux_dir/install-sh -c"
+    break
+  elif test -f "$ac_dir/install.sh"; then
+    ac_aux_dir=$ac_dir
+    ac_install_sh="$ac_aux_dir/install.sh -c"
+    break
+  elif test -f "$ac_dir/shtool"; then
+    ac_aux_dir=$ac_dir
+    ac_install_sh="$ac_aux_dir/shtool install -c"
+    break
+  fi
 done
 if test -z "$ac_aux_dir"; then
-  as_fn_error "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5
+  as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5
 fi
 
 # These three variables are undocumented and unsupported,
@@ -3113,7 +3128,7 @@
 
 # Make sure we can run config.sub.
 $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
-  as_fn_error "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
+  as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
 
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
 $as_echo_n "checking build system type... " >&6; }
@@ -3124,16 +3139,16 @@
 test "x$ac_build_alias" = x &&
   ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
 test "x$ac_build_alias" = x &&
-  as_fn_error "cannot guess build type; you must specify one" "$LINENO" 5
+  as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5
 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
-  as_fn_error "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
+  as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
 
 fi
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
 $as_echo "$ac_cv_build" >&6; }
 case $ac_cv_build in
 *-*-*) ;;
-*) as_fn_error "invalid value of canonical build" "$LINENO" 5;;
+*) as_fn_error $? "invalid value of canonical build" "$LINENO" 5 ;;
 esac
 build=$ac_cv_build
 ac_save_IFS=$IFS; IFS='-'
@@ -3158,7 +3173,7 @@
   ac_cv_host=$ac_cv_build
 else
   ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
-    as_fn_error "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
+    as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
 fi
 
 fi
@@ -3166,7 +3181,7 @@
 $as_echo "$ac_cv_host" >&6; }
 case $ac_cv_host in
 *-*-*) ;;
-*) as_fn_error "invalid value of canonical host" "$LINENO" 5;;
+*) as_fn_error $? "invalid value of canonical host" "$LINENO" 5 ;;
 esac
 host=$ac_cv_host
 ac_save_IFS=$IFS; IFS='-'
@@ -3460,7 +3475,7 @@
 
 
 if test $unported = yes; then
-  as_fn_error "Emacs hasn't been ported to \`${canonical}' systems.
+  as_fn_error $? "Emacs hasn't been ported to \`${canonical}' systems.
 Check \`etc/MACHINES' for recognized configuration names." "$LINENO" 5
 fi
 
@@ -3774,8 +3789,8 @@
 
 test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "no acceptable C compiler found in \$PATH
-See \`config.log' for more details." "$LINENO" 5; }
+as_fn_error $? "no acceptable C compiler found in \$PATH
+See \`config.log' for more details" "$LINENO" 5 ; }
 
 # Provide some information about the compiler.
 $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
@@ -3889,9 +3904,8 @@
 
 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-{ as_fn_set_status 77
-as_fn_error "C compiler cannot create executables
-See \`config.log' for more details." "$LINENO" 5; }; }
+as_fn_error 77 "C compiler cannot create executables
+See \`config.log' for more details" "$LINENO" 5 ; }
 else
   { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
 $as_echo "yes" >&6; }
@@ -3933,8 +3947,8 @@
 else
   { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "cannot compute suffix of executables: cannot compile and link
-See \`config.log' for more details." "$LINENO" 5; }
+as_fn_error $? "cannot compute suffix of executables: cannot compile and link
+See \`config.log' for more details" "$LINENO" 5 ; }
 fi
 rm -f conftest conftest$ac_cv_exeext
 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
@@ -3991,9 +4005,9 @@
     else
 	{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "cannot run C compiled programs.
+as_fn_error $? "cannot run C compiled programs.
 If you meant to cross compile, use \`--host'.
-See \`config.log' for more details." "$LINENO" 5; }
+See \`config.log' for more details" "$LINENO" 5 ; }
     fi
   fi
 fi
@@ -4044,8 +4058,8 @@
 
 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "cannot compute suffix of object files: cannot compile
-See \`config.log' for more details." "$LINENO" 5; }
+as_fn_error $? "cannot compute suffix of object files: cannot compile
+See \`config.log' for more details" "$LINENO" 5 ; }
 fi
 rm -f conftest.$ac_cv_objext conftest.$ac_ext
 fi
@@ -4377,7 +4391,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -4393,11 +4407,11 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.i conftest.err conftest.$ac_ext
 if $ac_preproc_ok; then :
   break
 fi
@@ -4436,7 +4450,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -4452,18 +4466,18 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.i conftest.err conftest.$ac_ext
 if $ac_preproc_ok; then :
 
 else
   { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details." "$LINENO" 5; }
+as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
+See \`config.log' for more details" "$LINENO" 5 ; }
 fi
 
 ac_ext=c
@@ -4524,7 +4538,7 @@
   done
 IFS=$as_save_IFS
   if test -z "$ac_cv_path_GREP"; then
-    as_fn_error "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+    as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
   fi
 else
   ac_cv_path_GREP=$GREP
@@ -4590,7 +4604,7 @@
   done
 IFS=$as_save_IFS
   if test -z "$ac_cv_path_EGREP"; then
-    as_fn_error "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
+    as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
   fi
 else
   ac_cv_path_EGREP=$EGREP
@@ -4722,8 +4736,7 @@
   as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
 ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
 "
-eval as_val=\$$as_ac_Header
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -4967,7 +4980,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -4983,11 +4996,11 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.i conftest.err conftest.$ac_ext
 if $ac_preproc_ok; then :
   break
 fi
@@ -5026,7 +5039,7 @@
   # Broken: fails on valid input.
 continue
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
   # OK, works on sane cases.  Now check whether nonexistent headers
   # can be detected and how.
@@ -5042,18 +5055,18 @@
 ac_preproc_ok=:
 break
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 
 done
 # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.i conftest.err conftest.$ac_ext
 if $ac_preproc_ok; then :
 
 else
   { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details." "$LINENO" 5; }
+as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
+See \`config.log' for more details" "$LINENO" 5 ; }
 fi
 
 ac_ext=c
@@ -5490,7 +5503,7 @@
   if test "x${with_makeinfo}" = "xno"; then
     MAKEINFO=off
   elif test ! -e $srcdir/info/emacs; then
-    as_fn_error "You do not seem to have makeinfo >= 4.6, and your
+    as_fn_error $? "You do not seem to have makeinfo >= 4.6, and your
 source tree does not seem to have pre-built manuals in the \`info' directory.
 Either install a suitable version of makeinfo, or re-run configure
 with the \`--without-makeinfo' option to build without the manuals. " "$LINENO" 5
@@ -5644,7 +5657,7 @@
     if test "x$GCC" = "xyes"; then
       C_SWITCH_MACHINE="-fno-common"
     else
-      as_fn_error "What gives?  Fix me if DEC Unix supports ELF now." "$LINENO" 5
+      as_fn_error $? "What gives?  Fix me if DEC Unix supports ELF now." "$LINENO" 5
     fi
   else
     UNEXEC_OBJ=unexalpha.o
@@ -5922,7 +5935,7 @@
   ## Some platforms don't use any of these files, so it is not
   ## appropriate to put this test outside the if block.
   test -e $CRT_DIR/crtn.o || test -e $CRT_DIR/crt0.o || \
-    as_fn_error "crt*.o not found in specified location." "$LINENO" 5
+    as_fn_error $? "crt*.o not found in specified location." "$LINENO" 5
 
 fi
 
@@ -5977,8 +5990,7 @@
 do :
   as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
 ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-eval as_val=\$$as_ac_Header
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -6169,7 +6181,7 @@
 fi
 rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
       if test "$emacs_alsa_subdir" != yes; then
-        as_fn_error "pkg-config found alsa, but it does not compile.  See config.log for error messages." "$LINENO" 5
+        as_fn_error $? "pkg-config found alsa, but it does not compile.  See config.log for error messages." "$LINENO" 5
       fi
       ALSA_CFLAGS="$ALSA_CFLAGS -DALSA_SUBDIR_INCLUDE"
     fi
@@ -6204,8 +6216,7 @@
 do :
   as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
 ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-eval as_val=\$$as_ac_Header
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -7260,8 +7271,8 @@
 
      ;; #(
    *)
-     as_fn_error "unknown endianness
- presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;;
+     as_fn_error $? "unknown endianness
+ presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5  ;;
  esac
 
 
@@ -7269,7 +7280,7 @@
 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
 set x ${MAKE-make}
 ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then :
+if eval "test \"\${ac_cv_prog_make_${ac_make}_set+set}\"" = set; then :
   $as_echo_n "(cached) " >&6
 else
   cat >conftest.make <<\_ACEOF
@@ -7277,7 +7288,7 @@
 all:
 	@echo '@@@%%%=$(MAKE)=@@@%%%'
 _ACEOF
-# GNU make sometimes prints "make[1]: Entering...", which would confuse us.
+# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
 case `${MAKE-make} -f conftest.make 2>/dev/null` in
   *@@@%%%=?*=@@@%%%*)
     eval ac_cv_prog_make_${ac_make}_set=yes;;
@@ -7413,7 +7424,7 @@
   have_x=disabled
 else
   case $x_includes,$x_libraries in #(
-    *\'*) as_fn_error "cannot use X directory names containing '" "$LINENO" 5;; #(
+    *\'*) as_fn_error $? "cannot use X directory names containing '" "$LINENO" 5 ;; #(
     *,NONE | NONE,*) if test "${ac_cv_have_x+set}" = set; then :
   $as_echo_n "(cached) " >&6
 else
@@ -7431,7 +7442,7 @@
 	@echo libdir='${LIBDIR}'
 _ACEOF
   if (export CC; ${XMKMF-xmkmf}) >/dev/null 2>/dev/null && test -f Makefile; then
-    # GNU make sometimes prints "make[1]: Entering...", which would confuse us.
+    # GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
     for ac_var in incroot usrlibdir libdir; do
       eval "ac_im_$ac_var=\`\${MAKE-make} $ac_var 2>/dev/null | sed -n 's/^$ac_var=//p'\`"
     done
@@ -7517,7 +7528,7 @@
   fi
 done
 fi
-rm -f conftest.err conftest.$ac_ext
+rm -f conftest.err conftest.i conftest.$ac_ext
 fi # $ac_x_includes = no
 
 if test "$ac_x_libraries" = no; then
@@ -7700,7 +7711,7 @@
 if test "x$ac_cv_header_AppKit_AppKit_h" = x""yes; then :
   HAVE_NS=yes
 else
-  as_fn_error "\`--with-ns' was specified, but the include
+  as_fn_error $? "\`--with-ns' was specified, but the include
   files are missing or cannot be compiled." "$LINENO" 5
 fi
 
@@ -7816,7 +7827,7 @@
    if test "$HAVE_XSERVER" = true ||
       test -n "$DISPLAY" ||
       test "`echo /usr/lib/libX11.*`" != "/usr/lib/libX11.*"; then
-        as_fn_error "You seem to be running X, but no X development libraries
+        as_fn_error $? "You seem to be running X, but no X development libraries
 were found.  You should install the relevant development files for X
 and for the toolkit you want, such as Gtk+, Lesstif or Motif.  Also make
 sure you have development files for image handling, i.e.
@@ -7939,8 +7950,7 @@
   as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
 ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
 "
-eval as_val=\$$as_ac_Header
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -8447,8 +8457,7 @@
 do :
   as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-eval as_val=\$$as_ac_var
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -8848,7 +8857,7 @@
   fi
 
   if test "$pkg_check_gtk" = "no" && test "$USE_X_TOOLKIT" != "maybe"; then
-     as_fn_error "$GTK_PKG_ERRORS" "$LINENO" 5
+     as_fn_error $? "$GTK_PKG_ERRORS" "$LINENO" 5
   fi
 fi
 
@@ -8954,7 +8963,7 @@
   fi
 
   if test "$pkg_check_gtk" = "no" && test "$USE_X_TOOLKIT" != "maybe"; then
-     as_fn_error "$GTK_PKG_ERRORS" "$LINENO" 5
+     as_fn_error $? "$GTK_PKG_ERRORS" "$LINENO" 5
   fi
 fi
 fi
@@ -8981,7 +8990,7 @@
 
   if test "${GTK_COMPILES}" != "yes"; then
     if test "$USE_X_TOOLKIT" != "maybe"; then
-      as_fn_error "Gtk+ wanted, but it does not compile, see config.log.  Maybe some x11-devel files missing?" "$LINENO" 5;
+      as_fn_error $? "Gtk+ wanted, but it does not compile, see config.log.  Maybe some x11-devel files missing?" "$LINENO" 5 ;
     fi
   else
     HAVE_GTK=yes
@@ -9111,8 +9120,7 @@
 do :
   as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-eval as_val=\$$as_ac_var
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -9477,7 +9485,7 @@
       USE_X_TOOLKIT=LUCID
       LUCID_LIBW=-lXaw
     elif test x"${USE_X_TOOLKIT}" = xLUCID; then
-      as_fn_error "Lucid toolkit requires X11/Xaw include files" "$LINENO" 5
+      as_fn_error $? "Lucid toolkit requires X11/Xaw include files" "$LINENO" 5
     else
       { $as_echo "$as_me:${as_lineno-$LINENO}: result: no; do not use toolkit by default" >&5
 $as_echo "no; do not use toolkit by default" >&6; }
@@ -10654,8 +10662,7 @@
 do :
   as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
 ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
-eval as_val=\$$as_ac_Header
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
 _ACEOF
@@ -10907,7 +10914,7 @@
     MISSING="$MISSING libtiff" && WITH_NO="$WITH_NO --with-tiff=no"
 
   if test "X${MISSING}" != X; then
-    as_fn_error "The following required libraries were not found:
+    as_fn_error $? "The following required libraries were not found:
     $MISSING
 Maybe some development libraries/packages are missing?
 If you don't want to link with them give
@@ -11348,8 +11355,7 @@
   for ac_func in _getb67 GETB67 getb67; do
     as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-eval as_val=\$$as_ac_var
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
 
 cat >>confdefs.h <<_ACEOF
 #define CRAY_STACKSEG_END $ac_func
@@ -11413,7 +11419,7 @@
 
 
 if test x"$ac_cv_func_alloca_works" != xyes; then
-   as_fn_error "a system implementation of alloca is required " "$LINENO" 5
+   as_fn_error $? "a system implementation of alloca is required " "$LINENO" 5
 fi
 
 # fmod, logb, and frexp are found in -lm on most systems.
@@ -11609,7 +11615,7 @@
 
 
   if test $ac_cv_prog_liblockfile = yes; then
-    as_fn_error "Shared liblockfile found but can't link against it.
+    as_fn_error $? "Shared liblockfile found but can't link against it.
 This probably means that movemail could lose mail.
 There may be a \`development' package to install containing liblockfile." "$LINENO" 5
   fi
@@ -11698,8 +11704,7 @@
 do :
   as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-eval as_val=\$$as_ac_var
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -11730,8 +11735,7 @@
 do :
   as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-eval as_val=\$$as_ac_var
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -11783,8 +11787,8 @@
 static time_t time_t_min;
 
 /* Values we'll use to set the TZ environment variable.  */
-static char *tz_strings[] = {
-  (char *) 0, "TZ=GMT0", "TZ=JST-9",
+static const char *tz_strings[] = {
+  (const char *) 0, "TZ=GMT0", "TZ=JST-9",
   "TZ=EST+3EDT+2,M10.1.0/00:00:00,M2.3.0/00:00:00"
 };
 #define N_STRINGS (sizeof (tz_strings) / sizeof (tz_strings[0]))
@@ -11801,7 +11805,7 @@
      instead of "TZ=America/Vancouver" in order to detect the bug even
      on systems that don't support the Olson extension, or don't have the
      full zoneinfo tables installed.  */
-  putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
+  putenv ((char*) "TZ=PST8PDT,M4.1.0,M10.5.0");
 
   tm.tm_year = 98;
   tm.tm_mon = 3;
@@ -11814,16 +11818,14 @@
 }
 
 static int
-mktime_test1 (now)
-     time_t now;
+mktime_test1 (time_t now)
 {
   struct tm *lt;
   return ! (lt = localtime (&now)) || mktime (lt) == now;
 }
 
 static int
-mktime_test (now)
-     time_t now;
+mktime_test (time_t now)
 {
   return (mktime_test1 (now)
 	  && mktime_test1 ((time_t) (time_t_max - now))
@@ -11847,8 +11849,7 @@
 }
 
 static int
-bigtime_test (j)
-     int j;
+bigtime_test (int j)
 {
   struct tm tm;
   time_t now;
@@ -11892,7 +11893,7 @@
      instead of "TZ=America/Vancouver" in order to detect the bug even
      on systems that don't support the Olson extension, or don't have the
      full zoneinfo tables installed.  */
-  putenv ("TZ=PST8PDT,M4.1.0,M10.5.0");
+  putenv ((char*) "TZ=PST8PDT,M4.1.0,M10.5.0");
 
   t = mktime (&tm);
 
@@ -11927,7 +11928,7 @@
   for (i = 0; i < N_STRINGS; i++)
     {
       if (tz_strings[i])
-	putenv (tz_strings[i]);
+	putenv ((char*) tz_strings[i]);
 
       for (t = 0; t <= time_t_max - delta; t += delta)
 	if (! mktime_test (t))
@@ -11979,7 +11980,7 @@
 
 # Make sure getloadavg.c is where it belongs, at configure-time.
 test -f "$srcdir/$ac_config_libobj_dir/getloadavg.c" ||
-  as_fn_error "$srcdir/$ac_config_libobj_dir/getloadavg.c is missing" "$LINENO" 5
+  as_fn_error $? "$srcdir/$ac_config_libobj_dir/getloadavg.c is missing" "$LINENO" 5
 
 ac_save_LIBS=$LIBS
 
@@ -12848,7 +12849,7 @@
 fi
 
 if test "$have_tputs_et_al" != true; then
-  as_fn_error "I couldn't find termcap functions (tputs and friends).
+  as_fn_error $? "I couldn't find termcap functions (tputs and friends).
 Maybe some development libraries/packages are missing?  Try installing
 libncurses-dev(el), libterminfo-dev(el) or similar." "$LINENO" 5
 fi
@@ -13995,8 +13996,7 @@
 do :
   as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh`
 ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var"
-eval as_val=\$$as_ac_var
-   if test "x$as_val" = x""yes; then :
+if eval test \"x\$"$as_ac_var"\" = x"yes"; then :
   cat >>confdefs.h <<_ACEOF
 #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1
 _ACEOF
@@ -14370,14 +14370,14 @@
    && test x"`$CC --version 2> /dev/null | grep 'gcc.* 4.5.0'`" != x \
    && test x"`echo $CFLAGS | grep '\-O[23]'`" != x \
    && test x"`echo $CFLAGS | grep '\-fno-optimize-sibling-calls'`" = x; then
-   as_fn_error "GCC 4.5.0 has problems compiling Emacs; see etc/PROBLEMS'." "$LINENO" 5
+   as_fn_error $? "GCC 4.5.0 has problems compiling Emacs; see etc/PROBLEMS'." "$LINENO" 5
 fi
 
 #### Find out which version of Emacs this is.
 version=`grep 'const char emacs_version' ${srcdir}/src/emacs.c \
 	 | sed -e 's/^[^"]*"\([^"]*\)".*$/\1/'`
 if test x"${version}" = x; then
-  as_fn_error "can't find current emacs version in \`${srcdir}/src/emacs.c'." "$LINENO" 5
+  as_fn_error $? "can't find current emacs version in \`${srcdir}/src/emacs.c'." "$LINENO" 5
 fi
 if test x"${version}" != x"$PACKAGE_VERSION"; then
   { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: version mismatch between \`${srcdir}/configure.in' and \`${srcdir}/src/emacs.c'." >&5
@@ -14936,6 +14936,7 @@
 
 ac_libobjs=
 ac_ltlibobjs=
+U=
 for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
   # 1. Remove the extension, and $U if already installed.
   ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
@@ -15098,19 +15099,19 @@
 (unset CDPATH) >/dev/null 2>&1 && unset CDPATH
 
 
-# as_fn_error ERROR [LINENO LOG_FD]
-# ---------------------------------
+# as_fn_error STATUS ERROR [LINENO LOG_FD]
+# ----------------------------------------
 # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
 # provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with status $?, using 1 if that was 0.
+# script with STATUS, using 1 if that was 0.
 as_fn_error ()
 {
-  as_status=$?; test $as_status -eq 0 && as_status=1
-  if test "$3"; then
-    as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-    $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3
-  fi
-  $as_echo "$as_me: error: $1" >&2
+  as_status=$1; test $as_status -eq 0 && as_status=1
+  if test "$4"; then
+    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
+    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
+  fi
+  $as_echo "$as_me: error: $2" >&2
   as_fn_exit $as_status
 } # as_fn_error
 
@@ -15306,7 +15307,7 @@
       test -d "$as_dir" && break
     done
     test -z "$as_dirs" || eval "mkdir $as_dirs"
-  } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir"
+  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
 
 
 } # as_fn_mkdir_p
@@ -15360,7 +15361,7 @@
 # values after options handling.
 ac_log="
 This file was extended by emacs $as_me 24.0.50, which was
-generated by GNU Autoconf 2.65.  Invocation command line was
+generated by GNU Autoconf 2.67.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
   CONFIG_HEADERS  = $CONFIG_HEADERS
@@ -15426,10 +15427,10 @@
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
 ac_cs_version="\\
 emacs config.status 24.0.50
-configured by $0, generated by GNU Autoconf 2.65,
+configured by $0, generated by GNU Autoconf 2.67,
   with options \\"\$ac_cs_config\\"
 
-Copyright (C) 2009 Free Software Foundation, Inc.
+Copyright (C) 2010 Free Software Foundation, Inc.
 This config.status script is free software; the Free Software Foundation
 gives unlimited permission to copy, distribute and modify it."
 
@@ -15445,11 +15446,16 @@
 while test $# != 0
 do
   case $1 in
-  --*=*)
+  --*=?*)
     ac_option=`expr "X$1" : 'X\([^=]*\)='`
     ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
     ac_shift=:
     ;;
+  --*=)
+    ac_option=`expr "X$1" : 'X\([^=]*\)='`
+    ac_optarg=
+    ac_shift=:
+    ;;
   *)
     ac_option=$1
     ac_optarg=$2
@@ -15471,6 +15477,7 @@
     $ac_shift
     case $ac_optarg in
     *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
+    '') as_fn_error $? "missing file argument" ;;
     esac
     as_fn_append CONFIG_FILES " '$ac_optarg'"
     ac_need_defaults=false;;
@@ -15483,7 +15490,7 @@
     ac_need_defaults=false;;
   --he | --h)
     # Conflict between --help and --header
-    as_fn_error "ambiguous option: \`$1'
+    as_fn_error $? "ambiguous option: \`$1'
 Try \`$0 --help' for more information.";;
   --help | --hel | -h )
     $as_echo "$ac_cs_usage"; exit ;;
@@ -15492,7 +15499,7 @@
     ac_cs_silent=: ;;
 
   # This is an error.
-  -*) as_fn_error "unrecognized option: \`$1'
+  -*) as_fn_error $? "unrecognized option: \`$1'
 Try \`$0 --help' for more information." ;;
 
   *) as_fn_append ac_config_targets " $1"
@@ -15560,7 +15567,7 @@
     "leim/Makefile") CONFIG_FILES="$CONFIG_FILES leim/Makefile" ;;
     "default") CONFIG_COMMANDS="$CONFIG_COMMANDS default" ;;
 
-  *) as_fn_error "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
+  *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5 ;;
   esac
 done
 
@@ -15598,7 +15605,7 @@
 {
   tmp=./conf$$-$RANDOM
   (umask 077 && mkdir "$tmp")
-} || as_fn_error "cannot create a temporary directory in ." "$LINENO" 5
+} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
 
 # Set up the scripts for CONFIG_FILES section.
 # No need to generate them if there are no CONFIG_FILES.
@@ -15632,7 +15639,7 @@
 fi
 ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
 if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
-  ac_cs_awk_cr='\r'
+  ac_cs_awk_cr='\\r'
 else
   ac_cs_awk_cr=$ac_cr
 fi
@@ -15649,7 +15656,7 @@
   echo "_ACEOF"
 } >conf$$files.sh &&
 . ./conf$$files.sh ||
-  as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
+  as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
 rm -f conf$$files.sh
 
 {
@@ -15657,18 +15664,18 @@
   echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
   echo "_ACEOF"
 } >conf$$subs.sh ||
-  as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
-ac_delim_num=`echo "$ac_subst_vars" | grep -c '$'`
+  as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
+ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
 ac_delim='%!_!# '
 for ac_last_try in false false false false false :; do
   . ./conf$$subs.sh ||
-    as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
+    as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
 
   ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
   if test $ac_delim_n = $ac_delim_num; then
     break
   elif $ac_last_try; then
-    as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
+    as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
   else
     ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
   fi
@@ -15763,20 +15770,28 @@
 else
   cat
 fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \
-  || as_fn_error "could not setup config files machinery" "$LINENO" 5
-_ACEOF
-
-# VPATH may cause trouble with some makes, so we remove $(srcdir),
-# ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and
+  || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
+_ACEOF
+
+# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
+# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
 # trailing colons and then remove the whole line if VPATH becomes empty
 # (actually we leave an empty line to preserve line numbers).
 if test "x$srcdir" = x.; then
-  ac_vpsub='/^[	 ]*VPATH[	 ]*=/{
-s/:*\$(srcdir):*/:/
-s/:*\${srcdir}:*/:/
-s/:*@srcdir@:*/:/
-s/^\([^=]*=[	 ]*\):*/\1/
+  ac_vpsub='/^[	 ]*VPATH[	 ]*=[	 ]*/{
+h
+s///
+s/^/:/
+s/[	 ]*$/:/
+s/:\$(srcdir):/:/g
+s/:\${srcdir}:/:/g
+s/:@srcdir@:/:/g
+s/^:*//
 s/:*$//
+x
+s/\(=[	 ]*\).*/\1/
+G
+s/\n//
 s/^[^=]*=[	 ]*$//
 }'
 fi
@@ -15804,7 +15819,7 @@
   if test -z "$ac_t"; then
     break
   elif $ac_last_try; then
-    as_fn_error "could not make $CONFIG_HEADERS" "$LINENO" 5
+    as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5
   else
     ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
   fi
@@ -15889,7 +15904,7 @@
 _ACAWK
 _ACEOF
 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-  as_fn_error "could not setup config headers machinery" "$LINENO" 5
+  as_fn_error $? "could not setup config headers machinery" "$LINENO" 5
 fi # test -n "$CONFIG_HEADERS"
 
 
@@ -15902,7 +15917,7 @@
   esac
   case $ac_mode$ac_tag in
   :[FHL]*:*);;
-  :L* | :C*:*) as_fn_error "invalid tag \`$ac_tag'" "$LINENO" 5;;
+  :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5 ;;
   :[FH]-) ac_tag=-:-;;
   :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
   esac
@@ -15930,7 +15945,7 @@
 	   [\\/$]*) false;;
 	   *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
 	   esac ||
-	   as_fn_error "cannot find input file: \`$ac_f'" "$LINENO" 5;;
+	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5 ;;
       esac
       case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
       as_fn_append ac_file_inputs " '$ac_f'"
@@ -15957,7 +15972,7 @@
 
     case $ac_tag in
     *:-:* | *:-) cat >"$tmp/stdin" \
-      || as_fn_error "could not create $ac_file" "$LINENO" 5 ;;
+      || as_fn_error $? "could not create $ac_file" "$LINENO" 5  ;;
     esac
     ;;
   esac
@@ -16093,22 +16108,22 @@
 else
   $AWK -f "$tmp/subs.awk" | $SHELL
 fi >$tmp/out \
-  || as_fn_error "could not create $ac_file" "$LINENO" 5
+  || as_fn_error $? "could not create $ac_file" "$LINENO" 5
 
 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
   { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } &&
   { ac_out=`sed -n '/^[	 ]*datarootdir[	 ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } &&
   { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined.  Please make sure it is defined." >&5
+which seems to be undefined.  Please make sure it is defined" >&5
 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined.  Please make sure it is defined." >&2;}
+which seems to be undefined.  Please make sure it is defined" >&2;}
 
   rm -f "$tmp/stdin"
   case $ac_file in
   -) cat "$tmp/out" && rm -f "$tmp/out";;
   *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";;
   esac \
-  || as_fn_error "could not create $ac_file" "$LINENO" 5
+  || as_fn_error $? "could not create $ac_file" "$LINENO" 5
  ;;
   :H)
   #
@@ -16119,19 +16134,19 @@
       $as_echo "/* $configure_input  */" \
       && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs"
     } >"$tmp/config.h" \
-      || as_fn_error "could not create $ac_file" "$LINENO" 5
+      || as_fn_error $? "could not create $ac_file" "$LINENO" 5
     if diff "$ac_file" "$tmp/config.h" >/dev/null 2>&1; then
       { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
 $as_echo "$as_me: $ac_file is unchanged" >&6;}
     else
       rm -f "$ac_file"
       mv "$tmp/config.h" "$ac_file" \
-	|| as_fn_error "could not create $ac_file" "$LINENO" 5
+	|| as_fn_error $? "could not create $ac_file" "$LINENO" 5
     fi
   else
     $as_echo "/* $configure_input  */" \
       && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" \
-      || as_fn_error "could not create -" "$LINENO" 5
+      || as_fn_error $? "could not create -" "$LINENO" 5
   fi
  ;;
 
@@ -16168,7 +16183,7 @@
 ac_clean_files=$ac_clean_files_save
 
 test $ac_write_fail = 0 ||
-  as_fn_error "write failure creating $CONFIG_STATUS" "$LINENO" 5
+  as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
 
 
 # configure is writing to config.log, and then calls config.status.
@@ -16189,7 +16204,7 @@
   exec 5>>config.log
   # Use ||, not &&, to avoid exiting from the if with $? = 1, which
   # would make configure fail if this is the last instruction.
-  $ac_cs_success || as_fn_exit $?
+  $ac_cs_success || as_fn_exit 1
 fi
 if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
   { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5

--- a/doc/misc/ediff.texi	Mon Sep 13 06:39:36 2010 +0200
+++ b/doc/misc/ediff.texi	Mon Sep 13 10:14:52 2010 +0000
@@ -1986,8 +1986,7 @@
 this:
 
 @comment Use @set to avoid triggering merge conflict detectors like CVS.
-@set seven-left <<<<<<<
-@set seven-right >>>>>>>
+@set seven-left 
 @example
 @value{seven-left} variant A
 the difference region from buffer A

--- a/lisp/files.el	Mon Sep 13 06:39:36 2010 +0200
+++ b/lisp/files.el	Mon Sep 13 10:14:52 2010 +0000
@@ -1,3 +1,18 @@
+;;  (defun auto-save-mode (arg)
+;;   "Toggle auto-saving of contents of current buffer.
+;; With prefix argument ARG, turn auto-saving on if positive, else off."
+;;     (interactive)
+;;     (if (> arg 0) auto-save (null auto-save)))
+
+
+;; (defun auto-fill-mode (arg)
+;;   "Toggle Auto Fill mode.
+;; With ARG, turn Auto Fill mode on if and only if ARG is positive.
+;; In Auto Fill mode, inserting a space at a column beyond `current-fill-column'
+;; automatically breaks the line at a previous space."
+;;    (interactive)
+;;    (if (> arg 0) auto-fill (null auto-fill)))
+
 ;;; files.el --- file input and output commands for Emacs
 
 ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996,

--- a/lisp/ldefs-boot.el	Mon Sep 13 06:39:36 2010 +0200
+++ b/lisp/ldefs-boot.el	Mon Sep 13 10:14:52 2010 +0000
@@ -10464,7 +10464,6 @@
 
 ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off
 ;;;;;;  turn-off-flyspell turn-on-flyspell flyspell-mode flyspell-prog-mode)
-;;;;;;  "flyspell" "textmodes/flyspell.el" (19370 36541))
 ;;; Generated autoloads from textmodes/flyspell.el
 
 (autoload 'flyspell-prog-mode "flyspell" "\

--- a/lisp/net/tramp-cache.el	Mon Sep 13 06:39:36 2010 +0200
+++ b/lisp/net/tramp-cache.el	Mon Sep 13 10:14:52 2010 +0000
@@ -1,3 +1,5 @@
+(setq tramp-version 24)
+
 ;;; tramp-cache.el --- file information caching for Tramp
 
 ;; Copyright (C) 2000, 2005, 2006, 2007, 2008, 2009,
@@ -51,6 +53,8 @@
 ;;; Code:
 
 (require 'tramp)
+; bob, 2010 Sep 11
+; (require 'trampver.el)
 (autoload 'time-stamp-string "time-stamp")
 
 ;;; -- Cache --

--- a/lisp/net/tramp-compat.el	Mon Sep 13 06:39:36 2010 +0200
+++ b/lisp/net/tramp-compat.el	Mon Sep 13 10:14:52 2010 +0000
@@ -29,7 +29,9 @@
 
 ;;; Code:
 
-(require 'tramp-loaddefs)
+(eval-when-compile
+
+  (require 'tramp-loaddefs))
 
 (eval-when-compile
 

--- a/lisp/net/tramp.el	Mon Sep 13 06:39:36 2010 +0200
+++ b/lisp/net/tramp.el	Mon Sep 13 10:14:52 2010 +0000
@@ -1,3 +1,4 @@
+(setq tramp-version 24)
 ;;; tramp.el --- Transparent Remote Access, Multiple Protocol
 
 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,

--- a/lisp/textmodes/page.el	Mon Sep 13 06:39:36 2010 +0200
+++ b/lisp/textmodes/page.el	Mon Sep 13 10:14:52 2010 +0000
@@ -1,3 +1,10 @@
+;; (push-mark (point) t)  needed at the end of forward-page 
+;; The documentation in simple.el for set-mark says
+;;   To remember a location for internal use in the Lisp program,
+;;   store it in a Lisp variable.  Example:
+;;      (let ((beg (point))) (forward-line 1) (delete-region beg (point)))."
+
+
 ;;; page.el --- page motion commands for Emacs
 
 ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/ChangeLog	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,10524 @@
[phone]  Leo  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Pass DEFAULT argument to completing-read,
+	instead of replacing its return value, to enable a user to edit.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-active-region-or-url-at-point): Remove only newlines and
+	leading and trailing whitespace in region string.
+	(w3m-input-url): Treat INITIAL if it is "" as nil but don't mind region
+	even if it is active; treat DEFAULT if it is "" as nil but don't regard
+	to w3m-home-page; always show DEFAULT if any within prompt string.
+	Suggested by Leo <[e-mail]>.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-lnum.el (w3m-read-int-interactive): Make it work for XEmacs
+	(note: `?<' is not `eq' to `60' in XEmacs, for example).
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m-lnum.el (w3m-linknum-remove-overlays): Simplified.
+	(w3m-link-numbering-mode): Using `or' instead of `unless'.
+	(w3m-read-int-interactive): Added ability to scroll page while
+	selecting number.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Move cursor to place where a user likely
+	begins to edit.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el (texinfo-multitable-widths): Use `make-char'
+	instead of KANJI literal.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el (texinfo-format-verb): Use (delete-char -1)
+	instead of (delete-backward-char 1); For Emacs24.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-entity-table): Reverte last change.
+	(w3m-extra-numeric-character-reference): New variable.
+	(w3m-entity-value): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* octet.el (octet-find-file)
+	* w3m-form.el (w3m-fontify-textareas, w3m-form-replace)
+	* w3m-proc.el (w3m-process-filter)
+	* w3m-session.el (w3m-session-select-list-all-sessions)
+	(w3m-session-select-list-session-group, w3m-session-select-next)
+	* w3m.el (w3m-idle-images-show, w3m-toggle-inline-images-internal)
+	(w3m-resize-inline-image-internal, w3m-fontify, w3m-refontify-anchor)
+	(w3m-cache-remove-oldest, w3m-cache-remove, w3m-cache-contents)
+	(w3m-cache-request-contents, w3m-create-text-page)
+	(w3m-create-image-page, w3m-select-buffer-generate-contents)
+	(w3m-select-buffer-recheck): Replace let-bindings of buffer-read-only
+	to nil with inhibit-read-only to t.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Fix `google news' url forms
+	used to non-Japanese utf-8 environments.
+
+	* w3m.el (w3m-entity-table): Add table for "&#149;".
+	(w3m-entity-value): Prefer "&#NUM;" type entities specified in
+	w3m-entity-table.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-safe-view-this-url): Never query "Are you sure..." if
+	prefix arg is given.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-create-text-page): Make point and window start be the
+	start of contents, especially for text/plain pages.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Update regexps for Google.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Autoload w3m-bookmark-add.
+
+	* w3m-lnum.el (w3m-read-int-interactive): Ignore mouse event in XEmacs.
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m.el (autoload, w3m-linknum-map):
+	`w3m-linknum-bookmark-add-this-url', `w3m-linknum-zoom-in-image'
+	and `w3m-linknum-zoom-out-image' added.
+
+	* w3m-lnum.el (w3m-link-numbering-mode-map):
+	`w3m-linknum-bookmark-add-this-url', `w3m-linknum-zoom-in-image'
+	and `w3m-linknum-zoom-out-image' added.
+	(w3m-link-numbering-mode, w3m-with-linknum)
+	(w3m-linknum-get-action): Use `zerop'.
+	(w3m-link-numbering): Simplify argument list and checks assosiated
+	with it.
+	(w3m-read-int-interactive): Add <escape> for quit.
+	(w3m-linknum-follow): Add position to history when visiting url in
+	curent page.  Change message when no valid anchor is selected.
+	(w3m-linknum-view-image, w3m-linknum-save-image): Rewrite using
+	`cond'.
+	(w3m-linknum-zoom-image): New macro.
+	(w3m-linknum-zoom-in-image, w3m-linknum-zoom-out-image)
+	(w3m-linknum-bookmark-add-this-url): New functions.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-auto-show): Guard error if this-command is not a symbol.
+	Thanks to IRIE Shinsuke san. cf. [emacs-w3m:11282]
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Save positions iff called interactively.
+	(w3m-goto-url-new-session): Save positions.
+
+	* w3m-bookmark.el (w3m-bookmark-view): Save positions.
+
+	* w3m-hist.el (w3m-history-copy): Copy positions.
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m-lnum.el (w3m-link-numbering-mode): Using `buffer-list' instead of
+	`w3m-list-buffers' as the latter does unnecessary stuff.
+	(w3m-linknum-read-url): Removed. It's now equivalent to:
+	(car (w3m-linknum-get-action prompt 1))
+	(w3m-linknum-toggle-inline-image): If no url under selected image,
+	move over it and toggle it.
+	(w3m-linknum-external-view-this-url, w3m-linknum-edit-this-url):
+	Using `w3m-linknum-get-action' instead of `w3m-linknum-read-url'.
+
+	* w3m.el (autoload): Added `w3m-link-numbering-mode', removed
+	`w3m-linknum-read-url'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-lnum.el (w3m-linknum-minibuffer-prompt): Make face config valid
+	for XEmacs as well.
+	(w3m-linknum-match): New face.
+	(w3m-read-int-interactive): Make it work for XEmacs as well.
+	(w3m-highlight-numbered-anchor): Use w3m-linknum-match face.
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m-lnum.el: Updated commentary and usage sections.
+	(w3m-substitute-key-definitions): New macro.
+	(w3m-link-numbering-mode-map): Changed keybindings.
+	(w3m-link-numbering-mode): Added mode-line indicator. Don't
+	activate numbering overlays. Changing status mode causes all other
+	w3m buffers to change status as well.
+	(w3m-move-numbered-anchor): Removed.
+	(w3m-with-linknum): Numbering overlays should never be active
+	before invoking linknum functions thus less bookkeeping.
+	(w3m-go-to-linknum, w3m-linknum-follow): Add mark for previous
+	position.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-lnum.el (w3m-read-int-interactive): Add keys to exit event loop,
+	C-m & C-j.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-ctl-c-map, w3m-redisplay-map)
+	(w3m-linknum-map): New sub-keymaps.
+	(w3m-lynx-like-map, w3m-info-like-map): Move `C-c' prefixed commands
+	and `C' prefixed commands to w3m-ctl-c-map and w3m-redisplay-map
+	respectively.
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m.el: Autoload w3m-linknum-follow, w3m-linknum-read-url,
+	w3m-linknum-toggle-inline-image, w3m-linknum-view-image,
+	w3m-linknum-external-view-this-url, w3m-linknum-edit-this-url,
+	w3m-linknum-print-this-url, w3m-linknum-download-this-url.
+
+	* w3m-lnum.el: Update usage comment.
+	(w3m-link-numbering-mode): Cosmetic change.
+	(w3m-get-anchor-info): Added w3m-image-alt char property to return
+	list.
+	(w3m-go-to-linknum, w3m-linknum-get-action): On 0 input select
+	location url.
+	(w3m-linknum-follow): Changed prompt and using w3m-message.
+	(w3m-linknum-toggle-inline-image): Renamed from
+	w3m-linknum-toggle-image and using w3m-message.  When image on
+	point, toggle it.
+	(w3m-linknum-view-image, w3m-linknum-save-image)
+	(w3m-linknum-external-view-this-url)
+	(w3m-linknum-edit-this-url, w3m-linknum-print-this-url)
+	(w3m-linknum-download-this-url): New commands.
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m-lnum.el: Update usage comment.
+	(w3m-linknum-minibuffer-prompt): New face.
+	(w3m-linknum-remove-overlays): Quit immediately when it finds and
+	deletes temporary match overlay.
+	(w3m-link-numbering-mode): Pass prefix arg, which makes this function
+	index only images if it is 2, to w3m-link-numbering. Remove
+	interactive declaration and autoload cookie.
+	(w3m-link-numbering, w3m-with-linknum): Vary function according to arg;
+	index only images if it is 2.
+	(w3m-read-int-interactive): Change prompt face to
+	w3m-linknum-minibuffer-prompt.
+	(w3m-highlight-numbered-anchor): Use next-single-property-change.
+	(w3m-get-anchor-info): New function. Renamed from
+	w3m-get-numbered-url. Using macrolet for less clutter.
+	(w3m-go-to-linknum): Rewrote it more in style with the other
+	user commands.
+	(w3m-linknum-get-action): Added optional type argument to
+	determine numbering scheme.
+	(w3m-linknum-follow): Rewrite to use the new
+	w3m-linknum-get-action return format.
+	(w3m-linknum-read-url): Rewrite using w3m-linknum-get-action.
+	(w3m-linknum-toggle-image): New function.
+
[phone]  Andrey Kotlarski  <[e-mail]>
+
+	* w3m-lnum.el: Update usage comment.
+	(w3m-linknum-remove-overlays): New function.
+	(w3m-link-numbering-mode): Turn mode off if prefix arg is 0;
+	index forms as well as url links if prefix arg is 4.
+	(w3m-link-numbering): Index forms as well if prefix arg is given.
+	(w3m-move-numbered-anchor): Fix grammar in error message.
+	(w3m-read-int-interactive): New function.
+	(w3m-with-linknum): New macro.
+	(w3m-highlight-numbered-anchor, w3m-get-numbered-url): New functions.
+	(w3m-go-to-linknum): Add autoload cookie; turn on form numbers as well;
+	don't highlight current link if prefix arg is given.
+	(w3m-linknum-get-action, w3m-linknum-follow, w3m-linknum-read-url): New
+	functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-image)
+	(w3m-toggle-inline-images): Fix query logic about safe url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Add w3m-pipe-source.
+	(w3m-lynx-like-map, w3m-info-like-map): Bind "|" to w3m-pipe-source.
+	(w3m-pipe-source): New command.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-update-files-autoloads): Strip subdirectory name
+	that Emacs 24 doesn't strip from load-name.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* octet.el (octet-w3m-region): Set to unibyte string for base64
+	encoding.
+
[phone]  Fedor Khod'kov  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-trusted-host-p): Don't bother to add
+	excessive "$" to a regexp that w3m-cookie-reject-domains specifies.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Update regexps for Google.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-previous-page): Save positions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Use the identical Lisp object for a
+	string used as w3m-image's property in order to enable XEmacs to
+	display images in shimbun articles properly.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-active-region-or-url-at-point): Check availability of
+	w3m-current-url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-ems-create-image): New function that's an alias to
+	create-animated-image or create-image.
+	(w3m-create-image): Use it.
+
+	* w3m.el (w3m-emacs-w3m-icon): Replace it with data not optimized.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_PATH_EMACS): Support Emacs 24.
+	(AC_ADD_LOAD_PATH): Pipe stderr to /dev/null when running
+	w3mhack-print-status.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-ignored-image-url-regexp): Fix custom type.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Don't recenter if page is not changed.
+	(w3m-goto-url): Don't move point to the top unless redisplaying page.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Suppress compiler warnings that Emacs<22.2 and XEmacs issue
+	against image-mode functions.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (top): Require image-mode if available.
+	(w3m-image-page-displayed-p): New function.
+	(w3m-create-image-page): Setup image-mode's variable if possible.
+	(w3m-scroll-up-or-next-url, w3m-scroll-down-or-previous-url)
+	(w3m-shift-left, w3m-shift-right, w3m-beginning-of-line)
+	(w3m-end-of-line): Call image-mode functions if possible and needed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Turn truncate-lines off for text/plain pages.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Add menu to images.
+	(w3m-download-this-image, w3m-print-this-image-url): New functions.
+	(w3m-link-menu): Add them; enable menu only when url or image is there.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-window-hscroll): Revert 2010-01-13 change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-cache-available-p): Now, pages with neither Last-Modified
+	header and ETag header are treated as dynamically-generated pages.
+	(w3m-cache-header-delete-variable-part): Contination lines are also
+	removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi, w3m-set-display-ins-del):
+	Honor w3m-command-environment.
+	Suggested by Toru TSUNEYOSHI <[e-mail]>.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-redisplay-this-page): Save positions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-reload-this-page): Save positions.
+
+	* w3m-hist.el (w3m-history-store-position)
+	(w3m-history-restore-position): Use line number and column number to
+	save positions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-previous-page): Restore positions as well when
+	jumping within a page.
+	(w3m-view-this-url-1): Reset hscroll after retrieving a new page.
+	(w3m-view-this-url): Save positions first.
+	(w3m-delete-buffer): Restore positions in a page being left.
+	(w3m-goto-url): Don't save positions here.
+
+	* w3m-util.el (w3m-popup-buffer): Restore positions only when buffer to
+	be displayed is hidden, not always.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-next-anchor, w3m-previous-anchor, w3m-next-form)
+	(w3m-previous-form, w3m-next-image, w3m-previous-image): Remove unused
+	var `st'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Make it work as before for group: urls.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-doc-view-map): New variable.
+	(w3m-view-this-url-1): Improve the way to keep the window configuration
+	for the case where w3m-new-session-in-background is non-nil.
+	(w3m-doc-view): Use w3m-doc-view-map.
+	(w3m-doc-view-quit): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug)
+	* w3m-session.el (w3m-session-save, w3m-session-automatic-save)
+	(w3m-session-deleted-save, w3m-session-crash-recovery-save)
+	* w3m.el (w3m-key-binding): Use save-current-buffer instead of
+	save-excursion.
+
+	* mew-w3m.el (mew-w3m-view-inline-image, mew-mime-text/html-w3m)
+	* w3m-xmas.el (w3m-window-hscroll)
+	* w3mhack.el (toplevel, w3mhack-generate-load-file): Use
+	with-current-buffer rather than save-excursion + set-buffer.
+
+	* w3m-cookie.el (w3m-cookie-parse-args): Use with-current-buffer rather
+	than save-excursion + set-buffer; no need to use save-restriction and
+	narrow-to-region; remove duplicate set-syntax-table.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-print-this-url): Exclude empty image-alt string.
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Strip text props from
+	string elements contained in w3m-current-forms so as to enable XEmacs
+	to read ~/.w3m/.sessions file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-refontify-anchor, w3m-cache-setup)
+	(w3m-cache-remove-oldest, w3m-cache-remove, w3m-cache-contents)
+	(w3m-cache-request-contents, w3m-view-this-url-1)
+	(w3m-download-this-url, w3m-goto-url)
+	* w3m-session.el (w3m-session-save)
+	* w3m-bookmark.el (w3m-bookmark-sections, w3m-bookmark-write-file)
+	(w3m-bookmark-kill-entries, w3m-bookmark-undo, w3m-bookmark-iterator)
+	* w3m-util.el (w3m-unseen-buffer-p): Use with-current-buffer rather
+	than save-excursion + set-buffer.
+
+	* w3m.el (toplevel, w3m-highlight-current-anchor-1): Use point-at-eol
+	rather than `(save-excursion (end-of-line) (point))'.
+
+	* w3m-util.el: Autoload w3m-history-restore-position when compiling;
+	autoload w3m-fb-frame-parameter only when compiling.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-next-buffer): Save and restore positions.
+	(w3m-close-window): Save positions.
+
+	* w3m-hist.el (w3m-history-store-position)
+	(w3m-history-restore-position): Save and restore hscroll.
+
+	* w3m-util.el (w3m-popup-buffer): Restore positions.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-check-rss): Ignore future entries to
+	display site announcements.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-region-cite-mark): Add new selection.
+	(mew-w3m-region): Rewrite.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-region-cite-mark): New option.
+	(mew-w3m-region): New function.
+	(mew-mime-text/html-w3m): Use `mew-w3m-region' instead of `w3m-region'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-image.el (w3m-imagick-convert-program-available-p): If someone
+	set `w3m-imagick-convert-program' to nil before load emacs-w3m, do not
+	show warning message for ImageMagick's `convert'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-embed-base-url, w3m-mail-compose-with-mml)
+	(w3m-mail-compose-with-vm): Don't use
+	default-enable-multibyte-characters that is obsolete in Emacs 23.2.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Support
+	`browse-url-default-windows|macosx-browser'. Thanks to Leo.
+	Cf. [emacs-w3m:11035].
+
+	* w3m-ems.el (w3m-form-button, w3m-form-button-mouse)
+	(w3m-form-button-pressed, w3m-tab-unselected)
+	(w3m-tab-unselected-retrieving, w3m-tab-unselected-unseen)
+	(w3m-tab-selected, w3m-tab-selected-retrieving, w3m-tab-background)
+	(w3m-tab-selected-background, w3m-tab-mouse): Add type ns. Thanks to
+	Leo. Cf. [emacs-w3m:11034].
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Do not display image, if
+	its url is local and current url is not local.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-output-coding-system): Use `utf-8' except for emacs-21
+	under Japaese environment.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-symbol): Set nil with emacs-23 or later.
+	cf. [emacs-w3m:11002].
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-util.el (w3m-puny-decode-url): Decode the part of hostname only.
+	Add doc-strings.
+	(w3m-puny-encode-url): Add doc-strings.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-puny-utf-16be): New variable.
+	(w3m-url-readable-string): Call `w3m-puny-decode-url'.
+	(w3m-url-transfer-encode-string): Call `w3m-puny-encode-url'.
+	(w3m-header-line-insert): Call `w3m-puny-decode-url'.
+	(w3m-input-url): Call `w3m-puny-decode-url' for initial URL.
+
+	* w3m-util.el (top): Add the variable definition of `w3m-puny-utf-16be'
+	to avoid byte-compile warnings.
+	(w3m-puny-code-regex, w3m-puny-code-nonascii, w3m-puny-base)
+	(w3m-puny-tmin, w3m-puny-tmax, w3m-puny-damp, w3m-puny-skew)
+	(w3m-puny-initial-bias, w3m-puny-initial-n, w3m-puny-delimiter): New
+	constants.
+	(w3m-puny-adapt, w3m-puny-decode-digit, w3m-puny-encode-digit)
+	(w3m-puny-decode1, w3m-puny-decode, w3m-puny-decode-url)
+	(w3m-puny-encode1, w3m-puny-encode, w3m-puny-encode-url): New
+	functions.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-decode-anchor-string): Convert contol-characters to
+	space.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-about-retrieve): When type is `nil', decode cached
+	contents to display source of 404 page.  Reported by Dan Jacobson
+	<[e-mail]>.
+	(w3m-do-cleanup-temp-files): New customize variable.
+	(w3m-cleanup-temp-files): Use it.
+	(toplevel): Call it when emacs-w3m shutdown.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-search.el (w3m-search-thing-at-point-arg): New variable.
+	(w3m-search-read-query): Use it.
+
+	* w3m-util.el (w3m-current-title): Set title to "<retrieving>>" when
+	w3m is retrieving a page.
+
[phone]  Kevin Ryde  <[e-mail]>
+
+	* w3m.el (w3m-view-recenter): Only nil,t,integer, not a cons.
+	(w3m-search-name-anchor, w3m-view-this-url-1): No arg to w3m-recenter.
+	(w3m-next-anchor, w3m-previous-anchor, w3m-next-form,
+	w3m-previous-form, w3m-next-image, w3m-previous-image): Don't
+	recenter, leave recentering just for following a link, not Tab etc
+	within the buffer.
+	(w3m-recenter): Remove NAME arg, believe don't need to differentiate
+	URLs with an anchor or not since with no anchor `point' is at the
+	start of the buffer and can't be recentered anyway.
+	Use C-u style "(recenter '(4))" for the `t' middle-of-screen case.
+	No need for code to avoid redisplay, `recenter' doesn't redisplay in
+	the integer or C-u cases.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Decode entities of name anchor.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-cache-available-p): Analyze the cache-control header more
+	strictly.
+	(w3m-scroll-up-or-next-url): Bind w3m-prefer-cache to `t' when goto
+	the w3m-next-url.
+	(w3m-scroll-down-or-previous-url): Bind w3m-prefer-cache to `t' when
+	goto the w3m-previous-url.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-reload-this-page): Add new argument `no-popup'; Call
+	w3m-goto-url() with the argument.
+	(w3m-goto-url-with-timer): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-make-item)
+	* w3m-cookie.el (w3m-cookie-create)
+	* w3m-dtree.el (w3m-dtree-expand-file-name, w3m-dtree-directory-name)
+	* w3m-form.el (w3m-form-normalize-action, w3m-form-p)
+	(w3m-form-set-method, w3m-form-put-property, w3m-form-field-parse)
+	(w3m-form-real-reset)
+	* w3m-hist.el (w3m-history-set-current)
+	* w3m-namazu.el (w3m-namazu-call-process)
+	* w3m-proc.el (w3m-process-p, w3m-process-kill-process)
+	(w3m-process-error-handler)
+	* w3m-session.el (w3m-session-history-to-save, w3m-session-make-item)
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items-1)
+	* w3m-util.el (w3m-get-buffer-create, w3m-kill-buffer)
+	(w3m-current-title, w3m-buffer-title, w3m-buffer-number)
+	(w3m-buffer-set-number, w3m-buffer-name-add-title)
+	(w3m-generate-new-buffer, w3m-lefttab-exist-p, w3m-righttab-exist-p)
+	(w3m-url-valid, w3m-time-newer-p, w3m-time-lapse-seconds)
+	(w3m-url-local-p, w3m-url-authinfo, w3m-url-strip-authinfo)
+	(w3m-url-strip-fragment, w3m-url-strip-query, w3m-which-command)
+	(w3m-assoc-ignore-case, w3m-unseen-buffer-p)
+	* w3m-xmas.el (w3m-make-glyph)
+	* w3m.el (w3m-clear-local-variables, w3m-copy-local-variables)
+	(w3m-arrived-p, w3m-arrived-put, w3m-arrived-get)
+	(w3m-url-transfer-encode-string, w3m-entity-value)
+	(w3m-decode-anchor-string, w3m-toggle-inline-images-internal)
+	(w3m-canonicalize-url, w3m-cache-header-delete-variable-part)
+	(w3m-w3m-canonicalize-url, w3m-view-this-url-1)
+	* mime-w3m.el (mime-w3m-setup): Don't use defsubst.
+
+	* w3m-hist.el (w3m-history-plist-put, w3m-history-remove-properties):
+	Don't inline w3m-history-add-properties.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-cache-available-p): Work around too large integer in
+	Cache-Control header.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Fix regexp used for stripping
+	localhost part; make url a Tramp name if it is guessed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Allow "file:/foo.html" in addition to
+	"file://foo.html" and "file:///foo.html".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-buffer): Use the time 0 as modtime of
+	the bookmark buffer by default.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Pass url to sentinel.
+	(w3m-recenter): Save excursion.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-recenter): New user option.
+	(w3m-recenter): New function.
+	(w3m-search-name-anchor, w3m-view-this-url-1, w3m-next-anchor)
+	(w3m-previous-anchor, w3m-next-form, w3m-previous-form, w3m-next-image)
+	(w3m-previous-image): Use it.
+
[phone]  Kevin Ryde  <[e-mail]>
+
+	* w3m.el (w3m-local-find-file-regexps): Make regexp-opt group regexps
+	explicitly.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-cache-available-p): The control of expire is added.
+	(w3m-w3m-retrieve-1): The case where the option "no_cache=1" is put has
+	been increased.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer-delete-buffer, w3m-goto-url)
+	(w3m-delete-buffers): Unqueue image retrieving process manually.
+	(w3m-idle-images-show): Widen narrowing.
+
+	* w3m-proc.el (w3m-process-stop): Don't unqueue image retrieving
+	process.
+
+	* w3m.el (w3m-message-silent): New variable.
+	(w3m-message): Use it: when the variable is `t', don't show a message.
+	(w3m-idle-images-show): Use it.
+	(w3m-w3m-dump-head): lexical-let it.
+	(w3m-w3m-dump-extra): Ditto.
+	(w3m-w3m-retrieve): Ditto.
+	(w3m-retrieve-and-render): Ditto.
+	(w3m-refresh-minimum-interval): New variable.
+	(w3m-check-refresh-attribute): Use it.
+	(w3m-view-previous-page): When visiting pages by history-back or
+	history-next, don't just ignore refresh, but wait for a while.
+	(w3m-idle-images-show): When there are events pended, re-create the
+	idle timer; Check current position's item every time loop starts.
+	(w3m-idle-images-show-unqueue): Set w3m-idle-images-show-timer
+	properly.
+	(w3m-arrived-add): Revert recent changes.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): lexical-let w3m-message-silent.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-arrived-add): If url has a multi-byte character, do not
+	do recursive-call itself. If decoded url does not have a multi-byte
+	character, do not do recursive-call itself.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-goto-url-with-timer): When going to the same url, use
+	`w3m-reload-this-page'.
+	(w3m-image-no-idle-timer): New variable.
+	(w3m-toggle-inline-images-internal): Use it.
+	(w3m-arrived-add): Add also decoded url.
+	(w3m-goto-url): Restore forms also when url is local.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-link-menu): Always provide title string.  Suggested by
+	David Abrahams <[e-mail]>.
+	Cf. <URL:http://news.gmane.org/group/gmane.emacs.w3m/thread=8126>.
+
[phone]  Victor Ren  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Support "file://c:/" in addition to
+	"file:///c:/".
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-parse-header): The value of w3m-document-charset is
+	not used excluding x-moe-internal.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): If context-charset is x-moe-internal,
+	x-moe-internal is used as charset regardless of w3m-type.
+	(w3m-w3m-parse-header): Add w3m-document-charset to handle of the
+	headers. If w3m-document-charset is x-moe-internal, charset sets to
+	x-moe-internal compulsorily. If x-w3m-content-encoding is exist, the
+	value of x-w3m-content-encoding is used as encoding method regardless
+	of w3m-type.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-slimmed-history-flat, w3m-history-slim): New
+	functions.
+
+	* w3m-session.el (w3m-session-history-to-save): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Require w3m-session instead of autoloading it.
+
+	* w3m-session.el: Don't require w3m; require w3m-util; silent warnings.
+	(w3m-session-select): Use w3m-get-buffer-create instead of
+	get-buffer-create to kill the session select buffer when quitting.
+
+	* w3m-util.el (w3m-delete-frames-and-windows): Delete frames if the
+	other windows visit buffers being related to emacs-w3m or the session
+	select buffer.
+	(w3m-replace-in-string): eval-and-compile.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Autoload w3m-go-to-linknum.
+	(w3m-lynx-like-map, w3m-info-like-map): Bind `C-c C-l' to it.
+	(w3m-mode): Mention w3m-go-to-linknum in doc string.
+
+	* w3m-util.el (w3m-read-number): New function.
+
+	* w3m-lnum.el (w3m-go-to-linknum): Use w3m-read-number.
+
[phone]  Jose A. Ortega Ruiz  <[e-mail]>
+
+	* w3m-lnum.el (w3m-go-to-linknum): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-session.el (w3m-session-ignore-errors): New macro.
+	(w3m-session-save, w3m-session-automatic-save)
+	(w3m-session-deleted-save, w3m-session-crash-recovery-save)
+	(w3m-session-crash-recovery-remove, w3m-session-select-mode)
+	(w3m-session-select, w3m-session-make-menu-items)
+	(w3m-session-last-autosave-session, w3m-session-last-crashed-session):
+	Use it.
+
+	(toplevel): Require cl when compiling.
+	(w3m-session-crash-recovery-save)
+	(w3m-session-select-list-all-sessions): Remove unused variables.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-session.el (w3m-session-last-crashed-session): Fix tiny typo.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-idle-images-show): If detect deleted buffer, unqueue
+	processes related to the buffer.
+
+	* w3m-session.el (w3m-session-crash-recovery): Change the default to t.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-buffer-setup): Add keymap that cycles buffers as usual to
+	mode-line-buffer-identification.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-view, w3m-bookmark-view-new-session)
+	(w3m-bookmark-make-menu-items): Check if bookmark file exists.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-header-line-insert): Don't decode url containing
+	non-ASCII characters already.  e.g. about://weather/WHERE
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Remove a wrong set-buffer().
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Offer decoded url in the minibuffer.
+	(w3m-copy-buffer): Copy w3m-current-coding-system.
+	(w3m-header-line-insert): Display decoded url.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-idle-images-show): Change the order of image retrieving.
+	(w3m-toggle-inline-images-internal): Use `w3m-idle-image-item'
+	text-property.
+	(w3m-goto-url): Add new argument `no-popup'.
+	(w3m-goto-url-with-timer): Call w3m-goto-url with `no-popup' nil.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Add new argument
+	`safe-regexp'.
+	(w3m-toggle-inline-images): Pass `safe-regexp' to
+	w3m-toggle-inline-images-internal when called non-interactively.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-proc.el: Autoload w3m-idle-images-show-unqueue when compiling.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-stop): Call `w3m-idle-images-show-unqueue'.
+
+	* w3m.el (w3m-idle-images-show-timer, w3m-idle-images-show-list)
+	(w3m-idle-images-show-interval): New variables.
+	(w3m-idle-images-show, w3m-idle-images-show-unqueue): New functions.
+	(w3m-toggle-inline-images-internal): Use them.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Add "application/x-pdf" content
+	type.
+
[phone]  Kevin Ryde  <[e-mail]>
+
+	* w3m.el (w3m-search-name-anchor): Return true meaning "found" if
+	point is already at the anchor position.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-session.el (w3m-session-last-autosave-session): Check if
+	autosaved sessions set exists before asking whether to load the last
+	sessions set; Search older sessions sets when the last sessions set
+	doesn't exist (maybe it is removed by user); Load autosaved sessions
+	set when w3m-session-load-last-sessions is non-nil.
+	(w3m-session-load-last-sessions): Fix docstring; Change `auto' to `t'.
+	(w3m-session-crash-recovery-title): New variable.
+	(w3m-session-load-crashed-sessions): Ditto.
+	(w3m-session-crash-recovery-save): New function.
+
+	* w3m.el (w3m-goto-url): Save sessions set for crash recovering.
+	(w3m-delete-buffer): Ditto.
+	(w3m): Load crashed sessions if necessary.  Suggested by Samuel Wales
+	<[e-mail]>.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Use new `w3m-balloon-help'
+	text-property for balloon help.
+	(w3m-fontify-images): Ditto and create help together href, alt and URL
+	of image.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-image-anchor): Fix docstring.
+	(toplevel): Fix w3m-image-anchor-face's alias.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Put the 'full alt text' on new
+	'w3m-image-alt' property.
+	(w3m-print-this-url): Print the content of 'w3m-image-alt'.
+
+	* w3m-util.el (w3m-image-alt): New macro.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/Makefile.in (.texi.info): Use --no-split.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m): Move last session restoring asking afterward, so that
+	the restoring wouldn't be avoided by w3m-input-url's input.
+
+	* w3m-session.el (w3m-session-last-autosave-session): Follow the above
+	change.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m): Check whether to load the last autosaved
+	sessions.  Suggested by Samuel Wales <[e-mail]>.
+
+	* w3m-session.el (w3m-session-automatic-keep-number): New variable.
+	Suggested by Samuel Wales <[e-mail]>.
+	(w3m-session-automatic-save): Use it.
+	(w3m-session-last-autosave-session): New function.
+	(w3m-session-load-last-sessions): New variable.
+
+	* w3m.el (w3m-image-anchor): New face.
+	(w3m-fontify-images): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-language): Allow the value like "Japanese (UTF-8)" of
+	current-language-environment.
+
+	* w3m-symbol.el (w3m-symbol): Ditto.
+
+	* w3mhack.el (w3mhack-makeinfo): Use locale-coding-system for Emacs to
+	encode Japanese messages.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-create-text-page, w3m-goto-url): Check if the url is
+	arrived before getting real-url.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (top): Add the variable definitions of
+	`w3m-tab-menubar-make-items-preitems' and `w3m-session-menu-items-pre'
+	to avoid byte-compile warnings.
+	(w3m-setup-menu): Move the postion of session menu.
+	(w3m-mouse-major-mode-menu): Add session menu.
+
+	* w3m-xmas.el (autoload): Add w3m-setup-session-menu.
+	(w3m-menu-on-forefront): Treat "Session" menu.
+	(w3m-setup-menu): Call `w3m-setup-session-menu'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer-mode-map): Bind `w3m-select-buffer-quit' to
+	C-g.
+
+	* w3m-session.el (w3m-session-select-mode-map): Bind
+	`w3m-session-select-quit' to C-g.
+
+	* w3m-form.el (w3m-form-input-select-keymap): Bind
+	`w3m-form-input-select-keymap' to C-g.
+	(w3m-form-input-map-keymap): Bind `w3m-form-input-map-exit' to C-g.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-session.el (w3m-session-select-mode-map): Add new key.
+	(w3m-session-select-mode): Modify doc-string.
+	(w3m-session-select-rename): New command.
+	(w3m-session-rename): New function.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (autoload): Add w3m-setup-session-menu.
+	(w3m-menubar): Moved session menu to w3m-session-menu-items.
+	(top): Call w3m-setup-session-menu.
+
+	* w3m-session.el: Change to use major mode; Add session menu.
+	(w3m-session-unknown-title): New option.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-compatible-encoding-alist): Add (gb2312 . gbk).
+
[phone]  David Engster  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-process): Reduce sit-for time.
+	(w3m-process-sentinel): Wait for process output (on Emacs only).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-show-redirection-error-information): Improve the
+	error message.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-next-anchor): Go to the first anchor when next
+	anchor is not found.
+	(w3m-previous-anchor): Go to the last anchor when previous anchor
+	is not found.
+	(w3m-url-encode-string): Encode SPC only when encode-space is
+	non-nil.
+
+	* w3m-form.el (w3m-form-make-form-data): Follow the above change.
+
+	* w3m.el (w3m-gmane-url-at-point): Ditto.
+	(w3m-canonicalize-url): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-make-ccl-coding-system): Use define-coding-system if
+	it is available.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-show-redirection-error-information): New function.
+	(w3m-retrieve-and-render): Use it.
+	(w3m-w3m-retrieve-1): Return 'redirection-exceeded if redirect counter
+	exceeded.
+	(w3m-w3m-retrieve): Return "X-w3m-error/redirection" if attr eq
+	'redirection-exceeded.
+	(w3m-w3m-attributes-1): Return dummy attribute if redirect counter
+	exceeded.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-same-window-p): New function.
+	(w3m-form-input-textarea): Use it.
+
+	* w3m.el (w3m-local-find-file-regexps): Try to open with emacs-w3m as
+	many types as possible.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Remove hidden anchors like "<a href=url> </a>".
+	cf. [emacs-w3m:10484]
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea): Use the whole current window
+	for the textarea when `same-window-buffer-names' contains the buffer
+	name "*w3m form textarea*"; simplify the window size calculation.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-w3m-parse-header): Also remove parameters when charset is
+	specified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-visited-file-modtime): New function.
+
+	* w3m-bookmark.el (w3m-bookmark-file-modtime): Just return result of
+	file-attributes().
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-check-rss): Support RSS2.0. Check also
+	items.
+	(w3m-antenna-alist): Update site-class if needed.
+
+	* w3m-bookmark.el (w3m-bookmark-buffer, w3m-bookmark-verify-modtime):
+	Replace visited-file-modtime with w3m-visited-file-modtime.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-view-header): Check if current page is source of
+	about:something.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-active-region-or-url-at-point): Take notice of the link
+	under the point as well; return the url of the current page by default
+	if the new optional argument `default=current' is given.
+	(w3m-input-url): Make w3m-active-region-or-url-at-point return the url
+	of the current page by default; modify the prompt string according to
+	whether there is an initial input.
+	(w3m-download, w3m-goto-url, w3m-goto-url-new-session): Simplify args
+	passed to w3m-input-url.
+	(w3m-view-this-url): Make w3m-active-region-or-url-at-point return the
+	url of the current page by default.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-italic): Make it be a underline face on a non-window
+	system by default.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal)
+	(w3m-resize-inline-image-internal): Confirm whether to retrieve
+	insecure image only once, or don't confirm it if
+	w3m-confirm-leaving-secure-page is nil.  Suggested by Dan Jacobson
+	<[e-mail]>.
+	(w3m-confirm-leaving-secure-page): Doc fix.
+
+	* w3mhack.el (w3mhack-makeinfo): Remove Emacs 19 stuff; remove TeX
+	directives first; don't call texinfo-mode.
+
[phone]  Akinori MUSHA  <[e-mail]>
+
+	* doc/emacs-w3m.texi (Image Variables): Fix syntax error.
+
+	* doc/emacs-w3m-ja.texi (Image Variables): Ditto.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-buffer-local-url): New constant variable.
+	(w3m-buffer-local-url-p): New function.
+	(w3m-goto-url): Also process buffer local url.
+	(w3m-region): Use w3m-buffer-local-url as url if it is not set.
+	(w3m-safe-view-this-url, w3m-mouse-safe-view-this-url): Check if url is
+	buffer local.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-download): Add doc string.
+	(w3m-lynx-like-map): Bind M-d key to w3m-download.
+	(w3m-mode): Add w3m-download to major mode info; clarify description of
+	w3m-download-this-url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-gmane-url-at-point): Return a url used for asking Gmane
+	for the thread that begins with the current article instead of the
+	whole thread if it is run on the Message-ID header.
+	(w3m-examine-command-line-args): Make it an alias to `(lambda nil)'
+	instead of `ignore' after it is run for the first time in order to
+	silence the byte compiler.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-use-favicon): Assume w3m-image.elc is always loaded.
+	(w3m-resize-inline-image-internal): Change it to a normal function from
+	an inline function; remove interactive.
+	(w3m-zoom-in-image, w3m-zoom-out-image): Error if ImageMagick's convert
+	program is not available; improve doc string.
+	(w3m-auto-show): Don't make the cursor position disappear after
+	executing beginning-of-buffer and end-of-buffer.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-about-header): Fixed typo.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-source, w3m-view-header): Save points positioned
+	last in pages.  Suggested by Dan Jacobson <[e-mail]>.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el: Bind w3m-image-default-background when compiling.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-restore-position): Run
+	w3m-after-cursor-move-hook after restoring cursor position.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-image-default-background): New variable.
+
+	* w3m-ems.el (w3m-create-image): Use it.
+	(w3m-initialize-graphic-icons): Check if xpm is available.  Reported by
+	Diego 'Flameeyes' Petten,Ar(B <[e-mail]>.
+
+	* w3m-filter.el (w3m-filter-wikipedia): Improve regexp.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Test if mule-version is
+	bound (XEmacs does not provide it).
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input, w3m-form-input-password): Process
+	readonly attribute.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Make it non-interactive.
+
+	* w3m-form.el (w3m-form-input-textarea): Make buffer unmodified when
+	user selected to reuse saved text; parse readonly attribute; kill newly
+	generated buffer when the reusing question aborted.
+	(w3m-form-textarea-info): Also provide readonly info.
+	(w3m-fontify-textareas): Parse readonly attribute.
+	(w3m-form-parse-and-fontify): Ditto.
+	(w3m-form-input): Ignore cursor moving while read from minibuffer.
+	(w3m-form-input-password): Ditto.
+	(w3m-form-input-file): Ditto.
+
+	* w3m.el (w3m-toggle-inline-image): Don't toggle images that are
+	outside of the region even if they are identical to the ones in the
+	region; don't do recursive call of itself; rearrange the source code.
+	(w3m-toggle-inline-images): Check whether images are safe even if it is
+	called with w3m-display-inline-images=t and force=t; rearrange the
+	source code.
+	(w3m-toggle-inline-images-internal): Add new optional argument:
+	`begin-pos' and `end-pos'. Only process region from `begin-pos' to
+	`end-pos'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-image): Work for an image in which there is
+	the region end within its anchor.  Reported by Dan Jacobson
+	<[e-mail]>.
+
+	* w3m-util.el (w3m-deactivate-region): Use zmacs-deactivate-region for
+	XEmacs.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Improve detection of utf-8
+	capability.
+	(w3m-search-engine-alist): Abolish `yahoo beta' entry; Improve `blog'
+	entry to work like `google' entry.
+
+	* w3m-session.el: Add coding cookie.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-submit-form-safety-check): New user option.  Suggested by
+	Dan Jacobson <[e-mail]>.
+	(w3m-submit-form): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-auto-show): Scrool horizontally after executing a search
+	command.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-header-line-title): Modify the doc-string.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer): Don't delete other windows.
+
+	* w3m-filter.el (w3m-filter-wikipedia): New function.
+	(w3m-filter-rules): Add w3m-filter-wikipedia.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Add coding cookie.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-detect-meta-charset): Use also ';' as delimiter.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-examine-command-line-args): Treat the null string given
+	as a url in the command line args as `w3m-home-page' or "about:".
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* doc/emacs-w3m.texi (Inline Images): Update.
+
+	* doc/emacs-w3m-ja.texi (Inline Images): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-readable-string): Don't decode url if it looks not to
+	have been encoded.
+	(w3m-current-longest-line): New variable.
+	(w3m-set-current-longest-line): New function.
+	(w3m-scroll-left, w3m-shift-left): Don't scroll the window endlessly;
+	beep if the window can't be scrolled any more.
+	(w3m-scroll-right, w3m-shift-right): Beep if the window can't be
+	scrolled any more.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google
+	search within EmacsWiki.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* README: Add information about how to create `configure' script.
+
+	* README.ja: Ditto.
+
+	* w3m.el (w3m-goto-url): Delayed encoding of fragment part.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-save-current-site-cookies): New function.
+	(w3m-cookie-save): Add optional argument "domain".
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-add-text-properties): New inline macro.
+	(mew-w3m-view-inline-image): Use `mew-w3m-add-text-properties'.
+	(mew-mime-text/html-w3m): Ditto.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-save): Make it interactive function.
+	(w3m-cookie-save-cookies): New variable.
+	(w3m-cookie-shutdown): Use it.
+
+	* w3m.el (toplevel): Shutdown cookie system when exiting emacs.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-shutdown): Fixed docstring.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-amazon): Fix string to search the body.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* doc/emacs-w3m-ja.texi: Update translation.
+
+	* w3m.el (w3m-goto-url): Use w3m-current-coding-system first to encode
+	url if available; Also encode name part when url is local.
+	(w3m-ignored-image-url-regexp): New variable.
+	(w3m-toggle-inline-images-internal): Don't display image whose url
+	match `w3m-ignored-image-url-regexp'.
+	(w3m-decode-entities, w3m-decode-entities-string): Replace
+	"(match-beginning 2)" with "(match-end 1)" to deal with emacs-21's
+	strange behavior.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Support Mixi with SSL.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: Fix Comments.
+	(texinfo-format-geq, texinfo-format-leq,): Support @geq and @leq.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Add rule for the site of Allatanys.
+	(w3m-filter-allatanys): New function.
+
+	* w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google
+	search within EmacsWiki. Add rule for Google Mobile Proxy.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (top): Add the variables definition of `w3m-bookmark-mode',
+	`w3m-bookmark-menu-items', `w3m-bookmark-menu-items-pre' and
+	`w3m-tab-menubar-make-items-preitems' avoid byte-compile warnings.
+	(w3m-rmouse-menubar): New user option.
+	(w3m-setup-menu): Add the setup of `w3m-rmouse-menubar'.
+	(w3m-mouse-major-mode-menu): Rewrite to use `w3m-rmouse-menubar'.
+	(w3m-link-menu): Add `w3m-external-view-this-url'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-turnoff-inline-images): New command.
+	(w3m-toggle-inline-images): If force is 'turnoff, turn off to display
+	images.
+	(w3m-menubar): Add w3m-turnoff-inline-images.
+	(w3m-lynx-like-map): Ditto.
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Fix custom type.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Support Google search
+	within EmacsWiki.  cf. [emacs-w3m:10067]
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-mouse-safe-view-this-url): Remove redundant confirmation
+	of whether to follow link.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-doc-view-content-types): New variable.
+	(w3m-doc-view): New function.
+	(w3m-create-page): Use it.
+	(w3m-content-type-alist): Add application/dvi.
+	(w3m-delete-buffer): Save windows layout.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-image.el (w3m-imagick-convert-program-available-p): Don't use
+	w3m-imagick-convert-data which may issue a warning when checking
+	whether the convert program supports png32.  cf. [emacs-w3m:10048]
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* doc/emacs-w3m.texi (Inline Images): Updated.
+
+	* doc/emacs-w3m-ja.texi (Inline Images): Ditto.
+
+	* w3m.el (w3m-toggle-inline-images): Only toggle in the region if
+	Transient Mark mode.
+	(w3m-toggle-inline-image): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-arrived-intern): Protect against null string.  It enables
+	url completion even for null string.  Suggested by Aota-san.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): New function.
+	(w3m-expand-url): Remove useless expanded path-name check.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install-lisp, install-icons, install-icons30): Quote
+	directory name that might contain whitespace.
+
+	* doc/Makefile.in (install): Ditto.
+
+	* aclocal.m4 (AC_PATH_LISPDIR): Ditto; always report prefix name.
+
+	* mkinstalldirs: Replace it with the 2006-05-11.19 version.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Don't expand icon's url when it is nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-safe-url-regexp): Add note to doc string.
+	(w3m-fontify): Hold the value of w3m-safe-url-regexp with the
+	w3m-safe-url-regexp text-property.
+	(w3m-toggle-inline-image, w3m-toggle-inline-images)
+	(w3m-safe-view-this-url, w3m-mouse-safe-view-this-url): Check whether
+	url is safe by comparing it with the value of the w3m-safe-url-regexp
+	text property; prompt a user to confirm whether to proceed.
+	(w3m-safe-toggle-inline-image, w3m-safe-toggle-inline-images): Abolish.
+	(w3m-minor-mode-command-alist): Map w3m-toggle-inline-image and
+	w3m-toggle-inline-images to themselves.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-search-name-anchor): Accept and optional argument
+	`no-record'.
+	(w3m-goto-url): Going other page's anchor, call
+	`w3m-search-name-anchor' with 3rd argument t.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea-coding-system): Revert.
+	(w3m-form-input-textarea): Set w3m-form-input-textarea-coding-system to
+	use in w3m-form-coding-system-accept-region-p.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-textarea-file-coding-system): New variable.
+	(w3m-form-input-textarea-save): Use it.
+	(w3m-form-input-textarea): Ditto.
+	(w3m-form-input-textarea-coding-system): Abolish.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-iframe): New function.
+	(w3m-filter-rules): Add rule for inserting link to the url iframe
+	displays.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-coding-system-accept-region-p): Abolish.
+
+	* w3m-ems.el (w3m-form-coding-system-accept-region-p): Use
+	select-safe-coding-system if unencodable-char-position is not
+	available.
+
+	* w3m-xmas.el (w3m-form-coding-system-accept-region-p): Use
+	decode-coding-string and encode-coding-string instead of
+	unencodable-char-position; Only warn coding-system problem.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-decode-string): Don't replace +'s with spaces.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-coding-system-accept-region-p): New function.
+	(w3m-form-input-textarea-save, w3m-form-input-textarea-set): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-session.el (w3m-session-goto-session): Go to the current w3m
+	buffer in data of session.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-session.el (w3m-session-history-to-save): New function.
+	(w3m-session-save): Also record history data.
+	(w3m-session-automatic-save, w3m-session-deleted-save): Ditto.
+	(w3m-session-select): Follow the format change.
+	(w3m-session-goto-session): Also restore history data.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-tabmenu.el (w3m-tab-menubar-force-update): New function.
+	(top): Register `w3m-tab-menubar-force-update' to
+	`w3m-display-functions'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Bind `w3m-move-unseen-buffer'.
+	(w3m-info-like-map): Ditto.
+	(w3m-buffer-unseen): New buffer local variable.
+	(w3m-set-buffer-unseen): New function.
+	(w3m-set-buffer-seen): Ditto.
+	(w3m-move-unseen-buffer): Ditto.
+	(w3m-remove-local-hook): Ditto.
+	(w3m-goto-url): Set buffer to unseen.
+	(w3m-select-buffer-generate-contents): Support `unseen'.
+
+	* w3m-util.el (top): Add the variable definition of `w3m-buffer-unseen'
+	to avoid byte-compile warnings.
+	(w3m-unseen-buffer-p): New inline macro.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items-1): Support `unseen'.
+
+	* w3m-ems.el (w3m-remove-local-hook): New function.
+	(w3m-tab-unselected-unseen): New face.
+	(w3m-tab-line): Support `unseen'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-mode): Set show-trailing-whitespace to nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-default-background): New user option.
+	(w3m-favicon-set-image): Don't set background color of favicon here.
+	(w3m-favicon-convert): Set the background color of favicon according to
+	w3m-favicon-default-background.
+
+	* w3m-ems.el (w3m-tab-line): Don't set the background color of favicon
+	here.
+
+	* w3m-image.el (w3m-imagick-identify-program): New user option.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-kill-stray-processes): Do not kill
+	process when the buffer associated to it is alive.
+	(w3m-process-sentinel): Do not call a handler when its parent
+	buffer have been killed.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-submit): Remove query part from the form's
+	action url when using get method.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-size): Change the value form into
+	the cons of WIDTH and HEIGHT.
+	(w3m-favicon-convert-args): New user option.
+	(w3m-favicon-convert): Pass it to convert.
+
+	* w3m-ems.el (w3m-tab-mouse-track-selected-tab): Follow change of
+	w3m-favicon-size.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-tab-line): Set the background color of favicon
+	for Emacs 22+.
+
+	* w3m-favicon.el (w3m-favicon-set-image): Ditto.
+
+	* w3m-image.el (w3m-imagick-convert-program-available-p): Check
+	whether the convert program supports the image type png32 for
+	Emacs 22+.
+	(w3m-imagick-convert-buffer, w3m-imagick-start-convert-buffer):
+	Use png32 if it is available.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-convert): Make last change revert.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-convert): Apply the background color
+	of header line or mode line to pixels of which the color is
+	transparent.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Canonicalize the url when it is called
+	non-interactively.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-name-anchor-from-hist): New buffer-local variable.
+	(w3m-clear-local-variables): Also clear w3m-name-anchor-from-hist.
+	(w3m-goto-url): Save and restoe w3m-name-anchor-from-hist.
+	(w3m-search-name-anchor): Record (point)s of before and after
+	following a name-anchor.
+	(w3m-view-previous-page): If possible, move back the cursor to the
+	point where it was before following name-anchors.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-y-or-n-p): Ignore space to avoid
+	answering y without intention.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url-new-session): Use
+	w3m-active-region-or-url-at-point.  Reported by Naohiro Aota.
+
+	* w3m-ems.el (w3m-create-image): Don't modify case-fold-search.
+
+	* w3m-xmas.el (w3m-create-image): Ditto; parse image data to
+	identify its type in the beginning position.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-extra, w3m-w3m-retrieve): Removed image
+	data type tests.
+
+	* w3m-xmas.el (w3m-create-image): Parse image data first, use
+	server's content-type when it failed to identify type.
+
+	* w3m-ems.el (w3m-create-image): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Fix google news entry.
+
+	* w3m-ems.el (w3m-create-image): Parse image data if it failed in
+	identifying type.
+
+	* w3m-xmas.el (w3m-create-image): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-resize-inline-image-internal): Validate image url.
+	Reported by Naohiro Aota <[e-mail]>.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Confirm retrieving
+	non-secure image.
+	(w3m-resize-inline-image-internal): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>,
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-retrieve-and-render): Permit leaving safe pages
+	without confirmation for several safe commands.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-symbol.el: Autoload w3m-mule-unicode-p when compiling.
+
+	* w3m-proc.el: Update the way to suppress compile warning for gensym.
+
[phone]  Trent W. Buck  <[e-mail]>
+
+	* w3m.el (w3m-confirm-leaving-secure-page): New user option.
+	(w3m-retrieve-and-render): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-use-japanese-menu): Default to nil for XEmacs 21.4 and
+	SXEmacs.
+	(w3m-link-map): New variable.
+	(w3m-fontify-anchors): Add menu to links.
+	(w3m-read-file-name): Don't use default file name if it is "".
+	(w3m-link-menu): Define.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-redisplay-with-charset): Strip first 'about://source/'
+	before setf w3m-arrived-content-charset.
+	(w3m-redisplay-and-reset): Ditto.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Add rule for the site of imepita.
+	(w3m-filter-imepita): New function.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-process): Preserve the current buffer
+	\(work around an Emacs bug\).
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-relationship-oddmuse-estimate): Follow new page layout.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-ucs-to-char): Alias to unicode-to-char, ucs-to-char,
+	or int-to-char.
+
+	* w3m-ems.el (w3m-ucs-to-char): Always define it.
+
+	* w3m.el (w3m-ucs-to-char): Abolish.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-module-list): Don't compile mew-w3m.el and
+	mew-shimbun.el if there is only the official Mew XEmacs package that is
+	extremely old.
+
+	* w3m-proc.el: Update the way to suppress compile warning for gensym.
+
+	* w3m-util.el (w3m-list-buffers): Check if w3m-fb-mode is bound.
+
+	* w3m.el (w3m-copy-buffer, w3m-mouse-major-mode-menu): Remove unused
+	let-bound variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install-lisp): Don't install w3m-ems.el for XEmacs and
+	w3m-xmas.el for GNU Emacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* *, doc/*: Fix expressions of the copyright notices.
+
+	* w3mhack.el (w3mhack-makeinfo): Don't split Info file to pieces.
+
+	* doc/emacs-w3m.texi, doc/emacs-w3m-ja.texi: Use @copying and
+	@insertcopying to put up the copyright notice.
+	(Coding convention of Shimbun): Don't use @itemx with @@multitable.
+
+	* doc/ptexinfmt.el (texinfo-copying-text, texinfo-copying)
+	(texinfo-insertcopying, texinfo-format-scan): Add them for old Emacsen.
+
+	* doc/Makefile.in (install): Remove installed *.info-[0-9] files;
+	install only *.info files.
+	(.texi.dvi): Don't specify "-l ja" to texi2dvi.
+	(clean): No need to remove *.info-[0-9] and *.info-[0-9][0-9] files.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-find-coding-system): Return symbol, not coding
+	system object.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-entity-regexp, w3m-entity-value): Accept case-insensitive
+	numeric character references.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-message): Work with XEmacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el: Bind w3m-use-title-buffer-name (see the comment).
+
+	* Makefile.in (very-slow): Add missing semicolon.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install-lisp): Don't install ChangeLog~.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-show-error-information): When emacs-w3m cannot find
+	host, set charset to us-ascii.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-show-decoded-url): Add entry for nikkei.co.jp.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Don't decode escaped URLs.
+	(w3m-toggle-inline-images-internal): Escape non-ASCII characters in the
+	URL of the image before retrieving it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-safe-view-this-url): When a function which is
+	specified by `w3m-goto-article-function' returns the
+	`w3m-goto-url' symbol, it falls back to emacs-w3m displaying
+	functions.  Cf. [emacs-w3m:09660]
+	(w3m-goto-article-function): Its comment is updated to follow the
+	above change.
+	(w3m-entity-value, w3m-decode-entities-string): Change to save
+	working memory.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-entity-regexp): Bind max-specpdl-size for old Emacsen.
+	(w3m): Revert 2007-09-19 change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* NEWS: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-examine-command-line-args): Don't pass negative number to
+	nthcdr.
+
+	* w3m-session.el (w3m-session-save, w3m-session-select): Use mapc
+	instead of mapcar.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Changes to stricten entities decoded by
+	`w3m-decode-entities'.
+	(w3m-entity-table, w3m-entity-reverse-table): New constants.
+	(w3m-entity-regexp): Stricten.
+	(w3m-entity-alist, w3m-entity-db, w3m-entity-db-size): Abolished.
+	(w3m-entity-value, w3m-decode-entities, w3m-decode-entities-string,
+	w3m-encode-specials-string): Rewritten to use the above constants.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: Support @fonttextsize, @textdegree.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-examine-command-line-args): Rewrite.
+	(w3m): Always call it; set the 2nd arg new-session when Emacs 21 or
+	XEmacs runs in the batch mode.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-examine-command-line-args): Inhibit Emacs head from
+	displaying startup screen when emacs-w3m runs in the batch mode;
+	improve parsing of arguments.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): Save the matched data surely.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Use "/" as path when it of base-uri is not
+	defined; Clear query of base-uri when empty query exist; Changes to
+	follow RFC3986.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): Use
+	mule-version to decide whether to redefine them.
+
+	* w3m.el: Use emacs-version instead of emacs-major-version to show the
+	version of Emacs that emacs-w3m doesn't support.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-local-file-type): Regard news:* urls as text/html.
+	(w3m-w3m-retrieve): Return nil if retrieving failed.
+	(w3m-show-error-information): Improve error message for news:* urls.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_PATH_EMACS): Improve expression of Emacs version.
+
+	* doc/ptexinfmt.el (ptexinfmt-broken-facility)
+	(ptexinfmt-defun-if-broken, ptexinfmt-defun-if-void)
+	(ptexinfmt-defvar-if-void): Don't use old-style backquotes.
+	(texinfo-format-cedilla-accent): Quote `,'.
+
+	* w3m-antenna.el (w3m-antenna-site-key, w3m-antenna-site-title)
+	(w3m-antenna-site-class, w3m-antenna-site-url)
+	(w3m-antenna-site-last-modified, w3m-antenna-site-size)
+	(w3m-antenna-site-size-detected): Don't use old-style backquotes.
+
+	* w3m-ccl.el (w3m-ccl-write-repeat, w3m-euc-japan-decoder)
+	(w3m-euc-japan-encoder, w3m-iso-latin-1-decoder)
+	(w3m-iso-latin-1-encoder): Don't use old-style backquotes.
+
+	* w3m-dtree.el (w3m-dtree-has-child): Don't use old-style backquotes.
+
+	* w3m-form.el (w3m-form-method, w3m-form-action, w3m-form-charlst)
+	(w3m-form-enctype, w3m-form-plist, w3m-form-get-property, w3m-form-put)
+	(w3m-form-get): Don't use old-style backquotes.
+
+	* w3m-namazu.el (w3m-namazu-default-index-customize-spec): Don't use
+	old-style backquotes.
+
+	* w3m-util.el (w3m-static-if, w3m-static-when, w3m-static-unless)
+	(w3m-condition-case, w3m-add-text-properties)
+	(w3m-get-text-property-around, w3m-action, w3m-anchor, w3m-image)
+	(w3m-submit, w3m-anchor-sequence): Don't use old-style backquotes.
+
+	* w3m.el (w3m-dirlist-cgi-program): Don't use old-style backquotes.
+
+	* w3mhack.el (char-before, match-string-no-properties)
+	(set-text-properties): Don't use old-style backquotes.
+
+	* w3m-filter.el: Set file's coding-system to euc-japan in order to
+	enable non-Mule XEmacsen to byte-compile this module.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (top): Remove unnecessary space at the line end.
+	(w3m-use-title-buffer-name): New option.
+	(w3m-copy-buffer): Use `w3m-generate-new-buffer' instead of
+	`generate-new-buffer'.
+	(w3m-pack-buffer-numbers): Call `w3m-form-set-number' with new name of
+	buffer.
+	(w3m-buffer-setup): Use `w3m-generate-new-buffer' instead of
+	`generate-new-buffer'.
+	(w3m-buffer-setup): Do not display title if w3m-use-title-buffer-name
+	is non-nil.
+	(w3m-modeline-title): Retrun "" if w3m-use-title-buffer-name is
+	non-nil.
+	(w3m-goto-url): Call `w3m-buffer-name-add-title' when display.
+	(w3m): Use `w3m-generate-new-buffer' instead of `generate-new-buffer'.
+	(w3m-use-header-line-title): New option.
+
+	* w3m-form.el (w3m-form-set-number): Change 2'nd argument to `newname'
+	from `count'.
+
+	* w3m-util.el (top): Add the variable definition of
+	`w3m-use-title-buffer-name' to avoid byte-compile warnings.
+	(w3m-buffer-number): Support the feature of buffer-name with title.
+	(w3m-buffer-set-number): Ditto.
+	(w3m-generate-new-buffer): Ditto.
+	(w3m-buffer-name-lessp): Ditto.
+	(w3m-buffer-name-add-title): New inline macro.
+
+	* w3m-ems.el (top): Add the variable definition of
+	`w3m-use-header-line-title' to avoid byte-compile warnings.
+	(w3m-setup-header-line): If `w3m-use-header-line-title' is not nil,
+	display title and URI.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-proc.el (top): Add the function definition of
+	`w3m-decode-coding-string-with-priority' to avoid byte-compile
+	warnings.
+
+	* w3m-ems.el (top): Add the variable definition of
+	`w3m-default-coding-system' and `w3m-coding-system' to avoid
+	byte-compile warnings.
+
+	* w3m-xmas.el (top): Add the variable definition of `w3m-coding-system'
+	to avoid byte-compile warnings.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Decode realm string.
+
+	* w3m.el (w3m-url-decode-string): Define latter half as a function :
+	w3m-decode-coding-string-with-priority ,and use it.
+
+	* w3m-ems.el (w3m-decode-coding-string-with-priority): New function.
+
+	* w3m-xmas.el (w3m-decode-coding-string-with-priority): Return string
+	itself unless find-coding-system is defined as built-in function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-uri-replace-alist): Add key of "alc:".
+	(w3m-relationship-estimate-rules): Add alc's rule.
+	(w3m-relationship-alc-estimate): New function.
+
+	* w3m-search.el (w3m-search-engine-alist): Add rule of
+	http://eow.alc.co.jp/.
+
+	* w3m-filter.el (w3m-filter-rules): Add w3m-filter-alc.
+	(w3m-filter-alc): New function. Supper `goFairWord'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-mailto-url): Make it work even with no rfc2368.el.
+
[phone]  Eugene Oleinik  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-google-separator): New user option.
+	(w3m-filter-google): Replace hard-coded ones with it.
+	(w3m-filter): Iterate through all cases in w3m-filter-rules.
+	(w3m-filter-replace-regexp): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-detect-xml-type): New function that treats
+	application/xml looking like xhtml+xml as text/html.
+	(w3m-content-type-alist): Use it for application/xml.
+	(w3m-w3m-parse-header): Parse Alternates header for a real url.
+	(w3m-w3m-retrieve-1): Retrieve real url according to Alternates header.
+	(w3m-external-view): Treat xhtml+xml as html.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el: Changes to download contents after submitting form.
+	(w3m-form-download): New variable.
+	(w3m-fontify-textareas, w3m-form-parse-and-fontify): Combine the above
+	variable into expressions which represent form actions.
+	(w3m-form-submit): Accept and optional argument `download'.
+
+	* w3m.el: Changes to download contents after submitting form.
+	(w3m-download): Accept and optional argument `post-data'.
+	(w3m-download-this-url): `w3m-form-download' is binded locally.
+	(w3m-view-this-url): Ditto.
+	(w3m-submit-form): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ucs.el (font-ccl-encoder-alist): Bind it for XEmacs 21.5.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Make Google rule support
+	images.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-session.el (w3m-session-select, w3m-session-selected): Add spec
+	for dark tty.
+	(w3m-session-select): Use read-key-sequence rather than read-event or
+	next-command-event in order to enable it to read arrow keys in tty.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-make-button): Make it work.
+
+	* w3m-ems.el (w3m-form-make-button): Work when w3m-form-use-fancy-faces
+	is nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-article-function): Change the default function into
+	browse-url; doc fix.
+	(w3m-safe-view-this-url): Catch a signal from function which is set to
+	w3m-goto-article-function, and don't run the default function if it is
+	nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-article-function): Use defcustom; doc fix.
+	(w3m-safe-view-this-url): Use functionp instead of fboundp to check the
+	value of w3m-goto-article-function.
+
+	* w3m-favicon.el, w3m-namazu.el, w3m-perldoc.el, w3m-xmas.el, w3m.el:
+	Use custom-set-default instead of set-default in defcustom forms.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-help-echo): Make the function for Emacs bind
+	deactivate-mark to nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el, w3m-form.el, w3m-lnum.el, w3m-search.el, w3m-session.el
+	* w3m.el: Rename w3m-FOO-face with w3m-FOO.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Format @key{...}.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map, w3m-info-like-map): Bind [backtab] to
+	w3m-previous-anchor.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-local-retrieve, w3m-w3m-retrieve, w3m-about-retrieve)
+	(w3m-cid-retrieve, w3m-data-retrieve, w3m-retrieve, w3m-about-header):
+	Change the term and the symbol name `no-decode' into `no-uncompress'.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Check if content-type is wrong after
+	decoding encoded contents.
+
+	* w3m-ems.el (w3m-create-image, w3m-create-resized-image): Decode
+	content retrieving image.
+
+	* w3m-xmas.el (w3m-create-image, w3m-create-resized-image): Ditto.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add output encoding argument
+	to google search.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-image.el (w3m-imagick-convert-program, w3m-resize-images): Reset
+	them if convert program is not really available.
+	(w3m-imagick-convert-program-available-p): New function.
+	(w3m-imagick-convert-buffer, w3m-imagick-start-convert-data): Use it.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m-image.el (w3m-imagick-start-convert-data): Clarify message which
+	is issued when convert program is not available.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-mixi): Follow the change of Mixi's HTML.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* attic/vm-w3m.el, attic/vm-7.19.patch: Remove.  They have been
+	integrated into VM 8.x.
+
[phone]  Tatsuya Kinoshita  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Check whether the marker buffer exists.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-switch-to-buffer, w3m-subst-switch-to-buffer-keys):
+	Remove.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Guard error in aref when url is "".
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Remove query strings when expanding URL like
+	"foo.cgi?#bar"; add "./" to top of URL when expanding "?hoge".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-switch-to-buffer): Work just like switch-to-buffer.
+	Suggested by Robert J. Chassell <[e-mail]>.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-encode-string, w3m-url-transfer-encode-string): Use
+	uppercase letters in hexadecimal string.  Suggested by Lukasz Demianiuk
+	<[e-mail]>.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-header-line-url): New function.
+	(w3m-url-at-point): Call w3m-header-line-url after
+	w3m-gmane-url-at-point.
+	(w3m-goto-url-with-timer): Execute w3m-goto-url if its buffer does not
+	exist foreground.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (all): Revert SHIRAI's 2007-04-24 changes and fix it to
+	accompany Ito-san's patch [w3m-dev 04233].
+	(w3m-display-ins-del): New option.
+	(w3m-support-emacs-w3m): Remove this variable.
+	(w3m-strike-through-face): Modify.
+	(w3m-insert-face): Ditto.
+	(w3m-strike-through-face-no-windowsystem): Remove this face.
+	(w3m-fontify-insert): Remove this variable.
+	(w3m-halfdump-command-arguments): Remove w3m-support-emacs-w3m.
+	(w3m-halfdump-command-common-arguments): Add w3m-display-ins-del
+	support.
+	(w3m-fontify-strike-through): Rewrite.
+	(w3m-fontify-insert): Ditto.
+	(w3m-set-display-ins-del): New function.
+	(w3m-rendering-half-dump): Call w3m-set-display-ins-del.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-resume): Also resume contents of forms without
+	name.
+	(w3m-fontify-textareas): Also fontify textareas without name.
+	(w3m-form-field-parse): Also parse form fields without name.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Use w3m-url-transfer-encode-string
+	instead of w3m-url-encode-string.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url): Check if w3m-current-url is string before
+	matching.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Fully decode a source by default.
+	(w3m-view-source): Doc fix.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Redisplay to search an anchor sure with
+	goto-new-session.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-source-decode-level): New variable.
+	(w3m-decode-buffer): Control how much it decodes an html source
+	according to w3m-view-source-decode-level.
+	(w3m-view-source): Bind w3m-view-source-decode-level with prefix arg.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Encode urls containing non-ASCII
+	characters quoted with '' as well as those quoted with "".
+	(w3m-goto-url): Decode urls when url is local.
+
+	characters when displaying an html source.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Use charset specified in meta tag even
+	for decoding html source.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install-lisp): Install shimbun/ChangeLog file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-support-emacs-w3m): New variable.
+	(w3m-compile-options): Set w3m-support-emacs-w3m to t if w3m compiled
+	with emacsdump.
+	(w3m-strike-through-face-no-windowsystem): New face.
+	(w3m-halfdump-command-arguments): Use '-emacsdump' instead of
+	'-halfdump' when w3m has it.
+	(w3m-fontify-strike-through): Support w3m-support-emacs-w3m.
+	(w3m-fontify-insert): Ditto.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Set truncate-lines to nil, if a source or
+	header view.
+	(w3m-view-source): Remove to set truncate-lines.
+	(w3m-view-header): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* ChangeLog, ChangeLog.1: Separate shimbun entries.
+	(Local Variables): Set fill-column to 79.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea-filename): Use MD5 first.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea-filename): Truncate filename
+	into less than or equal to 255 bytes long.
+
[phone]  Matt Hodges  <[e-mail]>
+
+	* w3m.el (w3m-next-buffer): Fix last change when w3m-fb-mode.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-parent-page): Use numbered prefix argument to move
+	the parent directory according to input number.
+
[phone]  Andreas Seltenreich  <[e-mail]>
+
+	* w3m.el (w3m-external-view-file): Actually kill the temporary buffer.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-ems.el (w3m-tab-mouse-track-selected-tab): Sleep anyway.
+	(w3m-tab-make-keymap): Add key-bindings for mouse wheel-up|down to
+	w3m-mode-map.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug-system-informations): Add gtk.
+	(report-emacs-w3m-bug): Bind print-quoted to t.
+
+	* w3m-ems.el (w3m-force-window-update): Do split-window-vertically
+	instead of performing enlarge-window/shrink-window for Emacs 21.
+	(w3m-tab-mouse-track-selected-tab): Add `decelerate' argument; use it
+	instead of to check the value of this-command.
+	(w3m-tab-move-right): Set it.
+	(w3m-tab-make-keymap): Rearrange.
+	(w3m-update-tab-line): Remove.
+
+	* w3m.el (w3m-select-buffer-update): Use w3m-force-window-update
+	instead of w3m-update-tab-line.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-ems.el (w3m-tab-mouse-track-selected-tab): Tiny fix.
+	(w3m-tab-make-keymap): Use next|previous-buffer-action instead of
+	w3m-tab-next|previous-buffer.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-tab-mouse-track-selected-tab): Ignore mouse position
+	info if mouse points to other frame; recognize wheel-up and wheel-down
+	in addition to mouse-4 and mouse-5; don't respond to too fast operation
+	of mouse wheel for moving a tab.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-tab-track-mouse): New variable.
+	(w3m-tab-mouse-position-adjuster): Express the values in pixel units
+	rather than the number of characters.
+	(w3m-tab-mouse-track-selected-tab): Be controlled by
+	w3m-tab-track-mouse; calculate the mouse position in pixel units rather
+	than the number of characters.
+	(w3m-tab-make-keymap): Make the buffer selected by a tab the current
+	buffer before performing w3m-tab-move-(left|right).
+	(w3m-tab-separator-map): New keymap.
+	(w3m-tab-separator): Use it as the local-map property.
+	(w3m-tab-line): Use it as the local-map property in trailing space.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el (w3m-tab-unselected-face)
+	(w3m-tab-unselected-retrieving-face, w3m-tab-selected-face)
+	(w3m-tab-selected-retrieving-face, w3m-tab-mouse-face): Make background
+	colors bright.
+	(w3m-tab-mouse-position-adjuster): New variable.
+	(w3m-tab-mouse-track-selected-tab, w3m-tab-next-buffer)
+	(w3m-tab-previous-buffer, w3m-tab-move-right, w3m-tab-move-left): New
+	functions.
+	(w3m-tab-map): Bind C-wheel-up and C-mouse-4 to w3m-tab-move-left; bind
+	C-wheel-down and C-mouse-5 to w3m-tab-move-right; use
+	w3m-tab-previous-buffer and w3m-tab-next-buffer instead of
+	w3m-previous-buffer and w3m-next-buffer.
+	(w3m-tab-separator): Add tab-separator property.
+
+	* w3m.el (w3m-next-buffer): Fix calculation.
+	(w3m-lynx-like-map, w3m-info-like-map): Bind `C-c C-,' and `C-c C-<' to
+	w3m-tab-move-left, and bind `C-c C-.' and `C-c C->' to
+	w3m-tab-move-right for GNU Emacs.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-add-tab-number): New user option.
+
+	* w3m-ems.el (top): Add w3m-add-tab-number to avoid byte-compile
+	warnings.
+	(w3m-tab-line): Display sequential number on tab title when
+	w3m-add-tab-number is not nil.
+
+	* w3m.el (w3m-menubar): Add w3m-session-save and w3m-session-select.
+	(w3m-tab-button-menu-commands): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ems.el: New file merging w3m-e21.el, w3m-e23.el and w3m-fsf.el.
+	(image-size): No need to silence the byte compiler.
+	(w3m-ccl-get-ucs-codepoint-with-emacs-unicode): Remove.
+	(w3m-euc-japan-encoder, w3m-euc-japan-encoder)
+	(w3m-iso-latin-1-encoder, w3m-iso-latin-1-encoder): Redefine them only
+	for Emacs 22 and earlier.
+
+	* w3m-e21.el, w3m-e23.el, w3m-fsf.el: Remove.
+
+	* w3m.el: Load w3m-ems.el instead of w3m-e21.el or w3m-e23.el.
+	(w3m-fontify-strike-through): Remove variable.
+
+	* w3mhack.el (w3mhack-mdelete): Remove.
+	(w3mhack-module-list): Use w3m-ems.el instead of w3m-fsf.el and
+	w3m-e21.el or w3m-e23.el.
+
+	* Makefile.in (tarball): No need to exclude w3m-e23.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_SET_XEMACSDEBUG): Fix the way to quote the value of
+	XEMACSDEBUG.  Reported by Norbert Koch <[e-mail]>.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_SET_XEMACSDEBUG): Quote VANILLA_FLAG.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_SET_XEMACSDEBUG): New function; set XEMACSDEBUG
+	environment variable, which is eval'd when XEmacs 21.5 starts, to the
+	Lisp form, which sets `log-warning-minimum-level' to `error', in order
+	to suppress warnings for Lisp shadows when XEmacs 21.5 starts.
+	(AC_PATH_EMACS): Run AC_SET_XEMACSDEBUG.
+	(AC_EMACS_LISP, AC_ADD_LOAD_PATH): Use XEMACSDEBUG.
+
+	* Makefile.in (XEMACSDEBUG): New variable.
+	(lisp, what-where, install-package, install-package-ja, dist)
+	(.el.elc, slow, very-slow): Use it.
+
+	* doc/Makefile.in (XEMACSDEBUG): New variable.
+	(EMACSINFO, version.texi, install-en, install-ja): Use it.
+
+	* w3mhack.el: Reset `log-warning-minimum-level' to `info'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-session.el (w3m-session-deleted-save): Sort buffers to use their
+	name.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (autoload): Add w3m-session-deleted-save.
+	(w3m-delete-buffer): Call w3m-session-deleted-save.
+	(w3m-delete-other-buffers): Call w3m-delete-buffers instead of piece of
+	code.
+	(w3m-delete-buffers): Call w3m-session-deleted-save.
+
+	* w3m-session.el (w3m-session-deleted-save): New option.
+	(w3m-session-deleted-title): Ditto.
+	(w3m-session-deleted-keep-number): Ditto.
+	(w3m-session-deleted-save): New function.
+	(w3m-session-select): Display URLs.
+	(w3m-session-select): Add key assignment; `k' and `j'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug): Use a new buffer to compose a mail
+	if at least mail-user-agent is sendmail-user-agent that is the default.
+	cf. http://article.gmane.org/gmane.emacs.devel/67501
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-load-file): Advise make-autoload to
+	support define-minor-mode if it should be necessary.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-async-exec-with-many-urls): New variable; default to t
+	except for XEmacs 21.5.
+	(w3m-goto-url): Bind w3m-async-exec to nil when retrieving group:* urls
+	if w3m-async-exec-with-many-urls is nil.
+
+	* w3m-session.el (w3m-session-goto-session): Bind w3m-async-exec to nil
+	if w3m-async-exec-with-many-urls is nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-session.el (w3m-session-select): Use next-command-event and
+	event-key for XEmacs with checked surely.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-session.el (w3m-session-automatic-save): Remove unused vars.
+	(w3m-session-select): Use next-command-event for XEmacs; clear the echo
+	area after entering command.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (autoload): Add w3m-session-select, w3m-session-save and
+	w3m-session-automatic-save.
+	(w3m-lynx-like-map): Add w3m-session-select and w3m-session-save to
+	map.
+	(w3m-info-like-map): Ditto.
+	(w3m-arrived-shutdown-functions): Add w3m-session-automatic-save.
+	(w3m-quit): Call w3m-session-automatic-save.
+
+	* w3m-session.el: New file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Add rules for the site of Amazon
+	and Mixi.
+	(w3m-filter-amazon-regxp): New option.
+	(w3m-filter-amazon-short-url-bottom): Ditto.
+	(w3m-filter-google): Add doc-string.
+	(w3m-filter-amazon): New function.
+	(w3m-filter-mixi): New function.
+
[phone]  Tatsuya Kinoshita  <[e-mail]>
+
+	* Makefile.in, doc/Makefile.in (clean): Remove doc/version.texi.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Improve further regexp matching urls
+	containing non-ASCII characters.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Improve regexp matching urls containing
+	non-ASCII characters.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Encode urls containing non-ASCII
+	characters.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-decode-entities): Don't decode things like entities in
+	forms of the text or the select type having the name property.
+
[phone]  Naohiro Aota  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Don't delete things like tags in forms of
+	type=text as well as of type=textarea.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-arrived-intern): New macro, that normalizes urls by
+	stripping last `/'s.
+	(w3m-arrived-add, w3m-arrived-p, w3m-arrived-time)
+	(w3m-arrived-put, w3m-arrived-get): Use it.
+	(w3m-create-text-page): Make sure to set w3m-current-title.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Added
+	`w3m-relationship-slashdot-estimate'.
+	(w3m-relationship-slashdot-estimate): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-menu-on-forefront): New variable.
+	(w3m-setup-menu): Use it.
+
+	* w3m-e21.el (w3m-menu-on-forefront): New function.
+
+	* w3m-xmas.el (w3m-menu-on-forefront): New function.
+	(w3m-setup-menu): Use it.
+
+	* w3m-bookmark.el (w3m-setup-bookmark-menu): Don't arrange the order of
+	the menu items here.
+	* w3m-tabmenu.el (w3m-setup-tab-menu): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in, doc/Makefile.in: Add datarootdir setting that is
+	required for newer autoconfs.
+
+	* w3m.el (w3m-lynx-like-map, w3m-info-like-map): Use (featurep 'gtk)
+	instead of (boundp 'gtk-version-string); use down-mouse-3 instead of
+	mouse-3, and bind drag-mouse-3 and mouse-3 to undefined for GTK Emacs.
+
+	* w3m-e21.el (w3m-use-toolbar)
+	(w3m-toolbar-icon-preferred-image-types): Use (featurep 'gtk) instead
+	of (boundp 'gtk-version-string).
+	(w3m-toolbar-configurations): Select frame visiting buffer which is
+	about to apply configurations; use (featurep 'gtk) instead of \(boundp
+	'gtk-version-string); enable it for GTK Emacs; exclude
+	auto-resize-tool-bars and auto-raise-tool-bar-buttons.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-clean-hook-options): Remove.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-search.el (w3m-search-read-query): Check that face property is
+	`list' to avoid argument error.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-define-w3m-make-ccl-coding-system): Rename from
+	w3m-xmas-define-w3m-make-ccl-coding-system.
+	(w3m-toolbar-make-buttons): Rename from w3m-xmas-make-toolbar-buttons.
+	(w3m-define-missing-widgets): Rename from
+	w3m-xmas-define-missing-widgets.
+	(w3m-show-current-title-in-buffer-tab): Rename from
+	w3m-xmas-show-current-title-in-buffer-tab.
+	(w3m-setup-tab-in-gutter): Rename from w3m-xmas-setup-tab-in-gutter.
+	(w3m-update-tab-in-gutter): Rename from w3m-xmas-update-tab-in-gutter.
+
+	* w3m-e21.el (w3m-toolbar-icon-preferred-image-types)
+	(w3m-toolbar-icon-preferred-image-types): Use w3m-update-toolbars
+	instead of w3m-setup-toolbar.
+	(w3m-toolbar-configurations): Rename from
+	w3m-e21-toolbar-configurations; make it customizable for LUCID Emacs.
+	(w3m-toolbar-define-keys): Rename from w3m-e21-setup-toolbar; don't
+	apply w3m-toolbar-configurations here.
+	(w3m-toolbar-make-buttons): Rename from w3m-e21-make-toolbar-buttons.
+	(w3m-toolbar-set-configurations): New function.
+	(w3m-setup-toolbar): Remove force argument; apply
+	w3m-toolbar-configurations here.
+	(w3m-update-toolbars): New function.
+	(w3m-switch-to-buffer): Rename from w3m-e21-switch-to-buffer.
+	(w3m-subst-switch-to-buffer-keys): Rename from
+	w3m-e21-subst-switch-to-buffer-keys.
+
+	* w3m.el (w3m-message): Clear previous message only if it is longer
+	than the window width and running Emacs 22 and greater.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-toolbar-icon-preferred-image-types)
+	(w3m-toolbar-use-single-image-per-icon): New variables.
+	(w3m-find-image): New function.
+	(w3m-xmas-make-toolbar-buttons): Use it; add force argument.
+	(w3m-setup-toolbar): Use it; add force and buffer arguments.
+	(w3m-initialize-graphic-icons): Use it.
+
+	* w3m-e21.el (w3m-toolbar-icon-preferred-image-types)
+	(w3m-toolbar-use-single-image-per-icon): Apply customized value to tool
+	bar immediately.
+	(w3m-e21-make-toolbar-buttons, w3m-setup-toolbar): Add force arg.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* icons/*.png, icons30/*.png: New files.
+
+	* Makefile.in (install-icons, install-icons30): Install png files.
+
+	* w3mhack.el (w3mhack-nonunix-install, w3mhack-make-package): Install
+	png files.
+	(w3mhack-what-where): Update for png files.
+
+	* w3m-e21.el (w3m-use-toolbar): Check whether tool-bar and
+	gtk-version-string are available.
+	(w3m-toolbar-icon-preferred-image-types)
+	(w3m-toolbar-use-single-image-per-icon): New variables.
+	(w3m-find-image): New function.
+	(w3m-e21-make-toolbar-buttons, w3m-setup-toolbar)
+	(w3m-initialize-graphic-icons): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-arguments): Generate the right values
+	for non-Mule XEmacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-message): Clear previous message first.  Suggested by
+	David Hansen <[e-mail]>.
+
[phone]  Friedrich Delgado Friedrichs  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-ssl-passphrase): New variable.
+	(w3m-process-filter): Enable w3m to authenticate itself with a client
+	certificate.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el: Autoload iswitchb-read-buffer when compiling.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-e21-switch-to-buffer): Add iswitchb-mode support.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-modeline-title): Don't use w3m-force-window-update which
+	obstructs viewing of large images.  Reported by Chris Moore
+	<[e-mail]>.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Add rule for the site of Google.
+	(w3m-filter-google-use-utf8): New user option.
+	(w3m-filter-google-use-ruled-line): Ditto.
+	(w3m-filter-google): New function.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Fix amazon entry.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_EXAMINE_PACKAGEDIR): Check for
+	(early|late|last)-package-hierarchies as well as
+	(early|late|last)-packages; prefer them to configure-package-path.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el: Changes to create a new session after submitting form.
+	(w3m-form-new-session): New variable.
+	(w3m-fontify-textareas, w3m-form-parse-and-fontify): Combine the above
+	variable into expressions which represent form actions.
+	(w3m-form-submit): Accept and optional argument `new-session'.
+
+	* w3m.el: Changes to create a new session after submitting form.
+	(w3m-submit-form): Accept and optional argument `new-session'.
+	`w3m-form-new-session' is binded locally.
+	(w3m-view-this-url): `w3m-form-new-session' is binded locally.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-parent-page): Add prefix argument `TOP'. If TOP is
+	non-nil, visit the top of this site."
+	(w3m-parent-page-available-p): Fix regexp.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* patches/README: Update.
+	* patches/italic-text.patch: New file.
+	* patches/dot-domain.patch: New file.
+	* patches/file-progress.patch: Renew.
+	* patches/w3m-0.2.1-inu-1.5-solaris-xemacs.patch: Remove.
+	* patches/no-proxy.patch: Remove.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-italic-face): New face.
+	(w3m-fontify-italic): New function.
+	(w3m-fontify): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (w3m-mail-compose-with-mew): Refrain handling of
+	`current-prefix-arg'.
+
[phone]  Ren Lifeng  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-1-acceptable-p): Accept cookie whose domain
+	attribute is ".foo.barz.bar" from host "foo.barz.bar".
+	(w3m-cookie-retrieve): Send cookie whose domain attribute is
+	".foo.barz.bar" when requesting host "foo.barz.bar".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-compose-with-vm): Require vm-startup.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-compose-with-semi): Require mime-edit.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Support for google code
+	search added.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el, w3m-bookmarks.el, w3m-search.el: Remove misadded Luca Capello
+	from the Authors field.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-compatible-encoding-alist): Add iso-8859-8/windows-1255
+	and iso-8859-9/windows-1254.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-compose-with-vm): Treat source as binary data
+	for images; encode source according to charset; use mail-send-actions
+	to kill source buffer.
+	(w3m-mail): Examine charset when the page is displayed normally.
+
+	* w3m-util.el (w3m-coding-system-to-mime-charset): Rename to
+	w3m-coding-system-to-charset and move to w3m.el
+
+	* w3m.el (w3m-coding-system-to-charset): Move from w3m-util.el.
+	(w3m-buffer): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-mail-user-agents): Add vm-user-agent.
+
+	* w3m-mail.el (w3m-mail-user-agent-compose-function-alist): Add
+	vm-user-agent.
+	(w3m-mail-compose-with-vm): New function.
+	(w3m-mail-goto-body-and-clear-body): New function.
+	(w3m-mail-position-point): New function.
+	(w3m-mail-compose-with-mml, w3m-mail-compose-with-semi): Use them.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (w3m-mail-compose-with-mew): Handle coding-system and
+	charset accurately. When call with `current-prefix-arg', try to use
+	existing draft buffer.
+
+	* w3m-mail.el (w3m-mail): Bind `w3m-history-reuse-history-elements' to
+	'reload.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-compose-with-semi): Handle types other than
+	text/html as well. Decide the charset when the charset is nil though
+	the content-type is a text.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-compose-with-mml): Treat source as binary data
+	for images (we will probably have to do so for some more types); pass
+	content-type argument to MML.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-mail-user-agents): Add mew-user-agent.
+
+	* w3m-mail.el (top): Autoload w3m-mail-compose-with-mew
+	(w3m-mail-user-agent-compose-function-alist): Add mew-user-agent.
+	(w3m-mail-compose-with-mml): Add `content-type' argument
+	(w3m-mail-compose-with-semi): Ditto.
+	(w3m-mail): Handle `content-type' and `about://header/'.
+
+	* mew-w3m.el (w3m-mail-compose-with-mew): New function.  Add
+	`content-type' argument and handle it.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-user-agent-compose-function-alist): Add
+	wl-user-agent.
+	(w3m-mail-compose-with-semi): New function.
+
+	* w3m.el (w3m-mail-user-agents): Add wl-user-agent.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-coding-system-to-mime-charset): New function.
+
+	* w3m-mail.el (w3m-mail-compose-with-mml): Bind gnus-newsgroup-name to
+	nil while composing mail if gnus-user-agent is used instead of removing
+	X-Draft-From header.
+	(w3m-mail): Use w3m-coding-system-to-mime-charset.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-mail.el (w3m-mail-compose-with-mml): Remove X-Draft-From header;
+	make charset argument a string.
+	(w3m-mail): Make charset argument to be passed to composer a symbol.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-mail.el: New file.
+
+	* w3m.el: Autoload w3m-mail.
+	(w3m-mail-user-agents): New variable.
+	(w3m-menubar): Add w3m-mail.
+
[phone]  Luca Capello  <[e-mail]>
+
+	* w3m-search.el (w3m-search-new-session): New command.
+	(w3m-search-read-variables): Ditto.
+	(w3m-search-do-search): Ditto.
+	(w3m-search): Rewrite to use the new commands above; add myself to the
+	authors list.
+
+	* w3m.el (autoload): Add w3m-search-new-session.
+	(w3m-menubar): Add w3m-search-new-session.
+	(w3m-info-like-map): Add w3m-search-new-session at the place of the
+	called-interactively w3m-search to be compliant with the other
+	*-new-session key-bindings.
+	(w3m-mode): Add description of w3m-search-new-session to docstring.
+
[phone]  Luca Capello  <[e-mail]>
+
+	* w3m-bookmark.el: Add myself to the authors list, forgotten when
+	submitting the patch for w3m-bookmark-view-new-session.
+
+	* w3m.el: Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-make-keymap): Support mouse wheel on the tab.
+
+	* w3m-e23.el (w3m-tab-make-keymap): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-fb.el: Bind w3m-delete-buffer, w3m-fb-frame-parameter,
+	w3m-list-buffers, w3m-next-buffer, and w3m-pop-up-frames when
+	compiling.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Changed freshmeat URL
+	regexp.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map, w3m-info-like-map): Don't bind M-g key
+	because Emacs 22 uses it as a prefix command in global map.  Suggested
+	by David Hansen <[e-mail]>.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Instruct explicitly Google
+	to return English pages for google-en.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-default-directory): New variable.
+	(w3m-current-directory): Use it.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-local-find-file-regexps): Default to '(nil
+	. "\\.[sx]?html?\\'").
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-enable-google-feeling-lucky): New variable.
+	(w3m-input-url): Disable the Google feeling lucky feature if it is nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-show-decoded-url): Add entry for ohmynews.co.jp.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-relationship-search-patterns): Call
+	`w3m-decode-anchor-string' in order to decode "&amp;" in anchor
+	strings.
+	(w3m-relationship-freshmeat-estimate): Removed.
+	(w3m-relationship-estimate-rules): Use
+	`w3m-relationship-simple-estimate' instead of the above, to simplify
+	related codes.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m.el (w3m-relationship-oddmuse-estimate): New function.
+	(w3m-relationship-freshmeat-estimate): New function.
+	(w3m-relationship-estimate-rules): Fixed regexp for google groups.
+	Added above new functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-truncate-string): Don't autoload mule-util.el.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items-precbuf): New internal
+	variable.
+	(w3m-tab-menubar-make-items-prebuflst): Ditto.
+	(w3m-tab-menubar-make-items-preurl): Ditto.
+	(w3m-tab-menubar-make-items-preitems): Ditto.
+	(w3m-tab-menubar-make-items): Set an use previous variables to used for
+	the speed improvement.
+
+	* w3m-util.el (w3m-make-menu-commands-keys): New internal variable.
+	(w3m-make-menu-commands): Set and use `w3m-make-menu-commands-keys to
+	used for the speed improvement.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* attic/rfc2368.el: Copy from Emacs 22; modify rfc2368-unhexify-string
+	to work with both Emacs and XEmacs.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Set 5th argument of `w3m-copy-buffer'
+	to `w3m-new-session-in-background'.
+	(w3m-copy-buffer): Add `background' argument. When URL is null and
+	`background' is not non-nil, stay the current buffer.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-read-query): Ignore page title only in
+	w3m-mode buffers.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-read-query): Assume there's not only a list
+	of faces but also just a face.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Create empty w3m buffer when url is not
+	set.  Cause error on meaningless combination of arguments.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-selected-background-face): New face.
+	(w3m-tab-separator): Put `mouse-face' for the shape of a mouse button.
+	(w3m-tab-line): Ditto.
+
+	* w3m-e23.el (w3m-tab-selected-background-face): New face.
+	(w3m-tab-separator): Put `mouse-face' for the shape of a mouse button.
+	(w3m-tab-line): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-tab-button-menu-commands): Disable same items if
+	`w3m-tab-button-menu-current-buffer' is nil.
+	(w3m-tab-button-menu2): New function.
+
+	* w3m-e21.el (top): Add the variables and function to avoid
+	byte-compile warnings.
+	(w3m-tab-drag-mouse-function): Support drag & drop to out of the
+	frame. Don't call `bury-buffer'.
+	(w3m-tab-click-mouse-function): Don't call `bury-buffer'.
+	(w3m-tab-double-click-mouse1-function): new function.
+	(w3m-tab-double-click-mouse2-function): Ditto.
+	(w3m-tab-make-keymap): Add some methods.
+
+	* w3m-e23.el (top): Add the variables and function to avoid
+	byte-compile warnings.
+	(w3m-tab-drag-mouse-function): Support drag & drop to out of the
+	frame. Don't call `bury-buffer'.
+	(w3m-tab-click-mouse-function): Don't call `bury-buffer'.
+	(w3m-tab-double-click-mouse1-function): new function.
+	(w3m-tab-double-click-mouse2-function): Ditto.
+	(w3m-tab-make-keymap): Add some methods.
+
+	* w3m.el (w3m-tab-button-menu-commands): Change position some items.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-widget-type-convert-widget): New function.
+
+	* w3m.el (w3m-home-page, w3m-new-session-url)
+	(w3m-uri-replace-alist): Use it.
+
+	* w3m-dtree.el (w3m-dtree-indent-strings, w3m-dtree-stop-strings): Use
+	it.
+
+	* w3m-symbol.el (w3m-symbol-custom-type): Use it.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m.el (autoload): `w3m-bookmark-view-new-sessiont' ->
+	`w3m-bookmark-view-new-session'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-home-page): Rewrite :convert-widget function.
+	(w3m-new-session-url): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-new-session-url): Doc fix; improve custom type.
+	(w3m-new-session-in-background): Doc fix.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-new-session-url): Rename from
+	`w3m-tab-button-new-session-url'.
+	(w3m-tab-button-focus-new-tab): Delete.
+	(w3m-view-this-url-new-session-in-background): This option sets
+	obsolete.
+	(w3m-new-session-in-background): New option.
+	(w3m-menubar): Change and add Some items.
+	(w3m-copy-buffer): If call-interactively, set `just-copy' to `t'.  If
+	`w3m-new-session-in-background' and `just-copy' is non-nil, swith to
+	original buffer when finished.
+	(w3m-lynx-like-map): Add `w3m-bookmark-view-new-session'.
+	(w3m-tab-button-menu-commands): Use `w3m-new-session-in-background'
+	insted of `w3m-tab-button-focus-new-tab'.
+	(w3m-goto-new-session-url): New command.
+	(w3m-goto-url-new-session): Call `w3m-copy-buffer' with
+	`w3m-new-session-in-background'.
+	(w3m-select-buffer-generate-contents): Add prefix number to beginning
+	of title name.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-items-sub-coeff): New variable.
+	(w3m-tab-menubar-items-width): Ditto.
+	(w3m-tab-menubar-make-items-1): New inline macro and trancate string of
+	tab's title if over `w3m-tab-menubar-items-width'.
+	(w3m-tab-menubar-make-items): Use `w3m-tab-menubar-make-items-1'.  If
+	the number of tabs over `(- (frame-height)
+	w3m-tab-menubar-items-sub-coeff)', make sub-menu.
+
+	* w3m-bookmark.el (w3m-bookmark-view-new-session): Use
+	w3m-view-this-url-1 instead of w3m-goto-url; warn if w3m-mode does not
+	run.
+	(w3m-bookmark-menu-items): Add w3m-bookmark-view-new-session.
+
[phone]  Luca Capello  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-view): Add docstring.
+	(w3m-bookmark-view-new-session): New command.
+
+	* w3m.el (autoload): Add docstring to w3m-bookmark-view; add
+	w3m-bookmark-view-new-session.
+	(w3m-menubar): Add Bookmark submenu and w3m-bookmark-view-new-session.
+	(w3m-info-like-map): Add w3m-bookmark-view-new-session.
+	(w3m-mode): Add description of w3m-bookmark-view-new-session to
+	docstring.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-tab-button-focus-new-tab): New option.
+	(w3m-menubar): Add some items.
+	(w3m-external-view-this-url): New command.
+	(w3m-external-view-current-url): Ditto.
+	(w3m-tab-button-menu-commands): Use `w3m-tab-button-focus-new-tab' on
+	`w3m-goto-url-new-session' and `w3m-copy-buffer'.
+	(w3m-tab-button-menu): Make with `w3m-make-menu-commands'.
+
+	* w3m-util.el (top): Add the variable definition of `w3m-mode-map' to
+	avoid byte-compile warnings.
+	(w3m-make-menu-commands): New function.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items): Use
+	`w3m-make-menu-commands'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-url-with-external-browser): Add optional url
+	argument.
+	(w3m-tab-button-menu-commands): Make w3m-copy-buffer and
+	w3m-view-url-with-external-browser select the buffer; pass url to
+	w3m-view-url-with-external-browser.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-add-all-urls): New function.
+
+	* w3m.el: Autoload w3m-bookmark-add-all-urls.
+	(w3m-menubar): Add w3m-reload-all-pages.
+	(w3m-lynx-like-map): Add w3m-reload-all-pages and
+	w3m-bookmark-add-all-urls.
+	(w3m-info-like-map): Ditto.
+	(w3m-tab-button-menu-commands): Make it enable to pass arguments to
+	function items; use w3m-goto-url-new-session, w3m-reload-all-pages, and
+	w3m-bookmark-add-all-urls instead of lambda forms.
+	(w3m-tab-button-menu): Pass arguments to functions defined in
+	w3m-tab-button-menu-commands.
+	(w3m-mode): Add descriptions about w3m-reload-all-pages and
+	w3m-bookmark-add-all-urls to docstring.
+	(w3m-reload-all-pages): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Define `w3m-mouse-major-mode-menu' to
+	mouse-3.
+	(w3m-info-like-map): Ditto.
+	(w3m-mouse-major-mode-menu): New command.
+
+	* w3m-util.el (top): Add the variable definition of
+	`w3m-use-japanese-menu' to avoid byte-compile warnings.
+	(w3m-make-menu-item): Change method to take measures for garbage
+	characters on XEmacs.
+
+	* w3m-bookmark.el (w3m-bookmark-make-item-xmas): New variable.
+	(w3m-bookmark-make-item): New inline macro.
+	(w3m-bookmark-make-menu-items): Use `w3m-bookmark-make-item'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Use `w3m-make-menu-item'.
+	(w3m-tab-button-menu-current-buffer): Enable always.
+	(w3m-tab-button-menu-commands): Ditto. Use `w3m-make-menu-item'.
+
+	* w3m-util.el (w3m-make-menu-item): New function.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items): Handle
+	`w3m-tab-button-menu-commands' always.
+
+	* w3m-bookmark.el (w3m-bookmark-menu-items): Use `w3m-make-menu-item'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-japanese-menu): Change default value.
+	(w3m-menubar): Simplify the rule to use Japanese menu.
+	(w3m-tab-button-menu-commands): Ditto.
+
+	* w3m-bookmark.el (w3m-bookmark-menu-items): Simplify the rule to use
+	Japanese menu.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Escape the Japanese katakana `a' which breaks
+	the string syntax in non-Mule XEmacs.
+
+	* w3m-bookmark.el (w3m-bookmark-menu-items): Escape the Japanese kanji
+	`etsu' which breaks the string syntax in non-Mule XEmacs.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-japanese-menu): New option.
+	(w3m-menubar): Add Japanese menu.
+	(w3m-tab-button-menu-commands): Change the way to check Japanse or
+	others.
+
+	* w3m-bookmark.el (w3m-bookmark-menu-items): Add Japanese menu.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-tab-button-new-session-url): New option.
+	(w3m-delete-other-buffers): New command.
+	(w3m-delete-left-tabs): Ditto.
+	(w3m-delete-right-tabs): Ditto.
+	(w3m-delete-buffers): New function.
+	(w3m-lynx-like-map): Add `w3m-delete-left|right-tabs'.
+	(w3m-tab-button-menu-commands): New new items.
+
+	* w3m-util.el (w3m-lefttab-exist-p): New inline function.
+	(w3m-righttab-exist-p): Ditto.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items): Handle
+	`w3m-tab-button-menu-commands' if possible.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-tab-button-menu-commands): New variable.
+	(w3m-tab-button-menu-current-buffer): New variable.
+	(w3m-tab-button-menu): New variable.
+	(w3m-tab-button-menu): New function.
+
+	* w3m-e21.el (w3m-tab-make-keymap): Bind mouse-3 to menu.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-refontify-anchor): Improve parameter check.
+	(w3m-create-image-page): Use `w3m-add-face-property' instead
+	`put-text-property'/`add-text-properties'/`w3m-add-text-properties'.
+	(w3m-history-highlight-current-url): Ditto.
+	(w3m-header-line-insert): Ditto.
+
+	* w3m-search.el (w3m-search-read-query): Improve parameter check.
+
+	* w3m-lnum.el (w3m-link-numbering): Use `w3m-add-face-property' instead
+	`put-text-property'.
+
+	* w3m-form.el (w3m-form-make-button): Use `w3m-add-face-property'
+	instead `add-text-properties'.
+	(w3m-fontify-textareas): Ditto.
+	(w3m-form-parse-and-fontify): Ditto.
+
+	* w3m-e21.el,w3m-e23.el (w3m-form-make-button): Improve face property
+	append method.
+	(w3m-setup-header-line): Ditto.
+	(w3m-tab-line): Ditto.
+	(w3m-tab-separator): Modify `face' value to list.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Use utf-8 for google if
+	possible.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-show-decoded-url): Add entry for hatena.ne.jp.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_SET_VANILLA_FLAG): Add --no-unibyte option so as to
+	invalidate EMACS_UNIBYTE environment variable.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-symbol.el: Bind w3m-use-symbol when compiling.
+	(w3m-use-symbol): New function.
+	(w3m-replace-symbol): Use it.
+
+	* w3m.el (w3m-use-symbol): Changed its default value when
+	w3m-output-coding-system is utf-8.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-util.el (w3m-device-on-window-system-p): New function.
+	(w3m-popup-frame-p): Use it.
+
+	* w3m-search.el (w3m-search-engine-alist): Ditto.
+
+	* w3m.el (w3m-fontify-strike-through): Ditto.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Remove lycos-ja.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-history): New variable.
+	(w3m-search): Use it.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add freshmeat.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-decode-string): Don't perform find-coding-system on a
+	list of coding system in XEmacs.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-google-feeling-lucky-charset): New user option.
+	(w3m-canonicalize-url): Support search-keyword for "I'm Feeling Lucky
+	on Google". Add 2nd argument.
+	(w3m-input-url): Suport "I'm Feeling Lucky".  Add 5th argument
+	`feeling-lucky'.  Bind key to `self-insert-command' if `feeling-lucky'.
+	Call `w3m-canonicalize-url' with `feeling-lucky'.
+	(w3m-view-this-url): Call `w3m-input-url' with `feeling-lucky'.
+	(w3m-goto-url-new-session): Ditto.
+	(w3m): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Require APEL XEmacs package 1.32 and later.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add msdn.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-decode-string): Support non-Mule XEmacs
+	superficially.
+
+	* w3m-util.el (w3m-replace-in-string): Prefer replace-regexp-in-string
+	over of replace-in-string.  It was done in Gnus by Reiner Steib.
+
[phone]  Kazuhiro NISHIYAMA  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Fix url for ja.wikipedia.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add ja.wikipedia.
+
[phone]  David Hansen  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add wikipedia, en.wikipedia
+	and de.wikipedia.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-download): Clear minibuffer after y-or-n-p.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* attic/vm-w3m.el (vm-w3m-use-w3m-minor-mode-map): New variable.
+	(vm-mime-display-internal-text/html): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-decode-string): Make string unibyte before decoding.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-data-retrieve): New function.
+	(w3m-attributes, w3m-retrieve): Add support `data:' scheme handled by
+	`w3m-data-retrieve'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ccl.el (charset-id): Define it as a macro instead of an alias to
+	charset-id-internal if Emacs doesn't provide it.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-insert-face): New face.
+	(w3m-fontify-insert): New variable.
+	(w3m-fontify-insert): New function.
+	(w3m-fontify): Add calling `w3m-fontify-insert'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Decode buffer's string outside the
+	buffer.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-w3m-parse-header): When the url matchs to ftp, rewrite
+	type and charset.
+	(w3m-w3m-attributes-1): Don't rewrite type and charset.
+	(w3m-w3m-retrieve): Don't check status code when the url does not match
+	to http.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-components-regexp): Move to w3m-util.el.
+	(w3m-fontify-anchors, w3m-canonicalize-url, w3m-add-referer-p)
+	(w3m-expand-url, w3m-view-this-url-1, w3m-goto-url)
+	(w3m-goto-url-new-session): Use w3m-string-match-url-components rather
+	than to run string-match with w3m-url-components-regexp.
+	cf. <URL:http://emacs-w3m.namazu.org/ml/msg08412.html>.
+
+	* w3m-form.el (w3m-form-normalize-action): Ditto.
+
+	* w3m-cookie.el (w3m-parse-http-url): Ditto.
+
+	* w3m-util.el (w3m-string-match-url-components-1): New function.
+	(w3m-url-components-regexp): Move from w3m.el.
+	(w3m-string-match-url-components): New macro.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-fontify-strike-through): Improve matching point.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/Makefile.in: Add rules to make pdf files.
+
+	* configure.in: Check for dvipdfmx and texi2pdf.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-util.el (top): Add the variable definition of `w3m-mode-hook' to
+	avoid byte-compile warnings.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-fontify-strike-through): Fix multi `<del>' problem.
+
[phone]  Matt Hodges  <[e-mail]>
+
+	* w3m-util.el (w3m-list-buffers): Ensure disabling the w3m-fb-mode
+	after a careless (setq w3m-fb-mode t).
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-refresh-interval): Add new customize
+	variable.
+	(w3m-antenna-make-contents): Add new generation rule for refresh
+	interval replacing `%R' to META Refresh tag and contents value are
+	`w3m-antenna-refresh-interval'.
+	(w3m-antenna-html-skelton): Add %R rule.
+
[phone]  Matt Hodges  <[e-mail]>
+
+	* w3m-util.el (w3m-list-buffers): Further fix against the case where
+	someone did (setq w3m-fb-mode t).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-fb.el (w3m-fb-mode): Never activate w3m-fb-mode if
+	w3m-pop-up-frames is non-nil.
+
+	* w3m-util.el (w3m-list-buffers): Reset w3m-fb-mode if it seems to have
+	been set thoughtlessly.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-fb.el: Don't require w3m.
+	(w3m-fb-frame-parameter): Always define.
+	(w3m-fb-delete-frame-functions): Ditto.
+	(w3m-fb-select-buffer): Fix the 2nd clause of cond.
+	(w3m-fb-advised-functions): Remove.
+	(w3m-list-buffers): Move advice code to w3m-fb.el.
+	(w3m-close-window): Move advice code to w3m.el.
+	(w3m-delete-buffer): Ditto.
+	(w3m-quit): Ditto.
+	(w3m-fb-mode): Remove w3m-fb-advised-functions stuff.
+
+	* w3m.el (w3m-fb): Require.
+	(w3m-delete-buffer, w3m-quit, w3m-close-window): Merge the codes which
+	were formerly provided as advices in w3m-fb.el.
+
+	* w3m-util.el (w3m-fb-list-buffers-frame, w3m-fb-mode): Bind them when
+	compiling.
+	(w3m-fb-frame-parameter): Autoload.
+	(w3m-list-buffers): Merge the code which was formerly provided as an
+	advice in w3m-fb.el.
+
[phone]  Matt Hodges  <[e-mail]>
+
+	* w3m-fb.el: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-submit): Use the post method for the
+	multipart/form-data enctype according to the proposal of RFC2070 even
+	if the form specifies the get method.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-submit): If anchor exists, go to the uri.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-type): Renew default image type list.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Renew enable/disable condition for `[Copy This
+	Session]',`[Download This URL]', and Append `[Toggle This Image]'.
+
+	* w3m-bookmark.el (w3m-bookmark-menu-items): Renew enable/disable
+	condition for `[Add This URL to Bookmark]'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-open-all-links-in-new-session): Reverse the list of URLs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-drag-mouse-function): Lower the buffer displayed
+	before moving to the other tab.
+	(w3m-tab-click-mouse-function): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-util.el (w3m-add-face-property): Simplified.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m-util.el (w3m-add-face-property): Add new functions.
+	(w3m-remove-face-property): Ditto.
+
+	* w3m.el (w3m-fontify-bold, w3m-fontify-underline)
+	(w3m-fontify-strike-through, w3m-fontify-anchors)
+	(w3m-fontify-images): Replace `w3m-add-text-properties' to
+	`w3m-add-face-property' at FACE.
+	(w3m-refontify-anchor): Change for FACE properly is list type.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-insert-image): Make it work with a face text property
+	whose value is a list.
+	(w3m-remove-image): Remove useless text property.
+	* w3m-e23.el (w3m-insert-image,w3m-remove-image): Same as w3m-e21.el's
+	modification.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Fixed regexp.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Remove SSL warning message for
+	basic authentication over SSL.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Remove empty lines at the beginning of the
+	buffer (see the comment).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Revert.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Bind w3m-treat-image-size
+	to avoid inserting excessive newlines.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Add a rule for Google Blog
+	Search.
+
+	* w3m-search.el (w3m-search-engine-alist): Use
+	`http://blogsearch.google.com/' instead of `http://search.blogger.com/'
+	for "blog-*" search, because search.blogger.com does not have a
+	explicit link to previous search result page.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-redisplay-this-page): Use the cache always.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add "blog-*" entries.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: Support @frenchspacing, @euro, @sansserif.
+	(texinfo-format-ordf): Fix typo.
+
[phone]  Hiroshi Fujishima  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Update goo-ja, waei, eiwa,
+	kokugo URL.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-ucs.el: Enable XEmacs 21.5-Mule to compile it anyway.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Put the encoded anchor names instead of
+	the itself.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* octet.el (octet-insert-buffer): Use insert-buffer-substring instead
+	of insert-buffer.
+
+	* w3m-bookmark.el (w3m-about-bookmark): Ditto.
+
+	* w3m-proc.el (w3m-process-sentinel): Ditto.
+
[phone]  Kevin Rodgers  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Add the text/sgml entry.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-scroll-up-1): New function.
+	(w3m-lynx-like-map): Use it for the J command.
+	(w3m-scroll-up-or-next-url): Use it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-current-message): New internal variable.
+	(w3m-message): Use the above variable to keep the last displayed
+	message, to decide that this function can override the current message
+	in the echo area.
+	(w3m-make-help-echo): Use `message' instead of `w3m-message' to clear
+	the echo area in the foreground context.
+	(w3m-quit): Ditto.
+	(w3m-goto-ftp-url): Ditto.
+	(w3m-select-buffer-show-this-line-and-switch): Ditto.
+
+	* w3m-proc.el (w3m-process-background): New internal variable.
+	(w3m-process-sentinel): Set t to the above variable.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-message): Bury messages when the cursor in the echo area
+	which is used by `y-or-n-p' etc.
+	(w3m-view-parent-page): Refer both `start' link element and `content'
+	start element before checking a parent URL.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-menu-dummy-item): Remove.
+	(w3m-bookmark-menubar-dummy): Remove.
+	(w3m-bookmark-menu-items): Also define the menu for the case where
+	w3m-bookmark-mode is turned on.
+	(w3m-setup-bookmark-menu): Rewrite it so as to work properly with Emacs
+	22.
+	(w3m-bookmark-menubar-update): Ditto; remove the iswitchb section.
+	(w3m-bookmark-make-menu-items): Return nil if there's no bookmark.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-dummy): Remove.
+	(w3m-setup-tab-menu): Rewrite it so as to work properly with Emacs 22.
+	(w3m-tab-menubar-update): Ditto; remove the iswitchb section.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-buffer): Disable undo before modify the
+	buffer.
+	(w3m-bookmark-menu-items-pre): New variable.
+	(w3m-bookmark-menu-items-time): Ditto.
+	(w3m-bookmark-make-menu-items): Use previous items if it available.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m-xmas.el (top): Add `w3m-setup-bookmark-menu' to autoload list at
+	compiled time.
+	(w3m-setup-menu): Append bookmark menu setup calling.
+
+	* w3m-bookmark.el (top): Add requirement `easymenu' and
+	`easy-menu-remove-item' autoload at compiled time.
+	(w3m-bookmark-menu-open-new-session): Add new customize variable.
+	(w3m-bookmark-menu-dummy-item): Add new const variable.
+	(w3m-bookmark-menubar-dummy): Ditto.
+	(w3m-bookmark-menu-items): Ditto, Define Bookmark const menu items.
+	(w3m-setup-bookmark-menu): Add new autoload function.
+	(w3m-bookmark-menubar-update): Add new function.
+	(w3m-bookmark-iterator): Ditto.
+	(w3m-bookmark-menu-open-item): Ditto.
+	(w3m-bookmark-make-menu-items): Ditto.
+
+	* w3m.el (top): Add `w3m-setup-bookmark-menu' to autoload list at
+	compiled time.
+	(w3m-menubar): Remove "Bookmark" menu item.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-print-current-url): Bind deactivate-mark.
+	(w3m-print-this-url): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-check-current-position): Bind deactivate-mark.  (cf.
+	http://news.gmane.org/group/gmane.emacs.pretest.bugs/thread=8335).
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* ChangeLog: Add file local variables to set fill-column 74 and
+	indent-tabs-mode t.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add "technorati-*" entries.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-which-command): Make sure the command is not a
+	directory.  cf. <URL:http://emacs-w3m.namazu.org/ml/msg08113.html>.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Add a rule for Yahoo Search
+	Beta.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Improve regexp for Google
+	in order to make the scroll-to-next-page feature work on Google News as
+	well.
+
[phone]  Masayuki Ataka  <[e-mail]>
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add Yahoo Beta.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Search Google News in US by
+	"google news-en".
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add "google news" entry.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_PATH_EMACS): Check whether XEmacs works with the shy
+	group regexp and runs call-process-region correctly.
+
+	* w3m-perldoc.el (w3m-about-perldoc): Don't relieve buggy XEmacs 21.5
+	for call-process-region.
+
+	* w3m-xmas.el (w3m-fix-gif): Ditto.
+	(w3m-initialize-graphic-icons): Ditto.
+
+	* w3m.el (w3m-decode-encoded-contents): Ditto.
+	(w3m-x-moe-decode-buffer): Ditto.
+	(w3m-rendering-half-dump): Ditto.
+
+	* w3mhack.el: Advise byte-optimize-form-code-walker to avoid the
+	``...called for effect'' warnings for Emacs 21.4 as well as 21.3; don't
+	relieve buggy XEmacs 21.5 for call-process-region.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	Make emacs-w3m not support the XEmacs versions older than 21.4.17
+	or 21.5-b19.
+
+	* aclocal.m4 (AC_PATH_EMACS): Check whether XEmacs runs the timer
+	functions correctly.
+
+	* w3m-util.el (w3m-cancel-refresh-timer): Use delete-itimer instead of
+	cancel-timer under XEmacs.
+
+	* w3m-xmas.el (call-process-region): Don't advise it.
+	(w3m-run-at-time): Remove.
+
+	* w3m.el (w3m-refresh-at-time): Use run-at-time instead of
+	w3m-run-at-time.
+
+	* w3mhack.el (w3mhack-byte-optimize-letX): Doc fix.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el: Update my mail address.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-mapcar): Remove unused temp var.
+
+	* w3m-bookmark.el (w3m-bookmark-buffer): Remove
+	file-coding-system-for-read.
+
+	* w3m-form.el (w3m-form-input-textarea-save): Remove
+	file-coding-system.
+	(w3m-form-input-textarea): Ditto.
+
+	* w3m-image.el (w3m-imagick-convert-buffer): Remove file-coding-system.
+	(w3m-imagick-start-convert-buffer): Remove file-coding-system and
+	jam-zcat-filename-list.
+
+	* w3m.el (w3m-load-list): Remove file-coding-system-for-read.
+	(w3m-save-list): Remove file-coding-system.
+	(w3m-local-retrieve): Remove file-coding-system-for-read and
+	jam-zcat-filename-list.
+	(w3m-download): Remove file-coding-system and jam-zcat-filename-list.
+	(w3m-copy-buffer): Remove unused temp var.
+
+	* w3mhack.el (w3mhack-byte-optimize-letX): Remove file-coding-system,
+	file-coding-system-for-read and pathname-coding-system.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-replace-in-string): Don't use eval-and-compile.
+	(w3m-compare-strings): Ditto.
+	(w3m-force-window-update): Alias to ignore if it is not defined.
+	(w3m-force-window-update-later): New function.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Use
+	w3m-force-window-update-later.
+
+	* w3m-proc.el (w3m-process-stop): Use w3m-force-window-update-later.
+
+	* w3m.el (w3m-retrieve-and-render): Use w3m-force-window-update-later.
+	(w3m-select-buffer-show-this-line): Always run w3m-force-window-update.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m-e21.el (w3m-initialize-graphic-icons): Highlight icon under
+	mouse.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-mouse-face): New face.
+	(w3m-setup-header-line): Use highlight face for bg color.
+	(w3m-tab-line): Use w3m-tab-mouse-face.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m-e21.el (w3m-setup-header-line): Highlight url under mouse.
+	(w3m-tab-line): Highlight tab under mouse.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-run-mode-hooks): New function.
+
+	* w3m-form.el (w3m-form-input-select-mode): Use it.
+	(w3m-form-input-map-mode): Use it.
+
+	* w3m.el (w3m-mode): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-truncate-string): Autoload mule-util for
+	truncate-string-to-width.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m.el (w3m-safe-view-this-url): `unsecure' -> `insecure'.
+	(w3m-safe-toggle-inline-image): Ditto.
+	(w3m-safe-toggle-inline-images): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Add the "Close Other Sessions" button.
+	(w3m-delete-other-buffers): Run w3m-force-window-update.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* attic/vm-w3m.el (vm-w3m): Provide the feature.
+
+	* attic/vm-7.19.patch: New file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-open-all-links-in-new-session): Fix regexp.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-about-bookmark): Use shy group in regexp.
+
+	* w3m-cookie.el (w3m-cookie-two-dot-domains-regexp): Ditto.
+	(w3m-cookie-set): Ditto.
+
+	* w3m-dtree.el (w3m-dtree-directory-name): Ditto.
+	(w3m-about-dtree): Ditto.
+
+	* w3m-favicon.el (w3m-favicon-setup): Ditto.
+
+	* w3m-namazu.el (w3m-about-namazu): Ditto.
+
+	* w3m-proc.el (w3m-process-filter): Ditto.
+
+	* w3m-rss.el (w3m-rss-parse-date-string): Ditto.
+
+	* w3m-util.el (w3m-html-string-regexp): Remove useless quotes.
+	(w3m-parse-attributes): Don't use old fashioned backquotes; use shy
+	group in regexp.
+	(w3m-url-authinfo-regexp): Use shy group in regexp.
+
+	* w3m-weather.el (w3m-weather-completion-table): Ditto.
+	(w3m-weather-area-completion): Ditto.
+
+	* w3m-xmas.el (w3m-fix-gif): Ditto.
+
+	* w3m.el: Use shy group in regexp when examining w3m-command.
+	(w3m-content-type-alist): Use shy group in regexp.
+	(w3m-show-decoded-url): Ditto.
+	(w3m-add-referer): Ditto.
+	(w3m-relationship-estimate-rules): Ditto.
+	(w3m-arrived-ignored-regexp): Ditto.
+	(w3m-history-ignored-regexp): Ditto.
+	(w3m-url-to-file-name): Ditto.
+	(w3m-fontify-strike-through): Ditto.
+	(w3m-fontify): Ditto.
+	(w3m-url-completion): Ditto.
+	(w3m-gmane-url-at-point): Ditto.
+	(w3m-cache-header-delete-variable-part): Ditto.
+	(w3m-cache-available-p): Ditto.
+	(w3m-decode-buffer): Ditto.
+	(w3m-local-dirlist-cgi): Ditto.
+	(w3m-w3m-canonicalize-url): Ditto.
+	(w3m-additional-command-arguments): Ditto.
+	(w3m-download): Ditto.
+	(w3m-check-header-tags): Ditto.
+	(w3m-retrieve-and-render): Ditto.
+	(w3m-create-text-page): Ditto.
+	(w3m-view-this-url): Ditto.
+	(w3m-open-all-links-in-new-session): Ditto.
+	(w3m-external-view-file): Ditto.
+	(w3m-edit-url): Ditto.
+	(w3m-convert-ftp-url-for-emacsen): Ditto.
+	(w3m-goto-url): Ditto.
+	(w3m-goto-url-new-session): Ditto.
+	(w3m-about-db-history): Ditto.
+	(w3m-history-highlight-current-url): Ditto.
+
+	* w3mhack.el: Fix the section adding dirs to load-path.
+	(w3mhack-make-package): Use shy group in regexp.
+	(w3mhack-makeinfo): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (clean): Don't remove w3m-kwds.el.
+	(.el.elc): Use batch-byte-compile instead of w3mhack-batch-compile.
+	(very-slow): Don't run keywords.
+	(keywords): Remove.
+
+	* aclocal.m4 (AC_PATH_EMACS): Don't support Emacs 19 and 20.
+	(AC_PATH_LISPDIR): Follow the change of the EMACS_FLAVOR value.
+	(AC_PATH_ICONDIR): Ditto.
+	(AC_CHECK_ELISP): Remove.
+	(AC_CHECK_XML): Remove.
+
+	* configure.in: Don't check for regexp-opt; don't run AC_CHECK_XML.
+
+	* mime-w3m.el (mime-w3m-mode-map): Remove.
+	(mime-w3m-local-map-property): Remove.
+	(mime-w3m-preview-text/html): Don't use it.
+
+	* octet.el (octet-decode-image): Ignore Emacs 19 and 20.
+
+	* w3m-bitmap.el: Remove.
+
+	* w3m-bookmark.el (w3m-bookmark-sections): Use point-at-eol.
+	(w3m-bookmark-safe-string): Don't support Mule 2.3.
+	(w3m-bookmark-current-number): Use point-at-eol.
+	(w3m-bookmark-kill-entries): Use point-at-bol.
+
+	* w3m-bug.el: Don't require w3m-om or w3m-e19.
+
+	* w3m-ccl.el: Don't require w3m-om.
+
+	* w3m-e19.el: Remove.
+
+	* w3m-e20.el: Remove.
+
+	* w3m-hist.el: Don't load w3m-kwds.el.
+
+	* w3m-lnum.el (w3m-link-numbering): Don't support Emacs 20.
+
+	* w3m-om.el: Remove.
+
+	* w3m-proc.el: Don't require w3m-om or w3m-e19.
+
+	* w3m-search.el (w3m-search-read-query): Use point-at-bol.
+
+	* w3m-ucs.el: Ignore Emacs 20.
+
+	* w3m-util.el: Don't load w3m-kwds.el; don't support Emacs 19.
+	(w3m-use-tab-p): Ignore Emacs 19 and 20.
+	(w3m-popup-window-p): Ditto.
+	(w3m-add-w3m-initial-frames): Don't support Emacs 19.
+	(after-make-frame-hook): Don't use it.
+	(delete-frame): Don't advise it for Emacs 19 or 20.
+	(w3m-truncate-string): Don't support Emacs 19 and 20.
+	(w3m-default-face-colors): Remove.
+	(w3m-replace-in-string): Don't support Emacs 19 and 20.
+
+	* w3m-xmas.el (w3m-should-unoptimize-animated-gifs): Default to always
+	t.
+	(w3m-make-glyph): Use string-to-number instead of string-to-int.
+
+	* w3m.el: Don't require w3m-e20, w3m-om or w3m-e19.
+	(emacs-w3m-version): Reset to 1.4.50.
+	(w3m-language): Ignore Mule 2.3.
+	(w3m-history-current-url-face): Don't require wid-edit.
+	(w3m-bold-face): Don't use w3m-default-face-colors.
+	(w3m-underline-face): Ditto.
+	(w3m-strike-through-face): Ditto.
+	(w3m-use-symbol): Ignore Emacs 19 and 20.
+	(w3m-show-decoded-url): Ditto.
+	(w3m-use-tab): Doc fix.
+	(w3m-entity-alist): Don't support Mule 2.3.
+	(w3m-make-help-echo): Ignore Emacs version.
+	(w3m-toggle-inline-images-internal): Ignore bitmap images.
+	(w3m-resize-inline-image-internal): Don't support Emacs 19 and 20.
+	(w3m-url-at-point): Always use ffap.
+	(w3m-about-retrieve): Consider base64 codec is always available.
+	(w3m-close-window): Don't support Emacs 19 and 20.
+	(w3m-store-current-position): Use point-at-bol and point-at-eol.
+	(w3m-buffer-setup): Ditto.
+	(w3m-make-separator): Don't support Mule 2.3.
+	(w3m-select-buffer-current-buffer): Use point-at-bol.
+	(w3m-header-line-insert): Don't support Emacs 19 and 20.
+
+	* w3mhack.el: Consider w3mhack-batch-compile is not used.
+	(locate-library): Don't redefine it for Emacs 19.
+	(APEL): Don't check for it for Emacs.
+	(w3mhack-colon-keywords-file): Remove.
+	(w3mhack-module-list): Ignore Emacs 19, 20, old XEmacsen and
+	BITMAP-MULE.
+	(w3mhack-shimbun-modules-using-rss): Remove.
+	(current-column): Don't take care of it for old Emacsen.
+	(w3mhack-compile): Don't run w3mhack-check-colon-keywords-file.
+	(w3mhack-batch-compile): Remove.
+	(w3mhack-nonunix-install): Ignore Emacs 19 and 20.
+	(custom-declare-variable): Don't take care of it for Emacs 19.
+	(locate-library): Ditto.
+	(w3mhack-generate-colon-keywords-file): Remove.
+	(w3mhack-check-colon-keywords-file): Remove.
+	(w3mhack-load-path): Ignore Emacs 19, 20 and old XEmacsen.
+	(w3mhack-makeinfo): Ignore Mule 2.3.
+
+	* attic/regexp-opt.el: Remove.
+
+	* attic/xml.el: Remove.
+
+	* patches/[e-mail]: Remove.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-remove-invisible-image-alt): New function.
+	(w3m-rendering-buffer): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Decode "\240" into "&nbsp;".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Decode `&#nnn;' entities in 128..159.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-detect-xml-charset): Return nil if the data don't look
+	like xml contents.
+	(w3m-compatible-encoding-alist): New variable.
+	(w3m-decode-buffer): Always use w3m-detect-xml-charset; use a
+	compatible encoding according to w3m-compatible-encoding-alist.
+
+	* w3m-xmas.el (w3m-find-coding-system): Don't return binary for the nil
+	argument.
+
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Release emacs-w3m-1.4.4 from emacs-w3m-1_4 branch.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-setup-toolbar): Make sure icon files exist.
+	(w3m-update-toolbar): Make sure toolbar items have been specified.
+	(w3m-initialize-graphic-icons): Make sure icon files exist.
+
+	* w3m-e21.el (w3m-setup-toolbar): Make sure icon files exist.
+	(w3m-initialize-graphic-icons): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (tarball): Remove `w3m-e23.el' instead of `w3m-e22.el'.
+
+	* w3m.el (w3m-url-readable-string): Decide a scheme to guess encodings
+	based on the target URL, instead of the current URL.
+	(w3m-show-decoded-url): Doc fix to follow the above change.
+	(w3m-copy-buffer): Do not set `w3m-current-url' and
+	`w3m-current-coding-system'.
+	(w3m-goto-url-new-session): Simplified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (display-images-p): Remove alias.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (very-slow): Don't mv non-existent files.
+
+	* w3m-e19.el (easy-menu-remove-item): Don't autoload it.
+
+	* w3m-om.el (easy-menu-remove-item): Ditto.
+
+	* w3m-rss.el (match-string-no-properties): Avoid warning for Emacs 19
+	and XEmacs.
+	(split-string): Avoid warning for Emacs 19.
+
+	* w3m-symbol.el: Require cl when compiling.
+
+	* w3m-tabmenu.el (easy-menu-remove-item): Aautoload it for Emacs 19.
+
+	* w3m.el: Autoload widget-get to avoid compile warning for Emacs 19.
+	(w3m): Remove unused bound variable.
+
+	* w3mhack.el: Bind executable-binary-suffixes to the proper value for
+	OS/2 and emx while checking for the shell command; cause an error only
+	when compiling or formatting files.
+
+	* attic/addpath.el: Make it work with old Emacsen even if cl is not
+	loaded; load custom, bind defcustom'ed variables and make the
+	locate-library function run quietly for Emacs 19; synch the code
+	testing the shell command with w3mhack.el.
+	(char-after): Add a byte-optimizer for Emacs 19.
+
+	* w3m-ccl.el: Load w3m-om instead of autoloading it for charset-id.
+
+	* w3m-util.el: Load cl independently when compiling.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Check whether the shell command can be used.
+
+	* attic/addpath.el: Ditto; add early-package-load-path to load-path for
+	XEmacs 21.5.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-favicon.el: Add autoload of `w3m-url-readable-string'.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-check-header-tags): Check abnormal `base' url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Add early-package-load-path to load-path for XEmacs 21.5.
+
+	* w3m-xmas.el: Fbind coding-system-type to ignore if it is void.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-mee-new): Display clear signs of coding-system
+	for `w3m-url-decode-string'.
+	(w3m-form-mee-select-value): Ditto.
+	(w3m-form-parse-and-fontify): Ditto.
+
+	* w3m.el (w3m-decode-buffer): Decode the buffer within buffer set the
+	`multibyte'.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* doc/emacs-w3m-ja.texi (Sport Sites Supported by Shimbun): Update.
+
+	* doc/emacs-w3m.texi (Sport Sites Supported by Shimbun): Ditto.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* doc/emacs-w3m-ja.texi (Sport Sites Supported by Shimbun): Update.
+
+	* doc/emacs-w3m.texi (Sport Sites Supported by Shimbun): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Load w3m-e23.el(c) that exists in the same directory as
+	w3m.el(c) so as to exclude ones in other places; report the precise
+	error message if it doesn't exist.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-decode-coding-string-with-priority): Ignore
+	`undecided' so as not to use it for the priority list.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-fsf.el (w3m-detect-coding-region): Guard error for `undecided'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Remove the byte-optimizer which replaces truncate-string
+	with truncate-string-to-width.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-modeline-title): Replace truncate-string-to-width with
+	w3m-truncate-string.
+
+	* w3m-util.el (w3m-truncate-string): Use truncate-string-to-width if it
+	is available.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-info-like-map): Bind the `y' key to the
+	w3m-print-current-url command; bind the `Y' key to the
+	w3m-print-this-url command; don't bind the `c' key.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-help-echo): Fix the backquote form.
+	(w3m-make-balloon-help): Ditto.
+
+	* w3m-util.el (w3m-set-match-data): Use existing markers.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-readable-string): Save matching data.  Check whether
+	`w3m-current-url' is string before checking it.
+	(w3m-goto-url-new-session, w3m-copy-buffer): Call `w3m-goto-url' with
+	`redisplay' option to enforce redisplaying the certain content.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Decode an URL when displaying
+	it.
+
+	* w3m-form.el (w3m-form-input-textarea-mode-setup): An expression is
+	evaluated without checking type, and save matching data.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-readable-string): Check whether
+	`w3m-current-coding-system' is valid before calling
+	`w3m-url-decode-string'.
+	(w3m-local-dirlist-cgi, w3m-w3m-dump-extra): Use
+	`w3m-url-readable-string'.
+	(w3m-copy-buffer): Copy all buffer-local variables, and do not cancel
+	them even if `empty' option is set.
+	(w3m-display-progress-message): Import from w3m-util.el to suppress
+	byte-compile warnings.
+
+	* w3m-util.el (w3m-parse-attributes): Accept XHTML format of boolean
+	atttibutes.
+	(w3m-display-progress-message): Export to w3m.el.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-url-readable-string): An expression is evaluated without
+	checking type.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-show-decoded-url): Update its customize spec to use it as
+	the rule set to decode URIs when displaying them.  Changed its default
+	value.
+	(w3m-url-readable-string): New function to process the above option.
+	(w3m-make-help-echo, w3m-make-balloon-help): Do not accept `url-decode'
+	option, and use the above function to decore URIs.
+	(w3m-fontify-anchors): Follow the above change.
+	(w3m-print-current-url, w3m-print-this-url): Call the above function.
+	(w3m-make-url-decode-function): Removed.
+	(w3m-entity-alist, w3m-about-history): Remove redundant `function'.
+	For more detail, see http://www.mew.org/~kazu/doc/elisp/function.html.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-modeline-title-string): New variable.
+	(w3m-modeline-title-timer): New variable.
+	(w3m-modeline-title): New function used to truncate the title string
+	not to cut the right end of the mode line.  Works only with Emacs 22
+	and newer.
+	(w3m-buffer-setup): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-help-echo): Make it work with XEmacs.
+	(w3m-make-balloon-help): Support decoding URIs.
+	(w3m-fontify-anchors): Make the balloon-help show decoded URIs.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-show-decoded-url): New user option.
+	(w3m-make-url-decode-function): New inline function.
+	(w3m-make-help-echo): Use it.
+	(w3m-fontify-anchors): The function of help-echo property has an
+	ability to decode url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-decode-coding-string-with-priority): New function.
+
+	* w3m.el (w3m-url-decode-string): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes-1): Support `300 Multiple Choices'.
+	(w3m-w3m-retrieve): Ditto.
+	(w3m-w3m-retrieve-1): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-detect-coding-region): Use the name of the coding
+	system instead of the coding category if it is void.
+
+	* w3m-util.el (w3m-set-match-data): New macro which converts points
+	into markers under XEmacs.
+	(w3m-search-tag-1): Use it.
+
+	* w3m-e19.el: Autoload easymenu in order to avoid compile warning.
+	* w3m-om.el: Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (all): Use `w3m-form-set-number' and `w3m-form-kill-buffer'
+	instead of `w3m-form-textarea-set-number' and
+	`w3m-form-textarea-kill-buffer'
+
+	* w3m-form.el (w3m-form-input-select-urlid): New buffer local variable.
+	(w3m-form-input-map-urlname): Ditto.
+	(w3m-form-set-number): Rename from `w3m-form-textarea-set-number' and
+	treate buffers of `select' and `map'.
+	(w3m-form-kill-buffer): Ditto.
+	(w3m-form-input-select-set): Allways remove own buffer.
+	(w3m-form-input-select-exit): Ditto.
+	(w3m-form-input-map-set): Ditto.
+	(w3m-form-input-map-exit): Ditto.
+	(w3m-form-input-select): When exists same from buffer, use it.
+	(w3m-form-input-map): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-what-where): Fix the form.
+	(w3mhack-makeinfo): Silence it when formatting @multitable section.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (top): Add autoloads of `w3m-form-textarea-kill-buffer' and
+	`w3m-form-textarea-set-number' to avoid byte-compile warnings.
+	(w3m-delete-buffer): Call `w3m-form-textarea-kill-buffer' when use
+	form.
+	(w3m-delete-other-buffers): Ditto.
+	(w3m-quit): Ditto.
+	(w3m-select-buffer-delete-buffer): Ditto.
+	(w3m-pack-buffer-numbers): Call `w3m-form-textarea-set-number' when use
+	form.
+
+	* w3m-form.el (top): Move all buffer local variables on the top to
+	avoid byte-compile warnings.
+	(w3m-form-parse-and-fontify): Set `w3m-form-use-textarea-backup-p' to
+	nil.
+	(w3m-form-input-textarea-save): Use `w3m-form-use-textarea-backup-p'
+	instead of `w3m-form-use-textarea-backup'.
+	(w3m-form-input-textarea-set): Allways remove textarea buffer and
+	window.
+	(w3m-form-input-textarea-exit): Ditto.
+	(w3m-form-input-textarea): Check to call for backup. Check identity of
+	existed textarea buffer and w3m buffer. Treat
+	`w3m-form-use-textarea-backup-p'.
+	(w3m-form-use-textarea-backup-p): New function.
+	(w3m-form-textarea-set-number): Ditto.
+	(w3m-form-textarea-kill-buffer): Ditto.
+	(w3m-form-submit-get-textarea-files): If no backup, return nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el: Autoload cancel-timer for XEmacs.
+
+	* w3m-xmas.el (w3m-run-at-time): Use run-at-time which comes from
+	timer-funcs.el if it seems to work correctly.
+	(cancel-timer): Defun if it is void.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/ptexinfmt.el (texinfo-multitable-widths): Reverse the logic that
+	shows whether it is broken.
+
+	* w3m-util.el: Autoload regexp-opt for Emacs 19.
+
+	* w3mhack.el (w3mhack-makeinfo): Load poe for Emacs 19.
+
[phone]  Romain Francoise  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Bind [follow-link] so as to make mouse-1
+	work in Emacs 22 like mouse-2.
+	(w3m-info-like-map): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-check-rss): Parse all date fields.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea): Fix.
+
[phone]  Tsuyoshi CHO  <[e-mail]>,
+	Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea-mode-setup): Fix.
+	(w3m-form-input-textarea): Follow the above change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-textarea-edit-mode): Changed its default value
+	to `text-mode'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install-package): Change the default directory in which
+	icon files will be installed from `etc/w3m/icons/' into
+	`etc/images/w3m/' following the most recent Emacs and Gnus.
+	(install-package-ja): Ditto.
+
+	* aclocal.m4 (AC_EXAMINE_PACKAGEDIR): Use configure-package-path.
+	(AC_PATH_ICONDIR): Change the default directory in which icon files
+	will be installed from `etc/w3m/icons/' into `etc/images/w3m/'
+	following the most recent Emacs and Gnus.
+
+	* w3m.el (w3m-icon-directory): Improve the way to determin the default
+	value.
+
+	* w3mhack.el (w3mhack-nonunix-install): Change the default directory in
+	which icon files will be installed from `etc/w3m/icons/' into
+	`etc/images/w3m/' following the most recent Emacs and Gnus.
+	(w3mhack-make-package): Ditto.
+	(w3mhack-what-where): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-lnum.el: Rename from w3m-link-numbering.el.
+
+	* mime-w3m.el: Load mime-parse.el before mime.el and w3m.el when
+	compiling rather than always loading mime.el and w3m.el.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el: Changes to define `w3m-form-input-textarea-mode' as a
+	minor mode.
+	(w3m-form-textarea-edit-mode): New option.
+	(w3m-form-input-textarea-map): Renamed from
+	`w3m-form-input-textarea-keymap'.
+	(w3m-form-input-textarea-mode) [variable]: New internal variable.
+	(w3m-form-input-textarea-mode) [function]: Reconstructed.
+	(w3m-form-input-textarea-mode-setup): New function.
+	(w3m-form-input-textarea): Clean up.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_PATH_EMACS): Show the correct Emacs version.
+
+	* mime-w3m.el: Always require mime and w3m instead of to autoload
+	mime-parse.el.
+
+	* w3m-bitmap.el: Bind w3m-work-buffer-list when compiling.
+
+	* w3m-proc.el: Silence the byte compiler complaining against gensym.
+
+	* w3m-rss.el: Use eval-and-compile in order to autoload timezone.el.
+
+	* w3m.el (w3m-treat-drive-letter): Use eval-and-compile.
+	(w3m-touch-file-available-p): Move forward.
+	(w3m-touch-file): Ditto.
+	(w3m-expand-path-name): Use eval-and-compile.
+	(w3m-window-hscroll): Ditto.
+	(w3m-current-column): Ditto.
+	(w3m-set-window-hscroll): Ditto.
+	(w3m-add-local-hook): Silence the byte compiler.
+	(w3m-run-at-time): Use eval-and-compile.
+
+	* w3mhack.el: Remove the code used to silence the byte compiler which
+	complains make-local-hook is obsolete.
+	(w3mhack-makeinfo): Silence XEmacs when formatting Infos.
+
+	* octet.el: Require cl when compiling.
+	* w3m-filter.el: Ditto.
+	* w3m-fsf.el: Ditto.
+	* w3m-link-numbering.el: Ditto.
+	* w3m-namazu.el: Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Load w3m-e23.el for Emacs 23.
+
+	* w3mhack.el (w3mhack-module-list): Use w3m-e23.el for Emacs 23.
+
+	* w3m-e23.el: Rename from w3m-e22.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Load w3m-e21.el even if the version of Emacs is 22.x when the
+	Emacs CVS HEAD is used.
+
+	* w3mhack.el (w3mhack-module-list): Prefer w3m-e21.el rather than
+	w3m-e22.el if the Emacs CVS HEAD is used.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-html-skelton): Fix typo.
+	(w3m-antenna-make-contents): Replace %D to the modified time of
+	`w3m-antenna-file'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-gmane-url-at-point): New function.
+	(w3m-url-at-point): Use it.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m.el (w3m-attributes): Support cid urls.
+	(w3m-external-view): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-force-window-update): Make it work whatever the value
+	for the resize-mini-windows variable is.
+	(w3m-update-tab-line): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-rss.el (w3m-rss-parse-date-string): Support the date format in
+	the RFC822 style which RSS 2.0 allows.  Suggested by David Hansen
+	<[e-mail]>.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-e21.el (w3m-force-window-update, w3m-update-tab-line): Call
+	`enlarge-window' before calling `shrink-window', in order to avoid
+	deleting sole window.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Check if "fiber.exe" is exist.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Check if w3m-current-url is
+	available.
+
[phone]  Tsuyoshi CHO  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Rearrange it hierarchical.
+	(w3m-setup-menu): Use easymenu.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea): Modify string of the inquiry.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Call `w3m-form-textarea-files-remove' if
+	necessary.
+
+	* w3m-util.el (w3m-compare-strings): New define.
+
+	* w3m-form.el (w3m-form-textarea-file-expire-date): Modify Document.
+	(w3m-fontify-textareas): Put `w3m-form-file-name' property.
+	(w3m-form-textarea-files, w3m-form-textarea-post-files): New buffer
+	local variable.
+	(w3m-form-parse-and-fontify): Set `w3m-form-textarea-files'. Put
+	`w3m-form-file-name' property on the form of textarea.
+	(w3m-form-input-textarea): Use same textarea buffer if exist.  Don't
+	ask user if don't modify its area without tailed white space.  Visible
+	the editted text when ask user. Guard against 'C-g'.  Added
+	`w3m-form-textarea-file-cleanup' to hook as `kill-emacs-hook'
+	(w3m-form-textarea-same-check): New function.
+	(w3m-form-textarea-file-cleanup): Remove myself from `kill-emacs-hook'.
+	(w3m-form-textarea-files-remove): New function.
+	(w3m-form-submit-get-textarea-files): Ditto.
+	(w3m-form-submit): Set `w3m-form-textarea-post-files' for removing
+	files.
+	(w3m-form-resume): Check `selects' is cons.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/Makefile.in (.texi.info): Set LC_ALL=C.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-quit): Call `w3m-form-textarea-file-cleanup'.
+	(w3m-view-this-url-1): Revert final change.
+
+	* w3m-form.el (w3m-form-textarea-file-expire-date): New user option.
+	(w3m-form-textarea-file-cleanup): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-use-textarea-backup): New user option.
+	(w3m-form-textarea-directory): Ditto.
+	(w3m-form-get-coding-system): New function.
+	(w3m-form-make-form-data): Use `w3m-form-get-coding-system'.
+	(w3m-form-input-textarea-keymap): Define "C-xC-s" to
+	`w3m-form-input-textarea-save'.
+	(w3m-form-input-textarea-file): New variable.
+	(w3m-form-input-textarea-coding-system): Ditto.
+	(w3m-form-input-textarea-filename): New function.
+	(w3m-form-input-textarea-save): Ditto.
+	(w3m-form-input-textarea-set): Call `w3m-form-input-textarea-save'.
+	(w3m-form-input-textarea-exit): Ditto.
+	(w3m-form-input-textarea-mode): Modify doc-string.
+	(w3m-form-input-textarea): Handling filename and coding-system.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Revert 2004-12-17 change.  The buffer
+	seems empty killed before to restore window configuration.  Restore the
+	position and window-start if last window equal current-window.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-restore-position): Handling the window of
+	w3m for sure absolutely.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Revert.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Bind undo-outer-limit.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Local file is given special treatment
+	for `href'. Fix match data of `href'.
+	(w3m-view-this-url-1): If the points of window was treated in
+	w3m-goto-url(), now reconstruct window configuration.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-update-tab-line): Wobble the window size instead of
+	setting the cursor color.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-namazu.el (w3m-namazu): Added optional argument `reload'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-tag-regexp-of): Remove.
+	(w3m-search-tag-1): New function.
+	(w3m-search-tag): New macro.
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Use w3m-search-tag instead
+	of w3m-tag-regexp-of.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Use 'w3m-name-anchor2 property to avoid
+	overriding 'w3m-name-anchor property.
+	(w3m-search-name-anchor): Search 'w3m-name-anchor2 property if not
+	detect 'w3m-name-anchor property.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Ignore a select form in the
+	case where w3mmee is running if its value is not specified.  Reported
+	by Clemens Fischer <[e-mail]>.
+
+	* w3mhack.el (labels): Remove.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (labels): A temporary substitution against the Emacs CVS
+	bug.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-resume): Check whether a form exists, before
+	resuming its values from its history.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-rss.el: New file.
+
+	* w3m-antenna.el (w3m-antenna-check-rss): New function.
+	(w3m-antenna-sites): Improve its customize spec to support
+	`w3m-antenna-check-rss'.
+
+	* w3m.el (w3m-content-type-alist): Add text/xml, application/xml,
+	application/rdf+xml, and application/rss+xml.
+	(w3m-detect-xml-charset): New function.
+	(w3m-decode-buffer): Use the above function when decoding XML contents.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-redisplay-this-page): Don't make a new history.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-output-coding-system): Use `utf-8' if Emacs has internal
+	utf-8 only.
+	(w3m-input-coding-system): Revert last change.
+	(w3m-halfdump-command-arguments): Bind `fix_width_conv' and
+	`use_jisx0201' when w3m-m17n.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-input-coding-system): Use `utf-8' if Emacs has internal
+	utf-8, it has no Mule-UCS and w3m-type is `w3m-m17n'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-char-to-int, w3m-string-to-char-list,
+	w3m-int-to-char): Silence byte-compiler.
+	* w3m-ccl.el (charset-id): Ditto.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-update): Don't let iswitchb manage
+	the w3m tab menubar.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-check-refresh-attribute): Support own page reload.
+	(w3m-goto-url-with-timer): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_ADD_LOAD_PATH): Clarify the error message.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (call-process-region): Add an advice in order to fix an
+	XEmacs 21.5.18 bug.
+	* w3mhack.el (call-process-region): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-check-refresh-attribute): Fix to analyze the URL.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-touch-file): Protect against the absence of
+	file-name-coding-system and default-file-name-coding-system.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-buffer-setup): Modify `mode-line-buffer-identification';
+	display "Loading..." instead of `w3m-current-titile' when process of
+	w3m active.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-touch-file): Use `set-file-times' if available; bind
+	`coding-system-for-write' while calling `w3m-touch-command'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-perldoc.el (w3m-perldoc-input-coding-system)
+	(w3m-perldoc-output-coding-system): New options.
+	(w3m-about-perldoc): Use the above options, to display both modules
+	encoded in EUC-JP and ones encoded in UTF-8 correctly.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-line): Replace "%" with "%%" in
+	w3m-tab-line-format.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-retrieve): Add autoload cookie.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add the parameter
+	`ie=Shift_JIS' to Google for Japanese users.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-antenna.el (w3m-about-antenna): Revert 2004-09-16 change.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-antenna.el (w3m-about-antenna): Change the method to compare an
+	arrived time to a last-modified time.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Don't make a new history when reloading.
+	(w3m-reload-this-page): Ditto.
+
+	* w3m-hist.el (w3m-history-restore-position): Don't cause an error even
+	if a page has shrunk.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.4.3 from emacs-w3m-1_4 branch.
+
[phone]  Kazuhiro UCHIDA  <[e-mail]>
+
+	* w3m.el (w3m-remove-meta-charset-tags): Check that a content field has
+	a valid value before parsing it.
+
[phone]  Romain Francoise  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Improve regexp for Google
+	in order to make the scroll-to-next-page feature work on Google Groups
+	as well.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google.
+	Suggested by Romain Francoise <[e-mail]>.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el (slanted): Rename @s to @slanted.
+
[phone]  Romain Francoise  <[e-mail]>
+
+	Enable emacs-w3m to be built with Emacs --without-x.
+
+	* w3m-e21.el (image-size): Alias to ignore if it is not available.
+
+	* w3m-favicon.el (w3m-favicon-type): Don't use image-types if it is not
+	available.
+
+	* w3m.el (mouse-set-point): Autoload mouse.elc.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: Support @s.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.4.2 from emacs-w3m-1_4 branch.
+
+	* w3m.el (w3m-w3m-canonicalize-url): Revival.
+	(w3m-w3m-attributes, w3m-w3m-retrieve): Call the above.
+	(w3m-canonicalize-url): Do not check a slash.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-detect-meta-charset): Check that a content field has a
+	valid value before parsing it.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+	Suggested by Tatsuya Kinoshita <[e-mail]>
+
+	* w3m.el (w3m-correct-charset-alist): Reverse "windows-125x" and
+	"cp125x".
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.4.1 from emacs-w3m-1_4 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-weather.el: Reconstructed to follow the change of site design.
+	(w3m-weather-completion-table, w3m-weather-filter-functions): Update.
+	(w3m-weather-extract-contents, w3m-weather-adjust-contents): New
+	functions.
+	(w3m-weather-remove-headers, w3m-weather-remove-footers,
+	w3m-weather-get-seikatu-sisu, w3m-weather-insert-seikatu-sisu):
+	Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-canonicalize-url): Don't make sure arg is a string.
+	(w3m-input-url): Don't use w3m-canonicalize-url for non-string url
+	which may be the symbol popup.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-canonicalize-url): New function.
+	(w3m-input-url, w3m-browse-url): Call the above.
+	(w3m-w3m-canonicalize-url): Abolished.
+	(w3m-w3m-attributes, w3m-w3m-retrieve): Do not call the abolished
+	function.
+	(w3m-url-hierarchical-schemes): Add `ftps'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-add-w3m-initial-frames): Share the opened frame in
+	w3m-initial-frames over all emacs-w3m buffers if w3m-use-tab is
+	non-nil.
+	(w3m-delete-w3m-initial-frames): New function; add it to
+	delete-frame-functions or delete-frame-hook, or merge into delete-frame
+	using defadvice.
+	(w3m-delete-frames-and-windows): Return to the former buffer after
+	performing walk-windows; don't manage w3m-initial-frames.
+
+	* w3m.el (w3m-delete-buffer): Don't manage w3m-initial-frames.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m.el (TopLevel): Display meaningful message when w3m-command is
+	nil.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Call `w3m-replace-symbol' before
+	`w3m-fontify-anchors' in order not to lose text properties.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m): Run w3m-mode before popping to the newly created buffer
+	up.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-output-coding-system): Change default value for w3m-m17n.
+
+	* w3m-bug.el (report-emacs-w3m-bug-system-informations): Add
+	w3m-input-coding-system and w3m-output-coding-system.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-meta-content-type-charset-regexp)
+	(w3m-meta-charset-content-type-regexp)
+	(w3m-meta-refresh-content-regexp)
+	(w3m-meta-content-refresh-regexp): Removed.
+	(w3m-detect-meta-charset, w3m-remove-meta-charset-tags)
+	(w3m-check-refresh-attribute): Use `w3m-parse-attributes' instead of
+	above regexp.
+	(w3m-rendering-buffer): Don't call `w3m-remove-meta-charset-tags' for
+	w3m-m17n.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-new-session): Doc fix.
+	(w3m-safe-view-this-url): Use w3m-goto-url-new-session only when a user
+	invokes this command in a buffer not being running the w3m-mode.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-store-position): Fix a wrong message.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Relax the condition.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-new-session): Doc fix.
+	(w3m-safe-view-this-url): Use w3m-goto-url-new-session instead of
+	w3m-goto-url when w3m-make-new-session is non-nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-new-session): New user option.
+	(w3m): Make a new emacs-w3m buffer if w3m-make-new-session is non-nil
+	and a user specifies a url string.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-popup-buffer): Don't use focus-frame in Emacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-discard-input): Abolish.
+	(w3m-process-wait-process): Don't use accept-process-output to make it
+	possible to show progress messages; discard key press events while
+	waiting for finishing of a process.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-put-by-name): Overwrite ID value when a name is
+	found.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Remove tags in the form element except for
+	textarea.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	Suggested by Yoichi NAKAYAMA <[e-mail]>
+
+	* w3m-util.el (w3m-replace-in-string): New function which is a copy of
+	shimbun-replace-in-string.
+	* w3m.el (w3m-active-region-or-url-at-point): Use it; remove all
+	whitespace in region.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-view-inline-image): Bind mew-use-text/html as t.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-home-page): Improve the customizing widget.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Bind file-name-handler-alist as nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-arrived-ignored-regexp): Add about:blank.
+	(w3m-history-ignored-regexp): Ditto.
+	(w3m-about-retrieve): Ditto.
+	(w3m-buffer-setup): Prefer the last visited emacs-w3m buffer.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Update its default value and its
+	customize spec.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-extra): Examine image data briefly to detect
+	only gif, jpeg and png by itself.
+
+	* w3m-util.el (w3m-image-type-from-data): Abolish.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-extra): Check only 300 bytes at the top of the
+	data.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-image-type-from-data): New function.  Suggested by
+	KOSEKI Yoshinori <[e-mail]>.
+
+	* w3m.el (w3m-w3m-dump-extra): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-start-process): Use
+	set-process-query-on-exit-flag if it is available.
+
+	* w3m.el (w3m-w3m-dump-extra): Trust the magic at the beginning of
+	image data rather than the content-type header.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Prefer cached contents without checking
+	their validity.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-waited): Revival.
+	(w3m-process-with-wait-handler): Set t to the above.
+
+	* w3m.el (w3m-w3m-dump-extra): Check the above.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (emacs-w3m-version): Reset.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.4 from emacs-w3m-1_4 branch.
+
+	* Makefile.in (install-package): Install w3m-load.el.
+	(dist, tarball): Reimplemented, in order to keep time stamps of source
+	files.
+
+	* w3mhack.el (w3mhack-generate-xemacs-load-file): Simplified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-xemacs-load-file): Replace
+	`replace-string' with basic functions.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-xemacs-load-file): New function.
+	(w3mhack-make-package): Use `w3mhack-generate-xemacs-load-file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-update-files-autoloads): New function.
+	(w3mhack-generate-load-file): Use `w3mhack-update-files-autoloads'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (tarball): Remove w3m-kwds.el and w3m-load.el.
+
+	* configure.in, aclocal.m4: Add `--with-xml' option.
+
+	* w3mhack.el (w3mhack-module-list): New function.
+	(w3mhack-examine-modules): Use the above.
+	(w3mhack-compile): Use `w3mhack-module-list' instead of
+	`w3mhack-examine-modules'.
+	(w3mhack-generate-load-file): Likewise; Insert ^L to avoid an error of
+	`update-file-autoloads' of old emacsen.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-treat-image-size): Default to t.
+
+	* w3m-filter.el (w3m-filter-asahi-shimbun): Use marker to limit the
+	search bound.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-load-file): Save w3m-load.el file before
+	performing `update-file-autoloads'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (install-lisp): Do not install w3mhack.el.
+	(install-package): Install neither w3mhack.el nor w3m-load.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-treat-image-size): Default to nil.
+	(w3m-rendering-half-dump): Fix a logic determining whether to specify
+	`-ppl' and `-ppc' options to the w3m command.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el: Create w3m-load.el.
+	(w3mhack-load-file): New variable.
+	(w3mhack-examine-modules): Ignore `w3mhack-load-file'.
+	(w3mhack-generate-load-file): New function.
+	(w3mhack-compile): Call the above.
+
+	* .cvsignore: Ignore w3m-load.el.
+
+	* Makefile.in (clean): Remove w3m-load.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): In Emacs, don't bind
+	directory-sep-char which is an obsolete variable.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el, w3m-favicon.el: Move snippets managing
+	`w3m-arrived-setup-functions' and `w3m-arrived-shutdown-functions' from
+	w3m.el into w3m-favicon.el.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-hns-last-modified): Use 32400 as a
+	correct timezone instead of JST (suggested by YAMAOKA-san).
+
[phone]  Christian Schmitt  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): Bind directory-sep-char to `?/'.  It
+	is `?\' by default in XEmacs on Windows (native, not Cygwin).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-use-symbol): Don't activate it in Emacs 20.  Advised by
+	Arisawa-san.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Simplify the rule of sending referers.
+	(w3m-add-referer-regexps): Abolished.
+	(w3m-add-referer-predicate-function): Abolished.
+	(w3m-add-referer): New option.
+	(w3m-add-referer-p): New function.
+	(w3m-add-referer-predicate-by-referer-regexps): Removed.
+	(w3m-add-referer-predicate-by-hosts): Removed.
+	(w3m-request-arguments, w3m-header-arguments): Follow the above
+	changes.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-add-w3m-initial-frames): Get the correct value for
+	the newly created frame in Emacs 19.
+
+	* w3m.el (w3m-about-retrieve): Load base64 for Emacs 19.
+	(w3m-minor-mode-command-alist): Add w3m-print-this-url.
+
+	* w3m-bitmap.el (w3m-bitmap-image-insert): Don't put the evaporate
+	property on empty overlays (revert 2004-04-07 change).
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-link-numbering.el (w3m-view-numbered-link): Removed.
+	(w3m-move-numbered-anchor): New command.
+	(w3m-link-numbering-mode-map): Use `w3m-move-numbered-anchor' instead
+	of `w3m-view-numbered-link'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-input-coding-system): Use `w3m-output-coding-system' as
+	its default value for w3m-m17n and w3mmee.
+	(w3m-halfdump-command-arguments): Use "-I" option to disable
+	automatic-detection of coding systems for w3m-m17n and w3mmee.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-meta-refresh-content-regexp): Allow quoted string as url.
+	(w3m-meta-content-refresh-regexp): Ditto.
+	(w3m-check-refresh-attribute): Decode entities.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-link-numbering.el (w3m-link-numbering): Quit when links have
+	already been numbered.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-link-numbering.el (w3m-link-numbering-mode): Delete all overlays
+	that display link numbers, when deactivating.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-link-numbering.el (w3m-link-numbering): Add face to before-string
+	correctly under XEmacs; don't bother to delete overlays (suggested by
+	TSUCHIYA-san).
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-link-numbering.el (w3m-link-numbering-face): New face.
+	(w3m-link-numbering): Use it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-link-numbering.el: New file.
+
+	* w3m.el (w3m-browse-url): Load `browse-url' before calling
+	`browse-url-interactive-arg'.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm.  @url
+	is now a synonym for @uref.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): No need to enable evaporation of
+	overlays in XEmacs.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* w3m.el (w3m-delete-all-overlays): Revert.
+	(w3m-highlight-current-anchor): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-delete-all-overlays): Remove.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-insert): Enable the evaporate
+	property on overlays.
+
+	* w3m-e21.el (w3m-form-make-button): Enable the evaporate property on
+	buttun overlays.
+
+	* w3m.el (w3m-fontify-anchors): Ditto.
+	(w3m-create-text-page): No need to delete zombie overlays.
+	(w3m-create-image-page): Ditto.
+	(w3m-highlight-current-anchor-1): Enable the evaporate property on
+	overlays.
+	(w3m-highlight-current-anchor): No need to delete overlays.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-rendering-extract-title): Remove too much whitespace.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-delete-all-overlays): Simply delete all overlays if the
+	optional arg is given.
+	(w3m-create-text-page): Delete zombie overlays.
+	(w3m-create-image-page): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Improve custom.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add "amazon" entry.
+
[phone]  Yuya Nishida  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add "amazon-ja" entry;
+	"PostData" can be specified.
+	(w3m-search): Support post-data.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-header-arguments): Set unibyte at work buffer.
+
+	* w3m-form.el (w3m-form-make-form-data): Set unibyte at work buffer;
+	Encode form data.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-type): Check if w3m-compile-options contains "m17n".
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-add-referer-regexps): Fix typo.
+	(w3m-add-referer-predicate-function): New user option.
+	(w3m-add-referer-predicate-by-referer-regexps): New function.
+	(w3m-add-referer-predicate-by-hosts): Ditto.
+	(w3m-request-arguments): Call w3m-add-referer-predicate-function.
+	(w3m-header-arguments): Ditto.
+
+	* octet.el (mime-view-octet): Avoid redundant invocation of
+	`mime-entity-content'.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-symbol.el (w3m-mule-unicode-symbol): Fixed 32th character.
+	Thanks to Taichi KAWABATA for his report.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-get-seikatu-sisu): Relax regular
+	expressions to extract indices, to follow the change of the site
+	design.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-force-window-update): New function.
+	(w3m-tab-drag-mouse-function, w3m-tab-click-mouse-function,
+	w3m-tab-line, w3m-e21-switch-to-buffer, w3m-select-buffer-hook): Use
+	`w3m-force-window-update' instead of `w3m-e21-wobble-window-size'.
+	(w3m-e21-wobble-window-size): Abolish.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Use `w3m-force-window-update'.
+
+	* w3m-proc.el: Autoload `w3m-force-window-update' when compiling.
+	(w3m-process-stop): Use `w3m-force-window-update'.
+
+	* w3m.el (w3m-select-buffer-show-this-line): Use
+	`w3m-force-window-update'.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (emacs-w3m-version): Release 1.3.85.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-drag-mouse-function): Call
+	`w3m-e21-wobble-window-size'.
+	(w3m-tab-click-mouse-function): New function.
+	(w3m-tab-make-keymap): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-mee-new): Use `w3m-form-normalize-action' for
+	action.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer-show-this-line): Call
+	`w3m-e21-wobble-window-size' when Emacs 21 or 22 is running.
+
+	* w3m-e21.el (w3m-tab-line-format): Make it buffer-local variable.
+	(w3m-tab-timer): Ditto.
+	(w3m-e21-wobble-window-size): New function.
+	(w3m-tab-line): Make `w3m-tab-timer' hold boolean value; let a timer
+	function run certainly in a buffer in which a timer started; use
+	`w3m-e21-wobble-window-size'.
+	(w3m-e21-switch-to-buffer): New command.
+	(w3m-e21-subst-switch-to-buffer-keys): New function.
+	(w3m-mode-setup-functions): Add `w3m-e21-subst-switch-to-buffer-keys'.
+	(w3m-select-buffer-hook): Add `w3m-e21-wobble-window-size'.
+	(w3m-spinner-image-index): Make it buffer-local variable.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-make-form-data): Align form by the number of
+	`hseq'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-sites): Add
+	`w3m-antenna-check-another-page' to its customize spec.
+	(w3m-antenna-check-another-page): New function.
+	(w3m-about-antenna): Relaxed the condition to check changed sites.
+	(w3m-antenna-add): Add a new site at the end of `w3m-antenna-sites'
+	instead of adding it at the top.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-function): New widget.
+	(w3m-antenna-sites): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): Protect expand-file-name from
+	cygwin-mount.el's behavior on Windows.
+
+	* w3m-antenna.el (w3m-about-antenna): Check arrived-time if no
+	last-modified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-sites): Fix mis-implemented customizing
+	widgets in Emacs 20.7 through 21.3 and XEmacs.
+	(w3m-antenna-add): Support Emacs 20.
+
+	* w3m-util.el (widget-default-get): Remove advice.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (widget-default-get): Advise the function to fix a bug in
+	Emacs 21.1 through 21.3.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-resume): Fix for checkbox.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: Support @docbook, @ifdocbook, @ifnotdocbook, and
+	@registeredsymbol.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-active-region-or-url-at-point): Move the point backward
+	from the end of the active region instead of moving it forward, in
+	order to avoid enlarging the region.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-active-region-or-url-at-point): Find a url-like string in
+	the region instead of extracting the whole substring when the region is
+	active.  Don't use `w3m-url-at-point' for that since it doesn't work
+	for all url string.
+	(w3m-quit): Delete frames seemingly fast.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Because some broken servers
+	provide empty contents as their favicons, check the length of the
+	retrieved content, before calling `w3m-favicon-convert'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Changes to validate cached contents.
+	(w3m-follow-cache-control-header): Abolished.
+	(w3m-prefer-cache): New option.
+	(w3m-cache-available-p): Check whether a cached header includes cache
+	control headers.
+	(w3m-w3m-dump-extra): Always cache both a header and a content.
+	(w3m-w3m-retrieve-1): Check whether a cache is available, before using
+	it.
+	(w3m-view-this-url): When visiting history pages, prefer cached
+	contents without checking their validity.
+	(w3m-view-previous-page, w3m-view-source, w3m-view-header): Prefer
+	cached contents without checking their validity.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-show-error-information): Decode cache contents if
+	necessary.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-edit-url): Define as a command.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Exclude w3m-e22.el except for
+	Emacs 22.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-edit-function-alist): New option.
+	(w3m-edit-url): Refer the above alist to find a suitable function for
+	editing a specified page.
+	(w3m-edit-function, w3m-edit-current-url): Its docstring is modified to
+	follow the above change.
+	(w3m-edit-this-url): Its docstring is modified likewise, and it is
+	simplified.
+	(w3m-goto-url): Ignore cached form data when reloading.
+
+	* w3m.el (w3m-safe-view-this-url): Call `w3m-goto-url' when a function
+	set to `w3m-goto-article-function' returns nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Changes to follow anchors that point Shimbun articles.
+	(w3m-goto-article-function): New variable.
+	(w3m-safe-view-this-url): Refer the above.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-follow-cache-control-header): New option.
+	(w3m-w3m-dump-extra): If `w3m-follow-cache-control-header' is nil, do
+	not follow the chache control headers.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (tarball): Because Emacs-22 has not been released, remove
+	w3m-e22.el from the creating tarball.
+
[phone]  Taichi KAWABATA  <[e-mail]>
+
+	* w3m-e22.el: New file.  This file is simply the copy of w3m-e21.el
+	except that the ccl section has been removed.
+
+	* w3m.el: Require w3m-e22 when Emacs 22 is running.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-after-cursor-move-hook): Add :group keyword.
+	(w3m-auto-show): Check `truncate-lines' before scrolling.
+	(w3m-check-current-position): Do not check `truncate-lines'.
+
+	* mime-w3m.el: Changes to display URI of the current anchor.
+	(mime-w3m-after-cursor-move-hook): New option.
+	(mime-w3m-add-local-hook): New advice.
+	(mime-w3m-check-current-position): New funcion.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-start-and-wait): Abolished.
+	(w3m-process-with-wait-handler): Reimplemented.
+
+	* w3m.el (w3m-input-url): Accept other symbols than `popup'.
+	(w3m-copy-buffer): Fix the bug that drops an asynchronous handler
+	returned by `w3m-goto-url'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Register a url to the history even if it is
+	failed to retrieve.  Suggested by Fujishima-san.
+
[phone]  Hiroshi Fujishima  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Fix a bug which causes an error when there's
+	neither a frame nor a window for the emacs-w3m session and `url' is the
+	symbol `popup' (it is because there's a url-like text around the cursor
+	but deleted by a user in the minibuffer).
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Add "http://" to its return value, when its
+	return value contains no scheme part.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-extra): Check cache control headers before
+	caching headers and contents.  This change is suggested by Mr. Amagai
+	in [emacs-w3m:06255].
+	(w3m-message): Make it verbose, even if a buffer related to emacs-w3m
+	is not displayed.  w3m-print-this-url() has been broken in buffers
+	displaying text/html messages, because w3m-message() was too silent.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-safe-view-this-url): Bind `w3m-pop-up-windows' to nil
+	locally, in order to keep MUA's window configuration.
+
+	* w3m-proc.el (w3m-process-do-with-temp-buffer): Save the current
+	buffer while executing an asynchronous body.
+
+	* w3m-util.el (w3m-insert-string): Define its `edebug-form-spec'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-util.el (w3m-keep-region-active): Renamed from
+	`w3m-activate-zmacs-regions'.
+	(w3m-deactivate-region): Declared as a macro.
+
+	* w3m-search.el (w3m-search-read-query): Call `w3m-deactivate-region'
+	instead of `w3m-deactivate-mark'; Call `region-beginning' and
+	`region-end' instead of `point' and `mark'.
+
+	* w3m.el (w3m-next-anchor, w3m-previous-anchor, w3m-next-form,
+	w3m-previous-form, w3m-next-image, w3m-previous-image,
+	w3m-scroll-up-or-next-url, w3m-scroll-down-or-previous-url,
+	w3m-beginning-of-line, w3m-end-of-line): Call `w3m-keep-region-active'
+	instead of `w3m-activate-zmacs-regions'.
+	(w3m-active-region-or-url-at-point): Call `region-beginning' and
+	`region-end' instead of `point' and `mark'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-discard-input): New variable.
+	(w3m-process-wait-process): If `w3m-process-wait-discard-input' is
+	non-nil, call `discard-input'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-deactivate-mark): New function alias.
+
+	* w3m.el (w3m-active-region-or-url-at-point): Use it.
+	(w3m-open-all-links-in-new-session): Use it.
+
+	* w3m-search.el (w3m-search-read-query): Use it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-active-region-or-url-at-point): New function.
+	(w3m-input-url, w3m-view-this-url, w3m-goto-url): Call
+	`w3m-active-region-or-url-at-point' instead of `w3m-url-at-point'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-util.el (w3m-region-active-p): New macro.
+
+	* w3m.el (w3m-open-all-links-in-new-session): Deactivate the mark when
+	it is active.
+	(w3m-view-this-url-new-session): Use `w3m-region-active-p'.
+
+	* w3m-search.el (w3m-search-read-query): Use `w3m-region-active-p'.
+
+	* w3m-namazu.el (w3m-namazu): Use `w3m-search-read-query' to read a
+	query from the minibuffer.
+
+	* w3m-search.el (w3m-search-read-query): New function.
+	(w3m-search): Use the above function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-search.el (w3m-search): Use the region as an initial string if
+	Transient Mark mode.
+	(w3m-search-word-at-point): Follow the above change in its docstring.
+
+	* w3m-e21.el (w3m-tab-line): Check the length of the current title,
+	before checking the breadth of its first character.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-accept-languages): Split the option of w3m with a comma
+	surrounded by some spaces.
+	(w3m-dump-head-source-command-arguments): Use a comma instead of a
+	white space to concatenate elements of `w3m-accept-languages'.
+	Cf. Section 14.4 of RFC2047.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Add an advice to byte-optimize-form-code-walker to avoid
+	the warning ``...called for effect'' for the pop form when running
+	Emacs 21.3.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-create-text-page): Use the last directory as a title of
+	text/plain page when its uri is terminated by a slash.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (emacs-w3m-version): Release 1.3.80.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-process): Return exit status; Use
+	`accept-process-output' instead of `sit-for' in order to flush pending
+	output.
+	(w3m-process-with-wait-handler): Follow the above change.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-mode): Small doc fix.
+	(w3m-relationship-estimate-rules): Relax the regular expression to
+	detect result pages of Google.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-safe-toggle-inline-image): New function.
+	(w3m-toggle-inline-images): Revoke the recent changes.
+	(w3m-safe-toggle-inline-images): New function.
+	(w3m-safe-view-this-url): Doc fix.
+	(w3m-minor-mode-command-alist): Use `w3m-safe-toggle-inline-image' and
+	`w3m-safe-toggle-inline-images'.
+
+	* w3m-util.el (w3m-find-w3m-buffer): Abolish.
+	(w3m-with-w3m-buffer): Abolish.
+
+	* mew-w3m.el (mew-w3m-view-inline-image): Revert.
+
+	* attic/vm-w3m.el (vm-w3m-safe-toggle-inline-images): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images): Ignore `w3m-safe-url-regexp' when
+	the prefix argument is given.
+
+	* w3m-util.el (w3m-find-w3m-buffer): Bind `w3m-safe-url-regexp' to the
+	value specified peculiarly by each MUA.
+	(w3m-with-w3m-buffer): Ditto.
+
+	* mew-w3m.el (mew-w3m-view-inline-image): Don't bind
+	`w3m-safe-url-regexp' there.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-view-inline-image): Fix last change.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-view-inline-image): Use
+	`w3m-toggle-inline-images'.
+	(mew-mime-text/html-w3m): Put the `w3m-images' text property in the
+	message buffer.
+
+	* w3m-util.el (w3m-find-w3m-buffer): Fix for Mew.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images): Wrap it with
+	`w3m-with-w3m-buffer'.
+
+	* w3m-util.el (w3m-find-w3m-buffer): New function.
+	(w3m-with-w3m-buffer): New macro.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-string): Renamed from
+	`string-with-default'.
+	(w3m-antenna-string-create): Renamed from
+	`string-with-default-value-create'.
+	(w3m-antenna-sites): Change its customize spec.
+
+	* w3m-xmas.el (w3m-window-hscroll, w3m-current-column,
+	w3m-set-window-hscroll): Import definitions from w3m.el.
+	(w3m-run-at-time): Renamed from `w3m-xmas-run-at-time'.
+
+	* w3m.el (w3m-window-hscroll, w3m-current-column,
+	w3m-set-window-hscroll): Export definitions for XEmacs to w3m-xmas.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_SET_VANILLA_FLAG): New function specifying the
+	`VANILLA_FLAG' variavle.  XEmacs 21.5 needs to be given `-vanilla'
+	rather than `-q -no-site-file'.
+	(AC_EMACS_LISP): Use `VANILLA_FLAG'.
+	(AC_PATH_EMACS): Call `AC_SET_VANILLA_FLAG'.
+	(AC_ADD_LOAD_PATH): Use `VANILLA_FLAG'.
+	(AC_CHECK_ELISP): Ditto.
+
+	* configure.in: Check for `EGREP' before calling `AC_PATH_EMACS'.
+
+	* Makefile.in (VANILLA_FLAG): New variable.
+	(FLAGS): Use it.
+	(very-slow): Use it.
+
+	* doc/Makefile.in (VANILLA_FLAG): New variable.
+	(FLAGS): Use it.
+
+	* w3m-xmas.el (w3m-xmas-run-at-time): Use a simple function definition
+	if there is not a bug in `start-itimer'.
+
[phone]  KAMO Tomoyuki <[e-mail]>
+
+	* octet.el (octet-suffix-type-alist): Add suffix of bzip-ed files.
+	(octet-type-filter-alist): Add an entry of bzip2.
+	(octet-guess-type-from-name): Relax the regular expression to detect
+	suffix, in order to handle bzip-ed files.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Experimentally implement the estimation layer of
+	relationships between pages.
+	(w3m-relationship-estimate-rules): New option.
+	(w3m-relationship-estimate, w3m-relationship-simple-estimate,
+	w3m-relationship-magicpoint-estimate,
+	w3m-relationship-search-patterns): New functions.
+	(w3m-use-filter): Cancel the last change; its default value is changed
+	to nil.
+
+	* w3m-filter.el (w3m-filter-rules): Remove rules to find relationships.
+	(w3m-filter-find-relationships): Abolished.
+
+	* w3m-util.el (w3m-html-string-regexp): Import from w3m.el.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-filter): Change its default value to t.
+
+	* w3m-filter.el: Reconstructed completely.
+	(w3m-filter-rules): Change its spec and its default value.
+	(w3m-filter): Reimplemented.
+	(w3m-filter-delete-regions, w3m-filter-find-relationships): New
+	functions.
+	(w3m-filter-db, w3m-filter-db-size, w3m-filter-server-regexp,
+	w3m-filter-setup, w3m-filter-delete-region, w3m-filter-lwn.net,
+	w3m-filter-google.com, w3m-filter-www.zdnet.co.jp): Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-xmas-run-at-time): Rewrite w/o using fsf-compat.
+
+	* w3m.el (w3m-run-at-time): New function alias.
+	(w3m-refresh-at-time): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-xmas-run-at-time): New function.
+
+	* w3m.el (w3m-refresh-at-time): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-new-session): Abolish the optional arg.
+	(w3m-mouse-view-this-url-new-session): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-buffer-setup): Use `defun' instead of `defsubst'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-current-anchor-face): Replace backquote with quote.
+	(w3m-select-buffer-current-buffer): Ditto.
+	(w3m-header-line-insert): Ditto.
+	(w3m-about-retrieve): Use `defun' instead of `defsubst'.
+	(w3m-cid-retrieve): Ditto.
+	(w3m-current-column): Make it a function, not a macro.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-minor-mode): Run hooks only when this minor mode is
+	enabled.
+	* w3m-bookmark.el (w3m-bookmark-mode): Ditto.
+	* w3m-antenna.el (w3m-antenna-mode): Ditto.
+
+	* w3m-antenna.el (w3m-antenna-alist): Simplified.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el: Define a new minor mode `w3m-antenna-mode'.
+	(w3m-antenna-mode-map, w3m-antenna-mode): New variables.
+	(w3m-antenna-mode, w3m-antenna-mode-setter, w3m-antenna-edit): New
+	functions.
+
+	* w3m-bookmark.el (w3m-bookmark-mode): Change its interactive spec, and
+	improve its document.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Abolish the 4th argument
+	`handler' and wrap the asynchronous processing forms with
+	`w3m-process-with-null-handler', in order to clarify this function's
+	purpose.
+
+	* w3m.el (w3m-message): Use `walk-windows' instead of `window-list',
+	because the latter is not available at Meadow and Mule2.
+	(w3m-w3m-retrieve): Check the status code.
+	(w3m-show-error-information): Also use retrieved error pages.
+	(w3m-minor-mode): Change its interactive spec.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-convert): Make sure data of the ico type
+	contains the correct magic numbers.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-util.el (w3m-last-visited-buffer): Abolished.
+	(w3m-popup-buffer): Do not reset the above variable.
+
+	* w3m.el (w3m-close-window): Do not set the above variable.
+	(w3m): Do not refer the above variable.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-retrieve-and-render): Use `w3m-message' instead of
+	`message'; don't let it be controlled by `w3m-verbose'.
+	(w3m-alive-p): Don't sort the return value of `list-buffers' so that it
+	returns the last visited emacs-w3m buffer as much as possible; don't
+	inline the `w3m-list-buffers' function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-verbose): Change its default value to nil.
+	(w3m-message): When `w3m-verbose' is nil, display messages without
+	logging.
+	(w3m-make-help-echo, w3m-toggle-inline-image, w3m-zoom-in-image,
+	w3m-zoom-out-image, w3m-view-this-url, w3m-submit-form, w3m-view-image,
+	w3m-save-image, w3m-view-url-with-external-browser,
+	w3m-download-this-url, w3m-print-this-url, w3m-edit-current-url,
+	w3m-edit-this-url, w3m-quit, w3m-goto-ftp-url, w3m-select-buffer,
+	w3m-select-buffer-show-this-line,
+	w3m-select-buffer-show-this-line-and-switch): Call `w3m-message'
+	instead of `w3m-display-message'.
+
+	* w3m-util.el (w3m-display-message): Removed.
+	(w3m-display-message-enable-logging): Abolished.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-message): Silent when the cursor is in minibuffer.
+
+	* w3m-util.el (w3m-display-message): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-html-string-regexp): Fix my fault; enclose it with
+	`eval-and-compile' which is needed for compiling since it is used in a
+	macro.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-process): Invert the return value of
+	sit-for() that waits an asynchronous process.
+	(w3m-process-kill-process): Relax the condition that checks whether a
+	given process has already finished or not.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search): Use `w3m-goto-url' instead of `w3m'.
+	* w3m-weather.el (w3m-weather): Ditto.
+
+	* w3m.el (w3m-obey-w3m-pop-up-frames): Abolish.
+	(w3m-goto-url-new-session): Find an existing emacs-w3m buffer and then
+	make a copy of it; use `w3m-goto-url' instead of `w3m' if there is no
+	emacs-w3m buffer.
+	(w3m-browse-url): Revert last change; rename the optional arg to
+	`new-session'; call `w3m-goto-url-new-session' or `w3m-goto-url'.
+	(w3m-select-buffer): Use `w3m-goto-url' instead of `w3m'.
+	(w3m-safe-view-this-url): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna): Don't pass the interactive flag to
+	`w3m-goto-url'.
+	* w3m-bookmark.el (w3m-bookmark-view): Ditto.
+	* w3m-cookie.el (w3m-cookie): Ditto.
+	* w3m-dtree.el (w3m-dtree): Ditto.
+	* w3m-namazu.el (w3m-namazu): Ditto.
+	* w3m-perldoc.el (w3m-perldoc): Ditto.
+
+	* w3m.el (w3m-copy-buffer): Don't pop up a window or a frame if
+	`w3m-goto-url' is called.
+	(w3m-goto-url): Abolish the 8th arg `interactive-p'; pop up a window or
+	a frame anyway.
+	(w3m-goto-url-new-session): Abolish the `interactive-p' argument; don't
+	pass it to `w3m-goto-url'.
+	(w3m-gohome): Ditto.
+	(w3m): Don't pop up a window or a frame there.
+	(w3m-browse-url): Make it work as `browse-url-w3'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-wait-process): Don't specify 3 args to
+	`sit-for' for XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-sites): Change its default value.  Allow
+	a list that consists of a function and its options, as the third
+	element of each site.
+	(w3m-antenna-html-skeleton): Remove the link to the antenna editor.
+	(w3m-antenna-setup): Removed.
+	(w3m-antenna-shutdown): Removed.
+	(w3m-antenna-alist): New function.
+	(w3m-antenna-site-update): Ditto.
+	(w3m-antenna-check-hns): Ditto.
+	(w3m-antenna-check-anchor): Ditto.
+	(w3m-antenna-check-page): Ditto.
+	(w3m-antenna-check-site): Use the above three functions.
+	(w3m-antenna-check-all-sites): Follow the above change.  Use
+	w3m-antenna-alist() and w3m-save-list() instead of w3m-antenna-setup()
+	and w3m-antenna-shutdown().
+	(w3m-antenna-check-site-after): Removed.
+	(w3m-antenna-make-summary): Use a key attribute instead of an url
+	attribute, when the latter is not set.
+	(w3m-antenna-make-summary-like-natsumican): Ditto.
+	(w3m-about-antenna): Call w3m-antenna-alist() instead of
+	w3m-load-list().
+	(w3m-about-antenna-edit): Removed.
+	(w3m-antenna-edit-reset-post-data): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna): Pass the interactive flag to
+	`w3m-goto-url'.
+	* w3m-bookmark.el (w3m-bookmark-view): Ditto.
+	* w3m-cookie.el (w3m-cookie): Ditto.
+	* w3m-dtree.el (w3m-dtree): Ditto.
+	* w3m-namazu.el (w3m-namazu): Ditto.
+	* w3m-perldoc.el (w3m-perldoc): Ditto.
+	* w3m.el (w3m-gohome): Ditto.
+	(w3m-browse-url): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-rendering-half-dump): Move point to the end of the region
+	in order to avoid a bug of `call-process-region' in XEmacs 21.5.7+ (see
+	the comment).
+	(w3m-decode-encoded-contents): Ditto.
+	(w3m-x-moe-decode-buffer): Ditto.
+
+	* w3m-perldoc.el (w3m-about-perldoc): Ditto.
+
+	* w3m-xmas.el (w3m-initialize-graphic-icons): Ditto.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Say "no favicon" if it is not
+	available.
+
+	* w3m-proc.el (w3m-process-with-environment): Rely on the
+	`temp-directory' function and modify TEMP and TMPDIR env vars for
+	XEmacs.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-normalize-action): New inline function.
+	(w3m-form-parse-and-fontify): Use it.
+	(w3m-form-new): Simply set action.
+	(w3m-form-submit): Don't treat !CURRENT_URL! here.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_ADD_LOAD_PATH): Refine the help message for the
+	--with-attic option.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-buffer-setup): Make sure that `truncate-lines' is t.
+	(w3m-view-source): Don't set `truncate-lines' to nil when quitting
+	viewing a source.
+	(w3m-view-header): Set `truncate-lines' to nil when viewing a header.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-put-by-name): New function.
+	(w3m-form-resume): Use w3m-form-get-by-name and w3m-form-put-by-name
+	instead of w3m-form-get and w3m-form-put for radio buttons.
+	(w3m-form-parse-and-fontify): Ditto.
+	(w3m-form-input-radio): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-check-current-position): Don't allow horizontal scrolling
+	when `truncate-lines' is nil.
+	(w3m-view-source): Set `truncate-lines' to nil.
+
+	* w3m-favicon.el (w3m-favicon-setup): Retrieve favicon even when
+	viewing the header or the page source.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (very-slow): Fix echo messages.
+
+	* w3m.el (w3m-follow-redirection): Fix customization type.
+
+	* w3m-e21.el: Bind `w3m-current-title' when compiling.
+
+	* /: Bind `w3m-work-buffer-list' when compiling in: w3m-e21.el,
+	w3m-favicon.el, w3m-image.el, w3m-proc.el and w3m-xmas.el.
+
+	* /: Require `cl' when compiling in: w3m-cookie.el, w3m-form.el and
+	w3m-tabmenu.el.
+
+	* /: Remove unused non-global variables in: octet.el, w3m-cookie.el,
+	w3m-tabmenu.el and w3m-weather.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Make `w3m-local-find-file-function' don't
+	handle directories.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el: Bind `w3m-current-process', `w3m-pop-up-frames',
+	`w3m-pop-up-windows', `w3m-popup-frame-parameters',
+	`w3m-select-buffer-name' and `w3m-use-tab', and fbind
+	`select-frame-set-input-focus' when compiling.
+	(w3m-popup-frame-parameters): Move from w3m.el.
+	(w3m-popup-frame-p): Ditto.
+	(w3m-use-tab-p): Ditto.
+	(w3m-popup-window-p): Ditto.
+	(w3m-initial-frames): Ditto.
+	(w3m-last-visited-buffer): Ditto.
+	(w3m-popup-buffer): Ditto; also move the program to make
+	`select-frame-set-input-focus' unbound from w3m.el.
+	(w3m-add-w3m-initial-frames): Ditto; also move the program to add it to
+	`create-frame-hook', `after-make-frame-functions' or
+	`after-make-frame-hook' from w3m.el.
+	(w3m-delete-frames-and-windows): Ditto.
+	(w3m-display-progress-message): Mark a progress message with the
+	`w3m-progress-message' text property.
+
+	* w3m.el: Don't fbind `select-frame-set-input-focus'.
+	(w3m-local-find-file-function): Use `w3m-popup-frame-p'.
+	(w3m-initial-frames): Move to w3m-util.el.
+	(w3m-popup-frame-parameters): Ditto.
+	(w3m-popup-frame-p): Ditto.
+	(w3m-use-tab-p): Ditto.
+	(w3m-popup-window-p): Ditto.
+	(w3m-last-visited-buffer): Ditto.
+	(w3m-popup-buffer): Ditto; also move the program to make
+	`select-frame-set-input-focus' unbound to w3m-util.el.
+	(w3m-add-w3m-initial-frames): Ditto; also move the program to add it to
+	`create-frame-hook', `after-make-frame-functions' or
+	`after-make-frame-hook' to w3m-util.el.
+	(w3m-delete-frames-and-windows): Ditto.
+	(w3m-delete-buffer-if-empty): New function.
+	(w3m-view-this-url-1): Use it.
+	(w3m-goto-url-new-session): Use it.
+	(w3m): Use it.
+
+	* w3m-e21.el (w3m-euc-japan-encoder): Compute the ccl program in each
+	time to load w3m-e21.elc to keep the compatibility of the module with
+	Emacs 21.3 and the later versions.
+	(w3m-iso-latin-1-encoder): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-horizontal-scroll-division): Mega doc fix; eliminate
+	illegal values.
+	(w3m-horizontal-on-screen): Rearrange.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-last-visited-buffer): New variable.
+	(w3m-popup-buffer): Clear `w3m-last-visited-buffer'.
+	(w3m-close-window): Set the last emacs-w3m buffer as
+	`w3m-last-visited-buffer'.
+	(w3m): Preferably use the last emacs-w3m buffer kept in
+	`w3m-last-visited-buffer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-horizontal-recenter): Do nothing besides resetting the
+	window's hscroll if `truncate-lines' is nil.
+	(w3m-beginning-of-line): Replace `w3m-set-window-hscroll' with
+	`set-window-hscroll'.
+	(w3m-end-of-line): Make it work identically as `end-of-line' if
+	`truncate-lines' is nil.
+	(w3m-display-width): Move downward (see the comment).
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-parse-header): Because a broken server returns a
+	relative URL in the location field, convert a URL to absolute.
+
+	* w3m-proc.el (w3m-process-wait-process): New function.
+	(w3m-process-start-and-wait): Call the above function.
+
+	* w3m-weather.el (w3m-weather-run-filter-functions): New function to
+	call filter functions asynchronously.
+	(w3m-about-weather): Call the above.
+	(w3m-weather-get-seikatu-sisu): Asynchronized.
+	(w3m-weather-insert-seikatu-sisu): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-initial-frames): Rename from `w3m-initial-frame'; keep a
+	list of the frame-IDs.
+	(w3m-popup-window-p): Return nil if there is the selection window.
+	(w3m-popup-buffer): Copy a copy of `w3m-initial-frames' from a visible
+	emacs-w3m buffer to a popped-up emacs-w3m buffer; don't set
+	`w3m-initial-frames' for newly created frames there.
+	(w3m-add-w3m-initial-frames): New function; add it to
+	`create-frame-hook', `after-make-frame-functions' or
+	`after-make-frame-hook'.
+	(w3m-copy-buffer): Copy a copy of `w3m-initial-frames'.
+	(w3m-delete-buffer): Pop up another emacs-w3m buffer instead of
+	deleting a frame; remove a deleted frame from `w3m-initial-frames'.
+	(w3m-delete-frames-and-windows): Also allow a window or a frame as the
+	optional argument; emulate XEmacs version's `one-window-p'.
+	(w3m): Set the value for `w3m-initial-frames' even if it is invoked in
+	the batch mode.
+	(w3m-select-buffer): Delete other emacs-w3m frames and windows.
+	(w3m-select-buffer-copy-buffer): Revert the 2003-11-11 change.
+	(w3m-select-buffer-delete-buffer): Simplify.
+
+	(w3m-display-width): New function for showing pages as if there is no
+	selection window.
+	(w3m-halfdump-command-common-arguments): Use it.
+	(w3m-make-separator): Use it.
+	(w3m-about-db-history): Use it.
+	(w3m-header-line-insert): Work as if there is no selection window.
+
+	* w3mhack.el (w3mhack-generate-colon-keywords-file): Preset
+	`:strike-through' and `:strikethru' which aren't supported by the old
+	cus-face.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-popup-buffer): Reuse an existing window or frame if it
+	exists; set the value for `w3m-initial-frame' properly; raise, select
+	and focus the new frame.
+	(TopLevel): Make `select-frame-set-input-focus' unbound if it is a
+	dummy.
+	(w3m-view-this-url-1): Show a progress message.
+	(w3m-copy-buffer): Simplify the code to call `w3m-popup-buffer'.
+	(w3m-alive-p): Add an optional arg `visible' (see docs); use inlining
+	`w3m-list-buffers'.
+	(w3m): Simplify the code using `w3m-popup-buffer'; specify the optional
+	arg to `w3m-alive-p'; protect against the case of no url.
+	(w3m-select-buffer-copy-buffer): Bind `w3m-pop-up-windows' to nil.
+
+	* w3m-util.el (w3m-list-buffers): Make it into a normal function; don't
+	call itself recursively.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-function-max-args): Move to mew-shimbun.el.
+
+	* w3m.el (w3m-popup-buffer): New function (it still needs to improved
+	in order for the `w3m' function to use).
+	(w3m-view-this-url-1): Specify the value of
+	`w3m-view-this-url-new-session-in-background' to the 3rd arg of
+	`w3m-copy-buffer'; don't pop up a window or a frame there.
+	(w3m-copy-buffer): Change the meaning of the 3rd arg (see docs); don't
+	pop up a window or a frame if it is non-nil, otherwise call
+	`w3m-popup-buffer'.
+	(w3m-goto-url): Change the name of the 8th arg to `interactive-p';
+	don't pop up a window or a frame unless this function is called
+	interactively, otherwise call `w3m-popup-buffer'.
+	(w3m-goto-url-new-session): Specify nil to the 3rd arg of
+	`w3m-copy-buffer'.
+	(w3m-select-buffer-saved-window-config): Abolish.
+	(w3m-select-buffer): Revert the 2003-11-05 change; delete other windows
+	except for the current emacs-w3m window or create a new emacs-w3m
+	buffer when it is called initially.
+	(w3m-select-buffer-current-buffer): Use `line-beginning-position'.
+	(w3m-select-buffer-copy-buffer): Revert the 2003-11-05 change;
+	simplify.
+	(w3m-select-buffer-delete-buffer): Call `w3m-quit' if there is the sole
+	emacs-w3m buffer.
+	(w3m-select-buffer-delete-other-buffers): Revert the 2003-11-07 change.
+	(w3m-select-buffer-quit): Revert the 2003-11-05 change; bind
+	`pop-up-frames'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-stop): Change `w3m-current-process' in the
+	buffer specified in the argument, instead of changing it in the current
+	buffer.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-canonicalize-url): New function.
+	(w3m-w3m-attributes-1): New function.
+	(w3m-w3m-attributes): Call the above functions to follow redirection.
+	(w3m-w3m-retrieve): Call `w3m-w3m-canonicalize-url' before retrieving.
+
+	* w3m-proc.el (w3m-process-start-process): Check the value of
+	`w3m-current-url' before calling `w3m-url-authinfo'.
+	(w3m-process-start-and-wait): Make sure synchronization with
+	sub-process.
+	(w3m-process-do-with-temp-buffer): Call `w3m-kill-buffer' instead of
+	calling `kill-buffer' directly.
+
+	* w3m-antenna.el (w3m-antenna-mapcar): Simplified and follow the change
+	of `w3m-process-do-with-temp-buffer'.
+	(w3m-antenna-mapcar-after): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-delete-other-buffers): Use
+	`w3m-delete-frames-and-windows'.
+	(w3m-delete-frames-and-windows): Take an optional argument for the
+	exception; assume a buffer may be at two or more windows.
+	(w3m-close-window): Assume a buffer may be at two or more windows.
+	(w3m-select-buffer-delete-other-buffers): Save-window-excursion.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-popup-frame-parameters): Rename from
+	`w3m-pop-up-frame-parameters' to make it easy to complete the
+	`w3m-pop-up-frames' variable name.
+	(w3m-popup-frame-parameters): Rename from
+	`w3m-pop-up-frame-parameters'.
+	(w3m-popup-frame-p): Make it a generic macro.
+	(w3m-use-tab-p): New macro.
+	(w3m-popup-window-p): Use `w3m-use-tab-p'.
+	(w3m-view-this-url-1): Use `w3m-use-tab-p' and `w3m-popup-frame-p'.
+	(w3m-copy-buffer): Ditto.
+	(w3m-delete-buffer): Use `w3m-use-tab-p'.
+	(w3m-goto-url): Use `w3m-use-tab-p' and `w3m-popup-frame-p'.
+	(w3m): Modify to use new `w3m-popup-frame-p'.
+	(w3m-header-line-insert): Use `w3m-use-tab-p'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-current-redirect): Abolished.
+	(w3m-clear-local-variables, w3m-copy-local-variables): Follow the above
+	change.
+
+	* w3m-proc.el (w3m-process-do-with-temp-buffer): Keep the current
+	buffer after given FORM and BODY are evaluated.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-follow-redirection): Fix its docstring.
+	(w3m-w3m-retrieve): When the above option is equal to nil, it is
+	treated as 0.
+	(w3m-retrieve-and-render): Check content type and charsets with
+	redirected real URI instead of user-specified URI.
+
+	* w3m-antenna.el (w3m-antenna-hns-last-modified): Do not accept
+	`no-cache' argument.
+	(w3m-antenna-check-site): Ditto.
+	(w3m-antenna-mapcar, w3m-antenna-mapcar-after): New functions.
+	(w3m-antenna-check-all-sites): Use the above functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-delete-buffer): New implementation.
+	(w3m-delete-frame-maybe): Abolish.
+	(w3m-delete-frames-and-windows): New function.
+	(w3m-quit): Use it.
+	(w3m-close-window): New implementation.
+	(w3m-select-buffer-show-this-line): Specify the 1st arg to
+	`one-window-p'.
+	(w3m-select-buffer-quit): Ditto.
+	(w3m-select-buffer-close-window): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-strike-through): Support <strike> element.
+	(w3m-fontify): Change the turn `w3m-fontify-strike-through' and
+	`w3m-fontify-underline'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* attic/vm-w3m.el: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Fbind `select-frame-set-input-focus' when compiling.
+	(w3m-popup-window-p): Rename from `w3m-pop-up-window-p'; use
+	'emacs-major-version' instead of `MULE' to examine the version.
+	(w3m-view-this-url-1): Use `pop-to-buffer' instead of
+	`switch-to-buffer' in order to be able to popup a window or a frame.
+	(w3m-copy-buffer): Ditto; set the `w3m-initial-frame' variable only
+	when `w3m-pop-up-frames' is non-nil.
+	(w3m-delete-buffer): Select the most suitable buffer.
+	(w3m-goto-url): Use `pop-to-buffer' instead of `switch-to-buffer' in
+	order to be able to popup a window or a frame.
+	(w3m): Ditto; rearrange the source code.
+	(w3m-select-buffer-saved-window-config): New variable.
+	(w3m-select-buffer): Save the window configuration.
+	(w3m-select-buffer-copy-buffer): Bind `pop-up-frames'.
+	(w3m-select-buffer-quit): Restore the window configuration; protect
+	agains the absence of an emacs-w3m buffer.
+
+	* w3m-xmas.el: Bind `w3m-use-tab' when compiling.
+	(w3m-xmas-show-current-title-in-buffer-tab): Examine the value for the
+	`gutter-buffers-tab-enabled' variable directly.
+	(w3m-xmas-setup-tab-in-gutter): New function; add it to
+	`w3m-mode-setup-functions' and `w3m-select-buffer-mode-hook'.
+	(w3m-xmas-update-tab-in-gutter): Do update only when `w3m-use-tab' and
+	`gutter-buffers-tab-enabled' are non-nil; always add it to
+	`w3m-display-functions'.
+
+	* octet.el: Don't make sure the `emacs-major-version' variable is
+	bound.
+	* w3m-bitmap: Ditto.
+	* w3m-bug.el: Ditto.
+	* w3m-proc.el: Ditto.
+	* w3m-ucs.el: Ditto.
+	* w3m-util.el: Ditto.
+	* w3m.el: Ditto.
+	* w3mhack.el: Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-delete-buffer, w3m-delete-other-buffers)
+	(w3m-select-buffer-delete-buffer): Call `w3m-process-stop'.
+
+	* w3m-proc.el (w3m-process-kill-stray-processes): New function.
+	(w3m-process-start-queued-processes): Call
+	`w3m-process-kill-stray-processes'.
+	(w3m-process-filter): When parent-buffer was killed, call
+	`w3m-process-kill-stray-processes'
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-pop-up-windows): Default to t.
+	(w3m-pop-up-window-p): New macro examining the value for the
+	`w3m-use-tab' variable and the present situation.
+	(w3m-copy-buffer): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-meta-content-type-charset-regexp)
+	(w3m-meta-charset-content-type-regexp)
+	(w3m-meta-refresh-content-regexp)
+	(w3m-meta-content-refresh-regexp): Allow `\n' as whitespaces.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-backward): Return the current history if the
+	number zero is given as an argument.
+
[phone]  OHASHI Akira  <[e-mail]>
+
+	* w3m.el (w3m-process-connection-type): Set t when system is darwin
+	version 7.0.0 or later.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-strike-through (var)): Make it into the variable
+	which is not a user option.
+	(w3m-fontify-strike-through (fn)): Check dynamically whether the window
+	system is used.
+	(w3m-url-at-point): Unify iso646 chars to ascii on XEmacs-mule.
+
+	* mew-w3m.el: Silence the compile warning for `mew-coding-system-p' for
+	people having the Mew XEmacs package installed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-obey-w3m-pop-up-frames): New variable.
+	(w3m-copy-buffer): Inherit the value of `w3m-initial-frame' into the
+	new buffer if a new frame is not created for the new buffer.
+	(w3m-delete-frame-maybe): Simplify it in the different way.
+
+	* w3m-search.el (w3m-search): Specify the 3rd arg of `w3m'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Revive `w3m-initial-frame' throughout.
+	(w3m-delete-frame-maybe): Revert 2003-10-20 change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-strike-through-face): Use the :strikethru attribute in
+	XEmacs.
+	(w3m-fontify-strike-through): Enable it also for XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Insert no data when either retrieval or
+	decoding is failed.
+	(w3m-w3m-parse-header): Do not return a base URI of retrieved page.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Fix some comments and docstrings (to be continued).
+	(w3m-copy-local-variables, w3m-open-all-links-in-new-session,
+	w3m-horizontal-scroll): Remove unused non-global variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Abolish `w3m-initial-frame' throughout.
+	(w3m-delete-frame-maybe): Simplify.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-base-url): Removed.
+	(w3m-attributes, w3m-local-attributes, w3m-w3m-attributes): Do not
+	return a base URI of retrieved page.
+
[phone]  Jose A. Ortega Ruiz  <[e-mail]>
+
+	* w3m.el (w3m-decode-entities-string): Move `save-match-data' to the
+	exterior of `with-temp-buffer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-half-space, w3m-tab-separator): Use `:width'
+	instead of `:relative-width' to specify the space width.
+	(w3m-tab-line): Tidy it up.
+
+	* w3m-favicon.el (w3m-favicon-set-image): Use `:width' instead of
+	`:relative-width' to specify the space width.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-unselected-face,
+	w3m-tab-unselected-retrieving-face, w3m-tab-selected-face,
+	w3m-tab-selected-face): Exchange the default TTY colors between
+	selected faces and unselected faces.
+	(w3m-tab-drag-mouse-function): Compare buffer objects instead of buffer
+	names.
+	(w3m-tab-make-keymap): Use buffer objects instead of buffer names.
+	(w3m-tab-line): Make all tab widths the same even if there are wide
+	characters; never use graphic icons in TTY; close the left margin
+	unless there's an icon; add a keymap to favicon; don't put mouse-face
+	on icons.
+	(w3m-initialize-graphic-icons): Don't make graphic icons for TTY; don't
+	put mouse-face on icons.
+
+	* w3m-favicon.el: Bind `w3m-modeline-favicon' when compiling.
+	(w3m-favicon-set-image): Add a half space after favicon.
+
+	* w3m-util.el (w3m-current-title): New function.
+	(w3m-buffer-title): Use it.
+
+	* w3m.el: Silence the byte-compiler for `w3m-info-like-map',
+	`w3m-lynx-like-map', `w3m-minor-mode-map', `w3m-mode-map', and
+	`w3m-setup-menu'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el: Silence the compile warning for `w3m-message'.
+
+	* w3m.el (w3m-url-to-file-name): Enable it to interpret
+	file://localhost/ urls.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Fix for textarea on w3mmee.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (frame-current-scroll-bars): Alias to `ignore' if it is
+	not available.
+	(window-fringes): Ditto.
+	(w3m-tab-width): Protect against setting illegal values.
+	(w3m-tab-unselected-face): Don't specify the underline color.
+	(w3m-tab-unselected-retrieving-face): Ditto.
+	(w3m-tab-selected-face): Ditto.
+	(w3m-tab-selected-retrieving-face): Ditto.
+	(w3m-tab-background-face): Ditto.
+	(w3m-tab-timer): Rename from `w3m-tab-line-timer'.
+	(w3m-tab-half-space): New variable.
+	(w3m-tab-separator): New variable.
+	(w3m-tab-line): Show many tabs as far as possible.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Clear the minibuffer after
+	retrieving favicon.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	We shouldn't use too simple elements like ".+" in the deep nested
+	regexps.  It may cause high cpu or may make Emacs hang.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-use-favicon): Modify the doc-string.
+	(w3m-show-graphic-icons-in-mode-line): New variable.
+	(w3m-show-graphic-icons-in-header-line): New variable.
+	(w3m-buffer-setup): Modify the value for
+	`mode-line-buffer-identification' not to show favicon if
+	`w3m-show-graphic-icons-in-mode-line' is nil.
+
+	* w3m-e21.el: Bind `w3m-show-graphic-icons-in-header-line' and
+	`w3m-show-graphic-icons-in-mode-line' when compiling.
+	(w3m-tab-line): Don't show spinners nor favicons if
+	`w3m-show-graphic-icons-in-header-line' is nil; call
+	`w3m-make-spinner-image' only once.
+	(w3m-initialize-graphic-icons): Don't make graphic icons if
+	`w3m-show-graphic-icons-in-mode-line' is nil.
+
+	* w3m-xmas.el: Bind `w3m-show-graphic-icons-in-mode-line' when
+	compiling.
+	(w3m-initialize-graphic-icons): Don't make graphic icons if
+	`w3m-show-graphic-icons-in-mode-line' is nil.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-replace): Call `set-buffer-modified-p'.
+	(w3m-form-field-parse): Do nothing when fid is nil.
+	(w3m-form-input-radio): Likewise.
+	(w3m-form-get-by-name): New function.
+	(w3m-form-input-map): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-line): Fix the logic determining whether to
+	display favicon.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-spinner-map-on-header-line): Abolish.
+	(w3m-modeline-spinner-map): Rename from `w3m-spinner-map-on-mode-line'.
+	(w3m-setup-header-line): Don't initialize
+	`w3m-spinner-map-on-header-line'.
+	(w3m-tab-spinner-map): New variable.
+	(w3m-tab-make-keymap): Initialize it.
+	(w3m-tab-line): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-modeline-separator): New variable.
+	(w3m-modeline-favicon): New variable.
+	(w3m-favicon-image): Move from w3m-favicon.el.
+	(w3m-buffer-setup): Also call `w3m-initialize-graphic-icons' when Emacs
+	21 is running; simplify the value for
+	`mode-line-buffer-identification'.
+
+	* w3m-e21.el: Bind `w3m-favicon-image' and
+	`w3m-modeline-process-status-on' when compiling.
+	(w3m-spinner-map-on-header-line): New variable.
+	(w3m-spinner-map-on-mode-line): New variable.
+	(w3m-spinner-map-help-echo): New variable.
+	(w3m-setup-header-line): Initialize the value for
+	`w3m-spinner-map-on-header-line'; remove an excessive `list' from the
+	value for `header-line-format'.
+	(w3m-tab-map): New variable.
+	(w3m-tab-make-keymap): Set the value for `w3m-tab-map' in the current
+	buffer.
+	(w3m-tab-line): Add a keymap to the spinner; don't call
+	`w3m-tab-make-keymap', use `w3m-tab-map' instead.
+	(TopLevel): Add-hook `w3m-tab-make-keymap' to
+	`w3m-mode-setup-functions'.
+	(w3m-space-before-modeline-icon): New variable.
+	(w3m-modeline-process-status-on-icon,
+	w3m-modeline-image-status-on-icon, w3m-modeline-status-off-icon,
+	w3m-modeline-ssl-image-status-on-icon,
+	w3m-modeline-ssl-status-off-icon): New variables.
+	(w3m-initialize-graphic-icons): New function.
+	(w3m-make-spinner-image): Don't initialize the value for
+	`w3m-spinner-image-file' here; set the value for
+	`w3m-modeline-process-status-on-icon'.
+
+	* w3m-favicon.el: Bind `w3m-favicon-image' when compiling.
+	(w3m-favicon-image): Move to w3m.el.
+	(w3m-space-before-favicon): Move from w3m-xmas.el.
+	(TopLevel): Make `w3m-modeline-favicon' and `w3m-favicon-image'
+	buffer-local; modify the value or put the `risky-local-variable'
+	property for `w3m-modeline-favicon'.
+	(w3m-favicon-set-image): New macro.
+	(w3m-favicon-setup): Use it.
+	(w3m-favicon-retrieve): Use it.
+
+	* w3m-xmas.el (w3m-xmas-space-before-favicon): Move to w3m-favicon.el
+	and rename to `w3m-space-before-favicon'.
+	(w3m-space-before-modeline-icon): Rename from
+	`w3m-xmas-space-before-modeline-icon'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Relax the regular expression to
+	detect progress status.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-w3m-expand-arguments): Redefine as a function rather than
+	a macro.
+	(w3m-dump-head-source-command-arguments): Simplify.
+	(w3m-halfdump-command-arguments): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Check return value of
+	`w3m-process-handler-parent-buffer' to move current buffer safely.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-modeline-image-status-on, w3m-modeline-process-status-on,
+	w3m-modeline-ssl-image-status-on, w3m-modeline-ssl-status-off,
+	w3m-modeline-status-off): Use `defvar' instead of `defconst'.
+	(w3m-buffer-setup): Call `w3m-initialize-graphic-icons' instead of
+	`w3m-make-spinner-image'; simplify the value for
+	`mode-line-buffer-identification'.
+
+	* w3m-xmas.el (w3m-xmas-space-before-modeline-icon): Rename from
+	`w3m-xmas-space-before-spinner'.
+	(w3m-modeline-process-status-on-icon,
+	w3m-modeline-image-status-on-icon, w3m-modeline-status-off-icon,
+	w3m-modeline-ssl-image-status-on-icon,
+	w3m-modeline-ssl-status-off-icon): New variables.
+	(w3m-spinner-image): Abolish.
+	(w3m-make-spinner-image): Abolish.
+	(w3m-initialize-graphic-icons): New function.
+
+	* icons/state-00.xpm:
+	* icons/state-01.xpm:
+	* icons/state-10.xpm:
+	* icons/state-11.xpm: New files.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-arguments): Add "ucs_conv" option when
+	using w3m-m17n; check w3m-output-coding-system at run time.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-start-after): Make sure the value for
+	`w3m-current-buffer' is non-nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-process-modeline-format): New option.
+	(w3m-buffer-setup): Set `mode-line-process'.
+
+	* w3m-proc.el: Bind `w3m-process-modeline-format' to suppress
+	byte-compile warning.
+	(w3m-process-modeline-string): New buffer-local variable.
+	(w3m-process-start-after): Reset the above variable.
+	(w3m-process-filter): Check size of retrieved data and set the above
+	variable.
+	(w3m-process-modeline-format): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-make-spinner-image): Make sure the gifsicle program
+	is available.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-use-symbol): Use `w3m-mule-unicode-p'.
+
+	* w3m-symbol.el (w3m-mule-unicode-symbol): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-stop): Redisplay the header-line.
+
+	* w3m-e21.el (w3m-tab-line-format, w3m-tab-line-timer, w3m-tab-line):
+	Revive the timer operation.
+	(w3m-tab-line): Wobble the window size to force redisplay of the
+	header-line using a timer; include spinner images in the return value
+	when external processes are running.
+	(w3m-spinner-image-file): New variable.
+	(w3m-spinner-image-frames): New variable.
+	(w3m-spinner-image-index): New variable.
+	(w3m-make-spinner-image): New function.
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Always redraw Emacs frame
+	using the timer; wobble the window size instead of redrawing; increase
+	the delay time for the timer.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Fix problem when form_int
+	appears after input_alt and action is specified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-symbol.el (w3m-mule-unicode-symbol): Fix customization type.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-symbol.el: Bind `w3m-output-coding-system' when compiling.
+	(w3m-mule-unicode-symbol): New variable.
+	(w3m-symbol): Add it for candidate.
+	(w3m-symbol): Use it.
+
+	* w3m.el (w3m-use-symbol): Check capability for
+	`w3m-mule-unicode-symbol'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-line-format, w3m-tab-line-timer, w3m-tab-line):
+	Remove the timer operation temporally.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-xmas.el (w3m-make-spinner-image): Bind `format-alist' to nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-line-timer): New variable.
+	(w3m-tab-line): Use it to control this function running too frequently;
+	simplify the source code.
+
+	* w3m-favicon.el (w3m-favicon-image-of): Abolish.
+	(w3m-favicon-retrieve): Use a timer to redraw Emacs frame.
+
+	* w3m-xmas.el (w3m-xmas-space-before-favicon): New user option.
+	(w3m-xmas-space-before-spinner): New user option.
+	(w3m-make-spinner-image): Make sure the `gif' feature is available.
+
+	* w3m.el (w3m-buffer-setup): Use `w3m-xmas-space-before-spinner' and
+	`w3m-xmas-space-before-favicon'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* icons/spinner.gif: New file (without LZW compression).
+	* icons30/spinner.gif: Ditto.
+
+	* Makefile.in (install-icons, install-icons30): Also install gifs.
+
+	* w3m-xmas.el (w3m-make-spinner-image): Use the spinner.gif file.
+
+	* w3m-e21.el (w3m-tab-line-format): New variable (see doc-string).
+	(w3m-tab-line): Use it; use a timer to suppress this function running
+	too frequently.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-spinner-image): New variable.
+	(w3m-make-spinner-image): New function.
+
+	* w3m.el (w3m-buffer-setup): Call `w3m-make-spinner-image', show a
+	spinner in the modeline under XEmacs.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-put-property): Don't call intern if it is not a
+	string.
+	(w3m-form-get-property): Ditto.
+	(w3m-form-put): Added argument ID.
+	(w3m-form-get): Changed argument from NAME to ID.
+	(w3m-form-make-form-data): Changed process to get NAME and VALUE.
+	(w3m-form-resume): Follow the API change in w3m-form-put and
+	w3m-form-get.
+	(w3m-fontify-textareas): Ditto.
+	(w3m-form-parse-and-fontify): Ditto.
+	(w3m-form-input): Ditto.
+	(w3m-form-input-password): Ditto.
+	(w3m-form-input-checkbox): Ditto.
+	(w3m-form-input-radio): Ditto.
+	(w3m-form-input-file): Ditto.
+	(w3m-form-input-textarea-set): Ditto.
+	(w3m-form-textarea-info): Ditto.
+	(w3m-form-input-select): Ditto.
+	(w3m-form-submit): Ditto.
+	(w3m-form-real-reset): Follow the structure change.
+	(w3m-form-input-select-id): New buffer local variable.
+	(w3m-form-input-select-set): Use it.
+	(w3m-form-field-parse): New inline function.
+	(w3m-form-parse-and-fontify): Put id for selectinfo.
+	(w3m-form-resume): Fixed regexp.
+	(w3m-form-input-textarea): Fixed line number.
+	(w3m-fontify-textareas): Put w3m-form-id property.
+	(w3m-form-parse-and-fontify): Store id to the textareainfo.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-favicon-retrieve): Redisplay Emacs frame; rename
+	from `w3m-retrieve-favicon'.
+	(w3m-favicon-image): Rename from `w3m-current-favicon-image'.
+	(w3m-favicon-setup): Rename from `w3m-setup-favicon'.
+	(w3m-favicon-image-of): Rename from `w3m-buffer-favicon'.
+	(w3m-favicon-convert): Rename from `w3m-convert-favicon'.
+	(w3m-favicon-retrieve): Rename from `w3m-retrieve-favicon'.
+
+	* w3m-e21.el (w3m-tab-line): Rename `w3m-buffer-favicon' with
+	`w3m-favicon-image-of'.
+
+	* w3m.el (w3m-clean-hook-options): Rename `w3m-setup-favicon' with
+	`w3m-favicon-setup'.
+	(w3m-buffer-setup): Rename `w3m-current-favicon-image' with
+	`w3m-favicon-image'.
+
[phone]  OHASHI Akira  <[e-mail]>
+
+	* w3m.el (w3m-process-connection-type): Set nil when system-type is
+	darwin.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el: Bind `w3m-icon-data' when compiling.
+	(w3m-current-favicon-data): Abolish.
+	(w3m-favicon-converted): Abolish.
+	(w3m-favicon-cache-data): Contain image data.
+	(w3m-favicon-cache-favicon): Return an image instead of raw data.
+	(w3m-setup-favicon): Fix the condition to check whether Emacs can
+	display images; set the value of `w3m-current-favicon-image' instead of
+	`w3m-current-favicon-data' for the about: pages.
+	(w3m-buffer-favicon): Make it simply get the value of
+	`w3m-current-favicon-image'.
+	(w3m-convert-favicon): Accept raw data and type; simply return an
+	image.
+	(w3m-retrieve-favicon): Rearrange the arguments to accept url and type
+	independently; set the value of `w3m-current-favicon-image' instead of
+	`w3m-current-favicon-data'; store an image into
+	`w3m-favicon-cache-data'.
+	(w3m-favicon-save-cache-file): Save data only if they contained images;
+	strip images from the cache for saving.
+	(w3m-favicon-load-cache-file): Create images for all the cache.
+
+	* w3m.el (w3m-buffer-setup): Use `w3m-current-favicon-image' instead of
+	`w3m-favicon-converted' for `mode-line-buffer-identification' under
+	XEmacs in order to check whether the favicon image is available.
+	(w3m-examine-command-line-args): Use `member' instead of `memq' under
+	XEmacs to check whether `command-line-args' contains the same string as
+	the car of `command-line-args-left'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el: Autoload w3m for `w3m-expand-url' when compiling.
+	(w3m-setup-favicon): Fix the change of 2003-09-12 which was gone to
+	far.
+
+	* w3m.el (w3m-open-all-links-in-new-session): Improve the regexp.
+	(w3m-examine-command-line-args): Don't let it misunderstand the next
+	command as a url string; modify the arguments in `command-line-args'
+	instead of removing them.
+	(w3m): Use `w3m-examine-command-line-args' even if it is called
+	non-interactively.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-open-all-links-in-new-session): Don't use
+	`w3m-select-buffer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-popup-frame-p): Make it accept the `interactive-p'
+	argument.
+	(w3m-examine-command-line-args): New function.
+	(w3m): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el: Bind some external variables when compiling.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-make-form-data): Insert "--" before the
+	multipart post boundary.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-underline-face): New face.
+	(w3m-strike-through-face): New user variable.
+	(w3m-fontify-strike-through): New function.
+	(w3m-fontify): Call `w3m-fontify-strike-through'
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-favicon.el (w3m-setup-favicon): Convert favicon data to an image
+	for the about: pages using `w3m-convert-favicon'.
+	(w3m-buffer-favicon): Move the data conversion procedure to
+	`w3m-convert-favicon'.
+	(w3m-convert-favicon): New function detached from `w3m-buffer-favicon';
+	make it work synchronously.
+	(w3m-retrieve-favicon): Convert favicon data to an image.
+
+	* w3m-image.el (w3m-imagick-convert-buffer): Erase buffer before
+	calling the convert program.
+
+	* w3m.el (w3m-buffer-setup): Modify the value for
+	`mode-line-buffer-identification' in order to make it possible to show
+	favicon under XEmacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-open-all-links-in-new-session): New function.  Suggested
+	by Yoichi NAKAYAMA <[e-mail]>.
+	(w3m-view-this-url-new-session): Call
+	`w3m-open-all-links-in-new-session' if the region is active.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-key-binding): Don't use `custom-set-default'.
+	(w3m-use-favicon): Ditto.
+	* w3m-favicon.el (w3m-favicon-size): Ditto.
+
+	* icons/*.xpm: Remove text.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-new): Use `application/x-www-form-urlencoded'
+	instead of `urlencoded'.
+	(w3m-form-parse-and-fontify): Ditto.
+	(w3m-form-make-form-data): Use `multipart/form-data' instead of
+	`multipart'.
+	(w3m-form-mee-new): Likewise.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-e21-toolbar-configurations): Don't modify the values
+	for `tool-bar-button-margin' and `tool-bar-button-relief'.
+
+	* w3mhack.el (w3mhack-nonunix-install): Use icons30 for XEmacs.
+	(w3mhack-make-package): Use icons30.
+
+	* Makefile.in (SUBDIRS): Add icons30.
+	(install-icons30): New rule.
+	(install-package, install-package-ja): Use it.
+
+	* icons/*.xpm: Shrink the size of all icons.
+	* icons30/: Old icons are here.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-activate-zmacs-regions): New macro.
+	* w3m.el (w3m-next-anchor, w3m-previous-anchor, w3m-next-form,
+	w3m-previous-form, w3m-next-image, w3m-previous-image,
+	w3m-scroll-up-or-next-url, w3m-scroll-down-or-previous-url,
+	w3m-beginning-of-line, w3m-end-of-line): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-backward): Return nil if there is no
+	previous element.
+
+	* w3m.el (w3m-view-previous-page): Skip the current page if it seems
+	broken; warn if there's no more history.
+	(w3m-copy-buffer): Use the current history for the url string if the
+	current page seems broken.
+	(w3m-goto-url): Use `lexical-let' to pass the history position data to
+	the asynchronous w3m process.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el: Move the favicon stuff to w3m-favicon.el.
+
+	* w3m-favicon.el: New file detached from w3m-e21.el.
+	(w3m-favicon-type): Adapt it to XEmacs as well.
+	(w3m-setup-favicon): Ditto.
+	(w3m-buffer-favicon): Ditto.
+	(w3m-retrieve-favicon): Replace `float-time' with `w3m-float-time'.
+	(w3m-arrived-setup-functions): Don't add-hook it here.
+	(w3m-arrived-shutdown-functions): Ditto.
+
+	* w3m-xmas.el: Require `w3m-favicon'.
+
+	* w3m.el (w3m-arrived-setup-functions): Add
+	`w3m-favicon-load-cache-file' if w3m-favicon is loaded.
+	(w3m-arrived-shutdown-functions): Add `w3m-favicon-save-cache-file' if
+	w3m-favicon is loaded.
+
+	* w3m-util.el (w3m-float-time): New function.
+
+	* w3mhack.el (w3mhack-examine-modules): Exclude w3m-favicon.el from the
+	files to be byte-compiled.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Fix a window configuration only when
+	the buffer's major mode has changed from the w3m-mode to another.
+	(w3m-goto-url): Don't erase a buffer when retrieving a local file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Copy the history before visiting a page in
+	order to show the about://history/ page correctly; adjust the position
+	in the history after copying.
+	(w3m-goto-url): Use buffer-local properties instead of global
+	properties for form data.
+	(w3m-reload-this-page): Specify the history element to the
+	`w3m-goto-url' function in order to submit the form data.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Don't kill the emacs-w3m buffer when a
+	process is in progress.
+	(w3m-goto-url-new-session): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-previous-page): Specify a history element of the
+	previous page to the `w3m-goto-url' function as the 7th arg.
+	(w3m-goto-url): Accept a history element as the 7th argument; specify
+	nil as the 7th argument when recursively calling itself; use a given
+	history element to examine the form data of the url to be visited.
+	(w3m-goto-url-new-session): Specify nil to the `w3m-goto-url' function
+	as the 7th argument.
+	(w3m): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-minimize-in-new-session): New user option.
+	(w3m-history-set-current): Redefine as an inline function rather than a
+	macro.
+	(w3m-history-current-1): Abolish the function.
+	(w3m-history-current-2): Abolish the function.
+	(w3m-history-element): New function.
+	(w3m-history-current): Abolish the funtction.
+	(w3m-history-backward): Don't modify the current position pointer in
+	the `w3m-history' variable.
+	(w3m-history-forward): Simplify using `w3m-history-backward'.
+	(w3m-history-copy): Minimize the history when
+	`w3m-history-minimize-in-new-session' is non-nil.
+	(w3m-history-plist-get): Abolish the `url' argument; complement the
+	meaning of the `local' argument.
+	(w3m-history-add-properties): Ditto.
+	(w3m-history-plist-put): Ditto.
+	(w3m-history-remove-properties): Ditto.
+	(w3m-history-store-position): Don't specify the optional arguments to
+	`w3m-history-add-properties'.
+	(w3m-history-restore-position): Abolish the `url' argument; don't
+	specify the optional arguments to `w3m-history-plist-get'.
+	(w3m-history-minimize): Simplify using `w3m-history-element'.
+
+	* w3m.el (w3m-view-previous-page): Don't specify the optional arguments
+	to `w3m-history-plist-get' and `w3m-history-restore-position'.
+	(w3m-goto-url): Don't specify the optional arguments to
+	`w3m-history-plist-put', `w3m-history-plist-get',
+	`w3m-history-remove-properties' and `w3m-history-add-properties'.
+	(w3m-reload-this-page): Don't specify the optional arguments to
+	`w3m-history-plist-get' and `w3m-history-remove-properties'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-flat): Reduce the deepness of local
+	prpoerties in the list structure.
+	(w3m-history-assoc): Simplify; redefine as an inline function.
+	(w3m-history-with-element): Abolish the macro.
+	(w3m-history-current-2): New function.
+	(w3m-history-set-plist): New function.
+	(w3m-history-modify-properties): Rewrite.
+	(w3m-history-seek-properties): Abolish the function.
+	(w3m-history-seek-element): New function.
+	(w3m-history-share-properties): Abolish the function.
+	(w3m-history-tree): Tiny change.
+	(w3m-history-push): Rewrite.
+	(w3m-history-copy): Tiny change.
+	(w3m-history-plist-get): Synch to the change of `w3m-history-flat'.
+	(w3m-history-plist-put): Rewrite.
+	(w3m-history-add-properties): Rewrite.
+	(w3m-history-remove-properties): Rewrite.
+	(w3m-history-rename-url): Abolish the function.
+	(w3m-history-store-position): Abolish the optional argument.
+	(w3m-history-minimize): New command.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-current-1): Redefine as a function rather
+	than a macro.
+	(w3m-history-previous-position): Ditto.
+	(w3m-history-next-position): Ditto.
+	(w3m-history-modify-properties): Ditto.
+	(w3m-history-save-position): Abolish the macro.
+	(w3m-history-forward-1): Ditto.
+	(w3m-history-backward-1): Ditto.
+	(w3m-history-with-element): Abolish the `set-current' argument.
+	(w3m-history-assoc): Ditto.
+	(w3m-history-plist-get): Ditto.
+	(w3m-history-plist-put): Ditto.
+	(w3m-history-add-properties): Ditto.
+	(w3m-history-remove-properties): Ditto.
+	(w3m-history-rename-url): Ditto.
+	(w3m-history-set-current): New macro.
+	(w3m-history-forward): Abolish the `set-current' argument; use
+	`w3m-history-set-current'.
+	(w3m-history-backward): Ditto.
+	(w3m-history-tree): Use `w3m-history-set-current' instead of
+	`w3m-history-forward-1'.
+	(w3m-history-push): Use `w3m-history-set-current'.
+	(w3m-history-store-position): Don't specify the `set-current' argument
+	to `w3m-history-add-properties'.
+	(w3m-history-restore-position): Don't specify the `set-current'
+	argument to `w3m-history-plist-get'.
+
+	* w3m.el (w3m-view-previous-page): Don't specify the `set-current'
+	argument to `w3m-history-plist-get'.
+	(w3m-goto-url): Don't specify the `set-current' argument to
+	`w3m-history-plist-put', `w3m-history-plist-get',
+	`w3m-history-remove-properties' and `w3m-history-add-properties'.
+	(w3m-reload-this-page): Don't specify the `set-current' argument to
+	`w3m-history-plist-get' and `w3m-history-remove-properties'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Fix a window configuration if a new
+	buffer visiting the specified url is not in the `w3m-mode'; remove a
+	newly created buffer if it is useless.
+	(w3m-goto-url): Don't use `save-excursion' when performing find-file
+	directly.
+	(w3m-goto-url-new-session): Remove a newly created buffer if it is
+	useless.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* Makefile.in (what-where): Add space to avoid error on Solaris.
+
+	* w3m-namazu.el (w3m-about-namazu): Fix last change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-previous-position): New macro.
+	(w3m-history-next-position): New macro.
+	(w3m-history-forward-1): Simplified using new macro(s).
+	(w3m-history-backward-1): Ditto.
+	(w3m-history-regenerate-pointers): Ditto.
+	(w3m-history-assoc): Ditto.
+	(w3m-history-current-1): Don't use old-fashioned backquotes.
+	(w3m-history-save-position): Ditto.
+	(w3m-history-modify-properties): Ditto.
+	(w3m-history-with-element): Ditto.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-namazu.el (w3m-about-namazu): Fixed problem when further links
+	contain "&amp;".
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-get-header): Removed.
+	(w3m-w3m-parse-header, w3m-w3m-dump-head): New function.
+	(w3m-w3m-attributes): Call the above functions.
+	(w3m-w3m-dump-head-source): Removed.
+	(w3m-w3m-dump-extra): New function.
+	(w3m-w3m-retrieve, w3m-w3m-retrieve-1): Reimplemented.
+	(w3m-about-header): Call `w3m-w3m-dump-head' instead of
+	`w3m-w3m-get-header'.
+
+	* w3m-proc.el: Changes to support recursive call of functions creating
+	asynchronous processes.
+	(w3m-process-waited): Abolished.
+	(w3m-process-handler-new): Add result slot.
+	(w3m-process-handler-functions): Renamed from
+	`w3m-process-handler-function'.
+	(w3m-process-handler-result): New macro.
+	(w3m-process-with-null-handler): Reimplemented.
+	(w3m-process-start-and-wait): New function.
+	(w3m-process-with-wait-handler): Reimplemented.
+	(w3m-process-do): Reimplemented.
+	(w3m-process-do-with-temp-buffer): Reimplemented.
+	(w3m-process-sentinel): Accept the 3rd argument.  Follow the above
+	changes.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-reuse-history-elements): New user option.
+	(w3m-history-forward): Return a cons of a new history element and new
+	position pointers of a history.
+	(w3m-history-backward): Ditto.
+	(w3m-history-regenerate-pointers): New function.
+	(w3m-history-push): If `w3m-history-reuse-history-elements' is nil,
+	sprout a new history branch even if history elements for the same url
+	already exist.
+	(w3m-history-add-arrived-db): Abolish the optional argument; bind
+	`w3m-history-reuse-history-elements' to t.
+
+	* w3m.el (w3m-view-previous-page): Assume `w3m-history-backward'
+	returns cons data; bind `w3m-history-reuse-history-elements' to t; fix
+	position pointers of a history after visiting a page.
+	(w3m-goto-url): Fix position pointers of a history when a page is
+	referred to by the about://history/ page.
+	(w3m-about-history): Include position pointers in an html form.
+	(w3m-history-highlight-current-url): Make history position data
+	invisible.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-entities): Don't trust in the `match-data' after
+	the `w3m-entity-value' function is performed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-command, w3m-user-agent, w3m-command-arguments,
+	w3m-command-arguments-alist, w3m-no-proxy-domains,
+	w3m-command-environment, w3m-fill-column, w3m-mailto-url-function,
+	w3m-mailto-url-popup-function-alist, w3m-imitate-widget-button,
+	w3m-pixels-per-character, w3m-coding-system,
+	w3m-terminal-coding-system, w3m-input-coding-system,
+	w3m-output-coding-system, w3m-file-coding-system,
+	w3m-file-name-coding-system, w3m-default-coding-system,
+	w3m-coding-system-priority-list, w3m-profile-directory, w3m-init-file,
+	w3m-default-save-directory, w3m-accept-languages, w3m-icon-directory,
+	w3m-home-page, w3m-arrived-file, w3m-keep-arrived-urls,
+	w3m-keep-cache-size, w3m-follow-redirection, w3m-resize-image-scale,
+	w3m-default-content-type, w3m-content-type-alist,
+	w3m-encoding-type-alist, w3m-decoder-alist,
+	w3m-charset-coding-system-alist, w3m-correct-charset-alist,
+	w3m-horizontal-scroll-columns, w3m-horizontal-shift-columns,
+	w3m-edit-function, w3m-url-local-directory-alist,
+	w3m-pop-up-frame-parameters, w3m-horizontal-scroll-division,
+	w3m-mbconv-command, w3m-local-find-file-regexps,
+	w3m-local-find-file-function, w3m-local-directory-view-method,
+	w3m-dirlist-cgi-program, w3m-add-referer-regexps, w3m-touch-command,
+	w3m-uri-replace-alist, w3m-db-history-display-size,
+	w3m-select-buffer-window-ratio): Improve the customizing widgets.
+
+	* w3m-symbol.el (w3m-symbol-custom-type): New variable.
+	(w3m-default-symbol, w3m-Chinese-BIG5-symbol, w3m-Chinese-CNS-symbol,
+	w3m-Chinese-GB-symbol, w3m-Japanese-symbol, w3m-Korean-symbol): Use it.
+	(w3m-symbol): Improve the customizing widgets.
+
+	* w3m-search.el (w3m-search-engine-alist, w3m-search-default-engine):
+	Improve the customizing widgets.
+	* w3m-perldoc.el (w3m-perldoc-command, w3m-perldoc-pod2html-command,
+	w3m-perldoc-pod2html-arguments): Ditto.
+	* w3m-filter.el (w3m-filter-rules): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-namazu.el (w3m-namazu-command, w3m-namazu-arguments,
+	w3m-namazu-page-max, w3m-namazu-default-index-customize-spec,
+	w3m-namazu-index-alist, w3m-namazu-output-coding-system,
+	w3m-namazu-input-coding-system): Improve the customizing widgets.
+	* w3m-image.el (w3m-imagick-convert-program): Ditto.
+	* w3m-form.el (w3m-form-input-textarea-buffer-lines,
+	w3m-form-input-select-buffer-lines, w3m-form-input-map-buffer-lines):
+	Ditto.
+	* w3m-filter.el (w3m-filter-rules): Ditto.
+	* w3m-e21.el (w3m-favicon-size, w3m-favicon-cache-file,
+	w3m-favicon-cache-expire-wait, w3m-favicon-type, w3m-tab-width): Diito.
+	* w3m-dtree.el (w3m-dtree-directory-depth, w3m-dtree-indent-strings,
+	w3m-dtree-stop-strings): Ditto.
+	* w3m-cookie.el (w3m-cookie-accept-domains, w3m-cookie-reject-domains,
+	w3m-cookie-accept-bad-cookies, w3m-cookie-file): Ditto.
+	* w3m-bookmark.el (w3m-bookmark-file, w3m-bookmark-file-coding-system,
+	w3m-bookmark-default-section): Ditto.
+	* w3m-bitmap.el (w3m-bitmap-convert-arguments): Ditto.
+	* w3m-antenna.el (w3m-antenna-sites, w3m-antenna-make-summary-function,
+	w3m-antenna-sort-changed-sites-function,
+	w3m-antenna-sort-unchanged-sites-function, w3m-antenna-file): Ditto.
+	* mime-w3m.el (mime-w3m-safe-url-regexp): Ditto.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-accept-japanese-characters): Checked loosely.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (clean): Do not remove `shimbun-servers.el'.
+
+	* w3mhack.el: Do not generate `shimbun-servers.el'.
+	(shimbun-servers-file): Abolished.
+	(w3mhack-compile, w3mhack-batch-compile): Do not call
+	`w3mhack-check-shimbun-servers-file'.
+	(w3mhack-generate-shimbun-servers-file): Removed.
+	(w3mhack-check-shimbun-servers-file): Removed.
+
+	* w3m.el (w3m-fontify-anchors): Handle `id' attributes of anchors.
+	Thanks to Shinichiro HIDA and TAKAISHI Hayato for their reports.
+	(w3m-fontify-bold, w3m-fontify-underline): Stricten regular expressions
+	to detect tags.  For more detail, see [emacs-w3m:05600].
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-display-inline-images): Improve the customizing
+	widget.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-language, w3m-command-environment,
+	w3m-content-type-alist, w3m-encoding-type-alist, w3m-decoder-alist,
+	w3m-charset-coding-system-alist, w3m-correct-charset-alist,
+	w3m-url-local-directory-alist, w3m-pop-up-frame-parameters): Improve
+	the customizing widgets.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-shimbun-servers-file): Exclude rss.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-set-method): New inline function, that is a
+	`setf' method of `w3m-form-method'.
+
+	* w3mhack.el (w3mhack-examine-modules): Because Mew 2.x and later do
+	not support Mule2.3 and Emacs19, ignore mew-shimbun.el when compiling
+	on such Emacsen.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-output-coding-system): Changed condition to use utf-8
+	with w3m-m17n.
+	(w3m-halfdump-command-arguments): Ditto.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Fix for the pages in which
+	form_int appears after input_alt.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Force texinfmt.elc to load texinfo.elc
+	from the correct place.  <cf. [emacs-w3m:05573]>
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-e21.el (w3m-euc-japan-encoder): Fixed comment.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3.6 from emacs-w3m-1_3 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-e21.el (w3m-ccl-get-ucs-codepoint-with-emacs-unicode): Remove
+	`translate-character'.
+	(w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): Select appropriate
+	encoders when thie file is loaded.
+
+	* w3m-ccl.el (w3m-ccl-write-repeat): Use a literal list of unibyte
+	character sets, instead of calling `charset-bytes', in order to avoid
+	difference between FSF Emacs and XEmacs.
+	(w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): Do not overwrite, if
+	they have already been defined.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Ignore w3m-ccl.el when XEmacs
+	doesn't provide the mule feature.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-correct-charset-alist): New user option.
+	(w3m-correct-charset): New inline macro.
+	(w3m-detect-meta-charset): New function.
+	(w3m-decode-buffer): Use `w3m-correct-charset' and
+	`w3m-detect-meta-charset'.
+	(w3m-create-page): Set `charset' to `w3m-current-content-charset' if it
+	is nil.
+	(w3m-region): If `charset' is nil, check `content-charset' in `META
+	Tag'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-ccl.el (toplevel): Add autoload for `charset-id' defined at
+	w3m-om.el.
+	(w3m-ccl-write-repeat): Simplified.
+	(w3m-ccl-write-euc-japan-character): Set nil, when
+	`read-multibyte-character' is not available.
+	(w3m-ccl-write-iso-latin-1-character): Ditto.
+
+	* w3m-om.el: Remove redundant `function'.
+	(w3m-om-character-set-alist): New variable.
+	(charset-id): New function.
+
+	* w3m.el (w3m-input-coding-system): Change its default value for
+	Mule2.3 and Emacsen without Mule.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Ignore w3m-ccl.el when ccl.el
+	is missing.
+
+	* w3m-e21.el (w3m-ccl-get-ucs-codepoint-with-emacs-unicode): Import
+	from w3m-ccl.el.
+
+	* w3m-ucs.el (w3m-ccl-get-ucs-codepoint-with-mule-ucs): Import from
+	w3m-ccl.el.
+
+	* w3m-ccl.el: Export the above constants.
+
+	* w3m.el (w3m-retrieve-and-render): Check current content charset
+	before `w3m-create-page' is called.
+
[phone]  ARISAWA Akihiro <[e-mail]>
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (toplevel): Do not require `ccl'.
+	(w3m-input-coding-system): Change its default value.
+	(w3m-internal-characters-alist): Moved to w3m-ccl.el
+	(w3m-ccl-write-repeat): Ditto.
+	(w3m-euc-japan-decoder): Ditto.
+	(w3m-euc-japan-encoder): Ditto.
+	(w3m-iso-latin-1-decoder): Ditto.
+	(w3m-iso-latin-1-encoder): Ditto.
+
+	* w3m-ccl.el: New file.
+
+	* w3m-ucs.el: Completely rewritten.
+	(w3m-euc-japan-mule-ucs, w3m-iso-latin-1-mule-ucs): New coding systems.
+
+	* w3m-e21.el (toplevel): Require `w3m-ccl'.
+	(w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): New encoder.
+
+	* w3m-om.el, w3m-e20.el, w3m-xmas.el (toplevel): Require `w3m-ccl'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Call `w3m-arrived-time' with string.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-uri-replace-alist): Improve the customizing widget.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Fix the logical error installed by the last
+	change at 2003-07-15.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-image-only-page): Abolished.
+	(w3m-show-error-information): Return nil.
+	(w3m-create-text-page): Return 'text-page.
+	(w3m-create-image-page): Return 'image-page.
+	(w3m-create-page): Return 'external-view when `w3m-external-view' is
+	called.
+	(w3m-goto-url): Do not encode a given URL when it points a local page.
+	Bind `w3m-current-buffer' locally.  Follow the change of
+	`w3m-create-page'.
+	(w3m-copy-buffer): Wrap `w3m-goto-url' with
+	`w3m-process-with-wait-handler', to avoid unexpected asynchronous
+	processes.
+	(w3m-region): Bind `w3m-current-buffer' locally.
+
+	* w3m-util.el (w3m-url-local-p): Stricten its regexp.
+	(w3m-url-dtree-p): Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-uri-replace-alist): Revert 2003-07-09 change; improve the
+	customizing widget.
+
+	* doc/ptexinfmt.el (texinfo-discard-command-and-arg): New function for
+	old Emacsen.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-decoder-alist): Simplified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decoder-alist): Look for the newest inflate command.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (w3m-mew-support-cid): Check `mew-version-number'.
+	(mew-w3m-cid-retrieve): Support Mew 4.0.53 and later.  Thanks to Kazu
+	YAMAMOTO for his patch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-uri-replace-alist): Add `rpm', `waei', `eiwa', `kokugo'
+	and `eiei'.
+	(w3m-input-url): Do not encode its return value.
+	(w3m-goto-url): Call `w3m-url-transfer-encode-string' to encode a given
+	URL.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3.5 from emacs-w3m-1_3 branch.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Simply copy buffer's contents to the
+	new session rather than to call `w3m-goto-url'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-local-file-type): Check whether a regular expression is
+	specified, before matching it on a URL.
+
+	* Following changes are to check whether required libraries are
+	available.
+
+	* w3mhack.el (toplevel): Do not create `shimbun/shimbun-servers.el' and
+	`w3m-kwds.el' only when this file is loaded, to suppress excessive
+	messages.
+	(w3mhack-check-shimbun-servers-file): New function.
+	(w3mhack-check-colon-keywords-file): New function.
+	(w3mhack-compile): Call these functions explicitly.
+	(w3mhack-batch-compile, w3mhack-locate-library, w3mhack-print-status):
+	New functions.
+
+	* configure.in: Check that egrep is available and that regexp-opt.el
+	and xml.el are available.
+
+	* aclocal.m4 (AC_EMACS_LISP): Add `-q' option and `-no-site-file'
+	option.
+	(AC_ADD_LOAD_PATH): Define `--with-attic' option.
+	(AC_CHECK_ELISP): New function.
+
+	* Makefile.in (.el.elc): Call `w3mhack-batch-compile' instead of
+	`batch-byte-compile'.
+	(very-slow): Always call `keywords' target.
+	(keywords): Call `w3mhack-check-colon-keywords-file'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-about-antenna): Fix the expression to decide
+	changed sites.
+
+	* w3m.el (w3m-retrieve-and-render): Do not overwrite an arrived time
+	with a modified time, even if the modified time is newer than the
+	arrived time.  Store a real URL to arrived DB.
+	(w3m-about-db-history): Small clean up.
+
+	* attic/xml.el: Import contrib/xml.el of Oort Gnus.  Require cl and
+	poe.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-add): Encode special characters
+	included in a URL and a title.
+
+	* w3m-antenna.el (w3m-antenna-check-all-sites): Use `w3m-antenna-alist'
+	instead of `w3m-antenna-sites'; this change must have no ill effects
+	because `w3m-use-setup' merges site informations kept by
+	`w3m-antenna-sites' into `w3m-antenna-alist'.
+	(w3m-about-antenna): Fix.
+	(w3m-antenna-add-current-url): Encode special characters included in
+	`w3m-current-title'.
+
+	* w3m.el: Changes of functions handling the arrived database, and clean
+	up w3m-retrieve-and-render() and related parts.
+	(w3m-content-type-alist): Change spec.
+	(w3m-attributes): Strip authentication part from URL before checking
+	charsets given by a user.
+	(w3m-arrived-add-1): Removed.
+	(w3m-arrived-add): Reimplemented.
+	(w3m-arrived-modify): Removed.
+	(w3m-arrived-time): Define its `setf' method.
+	(w3m-arrived-get, w3m-arrived-put): New inline functions.
+	(w3m-arrived-title): Define as a macro using `w3m-arrived-get'.
+	(w3m-arrived-last-modified): Ditto
+	(w3m-arrived-content-charset): Ditto
+	(w3m-arrived-content-type): Ditto.
+	(w3m-arrived-shutdown): Modify a predicate used for comparing arrived
+	elements, to ensure that every URL precedes its variants with
+	fragments.
+	(w3m-encode-specials-string): New function.
+	(w3m-safe-decode-buffer): New function.
+	(w3m-rendering-extract-title): Simplified.
+	(w3m-rendering-half-dump): Define as a normal function.
+	(w3m-rendering-buffer): Do not call `w3m-filter'.
+	(w3m-retrieve-and-render): Reimplemented.
+	(w3m-show-error-information): Change its argument spec.
+	(w3m-content-prepare-functions): Abolished.
+	(w3m-prepare-content): Reimplemented.
+	(w3m-prepare-text-content, w3m-prepare-image-content): Removed.
+	(w3m-create-text-page, w3m-create-image-page): New functions; the
+	successors of the aboves.
+	(w3m-create-page): New function.
+	(w3m-goto-url): Follow above changes and clean up.
+	(w3m-redisplay-and-reset): Call `setf' methods instead of using
+	`w3m-arrived-modify'.
+	(w3m-redisplay-with-charset): Ditto.
+	(w3m-redisplay-with-content-type): Ditto.
+	(w3m-about-header): Strip authentication part from URL before
+	extracting titles.
+	(w3m-about-history): Encode special characters included in a title.
+	(w3m-about-db-history): Encode special characters in the title.  Ignore
+	URLs that include fragments.
+
[phone]  TAKAHASHI Kaoru  <[e-mail]>
+
+	* doc/ptexinfmt.el: @verb, @tie, @/ support.
+	(ptexinfmt-broken-facility): Abolish NO-NOTICE argument.  Use
+	`ptexinfmt-disable-broken-notice-flag' instead.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Add CHARSET argument of
+	`w3m-region' when no w3m-m17n.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Call `w3m-region' with
+	`charset' option.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Use `w3m-url-strip-fragment' instead of
+	`w3m-base-url' for local files.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-arrived-load-list): Check that `w3m-arrived-file' exists
+	before deleting it.
+	(w3m-check-refresh-attribute): Condition relaxed.
+	(w3m-region): Disable checking refresh attribute.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Some miscellaneous changes and large changes to make a filter
+	module cooperate with w3mmee and w3m-m17n.
+	(w3m-language): Stricten its customize spec.
+	(w3m-attributes): Call `w3m-url-strip-fragment' instead of using a
+	literal regular expression.
+	(w3m-arrived-load-list): New function.
+	(w3m-arrived-setup, w3m-arrived-shutdown): Use the above.
+	(w3m-url-decode-string): Call `vector' instead of `string' to avoid
+	making unexpected multibyte characters.
+	(w3m-decode-buffer): Do not call `w3m-decode-get-refresh'.
+	(w3m-decode-get-refresh): Removed.
+	(w3m-check-refresh-attribute): New function, the successor of the
+	above.
+	(w3m-rendering-half-dump): Encode a content for w3mmee and w3m-m17n
+	with `w3m-current-coding-system' instead of giving it as a binary data.
+	Because `w3m-current-coding-system' keeps a coding system used to
+	decode the current buffer, all characters should be recovered by this
+	encoding.
+	(w3m-rendering-buffer-1): Removed.
+	(w3m-rendering-buffer): New function, the successor of the above.
+	(w3m-rendering-unibyte-buffer): Removed.
+	(w3m-rendering-multibyte-buffer): Removed.
+	(w3m-prepare-text-content): Always call `w3m-decode-buffer'. Call
+	`w3m-rendering-buffer' instead of `w3m-rendering-unibyte-buffer'.
+	(w3m-goto-url): Fix regular expressions.
+	(w3m-region): Accept the 4th optional argument, `charset'.  Set
+	`w3m-current-coding-system' to the coding system based on the given
+	charset.  Call `w3m-rendering-buffer' with the charset.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Include other files first.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-shimbun-modules-using-rss): Don't use
+	`with-temp-buffer'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-shimbun-modules-using-rss): New function.
+	(w3mhack-examine-modules): Call the above instead of a literal list.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/Makefile.in (install): Don't run install-info for non- existent
+	info files.
+
+	* w3mhack.el (w3mhack-examine-modules): Also examine
+	"sb-pukiwiki-rss.el".
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-namazu.el (w3m-namazu-complete-index): Consider `predicate'
+	option.
+
+	* w3m-weather.el (w3m-weather-completion-table): Add `oki' as the
+	shortend form of `shimanekenoki'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Do not encode fragment parts.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Ignore the shimbun modules
+	which need xml.el if it is not available.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Improve the last change.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3.4 from emacs-w3m-1_3 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-arrived-ignored-regexp): Use "\`" instead of "^".
+	(w3m-history-ignored-regexp): Ditto.
+	(w3m-url-transfer-encode-string): New inline function.
+	(w3m-fontify-anchors): Encode URL with the attribute `charset'.
+	(w3m-input-url): Encode URL with `w3m-default-coding-system'.
+	(w3m-about-header): Display the current anchor information.
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Encode URL with the
+	attribute `charset'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Encode messages to terminal while
+	formatting info pages.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Improve the regexp to extract
+	content-types.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Apply
+	`w3m-decode-anchor-string' to the form action url.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* doc/emacs-w3m.texi, doc/emacs-w3m-ja.texi: Their license is changed
+	from GNU Free Documentation License to GNU General Public License.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (toplevel): Require poe.
+	(octet-filter-call1): Use `make-temp-file' instead of `make-temp-name'.
+	(octet-filter-call2): Ditto.
+	(octet-filter-call2-extra): Ditto.
+	(octet-temp-directory): Changed default value to
+	`temporary-file-directory'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (DOCS): FAQ, FAQ.ja, README.namazu.ja, README.shimbun.ja,
+	TIPS and TIPS.ja are merged into Info.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* doc/Makefile.in (dvi): New target to create dvi files; related
+	targets and macros are installed.
+
+	* doc/.cvsignore: Ignore dvi files.
+
+	* configure.in: Check whether texi2dvi, ptex and jbibtex exists.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* .cvsignore: Ignore tarballs.
+
+	* Makefile.in (SUBDIRS): New macro.
+	(tarball): Refer the above macro, and put texinfo sources into a
+	tarball.
+
+	* aclocal.m4 (AC_ADD_LOAD_PATH): Use the variable `EGREP' instead of
+	the literal `grep'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (byte-optimizer for match-string-no-properties): `lenght'
+	-> `length'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Simplify functions that rewrite URIs.
+	(toplevel): Autoload `w3m-search-uri-replace' instead of
+	`w3m-search-quick-search-handler'.
+	(w3m-uri-replace-alist): Changed its default value and its customize
+	spec.
+	(w3m-pattern-uri-replace): New function.
+	(w3m-uri-replace): Reimplemented.
+
+	* w3m-search.el (w3m-search-quick-search-engine-alist): Abolished.
+	(w3m-search-quick-search-engines): Removed.
+	(w3m-search-quick-search-handler): Removed.
+	(w3m-search-uri-replace): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-highlight-current-anchor): Don't infloop even if a w3m
+	buffer is narrowed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-make-package): Make it work under non-Mule
+	XEmacs.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-use-safe-url-regexp): New variable.
+	(mew-w3m-view-inline-image, mew-mime-text/html-w3m): Use
+	`mew-w3m-use-safe-url-regexp' for `w3m-safe-url-regexp'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (Top): Use w3m-treat-drive-letter for `w3m-expand-path-name'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Apply the patch posted by
+	Yoichi NAKAYAMA <[e-mail]> in [emacs-w3m:04836], that correct
+	the wrong usage of `message'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Invalidate the widget keymap in XEmacs;
+	add a help-echo to the widget button.
+	(w3m-make-minor-mode-keymap): Bind [down-mouse-2] to `undefined' to
+	invalidate the `widget-button-click' command in FSF Emacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-imitate-widget-button): New variable.
+	(w3m-imitate-widget-button): New function.
+	(w3m-fontify-anchors): Imitate the widget button.
+	(w3m-next-anchor): Look for the widget button.
+	(w3m-previous-anchor): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-retrieve-and-render): Hide a exit status from an error
+	message unless `w3m-process-exit-status'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Improve and bug fix the find-file code.
+
[phone]  Chihiro Kuroda  <[e-mail]>
+
+	* w3m.el (w3m-download): Download a directory url to index.html
+	(by default) instead of signaling an error.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-local-find-file-regexps): New user option.
+	(w3m-local-find-file-function): New user option.
+	(w3m-goto-url): Use the function specified by the
+	`w3m-local-find-file-function' variable for local files when the file
+	name matches the `w3m-local-find-file-regexps' variable.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Change coding-system to
+	`euc-japan' of "waei" and "kokugo". Tnx, Mr. Saito ([e-mail]) for
+	his report.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-check-all-sites): Call `make-symbol'
+	instead of `gensym', in order to make this function free from runtime
+	CL functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug): Make it possible to send a bug
+	report even if emacs-w3m is not running.
+
[phone]  Michael Shields  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-image): Protect against images which are not
+	permitted to be loaded according to `w3m-safe-url-regexp'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-util.el (w3m-get-server-hostname): Rename and move from
+	`w3m-process-get-server-root' in `w3m-proc.el'.
+
+	* w3m-proc.el (w3m-process-set-authinfo, w3m-process-read-user)
+	(w3m-process-read-passwd, w3m-process-y-or-n-p): Use
+	`w3m-get-server-hostname' instead of `w3m-process-get-server-root'.
+
+	* w3m.el (w3m-show-error-information): New customized variable.
+	(w3m-w3m-attributes): Message strange `Location:' like lynx.
+	(w3m-retrieve-and-render): When error occur, show error message in `w3m
+	buffer' to be accompanied by `w3m-show-error-information'.
+	(w3m-show-error-information): New function.
+	(w3m-reload-this-page, w3m-redisplay-this-page)
+	(w3m-redisplay-and-reset, w3m-redisplay-with-charset)
+	(w3m-view-source, w3m-view-header): If `w3m-current-url' is nil, dont'
+	execute command.
+	(w3m): Guard from the bug of `select-frame-set-input-focus' in
+	Emacs-21.3.x. If `w3m-current-url' is nil in `w3m buffer'
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-shimbun-servers-file): Exclude fml,
+	glimpse, lump, mailarc, mailman, mhonarc and text; indent.
+	(w3mhack-generate-colon-keywords-file): indent.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add www.alltheweb.com
+	suggested by Chris Beggy <[e-mail]>; make the default value
+	more suitable to the language environment; don't use the old fashioned
+	backquotes.
+	(w3m-search-default-engine): Always default to google.
+	(w3m-search-prefer-japanese-site): Remove.
+	(w3m-search-inhibited-japanese-engines): Remove.
+	(w3m-search): Bind `completion-ignore-case' to t.
+	(w3m-search-quick-search-handler): Remove
+	`w3m-search-prefer-japanese-site' and
+	`w3m-search-inhibited-japanese-engines'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Allow imperfect Status-Line like no
+	Reason-Phrase. Guard broken header like no location field.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-util.el (w3m-url-local-p): Use `\`' instead of `^'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Treat a `local cookie file', again.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-type): Support "release candidate" of w3m.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-insert-image): Use `map-extents' instead of
+	`extent-at' repeatedly.
+	(w3m-remove-image): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-submit): Remove `!CURRENT_URL!' from action
+	tag.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (TopLevel): Don't gererate the w3m-kwds.el file if there
+	is no permission to write.
+
+	* Makefile.in (clean): Remove shimbun/shimbun-servers.el.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+	Katsumi Yamaoka <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-shimbun-servers-file): New function.
+	(TopLevel): Call it.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3mhack.el (shimbun-servers-file): New constant.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-mode): Bind `auto-hscroll-mode' for Emacs-21.3.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-image-type): Move forward.
+	(w3m-fontify-images): Use `w3m-action' and `w3m-anchor' instead of
+	`get-text-property'.
+	(w3m-toggle-inline-images-internal): Use `w3m-image' instead of
+	`get-text-property'.
+	(w3m-toggle-inline-image): Don't specify the arg to `w3m-image'.
+	(w3m-resize-inline-image-internal): Use `w3m-image' instead of
+	`get-text-property'.
+	(w3m-zoom-in-image): Don't specify the arg to `w3m-image'.
+	(w3m-zoom-out-image): Ditto.
+	(w3m-view-this-url): Don't bother to call `w3m-anchor' if it is
+	needless.
+	(w3m-print-this-url): Don't pull-in the point into the link if it is
+	called non-interactively.
+	(w3m-highlight-current-anchor-1): Use `w3m-anchor-sequence' instead of
+	`get-text-property'.
+	(w3m-next-anchor): Don't put `nil' element into `w3m-goto-anchor-hist';
+	use `push' instead of `cons'.
+	(w3m-previous-anchor): Ditto.
+	(w3m-next-form): Use `w3m-action' instead of `get-text-property'; don't
+	put `nil' element into `w3m-goto-anchor-hist'; specify the current
+	position to `w3m-action'; use `push' instead of `cons'.
+	(w3m-goto-previous-form): indent.
+	(w3m-previous-form): Use `w3m-action' instead of `get-text-property';
+	don't put `nil' element into `w3m-goto-anchor-hist'; specify the
+	current position to `w3m-action'; use `push' instead of `cons'.
+	(w3m-next-image): Use `w3m-image' instead of `get-text-property'; don't
+	put `nil' element into `w3m-goto-anchor-hist'; specify the current
+	position to `w3m-image'; use `push' instead of `cons'.
+	(w3m-previous-image): Ditto.
+
+	* w3m-form.el (w3m-form-resume): Use `w3m-action' instead of
+	`get-text-property'; specify the current position to `w3m-action'.
+	(w3m-fontify-textareas): Use `w3m-anchor-sequence' instead of
+	`get-text-property'.
+	(w3m-form-replace): Use `w3m-action' instead of `get-text-property'.
+	(w3m-form-textarea-info): Use `get-text-property' instead of
+	`w3m-get-text-property-around'.
+	(w3m-form-reset): Use `w3m-action' instead of `get-text-property'.
+
+	* w3m-util.el (w3m-get-text-property-around): Always search for the
+	text prop around there and pull-in the point into the position where
+	the prop exists.
+	(w3m-action, w3m-anchor, w3m-image, w3m-submit): Use
+	`get-text-property' if the argument is omitted.
+	(w3m-image-scale): Abolished.
+	(w3m-anchor-sequence): Simplified.
+
+	* mime-w3m.el (mime-w3m-mode-map): Bind it when compiling.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (top): Move the last addition (modifying the value for
+	`shell-file-name') just after loading `cl'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3mhack.el (top): Set `cmdproxy.exe' to `shell-file-name' when Win32
+	environment.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Treat a `local cookie file'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-ucs.el (w3m-ucs-to-char): Guard error for Mule-UCS 0.85.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-byte-optimize-letX): Add `pathname-coding-system'
+	to be removed from `let' bindings.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* w3m-e21.el (w3m-favicon-type): Add BMP at the head of the list.
+	(w3m-favicon-type): Undo the last change and make the priority of BMP
+	the lowest.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Withdraw the change of 2003-01-09.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules, w3mhack-load-path): Check the
+	existence of Gnus for shimbun/nnshimbun.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-function-max-args): Don't use the arglist
+	destructively.
+
+	* mime-w3m.el (kill-new): Don't refer to the whole arglist of the
+	original function.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-scroll-down-or-previous-url): Added doc string.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (toplevel): Strict checking that buggy `w3m-time-parse-string'
+	is used.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	Suggested by KURIHARA Kenichi <[e-mail]>.
+
+	* w3m.el (w3m-async-exec): Always default to `t'.
+	(w3m-process-connection-type): Default to `nil' under MacOS X.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Insert one excessive newline after a
+	@foo{bar} thing to prevent clinging of a line and a line
+	(old texinfmt bug?) if it should be considered only one thing in a
+	line.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-ext-url-show): Use `mew-buffer-message' instead
+	of `mew-window-configure'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-ext-url-show): New funcition.
+	(mew-w3m-ext-url-fetch): Ditto.
+	(top): Modify comment. Avoid byte-compile warning for
+	`mew-window-configure'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Display the information of page.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Treat a local cookie.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-favicon-type): Change default value and type of
+	custom.
+	(w3m-favicon-type-alist): New internal variable.
+	(w3m-setup-favicon): Don't check 'xpm.
+	(w3m-buffer-favicon): Decide image type of Emacs use
+	`w3m-favicon-type-alist'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-type): Suppert `stable version notation' of w3m-m17n.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-use-favicon): Moved from w3m-e21.el.
+
+	* w3m-image.el (w3m-favicon-usable-p): Moved from w3m-e21.el.
+
+	* w3m-e21.el : Bind `w3m-use-favicon' when compiling.
+	(w3m-favicon-usable-p): Moved to w3m-image.el.
+	(w3m-use-favicon): Moved to w3m.el.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-text-chop): Added nil check.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-what-where): Don't say [-ja] especially.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/ptexinfmt.el: Modify it not to use APEL functions.
+
+	* w3mhack.el (w3mhack-makeinfo): Remove last temporal mod.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Temporally fix to help users who don't
+	have APEL that use texinfmt if loading doc/ptexinfmt.el is failed.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* doc/Makefile.in: Remove GNU make things.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-makeinfo): Don't format Japanes info if the mule
+	feature is not provided.
+
+	* aclocal.m4 (AC_PATH_LISPDIR, AC_PATH_ICONDIR): Undo last change.
+
+	* doc/Makefile.in (INSTALL_INFO): New variable.
+	(install): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (srcdir): New variable.
+	(FLAGS): Specify an absolute path to w3mhack.el.
+	(all-en): New rule.
+	(all-ja): Made it make only Japanese info.
+	(info-en): New rule.
+	(install-en): New rule.
+	(install-ja): Made it install only Japanese info.
+	(install-lisp): Use `$(srcdir)/' instead of `./'.
+	(install-icons): Ditto.
+	(install-info-en): New rule.
+	(Makefile): Use `$(srcdir)/' instead of `./'.
+	(config.status): Ditto.
+	(very-slow): Specify an absolute path to attic/addpath.el.
+
+	* doc/.cvsignore: Add version.texi.
+
+	* doc/ChangeLog: Removed.
+
+	* doc/Makefile.in (srcdir, subdir, top_srcdir): New variables.
+	(FLAGS): Specify an absolute path to w3mhack.el.
+	(EMACSINFO): Use `$(top_srcdir)' instead of `..'.
+	(INFO_DEPS): Include both emacs-w3m.info and emacs-w3m-ja.info.
+	(INFO_DEPS_EN): New variable.
+	(en): New rule.
+	(version.texi): New rule.
+	(emacs-w3m.info): Made it depend on version.texi.
+	(emacs-w3m-ja.info): Ditto.
+	(install): Use `$(top_srcdir)/' instead of `../'.
+	(install-en): New rule.
+
+	* doc/version.texi: Removed from the CVS repository.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* doc/Makefile.in (clean): Fix target.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3mhack.el (w3mhack-nonunix-install): Create parent directories.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/texinfo.tex: Replaced with the latest version.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-header-line-map): Prevent tool-bar from being doubled
+	under Emacs 21.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (infodir): Add a variable.
+	(default): Use `all'.
+	(all, all-ja): New rules.
+	(lisp): Renamed from `default'.
+	(what-where): Pass `infodir' to `w3mhack-what-where'.
+	(info, info-ja): New rules.
+	(install): Use `install-lisp' and `install-info'.
+	(install-ja): New rule.
+	(install-lisp): Renamed from `install'.
+	(install-info, install-info-ja): New rules.
+	(install-package): Use `install-lisp' instead of `install'; install
+	info files as well.
+	(install-package-ja): New rule.
+	(clean): Remove info files as well.
+	(distclean): Remove doc.Makefile as well.
+
+	* aclocal.m4 (AC_PATH_LISPDIR, AC_PATH_ICONDIR): Modify a message for
+	`install-package'.
+
+	* configure.in: Check for the makeinfo command; create doc/Makefile.
+
+	* w3mhack.el (w3mhack-make-package): Add info file names into a
+	MANIFEST file.
+	(w3mhack-what-where): Show where info files will go.
+	(w3mhack-makeinfo): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/Makefile.in, .cvsignore: New file.
+
+	* doc/emacs-w3m.texi, emacs-w3m-ja.texi: Correct copyright holder.
+
+	* doc/emacs-w3m.texi: Renamed from emacs-w3m-en.texi.
+
+	* doc/txi.tex: Renamed from txi-en.tex.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Specify coding-system for
+	the waei and kokugo entries.  Suggested by Hideyuki SHIRAI.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* doc/emacs-w3m-en.texi, emacs-w3m-en.texi: Convert to GFDL.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* doc/emacs-w3m-en.texi: New files.
+	* doc/emacs-w3m-ja.texi:
+	* doc/ptexinfmt.el:
+	* doc/texinfo.tex:
+	* doc/txi-en.tex:
+	* doc/txi-ja.tex:
+	* doc/version.texi:
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-tabmenu.el (w3m-tab-menubar-update): Do nothing when there's no
+	menubar.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-1): Keep position when new-session and
+	`w3m-view-this-url-new-session-in-background' is non-nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Use `match-string-no-properties'
+	if it exist.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Use an optional argument and the function
+	`interactive' to examine whether it is called interactively instead of
+	the function `interactive-p'.  Suggested by TSUCHIYA Masatoshi.
+	(w3m-goto-url-new-session): Ditto.
+	(w3m): Ditto.
+	(w3m-select-buffer-show-this-line): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Bind `case-fold-search' to t.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add some dictionaries.
+	(w3m-search-default-engine): Default to google.
+	(w3m-search-quick-search-engine-alist): Add iij-archie; add
+	customization type.
+	(w3m-search-prefer-japanese-site): New user option.
+	(w3m-search-inhibited-japanese-engines): New user option.
+	(w3m-search-quick-search-engines): New function.
+	(w3m-search-quick-search-handler): Maybe use a Japanese site; use
+	`w3m-search-quick-search-engines' to merge `w-s-engine-alist' and
+	`w-s-quick-search-engine-alist'.
+
+	* w3m.el (w3m): Allow quicksearch urls if interactive.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3.el (w3m-view-this-url-1): Copy `w3m-current-url' into a copied
+	buffer.
+	(w3m-goto-url): Allow the 7th argument `qsearch'; use it to recursive
+	call the function itself if the quicksearch feature is permitted.
+	(w3m-goto-url-new-session): Specify the 7th arg of `w3m-goto-url' if it
+	is called interactively.
+
[phone]  Romain FRANCOISE  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Add "google groups".
+	(w3m-search-quick-search-engine-alist): New user option.
+	(w3m-search-quick-search-handler): New function.
+
+	* w3m.el: Autoload `w3m-search-quick-search-handler'.
+	(w3m-goto-url): Use `w3m-search-quick-search-handler' to parse
+	quicksearch url schemes.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-safe-string): Abolish its 2nd `coding'
+	argument.  Instead of it, use the coding system to be used for encoding
+	the buffer contents on saving.
+	(w3m-bookmark-write-file): Follow the above change.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-fontify-textareas): Replace textarea string only
+	when form data contains non-nil data.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (toplevel): Added autoload setting for
+	`w3m-fontify-textareas'.
+	(w3m-fontify): Don't remove tag strings in the textareas; Call
+	`w3m-fontify-textareas'.
+
+	* w3m-form.el (w3m-form-treat-textarea-size): New option.
+	(w3m-form-resume): Do nothing if forms is nil.
+	(w3m-fontify-textareas): New function.
+	(w3m-form-parse-and-fontify): Decode entities for form value; Record
+	textarea rows as text property.
+	(w3m-form-parse-and-fontify): Treat CRLF as a newline character.
+	(w3m-form-search-textarea): New function.
+	(w3m-form-textarea-replace): Rewrite.
+	(w3m-form-textarea-info): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-file-coding-system): Fix its docstring.
+	(w3m-bookmark-verify-modtime): Keep buffer modified status.
+	(w3m-bookmark-safe-string): New function.
+	(w3m-bookmark-write-file): Call it to make given strings be safe.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-bookmark.el: Use non-visiting working buffer; Auto-detection of
+	bookmark file coding system.
+	(w3m-bookmark-file-coding-system): Fix its docstring.
+	(w3m-bookmark-buffer-file-name): New internal variable.
+	(w3m-bookmark-mode): Add documents for commands.
+	(w3m-bookmark-mode-setter): Set `default-directory'.
+	(w3m-bookmark-buffer): Use non-visiting working buffer.
+	(w3m-bookmark-sections): Follow the above change.
+	(w3m-bookmark-kill-entries): Likewise.
+	(w3m-bookmark-file-modtime, w3m-bookmark-verify-modtime)
+	(w3m-bookmark-save-buffer): New functions.
+	(w3m-bookmark-write-file): Use it; Stricten check.
+	(w3m-bookmark-add-current-url-group): Call `w3m-bookmark-add' without
+	2nd argument.
+	(w3m-about-bookmark): Give unique id to sections.
+	(w3m-bookmark-current-number): Follow the above change.
+	(w3m-bookmark-kill-entry): If the bookmark file is reverted, reload it.
+	(w3m-bookmark-undo): Ditto.
+	(w3m-bookmark-edit): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-about-bookmark): Fix.
+	(w3m-bookmark-current-number): Return nil on no entry line.
+	(w3m-bookmark-kill-entry): On no entry line, do not call
+	`w3m-bookmark-kill-entries'.
+	(w3m-bookmark-kill-entries): Fix.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-namazu.el (w3m-namazu): Change prompt.
+	(w3m-namazu): Change prompt; Small fix.
+
+	* w3m-bookmark.el: Experimental bookmark editer.
+	(w3m-bookmark-read-file): Removed.
+	(w3m-bookmark-buffer): New function.
+	(w3m-bookmark-sections): Use it.
+	(w3m-bookmark-write-file): Use it; Call `basic-save-buffer'.
+	(w3m-bookmark-view): View about://bookmark/ instead of
+	w3m-bookmark-file directly.
+	(w3m-about-bookmark, w3m-bookmark-current-number)
+	(w3m-bookmark-kill-entry, w3m-bookmark-kill-entries)
+	(w3m-bookmark-undo): New functions.
+	(w3m-bookmark-mode, w3m-bookmark-mode-map): New variables.
+	(w3m-bookmark-mode-hook): New hook.
+	(w3m-bookmark-mode): New minor mode.
+	(w3m-bookmark-mode-setter): New function.
+	(toplevel): Register it to `w3m-display-functions'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-colon-keywords-file): Protect against
+	unexpected data structure.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Remove workaround for servers which do
+	not support HEAD operations.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3.3 from emacs-w3m-1_3 branch.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (find-charset): Alias to ignore if no-Mule.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-entity-alist): Use `w3m-mule-unicode-p' instead of
+	`w3m-use-mule-ucs'.
+
+	* w3m-xmas.el (w3m-mule-unicode-p): New function.
+
+	* w3m-fsf.el (w3m-mule-unicode-p): New function.
+
+	* w3m-om.el (w3m-mule-unicode-p): Set aliase to `ignore'.
+
+	* w3m-e19.el (w3m-mule-unicode-p): Set aliase to `ignore'.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m.el (w3m-entity-alist): Support all entities using Mule-UCS.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mew-w3m.el: Cancel the last change.  Use `w3m-minor-mode'.
+
+	* mime-w3m.el (mime-w3m-display-inline-images): Fix its docstring.
+	(mime-w3m-safe-url-regexp): Fill its docstring.
+	(mime-w3m-setup-hook): New hook.
+	(mime-w3m-setup): Do not initialize `mime-w3m-mode-map'; Run the above
+	hook.
+	(mime-w3m-mode-map): It is not defined for XEmacs and Emacs21.
+	(mime-w3m-local-map-property): New function.
+	(mime-w3m-preview-text/html): Call it.
+
+	* w3m.el (w3m-key-binding): Cancel the last change.
+	(w3m-region): Change the interactive form; Do not process <base> tag by
+	itself.
+	(w3m-minor-mode-command-alist): Cancel the last change.
+	(w3m-minor-mode-map, w3m-minor-mode-hook, w3m-minor-mode): Revival.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal)
+	(w3m-toggle-inline-image, w3m-view-this-url, w3m-view-this-url)
+	(w3m-submit-form, w3m-external-view, w3m-view-image)
+	(w3m-save-image, w3m-view-url-with-external-browser)
+	(w3m-download-this-url, w3m-edit-this-url, w3m-goto-url)
+	(w3m-goto-url-with-timer, w3m-safe-view-this-url)
+	(w3m-safe-view-this-url): Check validity of the URL.
+	(w3m-print-current-url, w3m-edit-current-url): Check `w3m-current-url'.
+
+	* w3m-util.el (w3m-url-fallback-base): Move from `w3m.el'.
+	(w3m-url-invalid-regexp): New constant.
+	(w3m-url-valid): New inline function.
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Remove any properties from
+	`xref'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (coding-system-list): Use `defalias' and `lambda' instead
+	of `defun'; allow an optional dummy argument; don't ignore `*noconv*'.
+	(read-passwd): Use `defalias' and `lambda' instead of `defun'.
+	(compose-mail): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-key-binding): Remove the code to reset
+	`w3m-minor-mode-map'.
+	(w3m-minor-mode-command-alist): Update its docstring.
+	(w3m-minor-mode-map, w3m-minor-mode-hook, w3m-minor-mode): Abolished.
+	(w3m-minor-mode): Removed.
+
+	* mime-w3m.el (mime-w3m-setup): Call `w3m-make-minor-mode-keymap'
+	without using `w3m-minor-mode-map'.
+
+	* mew-w3m.el (mew-use-w3m-minor-mode): Update its docstring.
+	(mew-w3m-minor-mode-map): New variable.
+	(toplevel): Revival the code to add a minor mode.
+	(mew-w3m-minor-mode-setter): Cancel the last change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-key-binding): Revival the code to reset
+	`mime-w3m-mode-map'.
+
+	* mime-w3m.el (mime-w3m-mode-map): Revival.
+	(mime-w3m-setup): Initialize `mime-w3m-mode-map' based on
+	`w3m-minor-mode-map'; Modify it to set its parent map to
+	`mime-view-mode-default-map'.
+	(mime-w3m-preview-text/html) [XEmacs,Emacs21]: Unify `local-map' as
+	text property.
+
+	* w3m.el (w3m-make-minor-mode-keymap): Call `make-spase-keymap' instead
+	of `make-keymap'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-entity-regexp): As simple regexp. Existance of final
+	semi-collon is to be detected.
+	(w3m-entity-value): 2nd argument STRICT is added. If not STRICT, find
+	entity from db by maxmum length matching, and returns it with appending
+	unused chars. Returns nil if not match.  And also use defun instead of
+	defsubst.
+	(w3m-decode-entities): Use new `w3m-entity-value' with 2nd arg.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-minor-mode): Define without `define-minor-mode'.
+	(w3m-minor-mode): Ditto.
+	(w3m-minor-mode-hook): Ditto.
+	(w3m-entity-regexp): Set 3000 to `max-specpdl-size' locally to avoid
+	max-specpdl-size error.
+
+	* w3m-e19.el: Cancel the last change to define `define-minor-mode'.
+	* w3m-fsf.el: Ditto.
+	* w3m-om.el: Ditto.
+
+	* attic/easy-mmode.el: Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e19.el: Require `easy-mmode'; make the alias `define-minor-mode'
+	to `easy-mmode-define-minor-mode'.
+	* w3m-fsf.el: Ditto.
+	* w3m-om.el: Ditto.
+
+	* attic/easy-mmode.el: New file imported from Emacs 20.7.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map, w3m-info-like-map): Add [tab] for
+	`w3m-next-anchor'.
+	(w3m-safe-view-this-url, w3m-mouse-safe-view-this-url): New command.
+	(w3m-minor-mode-command-alist): New constant.
+	(w3m-make-minor-mode-keymap): New function.
+	(w3m-minor-mode-map): New keymap.
+	(w3m-minor-mode): New function.
+
+	* mime-w3m.el (mime-w3m-mode-map): Abolished.
+	(mime-w3m-mode-command-alist): Abolished.
+	(mime-w3m-mode-dont-bind-keys): Abolished.
+	(mime-w3m-mode-ignored-keys): Abolished.
+	(mime-w3m-setup): Do not initialize `mime-w3m-mode-map'.
+	(mime-w3m-preview-text/html): Use `w3m-minor-mode-map' instead of
+	`mime-w3m-mode-map'.
+	(mime-w3m-view-this-url, mime-w3m-mouse-view-this-url): Removed.
+
+	* mew-w3m.el (mew-w3m-minor-mode): Abolished.
+	(mew-w3m-minor-mode-setter): Call `w3m-minor-mode'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e19.el: Cancel last change for providing the base64 codec.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Use 'group:' scheme instead of
+	'about://group/...'; Use url encoding for the member of URL group
+	instead of base64 encoding.
+
+	* w3m-bookmark.el (w3m-bookmark-add-current-url-group): Follow the
+	change above.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e19.el: Require `poe' and `path-util'; attempt to define the
+	functions `base64-decode-string' and `base64-encode-string'.
+
+	* w3m-util.el (w3m-display-progress-message): New function.
+	* w3m.el (w3m-goto-url-new-session): Use it.
+	(w3m): Use it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Process 'about://group/...'.
+
+	* w3m-bookmark.el (w3m-bookmark-add-current-url-group): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-delete-buffer): Run `w3m-delete-buffer-hook' only when a
+	buffer is killed.
+	(w3m-pack-buffer-numbers): Arrange buffers sequentially from 1 instead
+	of 0.
+	(w3m-select-buffer-next-line): Update gutter tabs for XEmacs.
+	(w3m-select-buffer-delete-buffer): Run `w3m-delete-buffer-hook'.
+
+	* w3m-util.el (w3m-buffer-number): Assume the buffer number has begun
+	from 1 instead of 0.
+	(w3m-buffer-set-number): Ditto.
+	(w3m-buffer-name-lessp): Ditto.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m.el (w3m-entity-alist): Support Greek.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Display a help message to stop asynchronous
+	process.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea-keymap): Don't bind C-g.
+	(w3m-form-input-select-keymap): Ditto.
+	(w3m-form-input-map-keymap): Ditto.
+
+	* w3m.el (w3m-select-buffer-mode): Add some key descriptions to the
+	doc-string.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* icons/db-history-up.xpm: Add missing comma.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-symbol.el: New file.
+
+	* w3m.el: Autoload "w3m-symbol" for `w3m-replace-symbol'.
+	(w3m-use-symbol): New variable.
+	(w3m-fontify): Call `w3m-replace-symbol'.
+
+	* w3mhack.el (w3mhack-examine-modules): Don't byte-compile
+	w3m-symbol.el if no-MULE.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-e21.el (w3m-buffer-favicon): Bind local null handler with
+	`w3m-process-with-null-handler' instead of `lexical-let'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-push, w3m-process-start): Fix last change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-rendering-half-dump): To decide whether
+	`w3m-treat-image-size' is ignored, use `w3m-display-inline-images-p'
+	instead of `w3m-display-graphic-p'.  Thanks to Mito for his report.
+	(w3m-about): Add `witdh' and `height' property to <img> tag.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-emacs-w3m-icon): Use helvetica-bold to widen image.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Don't define key bindings for
+	`w3m-zoom-out-image' and `w3m-zoom-in-image' when emacs-w3m in running
+	in non-graphical display.
+	(w3m-info-like-map): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+	    Mito <[e-mail]>
+
+	* w3m.el (w3m-rendering-half-dump): Ignore `w3m-treat-image-size' when
+	emacs-w3m is running in non-graphical display.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Follow the change of
+	`w3m-process-start'.
+	(w3m-w3m-get-header): Ditto.
+	(w3m-w3m-dump-head-source): Ditto.
+
+	* w3m-image.el (w3m-imagick-convert-async-exec): Abolished.
+	(w3m-imagick-start): Removed.
+	(w3m-imagick-start-convert-buffer): Call `w3m-process-start' instead of
+	the above function.
+
+	* w3m-proc.el (w3m-process-push): Accept `command' argument.
+	(w3m-process-start): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-head-source): Do not display the help message
+	when `w3m-process-with-wait-handler' is evaluated.
+	(w3m-make-separator): New function.
+	(w3m-about-header): Use the above function.
+
+	* w3m-proc.el (w3m-process-waited): New variable.
+	(w3m-process-error-handler): New function.
+	(w3m-process-with-wait-handler): Wrap the critical part with
+	`condition-case' to clean running processes up when `quit' signal is
+	occured.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-head-source): Display the message which
+	describes how to stop asynchronous process.
+	(w3m-lynx-like-map): Changed the key binded to `w3m-process-stop' from
+	`C-c C-g' to `C-c C-k'.
+	(w3m-info-like-map): Ditto.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* README.shimbun.ja: Add notice that f1express requires Mule-UCS.
+
+	* README.shimbun.ja: Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Simplify the code.
+	(w3m-resize-inline-image-internal): Remove an existing bitmap image
+	first.
+
+	* w3m-bitmap.el (w3m-bitmap-image-insert): Replace
+	`insert-before-markers' with `insert' (return to the state before
+	2002-04-15).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-create-resized-image): Return nil when resizing is
+	failed; set buffer multibyte before converting xbm to bitmap.
+
+	* w3m-xmas.el (w3m-create-resized-image): Return nil when resizing is
+	failed.
+
+	* w3m-image.el (w3m-resize-image-by-rate): Undo last change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-create-resized-image): New function.
+
+	* w3m-e19.el (w3m-create-resized-image): Alias to `ignore'.
+	* w3m-e20.el (w3m-create-resized-image): Alias to `ignore' if the
+	BITMAP-MULE is not available.
+	* w3m-om.el (w3m-create-resized-image): Ditto.
+
+	* w3m-image (w3m-resize-image-by-rate): Limit the minimum scale.
+
+	* w3m.el (w3m-resize-inline-image-internal): Remove an existing image
+	only for XEmacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-resized-image): New function.
+
+	* w3m.el (w3m-resize-inline-image-internal): Remove an existing image
+	before resizing.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-favicon-type): New user variable.
+	(w3m-setup-favicon): Check `w3m-favicon-type'.
+	(w3m-buffer-favicon): Convert image to `w3m-favicon-type' instead of
+	'xpm.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-server-regexp): Fix the value; translate
+	the comment into English.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Bind key M-] to `w3m-zoom-in-image'; bind
+	key M-[ to `w3m-zoom-out-image'.
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Document those new keys.
+
[phone]  KURODA Chihiro  <[e-mail]>
+
+	* w3m.el (w3m-resize-image-scale): New user option.
+	(w3m-toggle-inline-image): Call `w3m-zoom-in-image' without resizing.
+	(w3m-resize-inline-image-internal): New inline function.
+	(w3m-zoom-in-image): New command.
+	(w3m-zoom-out-image): New command.
+
+	* w3m-util.el (w3m-image-scale): New macro.
+
+	* w3m-image.el (w3m-resize-image-by-rate): New function.
+
+	* w3m-e21.el (w3m-create-resized-image): New function.
+
[phone]  Kahlil HODGSON  <[e-mail]>
+
+	* w3m.el (ffap-url-regexp): Make sure it is non-nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	Follow the change in Gnus.
+
+	* mime-w3m.el (mime-w3m-mode-ignored-keys): New variable.
+	(mime-w3m-setup): Use it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Unbind the key "N" to the command
+	`w3m-namazu' in order to avoid binding collision to
+	`w3m-view-next-page'.  Thanks to Satoshi TAOKA for his report.
+	(w3m-mode): Fix its docstring for `w3m-antenna-add-current-url'.
+	Thanks to Satoshi TAOKA and Yoichi NAKAYAMA for the advice.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Ignore byte-compile warnings for the dummy autoloads,
+	mis-judging of cl run-time functions and the obsoleteness of
+	`make-local-hook' under Emacs CVS.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Do not compile `mew-shimbun.el'
+	with old Mew.
+
+	* mew-w3m.el (top): Avoid byte-compile error and warning for old
+	Mew. Do not push 'mew-w3m-cid-retrieve' for old Mew.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-arrived-setup): Use 0 instead of nil as the initial value
+	for the new obarray.
+
+	* w3m-filter.el (w3m-filter-setup): Use 0 instead of nil as the initial
+	value for the new obarray.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-mode): Fix typo in its docstring.
+
[phone]  Kahlil HODGSON  <[e-mail]>
+
+	* w3m.el (w3m-fontify-bold): Permit class attributes, newlines or
+	whitespaces in the tag.
+	(w3m-fontify-underline): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-treat-drive-letter): New constant.
+	(w3m-url-to-file-name): Check `w3m-treat-drive-letter'.
+
+	* w3m-dtree.el (w3m-dtree-directory-name): Check
+	`w3m-treat-drive-letter'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-rules): Add 'assahi shimbun' rule.
+	(w3m-filter-asahi-shimbun): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-setup): Check new entries registered in
+	`w3m-antenna-sites'.
+	(w3m-antenna-shutdown): Return the value of `w3m-antenna-alist'.
+	(w3m-antenna-check-all-sites): Simplified.
+	(w3m-about-antenna): Do not call `w3m-antenna-setup'.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3.2 from emacs-w3m-1_3 branch.
+
+	* w3m.el (w3m-init-file): Changed its default value.
+
+	* Makefile.in (PACKAGE): Use `emacs-w3m' instead of `w3m_el'.
+
+	* w3m-antenna.el (w3m-antenna-make-summary-function): Use
+	`function-item' instead of `const'.
+	(w3m-antenna-sort-changed-sites-function): Ditto.
+	(w3m-antenna-sort-unchanged-sites-function): Ditto.
+	(w3m-antenna-hns-last-modified): Asynchronized.
+	(w3m-antenna-last-modified): Removed.
+	(w3m-antenna-check-site): New function
+	(w3m-antenna-check-site-after): New function.
+	(w3m-antenna-check-sites): Removed.
+	(w3m-antenna-check-all-sites): New function.
+	(w3m-about-antenna): Asynchronized.
+	(w3m-about-antenna-edit): Reset post-data after its content is
+	displayed.
+	(w3m-antenna-edit-reset-post-data): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-init-file): Changed its default value.
+	(toplevel): When Emacs is running without interactive terminal, do not
+	load the startup file and do not evaluate `w3m-load-hook'.  Load a byte
+	compiled startup file safely.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-mailto-url-popup-function-alist): New user option.
+	(w3m-view-this-url-1): Don't save a window configuration for mailto
+	urls here.
+	(w3m-goto-mailto-url): Save a window configuration while composing a
+	mail message; popup a mail window if the major-mode of a mail buffer
+	matches to `w3m-mailto-url-popup-function-alist'.
+
[phone]  Andrew M. Scott  <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-default-area): Fix typo in its docstring.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Provide the feature `w3m' before loading an init file or
+	evaluating `w3m-load-hook'.  Suggested by Seiichi NAMBA
+	<[e-mail]>.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-init-file, w3m-load-hook): New option.
+	(toplevel): Load `w3m-init-file' and run `w3m-load-hook'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el: Require `custom' for Emacs 19 because of the function
+	`custom-initialize-set'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Clean up hook options.
+	(toplevel): Define the dummy function of `w3m-update-tab-line'.
+	(w3m-mode-hook, w3m-fontify-after-hook, w3m-select-buffer-hook): Clean
+	up its default value to nil.
+	(w3m-display-hook, w3m-delete-buffer-hook): Minimize its default value
+	and use `w3m-custom-hook-initialize' as the initialize function.
+	(w3m-arrived-setup-hook, w3m-arrived-shutdown-hook): Abolished.
+	(w3m-arrived-setup-functions, w3m-arrived-shutdown-functions,
+	w3m-mode-setup-functions, w3m-display-functions): New interanal
+	variables.
+	(w3m-arrived-setup): Refer `w3m-arrived-setup-functions' instead of
+	`w3m-arrived-setup-hook'.
+	(w3m-arrived-shutdown): Refer `w3m-arrived-shutdown-functions' instead
+	of `w3m-arrived-shutdown-hook'.
+	(w3m-fontify): Call `w3m-header-line-insert' by itself.
+	(w3m-next-buffer, w3m-delete-buffer, w3m-delete-other-buffers): Call
+	`w3m-select-buffer-update' by itself.
+	(w3m-clean-hook-options): New function.
+	(w3m-mode): Call `w3m-clean-hook-options', and run functions registered
+	to `w3m-mode-setup-functions'.
+	(w3m-goto-url): Call `w3m-select-buffer-update' by itself, and Run
+	functions registered to `w3m-display-functions'.
+	(w3m-select-buffer-update): Call `w3m-update-tab-line'.
+
+	* w3m-util.el (w3m-custom-hook-initialize): New function.
+
+	* w3m-xmas.el: Cancel the last change and refer `w3m-display-functions'
+	instead of `w3m-display-hook'.
+
+	* w3m-e21.el (toplevel): Add `w3m-setup-favicon' to
+	`w3m-display-functions', `w3m-favicon-load-cache-file' to
+	`w3m-arrived-setup-functions', `w3m-favicon-save-cache-file' to
+	`w3m-arrived-shutdown-functions', and add `w3m-setup-header-line' and
+	`w3m-setup-widget-faces' to `w3m-mode-setup-functions'
+
+	* w3mhack.el (w3mhack-load-path) [Mule]: Add the path of bitmap.el to
+	`load-path'.
+
+	* w3m.el (w3m-select-buffer-hook): Renamed from
+	`w3m-change-buffer-hook'.
+	(w3m-next-buffer): Accept a numerical argument.
+	(w3m-previous-buffer): Accept a numerical argument, and call
+	`w3m-next-buffer'.
+	(w3m-delete-buffer): Call `w3m-next-buffer' instead of
+	`w3m-previous-buffer'.
+
+	* w3m.el (w3m-delete-buffer-hook): Change its default value.
+	(w3m-change-buffer-hook): New option.
+	(w3m-delete-other-buffers-hook, w3m-previous-buffer-hook,
+	w3m-next-buffer-hook): Abolished.
+	(w3m-next-buffer): Run `w3m-change-buffer-hook' instead of
+	`w3m-next-buffer-hook'.
+	(w3m-previous-buffer): Run `w3m-change-buffer-hook' instead of
+	`w3m-previous-buffer-hook'.
+	(w3m-delete-buffer): Not call `w3m-select-buffer-update', which is
+	added to `w3m-delete-buffer-hook'.
+	(w3m-delete-other-buffers): Likewise.  Run `w3m-delete-buffer-hook'
+	instead of `w3m-delete-other-buffers-hook'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (toplevel): Remove expressions to register hook functions to
+	`w3m-delete-buffer-hook', `w3m-delete-other-buffers-hook',
+	`w3m-display-hook', and `w3m-fontify-after-hook'.
+	(w3m-mode-hook, w3m-fontify-after-hookk, w3m-display-hook,
+	w3m-arrived-setup-hook, w3m-arrived-shutdown-hook,
+	w3m-delete-buffer-hook, w3m-delete-other-buffers-hook,
+	w3m-previous-buffer-hook, w3m-next-buffer-hook): Changed their default
+	values to avoid inconsistency of their customize.
+	(w3m-toolbar): Fix its help messages.
+	(w3m-arrived-file, w3m-keep-arrived-urls, w3m-db-history-display-size):
+	Fix their docstrings.
+	(w3m-history): Moved to avoid a byte compile warning.
+
+	* w3m-xmas.el (toplevel): Remove an expression to register
+	`w3m-xmas-update-tab-in-gutter' to `w3m-display-hook'.
+	(w3m-xmas-show-current-title-in-buffer-tab): Remove expressions to
+	handle `w3m-display-hook' from the form to change its value.
+
+	* w3m-e21.el (toplevel): Remove expressions to register hook functions
+	to `w3m-display-hook', `w3m-arrived-setup-hook',
+	`w3m-arrived-shutdown-hook', `w3m-mode-hook', `w3m-fontify-after-hook',
+	`w3m-next-buffer-hook', `w3m-previous-buffer-hook',
+	`w3m-delete-buffer-hook' and `w3m-delete-other-buffers-hook'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-delete-buffer-hook): New hook.
+	(w3m-other-delete-buffers-hook): Ditto.
+	(w3m-previous-buffer-hook): Ditto.
+	(w3m-next-buffer-hook): Ditto.
+	(w3m-view-this-url-new-session-in-background): Fixed docstring.
+	(w3m-next-buffer): Run `w3m-next-buffer-hook'.
+	(w3m-previous-buffer): Run `w3m-previous-buffer-hook'.
+	(w3m-delete-buffer): Run `w3m-delete-buffer-hook'.
+	(w3m-delete-other-buffers): Run `w3m-delete-other-buffers-hook'.
+	(w3m-pack-buffer-numbers): New function.
+	(w3m-delete-buffer-hook): Add `w3m-pack-buffer-numbers'.
+	(w3m-delete-other-buffer-hook): Add `w3m-pack-buffer-numbers'.
+
+	* w3m-util.el (w3m-buffer-number): New inline function.
+	(w3m-buffer-set-number): Ditto.
+
+	* w3m-e21.el (w3m-update-tab-line): New function.
+	(w3m-mode-hook): Add `w3m-update-tab-line'.
+	(w3m-fontify-after-hook): Ditto.
+	(w3m-previous-buffer-hook): Ditto.
+	(w3m-next-buffer-hook): Ditto.
+	(w3m-delete-buffer-hook): Ditto.
+	(w3m-delete-other-buffers-hook): Ditto.
+	(w3m-tab-width): Changed default value to 16.
+	(w3m-tab-line): Calculate tab width dynamically.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-output-coding-system, w3m-halfdump-command-arguments):
+	Use 'utf-8 when `w3m-m17n' with Mule-UCS environment.
+	(w3m-charset-coding-system-alist): Add Windows Code Point.
+	(w3m-current-content-charset): New buffer-local variable.
+	(w3m-clear-local-variables, w3m-copy-local-variables): Handle it.
+	(w3m-decode-buffer): Set `w3m-current-content-charset'.
+	(w3m-rendering-half-dump): Use `w3m-current-content-charset' when
+	`w3m-m17n' or `w3mmee'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Change the key `C-c w' to `C-c M-w' for
+	the command `w3m-delete-other-buffers'.
+	(w3m-info-like-map): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (emacs-w3m-version): Reset for development series toward
+	emacs-w3m-1.4.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-history): Call `w3m-db-history' instead of goto
+	`about://db-history/'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-delete-other-buffers): New user command.
+	(w3m-lynx-like-map): Bind the key `C-c w' to the command
+	`w3m-delete-other-buffers'.
+	(w3m-info-like-map): Ditto.
+	(w3m-select-buffer-mode-map): Bind the key to the command
+	`w3m-select-buffer-delete-other-buffers'.
+	(w3m-select-buffer-delete-other-buffers): New user command.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-check-header-tags): Ignore case of tags.
+	(w3m-about-db-history): Accept range specification in URL.
+	(w3m-db-history-display-size): New option.
+	(w3m-db-history): Refer it.
+
+	* w3m-antenna.el (w3m-antenna-html-skeleton): Add link to
+	about://antenna-edit/.
+	(w3m-about-antenna-edit): New function.  This is an experimental
+	imprement of the editor for Antenna sites.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (char-after): Byte-optimize it for old Emacsen.
+	(char-before): Ditto.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url-new-session-in-background): New user
+	option.
+	(w3m-view-this-url-1): Use it; enclose `w3m-goto-url' with
+	`save-window-excursion'.
+
+	* w3m-form.el (w3m-form-resume): Confirm `value' for text form is a
+	string.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (ffap-url-regexp): Fix last change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (ffap-url-regexp): Modify the value to make it match to nntp
+	urls.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (very-slow): New rule.
+
+	* attic/addpath.el: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el: Require `cl' when compiling to provide the function
+	`gensym'.  It is needed to byte-compile this file alone because of the
+	w3m-proc macros.
+	* w3m-image.el: Ditto.
+	* w3m-bitmap.el: Don't bother to load cl-macs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-display-message-enable-logging): New variable.
+	(w3m-display-message): Use it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve-1): Do not make error but return nil, even
+	if decoding is failed.
+
[phone]  Nishimoto Masaki  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-with-environment): Copy
+	`process-environment' before `getenv' is called, in order to avoid
+	putting side effects to environment variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-ucs-to-char): Return char for tilde by default.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3.1 from emacs-w3m-1_3 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (toplevel): Bind `mime-preview-condition' to avoid
+	byte-compile warnings.
+	(mime-w3m-insinuate): Install code to overwrite
+	`mime-preview-condition' which is already initialized before this
+	functions is called.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-image-viewer): New option.
+	(w3m-content-type-alist): Refer it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decoder-alist): Don't examine the existence of w3m
+	command when compiling.
+	(w3m-dirlist-cgi-program): Ditto.
+
[phone]  Hironori FUJII  <[e-mail]>
+
+	* w3m.el (w3m-highlight-current-anchor): Don't infloop at the beginning
+	of a buffer.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-perldoc.el (w3m-about-perldoc): Install workaround to specify the
+	place in which pod2html generates its cache files.  Adjust links
+	pointing other perldocs.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-mode): Make `list-buffers-directory' to buffer local
+	variable.
+	(w3m-goto-url): Set title of the URL to `list-buffers-directory'.
+
+	* w3m-tabmenu.el (w3m-switch-buffer): Bind `completion-ignore-case' to
+	`t'.
+
[phone]  OKAZAKI Tetsurou  <[e-mail]>
+
+	* configure.in: Use `AC_PATH_EMACS' instead of `AC_CHECK_EMACS'.
+
+	* aclocal.m4 (AC_PATH_EMACS): New macro.
+	(AC_CHECK_EMACS): Removed.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.3 from emacs-w3m-1_3 branch.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (byte-optimize-form-code-walker): Advise to make it
+	optimize throughout the and/or forms.
+	(max-specpdl-size): Increase the value by 5 times for Mule 2.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-accept-japanese-characters): Don't call the external
+	command when compiling.
+	(examining the value for `w3m-command'): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Use the key `(control space)' instead of
+	`C- ' for the command `w3m-history-store-position' under XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-nonunix-lispdir): New option.
+	(w3mhack-nonunix-icondir): Ditto.
+	(w3mhack-nonunix-dryrun): Ditto.
+	(w3mhack-nonunix-install): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (DOCS): Add `TIPS'.
+
[phone]  Ando Tsutomu  <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-completion-table): Fix typo.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-info-like-map): Remove redundant code.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Put `w3m-name-anchor' property to
+	point-max().
+	(w3m-fontify): Remove `w3m-name-anchor' handling.
+	(w3m-search-name-anchor): Move in the screen.
+
[phone]  Tadashi Watanabe  <[e-mail]>
+
+	* w3m.el (w3m-info-like-map): Don't use FSF Emacs style key format for
+	XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (toplevel): Stricten the pattern to detect w3m version.
+	(w3m-info-like-map): Changed key bindings of `w3m-shift-left' and
+	`w3m-shift-right'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-ange-ftp): Chenged its default value to nil.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve-1): Specify -no-cookie option only when the
+	w3m command is configured to accept it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-type-filter-alist): Fixed parenthesis.
+	(octet-filter-call1, octet-filter-call2, octet-filter-call2-extra):
+	Enclose call-process with as-binary-process.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* octet.el (octet-find-file): Bind `buffer-read-only', only while
+	calling `octet-buffer'.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.8 from emacs-w3m-1_2 branch.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el: Require `w3m-e19' for Emacs 19 to be able to compile this
+	module alone.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el (w3m-search): Don't extract a default word from the
+	header line.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-header-line-insert): Use the property `keymap' instead of
+	`local-map' for the recent Emacsen; add a help echo; fix a typo.
+
+	* w3m-xmas.el (w3m-setup-header-line): Remove.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e19.el: Remove many emulating functions on the condition that
+	APEL should be used; require `cl' only when compiling; require
+	`pcustom' instead of `custom'.
+	(compose-mail): New function.
+	(read-passwd): Autoload "ange-ftp".
+
+	* w3m-proc.el (read-passwd): Autoload "w3m-e19" for Emacs 19.
+
+	* w3m-util.el (cancel-timer): Autoload "timer" for not only Mule 2 but
+	also Emacs 19.
+
+	* w3m.el: Require `w3m-e19' for Emacs 19.
+
+	* w3mhack.el (w3mhack-emacs-major-version): New constant.
+	(TopLevel): Silence the byte-compiler for not only Mule 2 but also
+	Emacs 19.
+	(w3mhack-mdelete): New function.
+	(w3mhack-examine-modules): Use it to make the code simple.
+	(w3mhack-generate-colon-keywords-file): Be sure to go to the beginning
+	of each file before looking for colon keywords (I noticed that
+	`insert-file-contents' doesn't always position point to the top).
+
+	* README.ja: Update for the use of Emacs 19.
+
[phone]  Kevin Rodgers  <[e-mail]>
+
+	NOTE: The following changes have been posted to the emacs-w3m
+	mailing list, they were not installed in the CVS repository at the
+	time.  The original article has been archived in:
+
+	http://emacs-w3m.namazu.org/ml/msg03472.html
+
+	* w3m-e19.el: New file.
+
+	* w3m.el: Require `w3m-e19' for Emacs 19.
+	(w3m-key-binding): Replace the widget `other' with `const'.
+
+	* w3mhack.el (w3mhack-examine-modules): Include w3m-e19.el in the
+	listing for Emacs 19.
+
+	* README: Update for the use of Emacs 19.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-prepare-content): When cdr of
+	`w3m-content-prepare-functions' element is not function, call
+	`w3m-prepare-content' recursively.
+	(w3m-content-prepare-functions): Add "application/xhtml+xml" entry.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-uri-replace-alist): New user option.
+	(w3m-uri-replace): New function.
+	(w3m-goto-url): Call `w3m-uri-replace'.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-e21.el (w3m-ucs-to-char): Don't define it when already defined.
+
+	* w3m-xmas.el (w3m-ucs-to-char): Ditto.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.7 from emacs-w3m-1_2 branch.
+
+	* w3m-weather.el: Require CL when this module is byte-compiled.
+	(w3m-weather-completion-table): Fix typos, which are noticed by Ando
+	Tsutomu <[e-mail]> in [emacs-w3m:03487].
+
[phone]  Mito <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-completion-table): Fix "niigata-kaetsu".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-make-ccl-coding-system): Make it recallable for the
+	existing coding-systems (we can now reload w3m.elc under XEmacs 21.5-b6
+	and later).
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve-1): Don't decode the contents when redirect.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (define-ccl-program): Remove advice when non-MULE.  It
+	might be specified by pccl.elc if it has been mis-compiled for XEmacs
+	with MULE.
+
+	* w3m.el (w3m-delete-frame-maybe): Don't delete the current frame if it
+	is the sole frame in the screen.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (unicode-to-char): Shut XEmacs 21.5-b5 and earlier up
+	when compiling.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-e21.el (w3m-ucs-to-char): New function.
+
+	* w3m-xmas.el (w3m-ucs-to-char): New function for XEmacs-21.5.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (tarball): Chmod 755 configure.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-auto-show): Check multiple command like a
+	`previous|next-line' or `beginning|end-of-buffer' at the buffer's edge.
+	(w3m-window-hscroll): New function to rescue for XEmacs with Mule.
+	(w3m-current-column, w3m-set-window-hscroll): Chenge method of the
+	calculation point.  the difference points.
+	(w3m-horizontal-scroll, w3m-horizontal-on-screen)
+	(w3m-horizontal-recenter): Use `w3m-window-hscroll'.
+	(w3m-redisplay-this-page): Don't handle store|restore position.
+	(w3m-goto-url): If reload or redisplay, restore position of history.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-after-cursor-move-hook): Add `w3m-auto-show'.
+	(w3m-auto-show, w3m-horizontal-scroll-division): New options.
+	(w3m-next-anchor, w3m-previous-anchor, w3m-next-form)
+	(w3m-previous-form, w3m-next-image, w3m-previous-image): Call
+	`w3m-horizontal-on-screen'.
+	(w3m-mode): Bind many variables for automatic scrolling when
+	`w3m-auto-show' is non-nil.
+	(w3m-scroll-left, w3m-scroll-right, w3m-shift-left)
+	(w3m-shift-right): Call `w3m-horizontal-scroll'.
+	(w3m-horizontal-scroll-done): New buffer local variable.
+	(w3m-current-position): Modify initial value.
+	(w3m-auto-show, w3m-horizontal-scroll, w3m-horizontal-on-screen): New
+	functions.
+	(w3m-horizontal-recenter, w3m-beginning-of-line)
+	(w3m-end-of-line): Use `w3m-set-window-hscroll' and
+	`w3m-current-column'.
+	(w3m-store-current-position): Set markers of beginning of line and end
+	of line.
+	(w3m-check-current-position): Check car of `w3m-current-position'.
+	(w3m-current-column, w3m-set-window-hscroll): New functions to rescue
+	for XEmacs with Mule.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-replace): Don't pad the form slot with spaces
+	if a string is longer than that width.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-arrived-p): Move its definition in order to avoid
+	byte-compile warning.
+
+	* Makefile.in (default, what-where): Change order.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Modify the error message that XEmacs APEL package
+	versions 1.23 and later can barely be used to run emacs-w3m.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-mode): Suppress compile warning under old Emacsen.
+
+	* Makefile.in (what-where): New rule.
+
+	* w3mhack.el (w3mhack-what-where): New function.
+	(locate-library): Make the function silent for Mule first.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-horizontal-shift-columns): New user option.
+	(w3m-shift-left, w3m-shift-right): New commands.
+	(w3m-lynx-like-map, w3m-info-like-map): Add keybind `w3m-shift-left'
+	and `w3m-shift-right'.
+	(w3m-mode): Modify doc-string for new commands. Bind `auto-show-mode'
+	to nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-add-arrived-db): Force update the page.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug-system-informations): Don't include
+	useless infos; eval the value for each time to load it.
+	(report-emacs-w3m-bug): Bind `print-length' and `print-level' with nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-menubar): Modify the label for report-emacs-w3m-bug.
+	(w3m-lynx-like-map): Replace the key `C-c C-b' with `C-c C-v' for
+	`w3m-history-restore-position'; replace the key `C-c b' with `C-c C-b'
+	for `report-emacs-w3m-bug'.
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Add a document for `report-emacs-w3m-bug'.
+
+	* w3mhack.el: Check for the validity on APEL also for XEmacs with MULE.
+
+	* w3m-bug.el (report-emacs-w3m-bug-system-informations): Add
+	(featurep 'mule) and (featurep 'file-coding).
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-download): Modify string of the prompt.
+	(w3m-prepare-content): Add 5th optional argument `retry'. If not
+	determine content-type, ask its.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug): Bind `after-load-alist' to nil
+	while loading the file itself; examine system info in the `w3m-mode'
+	buffer.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-bug.el (report-emacs-w3m-bug-system-informations): Add
+	`mule-version' and `Meadow-version'.
+	(report-emacs-w3m-bug): Fix when info is a function.
+
+	* w3m.el (w3m-menubar): Add many functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bug.el: New file.
+
+	* w3m.el: Autoload "w3m-bug" for `report-emacs-w3m-bug'.
+	(w3m-lynx-like-map): Bind `report-emacs-w3m-bug' to C-cb.<
+	(w3m-info-like-map): Ditto.
+
+	* w3m-om.el (compose-mail): New function.
+
+	* w3mhack.el: Check for the validity on APEL.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-arrived-modify): New function.
+	(w3m-local-attributes): If set Content-type in arrived DB, return it.
+	(w3m-redisplay-this-page, w3m-redisplay-and-reset)
+	(w3m-redisplay-with-content-type): New commands.
+	(w3m-redisplay-with-charset): Use `w3m-arrived-modify'.
+	(w3m-lynx-like-map): Bind all new commands and modify bind for
+	`w3m-redisplay-with-charset'.
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Document them.
+	(w3m-goto-url): If reload is 'redisplay, do redisplay only. Modify
+	content-type decided method at local URL.
+	(w3m-about-header): Display `Modifer Information'.
+	(w3m-header-line-insert): Display modifers when type are setting.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-horizontal-recenter): New command.
+	(w3m-beginning-of-line): New command.
+	(w3m-end-of-line): New command.
+	(w3m-lynx-like-map): Bind them.
+	(w3m-info-like-map): Bind them.
+	(w3m-mode): Document them.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-face-inherit): Default to t.
+
+	* w3m-om.el (w3m-om-use-overstrike-to-make-face-bold): New var.
+	(custom-declare-face): Advise it to use `set-face-bold-p' to make faces
+	bold by overstriking.
+
+	* w3m-util.el (w3m-default-face-colors): New constant.
+	* w3m.el (w3m-bold-face, w3m-underline-face): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-insert): Don't put the transparent
+	face except for Emacs 20.
+
+	* w3m.el (w3m-key-binding): Don't manipulate key bindings if w3m.elc
+	has not been loaded (it will fix the problem that the face colors might
+	not be specified under Mule 2).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-transparent-face): Remove.
+	(w3m-bitmap-image-insert): Use the list form instead of
+	`w3m-bitmap-transparent-face' to make the overlay transparent.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-convert-arguments)
+	(w3m-bitmap-image-face-inherit): New customize values.
+	(w3m-create-image): Append argument `w3m-bitmap-convert-arguments' when
+	call `w3m-imagick-start-convert-buffer'.
+	(w3m-insert-image): If `w3m-bitmap-image-face-inherit' is non-nil,
+	inherit the face of bitmap image from the face of text at point.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (distclean): Remove autom4te*.cache rather than
+	autom4te.cache.
+
+	* w3m-bitmap.el (w3m-bitmap-transparent-face): New face.
+	(w3m-bitmap-image-insert): Put `w3m-bitmap-transparent-face' to
+	overlays; don't use overlays to highlight bitmap images.
+	(w3m-insert-image): Add `w3m-bitmap-image-face' to a bitmap image as a
+	text property.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Call `w3m-insert-image'
+	with the url of image.
+
+	* w3m-xmas.el (w3m-insert-image): Add dummy argument.
+
+	* w3m-e21.el (w3m-insert-image): Add dummy argument.
+
+	* w3m-bitmap.el (w3m-bitmap-cache-image-hook): New hook.
+	(w3m-create-image): Run `w3m-bitmap-cache-image-hook' with `url' when
+	use the cached image.
+	(w3m-insert-image): Add 4th argument `url'. Do nothing which have no
+	'w3m-image property or differ its url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	Make emacs-w3m can be compiled by `make slow' with no warnings.
+	* Makefile.in (slow): Don't echo the values for EMACS and FLAGS.
+	* octet.el: Require `w3m-util' for `w3m-insert-string'.
+	* w3m-bitmap.el: Autoload w3m-om for `move-to-column-force'.
+	* w3m-hist.el: Load w3m-kwds.el for old Emacsen.
+	* w3m-image.el: Require `pcustom' for old Emacsen; bind some external
+	vars when compiling.
+	* w3m.el: Enclose the definitions for `w3m-current-title' and
+	`w3m-current-url' with `eval-and-compile', and move them forward.
+	(w3m-url-at-point): Enclose with `eval-and-compile'.
+	(w3m-add-local-hook): Ditto.
+	(w3m-about-retrieve): Call `base64-decode-string' indirectly to avoid
+	compile warn under old Emacsen.
+
+	* w3m-util.el (w3m-insert-string): Fix doc-string.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-region): Call `w3m-process-stop' first.
+
+	* mew-w3m.el (mew-w3m-view-inline-image): Toggle
+	`mew-w3m-auto-insert-image'.
+	(mew-w3m-cid-retrieve-hook): New customize hook.
+	(mew-w3m-cid-retrieve): Run `mew-w3m-cid-retrieve-hook'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-insert-string): Prevent doubling expansion on the
+	arg.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-cid-retrieve): Use `w3m-insert-string' instead
+	of `insert' to prevent multibyte/unibyte problems.
+	* octet.el (mime-preview-octet, mime-view-octet): Ditto.
+
+	* w3m-util.el (w3m-insert-string): Moved from shimbun/shimbun.el.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Set type to downcase.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-header): Don't use `make-string' to make a
+	separator text under Mule.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Support w3m-bitmap.el when
+	retrieve `cid image' (Mew cache has multibyte strings, but work buffer
+	is unibyte).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (TopLevel): Not to get the byte-code for `current-column'
+	inlined under old Emacsen.
+
+	* w3m-bitmap.el (w3m-bitmap-emacs-broken-p): Use
+	`ad-Orig-current-column' rather than `current-column' if it has already
+	been defined.
+	(TopLevel): Not to get the byte-code for `current-column' inlined under
+	the broken Emacsen in case when compiling manually.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (TopLevel) Require `cl' and possibly load cl-macs.  The
+	following changes are for old Emacsen.
+	(w3m-bitmap-emacs-broken-p): New constant.
+	(TopLevel): Warn if Emacs has a bug on managing column numbers.
+	(w3m-bitmap-move-to-column): Allow the 3rd arg `strictly'; don't modify
+	the buffer contents unless the 3rd arg has been set.
+	(w3m-bitmap-defadvice-if-broken): New macro; use it to advise the
+	functions `current-column', `move-to-column', `move-to-column-force',
+	`next-line' and `previous-line' to work under the broken Emacsen.
+	(w3m-bitmap-byte-indexed-characters-p): Remove.
+	(TopLevel): Don't alias `w3m-bitmap-current-column' to
+	`current-column'; don't alias `w3m-bitmap-move-to-column-force' to
+	`move-to-column-force'.
+	(w3m-bitmap-substitute-key-definitions): Remove.
+	(w3m-bitmap-image-insert): Replace `w3m-bitmap-current-column' with
+	`current-column'; replace `w3m-bitmap-move-to-column-force' with
+	`move-to-column-force'.
+	(w3m-bitmap-image-delete-internal): Ditto.
+
+	* w3m-om.el (move-to-column-force): New function using
+	`move-to-column-strictly'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-next-line): Handle `temporary-goal-column'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-arguments): Fix last change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-byte-indexed-characters-p): New macro.  The
+	following changes are for old Emacsen.
+	(w3m-bitmap-move-to-column): New function.
+	(w3m-bitmap-move-to-column-force): Use it.
+	(w3m-bitmap-next-line): New command.
+	(w3m-bitmap-previous-line): New command.
+	(w3m-bitmap-substitute-key-definitions): New function; add it to
+	`w3m-mode-hook' as the one-shot function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-arguments): Add `-I e' option to w3m
+	under Japanese environment.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-cid-retrieve): Use `mime-decode-string',
+	`mime-entity-body' and `mime-entity-encoding' instead of
+	`mime-insert-entity-content' to make it work even if the entity buffer
+	is multibyte.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-check-header-tags): Renamed from w3m-check-link-tags.
+	(w3m-check-header-tags): Parse base tag too.
+	(w3m-rendering-buffer-1): Use it.
+	(w3m-prepare-text-content): Don't use w3m-base-url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-insert): Replace `insert' with
+	`insert-before-markers'.
+	(w3m-bitmap-image-delete-internal): Delete trailing newlines.
+	(w3m-insert-image): Don't check for the existence of an image.
+
+	* w3m.el (w3m-history-current-url-face): Provide `font' temporally to
+	avoid loading it and `cl'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-get-overlay): Don't clear the
+	`evaorate' property here.
+	(w3m-bitmap-image-insert-internal): Rename to
+	`w3m-bitmap-image-insert'; change the meaning of the 2nd arg `image'
+	(see docs); allow the optional arg `ovr'; don't scan for an overlay
+	here; handle `w3m-bitmap-image-count'; use overlays to highlight bitmap
+	images.
+	(w3m-bitmap-image-insert): Remove old one.
+	(w3m-bitmap-image-delete-internal): Allow the 2nd arg `ovr'; don't scan
+	for an overlay here; clear the `evaorate' property here.
+	(w3m-bitmap-image-delete): Allow the 2nd arg `ovr'; don't scan for an
+	overlay here; don't delete an overlay.
+	(w3m-bitmap-image-delete-string): Remove.
+	(w3m-insert-image): Scan for an overlay here; don't use text props to
+	highlight bitmap images.
+	(w3m-remove-image): Scan for an overlay here.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-cleanup): Remove.
+	(w3m-bitmap-image-get-overlay): Clear the `evaorate' property in an
+	overlay temporally.
+	(w3m-bitmap-image-insert-internal): Put the `evaorate' property in an
+	overlay; return an overlay.
+	(w3m-bitmap-image-insert): Use the return value of
+	`w3m-bitmap-image-insert-internal' instead of to call
+	`w3m-bitmap-image-get-overlay'.
+	(w3m-bitmap-image-insert-string): Remove.
+	(w3m-insert-image): Use `w3m-modify-plist' to cleanup plist; don't move
+	the point.
+	(w3m-remove-image): Replace `w3m-bitmap-image-insert-string' with
+	`w3m-bitmap-image-insert-internal'.
+
+	* w3m-util.el (w3m-modify-plist): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-kill-surely): New internal variable.
+	(w3m-process-kill-process): When `w3m-process-kill-surely' is non-nil,
+	wait for the completion to kill process surely.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-get-overlay): Speed up a bit.
+	(w3m-bitmap-image-insert-internal): Replace `current-column' with
+	`w3m-bitmap-current-column'; call `w3m-add-text-properties' only when
+	props are specified; use `overlay-end' dynamically (fix a bug I've
+	made); replace `move-to-column-force' with
+	`w3m-bitmap-move-to-column-force'.
+	(w3m-bitmap-image-delete-internal): Make the 2nd arg optional; replace
+	`current-column' with `w3m-bitmap-current-column'; replace
+	`move-to-column-force' with `w3m-bitmap-move-to-column-force'; guess
+	the end position of an overlay by itself when the 2nd arg is omitted.
+	(w3m-bitmap-image-delete): Remove the 2nd arg.
+	(w3m-bitmap-image-delete-string): Alias to
+	`w3m-bitmap-image-delete-internal' instead of defining as a function.
+	(w3m-insert-image): Don't use the length of a bitmap image.
+	(w3m-remove-image): Ditto.
+
+	* w3m-om.el (move-to-column-force): Remove.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-image.el (w3m-imagick-convert-async-exec): Change default value
+	for Meadow.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-favicon-converted): New buffer-local variable.
+	(w3m-setup-favicon): Set w3m-favicon-converted as nil.
+	(w3m-buffer-favicon): If w3m-favicon-converted is non-nil, don't start
+	conversion.  Set w3m-favicon-converted as t before conversion.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-retrieve): Change behavior according to whether the
+	return value of `base64-decode-string' is multibyte or not.
+
+	* w3m-image.el (w3m-imagick-convert-async-exec): New user option.
+	(w3m-imagick-start): Use `call-process' when
+	`w3m-imagick-convert-async-exec' is nil.
+	(w3m-imagick-convert-buffer): Don't use stdin because `convert' can not
+	handle an animation GIF that it input from stdin.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-create-image): Use w3m-process-do-with-temp-buffer
+	instead of w3m-process-do.
+	(w3m-create-image): Don't call `set-buffer-multibyte' if old mule.
+
+	* w3m-image.el (w3m-imagick-start-convert-buffer): Removed needless
+	`concat'.
+
+	* w3m-bitmap.el (w3m-create-image): Call
+	`w3m-imagick-start-convert-buffer' instead of
+	`w3m-imagick-convert-data'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-current-column): New function for old
+	Emacsen; alias to `current-column' for the recent Emacsen.
+	(w3m-bitmap-move-to-column-force): New function for old Emacsen; alias
+	to `move-to-column-force' for the recent Emacsen.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-image.el (w3m-imagick-convert-data): Check buffer size.
+	(w3m-imagick-start-convert-data): Ditto.
+	(w3m-imagick-start-convert-buffer): Don't use output file
+	(Because it sometimes causes multiple files).
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Reverse the turn of the load
+	with `bitmap' and `un-define'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-face): New face.
+	(w3m-bitmap-image-insert-internal): Put text properties.
+	(w3m-bitmap-image-insert): Pass text properties argument to
+	`w3m-bitmap-image-insert-internal'.
+	(w3m-bitmap-image-add-text-properties): Remove.
+	(w3m-insert-image): Pass text properties to `w3m-bitmap-image-insert'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-bitmap.el (w3m-bitmap-image-get-overlay): Use
+	`line-beginning-position' and/or `line-end-position'.
+	(w3m-bitmap-image-insert-internal): Ditto.
+	(w3m-bitmap-image-delete-internal): Ditto.
+	(w3m-bitmap-image-add-text-properties): Ditto.
+
+	* w3m-om.el: Require `w3m-bitmap' if BITMAP-MULE is available.
+	(move-to-column-force): Define it if void.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-bitmap.el: Convert CRLF to LF.
+	(w3m-display-graphic-p): Ruturn nil if no window-system.
+	(w3m-image-type-available-p): Ruturn nil if not found "convert".
+
+	* w3mhack.el (w3mhack-examine-modules): Don't byte-compile
+	w3m-bitmap.el under XEmacs or FSF Emacs-21.
+
+	* w3m.el (w3m-fontify): When delete duplicated empty line, keep
+	'w3m-name-anchor property surely.
+
+	* w3m-e20.el (top): Require 'w3m-bitmap if have BITMAP.
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Don't byte-compile
+	w3m-bitmap.el if bitmap.el is not installed.
+	(w3mhack-examine-modules): Add condition to w3m-bitmap.el check.
+
+	* w3m-bitmap.el: New file.
+
+	* w3m-e20.el (w3m-create-image, w3m-insert-image, w3m-remove-image,
+	w3m-image-type-available-p, w3m-display-graphic-p,
+	w3m-display-inline-images-p): Alias to `ignore'. Bitmap image
+	implementation is moved to w3m-bitmap.el.
+	(w3m-bitmap-image-cache-alist, w3m-bitmap-image-use-cache,
+	w3m-bitmap-image-cleanup, w3m-bitmap-image-buffer,
+	w3m-bitmap-image-get-overlay, w3m-bitmap-image-insert-internal,
+	w3m-bitmap-image-insert, w3m-bitmap-image-insert-string,
+	w3m-bitmap-image-delete-internal, w3m-bitmap-image-delete,
+	w3m-bitmap-image-delete-string, w3m-bitmap-image-add-text-properties):
+	Move to w3m-bitmap.el.
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+
+	* w3m-e20.el (w3m-create-image): Return nil if
+	w3m-imagick-convert-buffer is failed.
+	(w3m-insert-image): Not insert image if image is nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-coding-system): Change default value to
+	'iso-2022-7bit-ss2 when use w3mmee under mule environment.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-image): Resize gif images, too.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-make-glyph): Remove unused var.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-char-to-int): New alias.
+	(w3m-form-mee-attr-unquote): Use it.
+	(w3m-form-mee-new): Ditto.
+
+	* w3m-xmas.el (toplevel): Require 'w3m-image.
+	(w3m-make-glyph): New inline function.
+	(w3m-create-image): Resize images when w3m-resize-images is non-nil.
+
+	* w3m-form.el (w3m-string-to-char-list)[XEmacs]: Use string-to-list
+	instead of string-to-char-list.
+	(w3m-int-to-char): New alias.
+	(w3m-form-mee-select-value): Use it.
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+
+	* w3m-e20.el (w3m-bitmap-image-insert-internal): Begin the overlay on
+	`begion-of-line'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el: Update URL for xlhtml.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el: Don't require `pcustom'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-image.el: New file.
+
+	* w3m.el (w3m-halfdump-command-arguments): Specify single-row-image
+	dump option instead of image.
+	(w3m-goto-mailto-url): Added optional post-data argument and use it.
+	(w3m-goto-url): Set post-data of w3m-goto-mailto-url.
+
+	* w3m-util.el (w3m-imagick-convert-program, w3m-imagick-convert-buffer,
+	w3m-imagick-convert-data): Moved to w3m-image.el.
+
+	* w3m-e21.el (toplevel): Require 'w3m-image.
+	(w3m-resize-images, w3m-imagick-start-convert-data,
+	w3m-imagick-start-convert-buffer, w3m-imagick-start, w3m-resize-image):
+	Moved to w3m-image.el;
+	(w3m-create-image): Follow the change in w3m-resize-image.
+	(w3m-favicon-usable-p): Renamed from w3m-imagick-convert-usable-p.
+	(w3m-use-favicon): Follow the change above.
+	(w3m-favicon-cache-data): Fixed typo.
+	(w3m-favicon-cache-retrieved): Ditto.
+	(w3m-retrieve-favicon): Ditto.
+
+	* w3m-e20.el (w3m-image): Require 'w3m-image.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (multibyte-string-p): Alias to `stringp' if MULE,
+	otherwise `ignore'.
+
+	* w3m-om.el (multibyte-string-p): Alias to `stringp'.
+
+	* w3m-util.el: Require `pcustom' for old Emacsen.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Revert previous change.
+	(w3m-w3m-dump-head-source): Add argument orig-url; Cache header and
+	body using orig-url.
+	(w3m-w3m-retrieve): Don't cache header here; Return error response when
+	follow redirection number exceeds w3m-follow-redirection; Pass orig-url
+	to w3m-w3m-retrieve-1.
+	(w3m-w3m-retrieve-1): Add argument orig-url; Call w3m-dump-head-source
+	with orig-url argument.
+	(w3m-redirect-with-get): Changed default value to t.
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+
+	* w3m-e20.el (w3m-bitmap-image-insert): Fix (point) -> pos.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-map): If menu string is empty, use href
+	string instead.
+
+	* w3m.el (w3m-w3m-dump-head-source): Fixed caching logic.
+	(w3m-w3m-retrieve): Use cache if available after redirection.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e20.el (top): Avoid byte-compile warnings when not found
+	`bitmap'.
+	(w3m-image-type-available-p): Return nil if not have `bitmap'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Set default icon type as ico.
+
+	* w3m-e21.el (w3m-buffer-favicon): Asynchronous implementation.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3mhack.el (top): Avoid byte-compile error for `w3m-ucs.el' with
+	Emacs20 when it has `un-define' and `bitmap'.
+	(w3mhack-load-path): Add the path of `bitmap.el' on Emacs20.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-request-arguments): Use -header option if no cookie nor
+	no body.
+	(w3m-w3m-retrieve-1): Delete temp-file only when it exists.
+
+	* w3m-e21.el (w3m-imagick-start-convert-data): Don't use
+	string-as-unibyte (no use).
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images-internal): Support w3m-bitmap-image.
+
+	* w3m-e21.el (w3m-imagick-convert-program): Move to w3m-util.el.
+	(w3m-imagick-convert-buffer): Ditto.
+	(w3m-imagick-convert-data): Ditto.
+
+	* w3m-util.el (w3m-imagick-convert-program): Move from w3m-e21.el.
+	(w3m-imagick-convert-buffer): Ditto.
+	(w3m-imagick-convert-data): Ditto.
+
+	* w3m-e20.el (w3m-bitmap-image-cache-alist): New variable.
+	(w3m-bitmap-image-use-cache): Ditto.
+	(w3m-bitmap-image-cleanup): New function.
+	(w3m-bitmap-image-buffer): Ditto.
+	(w3m-bitmap-image-get-overlay): Ditto.
+	(w3m-bitmap-image-insert-internal): Ditto.
+	(w3m-bitmap-image-insert): Ditto.
+	(w3m-bitmap-image-insert-string): Ditto.
+	(w3m-bitmap-image-delete-internal): Ditto.
+	(w3m-bitmap-image-delete): Ditto.
+	(w3m-bitmap-image-delete-string): Ditto.
+	(w3m-bitmap-image-add-text-properties): Ditto.
+	(w3m-display-graphic-p): New implementation.
+	(w3m-display-inline-images-p): Ditto.
+	(w3m-image-type-available-p): Ditto.
+	(w3m-create-image): New implementation. It use w3m-bitmap-image-*.
+	(w3m-insert-image): Ditto.
+	(w3m-remove-image): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Put invisible and intangible properties at the
+	duplicated empty lines instead of delete them.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-resize-image): Asynchronous implementation.
+	(w3m-imagick-start-convert-data): New function.
+	(w3m-imagick-start-convert-buffer): Ditto.
+	(w3m-imagick-start): Ditto.
+	(w3m-create-image): Rewrite to resize images asynchronously.
+	(w3m-insert-image): Don't resize.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-check-link-tags): Relax the pattern to detect headers.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-submit): Confirm when posting from secure page
+	to normal page.
+
+	* w3m.el (w3m-redirect-with-get): New user option.
+	(w3m-w3m-retrieve): If w3m-redirect-with-get is non-nil, use GET method
+	after redirection; Ask user to use POST data after redirection.
+	(w3m-w3m-attributes): Set w3m-current-redirect as a cons cell of
+	(CODE . LOCATION).
+	(w3m-w3m-dump-head-source): Don't cache content if the response code is
+	one of 302, 303, 307.
+	(w3m-w3m-retrieve): Change POST redirection behavior according to
+	response code.
+	(w3m-retrieve-and-render): Confirm leaving secure pages.
+
+	* octet.el (mime-preview-octet): Change behavior according to whether
+	the return value of mime-entity-content is multibyte or not.
+	(mime-view-octet): Ditto.
+
+	* w3m.el (w3m-w3m-retrieve): Don't call w3m-cache-request-header when
+	type is nil.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-follow-redirection): New user option.
+	(w3m-w3m-attributes): Set w3m-current-redirect as nil.
+	(w3m-cookie-command-arguments): Abolish.
+	(w3m-request-arguments): Use cookie only when w3m-use-cookies is
+	non-nil.
+	(w3m-header-arguments): New function.
+	(w3m-w3m-retrieve): Treat redirection when w3m-follow-redirection is
+	non-nil.
+	(w3m-w3m-retrieve-1): Renamed from w3m-w3m-retrieve.
+	(w3m-prepare-content): Don't care w3m-current-redirect.
+	(w3m-goto-url): Ditto.
+
+	* w3m-form.el (w3m-form-new): Added argumnet enctype.
+	(w3m-form-enctype): New macro.
+	(w3m-form-plist): Changed definition.
+	(w3m-form-put-property): Ditto.
+	(w3m-form-make-form-data): Removed optional argument urlencode; Encode
+	form data acording to w3m-form-enctype.
+	(w3m-form-mee-new): Set enctype field.
+	(w3m-form-parse-and-fontify): Parse enctype.
+	(w3m-form-submit): Don't pass enctype argumnet.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Put a property of `w3m-name-anchor' as
+	a list.
+	(w3m-move-point-for-localcgi): Use `w3m-search-name-anchor'.
+	(w3m-search-name-anchor): Use `member' when compare a name with
+	`w3m-name-anchor'. Fix continuous name-anchor.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Use `match-string' instead of
+	`mew-match'.
+
+	* w3m.el (w3m-fontify-anchors): Modify the point for 'w3m-name-anchor
+	property when its has an empty body.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-dump-head-source-command-arguments)[w3mmee]: Don't add
+	Accept-Language header option.
+	(w3m-cookie-command-arguments)[w3mmee]: Don't add Cookie header option.
+	(w3m-request-arguments): New function to generate -request option.
+	(w3m-w3m-retrieve)[w3mmee]: Use w3m-request-arguments to make request
+	header and body.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-url-at-point (ffap)): Strip text props under XEmacs.
+	(ffap-url-regexp): Modify the value to make it match to https urls for
+	Emacs 19, 20 and XEmacs.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-drag-mouse-function): Fix problem when dragged
+	mouse position is outside of the original frame.
+
+	* w3m.el (w3m-version): New variable.
+	(toplevel): Detect w3m version.
+	(w3m-user-agent): New user option.
+	(w3m-add-user-agent): Ditto.
+	(w3m-w3m-retrieve): Add User-Agent: field if w3m-add-user-agent is
+	non-nil.
+
+	* w3m-e21.el (w3m-tab-drag-mouse-function): New function.
+	(w3m-tab-make-keymap): Add mouse-1, mouse-2, drag-mouse-1 and
+	drag-mouse-2.
+
+	* w3m-cookie.el (w3m-cookie-set): Fixed docstring.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-find-coding-system): Alias to ignore if the function
+	`find-coding-system' is not available.
+	(w3m-make-ccl-coding-system): Check whether the function
+	`make-ccl-coding-system' is available instead of checking the feature
+	`mule' to determine what function should be aliased to.
+	(coding-system-list): Alias to ignore if it is not available.
+	(define-ccl-program): Check whether it is available instead of checking
+	the feature `mule' to determine if it is aliased to `ignore'.
+	(w3m-detect-coding-with-priority): Quote `w3m-default-coding-system'.
+
[phone]  Nix  <[e-mail]>
+
+	* w3m-xmas.el (w3m-detect-coding-with-priority): New macro, handle
+	non-MULE XEmacsen.
+	(w3m-detect-coding-region): Use it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-1-set): Fixed problem when no `Expires',
+	ignore is ignored.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-url, w3m-cookie-domain, w3m-cookie-secure,
+	w3m-cookie-name, w3m-cookie-value, w3m-cookie-path, w3m-cookie-version,
+	w3m-cookie-expires, w3m-cookie-ignore): Define as macro.
+	(w3m-cookie-set-url, w3m-cookie-set-domain, w3m-cookie-set-secure,
+	w3m-cookie-set-name, w3m-cookie-set-value, w3m-cookie-set-path,
+	w3m-cookie-set-version, w3m-cookie-set-expires, w3m-cookie-set-ignore):
+	Removed.
+	(w3m-cookie-create): New implementation.
+	(w3m-about-cookie): Call `setf' instead of `w3m-cookie-set-ignore'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Changed anchor name property position.
+	(w3m-lynx-like-map): Bind w3m-cookie as `M-k'.
+	(w3m-info-like-map): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-save): Use `w3m-time-newer-p' instead of
+	`w3m-time-lapse-seconds'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie): New command.
+	(w3m-about-cookie): Do nothing if w3m-use-cookies is nil.
+
+	* w3m.el (toplevel): Added autoload setting for w3m-about-cookie; Added
+	autoload setting for w3m-cookie.
+
+	* w3m-cookie.el (w3m-cookie-store): Don't replace if ignored cookie.
+	(w3m-cookie-retrieve): Don't use cookie which is ignored.
+	(w3m-about-cookie): New function.
+
+	* w3m-e21.el (w3m-setup-favicon): Do nothing when w3m-current-url is
+	nil.
+
+	* w3m.el (w3m-goto-url): Force reload if w3m-current-redirect is set.
+	(w3m): If w3m-current-url is nil, erase buffer.
+
+	* w3m-util.el (w3m-time-less-p): Abolish.
+	(w3m-assoc-ignore-case): Moved from w3m-cookie.el and rewrote not to
+	use assoc* (because it's cl function).
+
+	* w3m-cookie.el (w3m-cookie-retrieve): Use w3m-time-newer-p instead of
+	w3m-time-less-p.
+	(w3m-cookie-1-set): Ditto.
+	(w3m-assoc-ignore-case): Moved to w3m-util.el.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-1-set): Use w3m-time-less-p instead of
+	w3m-time-lapse-seconds.
+	(w3m-cookie-retrieve): Ditto.
+
+	* w3m-util.el (w3m-time-less-p): New inline function.
+
+	* w3m.el (w3m-current-redirect): New buffer local variable.
+	(w3m-clear-local-variables): Add w3m-current-redirect.
+	(w3m-copy-local-variables): Treat w3m-current-redirect.
+	(w3m-w3m-attributes): Set w3m-current-redirect instead of
+	w3m-current-refresh when 30x response.
+	(w3m-prepare-content): Use w3m-current-redirect instead of
+	w3m-current-refresh.
+	(w3m-goto-url): Do nothing but w3m-goto-url after retrieval if
+	w3m-current-redirect is set.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-cookie.el (w3m-cookie-file): Changed default value.
+	(w3m-cookie-save): Follow the above change.
+	(w3m-cookie-load): Ditto.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Don't call w3m-cookie-set.
+	(w3m-w3m-dump-head-source): Call w3m-cookie-set.
+	(w3m-cookie-command-arguments): Set `-no-cookie'; Don't set
+	cookie_accept_domains, cookie_reject_domains.
+
+	* w3m-cookie.el (toplevel): Require 'w3m.
+	(w3m-cookie-accept-domains): Moved from w3m.el.
+	(w3m-cookie-reject-domains): Ditto.
+	(w3m-cookie-accept-bad-cookies): New user option.
+	(w3m-cookie-file): Ditto.
+	(w3m-cookie-set-ignore): Fix.
+	(w3m-cookie-retrieve): Remove expired cookies.
+	(w3m-cookie-trusted-host-p): Fixed domain match.
+	(w3m-cookie-1-set): Treat all cookies.  Accept bad cookies according to
+	w3m-cookie-accept-bad-cookies.
+	(w3m-cookie-init): New variable.
+	(w3m-cookie-clear): New function.
+	(w3m-cookie-save): Ditto.
+	(w3m-cookie-load): Ditto.
+	(w3m-cookie-setup): Ditto.
+	(w3m-cookie-shutdown): Rewrite.
+	(w3m-cookie-set): Call w3m-cookie-setup; Changed API.
+	(w3m-cookie-get): Call w3m-cookie-setup.
+
+	* w3m.el (w3m-goto-url): Don't resume form from history when POST.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-cookie.el: New file.
+
+	* w3m-form.el (w3m-form-resume): Use cdr of forms if car is t
+	(Just in case).
+	(w3m-form-parse-and-fontify)[w3m]: Search form structure according to
+	fid.
+
+	* w3m.el (toplevel): Added autoload setting for w3m-cookie.
+	(w3m-use-cookies): New user option.
+	(w3m-cookie-accept-domains): Ditto.
+	(w3m-cookie-reject-domains): Ditto.
+	(toplevel): Bind system-time-locale as "C" while calling
+	format-time-string.
+	(w3m-w3m-attributes): Call w3m-cookie-set; When 30x response is
+	received, set w3m-current-refresh as
+	(0 . Location).
+	(w3m-cookie-command-arguments): New function.
+	(w3m-w3m-retrieve): Use it.
+	(w3m-retrieve-and-render): Mark w3m-current-forms as `not history' if
+	retrieval failed.
+	(w3m-prepare-content): If w3m-current-refresh rate is 0, do nothing.
+	(w3m-quit): Call `w3m-cookie-shutdown'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-decode-encoded-contents): Convert encoding to lower case
+	before checking alist.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-remove-redundant-spaces): New implementation.
+	(w3m-about-retrieve): Call `insert-buffer-substring' instead of
+	`insert-buffer'.
+	(w3m-rendering-unibyte-buffer): Ditto.
+	(w3m-rendering-multibyte-buffer): Ditto.
+	(w3m-prepare-text-content): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Ignore trailing whitespaces in header
+	lines.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url): Eval action even when anchor is set.
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Clear mapval if it is set.
+
+	* w3m.el (w3m-halfdump-command-arguments)[w3mmee]: Add `image' to the
+	-dump argument only if `w3m-treat-image-size' is non-nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-and-fontify): If not detect `usemap'
+	attribute of `img_alt', use `value' attribute of `input_alt' for the
+	select map name; W3M removes `usemap' attribute when
+	"display_image=off".
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Ignore `w3m-document-charset' when
+	w3m-m17n.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Parse width and height attributes of
+	img_alt.
+	(w3m-toggle-inline-images-internal): Set `size' argument of
+	w3m-create-image.
+	(w3m-highlight-current-anchor): Fixed logic.
+
+	* w3m-xmas.el (w3m-create-image): Added optional argument `size'
+	(ignored currently).
+
+	* w3m-e21.el (w3m-imagick-convert-program): Use w3m-which to set
+	initial value.
+	(w3m-resize-images): New user option.
+	(w3m-resize-image): New function.
+	(w3m-create-image): Added optional argument `size'; Changed return
+	value.
+	(w3m-insert-image): Call w3m-resize-image if size is specified.
+	(w3m-imagick-convert-buffer): Accept nil for from-type and to-type.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-mee-select-value): Fix.
+	(w3m-form-parse-and-fontify): If w3m-type is not w3mmee, use last form
+	object as current form.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-highlight-current-anchor): New implementation.
+	(w3m-highlight-current-anchor-1): New function.
+
+	* w3m-form.el (w3m-form-replace): Fixed problem when string is nil.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-string-to-char-list): Fixed.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-mee-select-value): Use w3m-output-coding-system
+	instead of w3m-current-coding-system.
+	(w3m-form-parse-and-fontify)[w3mmee]: Ditto.
+	(w3m-form-mee-select-value): Fixed select value.
+	(w3m-form-resume): Fixed checkbox resuming.
+	(w3m-form-parse-and-fontify): Use `form' instead of `(car forms)';
+	Search the form which corresponds to input_alt by fid; Use `nconc'
+	instead of `push'.
+
+	* w3m-form.el (w3m-form-mee-select-value): New function.
+	(w3m-form-parse-and-fontify)[w3mmee]: Set select value.
+
+	* w3m.el (w3m-halfdump-command-arguments)[w3mmee]: Added image.
+
+	* w3m-form.el (w3m-form-parse-and-fontify): Set the value of form only
+	if the method is not internal; Add internal form to the
+	w3m-current-forms; Treat input type `image' as same as `submit'.
+	(w3m-form-mee-attr-unquote): New function.
+	(w3m-string-to-char-list): New function/alias.
+	(w3m-form-mee-new): New function.
+	(w3m-form-parse-and-fontify): Parse w3mmee's form info.
+	(w3m-form-input-textarea-keymap): Bind C-g.
+	(w3m-form-input-select-keymap): Bind C-g, h,j,k,l.
+	(w3m-form-input-map-keymap): Ditto.
+	(w3m-form-parse-and-fontify): Set textarea value.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-resume): Typo.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (toplevel): Removed autoload setting for
+	`w3m-form-parse-buffer'.
+	(w3m-clear-local-variables): Don't treat w3m-current-forms any more.
+	(w3m-copy-local-variables): Ditto.
+	(w3m-additional-command-arguments): Fixed problem when no-proxy host
+	has port number other than 80.
+	(w3m-rendering-buffer-1): Don't call w3m-form-parse-buffer.
+	(w3m-goto-url): Setup w3m-current-forms from history structure.
+
+	* w3m-form.el (w3m-form-parse-buffer): Abolish.
+	(w3m-form-parse-forms): Ditto.
+	(w3m-form-resume): Set value of `w3m-current-forms'.
+	(w3m-fontify-forms): Call `w3m-form-parse-and-fontify' instead of
+	`w3m-form-fontify'.
+	(w3m-form-parse-and-fontify): New function.
+	(w3m-form-input-select): Fix problem when candidate label is "".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	Suggested by HAYASHI Chifumi <[e-mail]>.
+
+	* w3m-form.el (w3m-form-new): Ignore the 2nd arg `action' if it is nil.
+	(w3m-form-parse-forms): Don't parse the value of `w3m-current-url' if
+	it is nil.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.6 from emacs-w3m-1_2 branch.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-ucs.el (w3m-euc-japan-encoder): Treat japanese-jisx0208-1978 as
+	japanese-jisx0208.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url, w3m-goto-url-new-session,
+	w3m-select-buffer-copy-buffer): Remove unused non-global variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	Suggested by Yuuichi Teranishi <[e-mail]> with mod.
+
+	* w3m.el (w3m-no-proxy-domains): New user option renamed from
+	`w3m-no-proxy-hosts' and changed the meaning.
+	(w3m-additional-command-arguments): Refer to it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (tarball): Fix permissions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-command-arguments-alist): Change the meaning that the car
+	of each element will be compared with a url instead of a hostname.
+	(w3m-no-proxy-hosts): New user option.
+	(w3m-additional-command-arguments): Look into it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-command-arguments-alist): New user option.
+	(w3m-additional-command-arguments): New function.
+	(w3m-w3m-retrieve): Use it.
+	(w3m-history-current-url-face, w3m-copy-buffer, w3m-about-header):
+	Remove unused non-global variables.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes) [w3mmee]: Fetch content-encoding from
+	"x-w3m-content-encoding" filed.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Return lowercase string always
+	because `w3m-image-type-alist' has lowercase keys.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Switch J and K so as to behave like w3m.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_EXAMINE_PACKAGEDIR): Use `(eq 0 foo)' instead of
+	`(zerop foo)' because foo might not be a number.
+	(AC_PATH_ICONDIR): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-decoder-alist): Change default commands to `gzip' and
+	`bzip2' instead of `gunzip' and `bunzip2' because some broken OS and
+	its environment does not work them.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (datadir): New variable.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Modify a regexp for "Password:".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install): Don't chdir to shimbun/ while installing
+	shimbun modules.
+	(install-icons): Don't chdir to icons/ while installing icons.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install): Install all ChangeLog files.
+	* w3mhack.el (w3mhack-make-package): List all ChangeLog files in the
+	manifest.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Set `w3m-current-url' for avoid error
+	in `w3m-process-start-process()'.
+	(w3m-goto-url): When use w3m-dtree and the URL is local directory,
+	change the URL to `about://dtree' securely.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-function-max-args): Alias to `function-max-args'
+	under XEmacs, otherwise define it as a function.
+	(symbol-for-testing-whether-colon-keyword-is-available-or-not): Use
+	`dont-compile' instead of `eval'.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.5 from emacs-w3m-1_2 branch.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-find-file): Decode even in the read-only buffer.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (DOCS): Add ChangeLog.1.
+
+
+Local Variables:
+coding: iso-2022-7bit
+fill-column: 79
+indent-tabs-mode: t
+End:

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/ChangeLog.1	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,6731 @@
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-filter): Use `ignore-errors' instead of
+	`condition-case'.
+	(w3m-process-y-or-n-p): Regist answers only when they have non-nil
+	values.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-perldoc.el: New file.
+
+	* w3m.el (top): Add autoload for `w3m-perldoc.el'.
+	(w3m-tmp-urluser-alist): Abolished.
+	(w3m-read-file-name): Call `w3m-url-strip-query'.
+	(w3m-download): Ditto.
+	(w3m-w3m-get-header): Accept URLs which includes authentication
+	information like scheme://user:pass@netloc/.  Set `w3m-current-url'
+	before `w3m-process-start' is called.
+	(w3m-w3m-dump-head-source): Ditto.
+	(w3m-retrieve): Call `w3m-url-strip-fragment'.
+	(w3m-retrieve-and-render): Modified to accept URLs which includes
+	authentication information.  Do not set `w3m-current-url'.
+	(w3m-goto-url): Modified to accept URLs which includes authentication
+	information and to pass them through to sub-routines.
+	(w3m): Small modified to accept URLs which includes authentication
+	information.
+
+	* w3m-util.el (w3m-url-authinfo-regexp): New internal constant.
+	(w3m-url-authinfo): New function.
+	(w3m-url-strip-authinfo): Ditto.
+	(w3m-url-strip-fragment): Ditto.
+	(w3m-url-strip-query): Ditto.
+
+	* w3m-proc.el (top): No bind `w3m-tmp-urluser-alist'.
+	(w3m-process-authinfo-alist): Renamed from `w3m-process-user-alist'.
+	(w3m-process-accept-list): Abolished.
+	(w3m-process-accept-alist): New internal variable.
+	(w3m-process-user-counter): Abolished.
+	(w3m-process-start-process): In order to set `w3m-process-user' and
+	`w3m-process-passwd' call `w3m-url-authinfo', instead of refering
+	`w3m-tmp-urluser-alist'.
+	(w3m-process-stop): Reset `w3m-process-authinfo-alist' and
+	`w3m-process-accept-alist'.
+	(w3m-process-sentinel): Regist an authentication information only when
+	`w3m-process-realm' is set.
+	(w3m-process-filter): Call `w3m-process-y-or-n-p' instead of
+	`w3m-process-accept-get' and `w3m-process-accept-set'.  When a user
+	name and a password of a proxy server are reasked, their old values are
+	discarded.  Reconstruct the part checking user names and passwords.
+	(w3m-process-get-server-root): Its regular expression are small
+	modified.  Call `w3m-url-strip-authinfo'.
+	(w3m-process-get-user): Removed.
+	(w3m-process-get-passwd): Ditto.
+	(w3m-process-set-user): Ditto.
+	(w3m-process-accept-get): Ditto.
+	(w3m-process-accept-set): Ditto.
+	(w3m-process-set-authinfo): New function.
+	(w3m-process-read-user): Ditto.
+	(w3m-process-read-passwd): Ditto.
+	(w3m-process-y-or-n-p): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-modeline-ssl-image-status-on)
+	(w3m-modeline-ssl-status-off): New constants.
+	(w3m-current-ssl): New buffer local variable.
+	(w3m-clear-local-variables, w3m-copy-local-variables): Handling
+	`w3m-current-ssl'.
+	(w3m-w3m-attributes): When detect `W3m-ssl-certificate:' header, set
+	`w3m-current-ssl'. Skip reading of folded lines of each header.
+	(w3m-buffer-setup): Display SSL indicator at mode-line.
+	(w3m-about-header): Display SSL information when exist
+	`W3m-ssl-certificate:' header.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-read-file-name): Strip the query part from a default file
+	name.
+	(w3m-download): Ditto.
+	(w3m-url-components-regexp): Move forward.
+
+	* mime-w3m.el: Always require `font' under XEmacs.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-async-exec): Default to nil under MacOS X.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-setup-favicon): Fix handling of
+	`w3m-about-xxxx-favicon'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-icon-data): New buffer local variable.
+	(w3m-clear-local-variables): Add `w3m-icon-data'.
+	(w3m-copy-local-variables): Ditto.
+	(w3m-fontify-anchors): Setup `w3m-icon-data'.
+	(w3m-check-link-tags): Parse `type' of link attribute; Set
+	`w3m-icon-data' if `icon' rel attribute exist.
+	(w3m-goto-url): Added local variable real-data.
+
+	* w3m-e21.el (w3m-favicon-cache-favicon): Added compatibility code.
+	(w3m-setup-favicon): Use w3m-icon-data if it exists; Changed first
+	argument for `w3m-retrieve-favicon'.
+	(w3m-buffer-favicon): Use car of `w3m-current-favicon-data' as image
+	data and cdr as image type.
+	(w3m-retrieve-favicon): Changed first argument to cons cell of image
+	data and its type.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-save-list): Allow the 4th arg `escape-ctl-chars'.
+	(w3m-arrived-shutdown): Call it with the 4th arg.
+
+	* w3m-antenna.el (w3m-antenna-shutdown): Call `w3m-save-list' with the
+	4th arg.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-pixels-per-line): Renamed from w3m-pixel-per-line; Fixed
+	custom type.
+	(w3m-pixels-per-character): Likewise.
+	(w3m-rendering-half-dump): Follow the changes above.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-type): Considerd as an internal variable.
+	(w3m-options): Removed.
+	(w3m-compile-options): New internal variable.
+	(toplevel): Set `w3m-compile-options' instead of `w3m-options'.
+	(w3m-treat-image-size): Refer `w3m-compile-options' instead of
+	`w3m-options'.
+	(w3m-rendering-half-dump): Ditto.
+	(w3m-local-file-type): When a remote URL is passed, refer its
+	non-directory part to decide its content type.
+	(w3m-touch-file): Bind `default-directory' locally.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-pixel-per-line): New user option.
+	(w3m-rendering-half-dump): Use `w3m-pixel-per-line' as the -ppl
+	argument of the w3m command.
+	(w3m-pixel-per-character): New user option.
+	(w3m-rendering-half-dump): Use `w3m-pixel-per-character' as the -ppc
+	argument of the w3m command.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-favicon-size): Set default value to nil.
+	(w3m-buffer-favicon): If w3m-favicon-size is nil, detect frame char
+	height and use it.
+
+	* w3m.el (w3m-command): Set default value to nil.
+	(w3m-type): Ditto.
+	(w3m-options): New user option.
+	(toplevel): Set w3m-command, w3m-type and w3m-options.
+	(w3m-treat-image-size): New user option.
+	(w3m-rendering-half-dump): Set rendering options -o
+	display_image=on/off, -ppc, -ppl according to the value of
+	`w3m-treat-image-size'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-display-message): New macro.
+
+	* w3m.el (w3m-make-help-echo): Clear the echo area when Emacs 21 is
+	running; use the modern styles of backquote.
+	(w3m-make-balloon-help): Use the modern styles of backquote.
+	(w3m-toggle-inline-image): Use `w3m-display-message' instead of
+	`message' to say a trivial message.
+	(w3m-view-this-url): Ditto.
+	(w3m-submit-form): Ditto.
+	(w3m-view-image): Ditto.
+	(w3m-save-image): Ditto.
+	(w3m-download-this-url): Ditto.
+	(w3m-print-current-url): Ditto.
+	(w3m-print-this-url): Ditto.
+	(w3m-edit-this-url): Ditto.
+	(w3m-quit): Ditto.
+	(w3m-goto-ftp-url): Ditto.
+	(w3m-select-buffer): Ditto.
+	(w3m-select-buffer-show-this-line): Ditto.
+	(w3m-select-buffer-show-this-line-and-switch): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-after-cursor-move-hook): New option.
+	(w3m-check-current-position): New function.
+	(w3m-print-this-url-after-command): Removed.
+	(w3m-buffer-setup): Set `w3m-check-current-position' to
+	`post-command-hook', instead of `w3m-print-this-url-after-command'.
+	(w3m-add-local-hook): Check version of Emacsen dynamically.
+
+	* w3m-e21.el (w3m-add-local-hook): New function.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Changed regexp to more generic one to
+	search img_alt tag.
+	(w3m-toggle-inline-images-internal): Fixed image redisplay flickers.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-common-arguments): Replace `frame-width'
+	with `window-width'.
+	(w3m-about-db-history): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-accept-list): New internal variable.
+	(w3m-process-filter): Watch `accept? (y/n)' for certification.
+	(w3m-process-accept-get, w3m-process-accept-set): New functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-make-ccl-coding-system): Alias to `ignore' if
+	no-MULE (the feature `mule' is not provided).
+	(coding-system-category): Ditto.
+	(define-ccl-program): Define it as an empty macro if no-MULE.
+
+	* w3m.el (TopLevel): Don't require `ccl' if no-MULE.
+	(w3m-accept-japanese-characters): Default to nil if no-MULE.
+	(w3m-coding-system): Default to `iso-8859-1' if no-MULE.
+	(w3m-output-coding-system): Ditto.
+	(w3m-file-coding-system): Ditto.
+	(w3m-toolbar): Don't express some Japaneses chars directly.
+
+	* w3mhack.el (w3mhack-examine-modules): Don't byte-compile w3m-ucs.el,
+	shimbun modules, mime-w3m.el, octet.el and w3m-weather.el if no-MULE.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-meta-content-type-charset-regexp)
+	(w3m-meta-charset-content-type-regexp)
+	(w3m-meta-refresh-content-regexp)
+	(w3m-meta-content-refresh-regexp): Remove redundant double quote.
+
+	* w3m.el (w3m-content-prepare-functions): New internal contsant.
+	(w3m-prepare-content): Refer it.
+	(w3m-prepare-text-content): New function.
+	(w3m-prepare-image-content): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-meta-charset-content-type-regexp)
+	(w3m-meta-content-refresh-regexp): Allow broken quotation mark.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-touch-file): Robust checking.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-util.el (w3m-which-command): If called with `not string', return
+	nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-touch-file-avaiable-p): New internal variable.
+	(w3m-touch-file): Check the validity of `touch' command.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-touch-file): Call touch command with "-t time" instead of
+	"-d time".
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-touch-command): New option.
+	(w3m-touch-file): New function.
+	(w3m-download): Call it.
+	(w3m-toggle-inline-images-internal): Fix inconsistency of text
+	properties when images are not downloaded.
+	(w3m-toggle-inline-image): Simplified.
+	(w3m-toggle-inline-images): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el (w3m-prin1): New function.
+	* w3m.el (w3m-save-list): Use it instead of `prin1'.
+
+	* w3mhack.el, w3m.el, w3m-xmas.el, w3m-om.el: Say emacs-w3m not
+	Emacs-W3M.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-mode-dont-bind-keys): New variable.
+	(mime-w3m-setup): Don't bind keys listed in the above.
+
+	* w3m.el (w3m-key-binding): Switch key bindings also in w3m-mode
+	buffers when customizing; don't manipulate keymaps when Emacs is
+	running in the batch mode.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-suffix-type-alist): Added lzh, tar, pdf.
+	(octet-type-filter-alist): Ditto.
+	(octet-content-type-alist): Added application/x-msexcel, text/html,
+	application/x-tar, application/pdf.
+	(octet-magic-type-alist): Fixed magic for html.
+	(octet-tar-mode): New function.
+	(octet-guess-type-from-name): Downcase suffix.
+	(octet-mime-setup): Add action for application/vnd.ms-powerpoint.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-safe-url-regexp): New user option.
+	(mime-w3m-preview-text/html): Use it.
+
+	* w3m.el (w3m-key-binding): Don't eval a part of the `set:' form when
+	compiling nnshimbun.el in the Gnus source tree.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-buffer): Fixed problem when 'Quit'.
+	(mime-preview-octet-hook): New hook.
+	(mime-preview-octet): Run it.
+	(w3m-about-octet-attachments): Fixed problem when there's no
+	octet-attachment which corresponds to the src url.
+	(mime-view-octet): Set content-type argument for `octet-buffer'.
+	(mime-preview-octet): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Bind `w3m-force-redisplay'
+	with nil.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-buffer): Set default of `completing-read'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-key-binding): Switch `w3m-mode-map', `mime-w3m-mode-map'
+	and `mm-w3m-mode-map' when customizing.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-mode-command-alist): New variable.
+	(mime-w3m-setup): Use it; invalidate widget button in
+	`mime-w3m-mode-map'.
+	(mime-w3m-keymap-property): Removed.
+	(mime-w3m-preview-text/html): Add `text-rendered-by-mime-w3m' text
+	property to the rendered area.
+	(kill-new): Strip keymap properties from a killed string only if it has
+	`text-rendered-by-mime-w3m' property.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-url-at-point): Remove all text-properties from url.
+
+	* w3m-search.el (w3m-search): Remove all text-properties from default
+	search value.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-search.el (w3m-search-word-at-point): New option.
+	(w3m-search): Refer `w3m-search-word-at-point'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-content-type-alist): Added text/html.
+	(octet-magic-type-alist): Likewise.
+	(octet-type-filter-alist): Likewise; Added `guess'; Changed result type
+	of gzip as `guess'.
+	(octet-find-file-hook): New hook.
+	(octet-find-file): Run it.
+	(octet-filter-guess): New function.
+	(octet-buffer): Fix.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (toplevel): Require 'static.
+	(octet-html-render-function): Changed default value to
+	`octet-w3m-region.'
+	(octet-type-filter-alist): Changed filter function to
+	`octet-filter-call2-extra'.
+	(octet-attachments): New buffer-local variable.
+	(w3m-about-octet-attachments): New function.
+	(octet-w3m-region): Ditto.
+	(octet-filter-call2-extra): New function.
+	(octet-find-file): Do nothing when buffer is read-only.
+
+	* w3m.el (w3m-about-retrieve): Decode buffer only if the content-type
+	is text.
+
+	* octet.el (octet-guess-type-from-name): Return nil if guess failed.
+	(octet-buffer): Ask octet type if guess failed.
+	(octet-content-type-alist): New variable.
+	(octet-guess-type-from-content-type): New function.
+	(octet-buffer): Added optional argument `content-type'.
+	(octet-buffer): Ignore `quit'.
+	(octet-suffix-type-alist): Added images.
+	(octet-content-type-alist): Ditto.
+	(octet-type-filter-alist): Ditto.
+	(octet-magic-type-alist): Renamed from mime-magic-type-alist.
+	(octet-decode-image): New function.
+	(octet-guess-type-from-magic): New function.
+	(octet-buffer): Use it.
+	(octet-insert-buffer): New function.
+	(mime-preview-octet): Use it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* octet.el (octet-type-filter-alist): Changed default value for xlhtml
+	and ppthtml.
+	(octet-filter-call2): Fixed problem when return value of call-process
+	is not numeric.
+	(octet-filter-call1): Ditto.
+	(octet-find-file): Use unwind-protect.
+	(octet-filter-call2): Fixed docstring.
+	(octet-filter-call1): Ditto.
+	(octet-buffer): Fixed argument for `interactive'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-encoding-type-alist): New option.
+	(w3m-local-file-type): New function.
+	(w3m-local-content-type): New implementation.
+	(w3m-local-attributes): Call `w3m-local-file-type' instead of
+	`w3m-local-content-type'.
+	(w3m-download): `url' is lexically binded.  Call `message' to display
+	error messages.
+
+	* w3mhack.el (w3mhack-examine-modules): Fix to avoid that octet.el is
+	byte-compiled repeatedly.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Add octet.el to the module list
+	if FLIM is installed.
+
+	* octet.el: New file.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-highlight-current-anchor): Don't search for the anchor
+	points which are out of sight.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-tmp-urluser-alist): New variable.
+	(w3m-goto-url): If URL include user and passwd, set
+	`w3m-tmp-urluser-alist' for process handling.  Remove passwd from URL.
+	(w3m): Remove passwd from URL when insert it in buffer.
+
+	* w3m-util.el (w3m-get-user-passwd-from-url)
+	(w3m-remove-passwd-from-url): New functions.
+
+	* w3m-proc.el (top): Define `w3m-tmp-urluser-alist' to avoid
+	byte-compile warning.
+	(w3m-process-start-process): If URL include user or passwd, set them to
+	default values.
+	(w3m-process-filter): Use default values of `w3m-process-user' and
+	`w3m-process-passwd'.
+	(w3m-process-get-server-root): Remove `about://.../' from server root.
+
+	* w3m-search.el (w3m-search): Insert default string in minibuffer.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Don't add to history if url is nil.
+	(w3m-print-this-url-after-command): Call
+	`w3m-highlight-current-anchor'.
+	(w3m-delete-all-overlays): New macro.
+	(w3m-highlight-current-anchor): New function.
+	(w3m-current-anchor-face): New face.
+	(w3m-arrived-anchor-face): Removed underline property.
+	(w3m-anchor-face): Ditto.
+
[phone]  OHASHI Akira  <[e-mail]>
+
+	* w3m.el (w3m-header-line-map): Inherit `w3m-mode-map'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-e21.el (w3m-setup-favicon): Reversed the condition that decide
+	whether favicons are used.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-setup-favicon): If url is `ftp://', not retrieve a
+	favicon data.
+
+	* w3m.el (w3m-current-directory): New function.
+	(w3m-goto-url): Use `w3m-current-directory' when set
+	`default-directory'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-ange-ftp): New option.
+	(w3m-w3m-attributes): Handle ftp scheme URLs.
+	(w3m-download): Refer `w3m-use-ange-ftp'.
+	(w3m-goto-url): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-read-file-name): Remove an optional argument
+	`initial'. Call `read-file-name' without `default' option.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-url-encode-string): Fixed for Mule2.
+
+	* w3m-util.el (w3m-truncate-string): New function.
+
+	* w3m-form.el (w3m-form-replace): Use `w3m-truncate-string' instead of
+	`truncate-string'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-region): Process <base> tag.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-content-type): Fix handling of the remote url.
+	(w3m-file-directory-p): New function.
+	(w3m-goto-ftp-url): Use `w3m-file-directory-p' instead of
+	`file-directory-p'.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.4 from emacs-w3m-1_2 branch.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-arrived-setup-hook): New hook.
+	(w3m-arrived-shutdown-hook): Ditto.
+	(w3m-arrived-setup): Run `w3m-arrived-setup-hook'.
+	(w3m-arrived-shutdown): Run `w3m-arrived-shutdown-hook'.
+	(w3m-quit): Don't remove `w3m-arrived-shutdown' from `kill-emacs-hook'.
+
+	* w3m-e21.el (w3m-favicon-cache-expire-wait): New user option.
+	(w3m-favicon-cache-p): New macro.
+	(w3m-favicon-cache-favicon): Ditto.
+	(w3m-favicon-cache-retrived): Ditto.
+	(w3m-retrieve-favicon): Don't use old cache data.
+	(w3m-favicon-cache-data): Renamed from `w3m-favicon-data-cache'.
+	(w3m-favicon-save-cache-file): Follow above change.
+	(w3m-favicon-load-cache-file): Ditto.
+	(w3m-arrived-setup-hook): Regist `w3m-favicon-load-cachee-faile'.
+	(w3m-arrived-shutdown-hook): Regist `w3m-favicon-save-cache-file'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Use a URL-like string under the cursor as the
+	initial value of the target URL when interactively called.
+	(w3m-view-this-url): When a URL-like string is found under the cursor,
+	view it.
+	(w3m-view-this-url-1): New internal function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-display-hook): Change default variable to `nil'.
+	(top): Use `add-hook' when `w3m-history-highlight-current-url',
+	`w3m-move-point-for-localcgi' and `w3m-select-buffer-update' set to
+	`w3m-display-hook'.
+	(w3m-local-dirlist-cgi): When use `dirlist.cgi', decode filename tag.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): When the pointed file is not found,
+	decode the specified URL and recheck it.
+
[phone]  Shiro Takeda  <[e-mail]>
+
+	* w3m.el (w3m-bold-face, w3m-underline-face): New faces.
+	(w3m-fontify-bold): Use `w3m-bold-face' instead of `bold'.
+	(w3m-fontify-underline): Use `w3m-underline-face' instead of
+	`underline'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w32-browser-with-fiber): Fix handling of the local url.
+
+	* w3m-util.el (w3m-url-local-p): Fix its regexp for Windows.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-about-header): Protect against null title.
+	(w3m-arrived-setup): Ignore database of arrived URLs in too old style.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-encode-string): Add a period to the set of characters
+	which are not encoded.  From Fabrice Bauzac <[e-mail]>
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-add-local-hook): New function.
+	(w3m-current-position): New buffer local variable.
+	(w3m-store-current-position): New hook function.
+	(w3m-print-this-url-after-command): New hook funtcion.
+	(w3m-buffer-setup): Regist these hook functions.
+	(w3m-header-line-location-title-face): Integrated with the defition in
+	w3m-e21.el
+	(w3m-header-line-location-content-face): Ditto.
+	(w3m-header-line-map): Ditto.
+	(w3m-header-line-insert): Renamed from `w3m-insert-header-line'.
+
+	* w3m-e21.el (w3m-header-line-location-title-face): Integrated to the
+	defition in w3m.el.
+	(w3m-header-line-location-content-face): Ditto.
+	(w3m-header-line-map): Ditto.
+	(w3m-setup-header-line): Clean up.
+	(w3m-insert-header-line): Removed.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Fix its regexp.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-print-this-url): Display a message when it is called
+	interactively.
+
[phone]  OHASHI Akira  <[e-mail]>
+
+	* w3m.el (w3m-print-this-url): Don't print any messages when there is
+	no url or form under point.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-local-directory-alist): Renamed from
+	`w3m-edit-url-directory-alist'.
+	(w3m-url-to-file-name): Return nil, when the specified URL points no
+	local file.
+	(w3m-url-completion): Modified its regexp.  Fix completion of dot
+	files.
+	(w3m-edit-url): Simplified.
+	(w3m-goto-url): Removed the redundant local variable.  Set
+	`default-directory' to the local directory to which the current URL is
+	related by `w3m-url-local-directory-alist'.
+	(w3m-about-history): Installed the ad-hoc workaround.
+
+	* w3m-util.el (w3m-url-dtree-p): Modified its regexp.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-decode-get-refresh): Not run Refresh timer if the URI is
+	matched `about://', .
+	(w3m-goto-url): Modify the timing to call `w3m-cancel-refresh-timer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-util.el: Autoload "timer" for the function `cancel-timer' when
+	Mule 2 is running.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-refresh-at-time): Run `w3m-goto-url-with-timer'
+	immediately, if the delay of refresh is zero.
+
+	* w3m-xmas.el (w3m-refresh-at-time): Removed.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-refresh): New user option.
+	(w3m-refresh-timer, w3m-current-refresh): New buffer-local variables.
+	(w3m-clear-local-variables, w3m-copy-local-variables): Handle
+	`w3m-current-refresh'.
+	(w3m-meta-refresh-content-regexp)
+	(w3m-meta-content-refresh-regexp): New constant.
+	(w3m-decode-buffer): Call `w3m-decode-get-refresh' first.
+	(w3m-decode-get-refresh): New function.
+	(w3m-view-previous-page): Bind `w3m-use-refresh' to nil.
+	(w3m-quit, w3m-close-window): Call `w3m-cancel-refresh-timer' at any
+	buffers.
+	(w3m-goto-url): Call `w3m-cancel-refresh-timer' first.  Call
+	`w3m-refresh-at-time' at last; start REFRESH timer.
+	(w3m-goto-url-with-timer): New function.
+	(w3m-refresh-at-time): New function for FSF Emacs.
+
+	* w3m-xmas.el (w3m-refresh-at-time): New function for XEmacs.
+
+	* w3m-util.el (w3m-cancel-refresh-timer): New function.
+	(w3m-current-refresh, w3m-refresh-timer, w3m-use-refresh): Avoid
+	byte-compiled warnings.
+
+	* w3m-proc.el (w3m-process-stop): Call `w3m-cancel-refresh-timer'.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-dump-head-source-command-arguments) [w3mmee]: Support
+	`w3m-accept-languages'.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.3 from emacs-w3m-1_2 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-type): Changed condition to decide type.
+	(w3m-decoder-alist): Call `file-name-nondirectory' before `w3m-command'
+	is refered.
+	(w3m-dirlist-cgi-program): Ditto.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-type): Changed condition to decide type.
+	(w3m-decoder-alist): Use `w3m-command' for inflate command path.
+	(w3m-dirlist-cgi-program): Use `w3m-command'.
+	(w3m-dump-head-source-command-arguments) [w3mmee]: Don't add "-o
+	accept_language=xxx".
+
[phone]  OKAZAKI Tetsurou <[e-mail]>
+
+	* w3m.el (w3m-type): Use "w3m-m17n" if exists.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-mailto-url): Use the property `composefunc' to get
+	the function to compose a mail from `mail-user-agent'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-load-list): Removed a bogus code for XEmacs; don't bind
+	the value of `file-coding-system-for-read' if the optional arg is nil
+	and `w3m-file-coding-system-for-read' is nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3m-use-favicon): Don't bind it.
+
+	* w3m-e21.el (w3m-use-favicon): Set it to nil anyway when Emacs is
+	running in the batch mode.
+	(w3m-imagick-convert-buffer): Reverted.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-imagick-convert-buffer): Don't growl errors when
+	Emacs is running in the batch mode.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-e21.el (w3m-favicon-use-cache-file): New user option.
+	(w3m-favicon-cache-file): Ditto.
+	(w3m-favicon-data-cache): New variable.
+	(w3m-retrieve-favicon): Use `w3m-favicon-data-cache' or store it.
+	(w3m-favicon-save-cache-file): New function.
+	(w3m-favicon-load-cache-file): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-e21-toolbar-configurations): Replace
+	`auto-resize-tool-bar' to `auto-resize-tool-bars'.
+
[phone]  OHASHI Akira  <[e-mail]>
+
+	* README.shimbun.ja: Add information for sb-debian-jp.el and
+	sb-debian.el.
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Change the separater string for
+	option tag.
+
[phone]  Taiki SUGAWARA  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): If not find selected, first
+	element is made into default.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-dtree.el (w3m-about-dtree): Ignore arguments on and after 4th.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	Suggested by NAKAJIMA Mikio <[e-mail]>.
+
+	* w3m-e21.el (w3m-use-favicon): Default to t, but it will be altered to
+	nil automatically if ImageMagick does not support a favicon; never use
+	ImageMagick if it has been set to nil.
+
+	* w3mhack.el (w3m-use-favicon): Bind it to nil to inhibit the use of
+	ImageMagick.
+
[phone] Kazuyoshi Koreeda <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-insert-seikatu-sisu): New function.
+	(w3m-weather-get-seikatu-sisu): Ditto.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Use `w3m-decode-entities-string'
+	to value in the textarea and option menu.
+
[phone]  Mito  <[e-mail]>
+
+	* w3m.el (w3m-scroll-left): Modify doc-string.
+	(w3m-scroll-right): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-imagick-convert-usable-p): New function.
+	(w3m-use-favicon): Use it.
+
[phone]  ARISAWA Akihiro  <[e-mail]>,
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-e21.el (top): Installed the check of the validity of ImageMagick.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.2 from emacs-w3m-1_2 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-type): Follow the new official release of w3m.
+	(w3m-attributes): Follow the change of error symbols which are defined
+	in w3m-proc.el.
+	(w3m-retrieve): Ditto.
+	(w3m-about-header): Likewise.  Ignore optional arguments safely.
+	(w3m-message): Display message only when original w3m buffer is
+	displayed.
+	(w3m-about-retrieve): Asynchronized.
+	(w3m-retrieve-and-render): Follow the change of `w3m-message'.
+	(w3m-prepare-content): Install the measure against narrowed buffers.
+
+	* w3m-proc.el (w3m-process-start-process): Accept the 2nd optional
+	argument to reset the sentinel funtcion for the generated asynchronous
+	process.
+	(w3m-process-failure): Removed.
+	(w3m-process-timeout): Simplified its error condition.
+	(w3m-process-with-wait-handler): No sentinel function is registered and
+	the sentinel function is called from this macro itself.
+
+	* w3m-weather.el (w3m-weather-filter-functions): Add
+	`w3m-weather-expand-anchors'.
+	(w3m-about-weather): Asynchronized.
+	(w3m-weather-remove-headers): Follow changes of original content.
+	(w3m-weather-remove-footers): Ditto.
+	(w3m-weather-expand-anchors): New filter function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-emacs-w3m-icon): Made it interlaced and endlessly
+	animated.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): When content-charset is unknown, detect
+	coding-system automatically.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-e21.el (w3m-buffer-favicon): Reset `w3m-current-favicon-data' to
+	nil when conversion was failure.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-imagick-convert-buffer): Say errors and return nil if
+	the process returns a non-zero status (possibly a string).
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-image): Bind some arguments lexically for
+	w3m-fix-gif().
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-setup-favicon): Fix for "about://" url.
+	(w3m-buffer-favicon): Renamed local variable.
+	(w3m-tab-line): Call `w3m-buffer-favicon' only when w3m-use-favicon is
+	non-nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-modeline-process-status-on): Modify default value.
+	(w3m-buffer-setup): Simplified `mode-line-buffer-identification'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-imagick-convert-program): New user option.
+	(w3m-favicon-size): Ditto.
+	(w3m-use-favicon): Ditto.
+	(w3m-favicon-name): New constant.
+	(w3m-current-favicon-data): New buffer local variable.
+	(w3m-current-favicon-image): Ditto.
+	(w3m-display-hook): Added 'w3m-setup-favicon.
+	(w3m-imagick-convert-buffer): New function.
+	(w3m-imagick-convert-data): Ditto.
+	(w3m-setup-favicon): Ditto.
+	(w3m-buffer-favicon): Ditto.
+	(w3m-retrieve-favicon): Ditto.
+	(w3m-tab-line): Display favicon on tab.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-xmas.el (w3m-insert-image): Rewrite.
+	(if displayed images exist on the right side, keep them and display
+	again)
+	(w3m-remove-image): Call `delete-extent' to destroy extents.
+
[phone]  Yoichi NAKAYAMA  <[e-mail]>
+
+	* TIPS: New file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-download-this-url): Fix a problem of broken URL.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top, w3m-about): Change the URL of w3m's official page.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-max-anchor-sequence): New buffer local variable.
+	(w3m-copy-local-variables, w3m-clear-local-variables): Handle
+	`w3m-max-anchor-sequence'.
+	(w3m-fontify-anchors): Reset `w3m-max-anchor-sequence' to zero.  Use
+	the text-property `w3m-anchor-sequence' insted of `w3m-cursor-anchor'.
+	(w3m-goto-next-anchor, w3m-next-anchor, w3m-goto-previous-anchor)
+	(w3m-previous-anchor): Rewrite use the text-property
+	`w3m-anchor-sequence'.
+	(w3m-next-form, w3m-goto-next-image, w3m-next-image)
+	(w3m-previous-image): Fix mistake as modified last time.
+
+	* w3m-util.el (w3m-anchor-sequence): New macro.
+	(w3m-cursor-anchor) Remove macro.
+
+	* w3m-form.el (w3m-form-fontify): Use the text-property
+	`w3m-anchor-sequence' insted of `w3m-cursor-anchor'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-download-this-url): Wrap the form which is evaluated in
+	asynchronous context with `w3m-process-with-null-handler', to fix the
+	bug reported by Hideyuki SHIRAI <[e-mail]>.
+
+	* w3m-xmas.el (w3m-create-image): Modified to avoid calling
+	`w3m-process-with-wait-handler'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-push): Set the buffer-local variable
+	`w3m-process-object' in the appropriate buffer.
+	(w3m-process-sentinel): Removed redundant call of
+	`with-current-buffer'.
+
+	* Makefile.in (default): Reintroduce of checking time stamps of
+	w3m-util.elc and w3m-proc.elc.
+
+	* w3m-proc.el (w3m-process-temp-file): Abolished.
+
+	* w3m.el (w3m-content-charset, w3m-content-encoding,
+	w3m-content-length, w3m-content-type, w3m-last-modified, w3m-real-url):
+	Fixed asynchrounization.
+	(w3m-download): Changed the argument spec and the body to accept an
+	asynchrounous context.
+	(w3m-external-view): Follow change of `w3m-download'.
+	(w3m-external-view-file): Changed the argument spec and the body;
+	`w3m-process-temp-file' is not refered.
+	(w3m-download-this-url): Follow change of `w3m-download'.
+	(w3m-scroll-left, w3m-scroll-right): Use `call-interactively' to avoid
+	a strange behavior of Emacs21.  This change is suggested by Hironori
+	FUJII <[e-mail]>.
+
+	* w3m-proc.el (w3m-process-failure): New error symbol.
+	(w3m-process-timeout): Change its error condition.
+	(w3m-process-with-wait-handler): Install adhoc workaround.
+
+	* w3m.el (w3m-attributes, w3m-retrieve, w3m-about-header): Follow
+	change of `w3m-process-with-wait-handler'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-modeline-process-status-on): New constant.
+	(w3m-modeline-status-off): Rename from `w3m-modeline-image-status-off'.
+	(w3m-buffer-setup): Show the string of `w3m-modeline-process-status-on'
+	when process running.
+	(w3m-download): Add 4th argument `extview' for w3m-external-view(). If
+	`extview' is gived, apply `extview' on process-sentinel like (apply
+	(car extview) (cdr extview)).
+	(w3m-external-view): When execute `w3m-download', call with `extview'
+	argument.
+	(w3m-external-view-file): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-print-this-url): View current image info.
+	(w3m-goto-next-image, w3m-next-image, w3m-goto-previous-image)
+	(w3m-previous-image): New functions.
+	(w3m-lynx-like-map, w3m-info-like-map): Bind "}" as the key to call
+	`w3m-next-image'. Bind "{" as the key to call `w3m-previous-image'.
+	(w3m-mode): Modify dos-string.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-goto-next-form, w3m-next-form)
+	(w3m-goto-previous-form, w3m-previous-form): New functions.
+	(w3m-lynx-like-map, w3m-info-like-map): Bind "]" as the key to call
+	`w3m-next-form'. Bind "[" as the key to call `w3m-previous-form'.
+
[phone]  Kazuhiko  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-image): Fix a problem in handling XBM on
+	XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-attributes): Establish the error handler for
+	`w3m-process-timeout' when the argument `handler' is equal to nil.
+	(w3m-retrieve): Ditto.
+	(w3m-about-header): Establish the error handler for
+	`w3m-process-timeout' before `w3m-w3m-get-header' is called.
+	(w3m-select-buffer-close-window): Check whether the menu's window
+	exists.
+
+	* w3m-proc.el: Changes to avoid endless loop.
+	(w3m-process-start-process): Changed the spec of its return value.
+	(w3m-process-timeout): New error symbol.
+	(w3m-process-with-wait-handler): Bind `inhibit-quit' to nil, in order
+	to accept user's quit; Signal `w3m-process-timeout' when time out is
+	detected.
+	(w3m-process-do): Accept null variable.
+	(w3m-process-do-with-temp-buffer): Ditto.
+
+	* Makefile.in (default): Cancel the last change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (default): When files which define macros and inline
+	functions such as w3m-util.el and w3m-proc.el are newer than their
+	byte-compiled files, run clean target before compile.
+
+	* w3m.el (w3m-about-db-history-today): Removed.
+	(w3m-about-db-history): Call `w3m-time-lapse-seconds' to classify
+	entries.
+
+	* w3m-proc.el: Changes to avoid endless loop.
+	(w3m-process-inhibit-quit): New internal variable.
+	(w3m-process-timeout): New variable.
+	(w3m-process-with-wait-handler): Strict check when asynchrounous
+	processes finish; Refer `w3m-process-timeout' to check idle time.
+	(w3m-process-sentinel): Bind `inhibit-quit' according to
+	`w3m-process-sentinel'.
+
+	* w3m-e21.el: Changes to display tabs which are retieving contents in
+	the other face.
+	(top): Define `w3m-current-process' to avoid byte-compile warning.
+	(w3m-tab-unselected-retrieving-face): New face.
+	(w3m-tab-selected-retrieving-face): Ditto.
+	(w3m-tab-line): Refer `w3m-current-process' in order to select the face
+	of the tab which is retriving some pages.
+
+	* w3m-util.el (w3m-time-lapse-seconds): New inline function.
+
+	* w3m-antenna.el (top): Add autoload of `w3m-filter' to avoid
+	byte-compile warning.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer): If nomsg eq 'update, don't save
+	selected-window; so called `w3m-select-buffer-update' any window to
+	differ original window executed process, is broken
+	`w3m-select-buffer-window'.
+	(w3m-select-buffer-update): Call `w3m-select-buffer' with 'update.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-keymap-property): New macro.
+	(mime-w3m-preview-text/html, kill-new): Use the above macro instead of
+	`w3m-static-if'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer-window-ratio): New user option.
+	(w3m-select-buffer-window-size): Remove user option.
+	(w3m-select-buffer-window-size): New function.
+	(w3m-select-buffer-toggle-style): Ditto.
+	(w3m-select-buffer): Use `w3m-select-buffer-window-size' when calculate
+	window size. When call with prefix argument, toggle
+	`w3m-select-buffer-horizontal-window'.
+	(w3m-select-buffer-show-this-line): Use `w3m-select-buffer-window-size'
+	when calculate window size.  If exist w3m-buffer another window under
+	control, use it.
+	(w3m-select-buffer-mode-map): Modify the key binding 'C-cC-s' for
+	toggle `w3m-select-buffer-horizontal-window'.
+	(w3m-select-buffer-update): Call `w3m-select-buffer' with two
+	arguments.
+	(w3m-select-buffer-mode): Modify doc-string.
+
+	* w3m-tabmenu.el (w3m-switch-buffer): Change the rule of detecting
+	default buffer.
+	(w3m-tab-menubar-make-items): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el: Changes to make installation of this module be easy;
+	Comments updated; Initialize code is moved to `mime-w3m-setup'; Changed
+	requirement of other modules.
+	(mime-w3m-display-inline-images): Changed the default value.
+	(mime-w3m-insinuate, mime-w3m-setup): New function.
+	(mime-w3m-preview-text/html): Call `mime-w3m-setup'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-search.el: Require `cl' when compiling.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Changes to avoid that multi async processes are started in
+	the same buffer.
+	(w3m-current-process): New internal variable to protect parallel
+	retriving.
+	(w3m-attributes, w3m-base-url, w3m-content-charset,
+	w3m-content-encoding, w3m-content-length, w3m-content-type,
+	w3m-last-modified, w3m-real-url): Asynchronized.
+	(w3m-toggle-inline-images-internal): Set `w3m-current-buffer' to this
+	buffer locally, in order to classify the generated async process to the
+	appropriate buffer.
+	(w3m-toggle-inline-images): Stop processes which are retrieving images
+	of this buffer.
+	(w3m-retrieve-and-render): Remove redundant `let'.
+	(w3m-view-this-url): Refontify anchor.
+	(w3m-lynx-like-map, w3m-info-like-map): Bind `C-cC-g' as the key to
+	call `w3m-process-stop'.
+	(w3m-goto-url): Check `w3m-current-process' to avoid reenterant and set
+	it to the value of `w3m-retrieve-and-render'; Before the retrieving
+	process of the next page is started, select this buffer in the current
+	window and stop processes which are retrieving images of this buffer.
+	(w3m): Not select this buffer in the current window.
+
+	* w3m-proc.el (top): Define `w3m-current-process' to avoid byte-compile
+	warning.
+	(w3m-process-queue-registrable-p): Abolished.
+	(w3m-process-new): Its argument spec is changed; Changed the strucuture
+	of `w3m-process' object.
+	(w3m-process-command): New macro.
+	(w3m-process-arguments): Follow the structural change of `w3m-process'
+	object.
+	(w3m-process-push): Likewise; Follow change of `w3m-process-new'; No
+	check for `w3m-process-queue-registrable-p'.
+	(w3m-process-kill-process): Check process status before stopping them.
+	(w3m-process-start-process): Follow the structural change of
+	`w3m-process' object.
+	(w3m-process-stop): Ditto; Start queued processes.
+	(w3m-process-with-null-handler): No check for
+	`w3m-process-queue-registrable-p'.
+
+	* w3m-util.el (w3m-kill-buffer): Fix code to kill this buffer.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer): Fix window height calculation when
+	w3m-select-buffer-horizontal-window is nil.
+	(w3m-select-buffer-mode-map): Add the key bind of
+	`w3m-select-buffer-show-this-line-and-down'. Modify the key bind of
+	`w3m-select-buffer-show-this-line'.
+	(w3m-select-buffer-show-this-line): Fix window height calculation when
+	w3m-select-buffer-horizontal-window is nil. If already displayed
+	w3m-buffer and call interactively, call `w3m-scroll-up-or-next-url'.
+	(w3m-select-buffer-show-this-line-and-down): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Merge experimental-async branch to main trunk.
+
+	* w3m-util.el: Rename from w3m-macro.el; Require `poe' and `poem'
+	module for XEmacs and Mule; Import some functions from w3m.el and
+	w3m-proc.el.
+
+	* w3m.el: Require `w3m-util' instead of `w3m-macro'; Export
+	`w3m-kill-all-buffer' to w3m-util.el.
+	(w3m-work-binary-buffer-name): Removed.
+	(w3m-rendering-half-dump): Accept an optional argument for w3mmee and
+	w3m-m17n.
+	(w3m-rendering-buffer-1): Accept two optional arguments for w3mmee and
+	w3m-m17n.
+	(w3m-rendering-unibyte-buffer): Generate a new working buffer for
+	w3mmee and w3m-m17n, in order to avoid racing.
+	(w3m-rendering-multibyte-buffer): Ditto.
+
+	* w3m-proc.el: Require `w3m-util' instead of `w3m-macro'; Export
+	`w3m-buffer-title', `w3m-buffer-name-lessp' and `w3m-list-buffers' to
+	w3m-util.el.
+
+	* mime-w3m.el, w3m-antenna.el, w3m-bookmark.el, w3m-e21.el,
+	w3m-form.el, w3m-tabmenu.el, w3m-xmas.el: Require `w3m-util' instead of
+	`w3m-macro'.
+
+	* w3mhack.el (w3mhack-examine-modules): Handle w3m-util.el instead of
+	w3m-macro.el.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top): Colon keywords definition are moved to `w3m-macro.el'.
+	(w3m-process-connection-type): Imported from `w3m-proc.el'.
+	(w3m-next-buffer, w3m-previous-buffer): Simplified.
+	(w3m-delete-buffer): Call `w3m-quit' when the number of w3m-mode
+	buffers is equal to 1.
+	(w3m-quit): Kill all w3m-mode buffers.
+	(w3m-close-window): Call `w3m-select-buffer-close-window'.
+	(w3m-select-buffer-generate-contents): Simplified.
+	(w3m-select-buffer-close-window): New function.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items): Use `w3m-buffer-title'
+	and `w3m-list-buffers'.
+
+	* w3m-proc.el (top): Require `poe' module in XEmacs; Require `w3m-om'
+	in Mule; Define `w3m-current-title' to avoid byte-compile warning.
+	(w3m-process-connection-type): Exported to `w3m.el'.
+	(w3m-buffer-title, w3m-buffer-name-lessp, w3m-list-buffers): New
+	functions.
+
+	* w3m-macro.el (top): Colon keywords definition are imported from
+	`w3m.el'.
+	(w3m-pullout-buffer-number): Removed.
+
+	* w3m-e21.el (w3m-tab-line): Use `w3m-buffer-title' and
+	`w3m-list-buffers'.
+
+	* w3m.el (w3m-attributes): Wrap `w3m-w3m-attributes' with
+	`w3m-process-with-wait-handler'.
+	(w3m-w3m-attributes): Changed the argument spec.  Now, this function
+	can be used only in asynchronous context.
+	(w3m-rendering-unibyte-buffer): Changed the argument spec, and the
+	first argument `url' is refered instead of `w3m-current-url'.  This
+	change is made to avoid using `w3m-process-with-wait-handler' in
+	asynchronous context.
+	(w3m-prepare-content): Follow the change of
+	`w3m-rendering-unibyte-buffer'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-next-buffer): Use `w3m-pullout-buffer-number' when sort
+	buffer-name.
+	(w3m-previous-buffer): Ditto.
+	(w3m-select-buffer): Change the turn to call of functions.
+	(w3m-select-buffer-generate-contents): Use `w3m-pullout-buffer-number'
+	when sort buffer-name.  Use text-property instead of point when move to
+	point.
+	(w3m-select-buffer-recheck): Fix read-only error.
+	(w3m-select-buffer-copy-buffer): Rewrite.
+
+	* w3m-tabmenu.el (w3m-tab-menubar-make-items): Use
+	`w3m-pullout-buffer-number' instead of `w3m-tab-menubar-pull-bufnum'.
+	(w3m-tab-menubar-pull-bufnum): Remove.
+
+	* w3m-macro.el (w3m-pullout-buffer-number): New defsubst.
+
+	* w3m-e21.el (w3m-tab-line): Use `w3m-pullout-buffer-number' when sort
+	buffer-name.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-parse-attributes): Moved it again to w3m-macro.el.
+	* w3m-macro.el: The opposite of above.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Moved back some macros and inline functions from
+	w3m-macro.el.
+
+	* w3m-macro.el (w3m-parse-attributes, w3m-real-url, w3m-last-modified,
+	w3m-content-type, w3m-content-length, w3m-content-encoding,
+	w3m-content-charset, w3m-base-url, w3m-attributes): Moved back to
+	w3m.el.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve) Call `w3m-w3m-attributes' instead of
+	`w3m-attributes'.
+
+	* w3m-proc.el (w3m-process-with-wait-handler): Reimplemented.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Moved some macros and inline functions to w3m-macro.el.
+
+	* w3m-macro.el (w3m-time-newer-p, w3m-url-local-p, w3m-url-dtree-p,
+	w3m-parse-attributes, w3m-real-url, w3m-last-modified,w3m-content-type,
+	w3m-content-length, w3m-content-encoding, w3m-content-charset,
+	w3m-base-url, w3m-attributes, w3m-cursor-anchor, w3m-submit, w3m-image,
+	w3m-anchor, w3m-action, w3m-get-text-property-around): Moved from
+	w3m.el.
+	(w3m-condition-case): Use old-fashioned backquotes.
+
+	* w3m.el, w3m-xmas.el, w3m-tabmenu.el, w3m-form.el, w3m-e21.el,
+	w3m-bookmark.el, w3m-antenna.el, mime-w3m.el: Require `w3m-macro'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-get-header, w3m-w3m-attributes): Asynchronized.
+	(w3m-w3m-retrieve): Argument spec is changed.
+	(w3m-w3m-dump-head-source): Follow change of `w3m-w3m-attributes'.
+	(w3m-copy-buffer): Removed redundant code.
+	(w3m-about-header): Follow change of `w3m-w3m-get-header'.
+
+	* w3m-proc.el (w3m-process-do): The generated asynchronous process in
+	the post handler is started at the end of `w3m-process-sentinel'.
+	(w3m-process-do-with-temp-buffer): Ditto.
+	(w3m-process-sentinel): Fixed.
+
+	* w3m.el (w3m-download): Use `progn' instead of `inline', in order to
+	make debugging be easy.
+	(w3m-retrieve-and-render): Ditto.
+
+	* w3m-proc.el: Changed the order of asynchronous form evaluation and
+	starting asynchronous processes.
+	(w3m-process-queue): Renamed from `w3m-processes'.
+	(w3m-process-queue-registrable-p): New internal variable.
+	(w3m-process-with-coding-system): New macro.
+	(w3m-process-with-environment): Redefine with new backquote style.
+	(w3m-process-push): Refer `w3m-process-queue-registrable-p' to add the
+	handler to processes registered in `w3m-process-queue' safely.
+	(w3m-process-start-process): New internal function.
+	(w3m-process-start-queued-processes): Renamed from
+	`w3m-process-start-internal'; Call `w3m-process-start-process'; Follow
+	renaming of variables.
+	(w3m-process-stop, w3m-process-shutdown): Follow renaming of variables.
+	(w3m-process-with-null-handler): Start asynchronous processes at the
+	end of this macro.
+	(w3m-process-do, w3m-process-do-with-temp-buffer): Reimplemented.
+	(w3m-process-start): Reimplemented.  Asynchronous processes are not
+	started in this function.
+	(w3m-process-start-after): New internal function.
+	(w3m-process-sentinel): Follow renaming of variables and functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-macro.el (w3m-condition-case): New macro.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in: Fix the macro rule to generate *.elc files.
+
+	* w3m.el (w3m-display-hook): Add `w3m-select-buffer-update'.
+	(w3m-select-buffer-name): Move the definition position to avoid
+	byte-compile warning.
+	(w3m-goto-url): Removed the code to update the select buffer.
+	(w3m-select-buffer-update): New function.
+
+	* w3m-proc.el (w3m-process-with-wait-handler): Adhoc workaround.
+	(w3m-process-start): Fix.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Bind `C-cC-a' as the key to call
+	`w3m-switch-buffer'.
+	(w3m-info-like-map): Ditto. Bind `\C-c\C-@' and `C-c\C- ' as the key to
+	call `w3m-history-store-position'. Bind `C-cC-b' as the key to call
+	`w3m-history-restore-position'.
+	(w3m-mode): Modify doc-string.
+	(w3m-select-buffer-show-this-line-and-switch): New function.
+	(w3m-select-buffer-name): New internal constant.
+	(w3m-select-buffer-mode-map): Bind `w' and `h' as the key to call
+	`w3m-select-buffer-show-this-line-and-switch'.
+	(w3m-select-buffer-mode): Modify doc-string.
+	(w3m-select-buffer): Use `w3m-select-buffer-name'. If alive
+	select-buffer, use it.  Add optional argument `nomsg'.
+	(w3m-select-buffer-generate-contents): If w3m-current-title is
+	`<no-title>', use w3m-current-url.
+	(w3m-select-buffer-show-this-line): Return selected buffer.
+	(w3m-select-buffer-quit): Always pop up the w3m window when quit.
+	(w3m-select-buffer-show-this-line-and-quit): Rewrite.
+	(w3m-goto-url): If alive w3m-select-buffer, update it.
+	(w3m-copy-buffer): If w3m-pop-up-windows is nil, use
+	switch-to-buffer. Block to change w3m-select-buffer to w3m buffer, if
+	w3m-pop-up-windows is t.
+	(top): Add autoload of `w3m-setup-tab' and `w3m-switch-buffer'.
+	(w3m-setup-menu): Call `w3m-setup-tab-menu' when w3m-use-tab-menubar is
+	t.
+	(w3m-mode): Remove to call `w3m-setup-tab-menu'.
+
+	* w3m-e21.el (TOP): Remove `(require 'w3m-tabmenu)'.
+
+	* w3m-e20.el (TOP): Ditto.
+
+	* w3m-om.el (TOP): Ditto.
+
+	* w3m-xmas.el (w3m-setup-tab-menu, w3m-tab-menubar-pull-bufnum)
+	(w3m-tab-menubar-make-items, w3m-select-buffer): Remove.
+	(w3m-setup-menu): Call `w3m-setup-tab-menu' when w3m-use-tab-menubar is
+	t.
+
+	* w3mhack.el (w3mhack-examine-modules): Revival byte-compile
+	`w3m-tabmenu.el' when XEmacs.
+
+	* w3m-tabmenu.el (ALL): Full rewrite to use `easymenu'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-select-buffer-horizontal-window): New user option.
+	(w3m-select-buffer-window-size): Ditto.
+	(w3m-lynx-like-map): Bind `C-cC-b' as the key to call
+	`w3m-switch-buffer.
+	(w3m-info-like-map): Ditto.
+	(w3m-select-buffer-window): New internal variable.
+	(w3m-select-buffer-message): New internal constant.
+	(w3m-select-buffer): New implementation.
+	(w3m-select-buffer-generate-contents): New function.
+	(w3m-select-buffer-mode-map): New keymap.
+	(w3m-select-buffer-mode): New function.
+	(w3m-select-buffer-recheck): New command.
+	(w3m-select-buffer-current-buffer): New macro.
+	(w3m-select-buffer-show-this-line): New command.
+	(w3m-select-buffer-next-line): Ditto.
+	(w3m-select-buffer-previous-line): Ditto.
+	(w3m-select-buffer-copy-buffer): Ditto.
+	(w3m-select-buffer-delete-buffer): Ditto.
+	(w3m-select-buffer-quit): Ditto.
+	(w3m-select-buffer-show-this-line-and-quit): Ditto.
+
+	* w3m-xmas.el (w3m-switch-buffer): Renamed from `w3m-select-buffer'.
+
+	* w3m-tabmenu.el (w3m-switch-buffer): Renamed from `w3m-select-buffer'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e20.el (w3m-display-inline-images-p): Renamed from
+	`w3m-display-inline-image-p'.
+
+	* w3m-om.el (w3m-display-inline-images-p): Ditto.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Bind `w3m-display-inline-images'
+	instead of `w3m-current-image-status'.
+
+	* mime-w3m.el (mime-w3m-display-inline-images): Renamed from
+	`mime-w3m-display-inline-image'.
+	(mime-w3m-preview-text/html): Follow the change above; Bind
+	`w3m-display-inline-images' instead of `w3m-current-image-status'.
+
+	* w3m-xmas.el (w3m-display-inline-images-p): Renamed from
+	`w3m-display-inline-image-p'; Refer `w3m-display-inline-images' instead
+	of `w3m-current-image-status'.
+
+	* w3m-e21.el (w3m-display-inline-images-p): Renamed from
+	`w3m-display-inline-image-p'; Refer `w3m-display-inline-images' instead
+	of `w3m-current-image-status'.
+
+	* w3m.el (w3m-display-inline-image): Abolish.
+	(w3m-current-image-status): Ditto.
+	(w3m-display-inline-images): New buffer local variable.
+	(w3m-default-display-inline-images): New user option.
+	(w3m-toggle-inline-images-permanently): Ditto.
+	(w3m-toggle-inline-image): Added docstring.
+	(w3m-toggle-inline-images): Ditto; Refer `w3m-display-inline-images'
+	instead of `w3m-current-image-status'.
+	(w3m-view-url-with-external-browser): Ditto.
+	(w3m-goto-url): Ditto.
+	(w3m-toggle-inline-images): Change the value of
+	`w3m-display-inline-images' even when displaying images is not
+	completed.
+	(w3m-copy-buffer): Set `w3m-display-inline-images' according to
+	`w3m-toggle-inline-images-permanently'.
+	(w3m-mode): Set value of `w3m-display-inline-images' according to
+	`w3m-default-display-inline-images'.
+	(w3m-goto-url): Set `w3m-display-inline-images' according to
+	`w3m-toggle-inline-images-permanently'; Use
+	`w3m-display-inline-images-p' instead of `w3m-display-inline-image-p'.
+	(w3m-redisplay-with-charset): Use `w3m-display-inline-images' instead
+	of `w3m-display-inline-image'.
+	(w3m-region): Use `w3m-display-inline-images-p' instead of
+	`w3m-display-inline-image-p'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (Top): Abolished autoload of `w3m-setup-tab'.
+	(w3m-use-tab-menubar): Revival.
+	(w3m-lynx-like-map): Bind `C-cC-s' as the key to call
+	`w3m-select-buffer'.
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Update the doc-string for the commands `w3m-next-buffer',
+	`w3m-previous-buffer', `w3m-delete-buffer' and `w3m-select-buffer'.
+	Use `w3m-use-tab-menubar' and `w3m-setup-tab-menu()'.
+
+	* w3m-e21.el (Top): Require `w3m-tabmenu'.
+
+	* w3m-e20.el (Top): Ditto.
+
+	* w3m-om.el (Top): Ditto.
+
+	* w3m-tabmenu.el: Rename from `w3m-tab.el'.
+	(w3m-setup-tab-menu): Rename from `w3m-setup-tab'.
+	(w3m-tab-menubar-make-items): Add new option `nomenu' for
+	w3m-select-buffer().
+	(w3m-select-buffer): New function.
+
+	* w3m-xmas.el (w3m-setup-tab-menu): Use `defun' insted of `ignore' to
+	avoid byte-compile warnings.
+	(w3m-tab-menubar-pull-bufnum, w3m-tab-menubar-make-items)
+	(w3m-select-buffer): Copy from w3m-tabmenu.el
+
+	* w3mhack.el (w3mhack-examine-modules): Don't byte-compile
+	`w3m-tabmenu.el' when XEmacs.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2.1 from emacs-w3m-1_2 branch.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Remove the last segment of the base URL
+	before concatination the specified URL which has only a query part and
+	the base URL.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-proc.el (w3m-process-new): Argument spec is changed.
+	(w3m-process-process): New macro.
+	(w3m-process-handlers): Follow the change of `w3m-process-new'.
+	(w3m-process-kill-process): New inline function.
+	(w3m-process-start-internal): Strict checking.
+	(w3m-process-stop): Fixed.
+	(w3m-process-with-wait-handler): Simplified.
+	(w3m-process-do): Strict checking of redundant evaluation.
+	(w3m-process-do-with-temp-buffer): Ditto.
+	(w3m-process-start): Not bind `w3m-process-exit-status' as a local
+	variable.
+	(w3m-process-sentinel): Ensure that this function will be never called
+	repeatedly; Strict checking.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (top): Abolished a ignore() of `w3m-use-tab'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-head-source): Fix the problem which occurs when
+	no content is retrieved.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Handle `w3m-proc.el'.
+
+	* w3m.el: Modified to retrieve contents asynchronously.
+	(top): Require `w3m-proc.el' instead of `w3m-macro.el'.
+	(w3m-command-environment): Old name is `w3m-process-environment'.
+	(w3m-display-hook): Changed the default value.
+	(w3m-current-buffer): New internal variable.
+	(w3m-arrived-user-alist): Renamed to `w3m-process-user-alist' and
+	exported to `w3m-proc.el'.
+	(w3m-process-connection-type, w3m-process-user, w3m-process-passwd,
+	w3m-process-user-counter, w3m-process-realm, w3m-process-temp-file,
+	w3m-process-exit-status): Exported to `w3m-proc.el'.
+	(w3m-toggle-inline-images-internal): Follow change of
+	`w3m-create-image'.
+	(w3m-exec-process): Removed.
+	(w3m-exec-get-user): Renamed to `w3m-process-get-user' and exported to
+	`w3m-proc.el'.
+	(w3m-exec-get-passwd): Renamed to `w3m-process-get-passwd' and exported
+	to `w3m-proc.el'.
+	(w3m-exec-set-user): Renamed to `w3m-process-set-user' and exported to
+	`w3m-proc.el'.
+	(w3m-get-server-root): Renamed to `w3m-process-get-server-root' and
+	exported to `w3m-proc.el'.
+	(w3m-proxy-user): Renamed to `w3m-process-proxy-user' and exported to
+	`w3m-proc.el'.
+	(w3m-proxy-passwd): Renamed to `w3m-process-proxy-passwd' and exported
+	to `w3m-proc.el'.
+	(w3m-exec-filter): Renamed to `w3m-process-filter' and exported to
+	`w3m-proc.el'; Slightly modified to protect illegal type of
+	`w3m-current-url'.
+	(w3m-decode-encoded-contents, w3m-x-moe-decode-buffer,
+	w3m-local-dirlist-cgi, w3m-rendering-half-dump): Use
+	`w3m-process-with-environment' to adjust the environment variables.
+	(w3m-local-retrieve, w3m-cid-retrieve): Insert the retrieved content to
+	this current buffer.
+	(w3m-w3m-get-header): Call `w3m-process-start' instead of
+	`w3m-exec-process'.
+	(w3m-w3m-dump-head-source, w3m-w3m-retrieve, w3m-about-retrieve,
+	w3m-retrieve, w3m-download): Reconstructed to support asynchronous
+	operation.
+	(w3m-exec): Removed.
+	(w3m-retrieve-and-render, w3m-prepare-content): New function.
+	(w3m-quit): Call `w3m-process-shutdown'.
+	(w3m-buffer-setup): New inline function.
+	(w3m-goto-url): Accept the 6th optional argument, and modified for
+	asynchronous processing.
+	(w3m-goto-url-localcgi-movepoint): Removed.
+	(w3m-move-point-for-localcgi): New function.
+	(w3m): Removed redundant quote from the definition of
+	`focusing-function'; Display the browsing buffer.
+	(w3m-region): Set `w3m-current-buffer' to this current buffer.
+	(w3m-about, w3m-about-header): Insert the generated content to this
+	current buffer.
+	(w3m-about-history, w3m-about-db-history): To access buffer-local
+	variables, refer the value of `w3m-current-buffer'.
+
+	* w3m-xmas.el (top): Require `w3m-proc.el' instead of `w3m-macro.el'.
+	(w3m-create-image): Accept the 4th optional argument, and modified for
+	asynchronous processing.
+
+	* w3m-weather.el (w3m-about-weather): Insert the generated content to
+	this current buffer.
+
+	* w3m-proc.el: New file.
+
+	* w3m-namazu.el (w3m-about-namazu): Insert the generated content to
+	this current buffer.
+
+	* w3m-macro.el (w3m-with-work-buffer): Removed.
+	(w3m-kill-buffer): New inline function.
+
+	* w3m-filter.el (w3m-filter): Filtering the content in this current
+	buffer.
+
+	* w3m-e21.el (top): Require `w3m-proc.el' instead of `w3m-macro.el'.
+	(w3m-create-image): Accept the 4th optional argument, and modified for
+	asynchronous processing.
+
+	* w3m-antenna.el (w3m-about-antenna): Insert the generated content to
+	this current buffer.
+
+	* mime-w3m.el (mime-w3m-cid-retrieve): Insert the retrieved content to
+	this current buffer.
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Insert the retrieved content to
+	this current buffer.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-tab-menubar): Abolished.
+	(w3m-pop-up-windows): Changed the expression to decide its default
+	value.
+	(w3m-setup-menu): Removed the code to set the menubar item of TAB.
+	(w3m-fontify-images): Accept an image-type input tag.
+	(w3m-fontify): To accept an image-type input tag, changed the order of
+	calling fontify functions.
+	(top): Add autoload of `w3m-setup-tab'.
+	(w3m-mode): Call `w3m-setup-tab'.
+	(w3m-tab-menubar-open-buffer): Moved to `w3m-tab.el'.
+	(w3m-tab-menubar-update): Ditto.
+	(w3m-tab-menubar-pull-bufnum): Ditto.
+	(w3m-tab-menubar-make-items): Ditto.
+
+	* w3m-tab.el: New file.
+
+	* w3m-e21.el (top): Define `w3m-use-tab' to avoid byte-compile warning.
+	(w3m-use-tab): Moved to `w3m.el'.
+	(w3m-setup-tab): Define as a dummy function.
+
+	* w3m-xmas.el (w3m-setup-tab): Define as a dummy function.
+
+	* w3m-form.el: Changes of the structure of the `w3m-form' object.
+	(w3m-form-put-property): New inline function.
+	(w3m-form-get-property): New macro.
+	(w3m-form-put): Use `w3m-form-put-property'.
+	(w3m-form-get): Use `w3m-form-get-property'.
+	(w3m-form-make-form-data): Follow change of structure of the `w3m-form'
+	object.
+	(w3m-form-parse-forms): Accept an image-type input tag.
+	(w3m-form-resume): Ditto.
+	(w3m-form-fontify): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-tab-menubar): New user variable.
+	(w3m-setup-menu): Handling tab-menubar.
+	(w3m-tab-menubar-open-buffer, w3m-tab-menubar-update,
+	w3m-tab-menubar-make-items): New functions.
+	(w3m-tab-menubar-pull-bufnum): New macro.
+	(top-level): Add define-key-after() to avoid byte-compile warnings, if
+	XEmacs.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m.el (w3m-start-url, w3m-contents-url): New buffer-local vars.
+	(w3m-clear-local-variables): Also clear `w3m-start-url' and
+	`w3m-contents-url'.
+	(w3m-copy-local-variables): Also copy `w3m-start-url' and
+	`w3m-contents-url'.
+	(w3m-fontify-anchors, w3m-check-link-tags): Add support the tags
+	"previous", "start" and "contents".
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (autoload): Added w3m-antenna-add-current-url.
+	(w3m-lynx-like-map): Likewise.
+	(w3m-info-like-map): Likewise.
+	(w3m-mode): Added w3m-antenna-add-current-url to doc string.
+
+	* w3m-antenna.el (string-with-default): New widget.
+	(string-with-default-value-create): New function.
+	(w3m-antenna-sites): Use string-with-default widgets instead of string
+	widgets.
+	(w3m-antenna-tmp-url): New variable.
+	(w3m-antenna-tmp-title): New variable.
+	(w3m-antenna-add-current-url): New function.
+	(w3m-antenna-add): New function.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-replace): Don't use `save-excursion' because
+	point at start time may be deleted at end time.
+	(w3m-form-textarea-replace): Ditto.
+	(w3m-form-textarea-info): Use `w3m-get-text-property-around'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-ftp-url): Rewrote.
+	(w3m-download): Use `w3m-goto-ftp-url' for ftp files.
+
+	* w3m-e20.el (w3m-make-ccl-coding-system): Copied from w3m-fsf.el;
+	don't call `make-coding-system' if a coding-system already exists.
+	* w3m-e21.el (w3m-make-ccl-coding-system): Moved from w3m-fsf.el.
+	* w3m-fsf.el (w3m-make-ccl-coding-system): Moved to w3m-e21.el.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top): Removed autoload of `w3m-remove-image'.
+
+	* w3m-om.el (w3m-remove-image): Define as a dummy function.
+
+	* w3m-e20.el (w3m-remove-image): Define as a dummy function.
+
+	* w3m.el (w3m-quick-start): New option.
+	(w3m-input-url): When the default string is equal to nil, it is not
+	displayed in the prompt.
+	(w3m): Refer `w3m-quick-start' to decide the action when interactively
+	called.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-current-title, w3m-current-url): Define them before
+	loading the version specific modules.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-xmas.el (format-buffers-tab-line): Protect aginst errors caused
+	by the illegal type of `w3m-current-url'.
+
+	* w3m-e21.el (top): Define `w3m-current-url' and `w3m-current-title' to
+	avoid byte-compile warnings.
+	(w3m-insert-header-line): Protect aginst errors caused by the illegal
+	type of `w3m-current-url'.
+	(w3m-tab-line): Protect aginst errors caused by illegal types of
+	`w3m-current-url' and `w3m-current-title'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (format-buffers-tab-line): Don't use the value of
+	`w3m-current-title' if it is nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-exec-filter): Modify regexp pattern of "Wrong username or
+	passwd".
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.2 from emacs-w3m-1_2 branch.
+
+	* w3m.el (emacs-w3m-version): Modified.
+	(top): Protect against the error occurs when `w3m-ucs.el' isn't found.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* README.shimbun.ja (mew-shimbun.el): Modify description.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Added argument `empty'.
+	(w3m-goto-url-new-session): Call `w3m-copy-buffer' with argument
+	`empty' non-nil; If new url has `name' portion, goto the base url
+	first.
+	(w3m-view-this-url): Likewise.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (DOCS): Add `FAQ'.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Decode value of input tag.
+	(w3m-form-replace): Use `w3m-get-text-property-around'.
+
+	* w3m.el (w3m-parse-attributes): Add :decode-entity attribute.
+	(w3m-decode-entities-string): New function.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-lynx-like-map): Remove binding of `C-tab' and `C-S-tab'
+	Bind `C-cC-t' as the key to call `w3m-copy-buffer'.  Bind `C-cC-p' as
+	the key to call `w3m-previous-buffer'.  Bind `C-cC-n' as the key to
+	call `w3m-next-buffer'.  Bind `C-cC-w' as the key to call
+	`w3m-delete-buffer'.
+	(w3m-info-like-map): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-reload-this-page): When execute with prefix argument,
+	clear post-data certainty.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Remove processing url's forms from the history
+	when post data.
+	(w3m): Use `select-frame-set-input-focus' instead of `x-focus-frame'.
+
+	* w3m-form.el (w3m-form-resume): Fix typo.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-delete-buffer): New function.
+	(w3m-copy-buffer): Call `w3m-goto-url' instead of copying buffer
+	content.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-form.el (w3m-form-resume): Remove submit button status to support
+	forms containing multiple submit buttons.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-accept-languages): Don't use config file if there are no
+	contents for "accept_language".
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-tab-unselected-face): Setup color for tty.
+	(w3m-tab-selected-face): Ditto.
+	(w3m-tab-background-face): Ditto.
+
+	* w3m.el (w3m-next-buffer): New function.
+	(w3m-previous-buffer): Ditto.
+	(w3m-lynx-like-map): Bind `C-tab' as the key to call `w3m-next-buffer';
+	Bind `C-S-tab' as the key to call `w3m-previous-buffer'.
+	(w3m-info-like-map): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-accept-languages): New option.
+	(w3m-dump-head-source-command-argument): Abolished.
+	(w3m-dump-head-source-command-arguments): New constant.
+	(w3m-w3m-expand-arguments): New macro.
+	(w3m-w3m-dump-head-source): To generate command arguments for w3m, use
+	`w3m-w3m-expand-arguments' and refer
+	`w3m-dump-head-source-command-arguments'.
+	(w3m-rendering-half-dump): To generate command arguments for w3m, use
+	`w3m-w3m-expand-arguments'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-reload-this-page): Change the semantic of the prefix
+	argument to `clear form and post datas'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-pop-up-windows): Changed default value
+	(See [emacs-w3m: 01999]).
+
+	* w3m-e21.el (w3m-tab-unselected-face): Changed underline color.
+	(w3m-tab-selected-face): Ditto.
+	(w3m-tab-background-face): Ditto.
+	(w3m-tab-line): Removed needless local variable `len'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-header-line-location-title-face): Specify background
+	color.
+	(w3m-header-line-location-title-face): Ditto.
+	(w3m-use-tab): New user option.
+	(w3m-tab-width): Ditto.
+	(w3m-tab-unselected-face): New face.
+	(w3m-tab-selected-face): Ditto.
+	(w3m-tab-background-face): Ditto.
+	(w3m-header-line-map): New variable.
+	(w3m-setup-header-line): If w3m-use-tab is non-nil, use header-line as
+	a tab area.
+	(w3m-insert-header-line): New function.
+	(w3m-tab-make-keymap): New function.
+	(w3m-tab-line): New function.
+	(w3m-fontify-after-hook): Add 'w3m-insert-header-line.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-reload-this-page): If form data exist, ask to make use of
+	its. Check form data modified.
+
+	* README.shimbun.ja (mew-shimbun.el): Modify description.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Dismantle `w3m-current-url' of
+	its query part before the rest is refered as the default value of the
+	action.
+
+	* w3m.el (w3m-ccl-write-repeat): Accept optional arguments to avoid
+	difference between Emacesn on CCL.
+	(w3m-iso-latin-1-decoder): Call `w3m-ccl-write-repeat' with optional
+	argument.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* README.shimbun.ja: Add information for mew-shimbun.el
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-terminal-coding-system): Changed default value for
+	w3m(en).
+	(w3m-input-coding-system): Ditto.
+	(w3m-default-coding-system): Ditto.
+	(w3m-iso-latin-1-decoder): Fixed for latin-iso8859-1 under old Emacsen.
+	(w3m-ccl-write-repeat): Ditto.
+
[phone]  ORI Manabu <[e-mail]>
+
+	* w3m.el (w3m-type): Added the expression to detect `w3m-m17n'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-accept-japanese-characters): Use `-halfdump' option
+	instead of `-dump' option in order to detect the real internal
+	character set of `w3m-command'.
+	(w3m-profile-directory): Fixed the expression to determine the default
+	value for the environment where `w3m-command' includes redundant
+	suffixes.
+	(w3m-default-save-directory): Ditto.
+	(w3m-euc-japan-encoder): Define in the old-style backquote.
+	(w3m-iso-latin-1-encoder): Ditto.
+
+	* w3m.el (w3m-use-mule-ucs): Simplified.
+	(w3m-ccl-write-repeat): Fixed.
+	(w3m-euc-japan-decoder): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-ccl-write-repeat): Avoid a byte-compile warning.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-info-like-map): Bind `\M-g' as the key to call
+	`goto-line'.
+
+	* w3m.el (w3m-use-mule-ucs): More safe default value.
+	(w3m-accept-japanese-characters): Improved automatic detection.
+	(w3m-ccl-write-repeat): Fix typo.
+
+	* w3m.el (w3m-type): Use the default value which detected
+	automatically.
+	(w3m-accept-japanese-characters): New internal variable.
+	(w3m-terminal-coding-system): Changed the default value for w3m which
+	doesn't accept Japanese characters.
+	(w3m-input-coding-system): Ditto.
+	(w3m-output-coding-system): Ditto.
+	(w3m-default-coding-system): Changed the default value for the
+	environment that `w3m-language' doesn't equal to "Japanese".
+	(w3m-internal-characters-alist): New constant.
+	(w3m-ccl-write-repeat): New internal function to generate a part of CCL
+	decoder.
+	(w3m-euc-japan-decoder): Modified.
+	(w3m-iso-latin-1-decoder): New CCL program.
+	(w3m-iso-latin-1-encoder): New CCL program which is used when
+	`w3m-use-mule-ucs' equals to nil.
+	(w3m-iso-latin-1): New coding system.
+
+	* w3m-ucs.el (w3m-ucs-generate-ncr-program): New constant.
+	(w3m-euc-japan-encoder): Refer `w3m-ucs-generate-ncr-program'.
+	(w3m-iso-latin-1-encoder): New CCL program.
+
+	* w3m-macro.el (w3m-static-when): New macro.
+	(w3m-static-unless): Ditto.
+
+	* w3m-e21.el (w3m-setup-header-line): Protect aginst the error occurs
+	when `w3m-current-url' isn't string.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Support `Xref' header in SHIMBUN
+	article.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m): Call `w3m-mode' for a new session; use
+	`generate-new-buffer' instead of `get-buffer-create' for a new session;
+	allow the optional 2nd arg NEW-SESSION.
+	(w3m-goto-url-new-session): New command.
+	(w3m-goto-url): Always set the value of
+	`mode-line-buffer-identification'.
+	(w3m-mode): Update the doc-string for the new command
+	`w3m-goto-url-new-session'.
+	(w3m-info-like-map): Bind the key "G" to the command
+	`w3m-goto-url-new-session'.
+	(w3m-lynx-like-map): Bind the key "G" to the command
+	`w3m-goto-url-new-session'; replace the key "G" to "\M-g" for the
+	command `goto-line'.
+	(w3m-copy-buffer): Make all the arguments optional; make the 1st arg
+	BUF default to the current buffer.
+	(w3m-view-this-url): Call `w3m-copy-buffer' with the 1st arg nil.
+	(w3m-region, w3m-find-file, w3m-browse-url, w3m-gohome, w3m-download):
+	Add autoload magic cookie.
+	(w3m-popup-frame-p): Allow the optional arg FORCE.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Don't byte-compile w3m-ucs.el
+	when the version of XEmacs is not greater than or equal to 21.2.37.
+
+	* w3m.el (w3m-pop-up-frames, w3m-pop-up-windows): Add a recommendation
+	to the doc-string about the use of XEmacs' buffers tab.
+
+	* w3m-xmas.el (w3m-xmas-update-tab-in-gutter): New function; add it to
+	`w3m-display-hook'.
+	(format-buffers-tab-line): Advise the function to show the current
+	title string in the buffer tab.
+	(w3m-xmas-show-current-title-in-buffer-tab): New user option.
+	(TopLevel): When compiling, use `autoload' "w3m" for the void functions
+	instead of the use of `defalias' to `ignore'; autoload "gutter-items"
+	for `update-tab-in-gutter'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Bind `pop-up-windows' to the value of
+	`w3m-pop-up-windows'.
+	(w3m-pop-up-windows): New user option.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-rendering-buffer-1): Redundant argument is removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url): Fixed the interactive spec.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+	    Suggested by Clifford Caoile <[e-mail]>.
+
+	* w3m.el (w3m-info-like-map, w3m-lynx-like-map): Bind S-SPC key to the
+	command `w3m-scroll-down-or-previous-url'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-mule-ucs): Changed.
+	(w3m-url-encode-string): Refer `w3m-default-coding-system' and
+	`w3m-coding-system' when `coding' argument is lacked.
+	(w3m-url-decode-string): Ditto.
+	(w3m-rendering-buffer-1): Define as a normal function.
+	(w3m-lynx-like-map): Changed the key which calls `w3m-save-image' from
+	`M-I' to `M-i'.
+	(w3m-info-like-map): Ditto; Registerd `O' as the key which calls
+	`w3m-db-history'.
+
+	* aclocal.m4 (AC_ADD_LOAD_PATH): Remove empty lines from auto detection
+	result.
+
+	* Makefile.in (DOCS): Add FAQ.ja, README.namazu.ja and
+	README.shimbun.ja.
+	(tarball): Handle attic/ and patches/.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-mode): Update the doc-string about making a new session.
+	(w3m-info-like-map, w3m-lynx-like-map): Bind keys for the new commands
+	to make a new session.
+	(w3m-mouse-view-this-url-new-session): New command.
+	(w3m-view-this-url-new-session): New command.
+	(w3m-mouse-view-this-url): Make it can create a new session.
+	(w3m-view-this-url): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top): Add autoload for `w3m-form-parse-buffer'.
+	(w3m-display-hook): New option.
+	(w3m-decoder-alist): Reindent.
+	(w3m-use-form): Changed default value.
+	(w3m-dirlist-cgi-program): Changed the expression to get default path.
+	(w3m-work-binary-buffer-name): New constant.
+	(w3m-attributes): Handle URLs which start `about://source/'; It isn't
+	defined as an inline function but a normal function to avoid
+	byte-compile error.
+	(w3m-arrived-add): Fixed codes to remove fragments in the specified
+	URL.
+	(w3m-local-retrieve): Clean up.
+	(w3m-about-retrieve): Handle URLs which start `about://source/'.
+	(w3m-retrieve): Doesn't call `w3m-filter'.
+	(w3m-remove-meta-charset-tags): Renamed from `w3m-remove-meta-tags'.
+	(w3m-rendering-region): Removed.
+	(w3m-rendering-extract-title): New function.
+	(w3m-rendering-half-dump): Ditto.
+	(w3m-rendering-buffer-1): Ditto.
+	(w3m-rendering-unibyte-buffer): Ditto.
+	(w3m-rendering-multibyte-buffer): Ditto.
+	(w3m-exec): Call `w3m-rendering-unibyte-buffer' instead of
+	`w3m-rendering-region'.
+	(w3m-edit-url): Improved to handle URLs which start `about://source/'
+	or `about://header/'.
+	(w3m-goto-url): Removed code to highlight current line in the history;
+	Call hook functions in `w3m-display-hook'.
+	(w3m-region): Call `w3m-rendering-multibyte-buffer' instead of
+	`w3m-rendering-region'.
+	(w3m-about): Clean up.
+	(w3m-about-source): Removed.
+	(w3m-view-source): Make URLs which start `about:' available.
+	(w3m-about-header): Simplified.
+	(w3m-history-highlight-current-url): New function.
+
+	* w3m-form.el (w3m-form-parse-buffer): New function.
+	(w3m-form-parse-region): Removed.
+
+	* w3m-filter.el (w3m-filter-rules): Add the rule to call
+	`w3m-filter-www.zdnet.co.jp'.
+	(w3m-filter): Protect against wrong type argument.
+	(w3m-filter-www.zdnet.co.jp): New function.
+
+	* w3m-antenna.el (w3m-antenna-size): Call `w3m-remove-comments' and
+	`w3m-filter' before checking size of contents.
+
+	* w3mhack.el (w3mhack-load-path): Search `un-define' instead of
+	`un-define.el' to check the path where Mule-UCS is installed.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Handle `mew-shimbun.el'.
+
+	* w3m-dtree.el (w3m-dtree-indent-strings, w3m-dtree-stop-strings):
+	Throw out the "Japanese Character" for non-mule's environments.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* aclocal.m4 (AC_ADD_LOAD_PATH): When `yes' or null string is passed as
+	an argument, call `w3mhack-load-path' to search places of required
+	modules automatically.
+
+	* w3mhack.el (w3mhack-load-path): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-image): Call `w3m-fix-gif' if
+	`w3m-should-convert-interlaced-gifs' is non-nil.
+	(w3m-fix-gif): Renamed from `w3m-unoptimize-animated-gif'; convert an
+	interlaced gif to be non-interlaced as well as unoptimization.
+	(w3m-cache-fixed-gif-images-max-length): Renamed from
+	`w3m-cache-unoptimized-gif-images-max-length'.
+	(w3m-cache-fixed-gif-images): Renamed from
+	`w3m-cache-unoptimized-gif-images'.
+	(w3m-should-convert-interlaced-gifs): New variable.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* README.ja: Add description about "new custom".
+
+	* README: Ditto.
+
+	* w3m.el (w3m-attributes): When URL matches `about://source/', returns
+	nil as its content-charset.
+	(w3m-about-retrieve): When URL matches `about://source/', don't call
+	`encode-coding-region'.
+	(w3m-about-source): Don't call `w3m-decode-region'.
+	(w3m-exec): Use `set-buffer-file-coding-system' instead of to set
+	`buffer-file-coding-system'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-exec): Substitute `w3m-current-coding-system' for
+	`buffer-file-coding-system' to show the current coding system in the
+	mode line.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-use-mule-ucs): Don't use Mule-UCS package for XEmacs
+	versions prior to 21.2.37.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top): It doesn't require `thingatpt'.
+	(w3m-url-at-point): New function.
+	(w3m-input-url): Call `w3m-url-at-point' instead of `thing-at-point';
+	The 4th optional argument is added.
+	(w3m): Call `w3m-input-url' with the 4th argument.
+
[phone]  NAKAJIMA Mikio  <[e-mail]>
+
+	* README: Add description about ftp site of FLIM.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-auto-insert-image): Change from 'defcont' to
+	'defcustom', again.
+	(mew-w3m-safe-url-regexp): New constant.
+	(mew-w3m-view-inline-image): Rewrite.
+	(mew-mime-text/html-w3m): Bind 'w3m-safe-url-regexp' to
+	'mew-w3m-safe-url-regexp'.
+
[phone]  NAKAJIMA Mikio  <[e-mail]>
+
+	* README.ja: Divided original section 2. a) into two parts, 2. a) and
+	2. b).  Add new section 2. c), 2. e) about APEL, FLIM, shimbun library.
+	* README: Ditto.
+
+	* FAQ.ja (Q. ~~~~ Emacs ~?): Add description about where to get APEL.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Accept URL which has the scheme part only.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-url-components-regexp): Don't except `\' for scheme,
+	authority and path.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top): Removed autoload for `regexp-opt'.
+
+	* w3m-weather.el (top): Likewise.
+
+	* w3m-om.el (top): Add autoload for `regexp-opt'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-entity-regexp): Unified to the use of `regexp-opt';
+	autoload regexp-opt for old Emacsen.
+
+	* attic/regexp-opt.el: New file.
+
+	* README.ja, README: Emacs-w3m requires the module regexp-opt.
+
+	* w3m-weather.el: Autoload regexp-opt for old Emacsen.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-safe-url-regexp): New variable.
+	(w3m-retrieve): When `w3m-safe-url-regexp' has non-nil value and it
+	matches the requested URL, doesn't fetch its contents.
+
+	* mime-w3m.el (mime-w3m-display-inline-image): New option.
+	(mime-w3m-preview-text/html): In order to avoid web bug which is
+	described in [mew-dist 19267], restrict accesible URLs.
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Likewise.
+
+	* w3m-weather.el (w3m-weather-url-alist): Abolished.
+	(w3m-weather-completion-table): New constant.
+	(w3m-weather-default-area): Refer `w3m-weather-completion-table'
+	instead of `w3m-weather-url-alist' to decide customize spec.
+	(w3m-weather-input-history): New variable.
+	(w3m-weather-input-area): New function.
+	(w3m-weather-area-completion): Ditto.
+	(w3m-weather): Call `w3m-weather-input-area'.
+	(w3m-about-weather): Refer `w3m-weather-completion-table' instead of
+	`w3m-weather-url-alist' to convert the area to the real URL.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m-auto-insert-image): Change from 'defcustom' to
+	'defconst' and default value to 'nil'.
+	(mew-w3m-view-inline-image): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Accept the 3rd optional argument.
+	(w3m): Improved interactive form.
+
[phone]  Yuuichi Teranishi  <[e-mail]>,
+	    TSUCHIYA Masatoshi <[e-mail]>
+
+	* w3m-e21.el (w3m-form-button-keymap): Renamed from
+	`w3m-widget-keymap'.
+	(w3m-form-make-button): Fixed.
+	(w3m-setup-widget-faces): Revived.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m): Always prompts user for a URL string.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-url-alist): Refer
+	`http://weather.yahoo.co.jp'.
+	(w3m-weather-default-area): Change default region.
+	(w3m-weather-filter-functions): Change default value.
+	(w3m-about-weather): Accept `no-cache' argument.
+	(w3m-weather-remove-headers): Modified for Yahoo.
+	(w3m-weather-remove-footers): Ditto.
+	(w3m-weather-insert-title): Ditto.
+	(w3m-weather-remove-weather-images): Removed.
+	(w3m-weather-remove-washing-images): Removed.
+	(w3m-weather-remove-futon-images): Removed.
+	(w3m-weather-remove-week-weather-images): Removed.
+
+	* w3m-e21.el (w3m-widget-keymap): New keymap.
+	(w3m-form-make-button): Set `w3m-widget-keymap' as keymap on buttons;
+	Fix condition to make buttons.
+	(w3m-setup-widget-faces): Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* mew-w3m.el, w3m-form.el, w3m.el: Remove useless whitespaces.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Replace `re-search-forward' to
+	`search-forward'; bind `beg' as a non-global variable.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-dirlist-cgi): Remove <from>...</form>.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): Fix incompatibility of drive letter.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (toplevel): Require 'wid-edit.
+	(w3m-form-button-face): Set background and foreground color; Set box
+	line-width as 2.
+	(w3m-form-button-pressed-face): Ditto.
+	(w3m-form-button-mouse-face): New face.
+	(w3m-form-button): New widget button.
+	(w3m-form-make-button): Use `widget-convert-button' to put
+	w3m-form-button.
+	(w3m-setup-widget-faces): New function.
+	(w3m-mode-hook): Add `w3m-setup-widget-faces'.
+	(w3m-form-make-button): Don't check :box attribute when
+	w3m-form-use-fancy-faces is non-nil.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-decoder-alist): Fix for Windows or OS/2 environments.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-display-inline-image): Update document.
+	(w3m-decoder-alist): Change default value.
+	(w3m-current-image-status): New buffer-local variable.
+	(w3m-which-command): Export to w3m-macro.el.
+	(w3m-decode-encoded-contents): Small change.
+	(w3m-expand-url): Fix to remove an empty query part and an empty
+	fragment part correctly.
+	(w3m-toggle-inline-images): Refer `w3m-current-image-status' instead of
+	`w3m-display-inline-image'.
+	(w3m-view-url-with-external-browser): Ditto.
+	(w3m-goto-url): Ditto.
+	(w3m-reload-this-page): Ditto.
+	(w3m-redisplay-with-charset): Ditto.
+
+	* w3m-e21.el (top, w3m-display-inline-image-p): Refer
+	`w3m-current-image-status' instead of `w3m-display-inline-image'.
+
+	* w3m-om.el (w3m-expand-path-name): Add 2nd optional argument.
+
+	* w3m-macro.el (w3m-which-command): Import from w3m.el.
+
+	* w3m-xmas.el (top, w3m-display-inline-image-p): Refer
+	`w3m-current-image-status' instead of `w3m-display-inline-image'.
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Refer `w3m-current-image-status'
+	instead of `w3m-display-inline-image'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-cache-header): Add 3rd optional argument.
+	(w3m-w3m-dump-head-source): Call `w3m-cache-header' with `overwrite'
+	option.
+
+	* w3m.el (w3m-cache-header-delete-variable-part): New function.
+	(w3m-cache-header): Remove cached contents when inconsistency between
+	new header and cached header is found.
+
+	* w3m.el (w3m-expand-url): Fix the last change.
+	(w3m-url-hierarchical-schemes): Add `file'.
+	(w3m-goto-url): Use `\`' instead of `^' as a meta character.
+
+	* w3m.el (w3m-fontify-anchors): Fix.
+	(w3m-url-fallback-base): New constant.
+	(w3m-expand-url): Make it robust against illegal base-URL.
+
+	* w3m.el (w3m-url-components-regexp): New constant.
+	(w3m-url-hierarchical-schemes): Ditto.
+	(w3m-expand-url): Reimplemented.
+	(w3m-view-this-url): Remove a redundant local variable.
+	(w3m-mouse-view-this-url): Call `w3m-view-this-url'.
+	(w3m-goto-url): Refer `w3m-url-components-regexp' to delete a fragment
+	part of URL.
+
+	* mime-w3m.el (mime-w3m-view-this-url): When there is an inline image
+	under point, display it.
+	(mime-w3m-mouse-view-this-url): Call `mime-w3m-view-this-url'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Emergency fixed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Make it work correctly when a url begins
+	with "//".
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-language): New option.
+	(w3m-default-coding-system): Refer `w3m-language' to decide default
+	value.
+	(w3m-coding-system-priority-list): Ditto.
+	(w3m-toolbar): Ditto.
+	(w3m-url-to-file-name): Moved to avoid byte-compile warnings.
+	(w3m-expand-file-name-as-url): Ditto.
+	(w3m-url-local-p): Ditto.
+	(w3m-url-dtree-p): Ditto.
+	(w3m-view-this-url): When there is an inline image under point, display
+	it.
+	(w3m-mouse-view-this-url): Ditto.
+	(w3m-view-url-with-external-browser): Renamed from
+	`w3m-view-current-url-with-external-browser'.  Handle an inline image
+	under point.
+	(w3m-download-this-url): Handle an inline image under point.
+	(w3m-info-like-map): Reconstructed.
+
+	* w3m-search.el (w3m-search-default-coding-system): Abolished.
+	(w3m-search-engine-alist): Refer `w3m-language' to decide default
+	value.
+	(w3m-search-escape-query-string): Refer `w3m-default-coding-system'
+	instead of `w3m-search-default-coding-system'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-use-fancy-faces): New option.
+	(w3m-form-make-button): New function.
+	(w3m-form-fontify): Call `w3m-form-make-button'.
+
+	* w3m-e21.el (w3m-form-button-face): New face.
+	(w3m-form-button-pressed-face): Ditto.
+	(w3m-form-make-button): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (read-string): Unify the advice form.
+	(w3m-om-coding-system-alist): Fix doc-string.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (read-string): Don't modify the value of
+	`current-load-list' when advising it.
+
+	* mime-w3m.el (mime-w3m-remove-text-properties): Don't modify the value
+	of `current-load-list' when advising the function `kill-new'; add a
+	doc-string.
+
+	* w3m.el (w3m-decode-entities): Save-match-data when `w3m-entity-value'
+	is called.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-xmas.el (w3m-detect-coding-region): Return just the return value
+	of `detect-coding-with-priority' if it is not a list, again.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (read-string): Advise the function to allow the 4th
+	argument `default-value'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-remove-text-properties): New advice to protect
+	`kill-ring-save' against the `local-map' text property.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (w3m-detect-coding-region): Use the fixed value for the
+	list of coding-categories; suppress the duplication of coding-
+	categories.
+	(TopLevel): Protect against non-existent coding-systems when creating
+	the modern coding-systems.
+	(w3m-om-coding-category-alist): Reinforce the default value.
+	(w3m-om-coding-categories): Abolish.
+	(w3m-om-coding-system-alist): Add some new coding-systems.
+
+	* w3m-fsf.el (w3m-detect-coding-region): Suppress the duplication of
+	coding-categories.
+	* w3m-xmas.el (w3m-detect-coding-region): Ditto; use
+	`coding-system-category' instead of `coding-system-type'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-show-inline-images-before-hook,
+	w3m-show-inline-images-after-hook,
+	w3m-remove-inline-images-before-hook,
+	w3m-remove-inline-images-after-hook): Abolished.
+	(w3m-modeline-image-status-on): New constant.
+	(w3m-modeline-image-status-off): Ditto.
+	(w3m-image-only-page): New buffer local variable.
+	(w3m-display-inline-image-status): Abolished.
+	(w3m-fontify-images): Put `w3m-image-status property'.
+	(w3m-toggle-inline-images-internal): New inline function.
+	(w3m-exec): Set w3m-image-only-page as t.
+	(w3m-lynx-like-map): Bind "T" to 'w3m-toggle-inline-images and "t" to
+	'w3m-toggle-inline-image.
+	(w3m-goto-url): Set w3m-image-only-page as nil at first; Setup modeline
+	to display image display status; Display image if w3m-image-only-page
+	is nil.
+
+	* w3m-e21.el (w3m-cache-underline-faces): Abolished.
+	(w3m-insert-image): Set text property 'w3m-undeline-face to the image
+	instead of setting up w3m-cache-underline-faces.
+	(w3m-remove-image): Recover underline faces.
+	(w3m-fontify-before-hook, w3m-show-inline-images-before-hook,
+	w3m-show-inline-images-after-hook,
+	w3m-remove-inline-images-after-hook): Don't set up.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (w3m-detect-coding-region): Make it work.
+
+	* w3m-xmas.el (w3m-detect-coding-region): Return just the return value
+	of `detect-coding-with-priority' if it is not a list, otherwise the car
+	of the value.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m.el (w3m-coding-system-priority-list): New user option.
+	(w3m-decode-buffer): Use it.
+
+	* w3m-fsf.el (w3m-detect-coding-region): Remove argument `highest';
+	always return the first possible coding system.  Add new optional
+	argument `priority-list'.  Use `detect-coding-with-priority'.
+
+	* w3m-xmas.el (w3m-detect-coding-region): Ditto.
+
+	* w3m-om.el (w3m-detect-coding-region): Remove argument `highest';
+	always return the first possible coding system.  Add new optional
+	argument `priority-list'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (w3m-detect-coding-region): Return a non-list of a
+	coding-system if the number of return value is only one; use
+	`w3m-om-modernize-coding-system' and `w3m-om-coding-categories'; use
+	`code-detect-region' instead of `detect-coding-region'.
+	(w3m-om-modernize-coding-system): New function.
+	(w3m-om-coding-category-alist): Use `w3m-om-coding-categories'.
+	(w3m-om-coding-categories): New constant.
+	(w3m-om-coding-system-alist): Add `emacs-mule'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (TopLevel): Don't byte-compile the source form to bind colon
+	keywords for old Emacsen.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-mode): Added `w3m-toggle-inline-images' to the mode
+	description.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-edit-url-directory-alist): New option.
+	(w3m-edit-url): New function.
+	(w3m-edit-current-url): Call `w3m-edit-url'.
+	(w3m-edit-this-url): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (w3m-detect-coding-region): Prefer the coding-category that
+	the value of `w3m-default-coding-system' belongs to.
+	(w3m-om-coding-category-alist): New variable.
+	(w3m-om-coding-system-alist): New variable.
+
+	* w3m.el (w3m-default-coding-system): Default to `shift_jis' when Mule2
+	is running.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Handle `w3m-fsf.el'.
+
+	* w3m.el (w3m-default-coding-system): New option.
+	(w3m-decode-buffer): Call `w3m-detect-coding-region' instead of
+	`detect-coding-region'.
+	(w3m-make-ccl-coding-system): Export it to `w3m-fsf.el'.
+
+	* w3m-xmas.el (coding-system-category): Removed.
+	(w3m-detect-coding-region): New function.
+
+	* w3m-om.el (coding-system-category): Removed.
+	(w3m-detect-coding-region): New function.
+
+	* w3m-fsf.el: New file.
+
+	* w3m-form.el (w3m-form-default-coding-system): Abolished.
+	(w3m-form-make-form-data): Refer `w3m-default-coding-system' instead of
+	`w3m-form-default-coding-system'.
+
+	* w3m-e21.el (top): Require `w3m-fsf'.
+	(w3m-find-coding-system): Export it to `w3m-fsf.el'.
+
+	* w3m-e20.el (top): Require `w3m-fsf'.
+	(w3m-find-coding-system): Export it to `w3m-fsf.el'.
+
+	* w3m.el (w3m-goto-url): Change effect of the 3rd argument `charset'.
+	(w3m-redisplay-with-charset): Reimplemented.
+	(w3m-view-source): Improved to handle `about://header/...'.
+	(w3m-about-header): Show title etc.
+	(w3m-view-header): Improved to handle `about://source/...'.
+
[phone]  kkonishi <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): New search engines,
+	`excite-ja', `lycos-ja', `altavista' and `freebsd-users-jp'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Speed up the action to refer a name anchor in
+	the same document.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-copy-local-variables): Simplified.
+	(w3m-region): Set `w3m-current-base-url'.
+
+	* w3m.el: Fix the bug reported in [emacs-w3m:01564].
+	(w3m-current-base-url): New buffer-local variable.
+	(w3m-clear-local-variables): Handle `w3m-current-base-url'.
+	(w3m-copy-local-variables): Ditto.
+	(w3m-attributes): Change spec of return value.
+	(w3m-w3m-attributes): Ditto.
+	(w3m-local-attributes): Ditto.
+	(w3m-base-url): New macro.
+	(w3m-expand-url): Make the second argument `base' optional, and refer
+	`w3m-current-base-url' when a relative URL is canonicalized.
+	(w3m-fontify-anchors): Follow change of `w3m-expand-url'.
+	(w3m-fontify-images): Ditto.
+	(w3m-toggle-inline-images): Ditto.
+	(w3m-exec): Call `w3m-base-url' to set `w3m-current-base-url'.
+
+	* w3m-form.el (w3m-form-new): Canonicalize `action' whenever this
+	function is called.
+	(w3m-form-parse-forms): Follow change of `w3m-form-new'.
+	(w3m-form-submit): Ditto.
+	(w3m-form-input-map-set): Follow change of `w3m-expand-url'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Position point to the current url and
+	highlight the line when the page is for listing the history
+	(suggested by SHIRAI-san).
+	(w3m-history-current-url-face): New face.
+	(w3m-image-face, w3m-arrived-anchor-face, w3m-anchor-face): Fix
+	doc-string.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history-today): New defsubst.
+	(w3m-about-db-history): If arrived time within 18 hours, display with
+	"HH:MM:SS".
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-ucs.el (w3m-euc-japan-encoder): Convert lain-jisx0201 to ASCII;
+	Avoid deep nesting.
+	(TopLevel): Don't require `w3m-macro'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-om.el (w3m-expand-path-name): Cancel last change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-expand-path-name): Except Mule2, define alias of
+	`expand-file-name'.
+
+	* w3m-om.el (w3m-expand-path-name): Re-implemented.
+
+	* w3m-e20.el (w3m-expand-path-name): Removed.
+
+	* w3m-e21.el (w3m-expand-path-name): Ditto.
+
+	* w3m-xmas.el (w3m-expand-path-name): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-generate-colon-keywords-file): Renamed from
+	`w3mhack-bind-colon-keywords'; generate a file which contains a list of
+	colon keywords; don't bind colon keywords.
+	(w3mhack-colon-keywords-file): New constant.
+
+	* w3m.el: Load w3m-kwds.el if a colon keyword is not avaulable.
+	(w3m-colon-keywords): Abolished.
+
+	* Makefile.in (keywords): Create w3m-kwds.el instead of w3mkwds.el;
+	don't remove w3m-kwds.el in advance.
+	(clean): Remove w3m-kwds.el instead of w3mkwds.el.
+	(install): Install w3m-kwds.el if it exists.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Use `w3m-expand-path-name' instead of
+	`expand-file-name'.
+
+	* w3m-om.el (w3m-expand-path-name): New function.
+
+	* w3m-e20.el (w3m-expand-path-name): New alias.
+
+	* w3m-xmas.el (w3m-expand-path-name): Ditto.
+
+	* w3m-e21.el (w3m-expand-path-name): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Changed default value of
+	`google'.  Add new engines `debian-pkg', `debian-bts', and
+	`iij-archie'.
+
[phone]  Masayuki Ataka  <[e-mail]>
+
+	* w3m-search.el (w3m-search-engine-alist): Changed default value of
+	`google-ja'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top): Require `ccl'.
+	(w3m-make-ccl-coding-system): New function for Emacs20 / Emacs21.
+	(w3m-euc-japan): Define with `w3m-make-ccl-coding-system'.
+
+	* w3m-macro.el (top): Delete garbage.
+
+	* w3m-e21.el (top): Fix to avoid byte-compile warnings.
+
+	* w3m-xmas.el (top): Require `pccl' and fix to avoid byte-compile
+	warnings.
+	(w3m-make-ccl-coding-system): New alias to `make-ccl-coding-system'.
+
+	* w3m-om.el (top): Require `pccl'.
+	(w3m-make-ccl-coding-system): New alias to `make-ccl-coding-system'.
+
+	* w3m-search.el (w3m-search): Fixed search engine specification error
+	when interactively called with prefix arguments.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-macro.el (w3m-with-work-buffer): Keep `w3m-history' and
+	`w3m-history-flat' through buffers.
+
+	* w3m.el (w3m-current-buffer): Abolished.
+	(w3m-goto-url): Don't set `w3m-current-buffer'.
+	(w3m-region): Ditto.
+	(w3m-about-history): Don't refer `w3m-current-buffer'.
+
+	* w3m-form.el (w3m-form-parse-region): Simplified.
+	(w3m-form-parse-forms): Accept <OPTION> tag lacks `value' attribute.
+
+	* w3m.el (w3m-resume-forms): Abolished.
+	(w3m-clear-local-variables): Don't handle `w3m-resume-forms'.
+	(w3m-copy-local-variables): Ditto.
+	(w3m-fontify): Don't call `w3m-form-resume'.
+	(w3m-cache-available-p): Protect against the illegal type of arguments.
+	(w3m-rendering-region): Removed the fourth optional argument, `forms'.
+	(w3m-exec): Follow change of `w3m-rendering-region'.
+
+	* w3m-form.el (w3m-form-parse-region): Check the cached form/map
+	objects are available, and if available return them with the flag.
+	(w3m-fontify-forms): Its real part is moved to `w3m-form-fontify'.
+	Call `w3m-form-resume' if `w3m-current-forms' includes the flag.
+	(w3m-form-fontify): New function.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-resume): Ignore `hidden' type form; Fixed
+	problem when no item is selected in the select form.
+
+	* w3m.el (w3m-copy-local-variables): Bind local variable resume.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-resume-forms): New buffer local variable.
+	(w3m-clear-local-variables): Add w3m-resume-forms.
+	(w3m-copy-local-variables): Ditto.
+	(w3m-fontify): If w3m-resume-forms is non-nil, call w3m-form-resume.
+	(w3m-rendering-region): Set w3m-resume-forms if form is cached.
+
+	* w3m-form.el (w3m-form-replace-string): Eliminate.
+	(w3m-form-resume): New function.
+	(w3m-fontify-forms): Don't call `w3m-form-replace-string'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-form-replace-string): Protect against the illegal
+	type of arguments.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-region): Defined new optional argument, `url'.
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Call `w3m-region' with an
+	optional argument `url'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-form.el (w3m-fontify-forms): Restore a string for the input
+	button from the history if it is available.
+	(w3m-form-replace-string): New function.
+
+	* w3m.el (w3m): Clear the startup screen on the new frame.
+	(w3m-reload-this-page, w3m-goto-url, w3m-view-previous-page):
+	Save/restore post-data and referer as buffer-local properties in the
+	history.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Register the value of `w3m-current-forms' in
+	the history as a buffer-local property.
+	(w3m-view-previous-page): Specify a url string to
+	`w3m-history-restore-position'.
+	(w3m-exec): Use cached forms if it is valid.
+	(w3m-rendering-region): Allow the optional argument `forms'; use
+	`forms' if it is non-nil.
+	(w3m-close-window, w3m-copy-buffer, w3m-exec-set-user, w3m-input-url,
+	w3m-copy-local-variables): Remove unused non-global variables.
+
+	* w3m-hist.el (w3m-history-restore-position): Allow the optional
+	argument `url'.
+	(w3m-history-store-position): Ditto.
+	(w3m-history-plist-get): Return nil instead of to signal an error.
+
+	* w3m-form.el (w3m-form-parse-region): Don't set the value of
+	`w3m-current-forms' here.
+	(w3m-form-input-map, w3m-form-input-map-set): Remove unused non- global
+	variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Don't use `w3m-cleanup-plist'.
+
+	* w3m-macro.el (w3m-cleanup-plist): Abolished.
+
+	* w3m-hist.el (w3m-history-push): Don't add property whose value is
+	nil.
+	(w3m-history-modify-properties): Don't infloop.
+
+	* Makefile.in (keywords): New rule.
+	(distclean): Remove the directory autom4te.cache which will be created
+	by autoconf v2.5x.
+	(clean): Remove w3mkwds.el.
+
+	* .cvsignore: Add autom4te.cache.
+
+	* w3mhack.el (w3mhack-bind-colon-keywords): Always define it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-current-referer, w3m-current-post-data): Abolished.
+	(w3m-copy-local-variables, w3m-clear-local-variables): Don't handle
+	them.
+	(w3m-reload-this-page, w3m-goto-url): Don't use them; use the history
+	instead.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-add-referer): Removed.
+	(w3m-add-referer-regexps): Default value is changed.
+	(w3m-goto-url): No check `w3m-add-referer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Don't send a referer if it does not
+	satisfy the rule of `w3m-add-referer-regexps'.
+	(w3m-add-referer-regexps): New user option.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-cache-available-p): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el, w3m.el: Don't quote colon keywords.
+
+	* Makefile.in (install): Don't install w3mkwds.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-colon-keywords): New variable; bind some colon keywords
+	for Emacs versions prior to 20.3.
+
+	* .cvsignore: Add w3mkwds.el.
+
+	* w3mhack.el (w3mhack-bind-colon-keywords): New function; byte- compile
+	and exec it.
+	(w3mhack-examine-modules): Don't byte-compile w3mkwds.el.
+
+	* w3m-macro.el (w3m-tag-regexp-of): Reverted; add a documentation.
+	(TopLevel): Require `cl' when compiling.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Register post-data and a referer in the
+	history.
+	(w3m-info-like-map, w3m-lynx-like-map): Use `suppress-keymap'.
+	(w3m-view-previous-page): Give post-data and a referer to
+	`w3m-goto-url'.
+	(w3m-view-next-page): Use `w3m-view-previous-page'.
+
+	* w3m-macro.el (w3m-cleanup-plist): New macro.
+	(w3m-tag-regexp-of): Use backquote.
+
+	* w3m-hist.el (w3m-history-modify-properties): Don't infloop.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-clear-local-variables): Not reset `w3m-initial-frame'.
+	(w3m-copy-local-variables): Not copy `w3m-initial-frame'.
+
+	* w3m-form.el (w3m-form-parse-region): Modify `w3m-current-forms' in
+	this buffer.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Use `expand-file-name' to expand path; If
+	URL is a form like 'scheme://server/path?query', only path is expanded.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-meta-content-type-charset-regexp): Relaxed to accept
+	<meta> tag in XML style.
+	(w3m-meta-charset-content-type-regexp): Ditto.
+	(w3m-tag-regexp-of): Exported to `w3m-macro.el'.
+
+	* w3m-macro.el (w3m-tag-regexp-of): Imported from `w3m.el'.
+
+	* w3m.el (w3m-goto-url): Changed timing when `w3m-current-referer' and
+	`w3m-current-post-data' are set.
+	(w3m-exec): Call `w3m-clear-local-variables' before image data is
+	inserted.
+
+	* w3m.el (w3m-current-forms): Definition imported from `w3m-form.el'.
+	(w3m-current-coding-system): New buffer local variable.
+	(w3m-clear-local-variables): New function.
+	(w3m-copy-local-variables): Ditto.
+	(w3m-arrived-p): Cancel the last change.
+	(w3m-arrived-auto-detected-coding-system): Removed.
+	(w3m-arrived-set-auto-detected-coding-system): Ditto.
+	(w3m-fontify-anchors): Expand `w3m-next-url' and `w3m-previous-url' on
+	`w3m-current-url'.
+	(w3m-decode-buffer): Set auto-detected coding system to
+	`w3m-current-coding-system'.
+	(w3m-remove-comments): Simplified.  No point is saved.
+	(w3m-check-link-tags): `w3m-next-url' and `w3m-previous-url' are not
+	reseted.
+	(w3m-remove-meta-tags): New function.
+	(w3m-rendering-region): Call `w3m-remove-meta-tags'.
+	(w3m-exec): Clean up codes.
+	(w3m-redisplay-with-charset): Refer `w3m-current-coding-system'.
+	(w3m-region): Call `w3m-clear-local-variables'.
+
+	* w3m-form.el (w3m-current-forms): Definition moved to `w3m.el'.
+	(w3m-form-make-form-data): Refer `w3m-current-coding-system'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-expand-url): Changed regexp for detecting absolute spec;
+	Don't use `expand-file-name'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-ucs.el (w3m-euc-japan-encoder): Simplified.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m-ucs.el (w3m-euc-japan-encoder): Fixed for ASCII under XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Refer `coding-system-for-read' which is
+	specified by `universal-coding-system-argument'.
+
+	* w3m-ucs.el (w3m-euc-japan-encoder): Protect against invalid value
+	which `emacs-char-to-ucs-codepoint-conversion' returns.
+
[phone]  ARISAWA Akihiro  <[e-mail]>
+
+	* w3m-ucs.el (w3m-euc-japan-encoder): Fixed for katakana-jisx0201.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-make-form-data): Call
+	`w3m-arrived-auto-detected-coding-system' when `w3m-content-charset'
+	returns nil.
+
+	* w3m.el (w3m-arrived-p): Strict checking.
+	(w3m-arrived-auto-detected-coding-system): New function.
+	(w3m-arrived-set-auto-detected-coding-system): Ditto.
+	(w3m-decode-buffer): Call `w3m-arrived-set-auto-detected-coding-system'
+	to store the coding system detectd by this function.
+	(w3m-w3m-attributes): Use content of w3m-document-charset: field as
+	charset, only when `w3m-type' equals `w3mmee' or `w3m-m17n'.
+	(w3m-redisplay-with-charset): Call
+	`w3m-arrived-auto-detected-coding-system' to get current coding-system.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-mule-ucs): Strict checking.
+	(w3m-euc-japan-decode): Use `write-multibyte-character' except Mule2
+	and XEmacs21.1.
+	(w3m-find-file): Refer `coding-system-for-read' which is specified by
+	`universal-coding-system-argument'.
+
+	* w3m-xmas.el (w3m-euc-japan-decoder): Removed.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* README.shimbun.ja: Ditto.
+
+	* README.shimbun.ja: Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-use-mule-ucs): New user option.
+	(w3m-input-coding-system): Changed default value.
+	(w3m-async-exec): Ditto.
+	(w3m-process-connection-type) [Solaris]: Changed default value.
+	(w3m-entity-alist): Enlarge a regular expression.
+	(w3m-ucs-to-char): New function.
+	(w3m-euc-japan-encoder): Follow the change of `w3m-ucs.el'.
+
+	* w3mhack.el (w3mhack-examine-modules): Handle `w3m-ucs.el'.
+
+	* w3m-ucs.el: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-use-toolbar): Use `w3m-image-type-available-p'.
+	(w3m-image-type-available-p): Use `display-images-p' instead of
+	`display-graphic-p'.
+	(w3m-display-inline-image-p): Ditto.
+	(w3m-display-graphic-p): Alias to `display-images-p' instead of
+	`display-graphic-p'.
+	(display-images-p): Make an alias to `display-graphic-p' if it is not
+	available.  It is for Emacs version prior to 21.0.105.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-filter.el (w3m-filter-lwn.net): Add link information to next
+	page.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-load-list): Retry to read a file when failed.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* README.shimbun.ja: Add information on nikkansports.
+
[phone]  MIYOSHI Masanori  <[e-mail]>
+
+	* README.shimbun.ja: Add information on makanai, f1fan, f1express and
+	isize-sports.
+
[phone]  NAKAGAWA Takayuki  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Refer `w3m-base-url' as current url,
+	when it is available.
+
[phone]  Takenobu Sugiyama  <[e-mail]>
+
+	* w3m-weather.el (w3m-weather-url-alist): Update data to follow the
+	most recent urls.
+	(w3m-weather-default-area): Ditto.
+	(w3m-weather-remove-weather-images): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-download): Made it to work as a command.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Use `w3m-decode-anchor-string' to
+	convert "&amp;" to "&" in the url string.
+
[phone]  NOMIYA Masaru  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Fix typos for gif and tiff.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Put the url in the history even if `w3m-exec'
+	returns nil.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Bug fix. Guess charset in cache
+	buffer.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-type): Remove `w3m-mnc' option.
+	(w3m-w3m-dump-source): Removed.
+	(w3m-w3m-retrieve): Don't use `w3m-w3m-dump-source'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): [Win32] Executed 'fiber' with
+	synchronous mode
+	(w3m-w32-browser-with-fiber): Ditto.
+	(w3m-external-view): Add a suffix to the temporally file name if
+	possible.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-async-exec): Fix doc-string.
+	(w3m-exec-get-user): Rewrite.
+	(w3m-exec-get-passwd): New funciton.
+	(w3m-exec-set-user): Rewrite.
+	(w3m-get-server-root): Set 'server root' to downcase.
+	(w3m-exec-filter): Modify the method of 'user' and 'passwd' handling.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-next-url): New buffer local variable.
+	(w3m-previous-url): Ditto.
+	(w3m-arrived-ignored-regexp): Add 'about://namazu/'.
+	(w3m-history-ignored-regexp): Ditto.
+	(w3m-url-decode-string): New funtcion.
+	(w3m-fontify-anchors): Process `rel' element of anchor tag.
+	(w3m-check-link-tags): New funtcion.
+	(w3m-rendering-region): Call `w3m-check-link-tags'.
+	(w3m-exec): Set `w3m-next-url' and `w3m-previous-url'.
+	(w3m-lynx-like-map): Replace `scroll-up' with
+	`w3m-scroll-up-or-next-url'.  Replace `scroll-down' with
+	`w3m-scroll-down-or-previous-url'.
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Ditto.
+	(w3m-scroll-up-or-next-url): New command.
+	(w3m-scroll-down-or-previous-url): Ditto.
+
+	* w3m-namazu.el (w3m-namazu-default-index-customize-spec): New
+	constant.
+	(w3m-namazu-index-alist): Change customize spec.
+	(w3m-namazu-default-index): Ditto.
+	(w3m-namazu-call-process): Change argument spec and followed change of
+	`w3m-namazu-index-alist'.
+	(w3m-about-namazu): Add link information to next or previous results.
+	(w3m-namazu): Stricter checking of arguments.  Encoded index and query.
+
+	* w3m-filter.el (w3m-filter-rules): Add `w3m-filter-google.com'.
+	(w3m-filter-google.com): New function.
+
[phone]  Masayuki Ataka  <[e-mail]>,
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-namazu.el (w3m-namazu): Fixed the problem which is reported in
+	[emacs-w3m:01389].
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-download-save-directory): Abolished.
+	(w3m-goto-ftp-url, w3m-download): Reverted.  ;; Those last changes were
+	nonsensical.
+
[phone]  Masayuki Ataka  <[e-mail]>,
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-namazu.el (w3m-namazu-default-index): Changed customize spec.
+	(w3m-namazu): Follow change of `w3m-namazu-default-index'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images): Display "Showing images..."
+	message only when there is at least one inline image.
+	(w3m-current-post-data): New buffer local variable.
+	(w3m-current-referer): Ditto.
+	(w3m-goto-url): Set up `w3m-current-post-data' and
+	`w3m-current-referer'.
+	(w3m-reload-this-page): Process post-data and referer.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-download-save-directory): New user option.
+	(w3m-goto-ftp-url, w3m-download): Refer it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-shutdown): Don't specify a coding-system
+	to `w3m-save-list'.
+	(w3m-antenna-setup): Don't specify a coding-system to `w3m-load-list'.
+	(w3m-antenna-file-coding-system): Abolished.
+
+	* w3m.el (w3m-arrived-shutdown): Don't specify a coding-system to
+	`w3m-save-list'.
+	(w3m-arrived-shutdown, w3m-arrived-setup): Don't specify a
+	coding-system to `w3m-load-list'.
+	(w3m-save-list): Made the arg `coding-system' optional; refer to
+	`w3m-file-coding-system' by default; insert the file magic in the
+	beginning of a file.
+	(w3m-load-list): Made the arg `coding-system' optional; refer to
+	`w3m-file-coding-system-for-read' by default.
+	(w3m-arrived-file-coding-system): Abolished.
+	(w3m-file-coding-system-for-read): New variable.
+	(w3m-file-coding-system): New user option.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-arrived-user-alist): Rename from w3m-arrived-user-list.
+	(w3m-process-realm): New variable.
+	(w3m-exec-process): Bind w3m-process-realm to nil.  Call
+	w3m-exec-set-user() for the certification.
+	(w3m-exec-get-user): Rewrite.
+	(w3m-exec-set-user): New function.
+	(w3m-get-server-root): Ditto.
+	(w3m-exec-filter): Support a pair of 'rootserver' and 'realm'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-make-form-data): Fixed typo.
+	(w3m-form-input-file): Rewrite.
+	(w3m-fontify-forms): Parse hseq attribute as well; Changed textarea
+	properties.
+	(w3m-form-text-chop): New function.
+	(w3m-form-input-textarea-hseq): New buffer local variable.
+	(w3m-form-input-textarea-name): Eliminated.
+	(w3m-form-input-textarea-set): Use `w3m-form-textarea-info',
+	`w3m-form-textarea-replace' and `w3m-form-input-textarea-hseq'.
+	(w3m-form-input-textarea): Use `w3m-form-textarea-info'; Adjust cursor
+	line at start time.
+	(w3m-form-textarea-replace): New function.
+	(w3m-form-textarea-info): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-add-referer): New option.
+	(w3m-goto-url): When `w3m-add-referer' equals nil, no reference
+	information is given to `w3m-exec'.
+
+	* README, README.ja: Update documents for required version of w3m.
+
+	* w3m-0.2.1-mnc.patch: Removed.
+
+	* w3m.el (TOP): Add autoload for w3m-namazu.
+
+	* w3m-namazu.el: New file.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Bind coding-system-for-write as 'binary.
+
+	* w3m-form.el (w3m-form-make-form-data): New function.
+	(w3m-form-make-form-urlencoded): Eliminated.
+	(w3m-fontify-forms): Added 'file' input processing.
+	(w3m-form-input-file): New function.
+	(w3m-form-input-textarea-keymap): Bind "\C-c\C-k" as well.
+	(w3m-form-input-select-keymap): Ditto.
+	(w3m-form-input-map-keymap): Ditto.
+	(w3m-form-submit): Call `w3m-form-make-form-data' instead of
+	`w3m-form-make-form-urlencoded'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el: Applied patch [emacs-w3m: 01330].
+	(w3m-exec-filter): Changed regexp for authentication realm.
+
+	* w3m.el (w3m-toggle-inline-images): Set `referer' argument of
+	`w3m-create-image'.
+
+	* w3m-e21.el (w3m-create-image): Added argument `referer'.
+
+	* w3m-xmas.el (w3m-create-image): Ditto.
+
+	* w3m-form.el (w3m-form-submit): Set `referer' argument of
+	w3m-goto-url.
+
+	* w3m.el (w3m-w3m-retrieve): Make a temporary file for POST; Use
+	-header option to specify Content-Type: field.
+	(w3m-w3m-retrieve): Added argument `referer'; Add -header option to
+	specify Referer: field.
+	(w3m-retrieve): Added argument `referer'.
+	(w3m-exec): Ditto.
+	(w3m-goto-url): Ditto.
+	(w3m-view-this-url): Set `referer' argument of w3m-goto-url.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-make-help-echo): For FSF Emacs 21, specify the third
+	argument of `get-text-property' where the buffer is to be checked; for
+	XEmacs, make it not to work if the buffer is not focused.
+	(w3m-make-balloon-help): Make it not to work if the buffer is not
+	focused.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Fixed for initial value in the
+	textarea.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-input-textarea-exit): New function.
+	(w3m-form-input-select-exit): Ditto.
+	(w3m-form-input-map-exit): Ditt.
+	(w3m-form-input-textarea-keymap): Add key for 'exit'.
+	(w3m-form-input-select-keymap): Ditto.
+	(w3m-form-input-map-keymap): Ditto.
+	(w3m-form-input-textarea-mode): Modify doc-string.
+	(w3m-form-input-select-mode): Ditto.
+	(w3m-form-input-map-mode): Ditto.
+	(w3m-form-input-select-set-mouse): Add doc-string.
+	(w3m-form-input-map-set-mouse): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-x-moe-decode-buffer): Use 'w3m-coding-system' instead of
+	'euc-jp.
+	(w3m-w32-browser-with-fiber): Ignore process output.
+
+	* w3m-form.el (w3m-form-mouse-face): New user option.
+	(w3m-form-input-select): Add mouse-face.
+	(w3m-form-input-map): Ditto.
+
+	* mew-w3m.el (toplevel): Require 'cl, when byte-compile.
+	(mew-mime-text/html-w3m): Guess charset with the use of the Mew's
+	funcion and use its charset, if executed a combination of Mew Ver.2 and
+	w3m-m17n.
+
[phone]  NAKAGAWA Takayuki  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Don't delete trailing whitespaces,
+	etc. from anchors.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Support the USEMAP attribute of
+	the IMG element.
+	(w3m-fontify-forms): Ditto.
+	(w3m-form-input-textarea-wincfg): New buffer local variable.
+	(w3m-form-input-select-wincfg): Ditto.
+	(w3m-form-input-textarea): Save the configuration of current window.
+	Guard error of the minimum height of window.
+	(w3m-form-input-select): Ditto.
+	(w3m-form-input-textarea-set): Restore the configuration of window.
+	(w3m-form-input-select-set): Ditto.
+	(w3m-form-input-map-buffer-lines): New user option.
+	(w3m-form-input-map-mode-hook): Ditto.
+	(w3m-form-input-map-set-hook): Ditto.
+	(w3m-form-input-map-keymap): New keymap.
+	(w3m-form-input-map-buffer): New buffer local variable.
+	(w3m-form-input-map-wincfg): Ditto.
+	(w3m-form-input-map-set): New function.
+	(w3m-form-input-map-mode): Ditto.
+	(w3m-form-input-map): Ditto.
+	(w3m-form-input-select-keymap): Added mouse operation.
+	(w3m-form-input-map-keymap): Ditto.
+	(w3m-form-input-select-set-mouse): New function.
+	(w3m-form-input-map-set-mouse): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-submit): New defmacro.
+	(w3m-mouse-view-this-url): Handle the action of form tag.
+	(w3m-submit-form): New function, submit the form.
+	(w3m-lynx-like-map): Add w3m-submit-form().
+	(w3m-info-like-map): Ditto.
+	(w3m-mode): Modify doc-string.
+
+	* w3m-form.el (w3m-fontify-forms): Add 'w3m-submit property on all tags
+	except the "reset".
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Added argument `post-data'.
+	(w3m-w3m-retrieve): Add -post and -post_ct to `w3m-command-arguments'
+	when `post-data' is specified.
+	(w3m-retrieve): Added argument `post-data'.
+	(w3m-exec): Ditto.
+	(w3m-goto-url): renamed `post-body' to `post-data'.  Don't bind
+	w3m-command-arguments here.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-w3m-dump-source, w3m-w3m-dump-head-source,
+	w3m-local-dirlist-cgi): Say where the url is being connected to.
+
+	* w3mhack.el (w3mhack-compile): Changed message convention.
+	* w3m.el (w3m-view-source, w3m-rendering-region, w3m-w3m-dump-source,
+	w3m-w3m-dump-head-source, w3m-w3m-get-header, w3m-local-dirlist-cgi,
+	w3m-fontify): Ditto.
+	* w3m-e21.el (w3m-setup-header-line): Ditto.
+	* w3m-dtree.el (w3m-about-dtree): Ditto.
+	* w3m-bookmark.el (w3m-bookmark-add-current-url,
+	w3m-bookmark-add-this-url, w3m-bookmark-add-this-url): Ditto.
+	* mime-w3m.el (mime-w3m-mouse-view-this-url): Ditto.
+
+	* w3m.el (w3m-gohome, w3m-convert-ftp-url-for-emacsen,
+	w3m-goto-mailto-url, w3m-edit-current-url, w3m-external-view,
+	w3m-local-dirlist-cgi, w3m-toggle-inline-images, w3m-parse-attributes):
+	Changed error message convention.
+	* w3m-hist.el (w3m-history-add-arrived-db, w3m-history-rename-url,
+	w3m-history-remove-properties, w3m-history-add-properties,
+	w3m-history-plist-put, w3m-history-plist-get): Ditto.
+	* w3m-bookmark.el (w3m-bookmark-add, w3m-bookmark-write-file): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-mbconv-command): New customize variable.
+	(w3m-decode-buffer): If charset equal 'x-moe-internal', call
+	w3m-x-moe-decode-buffer().
+	(w3m-x-moe-decode-buffer): New funcion. A coding-system of buffer
+	converts 'x-moe-internal' to usual coding-system for emacsen.
+
+	* w3m-form.el (w3m-form-parse-region): If charset equal
+	'x-moe-internal', call w3m-x-moe-decode-buffer().
+	(w3m-form-parse-forms): Handles value of 'charset', if w3m-type eq
+	'w3mmee.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-byte-optimize-letX): Remove `pop-up-frame-alist'
+	when compiling.
+
+	* w3m.el (w3m): Use the new macros; set the value of
+	`w3m-initial-frame' in the popped up frame.
+	(w3m-close-window): Use `w3m-delete-frame-maybe'.
+	(w3m-quit): Use `w3m-delete-frame-maybe'.
+	(w3m-delete-frame-maybe): New function.
+	(w3m-copy-buffer): Pop up a new frame if `w3m-pop-up-frames' is
+	non-nil; set the value of `w3m-initial-frame' in the new frame.
+	(w3m-popup-frame-p): New macro.
+	(w3m-pop-up-frame-parameters): New macro.
+	(w3m-initial-frame): New internal variable.
+
+	* w3m-xmas.el (w3m-setup-header-line): Use text-properties instead of
+	the raw extents for highlighting a header line.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-new): Added 'charlst' option.
+	(w3m-form-charlst): New macro.
+	(w3m-form-plist): Move a indent of an array.
+	(w3m-form-put): Ditto.
+	(w3m-form-make-form-urlencoded): Remove 'coding' option.  If
+	'accept-charset' denotes within <form> tag, resolve coding-system
+	according to its list of charset.
+	(w3m-form-parse-forms): Handle value of 'accept-charset'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-tag-regexp-of): New macro to generate regexp of specified
+	tag(s).
+	(w3m-parse-attributes): Skip spaces before parsing.
+
+	* w3m-form.el (w3m-form-parse-forms): More flexible and simple tag
+	finding using `w3m-tag-regexp-of' macro.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-charset-coding-system-alist): Added 'us_ascii'.
+	(w3m-w3m-attributes): Use content of w3m-document-charset: field as
+	charset if exists.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-forms): Parse the tags only within the
+	"<form ..> ... </form>".
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-remove-redundant-spaces): Don't cause an error when str
+	contains only spaces.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* mew-w3m.el: Hand-over of copyright of this file from Goto to
+	Tsuchiya. This is consensual.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-rendering-region): Add charset option when call
+	w3m-form-parse-region().
+
+	* w3m-form.el (w3m-form-parse-region): Add charset option.  If w3m-type
+	is 'w3mmee or 'w3m-m17n, forms parse within a decoded temporally
+	buffer.
+	(w3m-form-parse-forms): New function.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-region): Don't extract value from submit
+	button, again.
+	(w3m-form-submit): Don't set value when NAME is omitted.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-rendering-region): Do not break matching data.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-fontify-forms): Put text properties corresponding to
+	form types.
+	(w3m-form-input): Simplify.
+	(w3m-form-input-password): New function.
+	(w3m-form-input-checkbox): Ditto.
+	(w3m-form-input-radio): Ditto.
+	(w3m-form-input-textarea): Follow changes in `w3m-form-input'.
+	(w3m-form-input-select): Ditto.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m-form.el (w3m-form-goto-next-field): New function.
+	(w3m-form-make-form-urlencoded): Refine to support value of check-box
+	type which is list of value string.
+	(w3m-form-parse-region): Support CHECKBOX type and RADIO type. Note
+	that CHECKBOX type has multiple values.
+	(w3m-fontify-forms): Use new property 'w3m-form-field-id to identify
+	each field to support RADIO type item. Also removed value putting code
+	because values are already set in parsing.
+	(w3m-form-input): Support action for CHECKBOX and RADIO type field.
+
+	* w3m.el (w3m-url-encode-string): Encode SPACE(0x20) as "+".
+	(w3m-rendering-region): Decode entities in title string.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Fixed problem when charset is quoted.
+
+	* w3m-form.el (w3m-form-parse-region): Don't extract value from submit
+	button.
+	(w3m-form-submit): If ACTION is not specified, send data to current
+	url.
+	(w3m-form-make-get-string): Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Bind `:bool' for old Emacsen.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-parse-attributes): Support :bool type attribute.
+
+	* w3m-form.el (w3m-form-parse-region): Use :bool type for SELECTED
+	attribute of OPTION tag.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-make-form-urlencoded): If second value of plist
+	is consp, use car value (for select).
+	(w3m-form-parse-region): Don't parse type attribute for textarea;
+	Process select.
+	(w3m-fontify-forms): Save value and name for submit.
+	(w3m-form-replace): Added optional argument `invisible'.
+	(w3m-form-input): Process SELECT and PASSWORD.
+	(w3m-form-input-select-buffer-lines): New user option.
+	(w3m-form-input-select-mode-hook): Ditto.
+	(w3m-form-input-select-set-hook): Ditto.
+	(w3m-form-input-select-keymap): New keymap.
+	(w3m-form-input-select-buffer): New buffer local variable.
+	(w3m-form-input-select-form): Ditto.
+	(w3m-form-input-select-name): Ditto.
+	(w3m-form-input-select-point): Ditto.
+	(w3m-form-input-select-candidates): Ditto.
+	(w3m-form-input-select-set): New function.
+	(w3m-form-input-select-mode): Ditto.
+	(w3m-form-input-select): Ditto.
+	(w3m-form-submit): Added optional argument name and value.
+
+	* w3m.el (w3m-remove-comments): New function.
+	(w3m-rendering-region): Call it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-default-coding-system): Changed default value
+	to shift_jis.
+	(w3m-form-make-form-urlencoded): Removed redundant local variable.
+
+	* w3m.el (w3m-url-encode-string): Encode newline as "%0D%0A"
+
+	* w3m-form.el (w3m-form-default-coding-system): New user option.
+	(w3m-form-make-form-urlencoded): Use it.
+	(w3m-form-input-textarea-set): Get values of buffer local variables
+	before changing buffer.
+	(w3m-form-input-textarea): Set values of buffer local variables after
+	changing buffer.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (comment): Modify URI of emacs-w3m.
+	(w3m-form-input-textarea-mode-hook): New user option.
+	(w3m-form-input-textarea-point): New buffer local variable.
+	(w3m-form-input-textarea-set): Run 'w3m-form-input-textarea-set-hook'
+	hook first.  Get 'w3m-buffer' from input buffer.  Go to the point of
+	the orignal form when switch to 'w3m-buffer'.
+	(w3m-form-input-textarea): Save original point to
+	'w3m-form-input-textarea-point'.  Set 'w3m-form-input-textarea-buffer'
+	within the buffer of the input area.
+
+	* w3m.el (w3m-about): Modify URI of emacs-w3m.
+	* w3m-xmas.el (comment): Ditto.
+	* w3m-weather.el (comment): Ditto.
+	* w3m-search.el (comment): Ditto.
+	* w3m-om.el (comment): Ditto.
+	* w3m-macro.el (comment): Ditto.
+	* w3m-e21.el (comment): Ditto.
+	* w3m-e20.el (comment): Ditto.
+	* w3m-dtree.el (comment): Ditto.
+	* w3m-bookmark.el (comment): Ditto.
+	* w3m-antenna.el (comment): Ditto.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-0.2.1-mnc.patch: Added [-post body] option.
+
+	* w3m.el (w3m-url-encode-string): Don't cause an error when str is nil.
+	(w3m-goto-url): Added post-body argument; Set -post option if post-body
+	is specified.
+
+	* w3m-form.el (w3m-form-make-form-urlencoded): New function.
+	(w3m-form-make-get-string): Use `w3m-form-make-form-urlencoded'.
+	(w3m-form-parse-region): Add textarea processing.
+	(w3m-form-replace): Delete newline characters.
+	(w3m-form-input): Added textarea processing.
+	(w3m-form-submit): If form method is POST, then set post-body argument
+	of `w3m-goto-url'.
+	(w3m-form-input-textarea-buffer-lines): New user option.
+	(w3m-form-input-textarea-mode-hook): Ditto.
+	(w3m-form-input-textarea-keymap): New keymap.
+	(w3m-form-input-textarea-buffer): New buffer local variable.
+	(w3m-form-input-textarea-form): Ditto.
+	(w3m-form-input-textarea-name): Ditto.
+	(w3m-form-input-textarea-set): New function.
+	(w3m-form-input-textarea-mode): Ditto.
+	(w3m-form-input-textarea): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Search xref in the root
+	entitiry.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-version): Bind `print-level' and `print-length'
+	to nil.
+	(w3mhack-examine-modules): Ditto.
+	* w3m.el (w3m-rendering-region): Ditto.
+	* w3m-form.el (w3m-form-submit): Ditto.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el: Added support code for w3m-m17n.
+	(w3m-type): Add new candidate.
+	(w3m-command, w3m-input-coding-system, w3m-output-coding-system)
+	(w3m-halfdump-command-arguments): Add default value for w3m-m17n.
+	(w3m-exec) [w3m-m17n]: No call `w3m-decode-buffer'.
+	(w3m-region) [w3m-m17n]: No call `encode-coding-region'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-dump-head-source-command-argument): Its old name is
+	`w3m-dump-head-source-command-arguments'.
+
[phone]  Mito  <[e-mail]>
+
+	* w3m.el (w3m-broken-proxy-cache): New variable.
+	(w3m-dump-head-source-command-arguments): Defined as list.
+	(w3m-w3m-retrieve): Cache on proxy server isn't used when neither
+	`no-cache' nor `w3m-broken-proxy-cache' equal to nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-form.el (w3m-form-parse-region): Check the value of
+	`w3m-current-buffer' to avoid wrong type argument error.
+
+	* w3m.el (w3m-rendering-region): Set `w3m-current-buffer' refered in
+	`w3m-form-parse-region'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-attributes): Remove URL fragments before checking its
+	attributes.
+	(w3m-retrieve): Remove URL fragments before getting its contents.
+	(w3m-w3m-retrieve): Follow changes in `w3m-retrieve'.
+	(w3m-arrived-add): Simplified regular expression.
+	(w3m-parse-attributes): Changed form spec for edebug.
+
+	* w3m-form.el (w3m-form-parse-region): Set `w3m-current-forms' in the
+	buffer `w3m-current-buffer'.
+
+	* mime-w3m.el (mime-w3m-save-background-color): Changed form spec for
+	edebug.
+
[phone]  Kiyokazu SUTO  <[e-mail]>,
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-fontify-anchors): Process w3m internal tag `<_id>' which
+	represents ID properties.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Remove URL's fragment before checking
+	cache.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-unoptimize-animated-gif): Truncate an animated gif
+	to have only one frame when the size is larger than the value of
+	`w3m-animated-gif-maximum-size'.
+	(w3m-animated-gif-maximum-size): New variable.
+
[phone]  Kenichi OKADA  <[e-mail]>
+
+	* w3m-xmas.el: Require `path-util'.
+
[phone]  NAKAJIMA Mikio <[e-mail]>
+
+	* w3m.el (w3m-exec-process): Replace `delete' with `delq'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toolbar): Use the English language when the value of the
+	variable `current-language-environment' is not "Japanese".
+
[phone]  Pavel Janik  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Fix typo Titile -> Title.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-arguments): Changed default value to
+	"-dump=half-buffer" when w3m-type equal 'w3mmee.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (iso-2022-7bit): New coding-system generated by copying
+	from `*iso-2022-jp*'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-coding-system): Changed default value to 'iso-2022-7bit.
+	(w3m-input-coding-system): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-create): Insert 'Meta tag' to the binding of
+	charset.
+
+	* w3m.el (w3m-local-dirlist-cgi): Fix charset handling.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-file-name-coding-system): New customizable value.
+	(w3m-charset-coding-system-alist): Reverse list.
+	(w3m-dirlist-cgi-program): Change default value for OS/2.
+	(w3m-local-dirlist-cgi): Set "QUERY_STRING" to encoded string of
+	'w3m-file-name-coding-system'. Insert 'Meta tag' to the binding of
+	charset.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Set a string representing file interpreted as
+	a directory to `default-directory'.
+	(w3m-about-source): Call `w3m-decode-buffer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Allow `detect-coding-region' to return
+	both a coding-system and a list of coding-systems.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (XEmacs): Require `byte-optimize' expressly before
+	advising the function `byte-optimize-form-code-walker'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-rename-url): Don't use `with-current-buffer'
+	for old Emacsen.
+	(w3m-history-copy): Ditto.
+	(w3m-history-share-properties): Ditto.
+	(w3m-history-seek-properties): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (slow): New rule for the developers to check a
+	portability for each module.
+	* w3m-xmas.el (w3m-cache-unoptimized-gif-images): Fix typo.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-directory-view-method): Modify default value.
+	(w3m-direlist-cgi-program): New variable.
+	(w3m-local-retrieve): Call w3m-local-dirlist-cgi() when local
+	directory.
+	(w3m-local-dirlist-cgi): New function. Execute either 'w3m' or
+	'direlist.cgi'.
+	(w3m-goto-url-localcgi-movepoint): Use 'w3m-name-anchor instead of
+	'patter-matching'.
+	(w3m-url-completion): Handling drive letter for any broken OSes.
+
+	* w3m-dtree.el (w3m-dtree-stop-strings): Add a new alternative.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-decode-buffer): Removed reference of `w3m-coding-system'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-directory-depth): New variable.
+	(w3m-dtree-stop-strings): Ditto.
+	(w3m-dtree-create-sub): Add new arugument 'depth'. Stop recursive call,
+	if directory-depth over the 'w3m-dtree-directory-depth'.
+
[phone]  NAKAGAWA Takayuki <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-create-sub): To avoid infinite recusion,
+	directory-files now returns absolute file names and expand-file-name is
+	omitted.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Get the values of `w3m-current-url' and
+	`w3m-history-flat' from the buffer `w3m-current-buffer'.
+	(w3m-goto-url): Set the value of `w3m-current-buffer' as the current
+	buffer.
+	(w3m-current-buffer): New internal variable.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Made it to return w3m-macro.elc
+	and the version specific module first.
+
+	* w3m.el (w3m-setup-menu): Define it if the feature `xemacs' is not
+	provided.
+	(TopLevel): Don't bind the functions `w3m-display-inline-image-p',
+	`w3m-display-graphic-p', `w3m-update-toolbar', `w3m-setup-toolbar',
+	`w3m-image-type-available-p', `w3m-insert-image' and
+	`w3m-create-image'.
+	(w3m-get-buffer-create, w3m-add-text-properties, w3m-with-work-buffer):
+	Moved to w3m-macro.el.
+	(w3m-charset-coding-system-alist): Use `w3m-find-coding-system'
+	directly.
+	(w3m-find-coding-system): Moved to the version specific modules.
+	(w3m-static-cond, w3m-static-if): Moved to w3m-macro.el.
+	(TopLevel): Require `w3m-e20' when the version of the running Emacs is
+	neither XEmacs, Emacs 21 nor Mule2.
+	(TopLevel): Require `w3m-macro'.
+
+	* w3m-xmas.el (w3m-euc-japan-decoder): Define it when the function
+	`ccl-compile-write-multibyte-character' is bound.
+	(widget-coding-system-action): Use `eval' instead of the funcall'ing
+	for the function `widget-coding-system-prompt-value'.  It is only for
+	avoiding a byte-compile warning.
+	(w3m-should-unoptimize-animated-gifs): Check for both
+	`emacs-patch-level' and `emacs-beta-version' when XEmacs 21.2 is
+	running.
+	(TopLevel): Bind the functions `w3m-image-type' and `w3m-retrieve' when
+	compiling.
+	(TopLevel): Bind the variables `w3m-current-url',
+	`w3m-display-inline-image', `w3m-icon-directory', `w3m-menubar',
+	`w3m-toolbar', `w3m-toolbar-buttons', `w3m-use-header-line' and
+	`w3m-work-buffer-name' when compiling.
+	(TopLevel): Don't require `w3m'.
+	(TopLevel): Provide the feature `w3m-xmas' in the end of the file.
+
+	* w3m-om.el (read-passwd): Enclose it with `eval-and-compile'.
+	(w3m-find-coding-system): New inline function moved from w3m.el.
+	(w3m-display-inline-image-p, w3m-display-graphic-p, w3m-update-toolbar,
+	w3m-setup-toolbar, w3m-image-type-available-p, w3m-insert-image,
+	w3m-create-image): Alias to `ignore'.
+	(TopLevel): Bind the variables `w3m-menubar' and `w3m-mode-map' when
+	compiling.
+	(TopLevel): Don't require `w3m'.
+	(TopLevel): Provide the feature `w3m-om' in the end of the file.
+
+	* w3m-macro.el: New file which currently contains
+	`w3m-get-buffer-create', `w3m-add-text-properties',
+	`w3m-with-work-buffer', `w3m-static-cond' and `w3m-static-if'.
+
+	* w3m-e21.el (w3m-update-toolbar): Alias to `ignore'.
+	(w3m-find-coding-system): New inline function moved from w3m.el.
+	(TopLevel): Bind the functions `w3m-image-type' and `w3m-retrieve' when
+	compiling.
+	(TopLevel): Bind the variables `w3m-work-buffer-name',
+	`w3m-use-header-line', `w3m-toolbar-buttons', `w3m-toolbar',
+	`w3m-mode-map', `w3m-icon-directory' and `w3m-display-inline-image'
+	when compiling.
+	(TopLevel): Don't require `w3m'; require `w3m-macro'.
+	(TopLevel): Provide the feature `w3m-e21' in the end of the file.
+
+	* w3m-e20.el: New file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-expand-file-name-as-url): Remove handling
+	'about://dtree'.
+	(w3m-local-content-type): Ditto.
+	(w3m-url-local-p): Ditto.
+	(w3m-local-directory-view-method): New variable.
+	(w3m-local-retrieve): If url is directory, call w3m by way of kick
+	'dirlist.cgi'
+	(w3m-url-dtree-p): New defsubst.
+	(w3m-edit-current-url, w3m-edit-this-url): Use w3m-url-dtree-p().
+	(w3m-goto-url-localcgi-movepoint): New function.
+	(w3m-goto-url): If URL is a local directory, check and change URL by
+	the use of 'w3m-local-directory-view-method'.  If URL type is a local
+	cgi, move to its directory point.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-euc-japan-decoder): Check if `emacs-major-version'
+	is 21 instead of 20 and check for `emacs-beta-version' instead of
+	`emacs-patch-level'.
+	(w3m-should-unoptimize-animated-gifs): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-xmas.el (w3m-euc-japan-decoder): Fix typo.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-euc-japan-decoder): Don't check for the constant
+	`emacs-patch-level' when the beta versions of XEmacs is running.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-euc-japan-decoder): Not define when it has been already
+	defined.
+
+	* w3m-xmas.el (w3m-euc-japan-decoder): Define when XEmacs whose version
+	is greater than 21.2.19 is used.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Modify messages in `w3m-view-header', `w3m-view-source',
+	`w3m-edit-this-url', `w3m-print-this-url', `w3m-download-this-url',
+	`w3m-view-current-url-with-external-browser', `w3m-save-image',
+	`w3m-view-image', `w3m-mouse-view-this-url', `w3m-view-this-url' and
+	`w3m-search-name-anchor'.
+
+	* w3m.el (w3m-toggle-inline-images): Signal an error when the function
+	`w3m-display-graphic-p' returns nil.
+	(w3m-display-graphic-p): Alias to `ignore' by default.
+	(w3m-menubar): Disable a menu button "Toggle Images" when the function
+	`w3m-display-graphic-p' returns nil.
+	* w3m-xmas.el (w3m-display-graphic-p): Alias to
+	`device-on-window-system-p'.
+	* w3m-e21.el (w3m-display-graphic-p): Alias to `display-graphic-p'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-find-coding-system): New function to replace
+	`find-coding-system'.
+	(w3m-charset-to-coding-system): Use `w3m-find-coding-system'.
+	(make-ccl-coding-system): Removed.
+	(toplevel) [emacs20, emacs21]: Removed dependency on `pccl'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (toplevel): Fix condition for (require 'pccl).
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-charset-to-coding-system): Simplified.
+	(make-ccl-coding-system) [XEmacs, Mule]: Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-region): Use `w3m-display-inline-image-p'.
+	(w3m-goto-url): Ditto.
+	(w3m-display-inline-image-p): New function.
+	* w3m-xmas.el (w3m-display-inline-image-p): New function.
+	* w3m-e21.el (w3m-display-inline-image-p): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (toplevel): Define make-ccl-coding-system() myself, when
+	failed (require 'pccl).
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m): Made it can be called non-interactively or a batch job.
+
+	* w3m.el (w3m-goto-url): Add autoload magic cookie.
+	* w3m-weather.el (w3m-about-weather, w3m-weather): Ditto.
+	* w3m-search.el (w3m-search): Ditto.
+	* w3m-form.el (w3m-fontify-forms, w3m-form-parse-region): Ditto.
+	* w3m-filter.el (w3m-filter): Ditto.
+	* w3m-dtree.el (w3m-dtree, w3m-about-dtree): Ditto.
+	* w3m-bookmark.el (w3m-bookmark-view, w3m-bookmark-add-current-url,
+	w3m-bookmark-add-this-url): Ditto.
+	* w3m-antenna.el (w3m-antenna, w3m-about-antenna): Ditto.
+	* mime-w3m.el (mime-w3m-preview-text/html): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-coding-system): Changed default value to
+	'iso-2022-7bit-ss2.
+	(w3m-terminal-coding-system): New user option.
+	(w3m-attributes): When URL whose scheme equals to `about' is specified,
+	returns `w3m-coding-system' as its content-charset.
+	(w3m-exec-process): Refer `w3m-terminal-coding-system'.
+	(w3m-decode-buffer): Decode buffer everywhen it is called.
+	(w3m-about-retrieve): New function.
+	(w3m-cid-retrieve): Ditto.
+	(w3m-retrieve): Call `w3m-about-retrieve' and `w3m-cid-retrieve'.
+	(w3m-rendering-region) [w3mmee]: No call `encode-coding-region'.  Fix
+	coding-system spec error for Mule-2.3.
+	(w3m-rendering-region): Simplified.
+	(w3m-region) [w3mmee]: Encode this buffer as unibyte representation.
+	(w3m-about-history): No call `w3m-with-work-buffer'.
+	(w3m-about-db-history): Ditto.
+
+	* w3m-dtree.el (w3m-about-dtree): Ditto.
+
+	* w3m-weather.el (w3m-about-weather): Call `w3m-decode-buffer'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m): Popup a new frame if there is neither a window nor a
+	frame associated with w3m and `w3m-pop-up-frames' is non-nil; refer to
+	`w3m-pop-up-frame-parameters' when creating a new w3m frame.
+	(w3m-pop-up-frame-parameters): New user option which allows a kludge
+	that it can be either an alist or a plist.
+	(w3m-pop-up-frames): New user option.
+
+	* w3m-e21.el (w3m-setup-header-line): Replace "%" with "%%" in an url
+	string.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-read-coding-system): Removed.
+	(w3m-process-environment): New variable.
+	(w3m-input-coding-system): Changed default value.
+	(w3m-output-coding-system) [w3mmee]: Changed default value.
+	(w3m-arrived-add-1): Changed argument spec.
+	(w3m-arrived-add): Ditto.
+	(w3m-arrived-coding-system): Removed.
+	(w3m-arrived-content-charset): New function.
+	(w3m-arrived-setup): Changed arrived file format to keep
+	content-charset instead of coding-system.
+	(w3m-arrived-shutdown): Ditto.
+	(w3m-exec-process): Refer `w3m-process-environment' to set environments
+	for sub-processes.
+	(w3m-decode-encoded-contents): Ditto.
+	(w3m-coding-system-to-charset): Removed.
+	(w3m-read-content-charset): New function.
+	(w3m-decode-buffer): Changed argument spec.  Process this buffer if and
+	only if it's represented in unibyte.
+	(w3m-rendering-region): Reconstruced.
+	(w3m-exec): Changed argument spec and followed the change of
+	`w3m-decode-buffer'.
+	(w3m-goto-url): Changed argument spec and followed the change of
+	`w3m-exec'.
+	(w3m-redisplay-with-coding-system): Removed.
+	(w3m-redisplay-with-charset): New command to replace
+	`w3m-redisplay-with-coding-system'.
+	(w3m-region): No call `encode-coding-region'.
+	(w3m-about-history): Ditto.
+	(w3m-about-db-history): Ditto.
+
+	* w3m-antenna.el (w3m-about-antenna): No call `encode-coding-region'.
+
+	* w3m-dtree.el (w3m-about-dtree): Ditto.
+
+	* w3m-om.el (w3m-read-coding-system): Removed.
+	(coding-system-list): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-expand-file-name-as-url): If file is directory, expand to
+	use 'about://dtree'.
+	(w3m-local-content-type): If url is directory or 'about://dtree/",
+	return "text/html" type.
+	(w3m-goto-url): If URL is local and directory, change URL 'file://' to
+	'about://dtree'.
+	(w3m-halfdump-command): New variable.
+	(w3m-halfdump-command-arguments): Change to defvar.
+	(w3m-halfdump-command-common-arguments): New constant, common arguments
+	for 'halfdump' execution of all w3m variants.
+	(w3m-rendering-region): Use 'w3m-halfdump-command' if setted. Change
+	call process arguments.
+	(w3m-lynx-like-map): Add w3m-gohome() keybind.
+	(w3m-info-like-map): Add w3m-dtree() and w3m-edit-this-url()
+	keybind. Use w3m-gohome() instead of lamda expression.
+	(w3m-mode): Modify doc-string.
+
+	* w3m-dtree.el (w3m-about-dtree): Modify message.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-unoptimize-animated-gif): New function which is
+	separated from `w3m-create-image'; improve a way to check whether a
+	data should be unoptimized or not.
+	(w3m-create-image): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-create-image): Attempt to extract the first frame of
+	an animated gif when the unoptimization is failed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-add-text-properties): Don't specify `end-open' nor
+	`front-nonsticky' that are the default.
+	(w3m-emacs-w3m-icon): Colorized.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-cache-contents): Don't insert additional '\n' for binary
+	data.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Don't make the coding-system `w3m-euc-japan' if it already
+	exists to make w3m.el reloadable in Emacs 20.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about): Put an icon image as about://emacs-w3m.gif.
+	(w3m-retrieve): Make an exception of about://emacs-w3m.gif.
+	(w3m-attributes): Ditto.
+	(w3m-emacs-w3m-icon): New constant for about://emacs-w3m.gif.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-region): Call w3m-render-region for the region from
+	`point-min' to `point-max' because buffer is already narrowed.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Fix condition when
+	mew-mime-text/html() call, again. Avoid byte-compile warning when
+	compiling.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Add support code of w3mmee.  Reorganaized codes to handle
+	content types and coding systems which are specified by user.
+	(toplevel): Require 'pccl.
+	(w3m-type): New user option.
+	(w3m-mnc): Removed user option.
+	(w3m-linefeed-type): Removed variable.
+	(w3m-dump-head-source-option): Ditto.
+	(w3m-decode-all-to-this-charset): Ditto.
+	(w3m-halfdump-option): Ditto.
+	(w3m-halfdump-expand-options): Ditto.
+	(w3m-extended-characters-table): Ditto.
+	(w3m-command): Refer `w3m-type' to decide default value.
+	(w3m-command-arguments): Ditto.
+	(w3m-output-coding-system): Changed default value to `w3m-euc-japan'.
+	(w3m-profile-directory): Refer `w3m-command' to decide default value.
+	(w3m-default-save-directory): Ditto.
+	(w3m-dump-head-source-command-arguments): New constant.
+	(w3m-halfdump-command-arguments): Refer `w3m-type' to decide default
+	value.
+	(w3m-arrived-add-1): Add an argument `content-type'.
+	(w3m-arrived-add): Likewise and follow change of `w3m-arrived-add-1'.
+	(w3m-arrived-coding-system): Strict checking of return value.
+	(w3m-arrived-content-type): New function.
+	(w3m-arrived-setup): Follow change of `w3m-arrived-add'.
+	(w3m-arrived-shutdown): Ditto.
+	(w3m-exec-process): Set process environment to avoid unexpected
+	conversion in Windows.
+	(w3m-charset-to-coding-system): New function.
+	(w3m-decode-encoded-contents): Old name is `w3m-decode-encoded-buffer'.
+	Set process environment to avoid unexpected conversion in Windows.
+	(w3m-local-retrieve). Simplified.
+	(w3m-pretty-length): Removed.
+	(w3m-crlf-to-lf): Removed.
+	(w3m-w3m-dump-head-source): No call `w3m-crlf-to-lf'.
+	(w3m-w3m-dump-source): Ditto.
+	(w3m-w3m-retrieve) Removed optional argument `cs' and simplified.
+	(w3m-retrieve): Ditto.
+	(w3m-decode-extended-characters): Removed.
+	(w3m-euc-japan-decoder): New CCL program.
+	(w3m-euc-japan-encoder): Dummy CCL program.
+	(w3m-euc-japan): New coding system.
+	(w3m-rendering-region): New optional argument `charset' and support
+	codes of `w3mmee' are added.  Handle new defintion style of
+	`w3m-halfdump-command-arguments'.  Refer `w3m-euc-japan' to process
+	outputs of `w3m'.
+	(w3m-exec): Reconstructed.  This accepts new optional argument
+	`content-type'.
+	(w3m-goto-url): Reconstructed to handle files which have unknown
+	cotent-types.
+	(w3m-redisplay-with-coding-system): Simplified.
+	(w3m-find-file): Simplified and optional argument `type' is removed.
+	(w3m-region): Encode output buffer into `w3m-input-coding-system'.
+	(w3m-about-history): Ditto.
+	(w3m-about-db-history): Ditto.
+
+	* w3m-antenna.el (w3m-about-antenna): Encode output buffer into
+	`w3m-input-coding-system'.
+
+	* w3m-dtree.el (w3m-about-dtree): Ditto.
+
+	* mime-w3m.el (mime-w3m-cid-retrieve): Changed spec of arguments.
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images): Message "Showing...".
+
+	* w3m-xmas.el (w3m-create-image): Unoptimize animated GIFs using
+	gifsicle program.
+	(w3m-cache-unoptimized-gif-images-max-length): New variable.
+	(w3m-cache-unoptimized-gif-images): New variable.
+	(w3m-gifsicle-program): New variable.
+	(w3m-should-unoptimize-animated-gifs): New variable.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Don't initialize the value of
+	`w3m-cache-underline-faces' here.
+	(w3m-toggle-inline-images): Run the following new hooks instead of to
+	hide/show underlines behind inline images here.
+	(w3m-cache-underline-faces): Variable moved to w3m-e21.el.
+	(w3m-remove-inline-images-after-hook): New hook.
+	(w3m-remove-inline-images-before-hook): New hook.
+	(w3m-show-inline-images-after-hook): New hook.
+	(w3m-show-inline-images-before-hook): New hook.
+
+	* w3m-e21.el: Use `w3m-remove-inline-images-after-hook',
+	`w3m-show-inline-images-after-hook',
+	`w3m-show-inline-images-before-hook' and `w3m-fontify-before-hook' to
+	fix the undesirable feature of Emacs 21 that to show an underline of a
+	text even if it has an image as a text property.
+	(w3m-cache-underline-faces): Variable moved from w3m.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-cache-underline-faces): Modified docs that it is for
+	Emacs 21's exclusive use.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-indent): Remove variable.
+	(w3m-dtree-fancy-display): Ditto.
+	(w3m-dtree-indent-strings): New variable.
+	(w3m-dtree-create-fancy): Remove function.
+	(w3m-dtree-create-sub): Rename function from w3m-dtree-create-fancy()
+	and tiny modified.
+	(w3m-about-dtree): Remove 'fancy style' method.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* icons/db-history-up.xpm: Change color.
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Fix condition when
+	mew-mime-text/html() call.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-find-file): Improved.
+	(w3m-default-content-type): New user option.
+	(w3m-url-completion): New function.
+	(w3m-input-url): Call `w3m-url-completion' to complete URLs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-find-file): New optional argument, `type' is added.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-add-arrived-db): Improve the madness.
+
+	* w3m.el (w3m-about-history): Add small indentation to sub trees.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Modify display format for no folding.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): New implementation.
+	(w3m-about-history-indent-level): New variable.
+	(w3m-about-history-max-indentation): New variable.
+
+	* icons/history-up.xpm: Replaced a pixmap with a new pattern.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-default-allfiles): Modify default value.
+	(w3m-dtree-fancy-display): New variable.
+	(w3m-dtree-create-fancy): New function.
+	(w3m-dtree-create-sub): Insert the indicator which directory or file,
+	if allfiles.
+	(w3m-about-dtree): Use fancy style function, if
+	'w3m-dtree-fancy-display' is non-nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m): Use existing frame or window.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-create): Fix HTML bug.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-cache-underline-faces): Added docs that it is currently
+	needed for only pretest versions of Emacs 21.
+	(w3m-fontify-anchors): Don't fontify the trailing white spaces of a
+	href.
+	* w3m-xmas.el (w3m-insert-image): Don't handle underline faces.
+	* w3m-e21.el (w3m-insert-image): Simplified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-setup-header-line, w3m-exec, w3m-decode-entities):
+	Replace `add-text-properties' with `w3m-add-text-properties'.
+	(w3m-fontify-images, w3m-fontify-anchors): Ditto.
+	(w3m-setup-header-line, w3m-cache-contents, w3m-refontify-anchor):
+	Replace `put-text-property' with `w3m-add-text-properties'.
+	(w3m-toggle-inline-images, w3m-fontify-anchors): Ditto.
+	(w3m-fontify-underline, w3m-fontify-bold): Ditto.
+	(w3m-add-text-properties): New macro used to put non-sticky text
+	properties.
+
+	* w3m-xmas.el (w3m-setup-header-line): Don't put non-sticky text
+	property here.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-w3m): Typo fix.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-default-section): Changed
+	initialization order.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-dtree.el (w3m-dtree-create): Modify warning message.
+	(w3m-about-dtree): Set path to directory name.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el, w3m-antenna.el, w3m-bookmark.el, w3m-dtree.el, w3m-search.el,
+	w3m-weather.el: Fixed document strings of functions.
+
+	* mew-w3m.el (mew-w3m): New customize group.
+	(mew-use-w3m-minor-mode): Use defcustom.
+	(mew-w3m-auto-insert-image): Use defcustom.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Set 'default-directory' to
+	'w3m-profile-directory', if 'url' is local but not exist that
+	directory.
+
+	* w3m-dtree.el (w3m-dtree-create): If 'path' is not a directory,
+	display warning message.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Initialize the value of
+	`w3m-cache-underline-faces'.
+	(w3m-toggle-inline-images): Remove or restore the underlined faces.
+	(w3m-cache-underline-faces): New buffer-local variable used to cache
+	the detached underlined faces from a buffer.
+
+	* w3m-xmas.el (w3m-insert-image): Detach an underlined face in
+	`w3m-cache-underline-faces'.
+	* w3m-e21.el (w3m-insert-image): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images): Restore hidden faces in the text
+	property `w3m-hidden-face'.
+
+	* w3m-xmas.el (w3m-setup-header-line): Don't inherit existing text
+	properties in a header line.
+
+	* w3m-xmas.el (w3m-insert-image): Hide a face in the text property
+	`w3m-hidden-face' if it is underlined, instead of the removing.
+	* w3m-e21.el (w3m-insert-image): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (top-level): Fixed argument of autoload for `w3m-dtree', and
+	added autoload for `w3m-about-dtree'.
+
+	* w3m-dtree.el (w3m-dtree): Fixed doc-string.
+
[phone]  "Takayuki Nakagawa"  <[e-mail]>
+
+	* w3m.el (w3m-goto-ftp-url): Use `file-directory-p' instead of file
+	name suffix to distinguish directories and files.
+	(w3m-time-parse-string (for buggy timezone.el)): Ignore errors occured
+	in `encode-time'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-dtree.el (top-level): Require `w3m' to suppress byte-compile
+	warnings.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url): Message if there is no link.
+	(w3m-cursor-anchor): Redefine as a macro for byte-optimization.
+	(w3m-action, w3m-image, w3m-anchor): Redefine as a macro using
+	`w3m-get-text-property-around'.
+	(w3m-get-text-property-around): New macro.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-exec): Report a process exit status if an error has
+	occurred.
+	(w3m-download): Ditto.
+	(w3m-w3m-dump-source): Don't use `zerop' to check for a process exit
+	status.
+	(w3m-w3m-dump-head-source): Ditto.
+	(w3m-w3m-get-header): Ditto.
+	(w3m-exec-process): Made it to return t if succeeded otherwise nil, to
+	keep a process exit status in `w3m-process-exit-status'.
+	(w3m-process-exit-status): New variable.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (TOP): Add autoload for w3m-dtree.
+	(w3m-url-to-file-name): If URL is started 'about://dtree', it convert
+	to local file. Change [A-z] to [A-Za-z].
+	(w3m-url-local-p): If URL is started 'about://dtree', it assume to
+	local file.
+	(w3m-prog-dtree): Delete variable.
+	(w3m-about-history-ignored-regexp): Delete constant.
+	(w3m-arrived-ignored-regexp): New constant.
+	(w3m-history-ignored-regexp): New constant.
+	(w3m-arrived-add): Use 'w3m-arrived-ignored-regexp' instead of
+	'w3m-about-history-ignored-regexp'.
+	(w3m-arrived-p): Ditto.
+	(w3m-parse-attributes): Change [A-z] to [A-Za-z].
+	(w3m-fontify): Ditto.
+	(w3m-external-view): Remove 'about://dtree' handling.
+	(w3m-about-history): Use 'w3m-history-ignored-regexp' instead of
+	'w3m-about-history-ignored-regexp'.
+	(w3m-about-db-history): Ditto.
+	(w3m-about-dtree): Move to 'w3m-dtree.el'.
+	(w3m-dtree): Ditto.
+
+	* w3m-dtree.el: New file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-cursor-anchor): New defsubst.
+	(w3m-fontify-anchors): Add 'w3m-cursor-anchor property for
+	w3m-goto-(next|previous)-anchor.
+	(w3m-goto-anchor-hist): New buffer local variable.
+	(w3m-goto-next-anchor): Use 'w3m-cursor-anchor property.
+	(w3m-goto-previous-anchor): Ditto.
+	(w3m-next-anchor): Don't stop divided anchor using
+	'w3m-goto-anchor-hist'.
+	(w3m-previous-anchor): Ditto.
+
+	* w3m-form.el (w3m-fontify-forms): Add 'w3m-cursor-anchor property for
+	w3m-goto-(next|previous)-anchor.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-copy): New implementation without recursive
+	funcall'ing using `w3m-history-tree'.
+	(w3m-history-tree): Allow the optional argument `newpos'.
+	(w3m-history-copy-1): Removed.
+
+	* w3m.el (w3m-gohome): New command.
+	(w3m-setup-menu): Use `w3m-menubar'.
+	(w3m-menubar): New constant.
+	(w3m-toolbar): Added "copy"; use `w3m-gohome'.
+	(w3m-toolbar-buttons): Added "copy".
+
+	* w3m-xmas.el (w3m-setup-menu): Moved menubar definition to w3m.el.
+
+	* icons/copy-up.xpm: New file.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-last-modified): When specified URL is not
+	found, returns t.
+	(w3m-antenna-check-sites): When the checking site is not found, use old
+	record.
+	(w3m-about-antenna): Excess arguments are ignored.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-insert-image): Remove `face' property from a text
+	behind an image.
+
+	* w3m-e21.el (w3m-remove-image): Use a regular plist in the arg of
+	`remove-text-properties'.
+	* w3m.el (w3m-toggle-inline-images): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-e21.el (w3m-insert-image): Remove `face' property from a text
+	behind an image.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el:
+	(w3m-dump-head-source-option): New variable.
+	(w3m-decode-all-to-this-charset): Ditto.
+	(w3m-halfdump-option): Ditto.
+	(w3m-halfdump-expand-options): Ditto.
+	(w3m-edit-function): Ditto.
+	(w3m-prog-dtree): Ditto.
+	(w3m-halfdump-command-arguments): Remove "-halfdump".
+	(w3m-fontify): Display minibuffer messages.
+	(w3m-decode-buffer): Use w3m-decode-all-to-this-charset, when its
+	non-nil.
+	(w3m-local-retrieve): If file is directory, return 'nil'.
+	(w3m-w3m-dump-head-source): Use 'w3m-dump-head-source-option' instead
+	of "-dump_extra".
+	(w3m-rendering-region): Use 'w3m-halfdump-option',
+	'w3m-halfdump-command-arguments' and 'w3m-halfdump-expand-options',
+	when call-process.
+	(w3m-exec): Add no-cache option for w3m-dtree when call
+	w3m-external-view().
+	(w3m-external-view): Add no-cache option. If url is local directory,
+	call w3m-dtree().
+	(w3m-print-this-url): Expand output message.
+	(w3m-edit-current-url): Use 'w3m-edit-function' instead of find-file().
+	(w3m-edit-this-url): New function.
+	(w3m-goto-next-anchor): Input form support.
+	(w3m-goto-previous-anchor): Ditto.
+	(keymap): Add w3m-edit-current-url() and w3m-edit-this-url().
+	(w3m-mode): Modify doc-string for new functions.
+	(w3m-view-header): Modify doc-string.
+	(w3m-history): Add doc-string.
+	(w3m-about-dtree): New function.
+	(w3m-dtree): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-flat): Don't funcall itself recursively.
+
+	* w3m.el (w3m-fontify-images): Only put text properties `w3m-image' and
+	`w3m-image-redundant' if there is a property `w3m-href-anchor'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-tree): New function.
+
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Release emacs-w3m-1.0 from emacs-w3m-1_0 branch.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-setup-menu): Don't set up menu if it has already been
+	available.
+
+	* w3m.el (w3m-setup-menu): Locate W3M menu in the forefront of the
+	menubar.
+	* w3m-xmas.el (w3m-setup-menu): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-mode): Modify doc-string for describe mode, again.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-form.el (top-level): Modify string to 'iso-2022-7bit' for
+	set-auto-coding.
+	(w3m-form-make-get-string): Guard error in w3m-url-encode-string()
+	reported [emacs-w3m:00686].
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Run `set-buffer-multibyte' after
+	`erase-buffer' is done.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Fixed problem when no-cache is non-nil and
+	w3m-content-type returns nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-search.el (top-level): Removed magic string to decide coding
+	system.
+
+	* w3m-xmas.el (top-level): Ditto.
+
+	* w3m-e21.el (top-level): Ditto.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m-xmas.el (w3m-setup-menu): Implemented.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Check validity of contents length, to
+	avoid the problem reported in [emacs-w3m:00682].
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-bookmark.el (w3m-bookmark-section-history): Revival.
+	(w3m-bookmark-title-history): Ditto.
+
+	* w3m.el (w3m-extended-characters-table): Add "\x90" entry.
+	(w3m-setup-menu): Move from w3m-e21.el.
+	(w3m-mode): Modify doc-string for describe mode.
+	(top-level): Add key-bind, w3m-antenna(), w3m-weather() and
+	w3m-search().
+	(w3m-about-history): Set w3m work buffer as multibyte.
+
+	* w3m-e21.el (w3m-setup-menu): Move to w3m.el.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-mode): Call w3m-setup-menu.
+
+	* w3m-xmas.el (w3m-setup-menu): New stub.
+
+	* w3m-e21.el (w3m-setup-menu): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Replace ">" with "&gt;".
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): New implementation without recursive
+	funcall'ing.
+	(w3m-about-history-1): Removed.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-ftp-url): Don't give a url string to the function
+	`file-name-nondirectory'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Enhance the last link.
+	(w3m-arrived-p): Return non-nil when url matches
+	`w3m-about-history-ignored-regexp'.
+	(w3m-arrived-add): Don't put url into an arrived-db when url matches
+	`w3m-about-history-ignored-regexp'.
+	(w3m-about-history-ignored-regexp): Renamed from
+	`w3m-about-history-except-regex'.
+
+	* w3m-hist.el (w3m-history-restore-position): Instruct
+	`w3m-history-plist-get' to work with buffer-local properties.
+	(w3m-history-store-position): Instruct `w3m-history-add-properties' to
+	work with buffer-local properties.
+	(w3m-history-remove-properties): Allow the optional arg `local'.
+	(w3m-history-add-properties): Ditto.
+	(w3m-history-plist-put): Ditto.
+	(w3m-history-plist-get): Ditto.
+	(w3m-history-copy): Remove buffer-local properties.
+	(w3m-history-flat): Made it to have buffer-local properties.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Support Mew 1.95b120 or later.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-quit): Clear the echo area just after prompting.
+	(w3m-save-list): Format a list by itself instead of the use of pp.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-0.2.1-mnc.patch: See [emacs-w3m:00629].
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Use `w3m-history-store-position' instead of
+	`w3m-arrived-store-position'.
+	(w3m-lynx-like-map): Bind `w3m-history-restore-position' instead of
+	`w3m-view-previous-point' for the key `C-c C-b'; new key `C-c C-SPC' to
+	bind the command `w3m-history-store-position'.
+	(w3m-view-previous-point): Removed.
+	(w3m-view-next-page): Use `w3m-history-restore-position' instead of
+	`w3m-arrived-restore-position'.
+	(w3m-view-previous-page): Ditto.
+	(w3m-arrived-restore-position): Removed.
+	(w3m-arrived-store-position): Removed.
+
+	* w3m-hist.el (w3m-history-add-arrived-db): Don't specify the 2nd arg
+	in `w3m-history-push'; specify the 2nd in `w3m-history-backward'.
+	(w3m-history-restore-position): New command.
+	(w3m-history-store-position): New command.
+	(w3m-history-plist-put): Use `w3m-history-modify-properties'.
+	(w3m-history-plist-get): Don't specify the 3rd arg in
+	`w3m-history-assoc'.
+	(w3m-history-push): Allow the optional arg `replace-props'; use
+	`w3m-history-modify-properties'.
+	(w3m-history-assoc): Allow the optional arg `replace-props'; always
+	modify the properties of a history element; use
+	`w3m-history-modify-properties'.
+	(w3m-history-backward): Allow the optional arg `set-current'; don't
+	modify the position pointer of `w3m-history' normally; use
+	`w3m-history-save-position'.
+	(w3m-history-forward): Ditto.
+	(w3m-history-with-element): Don't specify the 3rd arg in
+	`w3m-history-assoc'.
+	(w3m-history-modify-properties): New macro.
+	(w3m-history-save-position): New macro.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-xmas.el (w3m-setup-header-line): Check `major-mode' to decide
+	whether header line should be set up.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-linefeed-type): Change default value.
+
+	* w3m-0.2.1-mnc.patch: Define setmode(fileno(stdout), O_BINARY) if
+	win32 or OS/2. Define lrand48() and srand48() used if they don't have.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Set w3m work buffer as multibyte.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-info-like-map): Changed key of `w3m-reload-this-page'.
+
[phone]  Taiki SUGAWARA <[e-mail]>
+
+	* w3m.el (w3m-expand-file-name-as-url): Use "file:///cygdrive/" instead
+	of "/cygdrive/" when `w3m-use-cygdrive' is non-nil.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-add-arrived-db): New command.
+
+	* w3m.el (w3m-db-history): New command.
+	(w3m-about-history, w3m-about-history-1): Don't deactivate "about://*"
+	links.
+	(w3m-exec): Share a url string between the variable `w3m-current-url'
+	and the history structure.
+	(w3m-toolbar, w3m-toolbar-buttons): Added history and db-history.
+
+	* icons/db-history-up.xpm: New file.
+	* icons/history-up.xpm: New file.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-source): Don't execute if can't load its source.
+	(w3m-view-header): Don't execute if can't load its header. Toggle
+	html/header if execute twice.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Use `set-text-properties' to remove all text
+	props from url string.
+	(w3m-exec): Use `add-text-properties' instead of `set-text-properties'.
+	(w3m-w3m-dump-source, w3m-w3m-dump-head-source): Removed not-used bound
+	variable `w3m-w3m-retrieve-length'.
+	(w3m-cache-request-contents): Removed not-used bound variables `type'
+	and `charset'.
+	(w3m-entity-value): Removed not-used bound variable `sym'.
+	(w3m-arrived-add): Use `w3m-arrived-add-1'; don't funcall itself
+	recursively to get rid of redundancy; don't use `set-text-properties'
+	here.
+	(w3m-arrived-add-1): New macro.
+
+	* w3mhack.el (XEmacs): Byte-optimize `set-text-properties' to make the
+	program run a little bit faster.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-use-cygdrive): Change default value.
+	(w3m-linefeed-type): New customize variable.
+	(w3m-executable-type): Remove variable.
+	(w3m-crlf-to-lf): Use 'w3m-linefeed-type' instead of
+	'w3m-executable-type'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el: Byte-optimize `match-string-no-properties' not to use
+	`set-text-properties' under XEmacs.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-setup-header-line): Check `major-mode' to decide whether
+	header line should be set up.
+
+	* mime-w3m.el (mime-w3m-use-header-line): Removed.
+	(mime-w3m-preview-text/html): Canceled last change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-mode-map): Initialize when source file is loaded.
+
+	* mime-w3m.el (mime-w3m-mode-map): Simplify.
+
+	* mew-w3m.el (TopLevel): Initialization code of `w3m-mode-map' is
+	removed.
+
+	* w3m.el, w3m-weather.el, w3m-filter.el, w3m-form.el: Change
+	coding-system.
+
+	* mime-w3m.el (mime-w3m-use-header-line): New user option.
+	(mime-w3m-preview-text/html): Refer `mime-w3m-use-header-line' to
+	control `w3m-use-header-line'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist: Made the history management system to keep properties of
+	each history element to be shared by all the w3m buffers.
+	(w3m-history-remove-properties): Share properties.
+	(w3m-history-add-properties): Ditto.
+	(w3m-history-plist-put): Ditto.
+	(w3m-history-copy, w3m-history-copy-1): Ditto.
+	(w3m-history-push): Ditto.
+	(w3m-history-assoc): Ditto.
+	(w3m-history-share-properties): New function.
+	(w3m-history-seek-properties): New function.
+
+	(w3m-history-rename-url): Allow the 4th arg `this-buffer'.
+	(w3m-history-with-element): Renamed from `w3m-history-with-elements';
+	bind only the variable `element' to have a history element of
+	`w3m-history-flat'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-setup-header-line): Don't execute the setup-header-line,
+	if w3m-current-url is 'nil'.
+
+	* w3m-xmas.el (w3m-setup-header-line): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images): Use `match-string-no-properties' instead
+	of `buffer-substring-no-properties'.
+	(w3m-parse-attributes): Use `match-string-no-properties' instead of
+	`match-string' to remove text properties.
+
+	* w3m-xmas.el: Require `poe' for the function
+	`match-string-no-properties'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-setup-header-line): New function except for Emacs 21 nor
+	XEmacs.
+	(w3m-header-line-map): New variable except for Emacs 21 nor XEmacs.
+	(w3m-fontify-after-hook): Use it for emulating a header-line.
+	(w3m-header-line-location-content-face): New face except for Emacs 21.
+	(w3m-header-line-location-title-face): Ditto.
+	(w3m-use-header-line): Moved from w3m-e21.el.
+
+	* w3m-xmas.el (w3m-setup-header-line): New function.
+	(w3m-header-line-map): New variable.
+
+	* w3m-e21.el (w3m-use-header-line): Moved to w3m.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* icons/parent-up.xpm: Reduced color depth.
+	* icons/parent-disabled.xpm: Renamed from parent-down.xpm.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-toolbar): Added w3m-toolbar-parent-icon.
+	(w3m-toolbar-buttons): Added "parent".
+	(w3m-parent-page-available-p): New function.
+
+	* icons/parent-up.xpm: New file.
+	* icons/parent-down.xpm: New file.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Set w3m work buffer as multibyte.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history-1, w3m-about-history): Deactivate all
+	"about://*" links.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history-1): New internal function.
+	(w3m-about-history): Use it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-e21.el (w3m-header-line-location-title-face): New face.
+	(w3m-header-line-location-content-face): Ditto.
+	(w3m-use-header-line): New user option.
+	(w3m-setup-header-line): New function.
+	(w3m-mode-hook): Add `w3m-setup-header-line'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Show a history tree (incompleted).
+	(w3m-exec): Put a title string into the history structure.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Change the format on display.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el (w3m-icon-directory): Define it as the constant nil to
+	avoid byte-compile warnings when compiling.
+	* w3m.el (w3m-icon-directory): Undo last change.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-icon-directory): Hide the actual function name
+	`locate-data-directory' for old Emacsen to avoid byte-compile warnings.
+
+	* w3m-om.el (w3m-om-define-missing-widgets): New function.
+	(TopLevel): Use it for defining some missing widgets after the library
+	wid-edit is loaded.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el (w3m-xmas-define-missing-widgets): New function.
+	(TopLevel): Use it for defining some missing widgets after the library
+	wid-edit is loaded.
+
+	* w3m.el (w3m-track-mouse): Added a description about balloon-help.
+	(w3m-make-balloon-help): New macro.
+	(w3m-fontify-anchors, w3m-fontify-images): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-track-mouse): Default to t.
+	(w3m-make-help-echo): New macro.
+	(w3m-fontify-anchors, w3m-fontify-images): Use it.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* mew-w3m.el (TopLevel): Set w3m-mode-map if not exec w3m-mode() yet.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-fontify-images, w3m-fontify-anchors): Put a url string to
+	each anchor as a `help-echo' property when the value of
+	`w3m-track-mouse' is non-nil.
+	(w3m-track-mouse): New user option.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-copy-buffer): Use `w3m-history-copy' to make copies of
+	`w3m-history' and `w3m-history-flat'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-mode-map): Refer `w3m-key-binding' to avoid the
+	problem reported in [emacs-w3m:00498].
+
[phone]  Keisuke Nishida  <[e-mail]>
+
+	* w3m-search.el (w3m-search): Find default using thing-at-point.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-about-history): Use `w3m-history-flat' instead of
+	`w3m-url-history'.
+	(w3m-view-source): Don't bind `w3m-url-yrotsih' nor `w3m-url-history'.
+	(w3m-redisplay-with-coding-system): Don't treat `w3m-url-history'.
+	(w3m-reload-this-page): Ditto.
+	(w3m-view-next-page): Use `w3m-history-forward' instead of
+	`w3m-url-yrotsih'.
+	(w3m-view-previous-page): Use `w3m-history-backward' instead of
+	`w3m-url-history'.
+	(w3m-exec): Use `w3m-history-push' instead of `w3m-url-yrotsih' or
+	`w3m-url-history'.
+	(w3m-toolbar): Use `w3m-history-next-link-available-p' and
+	`w3m-history-previous-link-available-p'.
+	(w3m-url-yrotsih, w3m-url-history): Removed.
+	(TopLevel): Require `w3m-hist'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-info-like-map): Use `(shift iso-lefttab)' instead of
+	`S-iso-lefttab'.
+	(w3m-lynx-like-map): Ditto.
+
+	* w3mhack.el (w3mhack-make-package): Add shimbun modules in
+	MANIFEST.w3m file.
+	(w3mhack-examine-modules): Look for the library "mime-def" instead of
+	"mime" to check whether FLIM has been installed or not.
+	* Makefile.in (install): Install shimbun modules as well.
+	(install-icons): Show subdirectory name.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-key-binding): New user option.
+	(w3m-lynx-like-map, w3m-info-like-map): New keymaps.
+	(w3m): Refer w3m-key-binding, to decide whether keymap is used.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-edit-current-url): New command.
+	(w3m-mode-map): `w3m-edit-current-url' is registered.
+	(w3m-save-this-url): Removed.
+	(w3m-decode-encoded-buffer): Use `w3m-which-command' in order to find
+	appropriate command in Windows.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (default): Depends `Makefile'.
+	(Makefile): Removed `--recheck' option in order to re-create itself
+	when `Makefile.in' or `config.status' is updated.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (top): Define w3m-read-coding-system().
+	(w3m-content-type-alist): Change "fiber" to "fiber.exe".
+	(w3m-quit): Remove hook if no w3m exist.
+	(w3m-arrived-add): Add 'coding-system entry.
+	(w3m-arrived-coding-system): New function.
+	(w3m-arrived-setup): Handle 'coding-system entry.
+	(w3m-arrived-shutdown): Ditto.
+	(w3m-goto-url): Handle specified coding-system.
+	(w3m-redisplay-with-coding-system): Use w3m-read-coding-system.  If no
+	coding-system specify, set 'reset.
+
+	* w3m-om.el (w3m-read-coding-system): New function.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-w3m-retrieve): Add 'cs(coding-system)' option.
+	(w3m-retrieve): Ditto.
+	(w3m-exec): Ditto.
+	(w3m-goto-url): Ditto.
+	(w3m-decode-buffer): Ditto. If 'cs' specify, decoding use it.
+	(w3m-mode-map): Add w3m-redisplay-with-coding-system() at "C".
+	(w3m-mode): Change doc string.
+	(w3m-redisplay-with-coding-system): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): When content type has trailing
+	semicolon, make it removed.
+
+	* w3mhack.el (load-path): Add `shimbun' sub-directory.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* Makefile.in (clean): Remove shimbun modules.
+
+	* w3mhack.el (shimbun-module-directory): New constant.
+	(w3mhack-examine-modules): Add shimbun modules if mime is installed.
+
+	* w3m.el (w3m-decode-entities): New function.
+	(w3m-fontify): Use it.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-print-this-url): New optional argument `add-kill-ring' is
+	added.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-filter.el: New file.
+
+	* w3m-antenna.el (w3m-antenna-size): Refer decoded buffer as size.
+
+	* w3m.el (TopLevel): Add autoload code of `w3m-filter'.
+	(w3m-use-filter): New user option.
+	(w3m-retrieve): Call `w3m-filter' when decode.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-force-redisplay): New variable, default is 't'.
+	(w3m-toggle-inline-images): If w3m-force-redisplay is nil, don't
+	redraw.
+	(w3m-goto-url): Ditto.
+	(w3m-region): Ditto.
+
+	* mew-w3m.el (mew-mime-text/html-w3m): Bind w3m-force-redisplay to
+	'nil'.
+	(w3m-mew-support-cid): New variable.
+	(mew-w3m-cid-retrieve): Use mew-syntax-get-entry-by-cid(), Tnx, Kazu
+	Yamamoto <[e-mail]>.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-process-message): Removed.
+	(w3m-exec-process): Clean up.
+	(w3m-w3m-dump-head-source): Removed code which refers
+	`w3m-process-message'.
+	(w3m-w3m-dump-source): Ditto.
+	(w3m-parse-attributes): Remove leading and trailing white space in
+	CDATA attribute values.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-copy): Make a copy of `w3m-history-flat'
+	using `w3m-history-flat' instead of `w3m-history-copy-1'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (DISTS): Removed `Makefile'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-backward, w3m-history-forward): Simplified.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-backward, w3m-history-forward): Allow the
+	optional argument `count'.
+	(w3m-history-backward-1, w3m-history-forward-1): New macros.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-0.2.1-mnc.patch: Apply patch posted in [w3m-dev 01887].
+
+	* w3m.el (w3m-w3m-dump-head-source): Follow change in MNC patch.
+	(w3m-w3m-attributes): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-crlf-to-lf): New function.
+	(w3m-w3m-dump-head-source): Do crlf-to-lf when executable-type eq
+	'cygwin.
+	(w3m-w3m-dump-source): All time do crlf-to-lf function when
+	executable-type eq 'cygwin.
+
[phone]  Taiki SUGAWARA <[e-mail]>
+
+	* w3m.el (w3m-exec-process): Guard the process from some errors.
+	(w3m-copy-buffer): Restore view point with new window to the point in
+	original window.
+
[phone]  Hiroya Murata  <[e-mail]>
+
+	* Makefile.in (Makefile): Depends on config.status instead of
+	configure.
+	(config.status): New rule.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* aclocal.m4 (AC_PATH_ICONDIR): Quote "$(data-directory)" in help-
+	string.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-html-string-regexp): Make no exception of back-quote.
+	(w3m-parse-attributes): Follow up above change.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-home-page): Default value is changed.
+	(w3m-html-string-regexp): Support single quoted string.
+	(w3m-parse-attributes): Import from w3m-form.el.
+	(w3m-fontify-anchors): Fix bug reported in [emacs-w3m:00400].
+	(w3m-external-view): Fix.
+	(w3m-goto-url): Default argument is changed when it is interactively
+	called.
+	(w3m-browse-url): Fix.
+	(w3m-about): Update.
+	(w3m-about-history-except-regex): Add `about:'.
+
+	* w3m-form.el: (w3m-parse-attributes): Exported.
+
+	* mime-w3m.el (mime-w3m-save-background-color): Changed
+	`edebug-form-spec'.
+
+	* Makefile.in (dist): Improved.
+	(Makefile, configure): New rules.
+	(ECC, MODULES): Removed macros.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-with-elements): New macro.
+	(w3m-history-rename-url): Use it.
+	(w3m-history-remove-properties): Use it.
+	(w3m-history-add-properties): Use it.
+	(w3m-history-plist-put): Use it.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-rename-url): New function.
+	(w3m-history-remove-properties): New function.
+	(w3m-history-add-properties): New function.
+	(w3m-history-plist-put): New function.
+	(w3m-history-plist-get): New function.
+	(w3m-history-assoc): Return a history element of `w3m-history-flat'
+	instead of `w3m-history'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Fixed spec of return value when response
+	code is greater than 500.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Fix bugs in caching deflated contents.
+	(w3m-attributes): Fixed spec of return value when `about:' is
+	specified.
+	(w3m-cache-available-p): Removed.
+	(w3m-w3m-dump-head-source): Reconstructed.
+	(w3m-w3m-dump-source): New function.
+	(w3m-w3m-retrieve): Use `w3m-w3m-dump-head-source' or
+	`w3m-w3m-dump-source'.
+	(w3m-real-url): Fix side effect of macro expansion.
+
+	* w3m-0.2.1-mnc.patch: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (default): Replace with `fast'.
+	(install): Undo the last change.
+	(.el.elc, .SUFFIXES, install-anyway): Removed.
+	(fast-install-package, fast-install, fast): Removed.
+
+	* w3m-hist.el (w3m-hist): Provide as a feature.
+	(w3m-history-copy, w3m-history-copy-1): New functions.
+	(w3m-history-push): Handle the variable `w3m-history-flat' as well as
+	`w3m-history'.
+	(w3m-history-assoc): Ditto.
+	(w3m-history-flat function): Set the value of the variable
+	`w3m-history-flat'.
+	(w3m-history-flat variable): New buffer-local variable.
+	(The whole module): Replace the term ATTRIBUTES with PROPERTIES;
+	replace the symbol name of the variable `w3m-url-history' with
+	`w3m-history'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-real-url): Return original url when real url is nil.
+
+	* w3m-antenna.el (w3m-antenna-sites): Add 'time' type.
+	(w3m-antenna-alist): Modify comment.
+	(w3m-antenna-hns-last-modified): Don't use old 'Last-Modified:' format.
+	(w3m-antenna-last-modified): Use w3m-last-modified() when can not get
+	'diary/di.cgi'.
+	(w3m-antenna-check-sites): Push current-time() if (nth 6 pre) is nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Support deflated contents and redirected URLs.
+	(w3m-decoder-alist, w3m-mnc): New variable.
+	(w3m-encoding-alist): New constant.
+	(w3m-attributes, w3m-w3m-attributes, w3m-local-attributes): Spec of
+	return value is changed.
+	(w3m-content-charset, w3m-content-encoding, w3m-real-url): New macro.
+	(w3m-cache-available-p): New function.
+	(w3m-decode-encoded-buffer): Ditto.
+	(w3m-decode-buffer): Changed arguments spec.  Call
+	`w3m-decode-encoded-buffer' to process encoded contents.
+	(w3m-w3m-dump-head-source): New function.
+	(w3m-w3m-retrieve): Call `w3m-w3m-dump-head-source' when `w3m-mnc' is
+	non-nil value.  Follow change of `w3m-decode-buffer'.
+	(w3m-exec): Call `w3m-real-url' to process redirected URLs.
+	(w3m-sub-list): When N is nil, no elements in LIST should be deleted.
+	(w3m-save-list): Preserve file permission when file is overwritten.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-compile): New function.
+
+	* Makefile.in (fast-install-package, fast-install, fast): New rules.
+	(install-package): Make it to be more talkative.
+	(install-anyway): New rule separated from `install'.
+	(install): Use `install-anyway'.
+
+	* w3m-hist.el (w3m-history-push): Rewrite for following the change of
+	`w3m-url-history'.
+	(w3m-history-assoc): Ditto.
+	(w3m-history-backward): Ditto.
+	(w3m-history-forward): Ditto.
+	(w3m-history-current): Ditto.
+	(w3m-history-current-1): New macro.
+	(w3m-history-next-link-available-p): New function.
+	(w3m-history-previous-link-available-p): New function.
+	(w3m-url-history): Make it to have the previous and the next position
+	pointers.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-push): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-url-history): Define it here.
+	(w3m-history-assoc, w3m-history-flat, w3m-history-backward): New
+	functions.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el (w3m-history-forward): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Put cursor at the top of minibuffer.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Don't check "OK" string in Status-Line.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-time-parse-string the 2nd): Don't funcall
+	`parse-time-string' directly for avoiding compile warning.
+
+	* w3m-hist.el (w3m-history-current): New function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-hist.el: New file.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-time-parse-string): Fix condition to detect timezone.el
+	includes bug.
+
+	* w3m-time.el: Removed.
+
+	* w3m.el (TopLevel): Require `timezone' instead of `w3m-time'.
+	(w3m-time-parse-string): Use `timezone-fix-time' and spec of return
+	value is changed.
+	(w3m-time-newer-p): Imported.
+
+	* w3m-antenna.el (w3m-antenna-hns-last-modified): Follow change of
+	`w3m-time-parse-string'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* README, README.ja: Update for w3m-0.2.1.
+
+	* Makefile.in (dist, tarball): Fix that some files are not included in
+	package.
+
[phone]  Keisuke Nishida  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Insert the current url for input by default.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-xmas.el (w3m-update-toolbar): New function.
+	(w3m-setup-toolbar): Added docstring.
+
+	* w3m.el (w3m-goto-url): Call `w3m-update-toolbar'.
+	(toplevel): Define `w3m-update-toolbar' if it is not bound as function.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-w3m-attributes): Ignore errors while parsing a
+	time-string.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Moved generic macros and defsubsts in front of functions.
+	(w3m-content-encoding, w3m-content-charset): Commented out.
+	* w3m-form.el (w3m-parse-attributes): Moved from w3m.el.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Make `w3m-fontify-forms' and `w3m-form-parse-region' to be
+	always autoloaded; encolose the defining procedures for the unbound
+	functions with `eval-and-compile'.
+	(browse-url-interactive-arg): Bind it only at the compile-time as an
+	autoload'ed function.
+	* w3m-xmas.el: Provide `w3m-xmas' and then require `w3m'.
+	* w3m-om.el: Provide `w3m-om' and then require `w3m'.
+	* w3m-form.el: Require `w3m'.
+	* w3m-e21.el: Provide `w3m-e21' and then require `w3m'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el: All occurrence of `natsumikan' is replaced with
+	`natsumican'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (coding-system-category): Don't define it for the Emacs
+	variants.
+	* w3m-om.el (coding-system-category): Defalias to `get-code-mnemonic'.
+	* w3m-xmas.el (coding-system-category): Defalias to
+	`coding-system-type' if it is not bound.
+
+	* w3mhack.el (w3mhack-version): Don't require `w3m' in the top level,
+	do it here instead.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-save-list): Use 'pp' if have pp().  Bind 'print-length'
+	and 'print-level' to nil.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Structure of hash database of arrived urls is changed.
+	(w3m-arrived-setup): Follow change of DB structure.
+	(w3m-arrived-shutdown): Likewise.
+	(w3m-arrived-add): Likewise, and argument spec is changed.
+	(w3m-arrived-time): New function.
+	(w3m-arrived-seq, w3m-arrived-put-title, w3m-arrived-arrived-time,
+	w3m-arrived-put-arrived-time): Removed.
+	(w3m-goto-url): Follow change of `w3m-arrived-add'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Refresh the visibility of toolbar when XEmacs
+	is running.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Fix bug reported in [emacs-w3m:00305].
+	(w3m-goto-url): Set the value interpreted as a directory to
+	`default-directory'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-db-history): Use w3m-arrived-arrived-time().
+	(w3m-goto-url): Put arrived time to w3m-arrived-db.
+	(w3m-arrived-shutdown): Handling 'arrived-time in w3m-arrived-db.
+	(w3m-arrived-setup): Ditto.
+	(w3m-arrived-put-title): New function.
+	(w3m-arrived-arrived-time): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-arrived-shutdown): Check sites which are arrived on the
+	other emacs process.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-input-url): 'nil' don't add candidates.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-make-summary-function): Default value is
+	changed.
+	(w3m-antenna-make-summary-like-natsumikan): New function.
+
+	* w3m.el (w3m-about-db-history-sort-time): Removed.
+	(w3m-about-db-history): Use `w3m-time-newer-p' instead of
+	`w3m-about-db-history-sort-time'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-about-history-except-regex): New constant.
+	(w3m-about-db-history): New function.
+	(w3m-about-db-history-sort-time): Ditto.
+	(w3m-about-history): If 'titile' is '<no-title>', show 'URL' instead of
+	'title'. Use w3m-about-history-except-regex.
+	(w3m-history): If exec with 'C-u', goto 'about://db-history/'.
+	(w3m-w3m-attributes): Adhoc implementation when server return 'HTTP/1.x
+	500x'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Format of arrived URL database is changed in order to store
+	page's title.
+	(w3m-arrived-title, w3m-arrived-put-title): New function.
+	(w3m-arrived-setup, w3m-arrived-shutdown): Follow format change.
+	(w3m-about-history): Use page's title to make history contents.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Fix 'file:///c/xxxx' format in
+	Windows.
+	(w3m-expand-file-name-as-url): Use 'file:///c|/xxxx' format if
+	non-cygwin Windows.
+	(w3m-about-history): Uniq history. Insert exposition of html.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-to-file-name): Fix (Cf. RFC-1808).
+	(w3m-expand-file-name-as-url): Ditto.
+	(w3m-url-local-p): New function.
+	(w3m-goto-url): Set `default-directory' when URL points a local file.
+	(w3m-find-file): Use `w3m-goto-url'.
+	(w3m-w32-browser-with-fiber): Use `w3m-url-to-file-name'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-make-package): Fixed entries of autoloads and
+	cus-load, and added ChangeLog in the file MANIFEST.w3m.
+
+	* aclocal.m4 (AC_CHECK_EMACS): Added the option `--with-xemacs'.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-download): Bind `file-coding-system' to binary.
+	(w3m-content-type-alist): Fix.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna): Optional argument, `no-cache' is added.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Switch to buffer of w3m, certainty.
+	(w3m): Ditto.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-halfdump-command-arguments): Rename from
+	'w3m-command-arguments'.
+	(w3m-command-arguments): New customize variable.
+	(w3m-exec-process): Add w3m-command-arguments to args when w3m execute.
+	(w3m-rendering-region): Use w3m-halfdump-command-arguments when w3m
+	execute.
+	(w3m-fontify-anchors): Put w3m-name-anchor certainty.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el: Changed antenna database format.
+	(w3m-antenna-site-key, w3m-antenna-site-title, w3m-antenna-site-class,
+	w3m-antenna-site-url, w3m-antenna-site-last-modified,
+	w3m-antenna-site-size, w3m-antenna-site-size-detected): New macros.
+	(w3m-antenna-setup): Follow change of database format.
+	(w3m-antenna-check-sites): New function.
+	(w3m-antenna-make-summary, w3m-antenna-sort-sites-by-time,
+	w3m-antenna-sort-sites-by-title): Use macros to refer database.
+	(w3m-about-antenna): Use w3m-antenna-check-sites.
+
+	* w3m.el (w3m-about-history): Don't print "about://antenna/".
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* icons/antenna-up.xpm: New file.
+
+	* w3m.el (w3m-toolbar-buttons): Added "antenna".
+	(w3m-toolbar): Ditto; Fixed behavior of `home'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el, w3m-antenna.el: Fix typo.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-make-package): Remove autoloads and cus-load
+	files before generating.
+
+	* w3m.el (w3m): Added autoload cookie.
+	(w3m-icon-directory): Attempt to set the default value using the way of
+	Wanderlust.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* README: Update for `install-package' and `install-icons'.
+	* README.ja: Ditto.
+
+	* w3mhack.el (w3mhack-make-package): New function.
+	(w3mhack-examine-modules): Ignore auto-save files.
+
+	* mkinstalldirs: New file.
+
+	* configure.in: Call `AC_PATH_PACKAGEDIR'.
+
+	* aclocal.m4 (AC_PATH_PACKAGEDIR): New function.
+	(AC_EXAMINE_PACKAGEDIR): New function.
+	(AC_CHECK_EMACS_FLAVOR): Merged into `AC_CHECK_EMACS'.
+
+	* Makefile.in (install-package): New rule.
+	(install-icons, install): Exec mkinstalldirs.
+	(SHELL, PACKAGEDIR): New variable.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-goto-url): Force switch to '*w3m*' buffer.
+	(w3m-view-source): Don't add current-url to w3m-url-history|yrotsih.
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Change mime-part handling.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m-antenna.el (w3m-antenna-sort-function): Removed.
+	(w3m-antenna-sort-changed-sites-function): New variable.
+	(w3m-antenna-sort-unchanged-sites-function): Ditto.
+	(w3m-antenna-sort-sites-by-time): Refer time, when size modification
+	detected.
+	(w3m-about-antenna): Use new variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-time.el (w3m-time-rules): Don't use backquote.
+	(w3m-time-zoneinfo): Ditto.
+	(w3m-time-parse-integer): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (TopLevel): Require `w3m-time'.
+	(w3m-w3m-attributes): Use `w3m-time-parse-string' instead of
+	`parse-time-string'.
+
+	* w3m-time.el: Import parse-time.el of T-gnus and rename it.
+
+	* w3m-antenna.el: Use `w3m-time-parse-string' instead of
+	`parse-time-string'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m-e21.el (w3m-create-image): Changed arguments spec, that
+	`accept-type-regexp' is removed.
+
+	* w3m-xmas.el (w3m-create-image): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Arrived URL database format is changed and code to get
+	headers and to retrieve contents is cleaned up.
+	(w3m-attributes, w3m-local-attributes): New function.
+	(w3m-w3m-attributes): Old name is `w3m-w3m-check-header'.
+	(w3m-content-type): Use `w3m-attributes'.
+	(w3m-content-charset, w3m-content-length, w3m-content-encoding,
+	w3m-last-modified): New macro.
+	(w3m-retrieve, w3m-local-retrieve): Changed arguments spec, that
+	`accept-type-regexp' is removed.
+	(w3m-w3m-retrieve): Likewise and call `w3m-w3m-attributes' instead of
+	`w3m-w3m-check-header'.
+	(w3m-exec): Follow change of arguments spec of `w3m-retrieve'.
+	(w3m-about-source, w3m-about-header): Changed arguments spec that
+	`accept-type-regexp' is removed and follow change of arguments spec of
+	w3m-retrieve.
+	(w3m-arrived-last-modified): New function.
+	(w3m-arrived-add): Support optional argument `time' and follow change
+	of database format.
+	(w3m-arrived-setup, w3m-arrived-shutdown, w3m-arrived-store-position,
+	w3m-arrived-restore-position): Follow change of database format.
+	(w3m-with-work-buffer, w3m-parse-attributes): Changed
+	`edebug-form-spec', see [emacs-w3m:00238].
+	(TopLevel): Add autoload codes for `w3m-antenna.el'.
+
+	* w3m-antenna.el: New file.
+
+	* mime-w3m.el (mime-w3m-cid-retrieve): Changed arguments spec, that
+	`accept-type-regexp' is removed.
+
+	* mew-w3m.el (mew-w3m-cid-retrieve): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (install-icons): New rule.
+	(ICONDIR): New variable.
+
+	* aclocal.m4 (AC_PATH_ICONDIR): New function.
+	* configure.in: Call it.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* icons: New directory (Some toolbar icons are contained).
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-view-source): Render as html if already display source.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-icon-directory): New variable.
+	(w3m-toolbar-buttons): New constant.
+	(w3m-toolbar): Ditto.
+	(w3m-setup-toolbar): Define as null function.
+	(w3m-mode): Call `w3m-setup-toolbar'.
+
+	* w3m-xmas.el (w3m-use-toolbar): New variable.
+	(w3m-xmas-make-toolbar-buttons): New function.
+	(w3m-setup-toolbar): Ditto.
+
+	* w3m-e21.el (w3m-use-toolbar): New variable.
+	(w3m-e21-toolbar-configurations): Ditto.
+	(w3m-e21-setup-toolbar): New function.
+	(w3m-e21-make-toolbar-buttons): Ditto.
+	(w3m-setup-toolbar): Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (XEmacs): Implemented the source level optimizer for `let'
+	or `let*' form to remove some obsolete variables.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* README, README.ja: Update procedure of package installation.
+
+	* w3m.el (w3m-hook): Removed.
+	(w3m-goto-mailto-url): Old name is `w3m-mailto-url'.
+	(w3m-goto-ftp-url): Old name is `w3m-exec-ftp'.
+	(w3m-convert-ftp-url-for-emacsen): Old name is
+	`w3m-convert-ftp-to-emacsen'.
+	(w3m-exec): Removed code for ftp protocol.
+	(w3m-alive-p): Change spec of return value when w3m is alive.
+	(w3m-goto-url): Made this function safe when it is called at the buffer
+	whose major mode is not equal to w3m-mode.
+	(w3m): If it is interactively called when w3m is alive, it is simply
+	select the appropriate buffer in the current window without asking url.
+	(w3m-view-parent-page, w3m-browse-url, w3m-view-source, w3m-history):
+	Use `w3m-goto-url' instead of `w3m'.
+	(w3m-mode-map): Replace `w3m' with `w3m-goto-url'.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (MULE): Make `locate-library' run quietly; bind
+	defcustom'ed variables at compile-time; require `w3m' after
+	byte-optimizations are done.
+
+	* w3m.el (w3m-static-cond): New macro; use it for defining
+	`find-coding-system'.
+	(w3m-url-encode-string): Use `append' instead of `string-to-list' to
+	coerce a string to a list of chars.
+	(w3m-entity-regexp): Don't funcall `regexp-opt' directly for avoiding
+	compile warning.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-exec-process): Add `delete-process' to clean up resources
+	of child process.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (default): Report errors if it has occurred while
+	examining modules.
+
+	* w3m.el: Add autoload for `w3m-remove-image' when compiling.
+	(w3m-charset-coding-system-alist): Use `coding-system-p' if the
+	function `find-coding-system' is not bound.
+
+	* w3mhack.el: Use `require' instead of `load' for loading "w3m" to
+	avoid undesirable newlines in stdout.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-xmas.el: Require `wid-edit' when the widget `coding-system' is
+	not available.
+
+	* mime-w3m.el: Add autoload for `font-set-face-background' since it is
+	not auto-autoload'ed in XEmacs.
+
+	* w3mhack.el: Require `bytecomp'; make XEmacs don't warn for unused
+	non-global variables.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Bind colon keywords only if it is not available.
+	(rfc2368-parse-mailto-url):
+	(w3m-form-parse-region):
+	(w3m-fontify-forms): Bind them only at the compile-time as autoload'ed
+	functions to avoid byte-compile warnings.
+
+	* w3mhack.el: Byte optimize `truncate-string' for replacing with
+	`truncate-string-to-width' if it is bound.
+
+	* mew-w3m.el (mew-w3m-minor-mode-setter): Defun it after defining some
+	variables.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Makefile.in (default): Add `-k' option to continue byte-compile as
+	much as possible after an error.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in (default): Don't use `for' loop.
+	* w3mhack.el (w3mhack-examine-modules): Use space instead of newline
+	for the module names separator.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Removed functions and variables of bookmark.
+	* w3m-bookmark.el: New file.
+	* Makefile.in: Clean up rules and removed GNU-make depended functions.
+	* w3mhack.el (TopLevel): Load w3m.el.
+	(w3mhack-version): New function.
+	* .cvsignore: Add files generated by autoconf.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3mhack.el (w3mhack-examine-modules): Renamed from
+	`w3mhack-examine-additional-modules'.
+	* Makefile.in: Ditto.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* Makefile.in, aclocal.m4, configure.in, install-sh, w3mhack.el: New
+	files.
+	* Makefile: Removed.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Split file.
+
+	* w3m-form.el: New file.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m-xmas.el (w3m-insert-image): Don't use current cursor point to
+	make a new extent.
+
+	* w3m.el (w3m-region): Call `sit-for' to redisplay before image
+	display.
+	(w3m-goto-url): Ditto.
+	(w3m-exec-process): Use `sleep-for' instead of `sit-for'.
+	(w3m-toggle-inline-images): Set cursor point before image insertion.
+	(w3m-goto-url): Set cursor point before redisplay.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-read-passwd): Removed.
+	(w3m-exec-filter): Use `read-passwd' instead of `w3m-read-passwd'.
+
+	* w3m-om.el (read-passwd): Added.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m-om.el: Rewrite to insert "-" into the name of eol-type variants
+	of each newly generated coding-system.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Split files.
+	(w3m-coding-system): Changed customize type.
+	(w3m-input-coding-system): Ditto.
+	(w3m-output-coding-system): Ditto.
+	(w3m-bookmark-file-coding-system): Ditto.
+	(w3m-url-encode-string): Removed redundant code for Mule-2.
+
+	* w3m-e21.el: New file.
+
+	* w3m-xmas.el: New file.
+
+	* w3m-om.el: New file.
+
+	* w3m-search.el (w3m-search-default-coding-system): Changed customize
+	type.
+	(w3m-search-engine-alist): Ditto.
+
+	* w3m-weather.el: Fix comments.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el: Use the copy of info-vector for newly generated coding-
+	systems; use `eval-when-compile' separately from "cl" for loading
+	"cl-macs".
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Split files.
+	* w3m-search.el: New file.
+	* w3m-weather.el: New file.
+
[phone]  Katsumi Yamaoka  <[e-mail]>
+
+	* w3m.el (w3m-rendering-region): Make no exceptions of Mule 2 in
+	coding-systems.
+	(w3m-download): Ditto.
+	(w3m-local-retrieve): Ditto.
+	(w3m-exec-process): Ditto.
+	(w3m-arrived-file-coding-system): Unified the default value to
+	`euc-japan'.
+	(w3m-bookmark-file-coding-system): Ditto.
+	(w3m-default-url-coding-system): Ditto.
+	(w3m-output-coding-system): Ditto.
+	(w3m-coding-system): Ditto.
+	(w3m-input-coding-system): Unified the default value to `iso-2022-jp'.
+	(TopLevel): Generate some coding-systems by copying for Mule 2.
+	(TopLevel): Load "cl-macs" if the macro `dolist' has been defined
+	incorrectly.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-url-yrotsih): New variable.
+	(w3m-view-previous-page): Set w3m-url-yrotsih.  Use while/cdr instead
+	of nthcdr.
+	(w3m-view-next-page): New function.
+	(w3m-mode-map): Bind w3m-view-next-page.
+	(w3m-mode): Added w3m-view-next-page and w3m-view-parent-page to the
+	function document.
+	(w3m-reload-this-page): Guard w3m-url-yrotsih from resetting.
+	(w3m-exec): Reset yrotsih.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): [UNIX] Change method for text/html
+	type.
+
[phone]  Akihiro Arisawa  <[e-mail]>,
+	    TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Require `poem' when Mule 2.3 is running.  Bind keywods
+	`:case-ignore' and `:integer' for Mule 2.3.
+	(coding-system-category): New alias when Mule 2.3 is running.
+	(w3m-arrived-file-coding-system): Fix typo.
+	(w3m-entity-alist): Fix for Mule 2.3.
+	(w3m-form-method, w3m-form-action, w3m-form-plist, w3m-form-put,
+	w3m-form-get): Convert to old style of macro definition.
+	(w3m-fontify): Removed code to decode w3m-specific characters.
+	(w3m-decode-extended-characters): New function.
+	(w3m-rendering-region): Use an unibyte temporary buffer and call
+	`w3m-decode-extended-characters'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-exec-process): Return process exit status.
+	(w3m-w3m-get-header): Check the return value of w3m-exec-process.
+	(w3m-w3m-check-header): Check the return value of w3m-w3m-get-header.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-exec-process): Check exit status and cause an error if it
+	is not zero.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-executable-type): Use (eq system-type 'windows-nt) for
+	determination of win32.
+	(w3m-content-type-alist): Ditto.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-which-command): Support executable suffix, `.exe' for
+	win32.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Add 'use fiber.exe' alist for
+	Windows.
+	(w3m-w32-browser-with-fiber): New funciton.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-which-command): New function.
+	(w3m-external-view): When no viewing method is defined, call
+	`w3m-download' as alternative method.  Added check which command exists
+	with `w3m-which-command'.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-display-inline-image-status): Define as buffer local
+	variable.
+	(w3m-image-type): New function.
+	(w3m-image-type-available-p): Ditto.
+	(w3m-create-image): Check image type by `w3m-image-type-available-p'.
+	(w3m-exec): Accept all content-types in `w3m-retrieve'; Make an image
+	only page, if the image can be displayed inline; Call
+	`w3m-external-view' if the content-type of retrieved content is not
+	text nor image.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-parent-page): Add a postfix '/' to parent-url.
+
[phone]  Takaaki MORIYAMA  <[e-mail]>
+
+	* w3m.el (w3m-extended-charcters-table): Add '\x80'.
+
[phone]  Masatake YAMATO  <[e-mail]>
+
+	* w3m.el (w3m-view-parent-page): New command.
+	(w3m-mode-map): Add `w3m-view-parent-page'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-message-structure): Make variable buffer local
+	at top leve.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-entity-alist): Eval at compile time.; Add character
+	entity references for ISO 8859-1 characters.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-entity-regexp): New constant.
+	(w3m-fontify): Use `w3m-entity-regexp'.
+	(w3m-entity-value): Use defsubst, and fix typo.
+	(w3m-decode-anchor-string): New function.
+	(w3m-fontify-anchors): Decode `&amp;' exists in URL string.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-create-image) [EMACS21,XEMACS]: Guard against error.
+
+	* mew-w3m.el (mew-w3m-auto-insert-image): New variable.
+	(mew-mime-text/html-w3m): Bind 'w3m-display-inline-image' with
+	'mew-w3m-auto-insert-image'.
+	(mew-w3m-cid-retrieve): New function. Fix wrong guess.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-mode-map): Add `w3m-close-window', `w3m-view-source',
+	`w3m-view-header', and `w3m-history'.  Keybind of `w3m-quit' is
+	changed.
+	(w3m-close-window, w3m-about-source, w3m-view-source, w3m-about-header,
+	w3m-view-header, w3m-about-history, w3m-history): New functions.
+
+	* mime-w3m.el (mime-put-keymap-region): Removed.
+	(mime-w3m-save-background-color): Old name is
+	`mime-save-background-color'.
+	(mime-w3m-mode-map): Add workaround for `w3m-close-window',
+	`w3m-view-source', `w3m-view-header', and `w3m-history'.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* w3m.el (w3m-cid-retrieve-function-alist): New variable.
+	(w3m-retrieve): Add support for URLs which has `cid:' prefix.
+
+	* mime-w3m.el: Always require `w3m'.  Require `cl' when compiling.  Set
+	`w3m-cid-retrieve-function-alist'.
+	(mime-w3m-message-structure): New variable.
+	(mime-w3m-preview-text/html): Set `mime-w3m-message-structure'.
+	(mime-w3m-cid-retrieve): New function.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-toggle-inline-images): Eliminated needless local
+	variable.
+	(toplevel): Encloses old emacs judgement with eval-and-compile; Define
+	`find-coding-system' using `w3m-static-if'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: All w3m-backlog-* symbols are renamed into w3m-cache-*, and
+	coupling of retrieve module and cache module are cleand up.
+	(w3m-keep-cache-size): Old name is `w3m-keep-backlog'.
+	(w3m-cache-buffer, w3m-cache-articles, w3m-cache-hashtb,
+	w3m-cache-setup, w3m-cache-shutdown, w3m-cache-contents,
+	w3m-cache-request-contents): These symbols are renamed.
+	(w3m-cache-header, w3m-cache-request-header): New function.
+	(w3m-work-buffer-list): New variable.
+	(w3m-get-buffer-create): New function.
+	(w3m-with-work-buffer): New macro.
+	(w3m-kill-all-buffer): New function.
+	(w3m-create-image, w3m-local-retrieve): Use `w3m-with-work-buffer'
+	instead of `with-current-buffer'.
+	(w3m-arrived-setup): Set `w3m-input-url-history' when its value is nil.
+	(w3m-arrived-shutdown): More strict error check.  This function is
+	added to `kill-emacs-hook'.
+	(w3m-w3m-get-header): New function.
+	(w3m-w3m-check-header): Use `w3m-w3m-get-header'.
+	(w3m-w3m-retrieve): Clean up code.
+	(w3m-download, w3m-exec): More strict error check.
+	(w3m-content-type): New optional argument `no-cache' is added.
+	(w3m-alive-p): New function.
+	(w3m-quit): Use `w3m-alive-p'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-local-retrieve): Bind 'auto conversion variables' to nil
+	when insert file with binary .
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-insert-image): Eliminated needless local variable.
+	(w3m-remove-image) [XEmacs]: Remove images at `end' too.
+	(w3m-fontify-images): Set `w3m-image-redundant' property if "img_alt"
+	string is upper case.
+	(w3m-toggle-inline-images): Fixed docstring; Insert and remove dummy
+	string if alt string has `w3m-image-redundant' property.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Allow '_' char for element name.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-display-inline-image-status): New variable.
+	(w3m-image-type-alist): Define as constant.
+	(w3m-anchor): Moved position.
+	(w3m-image): Ditto.
+	(w3m-action): Ditto.
+	(w3m-create-image): Added argument `no-cache'.
+	(w3m-remove-image): New function.
+	(w3m-fontify-images): Don't display inline image here.
+	(w3m-toggle-inline-images): New function.
+	(w3m-mode-map): Bind 't' to `w3m-toggle-inline-images'.
+	(w3m-goto-url): Call `w3m-toggle-inline-images'; Set
+	`w3m-display-inline-image-status'.
+	(w3m-region): Ditto.
+
[phone]  Akihiro Arisawa  <[e-mail]>
+
+	* mime-w3m.el (mime-w3m-preview-text/html): Use
+	`mime-entity-fetch-field' instead of `mime-w3m-get-xref'.
+	(mime-w3m-get-xref): Removed.
+
[phone]  Keisuke Nishida  <[e-mail]>
+
+	* w3m.el (w3m-search-engine-alist): Added "rpmfind".
+	(w3m-fontify-anchors): Treat single quotes (') as quotation marks.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Backlog module is separated from front-end functions and code
+	to access the list of arrived URLs is put in order.
+	(w3m-arrived-file): Renamed from `w3m-arrived-urls-file'.
+	(w3m-arrived-anchor-list): Removed variable.
+	(w3m-arrived-list-load, w3m-arrived-list-save, w3m-arrived-list-add,
+	w3m-save-position, w3m-restore-position): Removed functions.
+	(w3m-arrived-db-size): New constant.
+	(w3m-arrived-db, w3m-arrived-seq): New variables.
+	(w3m-arrived-p, w3m-arrived-add, w3m-arrived-setup,
+	w3m-arrived-shutdown, w3m-arrived-store-position,
+	w3m-arrived-restore-position): New functions.
+	(w3m-input-url): Follow changes.
+	(w3m-view-previous-page): Ditto.
+	(w3m-view-previous-point): Ditto.
+	(w3m-quit): Ditto.
+	(w3m-goto-url): Ditto.
+	(w3m-create-image): Clean up codes.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-current-url-with-external-browser): Fix typo when
+	browse current URL.
+
[phone]  Yuuichi Teranishi  <[e-mail]>
+
+	* w3m.el (w3m-create-image) [XEmacs]: Retrieve header to determine
+	image type when `w3m-local-content-type' failed.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-arrived-file-coding-system): Default value is changed to
+	avoid unknown coding system error on XEmacs.
+	(w3m-input-url): Changed for old style `completing-read'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-download): Bind 'auto conversion variables' to nil.
+	(w3m-w3m-check-header): Fix search 'HTTP/1.[01] 200' method.
+	(inline-image-features): Patch from Yuuichi Teranishi san
+	<[e-mail]> at [emacs-w3m:00103].
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el: Renamed mime-w3m-preview-text/html from
+	w3m-mime-preview-text/html.  Check of user setting is required.
+	(mime-w3m-mode-map): New variable.
+	(mime-w3m-get-xref): New function.
+	(mime-w3m-view-this-url): Ditto.
+	(mime-w3m-mouse-view-this-url): Ditto.
+	(mime-w3m-preview-text/html): Use `mime-w3m-mode-map' insted of
+	`w3m-mode-map'.  Refer Xref: header to set `w3m-current-url'.
+	(mime-put-keymap-region): Define with `defmacro' instead of
+	`defmacro-maybe'.
+	(mime-save-background-color): Ditto.
+
+	* w3m.el (w3m-exec-filter): Improved code to process prompt string.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-exec-filter): Delete Prompt string with process output
+	buffer.
+	(w3m-w3m-check-header): Check 'HTTP/1.[01] 200' for valid
+	'content-length'.
+	(w3m-w3m-retrieve): Cygwin binary data support. Remove Prompt handling.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (emacs-w3m-version): New constant.
+	(find-coding-system): Removed duplicated definition.
+	(w3m-backlog-remove-oldest): Simplify.
+	(w3m-search): Fix typo in function document.
+
[phone]  Keisuke Nishida  <[e-mail]>
+
+	* w3m.el (w3m-anchor, w3m-image, w3m-action): Use defsubst.
+
[phone]  Keisuke Nishida  <[e-mail]>
+
+	* w3m.el (and-let*): Removed
+	(w3m-save-this-url): Updated.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-goto-previous-anchor): Fix mistake on merging w3-anchor
+	patch. Cursor should go to beginning of anchor previous.
+	(w3m-mode-map): Assign Shift-TAB key with w3m-previous-anchor.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (TOP): No need to load cl-macs explicitly.
+	(w3m-charset-coding-system-alist): Do not use doloop in defcustom
+	because it is not expanded in compile time.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: apply patch from Keisuke Nishida.  URL is hold in text
+	property as already expanded.  Some utility functions (w3m-anchor,
+	w3m-image, w3m-action) is defined and used.
+	(and-let*): New macro.
+	(w3m-fontify-anchors): Hold expanded url in text property.
+	(w3m-fontify-images): Likewise.
+	(w3m-expand-url): Save matching data.  Match pattern bug fix (by
+	gotoh).
+	(w3m-anchor): New function.
+	(w3m-image): New function.
+	(w3m-action): New function. (added by gotoh)
+	(w3m-view-this-url): Use new functions to extract text prop.
+	(w3m-mouse-view-this-url): Likewise.
+	(w3m-download-this-url): Likewise.
+	(w3m-print-this-url): Likewise.
+	(w3m-save-this-url): Likewise.
+	(w3m-goto-next-anchor): Likewise, and do not expand url.
+	(w3m-external-view): Remove 1st arg CONTENT-TYPE.
+	(w3m-next-anchor): Use and-let* macro and do not expand url.
+	(w3m-goto-previous-anchor): Use utility functions.
+	(w3m-bookmark-add-this-url): Likewise and refine.
+	(w3m-url-encode-string): Do not escape ':' and '/'.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-retrieve): Add support for URLs which has `about:'
+	prefix.
+	(w3m-content-type): Likewise.
+	(w3m-about, w3m-about-weather, w3m-weather, w3m-weather-remove-headers,
+	w3m-weather-remove-footers, w3m-weather-remove-weather-images,
+	w3m-weather-remove-washing-images, w3m-weather-remove-futon-images,
+	w3m-weather-remove-week-weather-images, w3m-weather-insert-title): New
+	function.
+	(w3m-weather-url-alist): New associative list of AREA vs. URL.
+	(w3m-weather-default-area): New customize variable.
+	(w3m-weather-default-area): Ditto.
+	(w3m-entity-value): When unknown entity is specified, return original
+	string instead of null string.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-url-encode-string): New function.
+	(w3m-escape-query-string): Use `w3m-url-encode-string'.
+	(w3m-form-make-get-string): Ditto.
+	(w3m-message): Changed to support Emacs-19.
+	(w3m-parse-attributes): Ditto.
+	(w3m-fontify): Refer `mc-flag' when mule is used.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-command-arguments): Make it as system constants user not
+	for user variable. User need not change this value.  "-S" options is
+	removed because it doesn't work for non Text/Plain object.
+	(w3m-default-url-coding-system): New variable.
+	(w3m-search-engine-alist): Change format to hold encoding type for
+	query string. And add some engines.
+	(w3m-fill-column): Born again variable. Positive value is for fixed
+	column, negative value is for fitting frame width.
+	(w3m-mode): Add key description of "<" and ">" in doc-string.
+	(w3m-escape-query-string): Add 2nd argument for coding system.
+	(w3m-search): Adapt to new format of w3m-search-engine-alist.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-sub-list): Guard error for XEmacs (N must count from
+	zero).
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-search): Simplify.
+	(w3m-do-search): Removed.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Merge form branch to main trunk.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-form-new): Changed w3m-form structure.
+	(w3m-form-p): Likewise.
+	(w3m-form-put): Likewise.
+	(w3m-form-get): Likewise.
+	(w3m-form-plist): New macro.
+	(w3m-form-symbol): Removed.
+	(w3m-url-encode): Ditto.
+	(w3m-form-make-get-string): Follow change of w3m-form and use
+	w3m-escape-query-string instead of w3m-url-encode.
+	(w3m-parse-attributes): New macro.
+	(w3m-form-parse-region): Use w3m-parse-attributes.
+	(w3m-fontify-forms): Use w3m-parse-attributes.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Add some content-type.
+	(w3m-w3m-retrieve): Change bind variables method to 'let*'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-command-arguments): Add "-S" option for w3m.
+	(w3m-search-engine-alist): Add new spec for google with JA lang.
+	(w3m-current-url): Make variable buffer local at top leve.
+	(w3m-current-title): Likewise.
+	(w3m-url-history): Likewise.
+	(w3m-process-temp-file): Likewise.
+	(w3m-rendering-region): Do not make local variable for the reason
+	above.
+	(w3m-exec): Likewise.
+	(w3m-external-view): Likewise.
+	(w3m-goto-next-anchor): Bug fix.
+	(w3m-goto-previous-anchor): Bug fix.
+	(w3m-escape-query-string): Bug: Escape SPC char as "+" not "%20".
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-form-string-regexp): Add `eval-and-compile' to suprress
+	byte-compile error.
+	(w3m-form-p): Fix typo.
+	(w3m-mode-map): Swapped keybindings of w3m-scroll-left and
+	w3m-scroll-right to fit w3m's keybindings.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Add Keisuke Nishida as author.
+	(TOP): Use thingatpt instead of ffap.
+	(w3m-fill-column): Obsoleted. Determine in dynamic.
+	(w3m-command-arguments): Specify as lambda
+	(w3m-command-arguments): Change initial value.
+	(w3m-search-engine-alist): Change spec more simple.
+	(w3m-input-url): Use thing-at-point.
+	(w3m-do-search): Adapt to new w3m-search-engine-alist spec.
+	(w3m-search): Change variable name and refine codes.
+
+	* w3m.el: (w3m-entity-value): Allow immediate entity (&#nnn).
+	(w3m-fontify): Likewise.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-delete-duplicated-empty-lines): New variable.
+	(w3m-search-engine-alist): New variable.
+	(w3m-default-search-engine): New variable.
+	(w3m-horizontal-scroll-columns): New variable.
+	(w3m-fontify): Change regexp to allow non-double-quoted string for href
+	attribute value of anchor tag. Remove duplicated empty lines for
+	compact view.
+	(w3m-mode-map): Add keymap "<" and ">" to scroll horizontaly.
+	(w3m-mode): Truncate lines.
+	(w3m-scroll-left): New interactive function.
+	(w3m-scroll-right): New interactive function.
+	(w3m-escape-query-string): New function.
+	(w3m-do-search): New function.
+	(w3m-search): New interactive function for searching word with various
+	search engine.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Start implementation of code to process <form> tag.
+	(w3m-form-face): New face.
+	(w3m-current-forms): New internal variable.
+	(w3m-form-string-regexp): New internal constant.
+	(w3m-form-new, w3m-form-p, w3m-form-symbol, w3m-form-method,
+	w3m-form-action, w3m-form-put, w3m-form-get, w3m-url-encode,
+	w3m-form-make-get-string, w3m-form-parse-region, w3m-fontify-forms,
+	w3m-form-replace, w3m-form-input, w3m-form-submit, w3m-form-real-reset,
+	w3m-form-reset, w3m-fontify-bold, w3m-fontify-underline,
+	w3m-fontify-images): New function.
+	(w3m-fontify): Use new functions.
+	(w3m-mode-map): Add scroll-right and scroll-left.
+	(w3m-mode): Set t to `truncate-line'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Patch from Keisuke Nishida <[e-mail]>.
+	(w3m-print-this-url): Do not save URL, print only.
+	(w3m-save-this-url): New function. Print and save URL under cursor.
+	(w3m-goto-next-anchor): New function.
+	(w3m-next-anchor): Move to top anchor from bottom.  Print URL after
+	move.
+	(w3m-goto-previous-anchor): New function.
+	(w3m-previous-anchor): Move to bottom anchor from top.  Print URL after
+	move.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Patch from Keisuke Nishida <[e-mail]>.
+	(TOP): Require ffap.el.
+	(w3m-input-url): Prompt with default URL, and use URL under cursor as
+	default if not specified.
+	(w3m): Do not specify default url for w3m-input-url.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-backlog-enter): Overwrite backlog data when specified URL
+	is duplicated.
+	(w3m-home-page): Changed official emacs-w3m page's address to
+	namazu.org.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Renamed w3m-http-* to w3m-w3m-* in order to prepare name
+	space of symbols processing HTTP protocol directly, and fix for cookie.
+	(w3m-w3m-check-header): Renamed from `w3m-http-check-header'.
+	(w3m-w3m-retrieve): Renamed from `w3m-http-retrieve' and added code to
+	remove cookies.
+	(w3m-retrieve): Follow changes of fuction name.
+	(w3m-download): Likewise and changed argument spec.
+	(w3m-exec): Changed argument spec.
+	(w3m-goto-url): Changed reload scheme,
+	(w3m-fontify): Move point to the top of the buffer before delete <?xml
+	... ?> tag.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (TOP): Changed code to detect XEmacs and add to define
+	`find-coding-system'.
+	(w3m-backlog-setup): Changed caching data format.
+	(w3m-backlog-enter): Ditto and changed argument spec.
+	(w3m-backlog-request): Ditto and changed spec of return value.
+	(w3m-http-retrieve): Access backlog in this function and changed
+	argument spec.
+	(w3m-retrieve): Changed argument spec.
+	(w3m-exec): Clean up and chaned spec of return value.
+	(w3m-goto-url): Follow changes in `w3m-exec'.
+	(w3m-decode-buffer): Clean up.
+	(w3m-process-temp-file): New variable to suppress byte-compile warning.
+	(w3m-external-view): Use w3m-process-temp-file to suppress byte-compile
+	warning.
+	(w3m): Change `mode-line-buffer-identification'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-home-page): Initialize as URL.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Correcting wrong use of cygwin type filename usage, using
+	dolist macro, adding handling codes html character entities, correct
+	bug of w3m-view-bookmark on win32 environment, fixing some small bugs,
+	etc.
+	(w3m-url-to-file-name): New function.
+	(w3m-expand-file-name-as-url): Renamed from w3m-expand-file-name.
+	(w3m-bookmark-file): Initialize as native filename format.
+	(w3m-arrived-urls-file): Likewise.
+	(w3m-charset-coding-system-alist): Use dolist macro.
+	(w3m-entity-alist): New constant.
+	(w3m-entity-db): New variable.
+	(w3m-entity-db-size): New variable.
+	(w3m-entity-db-setup): New function.
+	(w3m-entity-value): New function
+	(w3m-fontify): Refine html character entity decoding.  Use dolist
+	macro. Some bug fix.
+	(w3m-exec-get-user): Simplify using dolist macro.
+	(w3m-bookmark-save): Likewise.
+	(w3m-local-content-type): Likewise.
+	(w3m-local-retrieve): Fix filename handling considering cygwin
+	convention by using w3m-local-file-name function.
+	(w3m-http-retrieve): Buf fix.
+	(w3m-rendering-region): Bug fix, use w3m-current-url.
+	(w3m-view-bookmark): Use w3m to do initialize on interactive call.
+	(w3m-find-file): Fix for renamed function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* Merge changes on `url' branch to main trunk.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-home-page): Changed to official w3m.el page.
+	(w3m-anchor-face): Changed default face in dark backgraound.
+	(w3m-arrived-anchor-face): Ditto.
+	(w3m-download): Fix typo.
+	(w3m-content-type-alist): Accept .png file.
+	(w3m-external-view): Fix typo.
+	(w3m-view-image): Fix.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* mew-w3m.el: New file to use w3m with Mew.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* mime-w3m.el: New file to use w3m with SEMI.
+
+	* w3m.el (w3m-message): New function.
+	(w3m-verbose): New variable.
+	(w3m-process-message): Ditto.
+	(w3m-process-url): Removed.
+	(w3m-exec-process): Add code to show progress status.
+	(w3m-exec-filter): Fix prompt bug and clean up codes.
+	(w3m-retrieve): Changed arguments spec.
+	(w3m-local-retrieve): Ditto.
+	(w3m-http-retrieve): Ditto.
+	(w3m-pretty-length): New function.
+	(w3m-rendering-region): Add code to show progress status.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-http-retrieve): Add adhoc fragment to avoid new-line
+	replacement.
+	(w3m-decode-buffer): Renamed from w3m-html-decode-buffer.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-content-type-alist): Accept .htm as text/html.
+	(w3m-backlog-enter): Add code to memory w3m-current-title.
+	(w3m-backlog-request): Resume w3m-current-title from backlog data.
+	(w3m-html-decode-buffer): Change arguments spec.
+	(w3m-rendering-region): Removed code to set w3m-current-url.
+	(w3m-exec): Fix bug of proecessing text/plain files and changed data
+	format to preserve in backlog.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Support XEmacs using APEL.
+	(w3m-fontify): Delete <?XML ... ?> tag for XHTML page.
+	(w3m-input-url): Do not use 7th arg of completing-read for XEmacs
+	support.
+	(w3m-bookmark-save): Check bookmark file is writable.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-bookmark-add): Fix problem of adding bookmark first time.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Reconstructed drastically and removed w3 depended codes.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-executable-type): New variable.
+	(w3m-cygwin-path): New function.
+	(w3m-region): New function.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Add code to decode w3m-specific extended
+	charcters.
+	(w3m-extended-charcters-table): New constant.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-async-exec): New customizable variable.
+	(w3m-exec-process): Use 'w3m-async-exec' instead of 'w3m-process-type'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Fixed small and thoughtless bugs...
+	(w3m-bookmark-file-modified-p): Bug fix.
+	(w3m-bookmark-save): Bug fix. Don't forget time stamp updating.
+	(w3m-bookmark-add): Bug fix. Function name miss-typing.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el: Add bookmark operations. This feature is very ad-hoc.
+	Support loading w3m's bookmark file into internal bookmark data, adding
+	new entry interactively, and saving data as w3m's bookmark file format.
+	(w3m-bookmark-file-coding-system): New user varible.
+	(w3m-bookmark-data): New internal variable.
+	(w3m-bookmark-file-time-stamp): ditto.
+	(w3m-bookmark-section-history): ditto.
+	(w3m-bookmark-title-history): ditto.
+	(w3m-mode-map): Add bookmark operation functions to mode map.
+	(w3m-bookmark-file-modified-p): New function.
+	(w3m-bookmark-parse): ditto.
+	(w3m-bookmark-load): ditto.
+	(w3m-bookmark-save): ditto.
+	(w3m-bookmark-data-prepare): ditto.
+	(w3m-bookmark-add): ditto.
+	(w3m-bookmark-add-this-url): ditto.
+	(w3m-bookmark-add-current-url): ditto.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-sub-list, w3m-load-list, w3m-save-list): New utility
+	function.
+	(w3m-arrived-list-load): Refine and move out common code into
+	w3m-load-list.
+	(w3m-arrived-list-save): Refine and move out common code into
+	w3m-save-list and w3m-sub-list. (Previous code had side effect of
+	nreverse).
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* makepatch.pl, Makefile, .cvsignore: New files.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-this-url): Chang optinal argument 'arg'.
+	(w3m-next-anchor, w3m-previous-anchor): Bind 'pos'.
+	(w3m-fontify): Put mouse-face at anchor and image property.
+	(w3m-mouse-view-this-url): Handling 'w3m-image property.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-process-type): Change default valule to 'start-process.
+	(w3m-process-user-counter): New buffer local variable.
+	(w3m-exec-get-user): New funciton, get user and passwd from
+	w3m-arrived-user-list.
+	(w3m-exec-filter): Use w3m-exec-get-user().
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-view-previous-point): New function.
+	(w3m-expand-url): If BASE is nil, it set "".
+	(w3m-download-this-url): w3m-refontify-anchor() exec when finished
+	download.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-arrived-ct-file, w3m-arrived-file-cs,
+	w3m-always-html-url-regex): New variables.
+	(w3m-process-type): Change name from w3m-exec-process-type.
+	(w3m-refontify-anchor): New funcition.
+	(w3m-exec): Pre-check content-type.
+	(w3m-exec-w3m-ctcheck): New funcition, check context-type for URL.
+	(w3m-exec-w3m): New funcion, execute w3m.
+	(w3m-exec-ftp): New function, execute dired-other-window() or
+	copy-file(), if URL is 'ftp://'.
+	(w3m-convert-ftp-to-emacsen): Change 'ftp://' to '/user@host:/' from
+	elisp ML.
+	(w3m-download-this-url, w3m-save-image, w3-view-image): Use w3
+	features.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (top-level): Add authors.
+	(w3m-expand-url): Check relative URL first.
+	(w3m-fontify): Add original text properties when replace 'escaped
+	character'.
+
[phone]  Hideyuki SHIRAI  <[e-mail]>
+
+	* w3m.el (w3m-mailto-url-function, w3m-use-cygdrive,
+	w3m-default-save-dir, w3m-arrived-list-file, w3m-arrived-list-keep,
+	w3m-arrived-anchor-face, w3m-exec-process-type,
+	w3m-process-connection-type, w3m-arrived-anchor-list): New user
+	custumize variables.
+	(w3m-mode): Change doc-string for key binding.
+	(w3m-arrived-list-add, w3m-arrived-list-load, w3m-arrived-list-save):
+	New functions for handling arrived anchor.
+	(w3m-fontify): Add arrived anchor face.
+	(w3m-exec-process, w3m-exec-filter, w3m-exec-sentinel): New functions
+	for asynchronous w3m execution.
+	(w3m-find-file, w3m-read-file-name, w3m-read-passwd): New miscellaneous
+	functions.
+	(w3m-expand-file-name): Support old cygwin.
+	(w3m-view-current-url-with-external-browser): If w3m-browser-command is
+	function, funcall it.
+	(w3m-mailto-url): If w3m-mailto-url-function is function, funcall it.
+	(w3m-mode-map): If running xemacs, use (button2) instead of (mouse-2).
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m): Cancel last change, use switch-to-buffer again.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m): Do not switch buffer if w3m window already exists.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Add declaration of dependency on APEL.
+	(w3m-quit): When other w3m buffers exist, don't destruct cache.
+	(w3m-browse-url): New function.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-command-arguments): Remove option -m, that's not good for
+	bookmark / local file handling.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-command-arguments): Add -m option explicitly.
+	(w3m-exec): Ad-hoc change to view .txt object. It's temporary
+	fix. Should we consider type? w3m option -dump_head may help us.
+	(w3m-exec): Get title and remove both format <title_alt> and <title>.
+	(w3m-view-this-url): Force reloading by prefix.
+	(w3m-view-current-url-with-external-browser): Works correctly.
+	(w3m-print-current-url): Push url to kill king to paste later.
+	(w3m-print-this-url): ditto.
+	(w3m-mailto-url): Use rfc2368.el instead of mailto.el.
+	(w3m-goto-url): Add 2nd argument RELOAD to withdraw data cached on
+	emacs.
+	(w3m-reload-this-page): Simplified by using new w3m-goto-url.
+	(w3m): Set mode-line-buffer-identification after changing major mode
+	because it overwrite that variable.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el (w3m-fontify): Add code to handle irregular ordered elements
+	of anchor tags.
+	(w3m-mailto-url): Adopt for Emacs-19.
+	(w3m-input-url): Call `w3m-backlog-setup' to initialize
+	`w3m-backlog-hashtb'.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m): Sorry, over paren.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-exec): Get title correctly within -halfdump format of
+	w3m.
+	(w3m-mouse-view-this-url): New function to view page by clicking mouse
+	middle button.
+	(w3m-mode-map): Assign mouse middle button to view page.
+	(w3m): Change mode-line spec to show title of current page.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Add authors.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m-input-url): Enter url with completion. Candidates are
+	visited url kept in w3m-backlog-hashtb.
+	(w3m-backlog-setup): Change hash size as prime number and initialized
+	with value 0 for obarray.
+	(w3m-backlog-remove): Remove unused 2nd arg NUMBER and remove when
+	block to check NUMBER.
+	(w3m-exec): Show message "Loading..." while loading.
+	(w3m-save-position): New function to keep display position in Emacs
+	window into hash symbol, but I think this is not best way.
+	(w3m-restore-position): New function to restore display position.
+	(w3m-view-previous-page): Restore display position.
+	(w3m-expand-url): Canonicalize url, ex. "http://www.host.org" to
+	"http://www.host.org/".  Change regexp to allow "mailto:" protocol.
+	Remove drive letter as side-effect using expand-file-name to expand url
+	for Win32 emacen.
+	(w3m-expand-file-name): New function to alternates expand-file-name
+	function with convert drive letter prefixed path to cygwin path.
+	i.e. c:/users/home to /cygdrive/c/users/home
+	(w3m-view-bookmark): Expand bookmark filename as cygwin path format to
+	pass to w3m.
+	(w3m-mode-map): Add new key binding 'B' to back to previous page.  Add
+	new key binding 'R' to force reloading current page.
+	(w3m-mailto-url): New function to support mailto: protocol.  It use
+	rfc2368.el if available.
+	(w3m-goto-url): Ad-hoc support mailto: protocol. We should consider
+	more...
+	(w3m-reload-this-page): New function to reload current page.
+
[phone]  Shun-ichi GOTO  <[e-mail]>
+
+	* w3m.el (w3m): Add 2nd arguemnt to use with browse url.  This is patch
+	from Satoru Takabayashi <[e-mail]> in ELF-ML, Seq#
+	875.
+	(w3m-fontify): Change regexp for <a ...> tag to allow newline in
+	between attributes.  This is patch from Satoru Takabayashi
+	<[e-mail]> in ELF-ML, Seq# 876.
+	(w3m-fontify): Allow un-ended tag for name attribute, is it w3m bug?).
+	This is Patch from Satoru Takabayashi <[e-mail]> in
+	ELF-ML, Seq# 876.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Added handling of name anchors. Add comments.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Improved to handle multi buffer. Fix broken cache and order
+	of fontify.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: Handle &-sequence. Add history and cache.
+
[phone]  TSUCHIYA Masatoshi  <[e-mail]>
+
+	* w3m.el: New file.
+
+
+Local Variables:
+coding: iso-2022-7bit
+fill-column: 79
+indent-tabs-mode: t
+End:

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/mew-w3m.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,474 @@
+;; mew-w3m.el --- View Text/Html content with w3m in Mew
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: Shun-ichi GOTO  <[e-mail]>,
+;;         Hideyuki SHIRAI <[e-mail]>
+;; Created: Wed Feb 28 03:31:00 2001
+;; Version: $Revision: 1.69 $
+;; Keywords: Mew, mail, w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This package is for viewing formatted (rendered) Text/Html content
+;; in Mew's message buffer.
+
+;;; Installation:
+
+;; (1) Simply load this file and add followings in your ~/.mew file.
+;;
+;; (require 'mew-w3m)
+;;
+;; (2) And you can use keymap of w3m-mode as mew-w3m-minor-mode.
+;; To activate this feaeture, add followings also:
+;;
+;; (setq mew-use-w3m-minor-mode t)
+;; (add-hook 'mew-message-hook 'mew-w3m-minor-mode-setter)
+;;
+;; (3) If you use mew-1.95b118 or later on which Emacs 21, 22 or XEmacs,
+;; can display the images in the Text/Html message.
+;; To activate this feaeture, add following in your ~/.mew file.
+;;
+;; (define-key mew-summary-mode-map "T" 'mew-w3m-view-inline-image)
+;;
+;; Press "T":    Toggle the visibility of the images included its message only.
+;; Press "C-uT": Display the all images included its Text/Html part."
+;;
+;; (4) You can use emacs-w3m to fetch and/or browse
+;; `external-body with URL access'. To activate this feaeture,
+;; add followings also:
+;;
+;; (setq mew-ext-url-alist
+;;      '(("^application/" "Fetch by emacs-w3m" mew-w3m-ext-url-fetch nil)
+;;        (t "Browse by emacs-w3m" mew-w3m-ext-url-show nil)))
+;;  or
+;; (setq mew-ext-url-alist
+;;      '((t "Browse by emacs-w3m" mew-w3m-ext-url-show nil)))
+;;
+
+;;; Usage:
+
+;; There's nothing special. Browse messages in usual way.
+;; On viewing Text/Html file, rendered text is appeared in message
+;; buffer instead of usual "HTML" banner.
+;; C-c C-e operation is also allowed to view with external browser.
+;;
+;; If mew-use-w3m-minor-mode is t, key operations of w3m-mode is
+;; allowed (as minor-mode-map) and jump links in message buffer.
+;; NOTE: This feature is not complete. You may confuse.
+;;
+;;
+
+;;; Code:
+
+(require 'mew)
+(require 'w3m)
+(eval-when-compile (require 'cl))
+
+;;; initializer for mew
+(defgroup mew-w3m nil
+  "mew-w3m - Inline HTML rendering extension of Mew"
+  :group 'w3m)
+
+(defcustom mew-use-w3m-minor-mode nil
+  "*Use w3m minor mode in message buffer.
+Non-nil means that the minor mode whose keymap contains keys binded to
+some emacs-w3m commands are activated in message buffer, when viewing
+Text/Html contents."
+  :group 'mew-w3m
+  :type 'boolean)
+
+(defcustom mew-w3m-auto-insert-image nil
+  "*If non-nil, images are inserted automatically in Multipart/Related message.
+This variable is effective only in XEmacs, Emacs 21 and Emacs 22."
+  :group 'mew-w3m
+  :type 'boolean)
+
+(defcustom mew-w3m-cid-retrieve-hook nil
+  "*Hook run after cid retrieved"
+  :group 'mew-w3m
+  :type 'hook)
+
+(defcustom mew-w3m-region-cite-mark "&gt;&nbsp;"
+  "*Method of converting `blockquote'."
+  :group 'mew-w3m
+  :type '(choice (const :tag "Use Indent" nil)
+		 (const :tag "Use Cite Mark \"> \"" "&gt;&nbsp;")
+		 (string :tag "Use Other Mark")))
+
+(defconst mew-w3m-safe-url-regexp "\\`cid:")
+
+;; Avoid bytecompile error and warnings.
+(eval-when-compile
+  (defvar mew-use-text/html)
+  (unless (fboundp 'mew-current-get-fld)
+    (autoload 'mew-coding-system-p "mew")
+    (autoload 'mew-current-get-fld "mew")
+    (autoload 'mew-current-get-msg "mew")
+    (autoload 'mew-syntax-get-entry-by-cid "mew")
+    (defun mew-cache-hit (&rest args) ())))
+
+(defmacro mew-w3m-add-text-properties (props)
+  `(add-text-properties (point-min)
+			(min (1+ (point-min)) (point-max))
+			,props))
+
+(defun mew-w3m-minor-mode-setter ()
+  "Check message buffer and activate w3m-minor-mode."
+  (w3m-minor-mode (or (and (get-text-property (point-min) 'w3m)
+			   mew-use-w3m-minor-mode)
+		      0)))
+
+(defvar mew-w3m-use-safe-url-regexp t)
+
+(defun mew-w3m-view-inline-image (&optional allimage)
+  "Display the images of Text/Html part.
+\\<mew-summary-mode-map>
+'\\[mew-w3m-view-inline-image]'	Toggle display the images included its message only.
+'\\[universal-argument]\\[mew-w3m-view-inline-image]'	Display the all images included its Text/Html part."
+  (interactive "P")
+  (mew-summary-msg-or-part
+   (if allimage
+       (let ((mew-use-text/html t)
+	     (mew-w3m-auto-insert-image t)
+	     (mew-w3m-use-safe-url-regexp nil))
+	 (mew-summary-display 'force))
+     (with-current-buffer (mew-buffer-message)
+       (let* ((image (get-text-property (point-min) 'w3m-images))
+	      (w3m-display-inline-images image)
+	      (w3m-safe-url-regexp (when mew-w3m-use-safe-url-regexp
+				     mew-w3m-safe-url-regexp)))
+	 (w3m-toggle-inline-images)
+	 (mew-elet
+	  (mew-w3m-add-text-properties `(w3m-images ,(not image)))
+	  (set-buffer-modified-p nil)))))))
+
+(defun mew-w3m-region (start end &optional url charset)
+  "w3m-region with inserting the cite mark."
+  (if (null mew-w3m-region-cite-mark)
+      (w3m-region start end url charset)
+    (save-restriction
+      (narrow-to-region start end)
+      (let ((case-fold-search t)
+	    pos lines tagbeg0 tagend0 tagbeg1 tagend1)
+	(goto-char (point-min))
+	(while (w3m-search-tag "blockquote")
+	  (setq tagbeg0 (match-beginning 0))
+	  (setq tagend0 (match-end 0))
+	  (when (w3m-search-tag "/blockquote")
+	    (setq tagbeg1 (match-beginning 0))
+	    (setq tagend1 (match-end 0))
+	    (setq lines (buffer-substring tagend0 tagbeg1))
+	    (delete-region tagbeg0 tagend1)
+	    (insert (with-temp-buffer
+		      (insert lines)
+		      (goto-char (point-min))
+		      (if (and (w3m-search-tag "pre")
+			       (setq tagbeg0 (match-beginning 0))
+			       (setq tagend0 (match-end 0))
+			       (w3m-search-tag "/pre")
+			       (setq tagbeg1 (match-beginning 0))
+			       (setq tagend1 (match-end 0)))
+			  (progn
+			    (delete-region tagbeg1 tagend1)
+			    (delete-region tagbeg0 tagend0))
+			;; delete <br>
+			(goto-char (point-min))
+			(while (w3m-search-tag "br")
+			  (delete-region (match-beginning 0) (match-end 0))
+			  (unless (looking-at "[\n\r]") (insert "\n"))))
+		      (goto-char (point-max))
+		      (skip-chars-backward " \t\n\f\r")
+		      (delete-region (point) (point-max))
+		      (goto-char (point-min))
+		      (skip-chars-forward " \t\n\f\r")
+		      (delete-region (point-min) (point))
+		      (goto-char (point-min))
+		      (while (not (eobp))
+			(insert mew-w3m-region-cite-mark)
+			(forward-line 1))
+		      (goto-char (point-min))
+		      (insert "<pre>\n")
+		      (goto-char (point-max))
+		      (insert "\n</pre>\n")
+		      (buffer-substring (point-min) (point-max)))))))
+      (w3m-region (point-min) (point-max) url charset))))
+
+;; processing Text/Html contents with w3m.
+(defun mew-mime-text/html-w3m (&rest args)
+  "View Text/Html contents with w3m rendering output."
+  (let ((w3m-display-inline-images mew-w3m-auto-insert-image)
+	(w3m-safe-url-regexp (when mew-w3m-use-safe-url-regexp
+			       mew-w3m-safe-url-regexp))
+	w3m-force-redisplay	;; don't redraw
+	charset wcs xref
+	cache begin end params execute)
+    (if (= (length args) 2)
+	;; Mew-2
+	(setq begin (nth 0 args) end (nth 1 args))
+      ;; Old Mew
+      (setq cache (nth 0 args))
+      (setq begin (nth 1 args))
+      (setq end (nth 2 args))
+      (setq params (nth 3 args))
+      (setq execute (nth 4 args)))
+    (if (and cache (or execute (<= end begin)))
+	;; 'C-cC-e' + Old Mew
+	(apply 'mew-mime-text/html (list cache begin end params execute))
+      (save-excursion
+	;; search Xref: Header in SHIMBUN article
+	(when cache (set-buffer cache))
+	(goto-char (point-min))
+	(when (re-search-forward mew-eoh nil t)
+	  (let ((eoh (point))
+		(case-fold-search t))
+	    (goto-char (point-min))
+	    (when (and (re-search-forward "^X-Shimbun-Id: " eoh t)
+		       (goto-char (point-min))
+		       (re-search-forward "^Xref: \\(.+\\)\n" eoh t))
+	      (setq xref (match-string 1))
+	      (w3m-static-if (fboundp 'match-string-no-properties)
+		  (setq xref (match-string-no-properties 1))
+		(setq xref (match-string 1))
+		(set-text-properties 0 (length xref) nil xref))))))
+      (mew-elet
+       (cond
+	((and (null cache) (eq w3m-type 'w3m-m17n))
+	 ;; Mew-2 + w3m-m17n.
+	 ;; Coding-system and charset are decided by Mew.
+	 (let ((w3m-input-coding-system w3m-input-coding-system)
+	       (w3m-output-coding-system w3m-output-coding-system)
+	       (w3m-halfdump-command-arguments w3m-halfdump-command-arguments))
+	   (when (setq charset (mew-charset-guess-region begin end))
+	     (setq wcs (mew-charset-to-cs charset)))
+	   (when (and charset wcs (mew-coding-system-p wcs))
+	     ;; guess correctly and not us-ascii
+	     (setq w3m-input-coding-system wcs)
+	     (setq w3m-output-coding-system wcs)
+	     (setq w3m-halfdump-command-arguments
+		   (list "-halfdump"
+			 "-I" charset "-O" charset
+			 "-o" "ext_halfdump=1"
+			 "-o" "pre_conv=1"
+			 "-o" "strict_iso2022=0")))
+	   (mew-w3m-region begin end xref)))
+	((null cache)	;; Mew-2 + w3m, w3mmee
+	 (mew-w3m-region begin end xref (mew-charset-guess-region begin end)))
+	(t		;; Old Mew
+	 (setq charset (or (mew-syntax-get-param params "charset")
+			   (with-current-buffer cache
+			     (mew-charset-guess-region begin end))))
+	 (if charset
+	     (setq wcs (mew-charset-to-cs charset))
+	   (setq wcs mew-cs-text-for-write))
+	 (mew-frwlet
+	     mew-cs-dummy wcs
+	   (mew-w3m-region (point)
+			   (progn (insert-buffer-substring cache begin end)
+				  (point))
+			   xref))))
+       (mew-w3m-add-text-properties `(w3m t w3m-images ,mew-w3m-auto-insert-image))))))
+
+(defvar w3m-mew-support-cid (and (boundp 'mew-version-number)
+				 (fboundp 'mew-syntax-get-entry-by-cid)))
+
+(defun mew-w3m-cid-retrieve (url &rest args)
+  (let ((output-buffer (current-buffer)))
+    (with-current-buffer w3m-current-buffer
+      (when (and w3m-mew-support-cid
+		 (string-match "^cid:\\(.+\\)" url))
+	(setq url (match-string 1 url))
+	(let* ((fld (mew-current-get-fld (mew-frame-id)))
+	       (msg (mew-current-get-msg (mew-frame-id)))
+	       (cache (mew-cache-hit fld msg 'must-hit))
+	       (syntax (mew-cache-decode-syntax cache))
+	       cidstx beg end)
+	  (if (string< "4.0.53" mew-version-number)
+	      (setq cidstx (mew-syntax-get-entry-by-cid syntax (concat "<" url ">")))
+	    (setq cidstx (mew-syntax-get-entry-by-cid syntax url)))
+	  (when cidstx
+	    (setq beg (mew-syntax-get-begin cidstx))
+	    (setq end (mew-syntax-get-end cidstx))
+	    (prog1
+		(with-current-buffer output-buffer
+		  (set-buffer-multibyte t)
+		  (insert-buffer-substring cache beg end)
+		  (set-buffer-multibyte nil)
+		  (downcase (car (mew-syntax-get-ct cidstx))))
+	      (run-hooks 'mew-w3m-cid-retrieve-hook))))))))
+
+(when w3m-mew-support-cid
+  (push (cons 'mew-message-mode 'mew-w3m-cid-retrieve)
+	w3m-cid-retrieve-function-alist))
+
+(defun mew-w3m-ext-url-show (dummy url)
+  (pop-to-buffer (mew-buffer-message))
+  (w3m url))
+
+(defun mew-w3m-ext-url-fetch (dummy url)
+  (lexical-let ((url url)
+		(name (file-name-nondirectory url))
+		handler)
+    (w3m-process-do
+	(success (prog1
+		     (w3m-download url nil nil handler)
+		   (message "Download: %s..." name)))
+      (if success
+	  (message "Download: %s...done" name)
+	(message "Download: %s...failed" name))
+      (sit-for 1))))
+
+(defun w3m-mail-compose-with-mew (source url charset content-type
+					 to subject other-headers)
+  "Compose a mail using Mew."
+  (when (one-window-p)
+    (split-window))
+  (select-window (next-window))
+  (condition-case nil
+      (unless (and (boundp 'mew-init-p) mew-init-p
+		   (progn
+		     (mew-summary-jump-to-draft-buffer)
+		     (and (eq major-mode 'mew-draft-mode)
+			  (y-or-n-p "Attatch this draft? "))))
+	(mew-user-agent-compose to subject other-headers))
+    (quit
+     (if (y-or-n-p "Create new draft? ")
+	 (mew-user-agent-compose to subject other-headers)
+       (delete-window)
+       (error "Abort mail composing"))))
+  (let* ((basename (file-name-nondirectory (w3m-url-strip-query url)))
+	 (ct (downcase  content-type))
+	 (mew-attach-move-next-after-copy nil)
+	 (i 1)
+	 (pos -1)
+	 (csorig (mew-charset-to-cs (symbol-name charset)))
+	 last filename cs)
+    (unless (mew-attach-p)
+      (mew-draft-prepare-attachments))
+    ;; goto last attachment
+    (setq last (catch 'last
+		 (while (not (= pos (point)))
+		   (setq i (1+ i))
+		   (mew-attach-goto-number 'here `(,i))
+		   (when (mew-attach-line-lastp)
+		     (throw 'last t)))))
+    (when (eq csorig mew-cs-unknown)
+      (setq csorig nil))
+    (if (or (not last) (not (mew-attach-not-line012-1)))
+	(message "Can not attach from emacs-w3m here!")
+      ;; Application/.*xml is not inline view with Mew.
+      (cond
+       ((string= "application/xhtml+xml" ct)
+	(setq ct "text/html"))
+       ((string-match "^application/.*xml$" ct)
+	(setq ct "text/xml")))
+      (setq filename (expand-file-name (cond
+					((and (string-match "^[\t ]*$" basename)
+					      (string= ct "text/html"))
+					 "index.html")
+					((and (string-match "^[\t ]*$" basename)
+					      (string= ct "text/xml"))
+					 "index.xml")
+					((string-match "^[\t ]*$" basename)
+					 "dummy")
+					(t
+					 basename))
+				       mew-temp-dir))
+      (with-temp-buffer
+	(cond
+	 ((string= "text/html" ct)
+	  (insert source)
+	  (setq cs (w3m-static-if (fboundp 'mew-text/html-detect-cs)
+		       (mew-text/html-detect-cs (point-min) (point-max))))
+	  (when (or (eq cs mew-cs-unknown) (not cs))
+	    (cond
+	     (csorig
+	      (setq cs csorig))
+	     (t
+	      (setq cs mew-cs-autoconv)))))
+	 ((string= "text/xml" ct)
+	  (insert source)
+	  (setq cs (w3m-static-if (fboundp 'mew-text/html-detect-cs)
+		       (mew-text/html-detect-cs (point-min) (point-max))))
+	  (when (or (eq cs mew-cs-unknown) (not cs))
+	    (cond
+	     (csorig
+	      (setq cs csorig))
+	     ((mew-coding-system-p 'utf-8)
+	      (setq cs 'utf-8))
+	     (t
+	      (setq cs mew-cs-autoconv)))))
+	 ((string-match "^text/" ct)
+	  (insert source)
+	  (setq cs mew-cs-autoconv))
+	 (t
+	  (mew-set-buffer-multibyte nil)
+	  (insert source)
+	  (setq cs mew-cs-binary)))
+	(setq charset (cond
+		       ((eq cs mew-cs-autoconv)
+			(mew-charset-guess-region (point-min) (point-max)))
+		       ((eq cs mew-cs-binary)
+			nil)
+		       (t
+			(mew-cs-to-charset cs))))
+	(mew-frwlet
+	    mew-cs-text-for-read cs
+	  (write-region (point-min) (point-max) filename nil 'nomsg)))
+      (when ct
+	(setq ct (mew-capitalize ct)))
+      (mew-attach-copy filename (file-name-nondirectory filename))
+      ;; content-type check & set
+      (let* ((nums (mew-syntax-nums))
+	     (syntax (mew-syntax-get-entry mew-encode-syntax nums))
+	     (file (mew-syntax-get-file syntax))
+	     (ctl (mew-syntax-get-ct syntax))
+	     (ct-orig (mew-syntax-get-value ctl 'cap))
+	     cte)
+	(unless (string= ct ct-orig)
+	  (setq ctl (list ct))
+	  (mew-syntax-set-ct syntax ctl)
+	  (setq cte (mew-ctdb-cte (mew-ctdb-by-ct ct)))
+	  (mew-syntax-set-cte syntax cte)
+	  (mew-syntax-set-cdp syntax (mew-syntax-cdp-format ct file))
+	  (mew-encode-syntax-print mew-encode-syntax)))
+      ;; charset set
+      (let* ((nums (mew-syntax-nums))
+	     (syntax (mew-syntax-get-entry mew-encode-syntax nums))
+	     (file (mew-syntax-get-file syntax))
+	     (ctl (mew-syntax-get-ct syntax))
+	     (ct (mew-syntax-get-value ctl 'cap))
+	     (params (mew-syntax-get-params ctl))
+	     (ocharset "charset"))
+	(when (and (string-match "^Text" ct) charset)
+	  (setq params (mew-delete ocharset params))
+	  (setq ctl (cons ct (cons (list ocharset charset) params)))
+	  (mew-syntax-set-ct syntax ctl))
+	(mew-syntax-set-cd syntax url)
+	(mew-encode-syntax-print mew-encode-syntax))
+      (message "Compose a mail using Mew with %s...done" url)
+      (when (and (file-exists-p filename) (file-writable-p filename))
+	(delete-file filename)))))
+
+;;;
+(provide 'mew-w3m)
+
+;; mew-w3m.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/mime-w3m.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,227 @@
+;;; mime-w3m.el --- mime-view content filter for text
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2009
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: TSUCHIYA Masatoshi <[e-mail]>,
+;;         Akihiro Arisawa    <[e-mail]>
+;; Keywords: HTML, MIME, multimedia, mail, news
+
+;; This file is *NOT* yet part of SEMI (Suite of Emacs MIME Interfaces).
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Install:
+
+;; (1) Install SEMI.
+;; (2) Put this file to appropriate directory.
+;; (3) Write these following code to your ~/.emacs or ~/.gnus.
+;;
+;;        (require 'mime-w3m)
+
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl)
+  ;; mime-parse.el should be loaded before mime.el so as not to make
+  ;; `mime-uri-parse-cid' an autoloaded function to which the byte
+  ;; compiler might issue a nonsense warning.
+  (require 'mime-parse)
+  (require 'mime)
+  (require 'w3m)
+  (defvar mime-preview-condition)
+  (defvar mime-setup-enable-inline-html)
+  (defvar mime-view-mode-default-map))
+
+(eval-and-compile
+  (when (featurep 'xemacs)
+    (require 'font)))
+
+(defcustom mime-w3m-display-inline-images 'default
+  "*Non-nil means that inline images are displayed.
+When this option is equal to `default',
+`w3m-default-display-inline-images' is refered instead of this option,
+to decide whether inline images are displayed."
+  :group 'w3m
+  :group 'mime-view
+  :type '(radio (const :format "%v " nil)
+		(sexp :format "non-nil "
+		      :match
+		      (lambda (widget value)
+			(and value (not (eq value 'default))))
+		      :value-to-internal
+		      (lambda (widget value)
+			(if (and value (not (equal value "default")))
+			    (widget-sexp-value-to-internal widget value)
+			  "t")))
+		(const default)))
+
+(defcustom mime-w3m-safe-url-regexp "\\`cid:"
+  "*Regexp that matches safe url names.
+Some HTML mails might have the trick of spammers using <img> tags.  It
+is likely to be intended to verify whether you have read the mail.
+You can prevent your personal informations from leaking by setting
+this to the regexp which matches the safe url names.  The value of the
+variable `w3m-safe-url-regexp' will be bound with this value.  You may
+set this value to nil if you consider all the urls to be safe."
+  :group 'mime-w3m
+  :type '(choice (regexp :format "%t: %v\n" :size 0)
+		 (const :tag "All URLs are safe" nil)))
+
+(defcustom mime-w3m-after-cursor-move-hook
+  '(w3m-print-this-url)
+  "*Hook run each time after the cursor moves in mime-w3m buffers.
+This hook is called by the `mime-w3m-check-current-position' function
+by way of `post-command-hook'."
+  :group 'mime-w3m
+  :type 'hook)
+
+(defcustom mime-w3m-setup-hook nil
+  "*Hook run at the end of function `mime-w3m-setup'."
+  :group 'mime-w3m
+  :type 'hook)
+
+(defvar mime-w3m-message-structure nil)
+(make-variable-buffer-local 'mime-w3m-message-structure)
+
+(defun mime-w3m-insinuate ()
+  "Insinuate `mime-w3m' module to SEMI."
+  (setq mime-setup-enable-inline-html nil)
+  (let (flag)
+    (when (boundp 'mime-preview-condition)
+      (labels ((overwrite (x)
+		(if (symbolp x)
+		    (if (eq x 'mime-preview-text/html)
+			(setq flag 'mime-w3m-preview-text/html)
+		      (when (eq x 'mime-w3m-preview-text/html)
+			(setq flag t))
+		      x)
+		  (if (consp x)
+		      (cons (overwrite (car x)) (overwrite (cdr x)))
+		    x))))
+	(setq mime-preview-condition
+	      (overwrite mime-preview-condition))))
+    (unless flag
+      (eval-after-load "mime-view"
+	'(progn
+	   (ctree-set-calist-strictly
+	    'mime-preview-condition
+	    '((type . text)
+	      (subtype . html)
+	      (body . visible)
+	      (body-presentation-method . mime-w3m-preview-text/html)))
+	   (set-alist 'mime-view-type-subtype-score-alist
+		      '(text . html) 3))))))
+
+(defun mime-w3m-setup ()
+  "Setup `mime-w3m' module."
+  (require 'w3m)
+  (when (eq mime-w3m-display-inline-images 'default)
+    (setq mime-w3m-display-inline-images w3m-default-display-inline-images))
+  (unless (assq 'mime-view-mode w3m-cid-retrieve-function-alist)
+    (push (cons 'mime-view-mode 'mime-w3m-cid-retrieve)
+	  w3m-cid-retrieve-function-alist))
+  (run-hooks 'mime-w3m-setup-hook))
+
+(def-edebug-spec mime-w3m-save-background-color t)
+(defmacro mime-w3m-save-background-color (&rest body)
+  (if (featurep 'xemacs)
+      `(let ((color (color-name (face-background 'default))))
+	 (prog1
+	     (progn ,@body)
+	   (font-set-face-background 'default color (current-buffer))))
+    (cons 'progn body)))
+
+;;;###autoload
+(defun mime-w3m-preview-text/html (entity situation)
+  (mime-w3m-setup)
+  (setq mime-w3m-message-structure (mime-find-root-entity entity))
+  (let ((p (point))
+	(xref
+	 (or (mime-entity-fetch-field entity "xref")
+	     (mime-entity-fetch-field mime-w3m-message-structure "xref"))))
+    (goto-char p)
+    (insert "\n")
+    (goto-char p)
+    (mime-w3m-save-background-color
+     (save-restriction
+       (narrow-to-region p p)
+       (mime-insert-text-content entity)
+       (run-hooks 'mime-text-decode-hook)
+       (condition-case err
+	   (let ((w3m-safe-url-regexp mime-w3m-safe-url-regexp)
+		 (w3m-display-inline-images mime-w3m-display-inline-images)
+		 w3m-force-redisplay)
+	     (w3m-region p (point-max)
+			 (and (stringp xref)
+			      (string-match "\\`http://" xref)
+			      xref)
+			 (mime-content-type-parameter
+			  (mime-entity-content-type entity)
+			  "charset"))
+	     (add-text-properties p (point-max)
+				  (list 'keymap w3m-minor-mode-map
+					'text-rendered-by-mime-w3m t)))
+	 (error (message "%s" err)))))))
+
+(let (current-load-list)
+  (defadvice mime-display-message
+    (after mime-w3m-add-local-hook activate compile)
+    "Advised by emacs-w3m.
+Set hooks run arround each command is executed."
+    (when (featurep 'w3m)
+      (w3m-add-local-hook 'pre-command-hook
+			  'w3m-store-current-position)
+      (w3m-add-local-hook 'post-command-hook
+			  'mime-w3m-check-current-position))))
+
+(defun mime-w3m-check-current-position ()
+  "Run `mime-w3m-after-cursor-move-hook' if the cursor has been moved."
+  (when (and (/= (point) (car w3m-current-position))
+	     (ignore-errors
+	       (or (get-text-property (point)
+				      'text-rendered-by-mime-w3m)
+		   (get-text-property (car w3m-current-position)
+				      'text-rendered-by-mime-w3m))))
+    (run-hooks 'mime-w3m-after-cursor-move-hook)))
+
+(defun mime-w3m-cid-retrieve (url &rest args)
+  (let ((entity (mime-find-entity-from-content-id
+		 (mime-uri-parse-cid url)
+		 (with-current-buffer w3m-current-buffer
+		   mime-w3m-message-structure))))
+    (when entity
+      ;; `mime-decode-string' should be performed in a unibyte buffer.
+      (w3m-insert-string (mime-entity-content entity))
+      (mime-entity-type/subtype entity))))
+
+(let (current-load-list)
+  (defadvice kill-new (before strip-keymap-properties-from-kill activate)
+    "Advised by emacs-w3m.
+Strip `keymap' or `local-map' properties from a killed string."
+    (if (text-property-any 0 (length (ad-get-arg 0))
+			   'text-rendered-by-mime-w3m t (ad-get-arg 0))
+	(remove-text-properties 0 (length (ad-get-arg 0))
+				'(keymap nil local-map nil)
+				(ad-get-arg 0)))))
+
+(mime-w3m-insinuate)
+
+(provide 'mime-w3m)
+
+;;; mime-w3m.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/octet.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,548 @@
+;;; octet.el --- An octet stream viewer.
+
+;; Copyright (C) 2000, 2002, 2003, 2004, 2005, 2010
+;; Yuuichi Teranishi <[e-mail]>
+
+;; Author: Yuuichi Teranishi <[e-mail]>
+;; Created: 2000/05/19
+;; Keywords: octet-stream, broken document
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+;;
+;; Display application/octet-stream inline on the emacs buffer.
+;;
+;; This program requires:
+;;
+;; emacs-w3m for HTML rendereing.
+;; (http://emacs-w3m.namazu.org/)
+;; Mule-UCS  for UTF-8 decoding.
+;; (ftp://ftp.m17n.org/pub/mule/Mule-UCS/)
+;; wvHtml for MS Word document.
+;; (http://www.wvware.com/)
+;; xlHtml for MS Excel document.
+;; (http://chicago.sourceforge.net/xlhtml/)
+;; pptHtml for MS PowerPoint document.
+;; (http://chicago.sourceforge.net/xlhtml/)
+;; gunzip for decoding gzipped file.
+;; bunzip2 for decoding bzip2ed file.
+
+;; Put follwing line in your setting file:
+;;
+;; (require 'octet)
+;;
+;; To display octet data file, execute following command.
+;;
+;; M-x octet-find-file
+;;
+;; If you use SEMI, put following lines in your setting file:
+;;
+;; (require 'octet)
+;; (octet-mime-setup)
+;;
+;; Then you can toggle displaying application/octet-stream messages.
+
+;;; History:
+;;
+;; This file is created in 2000/05/19.
+;; All part was rewrote in 2002/01/28.
+;; Added to emacs-w3m repository in 2002/01/29.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'poe)     ; for compatibility
+(require 'pces)    ; as-binary-process
+(require 'mime)    ; SEMI
+(require 'static)
+(require 'w3m-util); w3m-insert-string
+
+(defvar octet-temp-directory temporary-file-directory
+  "A directory to create temporal files.")
+
+(defvar octet-html-render-function 'octet-w3m-region
+  "A function for HTML rendering.")
+
+(defvar octet-suffix-type-alist
+  '(("xls"  . msexcel)
+    ("ppt"  . msppt)
+    ("doc"  . msword)
+    ("gz"   . gzip)
+    ("bz2"  . bzip2)
+    ("html" . html)
+    ("jpg"  . jpeg)
+    ("jpeg" . jpeg)
+    ("gif"  . gif)
+    ("png"  . png)
+    ("tif"  . tiff)
+    ("tiff" . tiff)
+    ("txt"  . text)
+    ("lzh"  . lzh)
+    ("tar"  . tar)
+    ("pdf"  . pdf))
+  "Alist of suffix-to-octet-type.")
+
+(defvar octet-content-type-alist
+  '(("application/vnd\\.ms-excel"	. msexcel)
+    ("application/vnd\\.ms-powerpoint"	. msppt)
+    ("application/x-msexcel"		. msexcel)
+    ("application/msword"		. msword)
+    ("image/jpeg"			. jpeg)
+    ("image/gif"			. gif)
+    ("image/png"			. png)
+    ("image/tiff"			. tiff)
+    ("audio/midi"			. ignore)
+    ("video/mpeg"			. ignore)
+    ("text/html"			. html-un)
+    ("application/x-tar"		. tar)
+    ("application/pdf"			. pdf))
+  "Alist of content-type-regexp-to-octet-type.")
+
+(defvar octet-magic-type-alist
+  '(("^\377\330\377[\340\356]..JFIF"	image jpeg)
+    ("^\211PNG"				image png)
+    ("^GIF8[79]"			image gif)
+    ("^II\\*\000"			image tiff)
+    ("^MM\000\\*"			image tiff)
+    ("^MThd"				audio midi)
+    ("^\000\000\001\263"		video mpeg)
+    ("^<!doctype html"			text  html)
+    ("^<head"				text  html)
+    ("^<title"				text  html)
+    ("^<html"				text  html))
+  "*Alist of regexp about magic-number vs. corresponding content-types.
+Each element looks like (REGEXP TYPE SUBTYPE).
+REGEXP is a regular expression to match against the beginning of the
+content of entity.
+TYPE is symbol to indicate primary type of content-type.
+SUBTYPE is symbol to indicate subtype of content-type.")
+
+(defvar octet-type-filter-alist
+  `((msexcel octet-filter-call1	      "xlhtml" ("-te")	html-u8)
+    (msppt   octet-filter-call1	      "ppthtml" nil	html-u8)
+    (msword  octet-filter-call2-extra "wvHtml"	nil	html-u8)
+    (html    octet-render-html	      nil	nil	nil)
+    (html-u8 octet-decode-u8-text     nil	nil	html)
+    (html-un octet-decode-text	      nil	nil	html)
+    (gzip    octet-filter-call1	      "gunzip"	("-c")	guess)
+    (bzip2   octet-filter-call1	      "bunzip2"	("-c")	guess)
+    (text    octet-decode-text	      nil	nil	nil)
+    (ignore  ignore		      nil	nil	nil)
+    (jpeg    octet-decode-image	      nil	jpeg	nil)
+    (gif     octet-decode-image	      nil	gif	nil)
+    (png     octet-decode-image	      nil	png	nil)
+    (tiff    octet-decode-image	      nil	tiff	nil)
+    (guess   octet-filter-guess	      nil	nil	nil)
+    (lzh     octet-filter-call1	      "lha"	("-v")	text)
+    (tar     octet-tar-mode	      nil	nil	nil)
+    (pdf     octet-filter-call2	     "pdftotext" ("-q" "-eucjp" "-raw") text))
+  "Alist of type-to-filter-program.
+Each element should have the form like:
+\(TYPE FUNCTION FILTER_PROGRAM ARGUMENT NEW-TYPE\)
+nil in NEW-TYPE means filtering is completed.")
+
+(defvar octet-find-file-hook nil)
+
+(defvar octet-attachments nil)
+(make-variable-buffer-local 'octet-attachments)
+
+(defun octet-render-html (&rest args)
+  (funcall octet-html-render-function (point-min) (point-max))
+  0)
+
+(defun octet-decode-text (&rest args)
+  (let ((string (buffer-string)))
+    (erase-buffer)
+    (set-buffer-multibyte t)
+    (insert (decode-coding-string string 'undecided)))
+  0)
+
+;;; HTML rendering by w3m.el
+(defun w3m-about-octet-attachments (url &optional no-decode no-cache
+					&rest args)
+  (let (buffer attachments pair)
+    (set-buffer-multibyte nil)
+    (when (string-match "\\`about://octet-attachments/\\([^/]+\\)/" url)
+      (setq buffer (get-buffer (base64-decode-string (match-string 1 url)))
+	    url (substring url (match-end 0))
+	    attachments (with-current-buffer buffer
+			  octet-attachments))
+      (when (and buffer attachments
+		 (setq pair (assoc url attachments)))
+	(insert (cdr pair)))))
+  (car (funcall (symbol-function 'w3m-local-file-type) url)))
+
+(defun octet-w3m-region (beg end)
+  (let ((w3m-display-inline-images t)
+	(w3m-url-hierarchical-schemes '("about")))
+    (funcall (symbol-function 'w3m-region)
+	     beg end (concat "about://octet-attachments/"
+			     (base64-encode-string
+			      (string-as-unibyte
+			       (buffer-name (current-buffer))) "/")))
+    (setq octet-attachments nil))
+  0)
+
+;; Decode image
+(static-cond
+ ((featurep 'xemacs)
+  (defun octet-decode-image (ignore &rest args)
+    (let (glyph)
+      (if (memq (car args) (image-instantiator-format-list))
+	  (progn
+	    (setq glyph (make-glyph (vector (car args) :data (buffer-string))))
+	    (if glyph
+		(progn (erase-buffer)
+		       (set-extent-end-glyph
+			(make-extent (point-min)(point-min))
+			glyph)
+		       0)
+	      1))
+	1))))
+ (t
+  (defun octet-decode-image (ignore &rest args)
+    (let (image)
+      (if (image-type-available-p (car args))
+	  (progn
+	    (setq image (create-image (buffer-string) (car args) 'data))
+	    (if image
+		(progn (erase-buffer)
+		       (insert-image image) 0)
+	      1))
+	1)))))
+
+(defun octet-decode-u8-text (&rest args)
+  (let ((string (buffer-string)))
+    (erase-buffer)
+    (set-buffer-multibyte t)
+    (insert (decode-coding-string string 'utf-8)))
+  0)
+
+(defun octet-filter-call2 (filter &optional args)
+  "Call octed filter with two arguments (infile, outfile).
+Current buffer content is replaced.
+Returns 0 if succeed."
+  (let ((infile (file-name-nondirectory
+		 (make-temp-file (expand-file-name "octet"
+						   octet-temp-directory))))
+	(outfile (file-name-nondirectory
+		  (make-temp-file (expand-file-name "octet"
+						    octet-temp-directory))))
+	(last-dir default-directory)
+	result)
+    (cd octet-temp-directory)
+    (write-region-as-binary (point-min) (point-max) infile nil 'no-msg)
+    (unwind-protect
+	(progn
+	  (as-binary-process
+	   (setq result (apply 'call-process filter nil nil nil
+			       (append args (list infile outfile)))))
+	  (when (and (numberp result)
+		     (zerop result))
+	    (erase-buffer)
+	    (insert-file-contents-as-binary outfile))
+	  0)
+      (if (file-exists-p infile) (delete-file infile))
+      (if (file-exists-p outfile) (delete-file outfile))
+      (cd last-dir))))
+
+(defun octet-filter-call2-extra (filter &optional args)
+  "Call octed filter with two arguments (infile, outfile).
+Current buffer content is replaced.
+Also, exta attachments are collected to `octet-attachments'.
+Returns 0 if succeed."
+  (let ((infile (file-name-nondirectory
+		 (make-temp-file (expand-file-name "octet"
+						   octet-temp-directory))))
+	(outfile (file-name-nondirectory
+		  (make-temp-file (expand-file-name "octet"
+						    octet-temp-directory))))
+	(last-dir default-directory)
+	result)
+    (cd octet-temp-directory)
+    (write-region-as-binary (point-min) (point-max) infile nil 'no-msg)
+    (unwind-protect
+	(progn
+	  (as-binary-process
+	   (setq result (apply 'call-process filter nil nil nil
+			       (append args (list infile outfile)))))
+	  (when (and (numberp result)
+		     (zerop result))
+	    (erase-buffer)
+	    (insert-file-contents-as-binary outfile)
+	    (dolist (attach (directory-files "." nil (concat
+						      (regexp-quote outfile)
+						      ".*\\..*")))
+	      (setq octet-attachments
+		    (cons (cons
+			   attach
+			   (with-temp-buffer
+			     (insert-file-contents-as-binary attach)
+			     (buffer-string)))
+			  octet-attachments))
+	      (if (file-exists-p attach) (delete-file attach))
+	      ))
+	  0)
+      (if (file-exists-p infile) (delete-file infile))
+      (if (file-exists-p outfile) (delete-file outfile))
+      (cd last-dir))))
+
+(defun octet-filter-call1 (filter &optional args)
+  "Call external octed filter with two arguments (infile) and obtain stdout.
+Current buffer content is replaced.
+Returns 0 if succeed."
+  (let ((infile (file-name-nondirectory
+		 (make-temp-file (expand-file-name "octet"
+						   octet-temp-directory))))
+	(last-dir default-directory)
+	result)
+    (cd octet-temp-directory)
+    (write-region-as-binary (point-min) (point-max) infile nil 'no-msg)
+    (unwind-protect
+	(progn
+	  (erase-buffer)
+	  (as-binary-process
+	   (setq result (apply 'call-process filter nil t nil
+			       (append args (list infile)))))
+	  (if (numberp result) result 1))
+      (if (file-exists-p infile) (delete-file infile))
+      (cd last-dir))))
+
+(defun octet-filter-guess (&rest args)
+  (let (buffer-file-name)
+    (octet-buffer)
+    0))
+
+(defun octet-tar-mode (&rest args)
+  (funcall (symbol-function 'tar-mode))
+  0)
+
+(defun octet-guess-type-from-name (name)
+  (when (string-match "\\.\\([a-z0-9]+\\)\\'" name)
+    (cdr (assoc (downcase (match-string 1 name))
+		octet-suffix-type-alist))))
+
+(defun octet-guess-type-from-content-type (content-type)
+  (let ((alist octet-content-type-alist)
+	type)
+    (while alist
+      (when (string-match (car (car alist)) content-type)
+	(setq type (cdr (car alist))
+	      alist nil))
+      (setq alist (cdr alist)))
+    type))
+
+(defun octet-guess-type-from-magic ()
+  (let ((rest octet-magic-type-alist)
+	type subtype)
+    (goto-char (point-min))
+    (while (not (let ((cell (car rest)))
+		  (if cell
+		      (if (looking-at (car cell))
+			  (setq type (nth 1 cell)
+				subtype (nth 2 cell)))
+		    t)))
+      (setq rest (cdr rest)))
+    (if type
+	(octet-guess-type-from-content-type
+	 (concat (symbol-name type) "/" (symbol-name subtype))))))
+
+(defun octet-filter-buffer (type)
+  "Call a filter function in `octet-type-filter-alist'.
+TYPE is the symbol of type.
+Returns NEW-TYPE."
+  (let ((elem (assq type octet-type-filter-alist)))
+    (if (zerop (apply (nth 1 elem) (list (nth 2 elem) (nth 3 elem))))
+	(nth 4 elem))))
+
+;;;###autoload
+(defun octet-buffer (&optional name content-type)
+  "View octet-stream content according to `octet-type-filter-alist'.
+Optional NAME is the filename.
+If optional CONTENT-TYPE is specified, it is used for type guess."
+  (interactive)
+  (let ((type (or (and content-type
+		       (octet-guess-type-from-content-type
+			content-type))
+		  (octet-guess-type-from-magic)
+		  (and (or name buffer-file-name)
+		       (octet-guess-type-from-name
+			(or name buffer-file-name)))
+		  (intern (condition-case nil
+			      (completing-read "Octet Type(text): "
+					       (mapcar
+						(lambda (pair)
+						  (list (symbol-name
+							 (cdr pair))))
+						octet-suffix-type-alist)
+					       nil 'require-match nil nil
+					       "text")
+			    (quit "text"))))))
+    (while (setq type (octet-filter-buffer type)))))
+
+(static-if (featurep 'xemacs)
+    (defun octet-insert-buffer (from)
+      "Insert after point the contents of BUFFER and the image."
+      (let (extent glyph)
+	(with-current-buffer from
+	  (if (setq extent (extent-at (point-min) nil nil nil 'at))
+	      (setq glyph (extent-end-glyph extent))))
+	(insert-buffer-substring from)
+	(if glyph
+	    (set-extent-end-glyph (make-extent (point) (point))
+				  glyph))))
+  (defalias 'octet-insert-buffer 'insert-buffer))
+
+;;;###autoload
+(defun octet-find-file (file)
+  "Find FILE with octet-stream decoding."
+  (interactive "fFilename: ")
+  (as-binary-input-file	(find-file file))
+  (unwind-protect
+      (let ((inhibit-read-only t))
+	(octet-buffer))
+    (goto-char (point-min))
+    (set-buffer-modified-p nil)
+    (auto-save-mode -1)
+    (setq buffer-read-only t
+	  truncate-lines t)
+    (run-hooks 'octet-find-file-hook)))
+
+;;;
+;; Functions for SEMI.
+;;
+
+(defvar mime-preview-octet-hook nil)
+(defvar mime-view-octet-hook nil)
+
+;;;###autoload
+(defun mime-preview-octet (entity situation)
+  "A method for mime-view to preview octet message."
+  (goto-char (point-max))
+  (let ((p (point))
+	(name (mime-entity-filename entity))
+	from-buf to-buf)
+    (insert "\n")
+    (goto-char p)
+    (save-restriction
+      (narrow-to-region p p)
+      (setq to-buf (current-buffer))
+      (with-temp-buffer
+	(setq from-buf (current-buffer))
+	(w3m-insert-string (mime-entity-content entity))
+	(octet-buffer name (mime-entity-type/subtype entity))
+	(with-current-buffer to-buf
+	  (octet-insert-buffer from-buf)
+	  (run-hooks 'mime-preview-octet-hook))))))
+
+;;;###autoload
+(defun mime-view-octet (entity situation)
+  "A method for mime-view to display octet message."
+  (let (type subtype)
+    (let ((mdata (mime-entity-content entity))
+	  (rest octet-magic-type-alist))
+      (while (not (let ((cell (car rest)))
+		    (if cell
+			(if (string-match (car cell) mdata)
+			    (setq type (nth 1 cell)
+				  subtype (nth 2 cell)))
+		      t)))
+	(setq rest (cdr rest)))
+      (if type
+	  (progn
+	    (setq situation (del-alist 'method (copy-alist situation)))
+	    (funcall (symbol-function 'mime-play-entity)
+		     entity
+		     (put-alist 'type type
+				(put-alist 'subtype subtype
+					   situation))
+		     'mime-view-octet))
+	(let ((buf (get-buffer-create
+		    (format "%s-%s" (buffer-name) (mime-entity-number entity))))
+	      (name (mime-entity-filename entity)))
+	  (with-current-buffer buf
+	    (set-buffer-multibyte nil)
+	    (setq buffer-read-only nil)
+	    (erase-buffer)
+	    (w3m-insert-string mdata)
+	    (octet-buffer name (mime-entity-type/subtype entity))
+	    (setq buffer-read-only t
+		  truncate-lines t)
+	    (set-buffer-multibyte t)
+	    (set-buffer-modified-p nil))
+	  (let ((win (get-buffer-window (current-buffer))))
+	    (or (eq (selected-window) win)
+		(select-window (or win (get-largest-window)))))
+	  (view-buffer buf)
+	  (run-hooks 'mime-view-octet-hook)
+	  (goto-char (point-min)))))))
+
+;;;###autoload
+(defun octet-mime-setup ()
+  "Octet setting for MIME module."
+  (eval-after-load "mime-view"
+    '(progn
+       (ctree-set-calist-strictly
+	'mime-acting-condition
+	'((mode . "play")
+	  (type . application)(subtype . msword)
+	  (method . mime-view-octet)))
+
+       (ctree-set-calist-strictly
+	'mime-acting-condition
+	'((mode . "play")
+	  (type . application)(subtype . excel)
+	  (method . mime-view-octet)))
+
+       (ctree-set-calist-strictly
+	'mime-acting-condition
+	'((mode . "play")
+	  (type . application)(subtype . x-msexcel)
+	  (method . mime-view-octet)))
+
+       (ctree-set-calist-strictly
+	'mime-acting-condition
+	'((mode . "play")
+	  (type . application)(subtype . vnd.ms-excel)
+	  (method . mime-view-octet)))
+
+       (ctree-set-calist-strictly
+	'mime-acting-condition
+	'((mode . "play")
+	  (type . application)(subtype . vnd.ms-powerpoint)
+	  (method . mime-view-octet)))
+
+       (ctree-set-calist-strictly
+	'mime-acting-condition
+	'((mode . "play")
+	  (type . application)(subtype . octet-stream)
+	  (method . mime-view-octet)))
+
+       (ctree-set-calist-strictly
+	'mime-preview-condition
+	'((type . application)(subtype . t)
+	  (encoding . t)
+	  (body . invisible)
+	  (body-presentation-method . mime-preview-octet)))
+       ;; another condition?
+       )))
+
+(provide 'octet)
+
+;;; octet.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-antenna.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,659 @@
+;;; w3m-antenna.el --- Utility to detect changes of WEB
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-antenna.el is the add-on utility of emacs-w3m to detect changes
+;; of WEB pages.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; How to install:
+
+;; Please put this file to appropriate directory, and if you want
+;; byte-compile it.  And add following lisp expressions to your
+;; ~/.emacs.
+;;
+;;     (autoload 'w3m-antenna "w3m-antenna" "Report changes of WEB sites." t)
+
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+(require 'w3m-util)
+(require 'w3m-rss)
+(require 'w3m)
+
+(defgroup w3m-antenna nil
+  "w3m-antenna - Utility to detect changes of WEB."
+  :group 'w3m
+  :prefix "w3m-antenna-")
+
+(define-widget 'w3m-antenna-string 'string
+  "String widget with default value.
+When creating a new widget, its value is given by an expression specified
+with :value-from."
+  :tag "URL"
+  :value-from nil
+  :create 'w3m-antenna-string-create)
+
+(defun w3m-antenna-string-create (widget)
+  (if (string= "" (widget-get widget :value))
+      ;; No value is given.
+      (widget-put widget :value
+		  (let* ((symbol (widget-get widget :value-from))
+			 (value  (eval symbol)))
+		    (if value
+			(set symbol nil)
+		      (setq value ""))
+		    value)))
+  (widget-default-create widget))
+
+(eval-when-compile
+  ;; Compiler warning in Emacs 19.
+  (autoload 'widget-default-get "wid-edit"))
+
+(apply 'define-widget 'w3m-antenna-function 'function
+       "Bug-fixed version of the `function' widget.
+In Emacs 20.7 through 21.4 and XEmacs, it doesn't represent a value as
+a string internally, converts it into a string in the customization
+buffer, and provides the default value as `ignore'."
+       (if (and (fboundp 'widget-default-get)
+		(widget-default-get
+		 '(function :value-to-external ignore :value foo)))
+	   '(:value-create
+	     (lambda (widget)
+	       (widget-put widget :value
+			   (widget-sexp-value-to-internal widget value))
+	       (widget-field-value-create widget))
+	     :value-to-internal
+	     (lambda (widget value) value)
+	     :value ignore)))
+
+(defvar w3m-antenna-alist nil
+  "A list of site information (internal variable).  nil means that
+antenna database is not initialized.  Each site information is a list
+that consists of:
+ 0. Format string of URL.
+ 1. Title.
+ 2. Class (Normal, HNS or TIME).
+ 3. Real URL.
+ 4. Last modification time.
+ 5. Size in bytes.
+ 6. Time when size modification is detected.
+")
+
+(defmacro w3m-antenna-site-key (site)
+  `(car ,site))
+(defmacro w3m-antenna-site-title (site)
+  `(nth 1 ,site))
+(defmacro w3m-antenna-site-class (site)
+  `(nth 2 ,site))
+(defmacro w3m-antenna-site-url (site)
+  `(nth 3 ,site))
+(defmacro w3m-antenna-site-last-modified (site)
+  `(nth 4 ,site))
+(defmacro w3m-antenna-site-size (site)
+  `(nth 5 ,site))
+(defmacro w3m-antenna-site-size-detected (site)
+  `(nth 6 ,site))
+
+(defcustom w3m-antenna-file
+  (expand-file-name ".antenna" w3m-profile-directory)
+  "File which has list of antenna URLs."
+  :group 'w3m-antenna
+  :type '(file :size 0))
+
+(defcustom w3m-antenna-refresh-interval nil
+  "Interval time to update (to refresh) the antenna page automatically.
+The value should be a positive integer in seconds, or nil which means
+not to update the page."
+  :group 'w3m-antenna
+  :type '(choice
+	  (const :tag "Not reload." nil)
+	  (integer :tag "Interval second.")))
+
+(defcustom w3m-antenna-sites
+  (unless noninteractive
+    (mapcar (lambda (site)
+	      (list (w3m-antenna-site-key site)
+		    (w3m-antenna-site-title site)
+		    (w3m-antenna-site-class site)))
+	    (w3m-load-list w3m-antenna-file)))
+  "List of WEB sites, watched by `w3m-antenna'."
+  :group 'w3m-antenna
+  :type `(repeat
+	  (group
+	   :indent 7
+	   (w3m-antenna-string :format "URL: %v\n" :size 0
+			       :value-from w3m-antenna-tmp-url)
+	   (w3m-antenna-string :format "Title: %v\n" :size 0
+			       :value-from w3m-antenna-tmp-title)
+	   (choice
+	    :tag "Procedure"
+	    (const :tag "Check either its last modified time or its size" nil)
+	    (const :tag "Check its last modified time only" time)
+	    (const :tag "Check its current date provided by Hyper Nikki System"
+		   hns)
+	    (list :tag "Check RSS"
+		  (function-item :format "" w3m-antenna-check-rss)
+		  (string :format "URL: %v\n" :value ""))
+	    (list :tag "Check the another changelog page"
+		  (function-item :format "" w3m-antenna-check-another-page)
+		  (string :format "URL: %v\n" :value ""))
+	    (list :tag "Check the page linked by the anchor that matches"
+		  (function-item :format "" w3m-antenna-check-anchor)
+		  (regexp :value "")
+		  (integer :value 0))
+	    (cons :tag "Check with a user defined function"
+		  (w3m-antenna-function
+		   :match (lambda (widget value)
+			    (and (functionp value)
+				 (not (memq value
+					    '(w3m-antenna-check-rss
+					      w3m-antenna-check-another-page
+					      w3m-antenna-check-anchor))))))
+		  (repeat :tag "Arguments" sexp))))))
+
+(defcustom w3m-antenna-html-skelton
+  (eval-when-compile
+    (concat "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">\n"
+	    "<html>\n<head>\n<title>Antenna</title>\n%R</head>\n<body>\n"
+	    "<h1>Antenna</h1>\n<p align=\"right\">Checked at %D.</p>\n"
+	    "<h2>Updated</h2>\n<ul>\n%C</ul>\n"
+	    "<h2>Visited</h2>\n<ul>\n%U</ul>\n"
+	    "</body>\n</html>\n"))
+  "HTML skelton of antenna."
+  :group 'w3m-antenna
+  :type 'string)
+
+(defcustom w3m-antenna-make-summary-function
+  'w3m-antenna-make-summary-like-natsumican
+  "Function to make summary of site information."
+  :group 'w3m-antenna
+  :type '(choice
+	  :format "%{%t%}:\n %[Value Menu%] %v"
+	  (function-item :tag "Simple style." w3m-antenna-make-summary)
+	  (function-item :tag "Natsumican style."
+			 w3m-antenna-make-summary-like-natsumican)
+	  (function :format "User function: %v\n" :size 0)))
+
+(defcustom w3m-antenna-sort-changed-sites-function
+  'w3m-antenna-sort-sites-by-time
+  "Function to sort list of changed sites."
+  :group 'w3m-antenna
+  :type '(choice
+	  :format "%{%t%}:\n %[Value Menu%] %v"
+	  (function-item :tag "Sort by last modification time."
+			 w3m-antenna-sort-sites-by-time)
+	  (function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title)
+	  (function-item :tag "Do nothing." identity)
+	  (function :format "User function: %v\n" :size 0)))
+
+(defcustom w3m-antenna-sort-unchanged-sites-function
+  'w3m-antenna-sort-sites-by-time
+  "Function to sort list of unchanged sites."
+  :group 'w3m-antenna
+  :type '(choice
+	  :format "%{%t%}:\n %[Value Menu%] %v"
+	  (function-item :tag "Sort by last modification time."
+			 w3m-antenna-sort-sites-by-time)
+	  (function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title)
+	  (function-item :tag "Do nothing." identity)
+	  (function :format "User function: %v\n" :size 0)))
+
+(defun w3m-antenna-alist ()
+  (let ((alist (w3m-load-list w3m-antenna-file)))
+    (mapcar (lambda (site)
+	      (let ((l (assoc (w3m-antenna-site-key site) alist)))
+		(if l
+		    (progn
+		      (setf (w3m-antenna-site-class l)
+			    (w3m-antenna-site-class site))
+		      l)
+		  (append site (list nil nil nil nil)))))
+	    w3m-antenna-sites)))
+
+(defun w3m-antenna-hns-last-modified (url handler)
+  (w3m-process-do-with-temp-buffer
+      (type (w3m-retrieve (w3m-expand-url "di.cgi" url) nil t nil nil handler))
+    (when type
+      (or (let (start str)
+	    ;; Process a line such as "Tue, 27 Mar 2001 12:43:16 GMT<br>".
+	    (goto-char (point-min))
+	    (and
+	     (search-forward "\nLast-Modified: " nil t)
+	     (setq start (match-end 0))
+	     (search-forward "<br>" nil t)
+	     (setq str (buffer-substring start (match-beginning 0)))
+	     ;; Ignore format such as "2001, 27 03 GMT", which is used
+	     ;; by old HNS.
+	     (not (string-match
+		   " *[0-9][0-9][0-9][0-9], +[0-9][0-9] +[0-9][0-9] +" str))
+	     (w3m-time-parse-string str)))
+	  (progn
+	    ;; Process a line such as "newest day is 2001/03/15".
+	    (goto-char (point-min))
+	    (and
+	     (re-search-forward "\
+^newest day is \\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)$"
+				nil t)
+	     (encode-time 0 0 0
+			  (string-to-number (match-string 3))
+			  (string-to-number (match-string 2))
+			  (string-to-number (match-string 1))
+			  32400)))))))
+
+(defun w3m-antenna-check-hns (site handler)
+  "Check the page served by HNS (Hyper Nikki System) asynchronously."
+  (lexical-let ((site site))
+    (w3m-process-do
+	(time
+	 (w3m-antenna-hns-last-modified (w3m-antenna-site-key site) handler))
+      (if time
+	  (w3m-antenna-site-update site (w3m-antenna-site-key site) time nil)
+	(w3m-antenna-check-page site handler)))))
+
+(defun w3m-antenna-check-rss (site handler url)
+  "Check RSS to detect change of SITE asynchronously.
+In order to use this function, `xml.el' is required."
+  (lexical-let ((url url)
+		(site site))
+    (w3m-process-do-with-temp-buffer
+	(type (w3m-retrieve url nil t nil nil handler))
+      (let (link date dates)
+	(when type
+	  (w3m-decode-buffer url)
+	  (let* ((xml (ignore-errors
+			(xml-parse-region (point-min) (point-max))))
+		 (dc-ns (w3m-rss-get-namespace-prefix
+			 xml "http://purl.org/dc/elements/1.1/"))
+		 (rss-ns (w3m-rss-get-namespace-prefix
+			  xml "http://purl.org/rss/1.0/"))
+		 (channel (car (w3m-rss-find-el
+				(intern (concat rss-ns "channel"))
+				xml)))
+		 (items (w3m-rss-find-el
+			 (intern (concat rss-ns "item"))
+			 xml)))
+	    (setq link (nth 2 (car (w3m-rss-find-el
+				    (intern (concat rss-ns "link"))
+				    channel))))
+	    (setq dates (append
+			 (w3m-rss-find-el
+			  (intern (concat dc-ns "date"))
+			  channel)
+			 (w3m-rss-find-el
+			  (intern (concat dc-ns "date"))
+			  items)
+			 (w3m-rss-find-el 'pubDate channel)
+			 (w3m-rss-find-el 'pubDate items)))
+	    (when dates
+	      ;; Ignore future entries to display site announcements.
+	      (let ((now (current-time)))
+		(let ((low (+ (nth 1 now) 3600))) ; 3600 = clock skew margin
+		  (setq now
+			(if (>= low 65536)
+			    (list (1+ (car now))
+				  (- low 65536)
+				  (nth 2 now))
+			  (list (car now)
+				low
+				(nth 2 now)))))
+		(setq date '(0 0))
+		(dolist (tmp dates)
+		  (setq tmp (w3m-rss-parse-date-string (nth 2 tmp)))
+		  (and (w3m-time-newer-p tmp date)
+		       (w3m-time-newer-p now tmp)
+		       (setq date tmp)))))))
+	(if (and link date)
+	    (w3m-antenna-site-update site link date nil)
+	  (w3m-antenna-check-page site handler))))))
+
+(defun w3m-antenna-check-another-page (site handler url)
+  "Check the another page to detect change of SITE asynchronously.
+This function checks the another page specified by the URL before
+checking the SITE itself.  This function is useful when the SITE's
+owner either maintains the page which describes the change of the
+SITE."
+  (lexical-let ((site site))
+    (w3m-process-do-with-temp-buffer
+	(time (w3m-last-modified url t handler))
+      (if time
+	  (w3m-antenna-site-update site (w3m-antenna-site-key site) time nil)
+	(w3m-antenna-check-page site handler)))))
+
+(defun w3m-antenna-check-anchor (site handler regexp number)
+  "Check the page linked from SITE asynchronously.
+This function checks the page linked by an anchor that matches REGEXP
+from the page that is specified by SITE's key attribute."
+  (lexical-let ((site site)
+		(regexp regexp)
+		(number (or number 0)))
+    (w3m-process-do-with-temp-buffer
+	(type (w3m-retrieve (w3m-antenna-site-key site)
+			    nil nil nil nil handler))
+      (w3m-antenna-check-page site
+			      handler
+			      (when type
+				(w3m-decode-buffer (w3m-antenna-site-key site))
+				(goto-char (point-min))
+				(when (re-search-forward regexp nil t)
+				  (w3m-expand-url
+				   (match-string number)
+				   (w3m-antenna-site-key site))))))))
+
+;; To avoid byte-compile warning.
+(eval-and-compile
+  (autoload 'w3m-filter "w3m-filter"))
+
+(defun w3m-antenna-check-page (site handler &optional url)
+  "Check SITE with the generic procedure.
+It consists of 3 steps:
+\(1\) Check the time when the SITE was last modified with HEAD request.
+\(2\) Check the size of the SITE with HEAD request.
+\(3\) Get the real content of the SITE, and check its size.
+"
+  (lexical-let ((site site)
+		(url (or url
+			 (w3m-antenna-site-url site)
+			 (w3m-antenna-site-key site))))
+    (w3m-process-do
+	(attr (w3m-attributes url t handler))
+      (when attr
+	(if (nth 4 attr)	; Use the value of Last-modified header.
+	    (w3m-antenna-site-update site url (nth 4 attr) (nth 2 attr))
+	  (unless (eq 'time (w3m-antenna-site-class site))
+	    (if (nth 2 attr)	; Use the value of Content-Length header.
+		(w3m-antenna-site-update site url nil (nth 2 attr))
+	      ;; Get the real content of the SITE, and calculate its size.
+	      (w3m-process-do-with-temp-buffer
+		  (type (w3m-retrieve url nil t nil nil handler))
+		(when type
+		  (w3m-decode-buffer url nil type)
+		  (w3m-remove-comments)
+		  (when w3m-use-filter
+		    (w3m-filter url))
+		  (w3m-antenna-site-update site url nil (buffer-size)))))))))))
+
+(defun w3m-antenna-site-update (site url time size)
+  "Update SITE's status information with specified TIME and SIZE."
+  ;; (w3m-antenna-site-size-detected site) keeps the time when SITE's
+  ;; size attribute is checked.
+  (setf (w3m-antenna-site-size-detected site)
+	(when size
+	  (or (when (and url
+			 (w3m-antenna-site-url site)
+			 (string= url (w3m-antenna-site-url site))
+			 (w3m-antenna-site-size site)
+			 (= size (w3m-antenna-site-size site)))
+		(w3m-antenna-site-size-detected site))
+	      (current-time))))
+  (setf (w3m-antenna-site-url site) url)
+  (setf (w3m-antenna-site-last-modified site) time)
+  (setf (w3m-antenna-site-size site) size)
+  site)
+
+(defun w3m-antenna-check-site (site handler)
+  "Check SITE asynchronously.
+If a class attribute of the SITE is a list that consists of a function
+to check SITE and its options, call it.  When a class attribute of the
+SITE is equal to the symbol `hns', call `w3m-antenna-check-hns'.
+Otherwise, call `w3m-antenna-check-page'."
+  (if (and (listp (w3m-antenna-site-class site))
+	   (functionp (car (w3m-antenna-site-class site))))
+      (apply (car (w3m-antenna-site-class site))
+	     site handler (cdr (w3m-antenna-site-class site)))
+    (if (eq 'hns (w3m-antenna-site-class site))
+	(w3m-antenna-check-hns site handler)
+      (w3m-antenna-check-page site
+			      handler
+			      (format-time-string (w3m-antenna-site-key site)
+						  (current-time))))))
+
+(defun w3m-antenna-mapcar (function sequence handler)
+  "Apply FUNCTION to each element of SEQUENCE asynchronously, and make
+a list of the results."
+  (let ((index -1)
+	(table (make-symbol "table"))
+	(buffer (make-symbol "buffer")))
+    (set table (make-vector (length sequence) nil))
+    (set buffer (current-buffer))
+    (dolist (element sequence)
+      (aset (symbol-value table)
+	    (incf index)
+	    (funcall function
+		     element
+		     (cons `(lambda (x)
+			      (aset ,table ,index x)
+			      (w3m-antenna-mapcar-after ,table ,buffer))
+			   handler))))
+    (w3m-antenna-mapcar-after (symbol-value table) (symbol-value buffer))))
+
+(defun w3m-antenna-mapcar-after (result buffer)
+  "Handler function of `w3m-antenna-mapcar'.
+If all asynchronous processes have finished, return a list of the
+results for the further handler functions.  Otherwise, return an
+asynchronous process that has not finished yet."
+  (or (catch 'found-proces
+	(let ((index -1))
+	  (while (< (incf index) (length result))
+	    (when (w3m-process-p (aref result index))
+	      (throw 'found-proces (aref result index))))))
+      (progn
+	(set-buffer buffer)
+	(append result nil))))
+
+(defun w3m-antenna-check-all-sites (&optional handler)
+  "Check all sites specified in `w3m-antenna-sites'."
+  (unless w3m-antenna-alist
+    (setq w3m-antenna-alist (w3m-antenna-alist)))
+  (if (not handler)
+      (w3m-process-with-wait-handler
+	(w3m-antenna-check-all-sites handler))
+    (w3m-process-do
+	(result
+	 (w3m-antenna-mapcar 'w3m-antenna-check-site
+			     w3m-antenna-alist
+			     handler))
+      (prog1 w3m-antenna-alist
+	(w3m-save-list w3m-antenna-file w3m-antenna-alist)
+	(setq w3m-antenna-alist nil)))))
+
+(defun w3m-antenna-make-summary (site)
+  (format "<li><a href=\"%s\">%s</a> %s"
+	  (or (w3m-antenna-site-url site)
+	      (w3m-antenna-site-key site))
+	  (w3m-antenna-site-title site)
+	  (cond
+	   ((w3m-antenna-site-last-modified site)
+	    (current-time-string (w3m-antenna-site-last-modified site)))
+	   ((w3m-antenna-site-size site) "Size")
+	   (t ""))))
+
+(defun w3m-antenna-make-summary-like-natsumican (site)
+  (let ((t1 (w3m-antenna-site-last-modified site))
+	(t2 (w3m-antenna-site-size-detected site)))
+    (format "<li>%20s&nbsp;&nbsp;(%s)&nbsp;&nbsp;<a href=\"%s\">%s</a>"
+	    (if (or t1 t2)
+		(format-time-string "%Y/%m/%d %R" (or t1 t2))
+	      "----/--/-- --:--")
+	    (cond
+	     (t1 "T")
+	     (t2 "S")
+	     (t "?"))
+	    (or (w3m-antenna-site-url site)
+		(w3m-antenna-site-key site))
+	    (w3m-antenna-site-title site))))
+
+(defun w3m-antenna-sort-sites-by-time (sites)
+  (sort sites
+	(lambda (a b)
+	  (w3m-time-newer-p
+	   (or (w3m-antenna-site-last-modified a)
+	       (w3m-antenna-site-size-detected a))
+	   (or (w3m-antenna-site-last-modified b)
+	       (w3m-antenna-site-size-detected b))))))
+
+(defun w3m-antenna-sort-sites-by-title (sites)
+  (sort sites
+	(lambda (a b)
+	  (string< (w3m-antenna-site-title a)
+		   (w3m-antenna-site-title b)))))
+
+(defun w3m-antenna-make-contents (changed-sites unchanged-sites)
+  (insert w3m-antenna-html-skelton)
+  (goto-char (point-min))
+  (while (re-search-forward "%\\(.\\)" nil t)
+    (let ((c (char-after (match-beginning 1))))
+      (cond
+       ((memq c '(?C ?U))
+	(save-restriction
+	  (narrow-to-region (match-beginning 0) (match-end 0))
+	  (delete-region (point-min) (point-max))
+	  (goto-char (point-min))
+	  (dolist (site (if (eq c ?C)
+			    changed-sites
+			  unchanged-sites))
+	    (insert (funcall w3m-antenna-make-summary-function site)
+		    "\n"))
+	  (goto-char (point-max))))
+       ((eq c '?D)
+	(goto-char (match-beginning 0))
+	(delete-region (match-beginning 0) (match-end 0))
+	(insert (let ((time (nth 5 (file-attributes w3m-antenna-file))))
+		  (if time
+		      (current-time-string time)
+		    "(unknown)"))))
+       ((eq c '?R)
+	(save-restriction
+	  (narrow-to-region (match-beginning 0) (match-end 0))
+	  (delete-region (point-min) (point-max))
+	  (when (and w3m-antenna-refresh-interval
+		     (integerp w3m-antenna-refresh-interval)
+		     (< 0 w3m-antenna-refresh-interval))
+	    (insert (format "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"%d\">\n"
+			    w3m-antenna-refresh-interval)))))))))
+
+;;;###autoload
+(defun w3m-about-antenna (url &optional no-decode no-cache
+			      post-data referer handler)
+  (w3m-process-do
+      (alist (if no-cache
+		 (w3m-antenna-check-all-sites handler)
+	       (or w3m-antenna-alist (w3m-antenna-alist))))
+    (let (changed unchanged)
+      (dolist (site alist)
+	(if (w3m-time-newer-p (or (w3m-antenna-site-last-modified site)
+				  (w3m-antenna-site-size-detected site))
+			      (or (w3m-arrived-last-modified
+				   (w3m-antenna-site-url site))
+				  (w3m-arrived-time
+				   (w3m-antenna-site-url site))))
+	    (progn
+	      (w3m-cache-remove (w3m-antenna-site-url site))
+	      (push site changed))
+	  (push site unchanged)))
+      (w3m-antenna-make-contents
+       (funcall w3m-antenna-sort-changed-sites-function (nreverse changed))
+       (funcall w3m-antenna-sort-unchanged-sites-function (nreverse unchanged)))
+      "text/html")))
+
+;;;###autoload
+(defun w3m-antenna (&optional no-cache)
+  "Report changes of WEB sites, which is specified in `w3m-antenna-sites'."
+  (interactive "P")
+  (w3m-goto-url "about://antenna/" no-cache))
+
+(defvar w3m-antenna-tmp-url nil)
+(defvar w3m-antenna-tmp-title nil)
+
+(defun w3m-antenna-add-current-url (&optional arg)
+  "Add link of current page to antenna.
+With prefix, ask new url to add instead of current page."
+  (interactive "P")
+  (w3m-antenna-add (if arg (w3m-input-url) w3m-current-url)
+		   (w3m-encode-specials-string w3m-current-title)))
+
+(defun w3m-antenna-add (url &optional title)
+  "Add URL to antenna.
+Optional argument TITLE is title of link."
+  (setq w3m-antenna-tmp-url url)
+  (setq w3m-antenna-tmp-title title)
+  (customize-variable 'w3m-antenna-sites)
+  ;; dirty...
+  (goto-char (point-max))
+  (re-search-backward "INS")
+  (widget-button-press (point))
+  (re-search-forward "State:\\|\\(\\[State\\]:\\)")
+  (backward-char (if (match-beginning 1) 3 2)))
+
+(defvar w3m-antenna-mode-map
+  (let ((map (make-sparse-keymap)))
+    (substitute-key-definition 'w3m-edit-current-url 'w3m-antenna-edit
+			       map w3m-mode-map)
+    map)
+  "*Keymap for `w3m-antenna-mode'.")
+
+(defvar w3m-antenna-mode nil "Non-nil if w3m antenna mode is enabled.")
+(make-variable-buffer-local 'w3m-antenna-mode)
+(unless (assq 'w3m-antenna-mode minor-mode-alist)
+  (push (list 'w3m-antenna-mode " antenna") minor-mode-alist))
+(unless (assq 'w3m-antenna-mode minor-mode-map-alist)
+  (push (cons 'w3m-antenna-mode w3m-antenna-mode-map) minor-mode-map-alist))
+
+(defun w3m-antenna-mode (&optional arg)
+  "\\<w3m-antenna-mode-map>
+Minor mode to edit antenna.
+
+\\[w3m-antenna-edit]	Customize `w3m-antenna-sites'.
+"
+  (interactive "P")
+  (when (setq w3m-antenna-mode
+	      (if arg
+		  (> (prefix-numeric-value arg) 0)
+		(not w3m-antenna-mode)))
+    (run-hooks 'w3m-antenna-mode-hook)))
+
+(defun w3m-antenna-mode-setter (url)
+  "Activate `w3m-antenna-mode', when visiting page shows antenna."
+  (w3m-antenna-mode (if (string-match "\\`about://antenna/" url)
+			 (progn
+			   (setq default-directory
+				 (file-name-directory w3m-antenna-file))
+			   1)
+		       0)))
+(add-hook 'w3m-display-functions 'w3m-antenna-mode-setter)
+
+(defun w3m-antenna-edit ()
+  "Start customize of `w3m-antenna-sites'."
+  (interactive)
+  (customize-variable 'w3m-antenna-sites))
+
+(provide 'w3m-antenna)
+
+;;; w3m-antenna.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-bookmark.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,591 @@
+;;; w3m-bookmark.el --- Functions to operate bookmark file of w3m
+
+;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Shun-ichi GOTO     <[e-mail]>,
+;;          TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-bookmark.el is the add-on program of emacs-w3m to operate
+;; bookmark file.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+(require 'w3m-util)
+(require 'w3m)
+(require 'easymenu)
+
+(defcustom w3m-bookmark-file
+  (expand-file-name "bookmark.html" w3m-profile-directory)
+  "Bookmark file of w3m."
+  :group 'w3m
+  :type '(file :size 0))
+
+(defcustom w3m-bookmark-file-coding-system 'euc-japan
+  "Coding system for a created bookmark file.
+This option is used when a new bookmark file is created, or when an
+existing bookmark file includes ASCII characters only.  If the coding
+system which is used to encode your using bookmark file is different
+from the value of this option, emacs-w3m does not change the encoding
+of your bookmark file."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-bookmark-default-section
+  nil
+  "Default section to add new entry."
+  :group 'w3m
+  :type '(radio (const :tag "Not specified" nil)
+		(string :format "Default section name: %v\n" :size 0)))
+
+(defcustom w3m-bookmark-mode-hook nil
+  "*Hook run at the end of function `w3m-bookmark-mode'."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-bookmark-menu-open-new-session nil
+  "If non-nil, \"Bookmark\" menu item open new session."
+  :group 'w3m
+  :type 'boolean)
+
+(eval-and-compile
+  (defconst w3m-bookmark-section-delimiter
+    "<!--End of section (do not delete this comment)-->\n"))
+
+(eval-and-compile
+  (defconst w3m-bookmark-section-format
+    (eval-when-compile
+      (concat "<h2>%s</h2>\n<ul>\n"
+	      "<li><a href=\"%s\">%s</a>\n"
+	      w3m-bookmark-section-delimiter
+	      "</ul>\n"))))
+
+(defconst w3m-bookmark-initial-format
+  (eval-when-compile
+    (concat "<html><head><title>Bookmarks</title></head>\n"
+	    "<body>\n<h1>Bookmarks</h1>\n"
+	    w3m-bookmark-section-format
+	    "</body>\n</html>\n")))
+
+(defvar w3m-bookmark-section-history nil)
+(defvar w3m-bookmark-title-history nil)
+
+(defvar w3m-bookmark-buffer-file-name nil
+  "Non-nil means that `w3m-bookmark-file' has been loaded to this buffer.")
+(make-variable-buffer-local 'w3m-bookmark-buffer-file-name)
+
+(defvar w3m-bookmark-mode-map
+  (let ((map (make-sparse-keymap))
+	(table '((kill-line . w3m-bookmark-kill-entry)
+		 (undo . w3m-bookmark-undo))))
+    (dolist (pair table)
+      (substitute-key-definition (car pair) (cdr pair) map global-map))
+    (substitute-key-definition 'w3m-edit-current-url 'w3m-bookmark-edit
+			       map w3m-mode-map)
+    map)
+  "*Keymap for `w3m-bookmark-mode'.")
+
+(defvar w3m-bookmark-mode nil "Non-nil if w3m bookmark mode is enabled.")
+(make-variable-buffer-local 'w3m-bookmark-mode)
+(unless (assq 'w3m-bookmark-mode minor-mode-alist)
+  (push (list 'w3m-bookmark-mode " bookmark") minor-mode-alist))
+(unless (assq 'w3m-bookmark-mode minor-mode-map-alist)
+  (push (cons 'w3m-bookmark-mode w3m-bookmark-mode-map) minor-mode-map-alist))
+
+(defun w3m-bookmark-mode (&optional arg)
+  "\\<w3m-bookmark-mode-map>
+Minor mode to edit bookmark.
+
+\\[w3m-bookmark-kill-entry]	Kill the current entry of this bookmark.
+\\[w3m-bookmark-undo]	Undo some previous changes on this bookmark.
+\\[w3m-bookmark-edit]	Open `w3m-bookmark-file'.
+"
+  (interactive "P")
+  (when (setq w3m-bookmark-mode
+	      (if arg
+		  (> (prefix-numeric-value arg) 0)
+		(not w3m-bookmark-mode)))
+    (run-hooks 'w3m-bookmark-mode-hook)))
+
+(defun w3m-bookmark-mode-setter (url)
+  "Activate `w3m-bookmark-mode', when visiting page shows bookmark."
+  (w3m-bookmark-mode (if (string-match "\\`about://bookmark/" url)
+			 (progn
+			   (setq default-directory
+				 (file-name-directory w3m-bookmark-file))
+			   1)
+		       0)))
+(add-hook 'w3m-display-functions 'w3m-bookmark-mode-setter)
+
+(defun w3m-bookmark-file-modtime ()
+  "Return the modification time of the bookmark file `w3m-bookmark-file'.
+The value is a list of two time values `(HIGH LOW)' if the bookmark
+file exists, otherwise nil."
+  (nth 5 (file-attributes w3m-bookmark-file)))
+
+(defun w3m-bookmark-buffer (&optional no-verify-modtime)
+  "Return the buffer reading `w3m-bookmark-file' current."
+  (let ((buffer (get-file-buffer w3m-bookmark-file)))
+    (if buffer
+	;; When a buffer visiting `w3m-bookmark-file' is found, return
+	;; it instead of a working buffer.  In this case, kill the
+	;; working buffer which was generated in the past.
+	(progn (w3m-kill-buffer " *w3m bookmark*") buffer)
+      ;; Generate a working buffer.
+      (with-current-buffer (w3m-get-buffer-create " *w3m bookmark*")
+	(unless (and w3m-bookmark-buffer-file-name
+		     (or no-verify-modtime
+			 (equal (w3m-visited-file-modtime)
+				(w3m-bookmark-file-modtime))))
+	  (when (file-readable-p w3m-bookmark-file)
+	    (buffer-disable-undo)
+	    (erase-buffer)
+	    (let ((coding-system-for-read 'binary))
+	      (insert-file-contents w3m-bookmark-file))
+	    (w3m-decode-buffer
+	     (w3m-expand-file-name-as-url w3m-bookmark-file))
+	    (set-buffer-file-coding-system
+	     (if (memq w3m-current-coding-system
+		       '(undecided undecided-dos undecided-mac undecided-unix))
+		 w3m-bookmark-file-coding-system
+	       w3m-current-coding-system))
+	    (set-buffer-modified-p nil))
+	  (setq w3m-bookmark-buffer-file-name w3m-bookmark-file)
+	  (set-visited-file-modtime (or (w3m-bookmark-file-modtime)
+					;; No bookmark file.
+					(with-temp-buffer
+					  ;; 0 in Emacs; (0 . 0) in XEmacs
+					  (visited-file-modtime))))
+	  (buffer-enable-undo))
+	(current-buffer)))))
+
+(defun w3m-bookmark-verify-modtime ()
+  (unless (equal (w3m-visited-file-modtime)
+		 (w3m-bookmark-file-modtime))
+    (if (buffer-file-name)
+	(ask-user-about-supersession-threat w3m-bookmark-file)
+      (let ((modified (buffer-modified-p))
+	    (name (buffer-name)))
+	(unwind-protect
+	    (progn
+	      (set-visited-file-name w3m-bookmark-file)
+	      (ask-user-about-supersession-threat w3m-bookmark-file))
+	  (set-visited-file-name nil)
+	  (rename-buffer name)
+	  (set-buffer-modified-p modified))))))
+
+(defun w3m-bookmark-sections ()
+  "Return collection of registered sections."
+  (let (sections)
+    (with-current-buffer (w3m-bookmark-buffer)
+      (goto-char (point-min))
+      (while (search-forward "<h2>" nil t)
+	(push (cons (buffer-substring-no-properties
+		     (point)
+		     (if (search-forward "</h2>" nil t)
+			 (match-beginning 0)
+		       (point-at-eol)))
+		    nil)
+	      sections)))
+    (nreverse sections)))
+
+(defun w3m-bookmark-save-buffer ()
+  "Save this current buffer to `w3m-bookmark-file'."
+  (cond
+   ((buffer-file-name)
+    (basic-save-buffer))
+   ((buffer-modified-p)
+    (let ((backup-info (find-backup-file-name w3m-bookmark-file))
+	  (modes (when (file-exists-p w3m-bookmark-file)
+		   (file-modes w3m-bookmark-file))))
+      (when (and modes ; means that `w3m-bookmark-file' exists.
+		 make-backup-files
+		 (funcall backup-enable-predicate w3m-bookmark-file))
+	(rename-file w3m-bookmark-file (car backup-info) t))
+      (write-region (point-min) (point-max) w3m-bookmark-file)
+      (when modes
+	(set-file-modes w3m-bookmark-file modes))
+      (set-visited-file-modtime (w3m-bookmark-file-modtime))
+      (set-buffer-modified-p nil)
+      (dolist (file (cdr backup-info))
+	(condition-case ()
+	    (delete-file file)
+	  (file-error nil)))))))
+
+(defun w3m-bookmark-safe-string (string format)
+  (labels ((filter (s c) (decode-coding-string (encode-coding-string s c) c)))
+    (if (let ((encoding (w3m-static-when (featurep 'mule)
+			  buffer-file-coding-system)))
+	  (or (string= string (filter string encoding))
+	      (when w3m-use-mule-ucs
+		(string= (setq string
+			       (filter string
+				       (if w3m-accept-japanese-characters
+					   'w3m-euc-japan
+					 'w3m-iso-latin-1)))
+			 (filter string encoding)))))
+	string
+      (error format string))))
+
+(defun w3m-bookmark-write-file (url title section)
+  "Make new bookmark with specified spec, and save it."
+  (with-current-buffer (w3m-bookmark-buffer)
+    (setq title (w3m-bookmark-safe-string
+		 title
+		 "Specified title includes unsafe character(s): %s")
+	  section (w3m-bookmark-safe-string
+		   section
+		   "Specified section includes unsafe character(s): %s"))
+    (if (zerop (buffer-size))
+	;; New bookmark file.
+	(progn
+	  (insert (format w3m-bookmark-initial-format section url title))
+	  (set-buffer-file-coding-system w3m-bookmark-file-coding-system))
+      (goto-char (point-min))
+      (if (search-forward (format "<h2>%s</h2>" section) nil t)
+	  (progn
+	    (unless (search-forward w3m-bookmark-section-delimiter nil t)
+	      (error "Can't find section delimiter: %s" section))
+	    (goto-char (match-beginning 0))
+	    (insert (format "<li><a href=\"%s\">%s</a>\n" url title)))
+	;; New section.
+	(unless (search-forward "</body>\n" nil t)
+	  (error "%s" "Can't find terminator of bookmark"))
+	(goto-char (match-beginning 0))
+	(insert (format w3m-bookmark-section-format
+			section url title))))
+    (w3m-bookmark-save-buffer)))
+
+(defun w3m-bookmark-add (url &optional title)
+  "Add URL to bookmark.
+Optional argument TITLE is title of link."
+  (let ((section (completing-read
+		  (if w3m-bookmark-default-section
+		      (format "Section (default %s): "
+			      w3m-bookmark-default-section)
+		    "Section: ")
+		  (w3m-bookmark-sections) nil nil nil
+		  'w3m-bookmark-section-history)))
+    (and (string= section "")
+	 (setq section w3m-bookmark-default-section))
+    (when (or (not section)
+	      (string-match section "^ *$"))
+      (error "%s" "You must specify section name"))
+    (setq title (read-string "Title: " title 'w3m-bookmark-title-history))
+    (when (or (not title)
+	      (string-match title "^ *$"))
+      (error "%s" "You must specify title"))
+    (w3m-bookmark-write-file url
+			     (w3m-encode-specials-string title)
+			     (w3m-encode-specials-string section))))
+
+;;;###autoload
+(defun w3m-bookmark-add-this-url ()
+  "Add link under cursor to bookmark."
+  (interactive)
+  (if (null (w3m-anchor))
+      (message "No anchor")		; nothing to do
+    (let ((url (w3m-anchor))
+	  (title (buffer-substring-no-properties
+		  (previous-single-property-change (1+ (point))
+						   'w3m-href-anchor)
+		  (next-single-property-change (point) 'w3m-href-anchor))))
+      (w3m-bookmark-add url title))
+    (message "Added")))
+
+;;;###autoload
+(defun w3m-bookmark-add-current-url (&optional arg)
+  "Add a url of the current page to the bookmark.
+With prefix, ask for a new url instead of the present one."
+  (interactive "P")
+  (w3m-bookmark-add (if arg (w3m-input-url) w3m-current-url)
+		    w3m-current-title)
+  (message "Added"))
+
+;;;###autoload
+(defun w3m-bookmark-add-all-urls ()
+  "Add urls of all pages being visited to the bookmark."
+  (interactive)
+  (let ((buffers (w3m-list-buffers)))
+    (if (and w3m-use-tab
+	     (>= (length buffers) 2))
+	(while buffers
+	  (switch-to-buffer (pop buffers))
+	  (condition-case nil
+	      (w3m-bookmark-add-current-url)
+	    (quit)))
+      (message
+       "Use the `%s' command instead"
+       (key-description (car (where-is-internal 'w3m-bookmark-add-current-url
+						w3m-mode-map)))))))
+
+;;;###autoload
+(defun w3m-bookmark-add-current-url-group ()
+  "Add link of the group of current urls to the bookmark."
+  (interactive)
+  (w3m-bookmark-add
+   (concat "group:"
+	   (mapconcat
+	    'w3m-url-encode-string
+	    (mapcar (lambda (buffer)
+		      (with-current-buffer buffer w3m-current-url))
+		    (w3m-list-buffers))
+	    "&")))
+  (message "Added as URL group"))
+
+;;;###autoload
+(defun w3m-bookmark-view (&optional reload)
+  "Display the bookmark."
+  (interactive "P")
+  (if (file-exists-p w3m-bookmark-file)
+      (progn
+	;; Store the current position in the history structure.
+	(w3m-history-store-position)
+	(w3m-goto-url "about://bookmark/" reload))
+    (message "No bookmark file is available")))
+
+;;;###autoload
+(defun w3m-bookmark-view-new-session (&optional reload)
+  "Display the bookmark on a new session."
+  (interactive "P")
+  (if (not (eq major-mode 'w3m-mode))
+      (message "This command can be used in w3m mode only")
+    (if (file-exists-p w3m-bookmark-file)
+	(w3m-view-this-url-1 "about://bookmark/" reload 'new-session)
+      (message "No bookmark file is available"))))
+
+;;;###autoload
+(defun w3m-about-bookmark (&rest args)
+  (insert-buffer-substring (w3m-bookmark-buffer))
+  (let ((ident) (i 0) (j 0))
+    (goto-char (point-min))
+    (while (search-forward (setq ident (format "w3mbk%d." i)) nil t)
+      (incf i))
+    (setq i 0)
+    (goto-char (point-min))
+    (while (re-search-forward "\n<\\(?:h2\\|\\(li\\)\\)>" nil t)
+      (forward-char -1)
+      (insert (if (match-beginning 1)
+		  (format " id=\"%s%d.%d\"" ident i (incf j))
+		(format " id=\"%s%d\"" ident (incf i))))))
+  "text/html")
+
+(defun w3m-bookmark-current-number ()
+  "Return the ordinal number of the current bookmark entry."
+  (let ((x (car (get-text-property (point-at-eol) 'w3m-name-anchor))))
+    (and x
+	 (string-match "\\`w3mbk[0-9]+\\.[0-9]+\\.\\([0-9]+\\)\\'" x)
+	 (string-to-number (match-string 1 x)))))
+
+(defun w3m-bookmark-kill-entry (num)
+  "Kill the bookmark entry of the current line.
+With prefix argument, kill that many entries from point."
+  (interactive "p")
+  (let ((entries (w3m-bookmark-current-number)))
+    (when entries
+      (setq entries (list entries))
+      (while (> (decf num) 0)
+	(push (1+ (car entries)) entries))
+      (condition-case nil
+	  (w3m-bookmark-kill-entries entries)
+	(file-supersession nil))
+      (w3m-bookmark-view t))))
+
+(defun w3m-bookmark-kill-entries (entries)
+  (with-current-buffer (w3m-bookmark-buffer t)
+    (w3m-bookmark-verify-modtime)
+    (goto-char (point-min))
+    (let ((i 0))
+      (while (search-forward "\n<li>" nil t)
+	(when (memq (incf i) entries)
+	  (let ((beg (point-at-bol))
+		(end (progn
+		       (search-forward w3m-bookmark-section-delimiter)
+		       (match-beginning 0))))
+	    (delete-region (goto-char beg)
+			   (if (search-forward "\n<li>" end t)
+			       (point-at-bol)
+			     end))
+	    (goto-char (1- beg))))))
+    (w3m-bookmark-save-buffer)))
+
+(defun w3m-bookmark-undo (&optional arg)
+  "Undo some previous changes on bookmark."
+  (interactive "p")
+  (condition-case nil
+      (with-current-buffer (w3m-bookmark-buffer t)
+	(w3m-bookmark-verify-modtime)
+	(undo arg)
+	(w3m-bookmark-save-buffer))
+    (file-supersession nil))
+  (w3m-bookmark-view t))
+
+(defun w3m-bookmark-edit ()
+  "Edit the bookmark file."
+  (interactive)
+  (w3m-edit-url (w3m-expand-file-name-as-url w3m-bookmark-file)))
+
+;; Bookmark menu
+(defvar w3m-bookmark-menu-items
+  (let ((etsu (when w3m-use-japanese-menu
+		(decode-coding-string "\e$B1\\\e(B" 'iso-2022-jp)))) ;; $B1\(B
+    `(([,(w3m-make-menu-item (concat "$B%V%C%/%^!<%/$N(B" etsu "$BMw(B") "View Bookmark")
+	w3m-bookmark-view t]
+       [,(w3m-make-menu-item (concat "$B?7%;%C%7%g%s$G%V%C%/%^!<%/$N(B" etsu "$BMw(B")
+			     "View Bookmark in a New Session")
+	w3m-bookmark-view-new-session t]
+       [,(w3m-make-menu-item "$B%V%C%/%^!<%/$NJT=8(B" "Edit Bookmark")
+	w3m-bookmark-edit t]
+       "----"
+       [,(w3m-make-menu-item "$B$3$N%Z!<%8$r%V%C%/%^!<%/(B" "Add Current URL to Bookmark")
+	w3m-bookmark-add-current-url t]
+       [,(w3m-make-menu-item "$B$9$Y$F$N(B URL $B$r%V%C%/%^!<%/(B" "Add These URLs to Bookmark")
+	w3m-bookmark-add-current-url-group t]
+       [,(w3m-make-menu-item "$B$3$N(B URL $B$r%V%C%/%^!<%/(B" "Add This URL to Bookmark")
+	w3m-bookmark-add-this-url (w3m-anchor)])
+      .
+      ([,(w3m-make-menu-item "$B$3$N%(%s%H%j$r>C5n(B" "Kill Current Entry")
+	w3m-bookmark-kill-entry
+	(text-property-not-all (point-at-bol) (point-at-eol)
+			       'w3m-href-anchor nil)]
+       [,(w3m-make-menu-item "$B$b$H$KLa$9(B" "Undo")
+	w3m-bookmark-undo t]
+       [,(w3m-make-menu-item "$B%V%C%/%^!<%/$NJT=8(B" "Edit Bookmark")
+	w3m-bookmark-edit t])))
+  "*List of the bookmark menu items.
+The car is used if `w3m-bookmark-mode' is nil, otherwise the cdr is used.")
+
+;;;###autoload
+(defun w3m-setup-bookmark-menu ()
+  "Setup w3m bookmark items in menubar."
+  (w3m-static-if (featurep 'xemacs)
+      (unless (car (find-menu-item current-menubar '("Bookmark")))
+	(easy-menu-define w3m-bookmark-menu w3m-mode-map
+	  "" '("Bookmark" ["(empty)" ignore nil]))
+	(easy-menu-add w3m-bookmark-menu)
+	(add-hook 'activate-menubar-hook 'w3m-bookmark-menubar-update))
+    (unless (lookup-key w3m-mode-map [menu-bar Bookmark])
+      (easy-menu-define w3m-bookmark-menu w3m-mode-map "" '("Bookmark"))
+      (easy-menu-add w3m-bookmark-menu)
+      (add-hook 'menu-bar-update-hook 'w3m-bookmark-menubar-update))))
+
+(defun w3m-bookmark-menubar-update ()
+  "Update w3m bookmark menubar."
+  (when (and (eq major-mode 'w3m-mode)
+	     (w3m-static-if (featurep 'xemacs)
+		 (frame-property (selected-frame) 'menubar-visible-p)
+	       menu-bar-mode))
+    (let ((items (if w3m-bookmark-mode
+		     (cdr w3m-bookmark-menu-items)
+		   (car w3m-bookmark-menu-items)))
+	  (pages (w3m-bookmark-make-menu-items)))
+      (easy-menu-define w3m-bookmark-menu w3m-mode-map
+	"The menu kepmap for the emacs-w3m bookmark."
+	(cons "Bookmark" (if pages
+			     (append items '("----") pages)
+			   items)))
+      (w3m-static-when (featurep 'xemacs)
+	(when (setq items (car (find-menu-item current-menubar '("Bookmark"))))
+	  (setcdr items (cdr w3m-bookmark-menu))
+	  (set-buffer-menubar current-menubar))))))
+
+(defun w3m-bookmark-iterator ()
+  "Iteration bookmark groups/entries.
+Format as (list (\"Group name\" . (\"Entry URL\" . \"Entry name\")* )* )."
+  (let ((entries nil))
+    (with-current-buffer (w3m-bookmark-buffer)
+      (goto-char (point-min))
+      (let (group entry beg end)
+	(while (re-search-forward "<h2>\\([^<]+\\)</h2>" nil t)
+	  (setq group (match-string-no-properties 1))
+	  (setq beg (match-beginning 0))
+	  (setq end (re-search-forward "</ul>" nil t))
+	  (save-excursion
+	    (let (urls)
+	      (narrow-to-region beg end)
+	      (goto-char (point-min))
+	      (while (re-search-forward
+		      "<a href=\"\\([^\"]+\\)\">\\([^<]+\\)</a>"
+		      nil t)
+		(push (cons (match-string-no-properties 1)
+			    (match-string-no-properties 2))
+		      urls))
+	      (setq entry (cons group (nreverse urls)))
+	      (push entry entries)
+	      (widen)))
+	  (goto-char (match-end 0))))
+      (nreverse entries))))
+
+(defun w3m-bookmark-menu-open-item (url)
+  "Open URL at current/new buffer"
+  (if w3m-bookmark-menu-open-new-session
+      (w3m-goto-url-new-session url)
+    (w3m-goto-url url)))
+
+(defvar w3m-bookmark-menu-items-pre nil)
+(defvar w3m-bookmark-menu-items-time nil)
+
+(defvar w3m-bookmark-make-item-xmas
+  (and (equal "Japanese" w3m-language) (featurep 'xemacs)))
+
+(defun w3m-bookmark-make-item (item)
+  (if w3m-bookmark-make-item-xmas
+      (concat item "%_ ")
+    item))
+
+(defun w3m-bookmark-make-menu-items (&optional nomenu)
+  "Create w3m bookmark menu items."
+  (when (not nomenu)
+    (if (and w3m-bookmark-menu-items-pre
+	     w3m-bookmark-menu-items-time
+	     (equal w3m-bookmark-menu-items-time
+		    (w3m-bookmark-file-modtime)))
+	w3m-bookmark-menu-items-pre
+      (setq w3m-bookmark-menu-items-time (w3m-bookmark-file-modtime))
+      (let ((entries (when (file-exists-p w3m-bookmark-file)
+		       (w3m-bookmark-iterator))))
+	(setq w3m-bookmark-menu-items-pre
+	      (and entries
+		   (mapcar
+		    (lambda (entry)
+		      (let ((group (car entry))
+			    (items (cdr entry)))
+			(cons (w3m-bookmark-make-item group)
+			      (and items
+				   (mapcar
+				    (lambda (item)
+				      (vector
+				       (w3m-bookmark-make-item (cdr item))
+				       `(w3m-bookmark-menu-open-item
+					 ,(car item))))
+				    items)))))
+		    entries)))))))
+
+(provide 'w3m-bookmark)
+
+;;; w3m-bookmark.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-bug.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,192 @@
+;;; w3m-bug.el --- command to report emacs-w3m bugs -*- coding: euc-japan -*-
+
+;; Copyright (C) 2002, 2003, 2005, 2007, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: Katsumi Yamaoka <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; `M-x report-emacs-w3m-bug' starts an email note to the emacs-w3m
+;; developers describing a problem.
+
+;;; Code:
+
+(defvar report-emacs-w3m-bug-address "[e-mail]"
+  "*Address of mailing list for emacs-w3m bugs.")
+
+(defvar report-emacs-w3m-bug-no-explanations nil
+  "*If non-nil, suppress the explanations given for the sake of novice users.")
+
+(defconst report-emacs-w3m-bug-system-informations
+  (eval
+   '`(emacs-w3m-version
+      emacs-version
+      ,@(if (or (boundp 'mule-version)
+		(functionp 'mule-version))
+	    '(mule-version))
+      ,@(cond ((featurep 'xemacs)
+	       '((featurep 'mule)
+		 (featurep 'file-coding)))
+	      ((or (boundp 'Meadow-version)
+		   (functionp 'Meadow-version))
+	       '(Meadow-version)))
+      system-type
+      (featurep 'gtk)
+      w3m-version
+      w3m-type
+      w3m-compile-options
+      w3m-language
+      w3m-command-arguments
+      w3m-command-arguments-alist
+      w3m-command-environment
+      w3m-input-coding-system
+      w3m-output-coding-system
+      w3m-use-mule-ucs))
+  "List of the system informations.  Users should NEVER modify the value."
+  ;; For the developers:
+  ;; It is possible that it would be a security hole.  To prevent those
+  ;; rogue attacks, this constant should be reloaded for each time to
+  ;; send a bug report.  Each element can be the symbol of a variable,
+  ;; a Lisp function with no argument or any Lisp form to be evaluated.
+  )
+
+(eval-when-compile
+  (require 'cl))
+
+(defun report-emacs-w3m-bug (topic &optional buffer)
+  "Report a bug in emacs-w3m.
+Prompts for bug subject.  Leaves you in a mail buffer."
+  (interactive
+   (let* ((buffer (current-buffer))
+	  (buffers (cons buffer (delq buffer (buffer-list))))
+	  (inhibit-point-motion-hooks t)
+	  keymap)
+     (save-current-buffer
+       (while buffers
+	 (setq buffer (car buffers)
+	       buffers (cdr buffers))
+	 (set-buffer buffer)
+	 (save-restriction
+	   (widen)
+	   (if (or (eq major-mode 'w3m-mode)
+		   (and (keymapp (setq keymap
+				       (or (get-text-property
+					    (max (1- (point-max)) (point-min))
+					    'keymap)
+					   (get-text-property
+					    (max (1- (point-max)) (point-min))
+					    'local-map)))))
+		   (where-is-internal 'w3m-print-current-url keymap))
+	       (setq buffers nil)
+	     (setq buffer nil)))))
+     (list (read-string "Bug Subject: ") buffer)))
+  (let (after-load-alist)
+    ;; See the comment for `report-emacs-w3m-bug-system-informations'.
+    (load "w3m-bug"))
+  (compose-mail report-emacs-w3m-bug-address topic nil 'new)
+  (goto-char (point-min))
+  (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$"))
+  (forward-line 1)
+  (unless buffer
+    (insert
+     (if (and (boundp 'w3m-language)
+	      (equal (symbol-value 'w3m-language) "Japanese"))
+	 "¤â¤·²Äǽ¤Ê¤é emacs-w3m ¤òµ¯Æ°¤·¤Æ¤«¤é¤ä¤êľ¤·¤Æ¤¯¤À¤µ¤¤¡£\n"
+       "It is if possible, please redo after starting emacs-w3m.\n")
+     "\
+================================================================\n"))
+  (unless report-emacs-w3m-bug-no-explanations
+    ;; Insert warnings for the novice users.
+    (if (and (boundp 'w3m-language)
+	     (equal (symbol-value 'w3m-language) "Japanese"))
+	(progn
+	  (insert "¤³¤Î¥Ð¥°¥ê¥Ý¡¼¥È¤Ï emacs-w3m ³«È¯¥Á¡¼¥à¤ËÁ÷¤é¤ì¤Þ¤¹¡£\n")
+	  (put-text-property (point)
+			     (progn
+			       (insert "\
+¤¢¤Ê¤¿¤Î¥í¡¼¥«¥ë¥µ¥¤¥È¤Î´ÉÍý¼Ô°¸¤Æ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó!!")
+			       (point))
+			     'face 'underline)
+	  (insert "\n\n¤Ç¤­¤ë¤À¤±´Ê·é¤Ë½Ò¤Ù¤Æ¤¯¤À¤µ¤¤:
+\t- ²¿¤¬µ¯¤­¤Þ¤·¤¿¤«?
+\t- ËÜÅö¤Ï¤É¤¦¤Ê¤ë¤Ù¤­¤À¤Ã¤¿¤È»×¤¤¤Þ¤¹¤«?
+\t- ¤½¤Î¤È¤­²¿¤ò¤·¤Þ¤·¤¿¤«? (Àµ³Î¤Ë)
+
+¤â¤· Lisp ¤Î¥Ð¥Ã¥¯¥È¥ì¡¼¥¹¤¬¤¢¤ì¤ÐźÉÕ¤·¤Æ¤¯¤À¤µ¤¤¡£\n"))
+      (insert "\
+This bug report will be sent to the emacs-w3m development team,\n")
+      (put-text-property (point)
+			 (progn
+			   (insert " not to your local site managers!!")
+			   (point))
+			 'face 'italic)
+      (insert "\nPlease write in ")
+      (put-text-property (point) (progn
+				   (insert "simple")
+				   (point))
+			 'face 'italic)
+      (insert " English, because the emacs-w3m developers
+aren't good at English reading. ;-)
+
+Please describe as succinctly as possible:
+\t- What happened.
+\t- What you thought should have happened.
+\t- Precisely what you were doing at the time.
+
+Please also include any Lisp back-traces that you may have.\n"))
+    (insert "\
+================================================================\n"))
+  (insert "Dear Bug Team!\n\n")
+  (let ((user-point (point))
+	(print-escape-newlines t)
+	(print-quoted t)
+	infos print-length print-level)
+    (insert "\n
+================================================================
+
+System Info to help track down your bug:
+---------------------------------------\n")
+    (with-current-buffer (or buffer (current-buffer))
+      (dolist (info report-emacs-w3m-bug-system-informations)
+	(push (prin1-to-string info) infos)
+	(push "\n => " infos)
+	(push (cond ((functionp info)
+		     (prin1-to-string (condition-case code
+					  (funcall info)
+					(error
+					 code))))
+		    ((symbolp info)
+		     (prin1-to-string (condition-case code
+					  (symbol-value info)
+					(error
+					 code))))
+		    ((consp info)
+		     (prin1-to-string (condition-case code
+					  (eval info)
+					(error
+					 code)))))
+	      infos)
+	(push "\n" infos)))
+    (apply 'insert (nreverse infos))
+    (goto-char user-point)))
+
+;;; w3m-bug.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-ccl.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,202 @@
+;;; w3m-ccl.el --- CCL programs to process Unicode and internal characters.
+
+;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2007
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>,
+;;          ARISAWA Akihiro <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file contains CCL programs to process Unicode and internal
+;; characters of w3m.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+;;; MEMO:
+
+;; It is possible to support multi scripts without Mule-UCS.  For more
+;; detail, see [emacs-w3m:01950]
+
+;;; Code:
+
+(eval-and-compile
+  (cond
+   ((featurep 'xemacs)
+    (require 'pccl))
+   (t
+    (require 'ccl))))
+
+;;; CCL programs:
+
+(eval-when-compile
+  (when (and (not (fboundp 'charset-id))
+	     (fboundp 'charset-id-internal))
+    (defmacro charset-id (charset)
+      "Return charset identification number of CHARSET."
+      `(charset-id-internal ,charset))))
+
+(eval-and-compile
+  (defconst w3m-internal-characters-alist
+    '((?\x90 . ? )			; ANSP (use for empty anchor)
+      (?\x91 . ? )			; IMSP (blank around image)
+      (?\xa0 . ? ))			; NBSP (non breakble space)
+    "Alist of internal characters v.s. ASCII characters.")
+
+  (defun w3m-ccl-write-repeat (charset &optional r0 r1)
+    (unless r0
+      (setq r0 'r0))
+    (unless r1
+      (setq r1 (if (eq r0 'r1) 'r0 'r1)))
+    (let ((unibyte (memq charset '(latin-iso8859-1 katakana-jisx0201))))
+      (if (fboundp 'ccl-compile-write-multibyte-character)
+	  `((,r1 &= ?\x7f)
+	    ,@(unless unibyte
+		`((,r1 |= ((,r0 & ?\x7f) << 7))))
+	    (,r0 = ,(charset-id charset))
+	    (write-multibyte-character ,r0 ,r1)
+	    (repeat))
+	`((write ,(charset-id charset))
+	  ,@(unless unibyte
+	      `((write ,r0)))
+	  (write-repeat ,r1)))))
+
+  (defconst w3m-ccl-write-euc-japan-character
+    (when (fboundp 'ccl-compile-read-multibyte-character)
+      `((read-multibyte-character r1 r0)
+	(if (r1 == ,(charset-id 'ascii))
+	    ;; (1) ASCII characters
+	    (write-repeat r0))
+	(if (r1 == ,(charset-id 'latin-jisx0201))
+	    ;; (2) Latin Part of Japanese JISX0201.1976
+	    ;;     Convert to ASCII
+	    (write-repeat r0))
+	(r2 = (r1 == ,(charset-id 'japanese-jisx0208-1978)))
+	(if ((r1 == ,(charset-id 'japanese-jisx0208)) | r2)
+	    ;; (3) Characters of Japanese JISX0208.
+	    ((r1 = ((r0 & 127) | 128))
+	     (r0 = ((r0 >> 7) | 128))
+	     (write r0)
+	     (write-repeat r1)))
+	(if (r1 == ,(charset-id 'katakana-jisx0201))
+	    ;; (4) Katakana Part of Japanese JISX0201.1976
+	    ((r0 |= 128)
+	     (write ?\x8e)
+	     (write-repeat r0)))))
+    "CCL program to write characters represented in `euc-japan'.")
+
+  (defconst w3m-ccl-write-iso-latin-1-character
+    (when (fboundp 'ccl-compile-read-multibyte-character)
+      `((read-multibyte-character r1 r0)
+	(if (r1 == ,(charset-id 'ascii))
+	    ;; (1) ASCII characters
+	    (write-repeat r0))
+	(if (r1 == ,(charset-id 'latin-jisx0201))
+	    ;; (2) Latin Part of Japanese JISX0201.1976
+	    ;;     Convert to ASCII
+	    (write-repeat r0))
+	(if (r1 == ,(charset-id 'latin-iso8859-1))
+	    ;; (3) Latin-1 characters
+	    ((r0 |= ?\x80)
+	     (write-repeat r0)))))
+    "CCL program to write characters represented in `iso-latin-1'.")
+
+  (defconst w3m-ccl-generate-ncr
+    `((r1 = 0)
+      (r2 = 0)
+      (loop
+       (r1 = (r1 << 4))
+       (r1 |= (r0 & 15))
+       (r0 = (r0 >> 4))
+       (if (r0 == 0)
+	   (break)
+	 ((r2 += 1)
+	  (repeat))))
+      (write "&#x")
+      (loop
+       (branch (r1 & 15)
+	       ,@(mapcar
+		  (lambda (i)
+		    (list 'write (string-to-char (format "%x" i))))
+		  '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15)))
+       (r1 = (r1 >> 4))
+       (if (r2 == 0)
+	   ((write ?\;)
+	    (break))
+	 ((r2 -= 1)
+	  (repeat))))
+      (repeat))
+    "CCL program to generate a string which represents a UCS codepoint
+in NCR (Numeric Character References)."))
+
+(define-ccl-program w3m-euc-japan-decoder
+  `(2
+    (loop
+     (read r0)
+     ;; Process normal EUC characters.
+     (if (r0 < ?\x80)
+	 (write-repeat r0))
+     (if (r0 > ?\xa0)
+	 ((read r1)
+	  ,@(w3m-ccl-write-repeat 'japanese-jisx0208)))
+     (if (r0 == ?\x8e)
+	 ((read r1)
+	  ,@(w3m-ccl-write-repeat 'katakana-jisx0201)))
+     (if (r0 == ?\x8f)
+	 ((read r0)
+	  (read r1)
+	  ,@(w3m-ccl-write-repeat 'japanese-jisx0212)))
+     ;; Process internal characters used in w3m.
+     ,@(mapcar (lambda (pair)
+		 `(if (r0 == ,(car pair))
+		      (write-repeat ,(cdr pair))))
+	       w3m-internal-characters-alist)
+     (write-repeat r0))))
+
+(unless (get 'w3m-euc-japan-encoder 'ccl-program-idx)
+  (define-ccl-program w3m-euc-japan-encoder
+    `(1 (loop (read r0) (write-repeat r0)))))
+
+(define-ccl-program w3m-iso-latin-1-decoder
+  `(2
+    (loop
+     (read r0)
+     ;; Process ASCII characters.
+     (if (r0 < ?\x80)
+	 (write-repeat r0))
+     ;; Process Latin-1 characters.
+     (if (r0 > ?\xa0)
+	 (,@(w3m-ccl-write-repeat 'latin-iso8859-1 'r1)))
+     ;; Process internal characters used in w3m.
+     ,@(mapcar (lambda (pair)
+		 `(if (r0 == ,(car pair))
+		      (write-repeat ,(cdr pair))))
+	       w3m-internal-characters-alist)
+     (write-repeat r0))))
+
+(unless (get 'w3m-iso-latin-1-encoder 'ccl-program-idx)
+  (define-ccl-program w3m-iso-latin-1-encoder
+    `(1 (loop (read r0) (write-repeat r0)))))
+
+
+(provide 'w3m-ccl)
+
+;;; w3m-ccl.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-cookie.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,578 @@
+;;; w3m-cookie.el --- Functions for cookie processing
+
+;; Copyright (C) 2002, 2003, 2005, 2006, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Teranishi Yuuichi  <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file contains the functions for cookies.  For more detail
+;; about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+;; Reference for version 0 cookie:
+;;	http://www.netscape.com/newsref/std/cookie_spec.html
+;; Reference for version 1 cookie:
+;;	http://www.ietf.org/rfc/rfc2965.txt
+;;
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m-util)
+(require 'w3m)
+
+(defvar w3m-cookies nil
+  "A list of cookie elements.
+Currently only browser local cookies are stored.")
+
+(defconst w3m-cookie-two-dot-domains-regexp
+  (concat "\\.\\(?:"
+	  (mapconcat 'identity (list "com" "edu" "net" "org" "gov" "mil" "int")
+		     "\\|")
+	  "\\)$")
+  "A regular expression of top-level domains that only require two matching
+'.'s in the domain name in order to set a cookie.")
+
+(defcustom w3m-cookie-accept-domains nil
+  "A list of trusted domain name string."
+  :group 'w3m
+  :type '(repeat (string :format "Domain name: %v\n" :size 0)))
+
+(defcustom w3m-cookie-reject-domains nil
+  "A list of untrusted domain name string."
+  :group 'w3m
+  :type '(repeat (string :format "Domain name: %v\n" :size 0)))
+
+(defcustom w3m-cookie-accept-bad-cookies nil
+  "If nil, don't accept bad cookies.
+If t, accept bad cookies.
+If ask, ask user whether accept bad cookies or not."
+  :group 'w3m
+  :type '(radio
+	  (const :tag "Don't accept bad cookies" nil)
+	  (const :tag "Ask accepting bad cookies" ask)
+	  (const :tag "Always accept bad cookies" t)))
+
+(defcustom w3m-cookie-save-cookies t
+  "*Non-nil means save cookies when emacs-w3m cookie system shutdown."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-cookie-file
+  (expand-file-name ".cookie" w3m-profile-directory)
+  "File in which cookies are kept."
+  :group 'w3m
+  :type '(file :size 0))
+
+;;; Cookie accessor.
+(defmacro w3m-cookie-url (cookie)
+  `(aref ,cookie 0))
+(defmacro w3m-cookie-domain (cookie)
+  `(aref ,cookie 1))
+(defmacro w3m-cookie-secure (cookie)
+  `(aref ,cookie 2))
+(defmacro w3m-cookie-name (cookie)
+  `(aref ,cookie 3))
+(defmacro w3m-cookie-value (cookie)
+  `(aref ,cookie 4))
+(defmacro w3m-cookie-path (cookie)
+  `(aref ,cookie 5))
+(defmacro w3m-cookie-version (cookie)
+  `(aref ,cookie 6))
+(defmacro w3m-cookie-expires (cookie)
+  `(aref ,cookie 7))
+(defmacro w3m-cookie-ignore (cookie)
+  `(aref ,cookie 8))
+
+(defun w3m-cookie-create (&rest args)
+  (let ((cookie (make-vector 9 nil)))
+    (setf (w3m-cookie-url cookie)     (plist-get args :url))
+    (setf (w3m-cookie-domain cookie)  (plist-get args :domain))
+    (setf (w3m-cookie-secure cookie)  (plist-get args :secure))
+    (setf (w3m-cookie-name cookie)    (plist-get args :name))
+    (setf (w3m-cookie-value cookie)   (plist-get args :value))
+    (setf (w3m-cookie-path cookie)    (plist-get args :path))
+    (setf (w3m-cookie-version cookie) (or (plist-get args :version) 0))
+    (setf (w3m-cookie-expires cookie) (plist-get args :expires))
+    (setf (w3m-cookie-ignore cookie)  (plist-get args :ignore))
+    cookie))
+
+(defun w3m-cookie-store (cookie)
+  "Store COOKIE."
+  (let (ignored)
+    (catch 'found
+      (dolist (c w3m-cookies)
+	(when (and (string= (w3m-cookie-domain c)
+			    (w3m-cookie-domain cookie))
+		   (string= (w3m-cookie-path c)
+			    (w3m-cookie-path cookie))
+		   (string= (w3m-cookie-name c)
+			    (w3m-cookie-name cookie)))
+	  (if (w3m-cookie-ignore c)
+	      (setq ignored t)
+	    (setq w3m-cookies (delq c w3m-cookies)))
+	  (throw 'found t))))
+    (unless ignored
+      (push cookie w3m-cookies))))
+
+(defun w3m-cookie-remove (domain path name)
+  "Remove COOKIE if stored."
+  (dolist (c w3m-cookies)
+    (when (and (string= (w3m-cookie-domain c)
+			domain)
+	       (string= (w3m-cookie-path c)
+			path)
+	       (string= (w3m-cookie-name c)
+			name))
+      (setq w3m-cookies (delq c w3m-cookies)))))
+
+(defun w3m-cookie-retrieve (host path &optional secure)
+  "Retrieve cookies for DOMAIN and PATH."
+  (let ((case-fold-search t)
+	expires	cookies)
+    (dolist (c w3m-cookies)
+      (if (and (w3m-cookie-expires c)
+	       (w3m-time-newer-p (current-time)
+				 (w3m-time-parse-string
+				  (w3m-cookie-expires c))))
+	  (push c expires)
+	(when (and (not (w3m-cookie-ignore c))
+		   (or
+		    ;; A special case that domain name is ".hostname".
+		    (string= (concat "." host) (w3m-cookie-domain c))
+		    (string-match (concat
+				   (regexp-quote (w3m-cookie-domain c)) "$")
+				  host))
+		   (string-match (concat
+				  "^" (regexp-quote (w3m-cookie-path c)))
+				 path))
+	  (if (w3m-cookie-secure c)
+	      (if secure
+		  (push c cookies))
+	    (push c cookies)))))
+    ;; Delete expired cookies.
+    (dolist (expire expires)
+      (setq w3m-cookies (delq expire w3m-cookies)))
+    cookies))
+
+;; HTTP URL parser.
+(defun w3m-parse-http-url (url)
+  "Parse an absolute HTTP URL."
+  (let (secure split)
+    (w3m-string-match-url-components url)
+    (when (and (match-beginning 4)
+	       (or (equal (match-string 2 url) "http")
+		   (setq secure (equal (match-string 2 url) "https"))))
+      (setq split (save-match-data
+		    (split-string (match-string 4 url) ":")))
+      (vector secure
+	      (nth 0 split)
+	      (string-to-number (or (nth 1 split) "80"))
+	      (if (eq (length (match-string 5 url)) 0)
+		  "/"
+		(match-string 5 url))))))
+
+(defsubst w3m-http-url-secure (http-url)
+  "Secure flag of the HTTP-URL."
+  (aref http-url 0))
+
+(defsubst w3m-http-url-host (http-url)
+  "Host name of the HTTP-URL."
+  (aref http-url 1))
+
+(defsubst w3m-http-url-port (http-url)
+  "Port number of the HTTP-URL."
+  (aref http-url 2))
+
+(defsubst w3m-http-url-path (http-url)
+  "Path of the HTTP-URL."
+  (aref http-url 3))
+
+;;; Cookie parser.
+(defvar w3m-cookie-parse-args-syntax-table
+  (copy-syntax-table emacs-lisp-mode-syntax-table)
+  "A syntax table for parsing sgml attributes.")
+
+(modify-syntax-entry ?' "\"" w3m-cookie-parse-args-syntax-table)
+(modify-syntax-entry ?` "\"" w3m-cookie-parse-args-syntax-table)
+(modify-syntax-entry ?{ "(" w3m-cookie-parse-args-syntax-table)
+(modify-syntax-entry ?} ")" w3m-cookie-parse-args-syntax-table)
+
+(defun w3m-cookie-parse-args (str &optional nodowncase)
+  (let (name value results name-pos val-pos)
+    (with-current-buffer (get-buffer-create " *w3m-cookie-parse-temp*")
+      (erase-buffer)
+      (set-syntax-table w3m-cookie-parse-args-syntax-table)
+      (insert str)
+      (goto-char (point-min))
+      (while (not (eobp))
+	(skip-chars-forward "; \n\t")
+	(setq name-pos (point))
+	(skip-chars-forward "^ \n\t=;")
+	(unless nodowncase
+	  (downcase-region name-pos (point)))
+	(setq name (buffer-substring name-pos (point)))
+	(skip-chars-forward " \t\n")
+	(if (/= (or (char-after (point)) 0)  ?=) ; There is no value
+	    (setq value nil)
+	  (skip-chars-forward " \t\n=")
+	  (setq val-pos (point)
+		value
+		(cond
+		 ((or (= (or (char-after val-pos) 0) ?\")
+		      (= (or (char-after val-pos) 0) ?'))
+		  (buffer-substring (1+ val-pos)
+				    (condition-case ()
+					(prog2
+					    (forward-sexp 1)
+					    (1- (point))
+					  (skip-chars-forward "\""))
+				      (error
+				       (skip-chars-forward "^ \t\n")
+				       (point)))))
+		 (t
+		  (buffer-substring val-pos
+				    (progn
+				      (skip-chars-forward "^;")
+				      (skip-chars-backward " \t")
+				      (point)))))))
+	(push (cons name value) results)
+	(skip-chars-forward "; \n\t"))
+      results)))
+
+(defun w3m-cookie-trusted-host-p (host)
+  "Returns non-nil when the HOST is specified as trusted by user."
+  (let ((accept w3m-cookie-accept-domains)
+	(reject w3m-cookie-reject-domains)
+	(trusted t)
+	regexp tlen rlen)
+    (while accept
+      (cond
+       ((string= (car accept) ".")
+	(setq regexp ".*"))
+       ((string= (car accept) ".local")
+	(setq regexp "^[^\\.]+$"))
+       ((eq (string-to-char (car accept)) ?.)
+	(setq regexp (concat (regexp-quote (car accept)) "$")))
+       (t (setq regexp (concat "^" (regexp-quote (car accept)) "$"))))
+      (when (string-match regexp host)
+	(setq tlen (length (car accept))
+	      accept nil))
+      (pop accept))
+    (while reject
+      (cond
+       ((string= (car reject) ".")
+	(setq regexp ".*"))
+       ((string= (car reject) ".local")
+	(setq regexp "^[^\\.]+$"))
+       ((eq (string-to-char (car reject)) ?.)
+	(setq regexp (concat (regexp-quote (car reject)) "$")))
+       (t (setq regexp (concat "^" (regexp-quote (car reject)) "$"))))
+      (when (string-match regexp host)
+	(setq rlen (length (car reject))
+	      reject nil))
+      (pop reject))
+    (if tlen
+	(if rlen
+	    (if (<= tlen rlen)
+		(setq trusted nil)))
+      (if rlen
+	  (setq trusted nil)))
+    trusted))
+
+;;; Version 0 cookie.
+(defun w3m-cookie-1-acceptable-p (host domain)
+  (let ((numdots 0)
+	(last nil)
+	(case-fold-search t)
+	(mindots 3))
+    (while (setq last (string-match "\\." domain last))
+      (setq numdots (1+ numdots)
+	    last (1+ last)))
+    (if (string-match w3m-cookie-two-dot-domains-regexp domain)
+	(setq mindots 2))
+    (cond
+     ((string= host domain)		; Apparently netscape lets you do this
+      t)
+     ;; A special case that domain name is ".hostname".
+     ((string= (concat "." host) domain)
+      t)
+     ((>= numdots mindots)		; We have enough dots in domain name
+      ;; Need to check and make sure the host is actually _in_ the
+      ;; domain it wants to set a cookie for though.
+      (string-match (concat (regexp-quote domain) "$") host))
+     (t
+      nil))))
+
+(defun w3m-cookie-1-set (url &rest args)
+  ;; Set-Cookie:, version 0 cookie.
+  (let ((http-url (w3m-parse-http-url url))
+	(case-fold-search t)
+	secure domain expires path rest)
+    (when http-url
+      (setq secure (and (w3m-assoc-ignore-case "secure" args) t)
+	    domain (or (cdr-safe (w3m-assoc-ignore-case "domain" args))
+		       (w3m-http-url-host http-url))
+	    expires (cdr-safe (w3m-assoc-ignore-case "expires" args))
+	    path (or (cdr-safe (w3m-assoc-ignore-case "path" args))
+		     (file-name-directory
+		      (w3m-http-url-path http-url))))
+      (while args
+	(if (not (member (downcase (car (car args)))
+			 '("secure" "domain" "expires" "path")))
+	    (setq rest (cons (car args) rest)))
+	(setq args (cdr args)))
+      (cond
+       ((not (w3m-cookie-trusted-host-p (w3m-http-url-host http-url)))
+	;; The site was explicity marked as untrusted by the user
+	nil)
+       ((or (w3m-cookie-1-acceptable-p (w3m-http-url-host http-url) domain)
+	    (eq w3m-cookie-accept-bad-cookies t)
+	    (and (eq w3m-cookie-accept-bad-cookies 'ask)
+		 (y-or-n-p (format "Accept bad cookie from %s for %s? "
+				   (w3m-http-url-host http-url) domain))))
+	;; Cookie is accepted by the user, and passes our security checks
+	(dolist (elem rest)
+	  ;; If a CGI script wishes to delete a cookie, it can do so by
+	  ;; returning a cookie with the same name, and an expires time
+	  ;; which is in the past.
+	  (when (and expires
+		     (w3m-time-newer-p (current-time)
+				       (w3m-time-parse-string expires)))
+	    (w3m-cookie-remove domain path (car elem)))
+	  (w3m-cookie-store
+	   (w3m-cookie-create :url url
+			      :domain domain
+			      :name (car elem)
+			      :value (cdr elem)
+			      :path path
+			      :expires expires
+			      :secure secure))))
+       (t
+	(message "%s tried to set a cookie for domain %s - rejected."
+		 (w3m-http-url-host http-url) domain))))))
+
+;;; Version 1 cookie.
+(defun w3m-cookie-2-acceptable-p (http-url domain)
+  ;;   A user agent rejects (SHALL NOT store its information) if the Version
+  ;;   attribute is missing.  Moreover, a user agent rejects (SHALL NOT
+  ;;   store its information) if any of the following is true of the
+  ;;   attributes explicitly present in the Set-Cookie2 response header:
+
+  ;;      *  The value for the Path attribute is not a prefix of the
+  ;;         request-URI.
+
+  ;;      *  The value for the Domain attribute contains no embedded dots,
+  ;;         and the value is not .local.
+
+  ;;      *  The effective host name that derives from the request-host does
+  ;;         not domain-match the Domain attribute.
+
+  ;;      *  The request-host is a HDN (not IP address) and has the form HD,
+  ;;         where D is the value of the Domain attribute, and H is a string
+  ;;         that contains one or more dots.
+
+  ;;      *  The Port attribute has a "port-list", and the request-port was
+  ;;         not in the list.
+  )
+
+(defun w3m-cookie-2-set (url &rest args)
+  ;; Set-Cookie2:, version 1 cookie.
+  ;; Not implemented yet.
+  )
+
+
+;;; Save & Load
+(defvar w3m-cookie-init nil)
+
+(defun w3m-cookie-clear ()
+  "Clear cookie list."
+  (setq w3m-cookies nil))
+
+(defun w3m-cookie-save (&optional domain)
+  "Save cookies.
+When DOMAIN is non-nil, only save cookies whose domains match it."
+  (interactive)
+  (let (cookies)
+    (dolist (cookie w3m-cookies)
+      (when (and (or (not domain)
+		     (string= (w3m-cookie-domain cookie) domain))
+		 (w3m-cookie-expires cookie)
+		 (w3m-time-newer-p (w3m-time-parse-string
+				    (w3m-cookie-expires cookie))
+				   (current-time)))
+	(push cookie cookies)))
+    (w3m-save-list w3m-cookie-file cookies)))
+
+(defun w3m-cookie-save-current-site-cookies ()
+  "Save cookies for the current site."
+  (interactive)
+  (when (and w3m-current-url
+	     (not (w3m-url-local-p w3m-current-url)))
+    (w3m-string-match-url-components w3m-current-url)
+    (w3m-cookie-save (match-string 4 w3m-current-url))))
+
+(defun w3m-cookie-load ()
+  "Load cookies."
+  (when (null w3m-cookies)
+    (setq w3m-cookies
+	  (w3m-load-list w3m-cookie-file))))
+
+(defun w3m-cookie-setup ()
+  "Setup cookies. Returns immediataly if already initialized."
+  (interactive)
+  (unless w3m-cookie-init
+    (w3m-cookie-load)
+    (setq w3m-cookie-init t)))
+
+;;;###autoload
+(defun w3m-cookie-shutdown ()
+  "Save cookies, and reset cookies' data."
+  (interactive)
+  (when w3m-cookie-save-cookies
+    (w3m-cookie-save))
+  (setq w3m-cookie-init nil)
+  (w3m-cookie-clear)
+  (if (get-buffer " *w3m-cookie-parse-temp*")
+      (kill-buffer (get-buffer " *w3m-cookie-parse-temp*"))))
+
+;;;###autoload
+(defun w3m-cookie-set (url beg end)
+  "Register cookies which correspond to URL.
+BEG and END should be an HTTP response header region on current buffer."
+  (w3m-cookie-setup)
+  (when (and url beg end)
+    (save-excursion
+      (let ((case-fold-search t)
+	    (version 0)
+	    data)
+	(goto-char beg)
+	(while (re-search-forward
+		"^\\(?:Set-Cookie\\(2\\)?:\\) *\\(.*\\(?:\n[ \t].*\\)*\\)\n"
+		end t)
+	  (setq data (match-string 2))
+	  (if (match-beginning 1)
+	      (setq version 1))
+	  (apply
+	   (case version
+	     (0 'w3m-cookie-1-set)
+	     (1 'w3m-cookie-2-set))
+	   url (w3m-cookie-parse-args data 'nodowncase)))))))
+
+;;;###autoload
+(defun w3m-cookie-get (url)
+  "Get a cookie field string which corresponds to the URL."
+  (w3m-cookie-setup)
+  (let* ((http-url (w3m-parse-http-url url))
+	 (cookies (and http-url
+		       (w3m-cookie-retrieve (w3m-http-url-host http-url)
+					    (w3m-http-url-path http-url)
+					    (w3m-http-url-secure http-url)))))
+    ;; When sending cookies to a server, all cookies with a more specific path
+    ;; mapping should be sent before cookies with less specific path mappings.
+    (setq cookies (sort cookies
+			(lambda (x y)
+			  (< (length (w3m-cookie-path x))
+			     (length (w3m-cookie-path y))))))
+    (when cookies
+      (mapconcat (lambda (cookie)
+		   (concat (w3m-cookie-name cookie)
+			   "=" (w3m-cookie-value cookie)))
+		 cookies
+		 "; "))))
+
+;;;###autoload
+(defun w3m-cookie (&optional no-cache)
+  "Display cookies and enable you to manage them."
+  (interactive "P")
+  (w3m-goto-url "about://cookie/" no-cache))
+
+;;;###autoload
+(defun w3m-about-cookie (url &optional no-decode no-cache post-data &rest args)
+  "Make the html contents to display and to enable you to manage cookies."
+  (unless w3m-use-cookies (error "You must enable emacs-w3m to use cookies."))
+  (w3m-cookie-setup)
+  (let ((pos 0))
+    (when post-data
+      (dolist (pair (split-string post-data "&"))
+	(setq pair (split-string pair "="))
+	(setf (w3m-cookie-ignore
+	       (nth (string-to-number (car pair)) w3m-cookies))
+	      (eq (string-to-number (cadr pair)) 0))))
+    (insert
+     (concat
+      "\
+<html><head><title>Cookies</title></head>
+<body><center><b>Cookies</b></center>
+<p><form method=\"post\" action=\"about://cookie/\">
+<ol>"))
+    (dolist (cookie w3m-cookies)
+      (insert
+       (concat
+	"<li><h1><a href=\""
+	(w3m-cookie-url cookie)
+	"\">"
+	(w3m-cookie-url cookie)
+	"</a></h1>"
+	"<table cellpadding=0>"
+	"<tr><td width=\"80\"><b>Cookie:</b></td><td>"
+	(w3m-cookie-name cookie) "=" (w3m-cookie-value cookie)
+	"</td></tr>"
+	(when (w3m-cookie-expires cookie)
+	  (concat
+	   "<tr><td width=\"80\"><b>Expires:</b></td><td>"
+	   (w3m-cookie-expires cookie)
+	   "</td></tr>"))
+	"<tr><td width=\"80\"><b>Version:</b></td><td>"
+	(number-to-string (w3m-cookie-version cookie))
+	"</td></tr>"
+	(when (w3m-cookie-domain cookie)
+	  (concat
+	   "<tr><td width=\"80\"><b>Domain:</b></td><td>"
+	   (w3m-cookie-domain cookie)
+	   "</td></tr>"))
+	(when (w3m-cookie-path cookie)
+	  (concat
+	   "<tr><td width=\"80\"><b>Path:</b></td><td>"
+	   (w3m-cookie-path cookie)
+	   "</td></tr>"))
+	"<tr><td width=\"80\"><b>Secure:</b></td><td>"
+	(if (w3m-cookie-secure cookie) "Yes" "No")
+	"</td></tr><tr><td>"
+	"<tr><td width=\"80\"><b>Use:</b></td><td>"
+	(format "<input type=radio name=\"%d\" value=1%s>Yes"
+		pos (if (w3m-cookie-ignore cookie) "" " checked"))
+	"&nbsp;&nbsp;"
+	(format "<input type=radio name=\"%d\" value=0%s>No"
+		pos (if (w3m-cookie-ignore cookie) " checked" ""))
+	"</td></tr><tr><td><input type=submit value=\"OK\"></table><p>"))
+      (setq pos (1+ pos)))
+    (insert "</ol></form></body></html>")
+    "text/html"))
+
+(provide 'w3m-cookie)
+
+;;; w3m-cookie.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-dtree.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,239 @@
+;;; w3m-dtree.el --- The add-on program to display local directory tree.
+
+;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2009
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: Hideyuki SHIRAI    <[e-mail]>,
+;;         TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia, directory, tree
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-dtree.el is the add-on program of emacs-w3m to display local
+;; directory tree.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; Code:
+(require 'w3m)
+
+(defcustom w3m-dtree-default-allfiles nil
+  "*If non-nil, set 'allfiles' to default."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-dtree-directory-depth 8
+  "*Interger of a depth of the viewing directory."
+  :group 'w3m
+  :type '(choice
+	  (const :tag "No limit" nil)
+	  (integer :format "%t: %v\n" :size 0 :tag "depth" 10)))
+
+(defcustom w3m-dtree-indent-strings ["|-" "+-" "|  " "   "]
+  "*Vector of strings to be used for indentation with w3m-dtree.
+
+If use default value or choice 'ASCII', display like this,
+/home/shirai/work/emacs-w3m/
+ |-CVS/
+ |-icons/
+ |  +-CVS/
+ +-shimbun/
+    +-CVS/
+
+If you care for another style, set manually and try it :-).
+"
+  :group 'w3m
+  :type '(radio
+	  (const :format "ASCII: " ["|-" "+-" "|  " "   "])
+	  (vector
+	   :convert-widget w3m-widget-type-convert-widget
+	   (let ((defaults (if (equal w3m-language "Japanese")
+			       (vconcat
+				(mapcar
+				 (lambda (s)
+				   (decode-coding-string s 'iso-2022-7bit))
+				 '("\e$B('\e(B" "\e$B(&\e(B"
+				   "\e$B(\"\e(B" "\e$B!!\e(B")))
+			     ["|-" "+-" "|  " "   "])))
+	     `(:format "Others:\n%v" :indent 4
+		       (string :format "%{|-%}          %v\n"
+			       :sample-face widget-field-face :size 0
+			       :value ,(aref defaults 0))
+		       (string :format "%{+-%}          %v\n"
+			       :sample-face widget-field-face :size 0
+			       :value ,(aref defaults 1))
+		       (string :format "%{|  %}         %v\n"
+			       :sample-face widget-field-face :size 0
+			       :value ,(aref defaults 2))
+		       (string :format "%{   %}         %v"
+			       :sample-face widget-field-face :size 0
+			       :value ,(aref defaults 3)))))))
+
+(defcustom w3m-dtree-stop-strings ["|=" "+="]
+  "*Vector of strings to be used for indentation when a depth of directory
+over the 'w3m-dtree-directory-depth'."
+  :group 'w3m
+  :type '(radio
+	  (const :format "ASCII: " ["|=" "+="])
+	  (const :format "ASCII Bold: " ["<b>|-</b>" "<b>+-</b>"])
+	  (vector
+	   :convert-widget w3m-widget-type-convert-widget
+	   (let ((defaults (if (equal w3m-language "Japanese")
+			       (vconcat
+				(mapcar
+				 (lambda (s)
+				   (decode-coding-string s 'iso-2022-7bit))
+				 '("\e$B(<\e(B" "\e$B(1\e(B")))
+			     ["|=" "+="])))
+	     `(:format "Others:\n%v" :indent 4
+		       (string :format "|=          %{|=%}              %v\n"
+			       :sample-face bold :size 0
+			       :value ,(aref defaults 0))
+		       (string :format "+=          %{+=%}              %v\n"
+			       :sample-face bold :size 0
+			       :value ,(aref defaults 1)))))))
+
+(defun w3m-dtree-expand-file-name (path)
+  (if (string-match "^\\(.\\):\\(.*\\)" path)
+      (if w3m-use-cygdrive
+	  (concat "/cygdrive/"
+		  (match-string 1 path) (match-string 2 path))
+	(concat "/" (match-string 1 path) "|" (match-string 2 path)))
+    path))
+
+(defun w3m-dtree-directory-name (path)
+  (when (and w3m-treat-drive-letter
+	     (string-match
+	      "^/\\(?:\\([A-Za-z]\\)[|:]?\\|cygdrive/\\([A-Za-z]\\)\\)/"
+	      path))
+    (setq path (concat
+		(or (match-string 1 path)
+		    (match-string 2 path))
+		":/"
+		(substring path (match-end 0)))))
+  path)
+
+(defmacro w3m-dtree-has-child (path)
+  `(let ((w32-get-true-file-link-count t)) ;; true link count for Meadow
+     (and (nth 1 (file-attributes ,path))
+	  (/= (nth 1 (file-attributes ,path)) 2))))
+
+(defun w3m-dtree-create-sub (path allfiles dirprefix fileprefix indent depth)
+  (let* ((files (directory-files path t))
+	 (limit (and (integerp w3m-dtree-directory-depth)
+		     (>= depth w3m-dtree-directory-depth)))
+	 (indent-sub1 (if limit
+			  (aref w3m-dtree-stop-strings 0)
+			(aref w3m-dtree-indent-strings 0)))
+	 (indent-sub2 (aref w3m-dtree-indent-strings 2))
+	 file fullpath tmp)
+    (setq files (delete (concat (file-name-as-directory path) ".")
+			(delete (concat (file-name-as-directory path) "..")
+				files)))
+    (unless allfiles
+      (setq tmp files)
+      (while (setq file (car tmp))
+	(unless (file-directory-p file)
+	  (setq files (delete file files)))
+	(setq tmp (cdr tmp))))
+    (while (setq fullpath (car files))
+      (when (= (length files) 1)
+	(if limit
+	    (setq indent-sub1 (aref w3m-dtree-stop-strings 1))
+	  (setq indent-sub1 (aref w3m-dtree-indent-strings 1)))
+	(setq indent-sub2 (aref w3m-dtree-indent-strings 3)))
+      (setq file (file-name-nondirectory fullpath))
+      (cond
+       ((or (not allfiles) (file-directory-p fullpath))
+	(insert (format "%s%s%s<A HREF=\"%s%s\">%s</A>\n"
+			indent indent-sub1
+			(if allfiles "<B>[d]</B>" "")
+			dirprefix
+			(w3m-dtree-expand-file-name (file-name-as-directory fullpath))
+			(concat file "/")))
+	(when (and (null limit)
+		   (or allfiles (w3m-dtree-has-child fullpath)))
+	  (w3m-dtree-create-sub fullpath allfiles dirprefix fileprefix
+				(concat indent indent-sub2) (1+ depth))))
+       ((and allfiles (file-exists-p fullpath))
+	(insert (format "%s%s%s<A HREF=\"%s%s\">%s</A>\n"
+			indent indent-sub1
+			(if allfiles "(f)" "")
+			fileprefix (w3m-dtree-expand-file-name fullpath)
+			file))))
+      (setq files (cdr files)))))
+
+(defun w3m-dtree-create (path allfiles dirprefix fileprefix)
+  (let ((charset (or (car (rassq w3m-file-name-coding-system
+				 w3m-charset-coding-system-alist))
+		     w3m-file-name-coding-system)))
+    (insert "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">\n"
+	    "<html>\n<head>\n"
+	    "<meta http-equiv=\"CONTENT-TYPE\" "
+	    "content=\"text/html; charset="
+	    (symbol-name charset)
+	    "\">\n"
+	    "<title>"
+	    path
+	    "</title>\n</head>\n<body>\n<pre>\n")
+    (insert (format "<A HREF=\"%s%s\">%s</A>%s\n"
+		    dirprefix (w3m-dtree-expand-file-name path) path
+		    (if allfiles " (allfiles)" "")))
+    (if (file-directory-p path)
+	(w3m-dtree-create-sub path allfiles dirprefix fileprefix " " 0)
+      (insert (format "\n<h3>Warning: Directory not found.</h3>\n")))
+    (insert "</pre>\n</body>\n</html>\n")))
+
+;;;###autoload
+(defun w3m-about-dtree (url &optional nodecode allfiles &rest args)
+  (let ((prelen (length "about://dtree"))
+	(dirprefix "about://dtree")
+	(fileprefix "file://")
+	path)
+    (if (string-match "\\?allfiles=\\(?:\\(true\\)\\|false\\)$" url)
+	(progn
+	  (setq path (substring url prelen (match-beginning 0)))
+	  (if (match-beginning 1) (setq allfiles t)))
+      (if w3m-dtree-default-allfiles
+	  (setq allfiles (not allfiles)))
+      (setq path (substring url prelen)))
+    ;; counter drive letter
+    (setq path (file-name-as-directory (w3m-dtree-directory-name path)))
+    (setq default-directory path)
+    (w3m-message "Dtree (%s)..." path)
+    (w3m-dtree-create path allfiles dirprefix fileprefix)
+    (w3m-message "Dtree...done")
+    "text/html"))
+
+;;;###autoload
+(defun w3m-dtree (allfiles path)
+  "Display directory tree on local file system.
+If called with 'prefix argument', display all directorys and files."
+  (interactive "P\nDDtree directory: ")
+  (if w3m-dtree-default-allfiles
+      (setq allfiles (not allfiles)))
+  (w3m-goto-url (format "about://dtree%s%s"
+			(w3m-dtree-expand-file-name
+			 (file-name-as-directory
+			  (expand-file-name path)))
+			(if allfiles "?allfiles=true" ""))))
+
+(provide 'w3m-dtree)
+;;; w3m-dtree.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-ems.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,1416 @@
+;;; w3m-ems.el --- GNU Emacs stuff for emacs-w3m
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Yuuichi Teranishi  <[e-mail]>,
+;;          TSUCHIYA Masatoshi <[e-mail]>,
+;;          Katsumi Yamaoka    <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; This file contains GNU Emacs stuff that emacs-w3m uses.  For more
+;; detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+;;
+;; We can use w3m-static- switches to make the byte code differ between
+;; Emacs 2[12] and 2[34], if anything, it is impossible to share the byte
+;; code with those versions of Emacsen.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m-util)
+(require 'w3m-proc)
+(require 'w3m-image)
+(require 'w3m-favicon)
+(require 'w3m-ccl)
+(require 'wid-edit)
+
+;; Functions and variables which should be defined in the other module
+;; at run-time.
+(eval-when-compile
+  (defvar w3m-add-tab-number)
+  (defvar w3m-coding-system)
+  (defvar w3m-current-process)
+  (defvar w3m-current-title)
+  (defvar w3m-current-url)
+  (defvar w3m-default-coding-system)
+  (defvar w3m-display-inline-images)
+  (defvar w3m-favicon-image)
+  (defvar w3m-form-input-textarea-coding-system)
+  (defvar w3m-form-use-fancy-faces)
+  (defvar w3m-icon-directory)
+  (defvar w3m-image-default-background)
+  (defvar w3m-mode-map)
+  (defvar w3m-modeline-process-status-on)
+  (defvar w3m-new-session-in-background)
+  (defvar w3m-process-queue)
+  (defvar w3m-show-graphic-icons-in-header-line)
+  (defvar w3m-show-graphic-icons-in-mode-line)
+  (defvar w3m-toolbar)
+  (defvar w3m-toolbar-buttons)
+  (defvar w3m-use-favicon)
+  (defvar w3m-use-header-line)
+  (defvar w3m-use-header-line-title)
+  (defvar w3m-use-tab)
+  ;; `w3m-tab-move-right' calls the inline function `w3m-buffer-set-number'
+  ;; which uses it.
+  (defvar w3m-use-title-buffer-name)
+  (defvar w3m-work-buffer-list)
+  (defvar w3m-work-buffer-name)
+  (autoload 'w3m-copy-buffer "w3m")
+  (autoload 'w3m-delete-buffer "w3m")
+  (autoload 'w3m-image-type "w3m")
+  (autoload 'w3m-retrieve "w3m")
+  (autoload 'w3m-select-buffer-update "w3m"))
+
+(eval-and-compile
+  (unless (fboundp 'frame-current-scroll-bars)
+    (defalias 'frame-current-scroll-bars 'ignore))
+  (unless (fboundp 'window-fringes)
+    (defalias 'window-fringes 'ignore))
+  (unless (fboundp 'unencodable-char-position)
+    (defalias 'unencodable-char-position 'ignore)))
+
+;;; Coding system and charset.
+
+(defsubst w3m-find-coding-system (obj)
+  "Return OBJ if it is a coding-system."
+  (if (coding-system-p obj) obj))
+
+(defun w3m-detect-coding-region (start end &optional priority-list)
+  "Detect coding system of the text in the region between START and END.
+Return the first possible coding system.
+
+PRIORITY-LIST is a list of coding systems ordered by priority."
+  (let (category categories)
+    (dolist (codesys priority-list)
+      (setq category (coding-system-category codesys))
+      (unless (or (null category) (assq category categories))
+	(push (cons category codesys) categories)))
+    (car (detect-coding-with-priority start end (nreverse categories)))))
+
+(defun w3m-mule-unicode-p ()
+  "Check the existence as charsets of mule-unicode."
+  (and (charsetp 'mule-unicode-0100-24ff)
+       (charsetp 'mule-unicode-2500-33ff)
+       (charsetp 'mule-unicode-e000-ffff)))
+
+(defalias 'w3m-make-ccl-coding-system
+  (if (fboundp 'define-coding-system)
+      (eval-when-compile
+	(funcall (if (and (fboundp 'define-coding-system)
+			  (featurep 'bytecomp))
+		     'byte-compile
+		   'identity)
+		 '(lambda (coding-system mnemonic docstring decoder encoder) "\
+Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER.
+CODING-SYSTEM, DECODER and ENCODER must be symbols.
+This function is an interface to `define-coding-system'."
+		    (define-coding-system coding-system docstring
+		      :mnemonic mnemonic :coding-type 'ccl
+		      :ccl-decoder decoder :ccl-encoder encoder))))
+    (eval-when-compile
+      (funcall (if (featurep 'bytecomp)
+		   (lambda (form)
+		     (let ((byte-compile-warnings
+			    (if (eq (get 'make-coding-system 'byte-compile)
+				    'byte-compile-obsolete)
+				(delq 'obsolete
+				      (copy-sequence
+				       (cond ((consp byte-compile-warnings)
+					      byte-compile-warnings)
+					     (byte-compile-warnings
+					      byte-compile-warning-types)
+					     (t nil))))
+			      byte-compile-warnings)))
+		       (byte-compile form)))
+		 'identity)
+	       '(lambda (coding-system mnemonic docstring decoder encoder) "\
+Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER.
+CODING-SYSTEM, DECODER and ENCODER must be symbols.
+This function is an interface to `make-coding-system'."
+		  (make-coding-system coding-system 4 mnemonic docstring
+				      (cons decoder encoder)))))))
+
+;; For Emacsen of which the `mule-version' is 5.x, redefine the ccl
+;; programs that been defined in w3m-ccl.el.
+(w3m-static-when (string-match "\\`5\\." mule-version)
+  (let ((source
+	 ;; CCL program to convert multibyte char to ucs with emacs-unicode.
+	 `((if (r1 == ,(charset-id 'latin-iso8859-1))
+	       ((r1 = (r0 + 128)))
+	     (if (r1 == ,(charset-id 'mule-unicode-0100-24ff))
+		 ((r1 = ((((r0 & #x3f80) >> 7) - 32) * 96))
+		  (r0 &= #x7f)
+		  (r1 += (r0 + 224)))		; 224 == -32 + #x0100
+	       (if (r1 == ,(charset-id 'mule-unicode-2500-33ff))
+		   ((r1 = ((((r0 & #x3f80) >> 7) - 32) * 96))
+		    (r0 &= #x7f)
+		    (r1 += (r0 + 9440)))	; 9440 == -32 + #x2500
+		 (if (r1 == ,(charset-id 'mule-unicode-e000-ffff))
+		     ((r1 = ((((r0 & #x3f80) >> 7) - 32) * 96))
+		      (r0 &= #x7f)
+		      (r1 += (r0 + 57312)))	; 57312 == -32 + #xe000
+		   ,(if (fboundp 'ccl-compile-lookup-character)
+			'((lookup-character utf-subst-table-for-encode r1 r0)
+			  (if (r7 == 0)		; lookup failed
+			      (r1 = #xfffd)))
+		      '((r1 = #xfffd)))))))
+	   (if (r1 == #xfffd)
+	       (write-repeat ?~)		; unknown character.
+	     (r0 = r1)))))
+    (if (get 'utf-translation-table-for-encode 'translation-table-id)
+	;; Emacs 21.3 and later.
+	(progn
+	  (eval
+	   `(define-ccl-program w3m-euc-japan-encoder
+	      '(4
+		(loop
+		 ,@w3m-ccl-write-euc-japan-character
+		 (translate-character utf-translation-table-for-encode r1 r0)
+		 ,@source
+		 ,@w3m-ccl-generate-ncr))))
+	  (eval
+	   `(define-ccl-program w3m-iso-latin-1-encoder
+	      '(4
+		(loop
+		 ,@w3m-ccl-write-iso-latin-1-character
+		 (translate-character utf-translation-table-for-encode r1 r0)
+		 ,@source
+		 ,@w3m-ccl-generate-ncr)))))
+      ;; Emacs 21.2 and earlier.
+      (eval
+       `(define-ccl-program w3m-euc-japan-encoder
+	  '(4
+	    (loop
+	     ,@w3m-ccl-write-euc-japan-character
+	     ,@source
+	     ,@w3m-ccl-generate-ncr))))
+      (eval
+       `(define-ccl-program w3m-iso-latin-1-encoder
+	  '(4
+	    (loop
+	     ,@w3m-ccl-write-iso-latin-1-character
+	     ,@source
+	     ,@w3m-ccl-generate-ncr)))))))
+
+;; This might be redefined by w3m-ucs.el.
+(defun w3m-ucs-to-char (codepoint)
+  (or (decode-char 'ucs codepoint) ?~))
+
+(defun w3m-add-local-hook (hook function &optional append)
+  "Add to the buffer-local value of HOOK the function FUNCTION."
+  (add-hook hook function append t))
+
+(defun w3m-remove-local-hook (hook function)
+  "Remove to the buffer-local value of HOOK the function FUNCTION."
+  (remove-hook hook function t))
+
+;; Function which returns non-nil when the current display device can
+;; show images inline.
+(defalias 'w3m-display-graphic-p 'display-images-p)
+
+(defun w3m-display-inline-images-p ()
+  "Returns non-nil when images can be displayed under the present
+circumstances."
+  (and w3m-display-inline-images (display-images-p)))
+
+(eval-and-compile
+  (defalias 'w3m-ems-create-image (if (fboundp 'create-animated-image)
+				      'create-animated-image
+				    'create-image)))
+
+(defun w3m-create-image (url &optional no-cache referer size handler)
+  "Retrieve data from URL and create an image object.
+If optional argument NO-CACHE is non-nil, cache is not used.
+If second optional argument REFERER is non-nil, it is used as Referer: field.
+If third optional argument SIZE is non-nil, its car element is used as width
+and its cdr element is used as height."
+  (if (not handler)
+      (w3m-process-with-wait-handler
+	(w3m-create-image url no-cache referer size handler))
+    (lexical-let ((set-size size)
+		  (url url)
+		  image size)
+      (w3m-process-do-with-temp-buffer
+	  (type (progn
+		  (set-buffer-multibyte nil)
+		  (w3m-retrieve url nil no-cache nil referer handler)))
+	(goto-char (point-min))
+	(when (w3m-image-type-available-p
+	       (setq type
+		     (or (and (let (case-fold-search)
+				(looking-at
+				 "\\(GIF8\\)\\|\\(\377\330\\)\\|\211PNG\r\n"))
+			      (cond ((match-beginning 1) 'gif)
+				    ((match-beginning 2) 'jpeg)
+				    (t 'png)))
+			 (w3m-image-type type))))
+	  (setq image (w3m-ems-create-image
+		       (buffer-string) type t
+		       :ascent 'center
+		       :background w3m-image-default-background))
+	  (if (and w3m-resize-images set-size)
+	      (progn
+		(set-buffer-multibyte t)
+		(setq size (image-size image 'pixels))
+		(if (and (null (car set-size)) (cdr set-size))
+		    (setcar set-size
+			    (/ (* (car size) (cdr set-size)) (cdr size))))
+		(if (and (null (cdr set-size)) (car set-size))
+		    (setcdr set-size
+			    (/ (* (cdr size) (car set-size)) (car size))))
+		(if (or (not (eq (car size)
+				 (car set-size)))  ; width is different
+			(not (eq (cdr size)
+				 (cdr set-size)))) ; height is different
+		    (lexical-let ((image image))
+		      (w3m-process-do
+			  (resized (w3m-resize-image
+				    (plist-get (cdr image) :data)
+				    (car set-size)(cdr set-size)
+				    handler))
+			(if resized (plist-put (cdr image) :data resized))
+			image))
+		  image))
+	    image))))))
+
+(defun w3m-create-resized-image (url rate &optional referer size handler)
+  "Resize an cached image object.
+URL is the image file's url.
+RATE is resize percentage.
+If REFERER is non-nil, it is used as Referer: field.
+If SIZE is non-nil, its car element is used as width
+and its cdr element is used as height."
+  (if (not handler)
+      (w3m-process-with-wait-handler
+	(w3m-create-image url nil referer size handler))
+    (lexical-let ((url url)
+		  (rate rate)
+		  image)
+      (w3m-process-do-with-temp-buffer
+	  (type (progn
+		  (set-buffer-multibyte nil)
+		  (w3m-retrieve url nil nil nil referer handler)))
+	(when (w3m-image-type-available-p (setq type (w3m-image-type type)))
+	  (setq image (create-image (buffer-string) type t :ascent 'center))
+	  (progn
+	    (set-buffer-multibyte t)
+	    (w3m-process-do
+		(resized (w3m-resize-image-by-rate
+			  (plist-get (cdr image) :data)
+			  rate
+			  handler))
+	      (if resized (plist-put (cdr image) :data resized))
+	      image)))))))
+
+(defun w3m-insert-image (beg end image &rest args)
+  "Display image on the current buffer.
+Buffer string between BEG and END are replaced with IMAGE."
+  (let ((faces (get-text-property beg 'face))
+	(idx 0)
+	orig len face)
+    (add-text-properties beg end (list 'display image
+				       'intangible image
+				       'invisible nil))
+    ;; Hide underlines behind inline images.
+    ;; Gerd Moellmann <[e-mail]>, the maintainer of Emacs 21, wrote in
+    ;; the article <[e-mail]> in the list emacs-pretest-
+    ;; [e-mail] on 18 May 2001 that to show an underline of a text even
+    ;; if it has an image as a text property is the feature of Emacs 21.
+    ;; However, that behavior is not welcome to the w3m buffers, so we do
+    ;; to fix it with the following stuffs.
+    (when faces
+      (unless (listp faces)
+	(setq faces (list faces)))
+      (setq orig (copy-sequence faces)
+	    len (length orig))
+      (while (< idx len)
+	(when (face-underline-p (setq face (nth idx orig)))
+	  (setq faces (delq face faces)))
+	(setq idx (1+ idx)))
+      (when (< (length faces) len)
+	(put-text-property beg end 'face faces)
+	(put-text-property beg end 'w3m-faces-with-underline orig)))))
+
+(defun w3m-remove-image (beg end)
+  "Remove an image which is inserted between BEG and END."
+  (remove-text-properties beg end '(display nil intangible nil))
+  (let ((underline (get-text-property beg 'w3m-faces-with-underline)))
+    (when underline
+      (add-text-properties
+       beg end (list 'face underline 'w3m-faces-with-underline nil)))))
+
+(defun w3m-image-type-available-p (image-type)
+  "Return non-nil if an image with IMAGE-TYPE can be displayed inline."
+  (and (display-images-p)
+       (image-type-available-p image-type)))
+
+;;; Form buttons
+(defface w3m-form-button
+  '((((type x w32 mac ns) (class color))
+     :background "lightgrey" :foreground "black"
+     :box (:line-width 2 :style released-button))
+    (((class color) (background light)) (:foreground "cyan" :underline t))
+    (((class color) (background dark)) (:foreground "red" :underline t))
+    (t (:underline t)))
+  "*Face to fontify buttons in forms."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-form-button-face 'face-alias 'w3m-form-button)
+
+(defface w3m-form-button-mouse
+  '((((type x w32 mac ns) (class color))
+     :background "DarkSeaGreen1" :foreground "black"
+     :box (:line-width 2 :style released-button))
+    (((class color) (background light)) (:foreground "cyan" :underline t))
+    (((class color) (background dark)) (:foreground "red" :underline t))
+    (t (:underline t)))
+  "*Face to fontify focused buttons in forms."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-form-button-mouse-face 'face-alias 'w3m-form-button-mouse)
+
+(defface w3m-form-button-pressed
+  '((((type x w32 mac ns) (class color))
+     :background "lightgrey" :foreground "black"
+     :box (:line-width 2 :style pressed-button))
+    (((class color) (background light)) (:foreground "cyan" :underline t))
+    (((class color) (background dark)) (:foreground "red" :underline t))
+    (t (:underline t)))
+  "*Face to fontify pressed buttons in forms."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-form-button-pressed-face 'face-alias 'w3m-form-button-pressed)
+
+(defvar w3m-form-button-keymap
+  (let ((map (copy-keymap widget-keymap)))
+    (substitute-key-definition 'widget-forward nil map)
+    (substitute-key-definition 'widget-backward nil map)
+    map))
+
+(define-widget 'w3m-form-button 'push-button
+  "Widget for w3m form button."
+  :keymap w3m-form-button-keymap
+  :action (function (lambda (widget &optional e)
+		      (eval (widget-get widget :w3m-form-action)))))
+
+(defun w3m-form-make-button (start end properties)
+  "Make button on the region from START to END."
+  (if w3m-form-use-fancy-faces
+      (progn
+	(unless (memq (face-attribute 'w3m-form-button :box)
+		      '(nil unspecified))
+	  (and (eq ?\[ (char-after start))
+	       (eq ?\] (char-before end))
+	       (save-excursion
+		 (goto-char start)
+		 (delete-char 1)
+		 (insert " ")
+		 (goto-char end)
+		 (delete-char -1)
+		 (insert " ")
+		 (setq start (1+ start)
+		       end (1- end)))))
+	(let ((w (widget-convert-button
+		  'w3m-form-button start end
+		  :w3m-form-action (plist-get properties 'w3m-action))))
+	  (overlay-put (widget-get w :button-overlay) 'evaporate t))
+	(add-text-properties start end properties))
+    (w3m-add-text-properties start end (append '(face w3m-form) properties))))
+
+(defun w3m-setup-widget-faces ()
+  (make-local-variable 'widget-button-face)
+  (make-local-variable 'widget-mouse-face)
+  (make-local-variable 'widget-button-pressed-face)
+  (setq widget-button-face 'w3m-form-button)
+  (setq widget-mouse-face 'w3m-form-button-mouse)
+  (setq widget-button-pressed-face 'w3m-form-button-pressed))
+
+;;; Menu bar
+(defun w3m-menu-on-forefront (arg &optional curbuf)
+  "Place emacs-w3m menus on the forfront of the menu bar if ARG is non-nil.
+If CURBUF is given, this function works only in the current buffer,
+otherwise works in all the emacs-w3m buffers."
+  (if curbuf
+      (if arg
+	  (let ((items (mapcar 'car (cdr (lookup-key global-map [menu-bar])))))
+	    (when items
+	      (set (make-local-variable 'menu-bar-final-items) items)))
+	(kill-local-variable 'menu-bar-final-items))
+    (save-current-buffer
+      (dolist (buffer (w3m-list-buffers t))
+	(set-buffer buffer)
+	(w3m-menu-on-forefront arg t)))))
+
+;;; Toolbar
+(defcustom w3m-use-toolbar
+  (and (featurep 'tool-bar)
+       ;; Emacs 22 and greater return t for `(featurep 'tool-bar)'
+       ;; even if being launched with the -nw option.
+       (display-images-p)
+       (or (featurep 'gtk)
+	   (image-type-available-p 'xpm)))
+  "Non-nil activates toolbar of w3m."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-toolbar-icon-preferred-image-types
+  (if (featurep 'gtk)
+      '(png)
+    '(xpm))
+  "List of image types that you prefer to use for the tool bar icons.
+By default, `png' is most preferred for Emacs built with GTK and `xpm'
+is for others."
+  :group 'w3m
+  :type '(repeat (symbol :tag "Image type"))
+  :set (lambda (symbol value)
+	 (prog1
+	     (custom-set-default symbol value)
+	   (when (and (not noninteractive) (boundp 'w3m-toolbar-buttons))
+	     (w3m-update-toolbars)))))
+
+(defcustom w3m-toolbar-use-single-image-per-icon nil
+  "Non-nil means use single image (named possibly *-up) per icon.
+If it is nil, subsidiaries, e.g., *-down and *-disabled, if any, are
+used together."
+  :group 'w3m
+  :type 'boolean
+  :set (lambda (symbol value)
+	 (prog1
+	     (custom-set-default symbol value)
+	   (when (and (not noninteractive) (boundp 'w3m-toolbar-buttons))
+	     (w3m-update-toolbars)))))
+
+(defcustom w3m-toolbar-configurations
+  `((tool-bar-button-margin . global)
+    ,@(unless (featurep 'gtk)
+	'((tool-bar-button-relief . global))))
+  "Alist of the variables and the values controls the tool bar appearance.
+The value `global' means to use the global value of the variable.
+
+If you're annoyed with changing of the frame height of Emacs built for
+GTK because of the difference of the sizes between the emacs-w3m tool
+bar icons and the ones that Emacs natively uses, try customizing this
+variable or both the value of this variable and the global value of
+`tool-bar-button-margin'.  For examples:
+
+;; The case where the emacs-w3m icons are smaller than the others.
+\(setq w3m-toolbar-configurations '((tool-bar-button-margin . 5)))
+
+;; The case where the emacs-w3m icons are bigger than the others.
+\(setq w3m-toolbar-configurations '((tool-bar-button-margin . 0))
+      tool-bar-button-margin 7)"
+  :group 'w3m
+  :type '(repeat (cons :format "%v"
+		       (symbol :tag "Variable")
+		       (radio :format "%v"
+			      (const :format "%v " global)
+			      (sexp :tag "Local Value"))))
+  :set (lambda (symbol value)
+	 (prog1
+	     (custom-set-default symbol value)
+	   (when (and (not noninteractive) (featurep 'w3m))
+	     (w3m-toolbar-set-configurations)))))
+
+(defun w3m-toolbar-define-keys (keymap defs)
+  ;; Invalidate the default bindings.
+  (let ((keys (cdr (key-binding [tool-bar] t)))
+	item)
+    (while (setq item (pop keys))
+      (when (setq item (car-safe item))
+	(define-key keymap (vector 'tool-bar item) 'undefined))))
+  (let ((n (length defs))
+	def)
+    (while (>= n 0)
+      (setq n (1- n)
+	    def (nth n defs))
+      (define-key keymap (vector 'tool-bar (aref def 1))
+	(list 'menu-item (aref def 3) (aref def 1)
+	      :enable (aref def 2)
+	      :image (symbol-value (aref def 0)))))))
+
+(defun w3m-find-image (name &optional directory)
+  "Find image file for NAME and return cons of file name and type.
+This function searches only in DIRECTORY, that defaults to the value of
+`w3m-icon-directory', for an image file of which the base name is NAME.
+Files of types that Emacs does not support are ignored."
+  (unless directory
+    (setq directory w3m-icon-directory))
+  (when (and directory
+	     (file-directory-p directory)
+	     (display-images-p))
+    (let* ((case-fold-search nil)
+	   (files (directory-files directory t
+				   (concat "\\`" (regexp-quote name) "\\.")))
+	   (types (append w3m-toolbar-icon-preferred-image-types image-types))
+	   file type rest)
+      (while files
+	(when (string-match "\\.\\([^.]+\\)\\'" (setq file (pop files)))
+	  (setq type (intern (downcase (match-string 1 file))))
+	  (setq type (or (cdr (assq type '((tif . tiff)
+					   (jpg . jpeg)
+					   (ps . postscript)
+					   (pgm . pbm)
+					   (ppm . pbm))))
+			 type))
+	  (push (cons file (memq type types)) rest)))
+      (setq rest (car (sort rest (lambda (a b) (> (length a) (length b))))))
+      (when (cdr rest)
+	(cons (car rest) (cadr rest))))))
+
+(defun w3m-toolbar-make-buttons (buttons &optional force)
+  (let ((xpm-props '(:color-symbols (("backgroundToolBarColor" . "None"))))
+	button icon down disabled up)
+    (while buttons
+      (setq button (pop buttons)
+	    icon (intern (concat "w3m-toolbar-" button "-icon")))
+      (when (or force (not (boundp icon)))
+	(setq down (w3m-find-image (concat button "-down"))
+	      disabled (w3m-find-image (concat button "-disabled")))
+	(if (setq up (or (w3m-find-image (concat button "-up"))
+			 (prog1
+			     (or down disabled (w3m-find-image button))
+			   (setq down nil
+				 disabled nil))))
+	    (progn
+	      (setq up (apply 'create-image (car up) (cdr up) nil
+			      :ascent 'center
+			      (when (eq (cdr up) 'xpm)
+				xpm-props)))
+	      (if (or w3m-toolbar-use-single-image-per-icon
+		      (not (or down disabled)))
+		  (set icon up)
+		(when down
+		  (setq down (apply 'create-image (car down) (cdr down) nil
+				    :ascent 'center
+				    (when (eq (cdr up) 'xpm)
+				      xpm-props))))
+		(when disabled
+		  (setq disabled (apply 'create-image
+					(car disabled) (cdr disabled) nil
+					:ascent 'center
+					(when (eq (cdr disabled) 'xpm)
+					  xpm-props))))
+		(set icon (vector down up disabled disabled))))
+	  (error "Icon file %s-up.* not found" button))))))
+
+(defun w3m-toolbar-set-configurations (&optional curbuf)
+  "Set values of variables according to `w3m-toolbar-configurations'.
+If CURBUF is given, this function works only in the current buffer,
+otherwise works in all the emacs-w3m buffers."
+  (if curbuf
+      (dolist (config w3m-toolbar-configurations)
+	(if (eq (cdr config) 'global)
+	    (kill-local-variable (car config))
+	  (set (make-local-variable (car config)) (cdr config))))
+    (let ((cur (selected-frame))
+	  buffer buffers)
+      (walk-windows
+       (lambda (window)
+	 (setq buffer (window-buffer window))
+	 (unless (memq buffer buffers)
+	   (set-buffer buffer)
+	   (when (eq major-mode 'w3m-mode)
+	     (push buffer buffers)
+	     (select-frame (window-frame window))
+	     ;;(set-buffer buffer)
+	     (w3m-toolbar-set-configurations t))))
+       'ignore 'visible)
+      (select-frame-set-input-focus cur)
+      (save-current-buffer
+	(dolist (buffer (w3m-list-buffers t))
+	  (unless (memq buffer buffers)
+	    (set-buffer buffer)
+	    (w3m-toolbar-set-configurations t))))
+      (select-frame-set-input-focus cur))))
+
+(defun w3m-setup-toolbar ()
+  (when (and w3m-use-toolbar
+	     (w3m-find-image "antenna-up"))
+    (w3m-toolbar-make-buttons w3m-toolbar-buttons)
+    (w3m-toolbar-set-configurations t)
+    (w3m-toolbar-define-keys w3m-mode-map w3m-toolbar)))
+
+(defalias 'w3m-update-toolbar 'ignore)
+
+(defun w3m-update-toolbars ()
+  (when (and w3m-use-toolbar
+	     (w3m-find-image "antenna-up"))
+    (w3m-toolbar-make-buttons w3m-toolbar-buttons t)
+    (w3m-toolbar-set-configurations)
+    (w3m-toolbar-define-keys w3m-mode-map w3m-toolbar)))
+
+;;; Header line & Tabs
+(defcustom w3m-tab-width 16
+  "w3m tab width."
+  :group 'w3m
+  :set (lambda (symbol value)
+	 (custom-set-default symbol
+			     (if (and (numberp value) (> value 0))
+				 value
+			       16)))
+  :type '(integer :size 0))
+
+(defface w3m-tab-unselected
+  '((((type x w32 mac ns) (class color))
+     :background "Gray70" :foreground "Gray20"
+     :box (:line-width -1 :style released-button))
+    (((class color))
+     (:background "blue" :foreground "black")))
+  "*Face to fontify unselected tabs."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-unselected-face 'face-alias 'w3m-tab-unselected)
+
+(defface w3m-tab-unselected-retrieving
+  '((((type x w32 mac ns) (class color))
+     :background "Gray70" :foreground "OrangeRed"
+     :box (:line-width -1 :style released-button))
+    (((class color))
+     (:background "blue" :foreground "OrangeRed")))
+  "*Face to fontify unselected tabs which are retrieving their pages."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-unselected-retrieving-face
+     'face-alias 'w3m-tab-unselected-retrieving)
+
+(defface w3m-tab-unselected-unseen
+  '((((type x w32 mac ns) (class color))
+     :background "Gray70" :foreground "Gray20"
+     :box (:line-width -1 :style released-button))
+    (((class color))
+     (:background "blue" :foreground "gray60")))
+  "*Face to fontify unselected and unseen tabs."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-unselected-unseen-face 'face-alias 'w3m-tab-unselected-unseen)
+
+(defface w3m-tab-selected
+  '((((type x w32 mac ns) (class color))
+     :background "Gray90" :foreground "black"
+     :box (:line-width -1 :style released-button))
+    (((class color))
+     (:background "cyan" :foreground "black"))
+    (t (:underline t)))
+  "*Face to fontify selected tab."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-selected-face 'face-alias 'w3m-tab-selected)
+
+(defface w3m-tab-selected-retrieving
+  '((((type x w32 mac ns) (class color))
+     :background "Gray90" :foreground "red"
+     :box (:line-width -1 :style released-button))
+    (((class color))
+     (:background "cyan" :foreground "red"))
+    (t (:underline t)))
+  "*Face to fontify selected tab which is retrieving its page."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-selected-retrieving-face
+     'face-alias 'w3m-tab-selected-retrieving)
+
+(defface w3m-tab-background
+  '((((type x w32 mac ns) (class color))
+     :background "LightSteelBlue" :foreground "black")
+    (((class color))
+     (:background "white" :foreground "black")))
+  "*Face to fontify background of tab line."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-background-face 'face-alias 'w3m-tab-background)
+
+(defface w3m-tab-selected-background
+  '((((type x w32 mac ns) (class color))
+     :background "LightSteelBlue" :foreground "black")
+    (((class color))
+     (:background "white" :foreground "black")))
+  "*Face to fontify selected background tab."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-selected-background-face
+     'face-alias 'w3m-tab-selected-background)
+
+(defface w3m-tab-mouse
+  '((((type x w32 mac ns) (class color))
+     :background "Gray75" :foreground "white"
+     :box (:line-width -1 :style released-button)))
+  "*Face used to highlight tabs under the mouse."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-tab-mouse-face 'face-alias 'w3m-tab-mouse)
+
+(defvar w3m-modeline-spinner-map nil
+  "Keymap used on the spinner in the mode-line.")
+
+(defvar w3m-spinner-map-help-echo "mouse-2 kills the current process"
+  "String used for the :help-echo property on the spinner.")
+
+(defun w3m-setup-header-line ()
+  (setq header-line-format
+	(cond (w3m-use-tab
+	       '(:eval (w3m-tab-line)))
+	      (w3m-use-header-line
+	       (list
+		(if w3m-use-header-line-title
+		    (list
+		     (propertize
+		      "Title: "
+		      'face (list 'w3m-header-line-location-title))
+		     `(:eval
+		       (propertize
+			(replace-regexp-in-string "%" "%%" (w3m-current-title))
+			'face (list 'w3m-header-line-location-content)
+			'mouse-face '(highlight :foreground
+						,(face-foreground 'default))
+			'local-map (let ((map (make-sparse-keymap)))
+				     (define-key map [header-line mouse-2]
+				       'w3m-goto-url)
+				     map)
+			'help-echo "mouse-2 prompts to input URL"))
+		     ", ")
+		  "")
+		 (propertize
+		  "Location: "
+		  'face (list 'w3m-header-line-location-title))
+		 `(:eval
+		  (propertize
+		   (if (stringp w3m-current-url)
+		       (replace-regexp-in-string "%" "%%" w3m-current-url)
+		     "")
+		   'face (list 'w3m-header-line-location-content)
+		   'mouse-face '(highlight :foreground
+					   ,(face-foreground 'default))
+		   'local-map (let ((map (make-sparse-keymap)))
+				(define-key map [header-line mouse-2]
+				  'w3m-goto-url)
+				map)
+		   'help-echo "mouse-2 prompts to input URL")))))))
+
+(eval-when-compile
+  ;; Shut up the byte-compiler for old Emacsen.
+  (unless (fboundp 'force-window-update)
+    (defalias 'force-window-update 'ignore)))
+
+(eval-and-compile
+  (defalias 'w3m-force-window-update
+    (if (and (fboundp 'force-window-update)
+	     (not (eq (symbol-function 'force-window-update) 'ignore)))
+	(lambda (&optional window) "\
+Force redisplay of WINDOW which defaults to the selected window."
+	  (force-window-update (or window (selected-window))))
+      (lambda (&optional ignore) "\
+Wobble the selected window to force redisplay of the header-line."
+	(save-window-excursion
+	  (split-window-vertically))))))
+
+(defun w3m-tab-drag-mouse-function (event buffer)
+  (let ((window (posn-window (event-end event)))
+	mpos)
+    (when (framep window) ; dropped at outside of the frame.
+      (setq window nil
+	    mpos (mouse-position))
+      (and (framep (car mpos))
+	   (car (cdr mpos))
+	   (cdr (cdr mpos))
+	   (setq window (window-at (car (cdr mpos))
+				   (cdr (cdr mpos))
+				   (car mpos))))
+      (unless window
+	(when (one-window-p 'nomini)
+	  (split-window))
+	(setq window (next-window))))
+    (unless (eq (window-buffer window) buffer)
+      (select-window window)
+      (switch-to-buffer buffer)
+      (w3m-force-window-update window))))
+
+(defun w3m-tab-click-mouse-function (event buffer)
+  (let ((window (posn-window (event-start event))))
+    (select-window window)
+    (switch-to-buffer buffer)
+    (w3m-force-window-update window)))
+
+(defun w3m-tab-double-click-mouse1-function (event buffer)
+  (let ((window (posn-window (event-start event))))
+    (when (eq major-mode 'w3m-mode)
+      (if w3m-new-session-in-background
+	  (save-window-excursion
+	    (w3m-copy-buffer))
+	(w3m-copy-buffer)))
+    (w3m-force-window-update window)))
+
+(defun w3m-tab-double-click-mouse2-function (event buffer)
+  (let ((window (posn-window (event-start event))))
+    (when (eq major-mode 'w3m-mode)
+      (w3m-delete-buffer))
+    (w3m-force-window-update window)))
+
+(defvar w3m-tab-line-format nil
+  "Internal variable used to keep contents to be shown in the header-line.
+This is a buffer-local variable.")
+(make-variable-buffer-local 'w3m-tab-line-format)
+
+(defvar w3m-tab-timer nil
+  "Internal variable used to say time has not gone by after the tab-line
+was updated last time.  It is used to control the `w3m-tab-line'
+function running too frequently, set by the function itself and
+cleared by a timer.")
+(make-variable-buffer-local 'w3m-tab-timer)
+
+(defcustom w3m-tab-track-mouse t
+  "Say whether to make the mouse track the selected tab.
+It controls the behavior of the commands `w3m-tab-previous-buffer',
+`w3m-tab-next-buffer', `w3m-tab-move-right', and `w3m-tab-move-left'
+invoked by the mouse.
+
+You may want to set this to nil if you use a proportional font for the
+tab faces.  See also `w3m-tab-mouse-position-adjuster'."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-tab-mouse-position-adjuster '(0.5 . -4)
+  "Values used to adjust the mouse position on tabs.
+It is used when the command `w3m-tab-previous-buffer',
+`w3m-tab-next-buffer', `w3m-tab-move-right', or `w3m-tab-move-left' is
+invoked by the mouse.  The value consists of the cons of a floating
+point number M and an integer N that are applied to calculating of the
+mouse position, which is given in pixel units, as follows:
+
+  (TAB_WIDTH + M) * ORDER + N
+
+Where TAB_WIDTH is the pixel width of a tab and ORDER is the order
+number in tabs.  The result is rounded towards zero.
+
+Note that the calculation will always fail if you use a proportional
+font for the tab faces.  See also `w3m-tab-track-mouse'."
+  :group 'w3m
+  :type '(cons (number :tag "M") (integer :tag "N")))
+
+(defun w3m-tab-mouse-track-selected-tab (event order
+					       &optional buffers decelerate)
+  "Make the mouse track the selected tab.
+EVENT is a command event.  ORDER is the order number in tabs.
+The optional BUFFERS is a list of emacs-w3m buffers, DECELERATE if it
+is non-nil means not to respond to too fast operation of mouse wheel."
+  (when (and w3m-use-tab window-system w3m-tab-track-mouse
+	     (consp event) (symbolp (car event)))
+    (let ((e (get (car event) 'event-symbol-elements))
+	  (len (* (car w3m-tab-mouse-position-adjuster) order))
+	  (fcw (frame-char-width))
+	  posn tab start end disp next)
+      (when (and (consp e) (symbolp (car e))
+		 (or (memq (car e) '(mouse-4 mouse-5 wheel-up wheel-down))
+		     (string-match "\\`mouse-" (symbol-name (car e)))))
+	;; Ignore values gotten by the mouse pointing to other frames.
+	;; It might happen if the frame in question gets out of focus
+	;; by a certain desktop tool such as unclutter.
+	(let ((frame (selected-frame)))
+	  (while (not (cadr (setq posn (mouse-pixel-position))))
+	    (select-frame-set-input-focus frame)))
+	;; Update the header line.
+	(setq w3m-tab-timer nil)
+	(sit-for 0)
+	(setq tab w3m-tab-line-format)
+	(with-temp-buffer
+	  (insert tab)
+	  (setq start (point-min)
+		end (point))
+	  (while (and (> order  0)
+		      (setq start (text-property-any start end
+						     'tab-separator t))
+		      (setq start (text-property-not-all start end
+							 'tab-separator t)))
+	    (setq order (1- order)))
+	  (setq end (1- start)
+		start (point-min)
+		next start
+		disp (get-text-property start 'display))
+	  (while (and (< next end)
+		      (setq next (next-single-property-change
+				  start 'display nil end)))
+	    (setq len (+ (cond
+			  ((eq (car disp) 'image)
+			   (or (car w3m-favicon-size) (frame-char-height)))
+			  ((eq (car disp) 'space)
+			   (* (or (plist-get (cdr disp) :width) 1) fcw))
+			  (t
+			   (* (string-width (buffer-substring start next))
+			      fcw)))
+			 len)
+		  start next
+		  disp (get-text-property start 'display))))
+	(set-mouse-pixel-position
+	 (car posn)
+	 (truncate (+ len (cdr w3m-tab-mouse-position-adjuster)))
+	 (cddr posn))
+	(when decelerate
+	  (sleep-for 0.1))
+	(discard-input)))))
+
+(defun w3m-tab-next-buffer (&optional n event)
+  "Turn N pages of emacs-w3m buffers ahead."
+  (interactive (list (prefix-numeric-value current-prefix-arg)
+		     last-command-event))
+  (unless n (setq n 1))
+  (when (and (/= n 0) (eq major-mode 'w3m-mode))
+    (let ((buffers (w3m-list-buffers)))
+      (switch-to-buffer
+       (nth (mod (+ n (w3m-buffer-number (current-buffer)) -1)
+		 (length buffers))
+	    buffers))
+      (run-hooks 'w3m-select-buffer-hook)
+      (w3m-select-buffer-update)
+      (w3m-tab-mouse-track-selected-tab
+       event (w3m-buffer-number (current-buffer)) buffers))))
+
+(defun w3m-tab-previous-buffer (&optional n event)
+  "Turn N pages of emacs-w3m buffers behind."
+  (interactive (list (prefix-numeric-value current-prefix-arg)
+		     last-command-event))
+  (w3m-tab-next-buffer (- n) event))
+
+(defun w3m-tab-move-right (&optional n event)
+  "Move this tab N times to the right (to the left if N is negative)."
+  (interactive (list (prefix-numeric-value current-prefix-arg)
+		     last-command-event))
+  (unless n (setq n 1))
+  (when (and (/= n 0) (eq major-mode 'w3m-mode))
+    (let* ((buffers (if (> n 0)
+			(w3m-list-buffers)
+		      (setq n (- n))
+		      (nreverse (w3m-list-buffers))))
+	   (dest (or (nth n (memq (current-buffer) buffers))
+		     (car (last buffers))))
+	   (next (w3m-buffer-number dest))
+	   (cur (w3m-buffer-number (current-buffer)))
+	   e posn start)
+      (rename-buffer "*w3m*<0>")
+      (w3m-buffer-set-number dest cur)
+      (w3m-buffer-set-number (current-buffer) next)
+      (w3m-select-buffer-update)
+      (w3m-tab-mouse-track-selected-tab event next buffers t))))
+
+(defun w3m-tab-move-left (&optional n event)
+  "Move this tab N times to the left (to the right if N is negative)."
+  (interactive (list (prefix-numeric-value current-prefix-arg)
+		     last-command-event))
+  (w3m-tab-move-right (- n) event))
+
+(defvar w3m-tab-map nil)
+(make-variable-buffer-local 'w3m-tab-map)
+
+(defvar w3m-tab-spinner-map nil)
+(make-variable-buffer-local 'w3m-tab-spinner-map)
+
+(defun w3m-tab-make-keymap ()
+  (unless w3m-tab-map
+    (setq w3m-tab-map (make-sparse-keymap))
+    (let* ((cur (current-buffer))
+	   (f1 (lambda (fn) `(lambda (e) (interactive "e") (,fn e ,cur))))
+	   (f2 (lambda (fn) `(lambda (e)
+			       (interactive "e")
+			       (select-window (posn-window (event-start e)))
+			       (switch-to-buffer ,cur)
+			       (setq this-command ',fn)
+			       (,fn 1 e))))
+	   (drag-action (funcall f1 'w3m-tab-drag-mouse-function))
+	   (single-action (funcall f1 'w3m-tab-click-mouse-function))
+	   (double-action1 (funcall f1 'w3m-tab-double-click-mouse1-function))
+	   (double-action2 (funcall f1 'w3m-tab-double-click-mouse2-function))
+	   (menu-action (funcall f1 'w3m-tab-button-menu))
+	   (menu-action2 (funcall f1 'w3m-tab-button-menu2))
+	   (next-buffer-action (funcall f2 'w3m-tab-next-buffer))
+	   (previous-buffer-action (funcall f2 'w3m-tab-previous-buffer))
+	   (move-left-action (funcall f2 'w3m-tab-move-left))
+	   (move-right-action (funcall f2 'w3m-tab-move-right)))
+      (define-key w3m-tab-map [header-line down-mouse-1] 'ignore)
+      (define-key w3m-tab-map [header-line down-mouse-2] 'ignore)
+      (define-key w3m-tab-map [header-line mouse-1] single-action)
+      (define-key w3m-tab-map [header-line mouse-2] single-action)
+      (define-key w3m-tab-map [header-line drag-mouse-1] drag-action)
+      (define-key w3m-tab-map [header-line drag-mouse-2] drag-action)
+      (define-key w3m-tab-map [header-line double-mouse-1] double-action1)
+      (define-key w3m-tab-map [header-line double-mouse-2] double-action2)
+      (define-key w3m-tab-map [header-line mouse-3] menu-action)
+      (define-key w3m-tab-map [header-line wheel-up] previous-buffer-action)
+      (define-key w3m-tab-map [header-line wheel-down] next-buffer-action)
+      (define-key w3m-tab-map [header-line mouse-4] previous-buffer-action)
+      (define-key w3m-tab-map [header-line mouse-5] next-buffer-action)
+      (define-key w3m-tab-map [header-line C-wheel-up] move-left-action)
+      (define-key w3m-tab-map [header-line C-wheel-down] move-right-action)
+      (define-key w3m-tab-map [header-line C-mouse-4] move-left-action)
+      (define-key w3m-tab-map [header-line C-mouse-5] move-right-action)
+      (define-key w3m-mode-map [header-line double-mouse-1]
+	'w3m-goto-new-session-url)
+      (define-key w3m-mode-map [header-line mouse-3] menu-action2)
+      ;; The following bindings in `w3m-mode-map', not `w3m-tab-map',
+      ;; are required for some platforms, in which mouse wheel events
+      ;; sometimes pass by `w3m-tab-map' for the unresolved reason and
+      ;; see `w3m-mode-map', or else the `undefined' errors will arise.
+      (define-key w3m-mode-map [header-line mouse-4] 'w3m-tab-previous-buffer)
+      (define-key w3m-mode-map [header-line mouse-5] 'w3m-tab-next-buffer)
+      (define-key w3m-mode-map [header-line wheel-up] 'w3m-tab-previous-buffer)
+      (define-key w3m-mode-map [header-line wheel-down] 'w3m-tab-next-buffer)
+      (define-key w3m-mode-map [header-line C-wheel-up] 'w3m-tab-move-left)
+      (define-key w3m-mode-map [header-line C-wheel-down] 'w3m-tab-move-right)
+      (define-key w3m-mode-map [header-line C-mouse-4] 'w3m-tab-move-left)
+      (define-key w3m-mode-map [header-line C-mouse-5] 'w3m-tab-move-right))
+    (unless w3m-tab-spinner-map
+      (setq w3m-tab-spinner-map (make-sparse-keymap))
+      (define-key w3m-tab-spinner-map [header-line mouse-2]
+	`(lambda (e)
+	   (interactive "e")
+	   (save-current-buffer
+	     ;; Why the `(w3m-process-stop BUFFER)' doesn't work?
+	     (set-buffer ,(current-buffer))
+	     (call-interactively 'w3m-process-stop)))))))
+
+(defvar w3m-tab-half-space
+  (propertize " " 'display '(space :width 0.5))
+  "The space of half width.")
+
+(defvar w3m-tab-separator-map nil)
+
+(unless w3m-tab-separator-map
+  (let ((map (make-sparse-keymap)))
+    (setq w3m-tab-separator-map map)
+    (define-key map [header-line wheel-up] 'w3m-tab-previous-buffer)
+    (define-key map [header-line wheel-down] 'w3m-tab-next-buffer)
+    (define-key map [header-line mouse-4] 'w3m-tab-previous-buffer)
+    (define-key map [header-line mouse-5] 'w3m-tab-next-buffer)
+    (define-key map [header-line C-wheel-up] 'w3m-tab-move-left)
+    (define-key map [header-line C-wheel-down] 'w3m-tab-move-right)
+    (define-key map [header-line C-mouse-4] 'w3m-tab-move-left)
+    (define-key map [header-line C-mouse-5] 'w3m-tab-move-right)))
+
+(defvar w3m-tab-separator
+  (propertize " "
+	      'face (list 'w3m-tab-background)
+	      'mouse-face 'w3m-tab-selected-background
+	      'display '(space :width 0.5)
+	      'tab-separator t
+	      'local-map w3m-tab-separator-map)
+  "String used to separate tabs.")
+
+(defun w3m-tab-line ()
+  (or (and w3m-tab-timer w3m-tab-line-format)
+      (let* ((current (current-buffer))
+	     (buffers (w3m-list-buffers))
+	     (breadth 1)
+	     (number 0)
+	     (fringes (window-fringes))
+	     (width (+ (window-width)
+		       (/ (float (+ (or (car fringes) 0)
+				    (or (nth 1 fringes) 0)))
+			  (frame-char-width))
+		       ;; Assume that the vertical scroll-bar has
+		       ;; the width of two space characters.
+		       (if (car (frame-current-scroll-bars)) 2 0)))
+	     (nbuf (length buffers))
+	     (graphic (and window-system
+			   w3m-show-graphic-icons-in-header-line))
+	     (margin (if window-system
+			 (+ (if graphic 3.0 0.5)
+			    ;; Right and left shadows.
+			    (/ 2.0 (frame-char-width)))
+		       1))
+	     (spinner (when w3m-process-queue
+			(w3m-make-spinner-image)))
+	     buffer title data datum process unseen favicon keymap face icon
+	     line)
+	(setq w3m-tab-timer t)
+	(run-at-time 0.1 nil
+		     (lambda (buffer)
+		       (when (buffer-live-p buffer)
+			 (with-current-buffer buffer
+			   (setq w3m-tab-timer nil)
+			   (when (and (eq (selected-window)
+					  (get-buffer-window buffer))
+				      w3m-process-queue)
+			     (inline (w3m-force-window-update))))))
+		     current)
+	(save-current-buffer
+	  (while buffers
+	    (set-buffer (setq buffer (pop buffers)))
+	    (setq number (1+ number))
+	    (setq title (if w3m-add-tab-number
+			    (format "%d.%s" number (w3m-current-title))
+			  (w3m-current-title)))
+	    (setq breadth
+		  (max breadth
+		       ;; There may be a wide character in the beginning of
+		       ;; the title.
+		       (if (> (length title) 0)
+			   (char-width (aref title 0))
+			 0)))
+	    (push (list (eq current buffer)
+			w3m-current-process
+			(w3m-unseen-buffer-p buffer)
+			title
+			(when w3m-use-favicon w3m-favicon-image)
+			w3m-tab-map)
+		  data)))
+	(setq width (if (> (* nbuf (+ margin w3m-tab-width)) width)
+			(max (truncate (- (/ width nbuf) margin)) breadth)
+		      w3m-tab-width))
+	(while data
+	  (setq datum (pop data)
+		current (car datum)
+		process (nth 1 datum)
+		unseen (nth 2 datum)
+		title (nth 3 datum)
+		favicon (nth 4 datum)
+		keymap (nth 5 datum)
+		face (list
+		      (if process
+			  (if current
+			      'w3m-tab-selected-retrieving
+			    'w3m-tab-unselected-retrieving)
+			(if current
+			    'w3m-tab-selected
+			  (if unseen
+			      'w3m-tab-unselected-unseen
+			    'w3m-tab-unselected))))
+		icon (when graphic
+		       (cond
+			(process
+			 (when spinner
+			   (propertize
+			    " "
+			    'display spinner
+			    'face face
+			    'local-map w3m-tab-spinner-map
+			    'help-echo w3m-spinner-map-help-echo)))
+			(favicon
+			 (propertize
+			  " "
+			  'display favicon
+			  'face face
+			  'local-map keymap
+			  'help-echo title))))
+		breadth (cond (icon width)
+			      (graphic (+ 2 width))
+			      (t width)))
+	  (push
+	   (list
+	    icon
+	    (propertize
+	     (concat
+	      (when graphic w3m-tab-half-space)
+	      (replace-regexp-in-string
+	       "%" "%%"
+	       (if (and (> (string-width title) breadth)
+			(> breadth 6))
+		   (truncate-string-to-width
+		    (concat (truncate-string-to-width title (- breadth 3))
+			    "...")
+		    breadth nil ?.)
+		 (truncate-string-to-width title breadth nil ?\ ))))
+	     'face face
+	     'mouse-face 'w3m-tab-mouse
+	     'local-map keymap
+	     'help-echo title)
+	    w3m-tab-separator)
+	   line))
+	(setq w3m-tab-line-format
+	      (concat (apply 'concat (apply 'nconc line))
+		      (propertize (make-string (window-width) ?\ )
+				  'face (list 'w3m-tab-background)
+				  'mouse-face 'w3m-tab-selected-background
+				  'local-map w3m-tab-separator-map))))))
+
+(add-hook 'w3m-mode-setup-functions 'w3m-tab-make-keymap)
+(add-hook 'w3m-mode-setup-functions 'w3m-setup-header-line)
+(add-hook 'w3m-mode-setup-functions 'w3m-setup-widget-faces)
+(add-hook 'w3m-select-buffer-hook 'w3m-force-window-update)
+
+;; Graphic icons.
+(defcustom w3m-space-before-modeline-icon ""
+  "String of space character(s) to be put in front of the mode-line icon.
+It may be better to use one or more spaces if you are using oblique or
+italic font in the modeline."
+  :group 'w3m
+  :type 'string)
+
+(defvar w3m-spinner-image-file nil
+  "Image file used to show a spinner in the header-line.")
+
+(defvar w3m-spinner-image-frames 3
+  "Number of frames which the spinner image contains.")
+
+(defvar w3m-spinner-image-index 0
+  "Counter used to rotate spinner images.  This is a buffer-local variable.")
+(make-variable-buffer-local 'w3m-spinner-image-index)
+
+;; Images to be displayed in the modeline.
+(defvar w3m-modeline-process-status-on-icon nil)
+(defvar w3m-modeline-image-status-on-icon nil)
+(defvar w3m-modeline-status-off-icon nil)
+(defvar w3m-modeline-ssl-image-status-on-icon nil)
+(defvar w3m-modeline-ssl-status-off-icon nil)
+
+(defun w3m-initialize-graphic-icons (&optional force)
+  "Make icon images which will be displayed in the mode-line."
+  (interactive "P")
+  (when (or (image-type-available-p 'xpm)
+	    (image-type-available-p 'png))
+    ;; Prefer xpm icons rather than png icons since Emacs doesn't display
+    ;; background colors of icon images other than xpm images transparently
+    ;; in the mode line.
+    (let* ((w3m-toolbar-icon-preferred-image-types
+	    (if (image-type-available-p 'xpm)
+		'(xpm)
+	      '(png)))
+	   (defs `((w3m-modeline-status-off-icon
+		    ,(w3m-find-image "state-00")
+		    w3m-modeline-status-off)
+		   (w3m-modeline-image-status-on-icon
+		    ,(w3m-find-image "state-01")
+		    w3m-modeline-image-status-on)
+		   (w3m-modeline-ssl-status-off-icon
+		    ,(w3m-find-image "state-10")
+		    w3m-modeline-ssl-status-off)
+		   (w3m-modeline-ssl-image-status-on-icon
+		    ,(w3m-find-image "state-11")
+		    w3m-modeline-ssl-image-status-on)))
+	   def icon file type status keymap)
+      (while defs
+	(setq def (car defs)
+	      defs (cdr defs)
+	      icon (car def)
+	      file (car (nth 1 def))
+	      type (cdr (nth 1 def))
+	      status (nth 2 def))
+	(if (and w3m-show-graphic-icons-in-mode-line file)
+	    (progn
+	      (when (or force (not (symbol-value icon)))
+		(unless keymap
+		  (setq keymap
+			(make-mode-line-mouse-map 'mouse-2
+						  'w3m-reload-this-page)))
+		(set icon (propertize
+			   "  "
+			   'display (create-image file type nil
+						  :ascent 'center)
+			   'local-map keymap
+			   'mouse-face 'mode-line-highlight
+			   'help-echo "mouse-2 reloads this page"))
+		(put icon 'risky-local-variable t)
+		(put status 'risky-local-variable t))
+	      (when (stringp (symbol-value status))
+		;; Save the original status strings as properties.
+		(put status 'string (symbol-value status)))
+	      (set status (list "" 'w3m-space-before-modeline-icon icon)))
+	  ;; Don't use graphic icons.
+	  (when (get status 'string)
+	    (set status (get status 'string)))))))
+    (let (file)
+      ;; Spinner
+      (when (and (or force (not w3m-spinner-image-file))
+		 (image-type-available-p 'gif)
+		 w3m-icon-directory
+		 (file-directory-p w3m-icon-directory)
+		 (file-exists-p
+		  (setq file (expand-file-name "spinner.gif"
+					       w3m-icon-directory))))
+	(setq w3m-spinner-image-file file)
+	(define-key (setq w3m-modeline-spinner-map (make-sparse-keymap))
+	  [mode-line mouse-2]
+	  'w3m-process-stop)
+	(put 'w3m-modeline-process-status-on 'risky-local-variable t)
+	(put 'w3m-modeline-process-status-on-icon 'risky-local-variable t))
+      (if (and window-system
+	       w3m-show-graphic-icons-in-mode-line
+	       w3m-spinner-image-file)
+	  (progn
+	    (when (stringp w3m-modeline-process-status-on)
+	      ;; Save the original status strings as properties.
+	      (put 'w3m-modeline-process-status-on 'string
+		   w3m-modeline-process-status-on))
+	    (setq w3m-modeline-process-status-on
+		  '(""
+		    w3m-space-before-modeline-icon
+		    w3m-modeline-process-status-on-icon)))
+	(when (get 'w3m-modeline-process-status-on 'string)
+	  (setq w3m-modeline-process-status-on
+		(get 'w3m-modeline-process-status-on 'string))))))
+
+(defun w3m-make-spinner-image ()
+  "Make an image used to show a spinner.
+It should be called periodically in order to spin the spinner."
+  (when w3m-spinner-image-file
+    (unless (< (incf w3m-spinner-image-index) w3m-spinner-image-frames)
+      (setq w3m-spinner-image-index 0))
+    (let ((image (create-image w3m-spinner-image-file 'gif nil
+			       :ascent 'center :mask 'heuristic
+			       :index w3m-spinner-image-index)))
+      (setq w3m-modeline-process-status-on-icon
+	    (propertize "  "
+			'display image
+			'local-map w3m-modeline-spinner-map
+			'help-echo w3m-spinner-map-help-echo))
+      image)))
+
+(defun w3m-decode-coding-string-with-priority (str coding)
+  "Decode the string STR which is encoded in CODING.
+If CODING is a list, look for the coding system using it as a priority
+list."
+  (setq str (string-make-unibyte str))
+  (when (listp coding)
+    (setq coding
+	  (with-temp-buffer
+	    (set-buffer-multibyte nil)
+	    (insert str)
+	    (w3m-detect-coding-region (point-min) (point-max) coding))))
+  (decode-coding-string str
+			(or coding
+			    w3m-default-coding-system
+			    w3m-coding-system
+			    'iso-2022-7bit)))
+
+(defun w3m-form-coding-system-accept-region-p (&optional from to coding-system)
+  "Check whether `coding-system' can encode specified region."
+  (let ((from (or from (point-min)))
+	(to (or to   (point-max)))
+	(coding-system (or coding-system
+			   w3m-form-input-textarea-coding-system)))
+    (if (fboundp 'unencodable-char-position)
+	(let ((pos (unencodable-char-position from to coding-system)))
+	  (or (not pos)
+	      (y-or-n-p (format "\"%c\" would not be accepted. Continue? "
+				(char-after pos)))))
+      (let ((select-safe-coding-system-accept-default-p nil))
+	(or (eq (select-safe-coding-system from to coding-system)
+		coding-system)
+	    (y-or-n-p
+	     "This text may cause coding-system problem. Continue? "))))))
+
+(provide 'w3m-ems)
+
+;;; w3m-ems.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-favicon.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,367 @@
+;;; w3m-favicon.el --- utilities for handling favicon in emacs-w3m
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2009
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Yuuichi Teranishi  <[e-mail]>,
+;;          TSUCHIYA Masatoshi <[e-mail]>,
+;;          Katsumi Yamaoka    <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+;;(require 'w3m-util)
+;;(require 'w3m-proc)
+(require 'w3m-image)
+
+(eval-when-compile
+  (defvar w3m-current-buffer)
+  (defvar w3m-current-url)
+  (defvar w3m-favicon-image)
+  (defvar w3m-icon-data)
+  (defvar w3m-modeline-favicon)
+  (defvar w3m-profile-directory)
+  (defvar w3m-use-favicon)
+  (defvar w3m-work-buffer-name)
+  (defvar w3m-work-buffer-list)
+  (autoload 'w3m-expand-url "w3m")
+  (autoload 'w3m-load-list "w3m")
+  (autoload 'w3m-message "w3m")
+  (autoload 'w3m-retrieve "w3m")
+  (autoload 'w3m-save-list "w3m")
+  (autoload 'w3m-url-readable-string "w3m"))
+
+(defcustom w3m-favicon-size nil
+  "Size of favicon.  The value should be `(WIDTH . HEIGHT)' or nil.
+Where WIDTH and HEIGHT are positive integers; both or any of them can
+be omitted."
+  :group 'w3m
+  :type '(radio (const :tag "Not specified" nil)
+		(cons :format "%v"
+		      (integer :format "Width: %v " :size 0 :value 16)
+		      (integer :format "Height: %v " :size 0 :value 16))))
+
+(defconst w3m-favicon-name "favicon.ico"
+  "The favicon name.")
+
+(add-hook 'w3m-display-functions 'w3m-favicon-setup)
+
+(defcustom w3m-favicon-use-cache-file nil
+  "*If non-nil, use favicon cache file."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-favicon-cache-file nil
+  "Filename of saving favicon cache.
+It defaults to the file named \".favicon\" under the directory specified
+by the `w3m-profile-directory' variable."
+  :group 'w3m
+  :type '(radio (const :format "Not specified\n")
+		(file :format "%t: %v\n" :size 0)))
+
+(defcustom w3m-favicon-cache-expire-wait (* 30 24 60 60)
+  "*The cache will be expired after specified seconds passed since retrieval.
+If this variable is nil, never expired."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-favicon-type
+  (let ((types '(png gif pbm xpm bmp))
+	type)
+    (catch 'det
+      (while types
+	(setq type (car types)
+	      types (cdr types))
+	(if (if (featurep 'xemacs)
+		(featurep type)
+	      (image-type-available-p type))
+	    (throw 'det type)))))
+  "*Image type of display favicon."
+  :group 'w3m
+  :type (cons 'radio
+	      (let ((types (if (or
+				(featurep 'xemacs)
+				(not (fboundp 'image-types)))
+			       (delq nil
+				     (mapcar (lambda (type)
+					       (if (featurep type) type))
+					     '(gif jpeg png tiff xpm)))
+			     (delq 'postscript (copy-sequence image-types)))))
+		(nconc (mapcar (lambda (x)
+				 `(const :format "%v  " ,x))
+			       (butlast types))
+		       `((const ,(car (last types))))))))
+
+(defcustom w3m-space-before-favicon " "
+  "String of space char(s) to be put in front of favicon in the mode-line.
+It may be better to use two or more spaces if you are using oblique or
+italic font in the modeline."
+  :group 'w3m
+  :type 'string)
+
+(defcustom w3m-favicon-convert-args nil
+  "List of additional arguments passed to ImageMagick's convert program.
+Args that are always passed to convert in addition to this value are:
+
+\(\"-geometry\" \"WIDTHxHEIGHT\" \"fromTYPE:temp-file\" \"toTYPE:-\")
+
+Args might also contain (\"-transparent\" \"COLOR\") in the beginning.
+Note that this value is effective only with Emacs 22 and greater."
+  :group 'w3m
+  :type `(repeat (group :inline t
+			:match-inline
+			(lambda (widget vals)
+			  (if (and (eq (aref (car vals) 0) ?-)
+				   (cdr vals)
+				   (not (eq (aref (nth 1 vals) 0) ?-)))
+			      (cons (list (car vals) (nth 1 vals))
+				    (nthcdr 2 vals))
+			    (cons (list (car vals)) (cdr vals))))
+			(string :format "Arg: %v " :value "-" :size 0)
+			(checklist :inline t
+				   (string :format "Value: %v\n" :size 0)))))
+
+(defcustom w3m-favicon-default-background nil
+  "Color name used as transparent color of favicon image.
+Nil means to use the background color of the Emacs frame.  The null
+string \"\" is special, that will be replaced with the background color
+of the header line or the mode line on which the favicon is displayed.
+Note that this value is effective only with Emacs 22 and greater."
+  :group 'w3m
+  :type '(radio (string :format "Color: %v\n" :size 0
+			:match (lambda (widget value)
+				 (and (stringp value) (> (length value) 0))))
+		(const :tag "Use the background color of the Emacs frame" nil)
+		(const :tag "Null string" "")))
+
+(defvar w3m-favicon-type-alist '((pbm . ppm))
+  "A list of a difference type of image between Emacs and ImageMagick.
+ 0. Type of Emacs
+ 1. Type of ImageMagick")
+
+(defvar w3m-favicon-cache-data nil
+  "A list of favicon cache (internal variable).
+Each information is a list whose elements are:
+
+ 0. URL
+ 1. (RAW_DATA . TYPE)
+ 2. DATE when the RAW_DATA was retrieved
+ 3. IMAGE
+
+Where IMAGE highly depends on the Emacs version and is not saved in
+the cache file.")
+
+(w3m-static-if (featurep 'xemacs)
+    (set 'w3m-modeline-favicon
+	 '("" w3m-space-before-favicon w3m-favicon-image))
+  (put 'w3m-modeline-favicon 'risky-local-variable t))
+(make-variable-buffer-local 'w3m-modeline-favicon)
+(make-variable-buffer-local 'w3m-favicon-image)
+
+(defmacro w3m-favicon-cache-p (url)
+  "Say whether the favicon data for URL has been chached."
+  `(assoc ,url w3m-favicon-cache-data))
+
+(defmacro w3m-favicon-cache-favicon (url)
+  "Pull out the favicon image corresponding to URL from the cache."
+  `(nth 3 (assoc ,url w3m-favicon-cache-data)))
+
+(defmacro w3m-favicon-cache-retrieved (url)
+  "Return the time when the favicon data for URL was retrieved."
+  `(nth 2 (assoc ,url w3m-favicon-cache-data)))
+
+(defmacro w3m-favicon-set-image (image)
+  "Set IMAGE to `w3m-favicon-image' and `w3m-modeline-favicon'."
+  (if (featurep 'xemacs)
+      `(set 'w3m-favicon-image ,image)
+    `(when (setq w3m-favicon-image ,image)
+       (set 'w3m-modeline-favicon
+	    (list ""
+		  'w3m-space-before-favicon
+		  (propertize "  " 'display w3m-favicon-image)
+		  (propertize " " 'display '(space :width 0.5)))))))
+
+(defun w3m-favicon-setup (url)
+  "Set up the favicon data in the current buffer.  The buffer-local
+variable `w3m-favicon-image' will be set to non-nil value when the
+favicon is ready."
+  (w3m-favicon-set-image nil)
+  (when (and w3m-use-favicon
+	     w3m-current-url
+	     (w3m-static-if (featurep 'xemacs)
+		 (and (device-on-window-system-p)
+		      (featurep w3m-favicon-type))
+	       (and (display-images-p)
+		    (image-type-available-p w3m-favicon-type))))
+    (let (icon)
+      (cond
+       ((and (string-match "\\`about://\\([^/]+\\)/" url)
+	     (setq icon (intern-soft (concat "w3m-about-" (match-string 1 url)
+					     "-favicon"))))
+	(with-current-buffer w3m-current-buffer
+	  (w3m-favicon-set-image
+	   (w3m-favicon-convert
+	    (base64-decode-string (symbol-value icon)) 'ico))))
+       ((or (string-match "\\`https?://" url)
+	    (and (string-match "\\`about://\\(?:header\\|source\\)/https?://"
+			       url)
+		 (setq url (substring url 15))))
+	(if w3m-icon-data
+	    (w3m-favicon-retrieve (car w3m-icon-data) (cdr w3m-icon-data)
+				  w3m-current-buffer)
+	  (w3m-favicon-retrieve (w3m-expand-url (concat "/" w3m-favicon-name)
+						url)
+				'ico w3m-current-buffer)))))))
+
+(defun w3m-favicon-convert (data type)
+  "Convert the favicon DATA in TYPE to the favicon image and return it."
+  (when (or (not (eq type 'ico))
+	    ;; Since most of favicons are the `ico' types, we make sure
+	    ;; of the magic-numbers only as for them.
+	    (string-equal "\x00\x00\x01\x00" (substring data 0 4)))
+    (let ((height (or (cdr w3m-favicon-size)
+		      (w3m-static-if (featurep 'xemacs)
+			  (face-height 'default)
+			(frame-char-height))))
+	  (new (w3m-static-unless (featurep 'xemacs)
+		 (>= emacs-major-version 22)))
+	  bg args img)
+      ;; Examine the transparent color of the image.
+      (when (and w3m-imagick-identify-program
+		 (equal w3m-favicon-default-background ""))
+	(with-temp-buffer
+	  (set-buffer-multibyte nil)
+	  (insert data)
+	  (let ((coding-system-for-read 'raw-text)
+		(coding-system-for-write 'binary))
+	    (condition-case nil
+		(call-process-region (point-min) (point-max)
+				     w3m-imagick-identify-program
+				     t t nil "-verbose" (format "%s:-" type))
+	      (error)))
+	  (goto-char (point-min))
+	  (setq case-fold-search t)
+	  (while (and (not bg)
+		      (re-search-forward "^ *Transparent +color: *\
+\\([^\n ]+\\(?: +[^\n ]+\\)*\\)" nil t))
+	    (when (string-match "\\`none\\'" (setq bg (match-string 1)))
+	      (setq bg nil)))))
+      (setq args (list "-geometry"
+		       (format "%dx%d"
+			       (or (car w3m-favicon-size) height) height)))
+      (w3m-static-unless (featurep 'xemacs)
+	(when new
+	  ;; "-transparent" should precede the other arguments.
+	  (setq args (nconc (when bg (list "-transparent" bg))
+			    args
+			    w3m-favicon-convert-args))))
+      (setq img (apply
+		 #'w3m-imagick-convert-data
+		 data (symbol-name type)
+		 (symbol-name (or (cdr (assq w3m-favicon-type
+					     w3m-favicon-type-alist))
+				  w3m-favicon-type))
+		 args))
+      (when img
+	(w3m-static-if (featurep 'xemacs)
+	    (make-glyph
+	     (make-image-instance (vector w3m-favicon-type :data img)))
+	  (if new
+	      (create-image img w3m-favicon-type t
+			    :ascent 'center
+			    :background w3m-favicon-default-background)
+	    (create-image img w3m-favicon-type t :ascent 'center)))))))
+
+(defun w3m-favicon-retrieve (url type target)
+  "Retrieve favicon from URL and convert it to image as TYPE in TARGET.
+TYPE is a symbol like `ico' and TARGET is a buffer where the image is
+stored in the `w3m-favicon-image' buffer-local variable."
+  (if (and (w3m-favicon-cache-p url)
+	   (or (null w3m-favicon-cache-expire-wait)
+	       (< (- (w3m-float-time)
+		     (w3m-float-time (w3m-favicon-cache-retrieved url)))
+		  w3m-favicon-cache-expire-wait)))
+      (with-current-buffer target
+	(w3m-favicon-set-image (w3m-favicon-cache-favicon url)))
+    (lexical-let ((url url)
+		  (type type)
+		  (target target)
+		  (silent w3m-message-silent))
+      (w3m-process-with-null-handler
+	(w3m-process-do-with-temp-buffer
+	    (ok (w3m-retrieve url 'raw nil nil nil handler))
+	  (let ((w3m-message-silent silent)
+		idata image)
+	    (if (and ok
+		     ;; Some broken servers provides empty contents.
+		     (>= (buffer-size) 4))
+		(setq idata (buffer-string)
+		      image (w3m-favicon-convert idata type))
+	      (w3m-message "Reading %s...done (no favicon)"
+			   (w3m-url-readable-string url)))
+	    (with-current-buffer target
+	      (w3m-favicon-set-image image)
+	      (push (list url idata (current-time) w3m-favicon-image)
+		    w3m-favicon-cache-data)))))))
+  ;; Emacs frame needs to be redisplayed to make favicon come out.
+  (w3m-force-window-update-later target 1))
+
+(defun w3m-favicon-save-cache-file ()
+  "Save the cached favicon data into the local file."
+  (when w3m-favicon-use-cache-file
+    (w3m-save-list (or w3m-favicon-cache-file
+		       (expand-file-name ".favicon" w3m-profile-directory))
+		   (delq nil (mapcar (lambda (elem)
+				       (when (= (length elem) 4)
+					 (butlast elem)))
+				     w3m-favicon-cache-data))
+		   'binary)))
+
+(defun w3m-favicon-load-cache-file ()
+  "Load the cached favicon data from the local file."
+  (when (and w3m-favicon-use-cache-file
+	     (null w3m-favicon-cache-data))
+    (let ((cache (w3m-load-list
+		  (or w3m-favicon-cache-file
+		      (expand-file-name ".favicon" w3m-profile-directory))
+		  'binary))
+	  elem data image)
+      (while cache
+	(setq elem (car cache)
+	      cache (cdr cache)
+	      data (cadr elem))
+	(when (stringp data)
+	  (setcar (cdr elem) (setq data (cons data 'ico))))
+	(when (setq image (condition-case nil
+			      (w3m-favicon-convert (car data) (cdr data))
+			    (error nil)))
+	  (push (nconc elem (list image)) w3m-favicon-cache-data))))))
+
+(add-hook 'w3m-arrived-setup-functions 'w3m-favicon-load-cache-file)
+(add-hook 'w3m-arrived-shutdown-functions 'w3m-favicon-save-cache-file)
+
+(provide 'w3m-favicon)
+
+;;; w3m-favicon.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-fb.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,208 @@
+;;; w3m-fb.el --- frame-local buffers support for Emacs-w3m
+
+;;; Copyright (C) 2005, 2006 Matthew P. Hodges
+
+;; Author: Matthew P. Hodges <[e-mail]>
+;; Version: $Id: w3m-fb.el,v 1.4 2006/09/20 09:26:42 yamaoka Exp $
+
+;; w3m-fb.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.
+
+;; w3m-fb.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.
+
+;;; Commentary:
+;;
+;; With this mode switched on, W3M buffers are associated with the
+;; frame on which they were created.  Only tabs for the current
+;; frame's W3M buffers are shown (with non-nil w3m-use-tab); other
+;; affected commands are w3m-next-buffer w3m-previous-buffer,
+;; w3m-select-buffer and w3m-quit.
+;;
+;; Switch the mode on programmatically with:
+;;
+;;     (w3m-fb-mode 1)
+;;
+;; or toggle interactively with M-x w3m-fb-mode RET.
+
+;;; Code:
+
+(defconst w3m-fb-version "1.0.0"
+  "Version number of this package.")
+
+(eval-when-compile
+  (autoload 'w3m-delete-buffer "w3m" nil t)
+  (autoload 'w3m-list-buffers "w3m-util")
+  (autoload 'w3m-next-buffer "w3m" nil t)
+  (defvar w3m-pop-up-frames))
+
+(eval-and-compile
+  (defalias 'w3m-fb-frame-parameter
+    (cond
+     ((fboundp 'frame-parameter)
+      'frame-parameter)
+     ((fboundp 'frame-property)
+      'frame-property)
+     (t
+      (error "No frame parameter/property function")))))
+
+(defvar w3m-fb-delete-frame-functions
+  (cond
+   ((boundp 'delete-frame-functions)
+    'delete-frame-functions)
+   ((boundp 'delete-frame-hook)
+    'delete-frame-hook)
+   (t
+    (error "No delete-frame hook/functions variable found")))
+  "Symbol associated with `delete-frame' hooks.")
+
+(defvar w3m-fb-list-buffers-frame nil
+  "Frame to list buffers for in `w3m-list-buffers'.
+Bind this if the buffers associated with a frame other than the
+selected frame are required.")
+
+;; Customizable variables
+
+(defgroup w3m-fb nil
+  "Frame local buffers for Emacs-w3m."
+  :group 'w3m)
+
+(defcustom w3m-fb-delete-frame-kill-buffers t
+  "If non-nil, kill W3M buffers after deleting frames."
+  :group 'w3m-fb
+  :type 'boolean
+  :set (lambda (sym val)
+	 (set sym val)
+	 (when (boundp 'w3m-fb-mode)
+	   (if w3m-fb-mode
+	       (add-hook w3m-fb-delete-frame-functions
+			 'w3m-fb-delete-frame-buffers)
+	     (remove-hook w3m-fb-delete-frame-functions
+			  'w3m-fb-delete-frame-buffers)))))
+
+;; Internal variables
+
+(defvar w3m-fb-buffer-list nil
+  "List of w3m buffers associated with the selected frame.")
+
+(defvar w3m-fb-inhibit-buffer-selection nil
+  "Non-nil to inhibit selecting a suitable w3m buffer.")
+
+;; Internal functions
+
+(defun w3m-fb-delete-frame-buffers (&optional frame)
+  "Delete W3M buffers associated with frame FRAME."
+  (let* ((w3m-fb-list-buffers-frame frame)
+	 (buffers (w3m-list-buffers))
+	 ;; Now bind w3m-fb-mode to nil so that w3m-delete-buffer
+	 ;; doesn't call w3m-quit when there are w3m buffers belonging
+	 ;; to other frames.
+	 (w3m-fb-mode nil)
+	 (w3m-fb-inhibit-buffer-selection t))
+    (save-window-excursion
+      (dolist (b buffers)
+	(with-current-buffer b
+	  (w3m-delete-buffer))))))
+
+;; Could use set-frame-parameter here, but it isn't portable
+(defun w3m-fb-set-frame-parameter (frame parameter value)
+  "Set for frame FRAME parameter PARAMETER to VALUE."
+  (modify-frame-parameters frame (list (cons parameter value))))
+
+(defun w3m-fb-add ()
+  "Add current buffer to `w3m-fb-buffer-list'."
+  (let ((val (w3m-fb-frame-parameter nil 'w3m-fb-buffer-list)))
+    (w3m-fb-set-frame-parameter
+     nil 'w3m-fb-buffer-list (nconc val (list (current-buffer))))))
+
+(defun w3m-fb-remove ()
+  "Remove current buffer from `w3m-fb-buffer-list'.
+Applies to all frames."
+  (when (eq major-mode 'w3m-mode)
+    (let (val)
+      (dolist (f (frame-list))
+	(setq val (w3m-fb-frame-parameter f 'w3m-fb-buffer-list))
+	(w3m-fb-set-frame-parameter
+	 f 'w3m-fb-buffer-list (delq (current-buffer) val))))))
+
+(defun w3m-fb-associate ()
+  "Associate all `w3m-mode' buffers with a frame."
+  (let (buffers done rest)
+    ;; Buffers displayed in windows
+    (dolist (f (frame-list))
+      (setq buffers nil)
+      (dolist (w (window-list f nil (frame-selected-window f)))
+	(when (with-current-buffer (window-buffer w)
+		(eq major-mode 'w3m-mode))
+	  (setq buffers (nconc buffers (list (window-buffer w))))
+	  (setq done (nconc done (list (window-buffer w))))))
+      (w3m-fb-set-frame-parameter
+       f 'w3m-fb-buffer-list buffers))
+    ;; Buffers not displayed in windows; add to selected frame
+    (let ((w3m-fb-mode nil))
+      (setq rest (w3m-list-buffers)))
+    (dolist (b done)
+      (setq rest (delq b rest)))
+    (when rest
+      (w3m-fb-set-frame-parameter
+       nil 'w3m-fb-buffer-list
+       (nconc (w3m-fb-frame-parameter nil 'w3m-fb-buffer-list) rest)))))
+
+(defun w3m-fb-dissociate ()
+  "Disassociate `w3m-mode' buffers from frames."
+  (dolist (f (frame-list))
+    (w3m-fb-set-frame-parameter f 'w3m-fb-buffer-list nil)))
+
+(defun w3m-fb-select-buffer ()
+  "Select an appropriate W3M buffer to display."
+  ;; If there are w3m buffers belonging to this frame, ensure one is
+  ;; selected; if not make sure that we're not displaying a w3m
+  ;; buffer
+  (cond
+   ;; Select w3m buffer belonging to frame, if one is available
+   ((w3m-list-buffers)
+    (unless (memq (current-buffer) (w3m-list-buffers))
+      (w3m-next-buffer -1)))
+   (t
+    ;; If no w3m buffers belong to frame, don't display any w3m buffer
+    (while (eq major-mode 'w3m-mode)
+;;      (assert (eq (current-buffer)
+;;		  (window-buffer (selected-window))))
+      (bury-buffer)))))
+
+;; Minor mode setup
+
+;;;###autoload
+(define-minor-mode w3m-fb-mode
+  "Toggle W3M Frame Buffer mode.
+This allows frame-local lists of buffers (tabs)."
+  :init-value nil
+  :group 'w3m-fb
+  :global t
+  (if (and w3m-fb-mode
+	   (if w3m-pop-up-frames
+	       (prog1
+		   (setq w3m-fb-mode nil)
+		 (message "\
+W3M Frame Buffer mode not activated (non-nil w3m-pop-up-frames)")
+		 (sit-for 2))
+	     t))
+      (progn
+	(add-hook 'w3m-mode-hook 'w3m-fb-add)
+	(add-hook 'kill-buffer-hook 'w3m-fb-remove)
+	(when w3m-fb-delete-frame-kill-buffers
+	  (add-hook w3m-fb-delete-frame-functions
+		    'w3m-fb-delete-frame-buffers))
+	(w3m-fb-associate))
+    (remove-hook 'w3m-mode-hook 'w3m-fb-add)
+    (remove-hook 'kill-buffer-hook 'w3m-fb-remove)
+    (remove-hook w3m-fb-delete-frame-functions 'w3m-fb-delete-frame-buffers)
+    (w3m-fb-dissociate)))
+
+(provide 'w3m-fb)
+
+;;; w3m-fb.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-filter.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,367 @@
+;;; w3m-filter.el --- filtering utility of advertisements on WEB sites -*- coding: euc-japan -*-
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-filter.el is the add-on utility to filter advertisements on WEB
+;; sites.
+
+
+;;; Code:
+
+(provide 'w3m-filter)
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m)
+
+(defcustom w3m-filter-rules
+  `(("\\`http://www\\.geocities\\.co\\.jp/"
+     w3m-filter-delete-regions
+     "<DIV ALIGN=CENTER>\n<!--*/GeoGuide/*-->" "<!--*/GeoGuide/*-->\n</DIV>")
+    ("\\`http://[a-z]+\\.hp\\.infoseek\\.co\\.jp/"
+     w3m-filter-delete-regions
+     "<!-- start AD -->" "<!-- end AD -->")
+    ("\\`http://linux\\.ascii24\\.com/linux/"
+     w3m-filter-delete-regions
+     "<!-- DAC CHANNEL AD START -->" "<!-- DAC CHANNEL AD END -->")
+    ("\\`http://\\(www\\|images\\|news\\|maps\\|groups\\)\\.google\\."
+     w3m-filter-google)
+    ("\\`https?://\\(?:www\\.\\)?amazon\\.\
+\\(?:com\\|co\\.\\(?:jp\\|uk\\)\\|fr\\|de\\)/"
+     w3m-filter-amazon)
+    ("\\`https?://mixi\\.jp" w3m-filter-mixi)
+    ("\\`http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8" w3m-filter-alc)
+    ("\\`http://www\\.asahi\\.com/" w3m-filter-asahi-shimbun)
+    ("\\`http://imepita\\.jp/[0-9]+/[0-9]+" w3m-filter-imepita)
+    ("\\`http://allatanys\\.jp/" w3m-filter-allatanys)
+    ("\\`http://.*\\.wikipedia\\.org/" w3m-filter-wikipedia)
+    ("" w3m-filter-iframe))
+  "Rules to filter advertisements on WEB sites."
+  :group 'w3m
+  :type '(repeat
+	  (cons :format "%v" :indent 4
+		(regexp :format "Regexp: %v\n" :size 0)
+		(choice
+		 :tag "Filtering Rule"
+		 (list :tag "Delete regions surrounded with these patterns"
+		       (function-item :format "" w3m-filter-delete-region)
+		       (regexp :tag "Start")
+		       (regexp :tag "End"))
+		 (list :tag "Filter with a user defined function"
+		       function
+		       (repeat :tag "Arguments" sexp))))))
+
+(defcustom w3m-filter-google-use-utf8
+  (or (featurep 'un-define) (fboundp 'utf-translate-cjk-mode)
+      (and (not (equal "Japanese" w3m-language))
+	   (w3m-find-coding-system 'utf-8)))
+  "*Use the converting rule to UTF-8 on the site of Google."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-filter-google-use-ruled-line  t
+  "*Use the ruled line on the site of Google."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-filter-google-separator "<hr>"
+  "Field separator for Google's search results ."
+  :group 'w3m
+  :type 'string)
+
+(defcustom w3m-filter-amazon-regxp
+  (concat
+   "\\`\\(https?://\\(?:www\\.\\)?amazon\\."
+   "\\(?:com\\|co\\.\\(?:jp\\|uk\\)\\|fr\\|de\\)"
+   ;; "Joyo.com"
+   "\\)/"
+   "\\(?:"
+   "\\(?:exec/obidos\\|o\\)/ASIN"
+   "\\|"
+   "gp/product"
+   "\\|"
+   "\\(?:[^/]+/\\)?dp"
+   "\\)"
+   "/\\([0-9]+\\)")
+  "*Regexp to extract ASIN number for Amazon."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-filter-amazon-short-url-bottom nil
+  "*Amazon short URLs insert bottom position."
+  :group 'w3m
+  :type 'boolean)
+
+;;;###autoload
+(defun w3m-filter (url)
+  "Apply filtering rule of URL against a content in this buffer."
+  (save-match-data
+    (dolist (elem w3m-filter-rules)
+      (when (string-match (car elem) url)
+	(apply (cadr elem) url (cddr elem))))))
+
+(defun w3m-filter-delete-regions (url start end)
+  "Delete regions surrounded with a START pattern and an END pattern."
+  (goto-char (point-min))
+  (let (p (i 0))
+    (while (and (search-forward start nil t)
+		(setq p (match-beginning 0))
+		(search-forward end nil t))
+      (delete-region p (match-end 0))
+      (incf i))
+    (> i 0)))
+
+(defun w3m-filter-replace-regexp (url regexp to-string)
+  "Replace all occurrences of REGEXP with TO-STRING."
+  (goto-char (point-min))
+  (while (re-search-forward regexp nil t)
+    (replace-match to-string nil nil)))
+
+;; Filter functions:
+(defun w3m-filter-asahi-shimbun (url)
+  "Convert entity reference of UCS."
+  (when w3m-use-mule-ucs
+    (goto-char (point-min))
+    (let ((case-fold-search t)
+	  end ucs)
+      (while (re-search-forward "alt=\"\\([^\"]+\\)" nil t)
+	(goto-char (match-beginning 1))
+	(setq end (set-marker (make-marker) (match-end 1)))
+	(while (re-search-forward "&#\\([0-9]+\\);" (max end (point)) t)
+	  (setq ucs (string-to-number (match-string 1)))
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (insert-char (w3m-ucs-to-char ucs) 1))))))
+
+(defun w3m-filter-google (url)
+  "Insert separator within items."
+  (goto-char (point-min))
+  (let ((endm (make-marker))
+	(case-fold-search t)
+	pos beg end)
+    (when (and w3m-filter-google-use-utf8
+	       (re-search-forward "\
+<a class=. href=\"http://\\(www\\|images\\|news\\|maps\\|groups\\)\\.google\\."
+				  nil t)
+	       (setq pos (match-beginning 0))
+	       (search-backward "<table" nil t)
+	       (setq beg (match-beginning 0))
+	       (search-forward "</table" nil t)
+	       (set-marker endm (match-end 0))
+	       (< pos (marker-position endm)))
+      (goto-char beg)
+      (while (re-search-forward "[?&][io]e=\\([^&]+\\)&" endm t)
+	(replace-match "UTF-8" nil nil nil 1))
+      (setq end (marker-position endm)))
+    (when (string-match "\\`http://www\\.google\\.[^/]+/search\\?" url)
+      (goto-char (point-max))
+      (when (and w3m-filter-google-use-ruled-line
+		 (search-backward "<div class=" end t)
+		 (search-forward "</div>" nil t))
+	(insert w3m-filter-google-separator))
+      (if w3m-filter-google-use-ruled-line
+	  (while (search-backward "<div class=" end t)
+	    (insert w3m-filter-google-separator))
+	(while (search-backward "<div class=" end t)
+	  (insert "<p>"))))))
+
+(defun w3m-filter-amazon (url)
+  "Insert Amazon short URIs."
+  (when (string-match w3m-filter-amazon-regxp url)
+    (let* ((base (match-string 1 url))
+	   (asin (match-string 2 url))
+	   (shorturls `(,(concat base "/dp/" asin "/")
+			,(concat base "/o/ASIN/" asin "/")
+			,(concat base "/gp/product/" asin "/")))
+	   (case-fold-search t)
+	   shorturl)
+      (goto-char (point-min))
+      (setq url (file-name-as-directory url))
+      (when (or (and (not w3m-filter-amazon-short-url-bottom)
+		     (search-forward "<body" nil t)
+		     (search-forward ">" nil t))
+		(and w3m-filter-amazon-short-url-bottom
+		     (search-forward "</body>" nil t)
+		     (goto-char (match-beginning 0))))
+	(insert "\n")
+	(while (setq shorturl (car shorturls))
+	  (setq shorturls (cdr shorturls))
+	  (unless (string= url shorturl)
+	    (insert (format "Amazon Short URL: <a href=\"%s\">%s</a><br>\n"
+			    shorturl shorturl))))
+	(insert "\n")))))
+
+(defun w3m-filter-mixi (url)
+  "Direct jump to the external diary."
+  (goto-char (point-min))
+  (let (newurl)
+    (while (re-search-forward "<a href=\"?view_diary\\.pl\\?url=\\([^>]+\\)>"
+			      nil t)
+      (setq newurl (match-string 1))
+      (when newurl
+	(delete-region (match-beginning 0) (match-end 0))
+	(when (string-match "&owner_id=[0-9]+\"?\\'" newurl)
+	  (setq newurl (substring newurl 0 (match-beginning 0))))
+	(insert (format "<a href=\"%s\">"
+			(w3m-url-readable-string newurl)))))))
+
+(defun w3m-filter-alc (url)
+  (let ((baseurl "http://eow.alc.co.jp/%s/UTF-8/")
+	curl cword beg tmp1)
+    (when (string-match "\\`http://eow\\.alc\\.co\\.jp/\\([^/]+\\)/UTF-8/" url)
+      (setq curl (match-string 0 url))
+      (setq cword (match-string 1 url))
+      (setq cword (car (split-string (w3m-url-decode-string cword 'utf-8)
+				     " ")))
+      (goto-char (point-min))
+      (while (search-forward "¥Ç¡¼¥¿¤ÎžºÜ¤Ï¶Ø¤¸¤é¤ì¤Æ¤¤¤Þ¤¹" nil t)
+	(delete-region (line-beginning-position) (line-end-position))
+	(insert "<br>"))
+      (goto-char (point-min))
+      (when (search-forward "<body" nil t)
+	(forward-line 1)
+	(insert "<h1>±Ñ¼­Ï¯ on the WEB<h1>\n")
+	(setq beg (point))
+	(when (search-forward "<!-- ¢§¸¡º÷ʸ»úÎó -->" nil t)
+	  (forward-line 1)
+	  (delete-region beg (point)))
+	(when (search-forward "<!-- ¢§¥ï¡¼¥É¥ê¥ó¥¯ ÍúÎò -->" nil t)
+	  (forward-line 1)
+	  (setq beg (point))
+	  (when (search-forward "</body>" nil t)
+	    (delete-region beg (match-beginning 0))))
+	(insert "<br>¡ö¥Ç¡¼¥¿¤ÎžºÜ¤Ï¶Ø¤¸¤é¤ì¤Æ¤¤¤Þ¤¹¡£")
+	;; next/previous page
+	(goto-char (point-min))
+	(while (re-search-forward
+		"<a href='javascript:goPage(\"\\([0-9]+\\)\")'>"
+		nil t)
+	  (setq tmp1 (match-string 1))
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (insert (format "<a href=\"%s?pg=%s\">" curl tmp1)))
+	;; wordlink
+	(goto-char (point-min))
+	(while (re-search-forward
+		"<span class=\"wordlink\">\\([^<]+\\)</span>"
+		nil t)
+	  (setq tmp1 (match-string 1))
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (insert (format "<a href=\"%s\">%s</a>" (format baseurl tmp1) tmp1)))
+	;; goGradable/goFairWord
+	(goto-char (point-min))
+	(while (re-search-forward
+		"<a href='javascript:\\(goGradable\\|goFairWord\\)(\"\\([^\"]+\\)\")'>"
+		nil t)
+	  (setq tmp1 (match-string 2))
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (insert (format "<a href=\"%s\">" (format baseurl tmp1))))
+	;; remove spacer
+	(goto-char (point-min))
+	(while (search-forward "img/spacer.gif" nil t)
+	  (delete-region (line-beginning-position) (line-end-position)))
+	(goto-char (point-min))
+	;; remove ¥ï¡¼¥É¥ê¥ó¥¯
+	(when (search-forward "alt=\"¥ï¡¼¥É¥ê¥ó¥¯\"" nil t)
+	  (delete-region (line-beginning-position) (line-end-position)))
+	;; Á´Ê¸¤òɽ¼¨¤¹¤ë¤Ï̵Íý
+	(goto-char (point-min))
+	(while (re-search-forward
+		(concat "<br */> *¢Í<strong>"
+			"<a href='javascript:goFullText(\"[^\"]+\", \"[^\"]+\")'>"
+			"Á´Ê¸¤òɽ¼¨¤¹¤ë</a>")
+		nil t)
+	  (delete-region (match-beginning 0) (match-end 0)))
+	;; Java Document write... ;_;
+	;; (while (re-search-forward
+	;; 	"<a href='javascript:goFullText(\"\\([^\"]+\\)\", \"\\([^\"]+\\)\")'>"
+	;; 	nil t)
+	;;   (setq tmp1 (match-string 1))
+	;;   (setq tmp2 (match-string 2))
+	;;   (delete-region (match-beginning 0) (match-end 0))
+	;;   ;; &dk=JE, &dk=EJ
+	;;   (insert (format "<a href=\"%s?ref=ex&exp=%s&dn=%s&dk=%s\">"
+	;; 		  curl tmp1 tmp2
+	;; 		  (if (string-match "\\Cj" cword) "JE" "EJ"))))
+	))))
+
+(defun w3m-filter-imepita (url)
+  "JavaScript emulation."
+  (goto-char (point-min))
+  (let (tmp)
+    (when (re-search-forward
+	   (concat "<script><!--\ndocument.write('\\([^\n]*\\)');\r\n//--></script>\n"
+		   "<noscript>.*</noscript>")
+	   nil t)
+      (setq tmp (match-string 1))
+      (delete-region (match-beginning 0) (match-end 0))
+      (insert tmp))))
+
+(defun w3m-filter-iframe (url)
+  (goto-char (point-min))
+  (while (re-search-forward "<iframe [^>]*src=\"\\([^\"]*\\)\"[^>]*>" nil t)
+    (insert (concat "[iframe:<a href=\"" (match-string 1) "\">" (match-string 1) "</a>]"))))
+
+(defun w3m-filter-allatanys (url)
+  "JavaScript emulation."
+  (goto-char (point-min))
+  (let (aturl atexpurl)
+    (if (re-search-forward
+	 (concat "<body[ \t\r\f\n]+onload=\"window\\.top\\.location\\.replace('"
+		 w3m-html-string-regexp
+		 "');\">")
+	 nil t)
+	(progn
+	  (setq aturl (match-string 1))
+	  (setq atexpurl (w3m-expand-url aturl url))
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (insert "<body>\n"
+		  "<hr>"
+		  "Body has a <b>url=window.top.location.replace()</b><br><br>\n"
+		  (format "Goto: <a href=%s>%s</a>\n" aturl atexpurl)
+		  "<hr>")
+	  (goto-char (point-min))
+	  (insert (format "<meta HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=%s\">\n"
+			  aturl)))
+      (while (re-search-forward (concat "<a[ \t\r\l\n]+href=\"javascript:[^(]+('"
+					"\\([^']+\\)')\">")
+				nil t)
+	(setq aturl (match-string 1))
+	(delete-region (match-beginning 0) (match-end 0))
+	(insert (format "<a href=\"%s\">" aturl))))))
+
+(defun w3m-filter-wikipedia (url)
+  "Make anchor reference to work."
+  (goto-char (point-min))
+  (let (matched-text refid)
+    (while (re-search-forward 
+	    "<\\(?:sup\\|cite\\) id=\"\\([^\"]*\\)\"" nil t)
+      (setq matched-text (match-string 0)
+	    refid        (match-string 1))
+      (delete-region (match-beginning 0) (match-end 0))
+      (insert (format "<a name=\"%s\"></a>%s" refid matched-text)))))
+
+;;; w3m-filter.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-form.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,1897 @@
+;;; w3m-form.el --- Stuffs to handle <form> tag
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>,
+;;          Yuuichi Teranishi  <[e-mail]>,
+;;          Hideyuki SHIRAI    <[e-mail]>,
+;;          Shun-ichi GOTO     <[e-mail]>,
+;;          Akihiro Arisawa    <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; This file contains the stuffs to handle <form> tag on emacs-w3m.
+;; For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m-util)
+(require 'w3m)
+
+(eval-when-compile
+  (defvar w3m-current-forms))
+
+(defcustom w3m-form-use-fancy-faces t
+  "*Use fancy faces to fontify <form> tags."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-form-treat-textarea-size t
+  "*Non-nil means to process textarea size (treat textarea rows)."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-form-use-textarea-backup t
+  "*Non-nil means save and restore text that you wrote last in the textarea.
+Files to save text are stored in the directory specified by the
+`w3m-form-textarea-directory' variable."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-form-textarea-file-expire-date 3
+  "*Date to expire of the file for textarea's backup."
+  :group 'w3m
+  :type '(choice (integer :tag "Expire date")
+		 (const :tag "Remove when emacs-w3m exit" t)
+		 (const :tag "No expire" nil)))
+
+(defcustom w3m-form-textarea-file-coding-system
+  (cond ((or (featurep 'un-define) 
+	     (fboundp 'utf-translate-cjk-mode))
+	 'utf-8)
+	((equal "Japanese" w3m-language)
+	 'iso-2022-7bit-ss2)
+	((w3m-find-coding-system 'utf-8)
+	 'utf-8)
+	(t
+	 'iso-2022-7bit-ss2))
+  "Coding system for textarea's backup file."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-form-textarea-directory
+  (expand-file-name ".textarea" w3m-profile-directory)
+  "*Name of the directory to save the file of textarea input."
+  :group 'w3m
+  :type '(directory :size 0))
+
+(defcustom w3m-form-textarea-edit-mode 'text-mode
+  "*Major mode to edit textarea."
+  :group 'w3m
+  :type '(choice
+	  (function :tag "Major mode")
+	  (repeat :tag "Rules to select major modes for the current page"
+	   (cons (choice (regexp :tag "Regexp matches the current page")
+			 (function :tag "Predicate checks the current page")
+			 (sexp :tag "Expression checks the current page"))
+		 (function :tag "Major mode")))))
+
+(defface w3m-form
+  '((((class color) (background light)) (:foreground "cyan" :underline t))
+    (((class color) (background dark)) (:foreground "red" :underline t))
+    (t (:underline t)))
+  "*Face to fontify forms."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-form-face 'face-alias 'w3m-form)
+
+;;; Local variables
+(defvar w3m-form-input-textarea-buffer nil)
+(defvar w3m-form-input-textarea-form nil)
+(defvar w3m-form-input-textarea-hseq nil)
+(defvar w3m-form-input-textarea-point nil)
+(defvar w3m-form-input-textarea-wincfg nil)
+(defvar w3m-form-input-textarea-file nil)
+(defvar w3m-form-input-textarea-coding-system nil)
+(defvar w3m-form-use-textarea-backup-p nil)
+(make-variable-buffer-local 'w3m-form-input-textarea-buffer)
+(make-variable-buffer-local 'w3m-form-input-textarea-form)
+(make-variable-buffer-local 'w3m-form-input-textarea-hseq)
+(make-variable-buffer-local 'w3m-form-input-textarea-point)
+(make-variable-buffer-local 'w3m-form-input-textarea-wincfg)
+(make-variable-buffer-local 'w3m-form-input-textarea-file)
+(make-variable-buffer-local 'w3m-form-input-textarea-coding-system)
+(make-variable-buffer-local 'w3m-form-use-textarea-backup-p)
+
+(defvar w3m-form-textarea-files nil)
+(make-variable-buffer-local 'w3m-form-textarea-files)
+
+(defvar w3m-form-textarea-post-files nil)
+(make-variable-buffer-local 'w3m-form-textarea-post-files)
+
+(defvar w3m-form-input-textarea-mode nil
+  "Non-nil if w3m textarea minor mode is enabled.")
+(make-variable-buffer-local 'w3m-form-input-textarea-mode)
+
+(defvar w3m-form-input-select-buffer nil)
+(defvar w3m-form-input-select-form nil)
+(defvar w3m-form-input-select-name nil)
+(defvar w3m-form-input-select-id nil)
+(defvar w3m-form-input-select-point nil)
+(defvar w3m-form-input-select-candidates nil)
+(defvar w3m-form-input-select-wincfg nil)
+(defvar w3m-form-input-select-urlid nil)
+(make-variable-buffer-local 'w3m-form-input-select-buffer)
+(make-variable-buffer-local 'w3m-form-input-select-form)
+(make-variable-buffer-local 'w3m-form-input-select-name)
+(make-variable-buffer-local 'w3m-form-input-select-id)
+(make-variable-buffer-local 'w3m-form-input-select-point)
+(make-variable-buffer-local 'w3m-form-input-select-candidates)
+(make-variable-buffer-local 'w3m-form-input-select-wincfg)
+(make-variable-buffer-local 'w3m-form-input-select-urlid)
+
+(defvar w3m-form-input-map-buffer nil)
+(defvar w3m-form-input-map-wincfg nil)
+(defvar w3m-form-input-map-point nil)
+(defvar w3m-form-input-map-urlname nil)
+(make-variable-buffer-local 'w3m-form-input-map-buffer)
+(make-variable-buffer-local 'w3m-form-input-map-wincfg)
+(make-variable-buffer-local 'w3m-form-input-map-point)
+(make-variable-buffer-local 'w3m-form-input-map-urlname)
+
+(defvar w3m-form-new-session nil
+  "Specify non-nil value to create a new session after sending form.
+It is useful to bind this variable with `let', but do not set it globally.")
+
+(defvar w3m-form-download nil
+  "Specify non-nil value to download contents after sending form.
+It is useful to bind this variable with `let', but do not set it globally.")
+
+;;; w3m-form structure:
+
+(defun w3m-form-normalize-action (action url)
+  "Normalize the ACTION using URL as a current URL."
+  ;; "!CURRENT_URL!" is magic string of w3m.
+  (if (and action (not (string= action "!CURRENT_URL!")))
+      (w3m-expand-url action url)
+    (when url
+      (w3m-string-match-url-components url)
+      (substring url 0 (or (match-beginning 6)
+			   (match-beginning 8))))))
+
+(defun w3m-form-new (method action &optional baseurl charlst enctype)
+  "Return new form object."
+  (vector 'w3m-form-object
+	  (if (stringp method)
+	      (intern method)
+	    method)
+	  action
+	  charlst
+	  (or enctype 'application/x-www-form-urlencoded)
+	  nil))
+
+(defun w3m-form-p (obj)
+  "Return t if OBJ is a form object."
+  (and (vectorp obj)
+       (symbolp (aref 0 obj))
+       (eq (aref 0 obj) 'w3m-form-object)))
+
+(defun w3m-form-set-method (form method)
+  (aset form 1 (if (stringp method)
+		   (intern method)
+		 method)))
+(defsetf w3m-form-method w3m-form-set-method)
+
+(defmacro w3m-form-method (form)
+  `(aref ,form 1))
+(defmacro w3m-form-action (form)
+  `(aref ,form 2))
+(defmacro w3m-form-charlst (form)
+  `(aref ,form 3))
+(defmacro w3m-form-enctype (form)
+  `(aref ,form 4))
+(defmacro w3m-form-plist (form)
+  `(aref ,form 5))
+(defun w3m-form-put-property (form name property value)
+  (aset form 5
+	(plist-put (w3m-form-plist form)
+		   (setq name (if (stringp name) (intern name) name))
+		   (plist-put (plist-get (w3m-form-plist form) name)
+			      property value)))
+  value)
+(defmacro w3m-form-get-property (form name property)
+  `(plist-get (plist-get (w3m-form-plist ,form)
+			 (if (stringp ,name)
+			     (intern ,name)
+			   ,name))
+	      ,property))
+(defmacro w3m-form-put (form id name value)
+  `(w3m-form-put-property ,form ,id :value (cons ,name ,value)))
+(defmacro w3m-form-get (form id)
+  `(cdr (w3m-form-get-property ,form ,id :value)))
+(defun w3m-form-get-by-name (form name)
+  (let ((plist (w3m-form-plist form))
+	pair value)
+    (while plist
+      (setq pair (plist-get (cadr plist) :value))
+      (when (and pair
+		 (string= (car pair) name))
+	(setq value (cdr pair)
+	      plist nil))
+      (setq plist (cddr plist)))
+    value))
+(defun w3m-form-put-by-name (form id name value)
+  (let ((plist (w3m-form-plist form))
+	pair found)
+    (while plist
+      (setq pair (plist-get (cadr plist) :value))
+      (when (and pair
+		 (string= (car pair) name))
+	(setcar plist id)
+	(setcdr pair value)
+	(setq found t
+	      plist nil))
+      (setq plist (cddr plist)))
+    (unless found
+      (w3m-form-put form id name value))))
+
+(defun w3m-form-goto-next-field ()
+  "Move to next form field and return the point.
+If no field in forward, return nil without moving."
+  (let* ((id (get-text-property (point) 'w3m-form-field-id))
+	 (beg (if id
+		  (next-single-property-change (point) 'w3m-form-field-id)
+		(point)))
+	 (next (next-single-property-change beg 'w3m-form-field-id)))
+    (if next
+	(goto-char next)
+      nil)))
+
+(defun w3m-form-get-coding-system (coding)
+  (or (catch 'det
+	(while coding
+	  (if (w3m-charset-to-coding-system (car coding))
+	      (throw 'det (w3m-charset-to-coding-system (car coding)))
+	    (setq coding (cdr coding)))))
+      w3m-current-coding-system
+      (w3m-charset-to-coding-system
+       (w3m-content-charset w3m-current-url))
+      w3m-default-coding-system))
+
+(defun w3m-form-make-form-data (form)
+  (let ((plist (w3m-form-plist form))
+	(coding (w3m-form-charlst form))
+	buf bufs)
+    (setq coding (w3m-form-get-coding-system coding))
+    (while plist
+      (let* ((number (car plist))
+	     (pair (plist-get (cadr plist) :value))
+	     (name (car pair))
+	     (value (cdr pair)))
+	(cond
+	 ((and (consp value)
+	       (eq (car value) 'file))
+	  (setq bufs (cons (cons number (cons name value)) bufs)))
+	 ((and (consp value)
+	       (consp (cdr value))
+	       (consp (cadr value)))	; select.
+	  (setq bufs (cons (cons number (cons name (car value))) bufs)))
+	 ((consp value)			; checkbox
+	  (setq bufs (append (mapcar (lambda (x) (cons number (cons name x))) value)
+			     bufs)))
+	 (value
+	  (setq bufs (cons (cons number (cons name value)) bufs))))
+	(setq plist (cddr plist))))
+    (when bufs
+      (setq bufs (sort bufs (lambda (x y) (< (car x) (car y)))))
+      (if (eq (w3m-form-enctype form) 'multipart/form-data)
+	  (let ((boundary (apply 'format "--_%d_%d_%d" (current-time)))
+		file type)
+	    ;; (setq buf (nreverse buf))
+	    (cons
+	     (concat "multipart/form-data; boundary=" boundary)
+	     (with-temp-buffer
+	       (set-buffer-multibyte nil)
+	       (while (setq buf (cdr (car bufs)))
+		 (if (and (consp (cdr buf))
+			  (eq (car (cdr buf)) 'file))
+		     (progn
+		       (setq file (expand-file-name (cdr (cdr buf))))
+		       (if (string= (setq type (w3m-local-content-type file))
+				    "unknown")
+			   (setq type "application/octet-stream"))
+		       (insert "--" boundary "\r\n"
+			       "Content-Disposition: form-data; name=\""
+			       (car buf)
+			       "\"; filename=\"" file "\"\r\n"
+			       "Content-Type: " type "\r\n"
+			       "Content-Transfer-Encoding: binary\r\n\r\n")
+		       (when (file-exists-p file)
+			 (insert-file-contents-literally file)
+			 (goto-char (point-max)))
+		       (insert "\r\n"))
+		   (insert "--" boundary "\r\n"
+			   "Content-Disposition: form-data; name=\""
+			   (car buf)
+			   "\"\r\n\r\n"
+			   (encode-coding-string (cdr buf) coding)
+			   "\r\n"))
+		 (setq bufs (cdr bufs)))
+	       (insert "--" boundary "--\r\n")
+	       (buffer-string))))
+	(mapconcat (lambda (elem)
+		     (setq elem (cdr elem))
+		     (format "%s=%s"
+			     (w3m-url-encode-string (car elem) coding t)
+			     (w3m-url-encode-string (if (stringp (cdr elem))
+							(cdr elem)
+						      "")
+						    coding
+						    t)))
+		   bufs "&")))))
+
+(defun w3m-form-resume (forms)
+  "Resume content of all forms in the current buffer using FORMS."
+  (when forms
+    (if (eq (car forms) t)
+	(setq forms (cdr forms)))
+    (save-excursion
+      (goto-char (point-min))
+      (let (textareas)
+	(while (w3m-form-goto-next-field)
+	  (let ((fid (get-text-property (point) 'w3m-form-field-id)))
+	    (when (and fid
+		       (string-match "\
+fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\([^/]*\\)/id=\\(.*\\)$"
+				     fid))
+	      (let ((form (nth (string-to-number (match-string 1 fid))
+			       forms))
+		    (cform (nth (string-to-number (match-string 1 fid))
+				w3m-current-forms))
+		    (type (match-string 2 fid))
+		    (name (match-string 3 fid))
+		    (id (string-to-number (match-string 4 fid))))
+		(when form
+		  (cond
+		   ((or (string= type "submit")
+			(string= type "image"))
+		    ;; Remove status to support forms containing multiple
+		    ;; submit buttons.
+		    (w3m-form-put cform id name nil))
+		   ((or (string= type "reset")
+			(string= type "hidden")
+			;; Do nothing.
+			))
+		   ((string= type "password")
+		    (w3m-form-replace (w3m-form-get form id)
+				      'invisible)
+		    (unless (eq form cform)
+		      (w3m-form-put cform id name (w3m-form-get form id))))
+		   ((string= type "radio")
+		    (let ((value (w3m-form-get-by-name form name)))
+		      (when value
+			(w3m-form-replace
+			 (if (string= value (nth 4 (w3m-action (point))))
+			     "*" " ")))
+		      (unless (eq form cform)
+			(w3m-form-put-by-name cform id name value))))
+		   ((string= type "checkbox")
+		    (let ((value (w3m-form-get form id)))
+		      (when value
+			(w3m-form-replace
+			 (if (member (nth 4 (w3m-action (point))) value)
+			     "*" " ")))
+		      (unless (eq form cform)
+			(w3m-form-put cform id name value))))
+		   ((string= type "select")
+		    (let ((selects (w3m-form-get form id)))
+		      (when (and (consp selects) (car selects))
+			(w3m-form-replace (cdr (assoc (car selects)
+						      (cdr selects)))))
+		      (unless (eq form cform)
+			(w3m-form-put cform id name selects))))
+		   ((string= type "textarea")
+		    (let ((hseq (nth 2 (w3m-action (point))))
+			  (value (w3m-form-get form id)))
+		      (when (> hseq 0)
+			(setq textareas (cons (cons hseq value) textareas)))
+		      (unless (eq form cform)
+			(w3m-form-put cform id name value))))
+		   ((string= type "file")
+		    (let ((value (w3m-form-get form id)))
+		      (when (and value
+				 (consp value))
+			(w3m-form-replace (cdr value)))
+		      (unless (eq form cform)
+			(w3m-form-put cform id name value))))
+		   (t
+		    (let ((value (w3m-form-get form id)))
+		      (when (stringp value)
+			(w3m-form-replace value))
+		      (unless (eq form cform)
+			(w3m-form-put cform id name value))))))))))
+	(unless w3m-form-treat-textarea-size
+	  (dolist (textarea textareas)
+	    (when (cdr textarea)
+	      (w3m-form-textarea-replace (car textarea) (cdr textarea)))))))))
+
+;;;###autoload
+(defun w3m-fontify-forms ()
+  "Process half-dumped data and fontify forms in this buffer."
+  ;; If `w3m-current-forms' is resumed from history, reuse it.
+  (w3m-form-parse-and-fontify
+   (when (eq t (car w3m-current-forms))
+     (setq w3m-current-forms (cdr w3m-current-forms)))))
+
+(eval-and-compile
+  (unless (fboundp 'w3m-form-make-button)
+    (defun w3m-form-make-button (start end properties)
+      "Make button on the region from START to END with PROPERTIES."
+      (w3m-add-text-properties start end
+			       (append '(face w3m-form) properties)))))
+
+;;; w3mmee
+;;
+(eval-and-compile
+  (defalias 'w3m-char-to-int (if (fboundp 'char-to-int)
+				 'char-to-int
+			       'identity))
+  (defalias 'w3m-string-to-char-list (if (fboundp 'string-to-list)
+					 'string-to-list
+				       (lambda (str)
+					 (mapcar 'identity str))))
+  (defalias 'w3m-int-to-char (if (fboundp 'int-to-char)
+				 'int-to-char
+			       'identity)))
+
+(defmacro w3m-form-mee-attr-unquote (x)
+  "Unquote form attribute of w3mmee."
+  '(let (attr)
+     (when (eq (car x) ?T)
+       (setq x (cdr x))
+       (while (and x (not (eq (w3m-char-to-int (car x)) 0)))
+	 (setq attr (concat attr (char-to-string (car x))))
+	 (setq x (cdr x))))
+     attr))
+
+(defun w3m-form-mee-new (x)
+  "Decode form information of w3mmee."
+  (setq x (w3m-string-to-char-list
+	   (w3m-url-decode-string x w3m-current-coding-system)))
+  (let (method enctype action charset target name)
+    (setq method (case (/ (w3m-char-to-int (car x)) 16)
+		   (0 "get")
+		   (1 "post")
+		   (2 "internal")
+		   (3 "head"))
+	  enctype (case (% (w3m-char-to-int (car x)) 16)
+		    (0 'application/x-www-form-urlencoded)
+		    (1 'multipart/form-data)))
+    (setq x (cdr x))
+    (setq action (w3m-form-normalize-action (w3m-form-mee-attr-unquote x)
+					    w3m-current-url))
+    (setq x (cdr x))
+    (if (member "lang=many" w3m-compile-options)
+	(setq charset (w3m-form-mee-attr-unquote x))
+      (setq charset (case (car x)
+		      (?e "euc-jp")
+		      (?s "shift-jis")
+		      (?n "iso-2022-7bit"))))
+    (setq x (cdr x))
+    (setq target (w3m-form-mee-attr-unquote x))	; not used.
+    (setq x (cdr x))
+    (setq name (w3m-form-mee-attr-unquote x)) ; not used.
+    (w3m-form-new method action nil (and charset (list charset)) enctype)))
+
+(defun w3m-form-mee-select-value (value)
+  "Decode select form information of w3mmee."
+  (let ((clist (w3m-string-to-char-list
+		(w3m-url-decode-string value w3m-current-coding-system)))
+	label val s selected candidates)
+    (while clist
+      (setq s (eq (car clist) (w3m-int-to-char 1))
+	    label nil
+	    val nil)
+      (setq clist (cdr clist))
+      (while (not (eq (car clist) (w3m-int-to-char 0)))
+	(setq label (concat label (char-to-string (car clist))))
+	(setq clist (cdr clist)))
+      (if label
+	  (setq label (decode-coding-string label w3m-output-coding-system)))
+      (setq clist (cdr clist))
+      (while (not (eq (car clist) (w3m-int-to-char 0)))
+	(setq val (concat val (char-to-string (car clist))))
+	(setq clist (cdr clist)))
+      (if val
+	  (setq val (decode-coding-string val w3m-output-coding-system)))
+      (if s (setq selected val))
+      (push (cons val label) candidates)
+      (setq clist (cdr clist)))
+    (cons selected (nreverse candidates))))
+
+(defun w3m-fontify-textareas ()
+  "Process and fontify textareas in this buffer."
+  (when w3m-form-treat-textarea-size
+    (save-excursion
+      (goto-char (point-min))
+      (let ((inhibit-read-only t)
+	    form fid start end type name rows start-column end-column
+	    hseq abs-hseq text id filename readonly)
+	(while (w3m-form-goto-next-field)
+	  (setq fid (get-text-property (point) 'w3m-form-field-id))
+	  (setq filename (get-text-property (point) 'w3m-form-file-name))
+	  (when
+	      (and
+	       fid
+	       (string-match
+		"fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\([^/]*\\)/id=\\(.*\\)$"
+		fid))
+	    (setq form (nth (string-to-number (match-string 1 fid))
+			    w3m-current-forms)
+		  type (match-string 2 fid)
+		  name (match-string 3 fid)
+		  id (string-to-number (match-string 4 fid)))
+	    (when (string= type "textarea")
+	      (setq rows (get-text-property (point) 'w3m-textarea-rows)
+		    hseq (get-text-property (point) 'w3m-form-hseq)
+		    readonly (get-text-property (point) 'w3m-form-readonly)
+		    abs-hseq (w3m-anchor-sequence))
+	      (setq start-column (- (current-column) 1))
+	      (goto-char (next-single-property-change (point)
+						      'w3m-form-hseq))
+	      (setq end-column (current-column))
+	      (save-excursion
+		(dotimes (i (- rows 1))
+		  (forward-line -1)
+		  (save-excursion
+		    (move-to-column start-column)
+		    (delete-char 1)
+		    (insert "[")
+		    (setq start (point))
+		    (move-to-column end-column)
+		    (delete-char 1)
+		    (setq end (point))
+		    (insert "]"))
+		  (w3m-add-face-property start end 'w3m-form)
+		  (add-text-properties
+		   start end
+		   `(w3m-form-field-id
+		     ,(format "fid=%s/type=%s/name=%s/id=%d" fid type name id)
+		     w3m-action (w3m-form-input-textarea ,form ,hseq)
+		     w3m-submit (w3m-form-submit ,form ,id ,name
+						 (w3m-form-get ,form ,id)
+						 w3m-form-new-session
+						 w3m-form-download)
+		     w3m-form-hseq ,hseq
+		     w3m-anchor-sequence ,abs-hseq
+		     w3m-form-id ,id
+		     w3m-form-name ,name
+		     w3m-form-file-name ,filename
+		     w3m-form-readonly ,readonly)))
+		(when (setq text (w3m-form-get form id))
+		  (w3m-form-textarea-replace hseq text))))))))))
+
+(defun w3m-form-parse-and-fontify (&optional reuse-forms)
+  "Parse forms of the half-dumped data in this buffer and fontify them.
+Result form structure is saved to the local variable `w3m-current-forms'.
+If optional REUSE-FORMS is non-nil, reuse it as `w3m-current-form'."
+  (let ((case-fold-search t)
+	(id 0)
+	tag start end internal-start textareas selects forms maps mapval
+	form filename)
+    (setq w3m-form-textarea-files nil)
+    (setq w3m-form-use-textarea-backup-p nil)
+    (goto-char (point-min))
+    (while (if (eq w3m-type 'w3mmee)
+	       (w3m-search-tag "_f" "map" "img_alt" "input_alt"
+			       "/input_alt")
+	     (w3m-search-tag "form_int" "map" "img_alt" "input_alt"
+			     "/input_alt"))
+      (setq tag (downcase (match-string 1)))
+      (goto-char (match-end 1))
+      (setq start (match-end 0))
+      (cond
+       ((string= tag (if (eq w3m-type 'w3mmee) "_f" "form_int"))
+	(if (eq w3m-type 'w3mmee)
+	    (w3m-parse-attributes (_x)
+	      (setq forms (nconc forms (list (w3m-form-mee-new _x)))))
+	  (w3m-parse-attributes (action (method :case-ignore)
+					(fid :integer)
+					(accept-charset :case-ignore)
+					(enctype :case-ignore)
+					(charset :case-ignore))
+	    (when action
+	      (setq action (w3m-url-transfer-encode-string
+			    (w3m-decode-anchor-string action)
+			    (if charset
+				(w3m-charset-to-coding-system charset)
+			      w3m-current-coding-system))))
+	    (if (setq form (cdr (assq fid forms)))
+		(progn
+		  (setf (w3m-form-method form) (or method "get"))
+		  (setf (w3m-form-action form)
+			(w3m-form-normalize-action action w3m-current-url))
+		  (setf (w3m-form-charlst form)
+			(if accept-charset
+			    (setq accept-charset
+				  (split-string accept-charset ","))))
+		  (setf (w3m-form-enctype form)
+			(if enctype
+			    (intern enctype)
+			  'application/x-www-form-urlencoded)))
+	      (setq form (w3m-form-new
+			  (or method "get")
+			  (w3m-form-normalize-action action w3m-current-url)
+			  nil
+			  (if accept-charset
+			      (setq accept-charset
+				    (split-string accept-charset ",")))
+			  (if enctype
+			      (intern enctype)
+			    'application/x-www-form-urlencoded)))
+	      (setq forms (cons (cons fid form) forms))))))
+       ((string= tag "map")
+	(let (candidates)
+	  (w3m-parse-attributes (name)
+	    (while (and (w3m-search-tag "area" "/map")
+			(not (char-equal
+			      (char-after (match-beginning 1))
+			      ?/)))
+	      (goto-char (match-end 1))
+	      (w3m-parse-attributes (href alt)
+		(when href
+		  (setq candidates (cons (cons href (or alt href))
+					 candidates)))))
+	    (unless maps (setq maps (w3m-form-new "map" ".")))
+	    (when candidates
+	      (w3m-form-put maps
+			    (incf id)
+			    name
+			    (nreverse candidates))))))
+       ((string= tag "img_alt")
+	(w3m-parse-attributes (usemap)
+	  (w3m-search-tag "/img_alt")
+	  (when (or usemap mapval)
+	    (unless maps (setq maps (w3m-form-new "map" ".")))
+	    (unless usemap (setq usemap mapval))
+	    (when mapval (setq mapval nil))
+	    (w3m-add-face-property start end 'w3m-form)
+	    (add-text-properties
+	     start (match-beginning 0)
+	     `(w3m-action (w3m-form-input-map ,maps ,usemap))))))
+       ((string= tag "/input_alt")
+	(replace-match ""))
+       ((string= tag "input_alt")
+	(w3m-parse-attributes ((fid :integer)
+			       (type :case-ignore)
+			       (width :integer)
+			       (maxlength :integer)
+			       (hseq :integer)
+			       (selectnumber :integer)	 ; select
+			       (textareanumber :integer) ; textarea
+			       (size :integer)		 ; textarea
+			       (rows :integer)		 ; textarea
+			       (top_mergin :integer)	 ; textarea
+			       (checked :bool) ; checkbox, radio
+			       (readonly :bool)
+			       no_effect       ; map
+			       name value)
+	  (incf id)
+	  (when value
+	    (setq value (w3m-decode-entities-string value)))
+	  (save-excursion
+	    (search-forward "</input_alt>")
+	    (setq end (match-beginning 0)))
+	  (let ((abs-hseq (or (and (null hseq) 0) (abs hseq))))
+	    (setq w3m-max-anchor-sequence
+		  (max abs-hseq w3m-max-anchor-sequence))
+	    (if (eq w3m-type 'w3mmee)
+		(setq form (nth fid forms))
+	      (setq form (cdr (assq fid forms))))
+	    (unless form
+	      (setq forms (cons (cons fid (setq form
+						(w3m-form-new nil nil)))
+				forms)))
+	    (cond
+	     ((and (string= type "hidden")
+		   (string= name "link"))
+	      (setq mapval value))
+	     ((or (string= type "submit")
+		  (string= type "image"))
+	      (unless (string= no_effect "true")
+		(w3m-form-make-button
+		 start end
+		 `(w3m-form-field-id
+		   ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		   w3m-action (w3m-form-submit ,form ,id ,name ,value
+					       w3m-form-new-session
+					       w3m-form-download)
+		   w3m-submit (w3m-form-submit ,form ,id ,name
+					       (w3m-form-get ,form ,id)
+					       w3m-form-new-session
+					       w3m-form-download)
+		   w3m-anchor-sequence ,abs-hseq))))
+	     ((string= type "reset")
+	      (w3m-form-make-button
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-reset ,form)
+		 w3m-anchor-sequence ,abs-hseq)))
+	     ((string= type "textarea")
+	      (if (eq w3m-type 'w3mmee)
+		  (w3m-form-put form id
+				name
+				(decode-coding-string
+				 (w3m-url-decode-string value
+							w3m-current-coding-system)
+				 w3m-output-coding-system))
+		(setq textareas (cons (list textareanumber form id name readonly)
+				      textareas)))
+	      (when w3m-current-url
+		(setq filename (expand-file-name
+				(w3m-form-input-textarea-filename
+				 w3m-current-url
+				 (format "fid=%d/type=%s/name=%s/id=%d"
+					 fid type name id))
+				w3m-form-textarea-directory))
+		(setq w3m-form-textarea-files
+		      (cons filename w3m-form-textarea-files)))
+	      (w3m-add-face-property start end 'w3m-form)
+	      (add-text-properties
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-input-textarea ,form ,hseq)
+		 w3m-submit (w3m-form-submit ,form ,id ,name
+					     (w3m-form-get ,form ,id)
+					     w3m-form-new-session
+					     w3m-form-download)
+		 w3m-textarea-rows ,rows
+		 w3m-form-hseq ,hseq
+		 w3m-anchor-sequence ,abs-hseq
+		 w3m-form-id ,id
+		 w3m-form-name ,name
+		 w3m-form-file-name ,filename
+		 w3m-form-readonly ,readonly)))
+	     ((string= type "select")
+	      (when (if (eq w3m-type 'w3mmee)
+			(when value
+			  (w3m-form-put form id name
+					(w3m-form-mee-select-value value))
+			  t)
+		      (setq selects (cons (list selectnumber form id name)
+					  selects)))
+		(w3m-add-face-property start end 'w3m-form)
+		(add-text-properties
+		 start end
+		 `(w3m-form-field-id
+		   ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		   w3m-action (w3m-form-input-select ,form ,id ,name)
+		   w3m-submit (w3m-form-submit ,form ,id ,name
+					       (w3m-form-get ,form ,id)
+					       w3m-form-new-session
+					       w3m-form-download)
+		   w3m-anchor-sequence ,abs-hseq))))
+	     ((string= type "password")
+	      (w3m-add-face-property start end 'w3m-form)
+	      (add-text-properties
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-input-password ,form ,id ,name)
+		 w3m-submit (w3m-form-submit ,form ,id ,name
+					     (w3m-form-get ,form ,id)
+					     w3m-form-new-session
+					     w3m-form-download)
+		 w3m-anchor-sequence ,abs-hseq
+		 w3m-form-readonly ,readonly)))
+	     ((string= type "checkbox")
+	      (let ((cvalue (w3m-form-get form id)))
+		(w3m-form-put form id name
+			      (if checked
+				  (cons value cvalue)
+				cvalue)))
+	      (w3m-add-face-property start end 'w3m-form)
+	      (add-text-properties
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-input-checkbox ,form ,id ,name ,value)
+		 w3m-submit (w3m-form-submit ,form ,id ,name
+					     (w3m-form-get ,form ,id)
+					     w3m-form-new-session
+					     w3m-form-download)
+		 w3m-anchor-sequence ,abs-hseq)))
+	     ((string= type "radio")
+	      ;; Radio button input, one name has one value
+	      (if checked
+		  (w3m-form-put-by-name form id name value))
+	      (w3m-add-face-property start end 'w3m-form)
+	      (add-text-properties
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-input-radio ,form ,id ,name ,value)
+		 w3m-submit (w3m-form-submit ,form ,id ,name
+					     (w3m-form-get-by-name ,form ,name)
+					     w3m-form-new-session
+					     w3m-form-download)
+		 w3m-anchor-sequence ,abs-hseq)))
+	     ((string= type "file")
+	      (w3m-add-face-property start end 'w3m-form)
+	      (add-text-properties
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-input-file ,form ,id ,name ,value)
+		 w3m-submit (w3m-form-submit ,form ,id ,name
+					     (w3m-form-get ,form ,id)
+					     w3m-form-new-session
+					     w3m-form-download)
+		 w3m-anchor-sequence ,abs-hseq)))
+	     (t
+	      (w3m-form-put form
+			    id
+			    name
+			    (or value (w3m-form-get form id)))
+	      (w3m-add-face-property start end 'w3m-form)
+	      (add-text-properties
+	       start end
+	       `(w3m-form-field-id
+		 ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id)
+		 w3m-action (w3m-form-input ,form ,id ,name ,type
+					    ,width ,maxlength ,value)
+		 w3m-submit (w3m-form-submit ,form ,id ,name
+					     (w3m-form-get ,form ,id)
+					     w3m-form-new-session
+					     w3m-form-download)
+		 w3m-anchor-sequence ,abs-hseq
+		 w3m-form-readonly ,readonly)))))))))
+    ;; Process <internal> tag.
+    (when (search-forward "<internal>" nil t)
+      (setq internal-start (match-beginning 0))
+      (while (and (null reuse-forms)
+		  (re-search-forward "<\\([a-z]+\\)_int" nil t))
+	(incf id)
+	(cond
+	 ((string= (match-string 1) "select")
+	  (w3m-parse-attributes ((selectnumber :integer))
+	    (let ((selectinfo (cdr (assq selectnumber selects)))
+		  current candidates)
+	      (when selectinfo
+		;; Parse FORM SELECT fields until </SELECT> (or </FORM>)
+		(while (and (w3m-search-tag "option_int" "/select_int")
+			    (not (char-equal (char-after (match-beginning 1))
+					     ?/)))
+		  ;; <option_int> is found
+		  (goto-char (match-end 1))
+		  (w3m-parse-attributes ((value :decode-entity)
+					 (label :decode-entity)
+					 (selected :bool))
+		    (push (cons value label) candidates)
+		    (if selected (setq current value))
+		    (skip-chars-forward ">\n")))
+		(setq candidates (nreverse candidates))
+		(w3m-form-put (nth 0 selectinfo)
+			      (nth 1 selectinfo)
+			      (nth 2 selectinfo)
+			      (cons (or current	; current value
+					(caar candidates))
+				    candidates))))))
+	 ((string= (match-string 1) "textarea")
+	  (w3m-parse-attributes ((textareanumber :integer))
+	    (forward-char 1)		; skip newline character.
+	    (let ((textareainfo (cdr (assq textareanumber textareas)))
+		  (buffer (current-buffer))
+		  end text)
+	      (when textareainfo
+		(setq start (point))
+		(skip-chars-forward "^<")
+		(setq text (buffer-substring-no-properties start (point)))
+		(w3m-form-put
+		 (nth 0 textareainfo) (nth 1 textareainfo) (nth 2 textareainfo)
+		 (with-temp-buffer
+		   (insert text)
+		   (w3m-decode-entities)
+		   (goto-char (point-min))
+		   (while (search-forward "\r\n" nil t) (replace-match "\n"))
+		   (buffer-string)))))))))
+      (when (search-forward "</internal>" nil t)
+	(delete-region internal-start (match-end 0))))
+    (setq w3m-current-forms (if (eq w3m-type 'w3mmee)
+				forms
+			      (mapcar 'cdr
+				      (sort forms (lambda (x y)
+						    (< (car x)(car y)))))))
+    (w3m-form-resume (or reuse-forms w3m-current-forms))))
+
+(defun w3m-form-replace (string &optional invisible)
+  (let* ((start (text-property-any (point-min) (point-max)
+				   'w3m-action (w3m-action (point))))
+	 (width (string-width
+		 (buffer-substring
+		  start
+		  (next-single-property-change start 'w3m-action))))
+	 (prop (text-properties-at start))
+	 (p (point))
+	 (inhibit-read-only t))
+    (goto-char start)
+    (insert (setq string
+		  (if invisible
+		      (make-string (length string) ?.)
+		    (mapconcat 'identity
+			       (split-string
+				(w3m-truncate-string (or string "")
+						     width) "\n")
+			       "")))
+	    (make-string (max (- width (string-width string)) 0) ?\ ))
+    (delete-region (point)
+		   (next-single-property-change (point) 'w3m-action))
+    (add-text-properties start (point) prop)
+    (set-buffer-modified-p nil)
+    (prog1 (point)
+      (goto-char p))))
+
+(defun w3m-form-input (form id name type width maxlength value)
+  (let ((fvalue (w3m-form-get form id)))
+    (if (get-text-property (point) 'w3m-form-readonly)
+	(message "READONLY %s: %s" (upcase type) fvalue)
+      (save-excursion
+	(let ((input (save-excursion
+		       (read-from-minibuffer (concat (upcase type) ": ") fvalue)))
+	      (coding (w3m-form-get-coding-system (w3m-form-charlst form))))
+	  (when (with-temp-buffer
+		  (insert input)
+		  (w3m-form-coding-system-accept-region-p nil nil coding))
+	    (w3m-form-put form id name input)
+	    (w3m-form-replace input)))))))
+
+(defun w3m-form-input-password (form id name)
+  (if (get-text-property (point) 'w3m-form-readonly)
+      (message "This input box is read-only.")
+    (let* ((fvalue (w3m-form-get form id))
+	   (input (save-excursion
+		    (read-passwd (concat "PASSWORD"
+					 (if fvalue
+					     " (default is no change)")
+					 ": ")
+				 nil
+				 fvalue))))
+      (w3m-form-put form id name input)
+      (w3m-form-replace input 'invisible))))
+
+(defun w3m-form-input-checkbox (form id name value)
+  (let ((fvalue (w3m-form-get form id)))
+    (if (member value fvalue)		; already checked
+	(progn
+	  (w3m-form-put form id name (delete value fvalue))
+	  (w3m-form-replace " "))
+      (w3m-form-put form id name (cons value fvalue))
+      (w3m-form-replace "*"))))
+
+(defun w3m-form-field-parse (fid)
+  (when (and fid
+	     (string-match
+	      "fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\([^/]*\\)/id=\\(.*\\)$"
+	      fid))
+    (list (match-string 1 fid)
+	  (match-string 2 fid)
+	  (match-string 3 fid)
+	  (match-string 4 fid))))
+
+(defun w3m-form-input-radio (form id name value)
+  (save-excursion
+    (let ((fid (w3m-form-field-parse
+		(get-text-property (point) 'w3m-form-field-id)))
+	  cur-fid)
+      (when fid
+	;; Uncheck all RADIO input having same NAME
+	(goto-char 1)
+	(while (w3m-form-goto-next-field)
+	  (setq cur-fid (w3m-form-field-parse
+			 (get-text-property (point)
+					    'w3m-form-field-id)))
+	  (when (and (string= (nth 0 fid) (nth 0 cur-fid))
+		     (string= (nth 1 fid) (nth 1 cur-fid))
+		     (string= (nth 2 fid) (nth 2 cur-fid)))
+	    (w3m-form-put-by-name
+	     form (string-to-number (nth 3 fid)) (nth 2 fid) nil)
+	    (w3m-form-replace " ")))))) ; erase check
+  ;; Then set this field as checked.
+  (w3m-form-put-by-name form id name value)
+  (w3m-form-replace "*"))
+
+(defun w3m-form-input-file (form id name value)
+  (let ((input (save-excursion
+		 (read-file-name "File name: "
+				 (or (cdr (w3m-form-get form id))
+				     "~/")))))
+    (w3m-form-put form id name (cons 'file input))
+    (w3m-form-replace input)))
+
+;;; TEXTAREA
+
+(defcustom w3m-form-input-textarea-buffer-lines 10
+  "*Buffer lines for form textarea buffer."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-form-input-textarea-mode-hook nil
+  "*A hook called after w3m-form-input-textarea-mode."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-form-input-textarea-set-hook nil
+  "*A Hook called before w3m-form-input-textarea-set."
+  :group 'w3m
+  :type 'hook)
+
+(defun w3m-form-text-chop (text)
+  "Return a list of substrings of TEXT which are separated by newline
+character."
+  (when text
+    (let ((start 0) parts)
+      (while (string-match "\n" text start)
+	(setq parts (cons (substring text start (match-beginning 0)) parts)
+	      start (match-end 0)))
+      (nreverse (cons (substring text start) parts)))))
+
+(defun w3m-form-search-textarea (hseq direction)
+  (let ((point (point))
+	(next-single-property-change-function
+	 (if (eq direction 'forward)
+	     'next-single-property-change
+	   'previous-single-property-change))
+	found)
+    (if (get-text-property point 'w3m-form-hseq)
+	(setq point (funcall next-single-property-change-function point
+			     'w3m-form-hseq)))
+    (when point
+      (while (and (not found)
+		  (setq point (funcall next-single-property-change-function
+				       point 'w3m-form-hseq)))
+	(when (eq (get-text-property point 'w3m-form-hseq) hseq)
+	  (setq found t)))
+      (if point (goto-char point)))))
+
+(defun w3m-form-textarea-replace (hseq string)
+  (let ((chopped (w3m-form-text-chop string))
+	(p (point)))
+    (goto-char (point-min))
+    (while (w3m-form-search-textarea hseq 'forward)
+      (w3m-form-replace (or (car chopped) ""))
+      (setq chopped (cdr chopped)))
+    (goto-char p)))
+
+(defun w3m-form-textarea-info ()
+  "Return a list of (ID NAME LINE READONLY) for current text area."
+  (let ((s (get-text-property (point) 'w3m-form-hseq))
+	(lines 1))
+    (save-excursion
+      (while (w3m-form-search-textarea s 'backward)
+	(incf lines))
+      (list (get-text-property (point) 'w3m-form-id)
+	    (get-text-property (point) 'w3m-form-name)
+	    lines
+	    (get-text-property (point) 'w3m-form-readonly)))))
+
+(defvar w3m-form-input-textarea-map nil)
+(unless w3m-form-input-textarea-map
+  (setq w3m-form-input-textarea-map (make-sparse-keymap))
+  (define-key w3m-form-input-textarea-map "\C-c\C-c"
+    'w3m-form-input-textarea-set)
+  (define-key w3m-form-input-textarea-map "\C-c\C-q"
+    'w3m-form-input-textarea-exit)
+  (define-key w3m-form-input-textarea-map "\C-c\C-k"
+    'w3m-form-input-textarea-exit)
+  (define-key w3m-form-input-textarea-map "\C-x\C-s"
+    'w3m-form-input-textarea-save))
+
+(defun w3m-form-input-textarea-filename (url id)
+  (condition-case nil
+      (concat (md5 (concat url id) nil nil w3m-current-coding-system) ".txt")
+    (error
+     (let ((file "")
+	   ;; Interdit chars of Windows
+	   (replace (regexp-opt '("\\" "/" ":" "*" "?" "\"" "<" ">" "|")))
+	   (max-file-path 254))
+       (while (string-match replace url)
+	 (setq file (concat file (substring url 0 (match-beginning 0)) "_"))
+	 (setq url (substring url (match-end 0))))
+       (setq file (concat file url "-"))
+       (while (string-match replace id)
+	 (setq file (concat file (substring id 0 (match-beginning 0)) "_"))
+	 (setq id (substring id (match-end 0))))
+       (if (< (- max-file-path 4) (length file))
+	   (setq file (substring file 0 (- max-file-path 4 (length id)))))
+       (setq file (concat file id ".txt"))
+       (convert-standard-filename file)))))
+
+(defun w3m-form-input-textarea-save (&optional buffer file no-check)
+  "Save textarea buffer."
+  (interactive)
+  (setq buffer (or buffer (current-buffer)))
+  (setq file (or file w3m-form-input-textarea-file))
+  (with-current-buffer buffer
+    (if (/= (buffer-size) 0)
+	(when (and
+	       (or w3m-form-use-textarea-backup-p
+		   (and (eq this-command 'w3m-form-input-textarea-save)
+			(y-or-n-p "Really save this buffer? ")))
+	       (or no-check
+		   (w3m-form-coding-system-accept-region-p)))
+	  (let ((buffer-file-coding-system
+		 w3m-form-textarea-file-coding-system)
+		(coding-system-for-write
+		 w3m-form-textarea-file-coding-system))
+	    (write-region (point-min) (point-max) file nil 'nomsg)))
+      (when w3m-form-use-textarea-backup-p
+	(when (file-exists-p file)
+	  (delete-file file))
+	(when (file-exists-p (make-backup-file-name file))
+	  (delete-file (make-backup-file-name file)))
+	(set-buffer-modified-p nil)))))
+
+(defun w3m-form-input-textarea-set ()
+  "Save and exit from w3m form textarea mode."
+  (interactive)
+  (run-hooks 'w3m-form-input-textarea-set-hook)
+  (let ((input (buffer-string))
+	(buffer (current-buffer))
+	(hseq w3m-form-input-textarea-hseq)
+	(form w3m-form-input-textarea-form)
+	(point w3m-form-input-textarea-point)
+	(w3mbuffer w3m-form-input-textarea-buffer)
+	(wincfg w3m-form-input-textarea-wincfg)
+	(file w3m-form-input-textarea-file)
+	info)
+    (when (w3m-form-coding-system-accept-region-p)
+      (w3m-form-input-textarea-save buffer file t)
+      (or (one-window-p) (delete-window))
+      (kill-buffer buffer)
+      (if (not (buffer-live-p w3mbuffer))
+	  (and (eq this-command 'w3m-form-input-textarea-set)
+	       (message "No current w3m buffer"))
+	(pop-to-buffer w3mbuffer)
+	(set-window-configuration wincfg)
+	(when (and form point)
+	  (goto-char point)
+	  (setq info (w3m-form-textarea-info))
+	  (w3m-form-put form (nth 0 info) (nth 1 info) input)
+	  (w3m-form-textarea-replace hseq input))))))
+
+(defun w3m-form-input-textarea-exit ()
+  "Exit from w3m form textarea mode."
+  (interactive)
+  (let ((buffer (current-buffer))
+	(point w3m-form-input-textarea-point)
+	(w3mbuffer w3m-form-input-textarea-buffer)
+	(wincfg w3m-form-input-textarea-wincfg)
+	(file w3m-form-input-textarea-file))
+    (w3m-form-input-textarea-save buffer file)
+    (or (one-window-p) (delete-window))
+    (kill-buffer buffer)
+    (if (not (buffer-live-p w3mbuffer))
+	(and (eq this-command 'w3m-form-input-textarea-exit)
+	     (message "No current w3m buffer"))
+      (pop-to-buffer w3mbuffer)
+      (set-window-configuration wincfg)
+      (when point (goto-char point)))))
+
+(unless (assq 'w3m-form-input-textarea-mode minor-mode-alist)
+  (push (list 'w3m-form-input-textarea-mode " w3m form textarea")
+	minor-mode-alist))
+(unless (assq 'w3m-form-input-textarea-mode minor-mode-map-alist)
+  (push (cons 'w3m-form-input-textarea-mode w3m-form-input-textarea-map)
+	minor-mode-map-alist))
+
+(defun w3m-form-input-textarea-mode (&optional arg)
+  "\\<w3m-form-input-textarea-map>
+Minor mode to edit form textareas of w3m.
+
+\\[w3m-form-input-textarea-set]\
+	Set the value and exit from this textarea.
+\\[w3m-form-input-textarea-exit]\
+	Exit from this textarea without setting the value.
+\\[w3m-form-input-textarea-save]\
+	Save editing data in this textarea.
+"
+  (interactive "P")
+  (when (setq w3m-form-input-textarea-mode
+	      (if arg
+		  (> (prefix-numeric-value arg) 0)
+		(not w3m-form-input-textarea-mode)))
+    (run-hooks 'w3m-form-input-textarea-mode-hook)))
+
+(defun w3m-form-input-textarea-mode-setup (caller-buffer)
+  (funcall (if (functionp w3m-form-textarea-edit-mode)
+	       w3m-form-textarea-edit-mode
+	     (or (when (buffer-live-p caller-buffer)
+		   (with-current-buffer caller-buffer
+		     (save-match-data
+		       (catch 'found-mode
+			 (dolist (elem w3m-form-textarea-edit-mode)
+			   (when (if (stringp (car elem))
+				     (string-match (car elem)
+						   w3m-current-url)
+				   (if (functionp (car elem))
+				       (funcall (car elem))
+				     (eval (car elem))))
+			     (throw 'found-mode (cdr elem))))))))
+		 'text-mode)))
+  (w3m-form-input-textarea-mode 1)
+  (message "%s"
+	   (substitute-command-keys "Type \
+`\\<w3m-form-input-textarea-map>\\[w3m-form-input-textarea-set]' to exit \
+textarea, or type \
+`\\<w3m-form-input-textarea-map>\\[w3m-form-input-textarea-exit]' to quit \
+textarea")))
+
+(eval-and-compile
+  (defalias 'w3m-same-window-p
+    (if (featurep 'xemacs)
+	(lambda (buffer-name)
+	  "Return non-nil if a buffer named BUFFER-NAME would be shown in the \"same\" window.
+This function returns non-nil if `display-buffer' or
+`pop-to-buffer' would show a buffer named BUFFER-NAME in the
+selected rather than \(as usual\) some other window.  See
+`same-window-buffer-names' and `same-window-regexps'."
+	  (cond
+	   ((not (stringp buffer-name)))
+	   ;; The elements of `same-window-buffer-names' can be buffer
+	   ;; names or cons cells whose cars are buffer names.
+	   ((and (boundp 'same-window-buffer-names)
+		 (member buffer-name same-window-buffer-names)))
+	   ((and (boundp 'same-window-buffer-names)
+		 (assoc buffer-name same-window-buffer-names)))
+	   ((and (boundp 'same-window-regexps)
+		 (save-match-data
+		   (catch 'found
+		     (dolist (regexp same-window-regexps)
+		       ;; The elements of `same-window-regexps' can be regexps
+		       ;; or cons cells whose cars are regexps.
+		       (when (or (and (stringp regexp)
+				      (string-match regexp buffer-name))
+				 (and (consp regexp) (stringp (car regexp))
+				      (string-match (car regexp) buffer-name)))
+			 (throw 'found t)))))))))
+      'same-window-p)))
+
+(defun w3m-form-input-textarea (form hseq)
+  (let* ((info  (w3m-form-textarea-info))
+	 (value (w3m-form-get form (car info)))
+	 (cur-win (selected-window))
+	 (wincfg (current-window-configuration))
+	 (w3mbuffer (current-buffer))
+	 (point (point))
+	 (size (- (window-height cur-win)
+		  (1+ (max window-min-height
+			   w3m-form-input-textarea-buffer-lines))))
+	 (file (get-text-property (point) 'w3m-form-file-name))
+	 (coding (w3m-form-get-coding-system (w3m-form-charlst form)))
+	 (readonly (nth 3 info))
+	 (backup-p (and (not readonly)
+			(w3m-form-use-textarea-backup-p)))
+	 buffer)
+    (setq w3m-form-use-textarea-backup-p backup-p)
+    (when backup-p
+      (add-hook 'kill-emacs-hook 'w3m-form-textarea-file-cleanup)
+      (let ((dir (file-chase-links
+		  (expand-file-name w3m-form-textarea-directory))))
+	(unless (and (file-exists-p dir) (file-directory-p dir))
+	  (make-directory dir))))
+    (setq buffer
+	  (catch 'detect-buffer
+	    (save-current-buffer
+	      (dolist (buffer (buffer-list))
+		(set-buffer buffer)
+		(when (and w3m-form-input-textarea-mode
+			   (eq w3m-form-input-textarea-buffer w3mbuffer)
+			   (string= w3m-form-input-textarea-file file))
+		  (throw 'detect-buffer (cons t buffer)))))
+	    (generate-new-buffer "*w3m form textarea*")))
+    (unless (consp buffer)
+      (when (and backup-p (file-exists-p file) (file-readable-p file))
+	(with-temp-buffer
+	  (let ((buffer-file-coding-system w3m-form-textarea-file-coding-system)
+		(coding-system-for-read w3m-form-textarea-file-coding-system))
+	    (insert-file-contents file))
+	  (let ((before (buffer-string)))
+	    (when (unless (w3m-form-textarea-same-check value before)
+		    (save-window-excursion
+		      (set-window-buffer (selected-window) (current-buffer))
+		      (goto-char (abs (w3m-compare-strings
+				       before 0 (length before)
+				       value 0 (length value))))
+		      (condition-case nil
+			  (y-or-n-p
+			   "The saved text for this form exists. Use it? ")
+			(quit
+			 (kill-buffer buffer)
+			 (error "Abort textarea editing")))))
+	      (setq value before)))))
+      (with-current-buffer buffer
+	(insert value)
+	(set-buffer-modified-p nil)
+	(when readonly (setq buffer-read-only t))
+	(goto-char (point-min))
+	(forward-line (1- (nth 2 info)))
+	(w3m-form-input-textarea-mode-setup w3mbuffer)
+	(setq w3m-form-input-textarea-form form
+	      w3m-form-input-textarea-hseq hseq
+	      w3m-form-input-textarea-buffer w3mbuffer
+	      w3m-form-input-textarea-point point
+	      w3m-form-input-textarea-wincfg wincfg
+	      w3m-form-input-textarea-file file
+	      w3m-form-input-textarea-coding-system coding
+	      w3m-form-use-textarea-backup-p backup-p)))
+    (if (and (consp buffer)
+	     (get-buffer-window (cdr buffer)))
+	;; same frame only
+	(select-window (get-buffer-window (cdr buffer)))
+      ;; Use the whole current window for the textarea when a user added
+      ;; the buffer name "*w3m form textarea*" to `same-window-buffer-names'
+      ;; (that is available only in Emacs).
+      ;; cf. http://article.gmane.org/gmane.emacs.w3m/7797
+      (unless (w3m-same-window-p (buffer-name (if (consp buffer)
+						  (cdr buffer)
+						buffer)))
+	(condition-case nil
+	    (split-window cur-win (if (> size 0) size window-min-height))
+	  (error
+	   (delete-other-windows)
+	   (split-window cur-win (- (window-height cur-win)
+				    w3m-form-input-textarea-buffer-lines))))
+	(select-window (next-window)))
+      (let ((pop-up-windows nil))
+	(switch-to-buffer (if (consp buffer) (cdr buffer) buffer))))))
+
+(defun w3m-form-use-textarea-backup-p ()
+  (and w3m-form-use-textarea-backup
+       (let ((cbuf (current-buffer))
+	     (curl w3m-current-url))
+	 (catch 'loop
+	   (save-current-buffer
+	     (dolist (buf (w3m-list-buffers))
+	       (when (eq buf cbuf)
+		 (throw 'loop t))
+	       (set-buffer buf)
+	       (when (string= w3m-current-url curl)
+		 (throw 'loop nil)))
+	     t)))))
+
+(defun w3m-form-textarea-same-check (str1 str2)
+  "Compare STR1 and STR2 without tailed whitespace."
+  (when (string-match "[ \t\n\r]+$" str1)
+    (setq str1 (substring str1 0 (match-beginning 0))))
+  (when (string-match "[ \t\n\r]+$" str2)
+    (setq str2 (substring str2 0 (match-beginning 0))))
+  (string= str1 str2))
+
+(defun w3m-form-textarea-file-cleanup ()
+  "Remove all textarea files."
+  (remove-hook 'kill-emacs-hook 'w3m-form-textarea-file-cleanup)
+  (let ((dir (file-chase-links
+	      (expand-file-name w3m-form-textarea-directory)))
+	(checktime t)
+	files file time)
+    (when (and w3m-form-textarea-file-expire-date
+	       (file-directory-p dir))
+      (when (integerp w3m-form-textarea-file-expire-date)
+	(setq checktime (decode-time (current-time)))
+	(setq checktime (encode-time (nth 0 checktime) ;; seconds
+				     (nth 1 checktime) ;; minutes
+				     (nth 2 checktime) ;; hour
+				     (- (nth 3 checktime) ;; day
+					w3m-form-textarea-file-expire-date)
+				     (nth 4 checktime) ;; month
+				     (nth 5 checktime) ;; year
+				     (nth 6 checktime) ;; dow
+				     (nth 7 checktime) ;; dst
+				     (nth 8 checktime)))) ;; zone
+      (setq files (directory-files dir 'full "[^.]" 'nosort))
+      (while (setq file (car files))
+	(setq files (cdr files))
+	(when (file-writable-p file)
+	  (if (eq checktime t)
+	      (delete-file file)
+	    (setq time (nth 5 (file-attributes file)))
+	    (when (w3m-time-newer-p checktime time)
+	      (delete-file file))))))))
+
+(defun w3m-form-textarea-files-remove ()
+  "Remove used files of textarea."
+  (let (file)
+    (while (setq file (car w3m-form-textarea-post-files))
+      (setq w3m-form-textarea-post-files (cdr w3m-form-textarea-post-files))
+      (when (and (member file w3m-form-textarea-files)
+		 (file-exists-p file)
+		 (file-writable-p file))
+	(delete-file file)
+	(setq file (make-backup-file-name file))
+	(when (and (file-exists-p file)
+		   (file-writable-p file))
+	  (delete-file file))))))
+
+(defun w3m-form-set-number (w3mbuf newname)
+  "Change parent w3m buffer in form buffers"
+  (save-current-buffer
+    (let ((newbuff (get-buffer newname)))
+      (when newbuff
+	(dolist (buffer (buffer-list))
+	  (set-buffer buffer)
+	  (cond
+	   ((and w3m-form-input-textarea-mode
+		 (eq w3m-form-input-textarea-buffer w3mbuf))
+	    (setq w3m-form-input-textarea-buffer newbuff))
+	   ((and (eq major-mode 'w3m-form-input-select-mode)
+		 (eq w3m-form-input-select-buffer w3mbuf))
+	    (setq w3m-form-input-select-buffer newbuff))
+	   ((and (eq major-mode 'w3m-form-input-map-mode)
+		 (eq w3m-form-input-map-buffer w3mbuf))
+	    (setq w3m-form-input-map-buffer newbuff))))))))
+
+(defun w3m-form-kill-buffer (w3mbuf)
+  "Kill form buffers"
+  (save-current-buffer
+    (dolist (buffer (buffer-list))
+      (set-buffer buffer)
+      (cond
+       ((and w3m-form-input-textarea-mode
+	     (eq w3m-form-input-textarea-buffer w3mbuf))
+	(w3m-form-input-textarea-exit))
+       ((and (eq major-mode 'w3m-form-input-select-mode)
+	     (eq w3m-form-input-select-buffer w3mbuf))
+	(w3m-form-input-select-exit))
+       ((and (eq major-mode 'w3m-form-input-map-mode)
+	     (eq w3m-form-input-map-buffer w3mbuf))
+	(w3m-form-input-map-exit))))))
+
+;;; SELECT
+
+(defcustom w3m-form-input-select-buffer-lines 10
+  "*Buffer lines for form select buffer."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-form-input-select-mode-hook nil
+  "*A hook called after w3m-form-input-select-mode."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-form-input-select-set-hook nil
+  "*A Hook called before w3m-form-input-select-set."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-form-mouse-face 'highlight
+  "*Mouse face to highlight selected value."
+  :group 'w3m
+  :type 'face)
+
+(defvar w3m-form-input-select-keymap nil)
+(unless w3m-form-input-select-keymap
+  (setq w3m-form-input-select-keymap (make-sparse-keymap))
+  (define-key w3m-form-input-select-keymap "\C-c\C-c"
+    'w3m-form-input-select-set)
+  (define-key w3m-form-input-select-keymap "\r"
+    'w3m-form-input-select-set)
+  (define-key w3m-form-input-select-keymap "\C-m"
+    'w3m-form-input-select-set)
+  (define-key w3m-form-input-select-keymap "\C-c\C-q"
+    'w3m-form-input-select-exit)
+  (define-key w3m-form-input-select-keymap "\C-c\C-k"
+    'w3m-form-input-select-exit)
+  (define-key w3m-form-input-select-keymap "q"
+    'w3m-form-input-select-exit)
+  (define-key w3m-form-input-select-keymap "\C-g"
+    'w3m-form-input-select-exit)
+  (define-key w3m-form-input-select-keymap "h" 'backward-char)
+  (define-key w3m-form-input-select-keymap "j" 'next-line)
+  (define-key w3m-form-input-select-keymap "k" 'previous-line)
+  (define-key w3m-form-input-select-keymap "l" 'forward-char)
+  (if (featurep 'xemacs)
+      (define-key w3m-form-input-select-keymap [(button2)]
+	'w3m-form-input-select-set-mouse)
+    (define-key w3m-form-input-select-keymap [mouse-2]
+      'w3m-form-input-select-set-mouse)))
+
+(defun w3m-form-input-select-set-mouse (event)
+  "Save and exit from w3m form select mode with mouse."
+  (interactive "e")
+  (mouse-set-point event)
+  (w3m-form-input-select-set))
+
+(defun w3m-form-input-select-set ()
+  "Save and exit from w3m form select mode."
+  (interactive)
+  (run-hooks 'w3m-form-input-select-set-hook)
+  (let* ((cur (get-text-property (point)
+				 'w3m-form-select-value))
+	 (buffer (current-buffer))
+	 (name w3m-form-input-select-name)
+	 (id w3m-form-input-select-id)
+	 (form w3m-form-input-select-form)
+	 (point w3m-form-input-select-point)
+	 (w3mbuffer w3m-form-input-select-buffer)
+	 (wincfg w3m-form-input-select-wincfg)
+	 input)
+    (setcar w3m-form-input-select-candidates cur)
+    (setq input w3m-form-input-select-candidates)
+    (or (one-window-p) (delete-window))
+    (kill-buffer buffer)
+    (when (buffer-live-p w3mbuffer)
+      (pop-to-buffer w3mbuffer)
+      (set-window-configuration wincfg)
+      (when (and form point)
+	(goto-char point)
+	(w3m-form-put form id name input)
+	(w3m-form-replace (cdr (assoc cur (cdr input))))))))
+
+(defun w3m-form-input-select-exit ()
+  "Exit from w3m form select mode."
+  (interactive)
+  (let* ((buffer (current-buffer))
+	 (point w3m-form-input-select-point)
+	 (w3mbuffer w3m-form-input-select-buffer)
+	 (wincfg w3m-form-input-select-wincfg))
+    (or (one-window-p) (delete-window))
+    (kill-buffer buffer)
+    (when (buffer-live-p w3mbuffer)
+      (pop-to-buffer w3mbuffer)
+      (set-window-configuration wincfg)
+      (when point (goto-char point)))))
+
+(defun w3m-form-input-select-mode ()
+  "\\<w3m-form-input-select-keymap>
+   Major mode for w3m form select.
+
+\\[w3m-form-input-select-set]\
+	Save and exit from w3m form select mode.
+\\[w3m-form-input-select-exit]\
+	Exit from w3m form select mode.
+\\[w3m-form-input-select-set-mouse]\
+	Save and exit from w3m form select mode with mouse.
+"
+  (setq mode-name "w3m form select"
+	major-mode 'w3m-form-input-select-mode)
+  (setq buffer-read-only t)
+  (use-local-map w3m-form-input-select-keymap)
+  (w3m-run-mode-hooks 'w3m-form-input-select-mode-hook))
+
+(defun w3m-form-input-select (form id name)
+  (let* ((value (w3m-form-get form id))
+	 (cur-win (selected-window))
+	 (wincfg (current-window-configuration))
+	 (urlid (format "%s:%s:%d" w3m-current-url name id))
+	 (w3mbuffer (current-buffer))
+	 (point (point))
+	 (size (min
+		(- (window-height cur-win)
+		   window-min-height 1)
+		(- (window-height cur-win)
+		   (max window-min-height
+			(1+ w3m-form-input-select-buffer-lines)))))
+	 buffer cur pos)
+    (setq buffer
+	  (catch 'detect-buffer
+	    (save-current-buffer
+	      (dolist (buffer (buffer-list))
+		(set-buffer buffer)
+		(when (and w3m-form-input-select-buffer
+			   (eq w3m-form-input-select-buffer w3mbuffer)
+			   (string= w3m-form-input-select-urlid urlid))
+		  (throw 'detect-buffer (cons t buffer)))))
+	    (generate-new-buffer "*w3m form select*")))
+    (unless (consp buffer)
+      (with-current-buffer buffer
+	(setq w3m-form-input-select-form form)
+	(setq w3m-form-input-select-name name)
+	(setq w3m-form-input-select-id id)
+	(setq w3m-form-input-select-buffer w3mbuffer)
+	(setq w3m-form-input-select-point point)
+	(setq w3m-form-input-select-candidates value)
+	(setq w3m-form-input-select-wincfg wincfg)
+	(setq w3m-form-input-select-urlid urlid)
+	(when value
+	  (setq cur (car value))
+	  (setq value (cdr value))
+	  (dolist (candidate value)
+	    (setq pos (point))
+	    (insert (if (zerop (length (cdr candidate)))
+			" "		; "" -> " "
+		      (cdr candidate)))
+	    (add-text-properties pos (point)
+				 (list 'w3m-form-select-value (car candidate)
+				       'mouse-face w3m-form-mouse-face))
+	    (insert "\n")))
+	(goto-char (point-min))
+	(while (and (not (eobp))
+		    (not (equal cur
+				(get-text-property (point)
+						   'w3m-form-select-value))))
+	  (goto-char (next-single-property-change (point)
+						  'w3m-form-select-value)))
+	(set-buffer-modified-p nil)
+	(beginning-of-line)
+	(w3m-form-input-select-mode)))
+    (if (and (consp buffer)
+	     (get-buffer-window (cdr buffer)))
+	;; same frame only
+	(select-window (get-buffer-window (cdr buffer)))
+      (condition-case nil
+	  (split-window cur-win (if (> size 0) size window-min-height))
+	(error
+	 (delete-other-windows)
+	 (split-window cur-win (- (window-height cur-win)
+				  w3m-form-input-select-buffer-lines))))
+      (select-window (next-window))
+      (let ((pop-up-windows nil))
+	(switch-to-buffer (if (consp buffer) (cdr buffer) buffer))))))
+
+;;; MAP
+
+(defcustom w3m-form-input-map-buffer-lines 10
+  "*Buffer lines for form select map buffer."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-form-input-map-mode-hook nil
+  "*A hook called after w3m-form-input-map-mode."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-form-input-map-set-hook nil
+  "*A Hook called before w3m-form-input-map-set."
+  :group 'w3m
+  :type 'hook)
+
+(defvar w3m-form-input-map-keymap nil)
+(unless w3m-form-input-map-keymap
+  (setq w3m-form-input-map-keymap (make-sparse-keymap))
+  (define-key w3m-form-input-map-keymap "\C-c\C-c"
+    'w3m-form-input-map-set)
+  (define-key w3m-form-input-map-keymap "\r"
+    'w3m-form-input-map-set)
+  (define-key w3m-form-input-map-keymap "\C-m"
+    'w3m-form-input-map-set)
+  (define-key w3m-form-input-map-keymap "\C-c\C-q"
+    'w3m-form-input-map-exit)
+  (define-key w3m-form-input-map-keymap "\C-c\C-k"
+    'w3m-form-input-map-exit)
+  (define-key w3m-form-input-map-keymap "q"
+    'w3m-form-input-map-exit)
+  (define-key w3m-form-input-map-keymap "\C-g"
+    'w3m-form-input-map-exit)
+  (define-key w3m-form-input-map-keymap "h" 'backward-char)
+  (define-key w3m-form-input-map-keymap "j" 'next-line)
+  (define-key w3m-form-input-map-keymap "k" 'previous-line)
+  (define-key w3m-form-input-map-keymap "l" 'forward-char)
+  (if (featurep 'xemacs)
+      (define-key w3m-form-input-map-keymap [(button2)]
+	'w3m-form-input-map-set-mouse)
+    (define-key w3m-form-input-map-keymap [mouse-2]
+      'w3m-form-input-map-set-mouse)))
+
+(defun w3m-form-input-map-set-mouse (event)
+  "Save and exit from w3m form select map mode with mouse."
+  (interactive "e")
+  (mouse-set-point event)
+  (w3m-form-input-map-set))
+
+(defun w3m-form-input-map-set ()
+  "Save and exit from w3m form select map mode."
+  (interactive)
+  (run-hooks 'w3m-form-input-map-set-hook)
+  (let* ((map (get-text-property (point) 'w3m-form-map-value))
+	 (buffer (current-buffer))
+	 (w3mbuffer w3m-form-input-map-buffer)
+	 (wincfg w3m-form-input-map-wincfg)
+	 (point w3m-form-input-map-point))
+    (or (one-window-p) (delete-window))
+    (kill-buffer buffer)
+    (when (buffer-live-p w3mbuffer)
+      (pop-to-buffer w3mbuffer)
+      (set-window-configuration wincfg)
+      (when point (goto-char point))
+      (w3m-goto-url (w3m-expand-url map)))))
+
+(defun w3m-form-input-map-exit ()
+  "Exit from w3m form select map mode."
+  (interactive)
+  (let* ((buffer (current-buffer))
+	 (w3mbuffer w3m-form-input-map-buffer)
+	 (wincfg w3m-form-input-map-wincfg)
+	 (point w3m-form-input-map-point))
+    (or (one-window-p) (delete-window))
+    (kill-buffer buffer)
+    (when (buffer-live-p w3mbuffer)
+      (pop-to-buffer w3mbuffer)
+      (set-window-configuration wincfg)
+      (when point (goto-char point)))))
+
+(defun w3m-form-input-map-mode ()
+  "\\<w3m-form-input-map-keymap>
+   Major mode for w3m map select.
+
+\\[w3m-form-input-map-set]\
+	Save and exit from w3m form select map mode.
+\\[w3m-form-input-map-exit]\
+	Exit from w3m form select map mode.
+\\[w3m-form-input-map-set-mouse]\
+	Save and exit from w3m form select map mode with mouse.
+"
+  (setq mode-name "w3m map select"
+	major-mode 'w3m-form-input-map-mode)
+  (setq buffer-read-only t)
+  (use-local-map w3m-form-input-map-keymap)
+  (w3m-run-mode-hooks 'w3m-form-input-map-mode-hook))
+
+(defun w3m-form-input-map (form name)
+  (let* ((value (w3m-form-get-by-name form name))
+	 (urlname (format "%s:%s" w3m-current-url name))
+	 (cur-win (selected-window))
+	 (wincfg (current-window-configuration))
+	 (w3mbuffer (current-buffer))
+	 (point (point))
+	 (size (min
+		(- (window-height cur-win)
+		   window-min-height 1)
+		(- (window-height cur-win)
+		   (max window-min-height
+			(1+ w3m-form-input-map-buffer-lines)))))
+	 buffer pos)
+    (setq buffer
+	  (catch 'detect-buffer
+	    (save-current-buffer
+	      (dolist (buffer (buffer-list))
+		(set-buffer buffer)
+		(when (and w3m-form-input-map-buffer
+			   (eq w3m-form-input-map-buffer w3mbuffer)
+			   (string= w3m-form-input-map-urlname urlname))
+		  (throw 'detect-buffer (cons t buffer)))))
+	    (generate-new-buffer "*w3m map select*")))
+    (unless (consp buffer)
+      (with-current-buffer buffer
+	(setq w3m-form-input-map-buffer w3mbuffer)
+	(setq w3m-form-input-map-wincfg wincfg)
+	(setq w3m-form-input-map-point point)
+	(setq w3m-form-input-map-urlname urlname)
+	(when value
+	  (dolist (candidate value)
+	    (setq pos (point))
+	    (insert (if (zerop (length (cdr candidate)))
+			(car candidate)
+		      (cdr candidate)))
+	    (add-text-properties pos (point)
+				 (list 'w3m-form-map-value (car candidate)
+				       'mouse-face w3m-form-mouse-face))
+	    (insert "\n")))
+	(goto-char (point-min))
+	(set-buffer-modified-p nil)
+	(beginning-of-line)
+	(w3m-form-input-map-mode)))
+    (if (and (consp buffer)
+	     (get-buffer-window (cdr buffer)))
+	;; same frame only
+	(select-window (get-buffer-window (cdr buffer)))
+      (condition-case nil
+	  (split-window cur-win (if (> size 0) size window-min-height))
+	(error
+	 (delete-other-windows)
+	 (split-window cur-win (- (window-height cur-win)
+				  w3m-form-input-map-buffer-lines))))
+      (select-window (next-window))
+      (let ((pop-up-windows nil))
+	(switch-to-buffer (if (consp buffer) (cdr buffer) buffer))))))
+
+;;;
+(defun w3m-form-submit-get-textarea-files (form)
+  (when w3m-form-use-textarea-backup-p
+    (let ((plist (w3m-form-plist form))
+	  pos id file files)
+      (while plist
+	(setq id (car plist))
+	(setq plist (cddr plist))
+	(setq pos (text-property-any (point-min) (point-max) 'w3m-form-id id))
+	(when (and pos
+		   (setq file (get-text-property pos 'w3m-form-file-name)))
+	  (setq files (cons file files))))
+      files)))
+
+(defun w3m-form-submit (form &optional id name value new-session download)
+  (if (w3m-anchor (point))
+      ;; cf SA17565
+      (w3m-goto-url (w3m-anchor (point)))
+    (when (and id name
+	       (> (length name) 0))
+      (w3m-form-put form id name value))
+    (let* ((orig-url w3m-current-url)
+	   (url (or (w3m-form-action form)
+		    (if (string-match "\\?" w3m-current-url)
+			(substring w3m-current-url 0 (match-beginning 0))
+		      w3m-current-url))))
+      (setq w3m-form-textarea-post-files
+	    (w3m-form-submit-get-textarea-files form))
+      (cond ((and (not (string= url orig-url))
+		  (string-match "^https://" orig-url)
+		  (string-match "^http://" url)
+		  (not (y-or-n-p (format "Send POST data to '%s'?" url))))
+	     (ding))
+	    ((or (eq 'post (w3m-form-method form))
+		 ;; While some sites, e.g., emacswiki.org, specify the
+		 ;; `get' method for the enctype `multipart/form-data',
+		 ;; we use the `post' method according to the proposal
+		 ;; of RFC2070.
+		 (eq 'multipart/form-data (w3m-form-enctype form)))
+	     (if download 
+		 (funcall 'w3m-download
+			  url nil nil nil
+			  (w3m-form-make-form-data form))
+	       (funcall (if new-session
+			    'w3m-goto-url-new-session
+			  'w3m-goto-url)
+			url 'reload nil
+			(w3m-form-make-form-data form)
+			w3m-current-url)))
+	    ((eq 'get (w3m-form-method form))
+	     (funcall (if download 
+			  'w3m-download
+			(if new-session
+			    'w3m-goto-url-new-session
+			  'w3m-goto-url))
+		      (concat (w3m-url-strip-query url) 
+			      "?" (w3m-form-make-form-data form))))
+	    (t
+	     (w3m-message "This form's method has not been supported: %s"
+			  (let (print-level print-length)
+			    (prin1-to-string (w3m-form-method form)))))))))
+
+(defun w3m-form-real-reset (form sexp)
+  (and (eq 'w3m-form-input (car sexp))
+       (eq form (nth 1 sexp))
+       (w3m-form-put form (nth 2 sexp) (nth 3 sexp) (nth 7 sexp))
+       (w3m-form-replace (nth 7 sexp))))
+
+(defun w3m-form-reset (form)
+  (save-excursion
+    (let (pos prop)
+      (when (setq prop (w3m-action (goto-char (point-min))))
+	(goto-char (or (w3m-form-real-reset form prop)
+		       (next-single-property-change pos 'w3m-action))))
+      (while (setq pos (next-single-property-change (point) 'w3m-action))
+	(goto-char pos)
+	(goto-char (or (w3m-form-real-reset form (w3m-action pos))
+		       (next-single-property-change pos 'w3m-action)))))))
+
+
+(provide 'w3m-form)
+
+;;; w3m-form.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-hist.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,740 @@
+;;; w3m-hist.el --- the history management system for emacs-w3m
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: Katsumi Yamaoka <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Emacs-w3m keeps history in the buffer-local variables `w3m-history'
+;; and `w3m-history-flat'.  Each variable contains a list of all the
+;; links you have visited.  The behavior tracing history backward or
+;; forward is controlled by the `w3m-history-reuse-history-elements'
+;; variable.  See the documentations for those variables for details.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(defcustom w3m-history-reuse-history-elements nil
+  "Non-nil means reuse the history element when re-visiting the page.
+Otherwise, a new history element will be created even if there are
+elements for the same url in the history.
+
+Emacs-w3m used to operate as the case in which it is non-nil, however
+it sometimes brought about users' dissatisfaction.  For example, if a
+user visited the pages A -> B -> C -> B in order, performing BACK on
+the second B would let a user visit A.  The reason why a user was
+taken to A rather than C is that the `w3m-history' variable only had
+the list `(A B C)' as a history and B was the current position at that
+time.
+
+The default value for this variable is nil which allows the
+`w3m-history' variable to have the list `(A B C B)'.  Where contents
+of two B's are the identical Lisp objects.  So, too much wasting the
+Lisp resources will be avoided.
+
+See the documentation for the variables `w3m-history' and
+`w3m-history-flat' for more information."
+  :group 'w3m
+  :type '(boolean :format "%{%t%}: %[%v%]" :on "On" :off "Off"))
+
+(defcustom w3m-history-minimize-in-new-session nil
+  "Non-nil means minimize copied history so that there's only current page.
+This variable is effective when creating of the new session by copying
+\(i.e., `w3m-copy-buffer')."
+  :group 'w3m
+  :type '(boolean :format "%{%t%}: %[%v%]" :on "On" :off "Off"))
+
+(defvar w3m-history nil
+  "A tree-structured complex list of all the links which you have visited.
+This is a buffer-local variable.  For example, it will grow as follows:
+
+\[Branch-1.0.0.0]:                 +--> U1.0.0.0.0 --> U1.0.0.0.1
+                                  |
+    [Branch-1.0]:         +--> U1.0.0 --> U1.0.1 --> U1.0.2
+                          |
+         [Trunk]: U0 --> U1 --> U2 --> U3 --> U4 --> U5 --> U6
+                                 |
+    [Branch-2.0]:                +--> U2.0.0 --> U2.0.1
+                                 |
+    [Branch-2.1]:                +--> U2.1.0 --> U2.1.1 --> U2.1.2
+                                                    |
+\[Branch-2.1.1.0]:                                   +--> U2.1.1.0.0
+
+In this case, the U1.0.0.0.0 history element represents the first link
+of the first branch which is sprouted from the U1.0.0 history element.
+
+The trunk or each branch is a simple list which will contain some
+history elements.  History elements in the trunk or each branch will
+be arranged in increasing order (the newest history element will be
+the last element of the list).  Each history element represents a link
+which consists of the following records:
+
+	(URL PROPERTIES BRANCH BRANCH ...)
+
+Where URL is a string of an address of a link.  PROPERTIES is a plist
+which is able to contain any kind of data to supplement the URL as
+follows:
+
+	(KEYWORD VALUE KEYWORD VALUE ...)
+
+A note for programmers: PROPERTIES should always be a non-nil value in
+order to make it easy to share the value in every history element in
+every emacs-w3m buffer.
+
+The remaining BRANCHes are branches of the history element.  Branches
+will also be arranged in increasing order (the newest one will be the
+rightmost element).  Each BRANCH will also be a tree-structured
+complex list.  Therefore, the history structure will grow up
+infinitely.
+
+In order to save the Lisp resources, URL strings and PROPERTIES in the
+`w3m-history' variables are shared in every emacs-w3m buffer (it means
+each element in two `w3m-history' variables can be compared by `eq'
+rather than `equal').  If there is necessity to make buffer-local
+properties, in other words, to make properties of which values differ
+in every emacs-w3m buffer, use the `w3m-history-flat' variable instead.
+
+There are special rules on the emacs-w3m history management system.
+As you perhaps foresaw, the operation BACK on U2.0.0 brings you to U2,
+and one more BACK brings you to U1.  Well, where do you think we
+should go next when the operation FORWARD is performed on U1?  The
+rule is to go to the newest link you have ever visited.  So, that
+operation should take you to U1.0.0.
+
+Another rule is that the new U4 link should sprout from U1.0.1 if
+`w3m-history-reuse-history-elements' is nil when you visit the U4 link
+directly from U1.0.1.  In contrast, you should be taken to the
+existing U4 link instead of sprouting the new branch from U1.0.1 if
+`w3m-history-reuse-history-elements' is non-nil.
+
+In addition, the first element of `w3m-history' is special.  It is a
+list containing pointers which point to three history elements as
+shown below:
+
+	(PREV CURRENT NEXT)
+
+PREV points to the previous history element, CURRENT points to the
+current one and NEXT points to the next one.  Each of them is a list
+which contains an odd number of integers.  For example, `(0)' does
+point to U0 and `(2 1 0)' does point to U2.1.0.  Finally, the value of
+the `w3m-history' variable will be constructed as follows:
+
+\(((1) (2) (2 1 0))
+ (\"http://www.U0.org/\" (:title \"U0\" :foo \"bar\"))
+ (\"http://www.U1.org/\" (:title \"U1\" :foo \"bar\")
+  ((\"http://www.U100.org/\" (:title \"U100\" :foo \"bar\")
+    ((\"http://www.U10000.org/\" (:title \"U10000\" :foo \"bar\"))
+     (\"http://www.U10001.org/\" (:title \"U10001\" :foo \"bar\"))))
+   (\"http://www.U101.org/\" (:title \"U101\" :foo \"bar\"))
+   (\"http://www.U102.org/\" (:title \"U102\" :foo \"bar\"))))
+ (\"http://www.U2.org/\" (:title \"U2\" :foo \"bar\")
+  ((\"http://www.U200.org/\" (:title \"U200\" :foo \"bar\"))
+   (\"http://www.U201.org/\" (:title \"U201\" :foo \"bar\")))
+  ((\"http://www.U210.org/\" (:title \"U210\" :foo \"bar\"))
+   (\"http://www.U211.org/\" (:title \"U211\" :foo \"bar\")
+    ((\"http://www.U21100.org/\" (:title \"U21100\" :foo \"bar\"))))
+   (\"http://www.U212.org/\" (:title \"U212\" :foo \"bar\"))))
+ (\"http://www.U3.org/\" (:title \"U3\" :foo \"bar\"))
+ (\"http://www.U4.org/\" (:title \"U4\" :foo \"bar\"))
+ (\"http://www.U5.org/\" (:title \"U5\" :foo \"bar\"))
+ (\"http://www.U6.org/\" (:title \"U6\" :foo \"bar\")))")
+
+(defvar w3m-history-flat nil
+  "A flattened alist of all the links which you have visited.
+All history elements except for buffer-local properties are the same
+as ones of `w3m-history'.  Each element will contain the following
+records:
+
+    (URL PROPERTIES POSITION [KEYWORD VALUE [KEYWORD VALUE ...]])
+
+Where URL is a string of an address of a link, PROPERTIES is a plist
+which is able to contain any kind of data to supplement the URL.  Each
+PROPERTIES is the Lisp object identical with that corresponding
+element of `w3m-history'.  POSITION is a list of integers to designate
+the current position in the history.
+
+The remaining [KEYWORD VALUE [KEYWORD VALUE ...]] is a plist similar
+to PROPERTIES, but it is buffer-local.  You can manipulate
+buffer-local properties using the functions `w3m-history-plist-get',
+`w3m-history-plist-put', `w3m-history-add-properties' and
+`w3m-history-remove-properties'.  See the documentation for the
+`w3m-history' variable for more information.")
+
+(make-variable-buffer-local 'w3m-history)
+(make-variable-buffer-local 'w3m-history-flat)
+
+;; Inline functions.
+(defsubst w3m-history-assoc (url)
+  "Extract a history element associated with URL from `w3m-history-flat'."
+  (assoc url w3m-history-flat))
+
+;; Functions for internal use.
+(defun w3m-history-set-current (position)
+  "Modify `w3m-history' so that POSITION might be the current position.
+What is called the current position is the `cadar' of `w3m-history'.
+The previous position and the next position will be computed
+automatically."
+  (setcar w3m-history (w3m-history-regenerate-pointers position)))
+
+(defun w3m-history-element (position &optional flat)
+  "Return a history element located in the POSITION of the history.
+If FLAT is nil, the value will be extracted from `w3m-history' and
+represented with the `(URL PROPERTIES BRANCH BRANCH ...)' form.
+Otherwise, the value will be extracted from `w3m-history-flat' and
+represented with the `(URL PROPERTIES POSITION [KEYWORD VALUE ...])'
+form.  FYI, to know the current position, the `(cadar w3m-history)'
+form for example can be used."
+  (when position
+    (if flat
+	(let ((flat w3m-history-flat)
+	      element)
+	  (while flat
+	    (if (equal (caddr (setq element (pop flat))) position)
+		(setq flat nil)
+	      (setq element nil)))
+	  element)
+      (let ((element (nth (pop position) (cdr w3m-history))))
+	(while position
+	  (setq element (nth (pop position) (cddr element))
+		element (nth (pop position) element)))
+	element))))
+
+(defun w3m-history-previous-position (position)
+  "Return a history position of the previous location of POSITION.
+POSITION is a list of integers of the same form as being used in one
+of the elements of the `car' of `w3m-history' (which see)."
+  (let (class number previous)
+    (when position
+      (setq class (1- (length position))
+	    number (nth class position))
+      (if (zerop number)
+	  ;; This POSITION is the beginning of the branch.
+	  (unless (zerop class)
+	    ;; There's a parent.
+	    (setq previous (copy-sequence position))
+	    (setcdr (nthcdr (- class 2) previous) nil))
+	;; This POSITION is not the beginning of the branch.
+	(setq previous (copy-sequence position))
+	(setcar (nthcdr class previous) (1- number))))
+    previous))
+
+(defun w3m-history-next-position (position)
+  "Return a history position of the next location of POSITION.
+POSITION is a list of integers of the same form as being used in one
+of the elements of the `car' of `w3m-history' (which see)."
+  (let (next branch element number)
+    (when position
+      (setq next position
+	    branch (cdr w3m-history)
+	    element (nth (pop next) branch))
+      (while next
+	(setq branch (nth (pop next) (cddr element))
+	      element (nth (pop next) branch)))
+      (cond ((nth 2 element)
+	     ;; There're branches sprouted from the POSITION.
+	     (setq next (copy-sequence position))
+	     (setcdr (nthcdr (1- (length next)) next)
+		     (list (- (length element) 3) 0)))
+	    ((> (length branch)
+		(setq number (1+ (nth (1- (length position)) position))))
+	     ;; This POSITION is not the end of the branch.
+	     (setq next (copy-sequence position))
+	     (setcar (nthcdr (1- (length next)) next) number))))
+    next))
+
+(defun w3m-history-set-plist (plist property value)
+  "Similar to `plist-put' but PLIST is actually modified even in XEmacs.
+If VALUE is nil, the pair of PROPERTY and VALUE is removed from PLIST.
+Exceptionally, if PLIST is made empty because of removing, it will be
+instead set to `(nil nil)'.  Return PLIST itself."
+  (let ((pair (memq property plist)))
+    (if pair
+	(if value
+	    (setcar (cdr pair) value)
+	  (if (eq (car plist) property)
+	      (progn
+		(setcar plist (nth 2 plist))
+		(setcar (cdr plist) (nth 3 plist))
+		(setcdr (cdr plist) (nthcdr 4 plist)))
+	    (setcdr (nthcdr (- (length plist) (length pair) 1) plist)
+		    (nthcdr 2 pair))))
+      (when value
+	(setcdr (nthcdr (1- (length plist)) plist) (list property value)))))
+  plist)
+
+(defun w3m-history-modify-properties (old new &optional replace)
+  "Merge NEW plist into OLD plist and return a modified plist.
+If REPLACE is non-nil, OLD will be replaced with NEW.  OLD plist is
+modified and also the new value is shared in all the history
+elements containing OLD plist.  Properties whose values are nil are
+removed from OLD plist, but if OLD plist is made empty because of
+removing, it will be instead set to `(nil nil)'."
+  (prog1
+      old
+    (if replace
+	(progn
+	  (setcar old (car new))
+	  (setcdr old (or (cdr new) (list nil))))
+      (while new
+	(w3m-history-set-plist old (car new) (cadr new))
+	(setq new (cddr new))))
+    (setq new (copy-sequence old))
+    (while new
+      (w3m-history-set-plist old (car new) (cadr new))
+      (setq new (cddr new)))))
+
+(defun w3m-history-seek-element (url &optional newprops replace)
+  "Return a copy of history element corresponding to URL.
+Searching is performed in all emacs-w3m buffers and the first match
+found is returned.  If REPLACE is nil, NEPROPS will be merged into
+properties of an element.  Otherwise, properties of an element will be
+replaced with NEWPROPS."
+  (let* ((current (current-buffer))
+	 (buffers (cons current (delq current (buffer-list))))
+	 element)
+    (while buffers
+      (set-buffer (pop buffers))
+      (when (and (eq major-mode 'w3m-mode)
+		 (setq element (w3m-history-assoc url)))
+	(setq buffers nil)))
+    (set-buffer current)
+    (prog1
+	(copy-sequence element)
+      (when element
+	(w3m-history-modify-properties (cadr element) newprops replace)))))
+
+;; Generic functions.
+(defun w3m-history-previous-link-available-p ()
+  "Return non-nil if the previous history element is available."
+  (caar w3m-history))
+
+(defun w3m-history-next-link-available-p ()
+  "Return non-nil if the next history element is available."
+  (caddar w3m-history))
+
+(defun w3m-history-backward (&optional count)
+  "Move backward COUNT times in the history structure.
+Return a cons of a new history element and new position pointers of
+the history.  The position pointers of `w3m-history' will not change.
+If COUNT is omitted, it defaults to the number one.  If COUNT is
+negative, moving forward is performed.  Return nil if there is no
+previous element."
+  (when w3m-history
+    (let ((oposition (copy-sequence (car w3m-history)))
+	  position last)
+      (cond ((or (unless count
+		   (setq count 1))
+		 (> count 0))
+	     (while (and (> count 0)
+			 (setq position (caar w3m-history)))
+	       (w3m-history-set-current (setq last position))
+	       (decf count)))
+	    ((< count 0)
+	     (while (and (< count 0)
+			 (setq position (caddar w3m-history)))
+	       (w3m-history-set-current (setq last position))
+	       (incf count)))
+	    (t ;; Don't move.
+	     (setq last (cadar w3m-history))))
+      (prog1
+	  (when last
+	    (cons (w3m-history-element (cadar w3m-history))
+		  (car w3m-history)))
+	(setcar w3m-history oposition)))))
+
+(defun w3m-history-forward (&optional count)
+  "Move forward COUNT times in the history structure.
+Return a cons of a new history element and new position pointers of
+the history.  The position pointers of `w3m-history' will not change.
+If COUNT is omitted, it defaults to the number one.  If COUNT is
+negative, moving backward is performed.  If there is no room to move
+in the history, move as far as possible."
+  (w3m-history-backward (- (or count 1))))
+
+(defun w3m-history-regenerate-pointers (position)
+  "Regenerate the position pointers due to only the current POSITION.
+The history position pointers are made with the `(PREV CURRENT NEXT)'
+form which is mentioned in the documentation for `w3m-history'."
+  (list (w3m-history-previous-position position)
+	position
+	(w3m-history-next-position position)))
+
+(defun w3m-history-flat ()
+  "Set the value of `w3m-history-flat' due to the value of `w3m-history'.
+See also the documentations for those variables."
+  (setq w3m-history-flat nil)
+  (when w3m-history
+    (let ((history (cdr w3m-history))
+	  (position (list 0))
+	  element branches flag children)
+      (while (setq element (pop history))
+	(if (stringp (car element))
+	    (progn
+	      (push (list (car element) (cadr element) (reverse position))
+		    w3m-history-flat)
+	      (if (setq element (cddr element))
+		  (progn
+		    (setq history (append element history)
+			  position (append (list 0 0) position))
+		    (push (length element) branches))
+		(setcar position (1+ (car position)))
+		(setq flag t)
+		(while (and flag
+			    children
+			    (zerop (setcar children (1- (car children)))))
+		  (setq children (cdr children))
+		  (if (zerop (setcar branches (1- (car branches))))
+		      (progn
+			(setq branches (cdr branches)
+			      position (cddr position))
+			(setcar position (1+ (car position))))
+		    (setcar position 0)
+		    (setcar (cdr position) (1+ (cadr position)))
+		    (setq flag nil)))))
+	  (setq history (append element history))
+	  (push (length element) children))))
+    (setq w3m-history-flat (nreverse w3m-history-flat))))
+
+(defun w3m-history-tree (&optional newpos)
+  "Set the value of `w3m-history' due to the value of `w3m-history-flat'.
+See also the documentations for those variables.  NEWPOS specifies the
+current position of the history.  It defaults to the beginning
+position of the history."
+  (if w3m-history-flat
+      (let ((flat w3m-history-flat)
+	    element positions rest position)
+	(setq w3m-history (list (list nil nil)))
+	(while (setq element (pop flat))
+	  (setq positions (caddr element)
+		rest w3m-history)
+	  (while positions
+	    (setq position (pop positions))
+	    (unless (> (length rest) position)
+	      (setcdr (nthcdr (1- (length rest)) rest)
+		      (make-list (- position (length rest) -1)
+				 (list nil nil))))
+	    (setq rest (nth position rest))
+	    (when positions
+	      (setq position (pop positions))
+	      (unless (> (- (length rest) 2) position)
+		(setcdr (nthcdr (1- (length rest)) rest)
+			(make-list (- position (length rest) -3)
+				   (list (list nil nil)))))
+	      (setq rest (nth (+ position 2) rest))))
+	  (setcar rest (car element))
+	  (setcar (cdr rest) (cadr element)))
+	(push 'dummy w3m-history)
+	(w3m-history-set-current (or newpos (list 0)))
+	w3m-history)
+    (setq w3m-history nil)))
+
+(defun w3m-history-push (url &optional newprops replace)
+  "Push URL into the history structure.
+A history which corresponds to URL becomes the current one.  NEWPROPS
+is a plist which supplements URL.  Return a new history position
+pointers.  How this function behaves to the history structure (i.e.,
+`w3m-history' and `w3m-history-flat') is controlled by the value of
+`w3m-history-reuse-history-elements'.
+
+The case where `w3m-history-reuse-history-elements' is nil:
+  A new history element is always created.  If there is another
+  element corresponding to the same URL, its properties are inherited
+  into the new history element.
+
+The case where `w3m-history-reuse-history-elements' is non-nil:
+  If there is an element corresponding to URL in the history, it
+  becomes the current history element.  Otherwise, this function
+  behaves like the case where `w3m-history-reuse-history-elements' is
+  nil.
+
+If REPLACE is nil, NEWPROPS is merged into properties of the current
+history element.  Otherwise, properties of the current history element
+are replaced with NEWPROPS."
+  (let ((element (w3m-history-seek-element url newprops replace))
+	position class number branch)
+    (if element
+	(setcdr (cdr element) nil)
+      (setq element (list url (w3m-history-modify-properties newprops nil))))
+    (cond
+     ((null w3m-history)
+      ;; The dawn of the history.
+      (setq position (list nil (list 0) nil)
+	    w3m-history (list position element)
+	    w3m-history-flat (list (append element (list (list 0)))))
+      position)
+
+     ((and w3m-history-reuse-history-elements
+	   (setq position (caddr (w3m-history-assoc url))))
+      ;; Reuse the existing history element assigned to the current one.
+      ;; The position pointers will be fixed with correct values after
+      ;; visiting a page when moving back, moving forward or jumping from
+      ;; the about://history/ page.
+      (w3m-history-set-current position))
+
+     (t
+      ;; Sprout a new history element.
+      (setq position (copy-sequence (cadar w3m-history))
+	    class (1- (length position))
+	    number 0
+	    branch (nthcdr (car position) (cdr w3m-history)))
+      (while (> class number)
+	(setq number (1+ number)
+	      branch (nth (nth number position) (cddar branch))
+	      number (1+ number)
+	      branch (nthcdr (nth number position) branch)))
+      (if (cdr branch)
+	  ;; We should sprout a new branch.
+	  (progn
+	    (setq number (1- (length (car branch))))
+	    (setcdr (nthcdr class position) (list (1- number) 0))
+	    (setcdr (nthcdr number (car branch)) (list (list element))))
+	;; The current position is the last of the branch.
+	(setcar (nthcdr class position)
+		(1+ (car (nthcdr class position))))
+	(setcdr branch (list element)))
+      (setq w3m-history-flat (nconc w3m-history-flat
+				    (list (append element (list position)))))
+      (setcar w3m-history (list (cadar w3m-history) position nil))))))
+
+(defun w3m-history-copy (buffer)
+  "Copy the history structure from BUFFER to the current buffer.
+This function keeps corresponding elements identical Lisp objects
+between buffers while copying the frameworks of `w3m-history' and
+`w3m-history-flat'.  Exceptionally, buffer-local properties contained
+in `w3m-history-flat' will not be copied except for the positions.  If
+`w3m-history-minimize-in-new-session' is non-nil, the copied history
+structure will be shrunk so that it may contain only the current
+history element."
+  (let ((current (current-buffer))
+	position flat element props window-start rest)
+    (set-buffer buffer)
+    (when w3m-history
+      (setq position (copy-sequence (cadar w3m-history))
+	    flat w3m-history-flat))
+    (set-buffer current)
+    (when position
+      (if w3m-history-minimize-in-new-session
+	  (progn
+	    (setq w3m-history-flat flat
+		  element (copy-sequence (w3m-history-element position t)))
+	    (setcdr (cdr element) nil)
+	    (setq w3m-history (list (list nil (list 0) nil) element)
+		  w3m-history-flat (list (append element (list (list 0))))))
+	;; Remove buffer-local properties, except for the positions,
+	;; from the new `w3m-history-flat'.
+	(while flat
+	  (setq element (copy-sequence (car flat))
+		flat (cdr flat)
+		props (cdddr element)
+		window-start (plist-get props :window-start))
+	  (if window-start
+	      (setcdr (cddr element)
+		      (list :window-start window-start
+			    :position (plist-get props :position)
+			    :window-hscroll (plist-get props :window-hscroll)))
+	    (setcdr (cddr element) nil))
+	  (push element rest))
+	(setq w3m-history-flat (nreverse rest))
+	(w3m-history-tree position)))))
+
+(defun w3m-history-plist-get (keyword &optional not-buffer-local)
+  "Extract a value from the properties of the current history element.
+KEYWORD is usually a symbol.  This function returns the value
+corresponding to KEYWORD, but it returns nil if the properties don't
+contain KEYWORD.  If NOT-BUFFER-LOCAL is nil, this function searches a
+value in buffer-local properties, otherwise looks over the global
+properties instead."
+  (let ((element (w3m-history-element (cadar w3m-history) t)))
+    (plist-get (if not-buffer-local
+		   (cadr element)
+		 (cdddr element))
+	       keyword)))
+
+(defun w3m-history-add-properties (newprops &optional not-buffer-local)
+  "Add NEWPROPS to the properties of the current history element.
+NEWPROPS should be a plist, which is merged into the properties.
+Return new properties.  If NOT-BUFFER-LOCAL is nil, NEWPROPS will be
+added to the buffer-local properties.  Otherwise, NEWPROPS will be
+added to the global properties instead."
+  (if not-buffer-local
+      (cadr (w3m-history-seek-element
+	     (car (w3m-history-element (cadar w3m-history)))
+	     newprops))
+    (let ((element (w3m-history-element (cadar w3m-history) t))
+	  properties)
+      (if element
+	  (progn
+	    (setq properties (cdddr element)
+		  properties
+		  (if properties
+		      (w3m-history-modify-properties properties newprops)
+		    ;; Use `w3m-history-modify-properties' to remove
+		    ;; keyword-value pairs whose value is nil.
+		    (w3m-history-modify-properties newprops nil)))
+	    (unless (car properties) ;; check whether it is `(nil nil)'.
+	      (setq properties nil))
+	    (setcdr (cddr element) properties))
+	(message "\
+Warning: the history database in this session seems corrupted.")
+	(sit-for 1)
+	nil))))
+
+(defun w3m-history-plist-put (keyword value &optional not-buffer-local)
+  "Put KEYWORD and VALUE into the current history element.
+Return new properties.  If NOT-BUFFER-LOCAL is nil, KEYWORD and VALUE
+will be put into the buffer-local properties.  Otherwise, KEYWORD and
+VALUE will be put into the global properties instead."
+  (w3m-history-add-properties (list keyword value) not-buffer-local))
+
+(defun w3m-history-remove-properties (properties &optional not-buffer-local)
+  "Remove PROPERTIES from the current history element.
+PROPERTIES should be one or more keyword-value pairs (i.e., plist) but
+values are ignored (treated as nil).  Return new properties.  If
+NOT-BUFFER-LOCAL is nil, the buffer-local properties will be modified.
+Otherwise, the global properties will be modified instead."
+  (let (rest)
+    (while properties
+      (setq rest (cons nil (cons (car properties) rest))
+	    properties (cddr properties)))
+    (w3m-history-add-properties (nreverse rest) not-buffer-local)))
+
+(defun w3m-history-store-position ()
+  "Store the current cursor position into the current history element.
+Data consist of the position where the window starts and the cursor
+position.  Naturally, those should be treated as buffer-local."
+  (interactive)
+  (when (cadar w3m-history)
+    (w3m-history-add-properties
+     (list :window-start (window-start)
+	   :position (cons (count-lines (point-min) (point-at-bol))
+			   (current-column))
+	   :window-hscroll (window-hscroll)))
+    (when (interactive-p)
+      (message "The current cursor position saved"))))
+
+(defun w3m-history-restore-position ()
+  "Restore the saved cursor position in the page.
+Even if the page has been shrunk (by reloading, for example), somehow
+it works although it may not be perfect."
+  (interactive)
+  (when (cadar w3m-history)
+    (let ((start (w3m-history-plist-get :window-start))
+	  position window)
+      (cond ((and start
+		  (setq position (w3m-history-plist-get :position)))
+	     (when (<= start (point-max))
+	       (setq window (get-buffer-window (current-buffer) 'all-frames))
+	       (when window
+		 (set-window-start window start)
+		 (set-window-hscroll
+		  window (or (w3m-history-plist-get :window-hscroll) 0)))
+	       (goto-char (point-min))
+	       (forward-line (car position))
+	       (move-to-column (cdr position))
+	       (let ((deactivate-mark nil))
+		 (run-hooks 'w3m-after-cursor-move-hook))))
+	    ((interactive-p)
+	     (message "No cursor position saved"))))))
+
+(defun w3m-history-minimize ()
+  "Minimize the history so that there may be the current page only."
+  (interactive)
+  (let ((position (cadar w3m-history))
+	element)
+    (when position
+      (setq element (w3m-history-element position t))
+      (setcar (cddr element) (list 0))
+      (setq w3m-history-flat (list element)
+	    w3m-history (list (list nil (list 0) nil)
+			      (list (car element) (cadr element)))))))
+
+(defun w3m-history-slimmed-history-flat ()
+  "Return slimmed history."
+  (let ((position (cadar w3m-history))
+	flat-map new-flat)
+    (dolist (l w3m-history-flat)
+      (setq flat-map (cons (cons (nth 2 l) l)
+			   flat-map)))
+    (setq new-flat (cons (cdr (assoc position flat-map)) nil))
+    (let ((pos (w3m-history-previous-position position)))
+      (while pos
+	(setq new-flat (cons (cdr (assoc pos flat-map))
+			     new-flat))
+	(setq pos (w3m-history-previous-position pos))))
+    (let ((pos (w3m-history-next-position position)))
+      (while pos
+	(setq new-flat (cons (cdr (assoc pos flat-map))
+			     new-flat))
+	(setq pos (w3m-history-next-position pos))))
+    new-flat))
+
+(defun w3m-history-slim ()
+  "Slim the history.
+This makes the history slim so that it may have only the pages that
+are accessible by PREV and NEXT operations."
+  (interactive)
+  (let ((position (cadar w3m-history)))
+    (setq w3m-history-flat (w3m-history-slimmed-history-flat))
+    (w3m-history-tree position)))
+
+(eval-when-compile
+  (defvar w3m-arrived-db)
+  (autoload 'w3m-goto-url "w3m"))
+
+(defun w3m-history-add-arrived-db ()
+  "Add the arrived database to the history structure unreasonably.
+This function is useless normally, so you may not want to use it.
+\(The reason it is here is because it is useful once in a while when
+debugging w3m-hist.el.)"
+  (interactive)
+  (unless (eq 'w3m-mode major-mode)
+    (error "`%s' must be invoked from an emacs-w3m buffer" this-command))
+  (when (and w3m-arrived-db
+	     (prog1
+		 (yes-or-no-p
+		  "Are you sure you really want to destroy the history? ")
+	       (message "")))
+    (setq w3m-history nil
+	  w3m-history-flat nil)
+    (let ((w3m-history-reuse-history-elements t)
+	  url-title title)
+      (mapatoms (lambda (symbol)
+		  (when symbol
+		    (if (setq title (get symbol 'title))
+			(push (list (symbol-name symbol)
+				    (list :title title))
+			      url-title)
+		      (push (list (symbol-name symbol)) url-title))))
+		w3m-arrived-db)
+      (apply 'w3m-history-push (nth (random (length url-title)) url-title))
+      (while url-title
+	(w3m-history-push (car (nth (random (length w3m-history-flat))
+				    w3m-history-flat)))
+	(apply 'w3m-history-push (pop url-title))))
+    (w3m-goto-url "about://history/" t)))
+
+(provide 'w3m-hist)
+
+;;; w3m-hist.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-image.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,266 @@
+;;; w3m-image.el --- Image conversion routines.
+
+;; Copyright (C) 2001, 2002, 2003, 2005, 2007, 2008
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Yuuichi Teranishi  <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; This file contains the stuffs to convert images for emacs-w3m.
+;; For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+;;
+;; Routines in this file require ImageMagick's convert.
+;; For more detail about ImageMagick, see:
+;;
+;;    http://www.imagemagick.org/
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m-util)
+(require 'w3m-proc)
+
+(eval-when-compile
+  (if (not (fboundp 'defcustom))
+      (require 'pcustom)))
+
+;; Functions and variables which should be defined in the other module
+;; at run-time.
+(eval-when-compile
+  (defvar w3m-async-exec)
+  (defvar w3m-current-url)
+  (defvar w3m-profile-directory)
+  (defvar w3m-work-buffer-name)
+  (defvar w3m-work-buffer-list))
+
+(defcustom w3m-imagick-convert-program (if noninteractive
+					   nil
+					 (w3m-which-command "convert"))
+  "*Program name of ImageMagick's `convert'."
+  :group 'w3m
+  :set (lambda (symbol value)
+	 (custom-set-default symbol (if (and (not noninteractive)
+					     value)
+					(if (file-name-absolute-p value)
+					    (if (file-executable-p value)
+						value)
+					  (w3m-which-command value)))))
+  :type 'file)
+
+(defcustom w3m-imagick-identify-program (if noninteractive
+					    nil
+					  (w3m-which-command "identify"))
+  "*Program name of ImageMagick's `identify'."
+  :group 'w3m
+  :set (lambda (symbol value)
+	 (custom-set-default symbol (if (and (not noninteractive)
+					     value)
+					(if (file-name-absolute-p value)
+					    (if (file-executable-p value)
+						value)
+					  (w3m-which-command value)))))
+  :type 'file)
+
+;;; Image handling functions.
+(defcustom w3m-resize-images (and w3m-imagick-convert-program t)
+  "*If non-nil, resize images to the specified width and height."
+  :group 'w3m
+  :set (lambda (symbol value)
+	 (custom-set-default symbol (and w3m-imagick-convert-program value)))
+  :type 'boolean)
+
+(put 'w3m-imagick-convert-program 'available-p 'unknown)
+
+(defun w3m-imagick-convert-program-available-p ()
+  "Return non-nil if ImageMagick's `convert' program is available.
+If not, `w3m-imagick-convert-program' and `w3m-resize-images' are made
+nil forcibly."
+  (cond ((eq (get 'w3m-imagick-convert-program 'available-p) 'yes)
+	 t)
+	((eq (get 'w3m-imagick-convert-program 'available-p) 'no)
+	 nil)
+	((and (stringp w3m-imagick-convert-program)
+	      (file-executable-p w3m-imagick-convert-program))
+	 (put 'w3m-imagick-convert-program 'available-p 'yes)
+	 ;; Check whether convert supports png32.
+	 (put 'w3m-imagick-convert-program 'png32
+	      (unless (or (featurep 'xemacs)
+			  (< emacs-major-version 22))
+		(with-temp-buffer
+		  (set-buffer-multibyte nil)
+		  (insert "P1 1 1 1")
+		  (condition-case nil
+		      (call-process-region (point-min) (point-max)
+					   w3m-imagick-convert-program
+					   t t nil "pbm:-" "png32:-")
+		    (error))
+		  (goto-char (point-min))
+		  (looking-at "\211PNG\r\n"))))
+	 t)
+	(t
+	 (when w3m-imagick-convert-program
+	   (message "ImageMagick's `convert' program is not available")
+	   (sit-for 1))
+	 (setq w3m-imagick-convert-program nil
+	       w3m-resize-images nil)
+	 (put 'w3m-imagick-convert-program 'available-p 'no)
+	 nil)))
+
+;;; Synchronous image conversion.
+(defun w3m-imagick-convert-buffer (from-type to-type &rest args)
+  (when (w3m-imagick-convert-program-available-p)
+    (let* ((in-file (make-temp-name
+		     (expand-file-name "w3mel" w3m-profile-directory)))
+	   (buffer-file-coding-system 'binary)
+	   (coding-system-for-read 'binary)
+	   (coding-system-for-write 'binary)
+	   (default-process-coding-system (cons 'binary 'binary))
+	   return)
+      (write-region (point-min) (point-max) in-file nil 'nomsg)
+      (erase-buffer)
+      (setq return
+	    (apply 'call-process
+		   w3m-imagick-convert-program
+		   nil t nil
+		   (append args (list
+				 (concat
+				  (if from-type
+				      (concat from-type ":"))
+				  in-file)
+				 (if to-type
+				     (if (and (string-equal to-type "png")
+					      (get 'w3m-imagick-convert-program
+						   'png32))
+					 "png32:-"
+				       (concat to-type ":-"))
+				   "-")))))
+      (when (file-exists-p in-file) (delete-file in-file))
+      (if (and (numberp return)
+	       (zerop return))
+	  t
+	(message "Image conversion failed (code `%s')"
+		 (if (stringp return)
+		     (string-as-multibyte return)
+		   return))
+	nil))))
+
+(defun w3m-imagick-convert-data (data from-type to-type &rest args)
+  (with-temp-buffer
+    (set-buffer-multibyte nil)
+    (insert data)
+    (and (apply 'w3m-imagick-convert-buffer from-type to-type args)
+	 (not (zerop (buffer-size)))
+	 (buffer-string))))
+
+;;; Asynchronous image conversion.
+(defun w3m-imagick-start-convert-data (handler
+				       data from-type to-type &rest args)
+  (w3m-process-do-with-temp-buffer
+      (success (when (w3m-imagick-convert-program-available-p)
+		 (set-buffer-multibyte nil)
+		 (insert data)
+		 (apply 'w3m-imagick-start-convert-buffer
+			handler from-type to-type args)))
+    (if (and success
+	     (not (zerop (buffer-size))))
+	(buffer-string))))
+
+(defun w3m-imagick-start-convert-buffer (handler from-type to-type &rest args)
+  (lexical-let ((in-file (make-temp-name
+			  (expand-file-name "w3mel" w3m-profile-directory)))
+		(out-buffer (current-buffer)))
+    (setq w3m-current-url "non-existent")
+    (let ((coding-system-for-write 'binary)
+	  (buffer-file-coding-system 'binary)
+	  jka-compr-compression-info-list
+	  format-alist)
+      (write-region (point-min) (point-max) in-file nil 'nomsg))
+    (w3m-process-do
+	(success (with-current-buffer out-buffer
+		   (erase-buffer)
+		   (w3m-process-start
+		    handler
+		    w3m-imagick-convert-program
+		    (append args
+			    (list
+			     (concat
+			      (if from-type
+				  (concat from-type ":"))
+			      in-file)
+			     (if to-type
+				 (if (and (string-equal to-type "png")
+					  (get 'w3m-imagick-convert-program
+					       'png32))
+				     "png32:-"
+				   (concat to-type ":-"))
+			       "-"))))))
+      (when (file-exists-p in-file)
+	(delete-file in-file))
+      success)))
+
+(defun w3m-resize-image (data width height handler)
+  "Resize image DATA to WIDTH and HEIGHT asynchronously.
+HANDLER is called after conversion with resized data as an argument."
+  (w3m-process-do
+      (result (w3m-imagick-start-convert-data
+	       handler
+	       data nil nil "-geometry"
+	       (concat (number-to-string width)
+		       "x"
+		       (number-to-string height)
+		       "!")))
+    result))
+
+(defun w3m-resize-image-by-rate (data rate handler)
+  "Resize image DATA at RATE asynchronously.
+HANDLER is called after conversion with resized data as an argument.
+Note that this function requires that the `convert' program allows the
+`-resize' option."
+  (w3m-process-do
+      (result (w3m-imagick-start-convert-data
+	       handler
+	       data nil nil "-resize"
+	       (concat (number-to-string rate) "%")))
+    result))
+
+(defun w3m-favicon-usable-p ()
+  "Check whether ImageMagick's `convert' supports a Windoze ico format in
+a large number of bits per pixel."
+  (let ((xpm (condition-case nil
+		 (w3m-imagick-convert-data
+		  (string 0 0 1 0 1 0 2 1 0 0 1 0 24 0 52 0
+			  0 0 22 0 0 0 40 0 0 0 2 0 0 0 2 0
+			  0 0 1 0 24 0 0 0 0 0 0 0 0 0 0 0
+			  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+			  0 255 255 255 0 0 0 0 0 0)
+		  "ico" "xpm")
+	       (error nil))))
+    (and xpm (string-match "\"2 1 2 1\"" xpm) t)))
+
+(provide 'w3m-image)
+
+;;; w3m-image.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-lnum.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,564 @@
+;;; w3m-lnum.el --- Operations using link numbers
+
+;; Copyright (C) 2004, 2005, 2006, 2007, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>
+;; Modified by Andrey Kotlarski <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file provides a minor mode to enable Conkeror style operations
+;; using link numbers.  Mostly point operations are extended beyond
+;; current point but there are also new features like
+;; `w3m-go-to-linknum' for quickly navigating to links, form fields
+;; or buttons and `w3m-linknum-follow' for visiting links, activating
+;; form fields or pushing buttons.
+
+;;; Usage:
+
+;; Install this file to an appropriate directory, and add this
+;; expression to your ~/.emacs-w3m if you want automatically
+;; activating this minor mode
+;; (w3m-link-numbering-mode 1)
+;; or alternatively this to your .emacs file before loading w3m
+;; (add-hook 'w3m-mode-hook 'w3m-link-numbering-mode)
+;; or just use interactive command `w3m-link-numbering-mode' to toggle
+;; mode.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m)
+
+(defface w3m-link-numbering
+  '((((class color) (background light)) (:foreground "gray60"))
+    (((class color) (background dark)) (:foreground "gray50")))
+  "Face used to highlight link numbers."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-link-numbering-face 'face-alias 'w3m-link-numbering)
+
+(defface w3m-linknum-minibuffer-prompt
+  '((((class color) (background light) (type tty)) (:foreground "blue"))
+    (((class color) (background dark)) (:foreground "cyan"))
+    (t (:foreground "medium blue")))
+  "Face for w3m linknum minibuffer prompt."
+  :group 'w3m-face)
+
+(defface w3m-linknum-match
+  '((((class color) (background light) (type tty))
+     (:background "yellow" :foreground "black"))
+    (((class color) (background dark) (type tty))
+     (:background "blue" :foreground "white"))
+    (((class color) (background light)) (:background "yellow1"))
+    (((class color) (background dark)) (:background "RoyalBlue3"))
+    (t (:background "gray")))
+  "Face used to highlight matches in `w3m-link-numbering-mode'."
+  :group 'w3m-face)
+
+(defcustom w3m-link-numbering-mode-hook nil
+  "*Hook run after `w3m-link-numbering-mode' initialization."
+  :group 'w3m
+  :type 'hook)
+
+(defmacro w3m-substitute-key-definitions (new-map old-map &rest keys)
+  "In NEW-MAP substitute cascade of OLD-MAP KEYS.
+KEYS is alternating list of key-value."
+  (let ((n-map new-map)
+	(o-map old-map))
+    `(progn
+       ,@(let ((res nil))
+	   (while keys
+	     (push `(substitute-key-definition
+		     ,(car keys) ,(cadr keys) ,n-map ,o-map)
+		   res)
+	     (setq keys (cddr keys)))
+	   (nreverse res)))))
+
+(defvar w3m-link-numbering-mode-map nil
+  "Keymap used when `w3m-link-numbering-mode' is active.")
+(unless w3m-link-numbering-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "f" 'w3m-linknum-follow)
+    (define-key map "F" 'w3m-go-to-linknum)
+    (w3m-substitute-key-definitions
+     map w3m-mode-map
+     'w3m-view-image 'w3m-linknum-view-image
+     'w3m-save-image 'w3m-linknum-save-image
+     'w3m-download-this-url 'w3m-linknum-download-this-url
+     'w3m-edit-this-url 'w3m-linknum-edit-this-url
+     'w3m-toggle-inline-image 'w3m-linknum-toggle-inline-image
+     'w3m-print-this-url 'w3m-linknum-print-this-url
+     'w3m-external-view-this-url 'w3m-linknum-external-view-this-url
+     'w3m-bookmark-add-this-url 'w3m-linknum-bookmark-add-this-url
+     'w3m-zoom-in-image 'w3m-linknum-zoom-in-image
+     'w3m-zoom-out-image 'w3m-linknum-zoom-out-image)
+    (setq w3m-link-numbering-mode-map map)))
+
+(defvar w3m-link-numbering-mode nil
+  "Non-nil if w3m operations using link numbers are enabled.")
+(make-variable-buffer-local 'w3m-link-numbering-mode)
+(unless (assq 'w3m-link-numbering-mode minor-mode-alist)
+  (push (list 'w3m-link-numbering-mode "[ln]") minor-mode-alist))
+(unless (assq 'w3m-link-numbering-mode minor-mode-map-alist)
+  (push (cons 'w3m-link-numbering-mode w3m-link-numbering-mode-map)
+	minor-mode-map-alist))
+
+(defun w3m-linknum-remove-overlays ()
+  "Remove numbering and match overlays."
+  (dolist (overlay (overlays-in (point-min) (point-max)))
+    (if (or (overlay-get overlay 'w3m-link-numbering-overlay)
+	    (overlay-get overlay 'w3m-linknum-match))
+	(delete-overlay overlay))))
+
+;;;###autoload
+(defun w3m-link-numbering-mode (&optional arg)
+  "Minor mode to extend point commands by using Conkeror style number selection.
+With prefix ARG 0 disable battery included point functions, otherwise
+enable them.  With no prefix ARG - toggle."
+  (interactive "P")
+  (let ((w3m-linknum-status w3m-link-numbering-mode))
+    ;; find current numbering status of w3m buffers
+    (or (eq major-mode 'w3m-mode)
+	(save-current-buffer
+	  (setq w3m-linknum-status
+		(catch 'found-w3m
+		  (dolist (buf (buffer-list))
+		    (set-buffer buf)
+		    (if (eq major-mode 'w3m-mode)
+			(throw 'found-w3m
+			       w3m-link-numbering-mode)))))))
+    (setq arg (not (if arg (zerop arg)
+		     w3m-linknum-status)))
+    (unless (eq arg w3m-linknum-status)	; if change of mode status
+      (if arg
+	  (progn (add-hook 'w3m-mode-hook 'w3m-link-numbering-mode)
+		 (run-hooks 'w3m-link-numbering-mode-hook)
+		 (w3m-message "Link numbering keys on"))
+	(remove-hook 'w3m-mode-hook 'w3m-link-numbering-mode)
+	(w3m-message "Link numbering keys off"))
+      ;; change numbering status of all w3m buffers
+      (save-current-buffer
+	(dolist (buf (buffer-list))
+	  (set-buffer buf)
+	  (if (eq major-mode 'w3m-mode)
+	      (setq w3m-link-numbering-mode arg)))))))
+
+(defun w3m-link-numbering (arg)
+  "Make overlays that display link numbers.
+With ARG 0 clear numbering overlay.  With ARG 2 index only images.
+With ARG 4 index form fields and buttons along links."
+  (if (zerop arg)
+      (w3m-linknum-remove-overlays)
+    (save-excursion
+      (goto-char (point-min))
+      (let ((i 0)
+	    (next-func 'w3m-goto-next-anchor)
+	    pos overlay num)
+	(if (= arg 2)
+	    (setq next-func (lambda () (if (w3m-goto-next-image)
+				      (point)))))
+	(catch 'already-numbered
+	  (while (setq pos (funcall next-func))
+	    (when (or (> arg 1)
+		      (get-char-property pos 'w3m-href-anchor))
+	      (if (get-char-property pos
+				     'w3m-link-numbering-overlay)
+		  (throw 'already-numbered nil))
+	      (setq overlay (make-overlay pos (1+ pos))
+		    num (format "[%d]" (incf i)))
+	      (overlay-put overlay 'before-string num)
+	      (w3m-static-if (featurep 'xemacs)
+		  (set-glyph-face (extent-begin-glyph overlay)
+				  'w3m-link-numbering)
+		(w3m-add-face-property 0 (length num)
+				       'w3m-link-numbering num)
+		(overlay-put overlay 'evaporate t))
+	      (overlay-put overlay
+			   'w3m-link-numbering-overlay i))))))))
+
+(defun w3m-read-int-interactive (prompt fun &optional default)
+  "Interactively read a valid integer from minubuffer with PROMPT.
+Execute a one argument function FUN with every current valid integer.
+Initial value is DEFAULT if specified or 0.
+Use <return> to submit current value, <backspace> for correction
+and <C-g> or <escape> to quit action."
+  (let ((prompt (propertize prompt 'face
+			    'w3m-linknum-minibuffer-prompt))
+	(num (or default 0))
+	(min-len (length prompt))
+	ch)
+    (let ((temp-prompt (format "%s%d" prompt num)))
+      (while (not (memq
+		   (setq ch (w3m-static-if (featurep 'xemacs)
+				(let (event key)
+				  (display-message 'no-log temp-prompt)
+				  (setq event (next-command-event))
+				  (and (key-press-event-p event)
+				       (or (event-to-character event)
+					   (characterp
+					    (setq key (event-key event)))
+					   key)))
+			      (read-event temp-prompt)))
+		   '(return 10 13 ?\n ?\r ?\C-g escape 27 ?\e)))
+	(cond ((and (memq ch '(backspace 8 ?\C-h))
+		    (> (length temp-prompt) min-len))
+	       (setq num (/ num 10)
+		     temp-prompt (format "%s%d" prompt num))
+	       (funcall fun num))
+	      ((memq ch '(32 ?\ )) (w3m-scroll-up-or-next-url nil))
+	      ((eq ch 'delete)
+	       (w3m-scroll-down-or-previous-url nil))
+	      ((memq ch '(60 ?<)) (w3m-scroll-right nil))
+	      ((memq ch '(62 ?>)) (w3m-scroll-left nil))
+	      ((and (w3m-static-if (featurep 'xemacs)
+			(characterp ch)
+		      (numberp ch))
+		    (> ch 47) (< ch 58))
+	       (setq num (+ (* num 10) (- ch 48))
+		     temp-prompt (format "%s%d" prompt num))
+	       (funcall fun num))))
+      (if (memq ch '(?\C-g escape 27 ?\e))
+	  (keyboard-quit))
+      num)))
+
+(defmacro w3m-with-linknum (type &rest body)
+  "Within TYPE anchor numbering execute BODY.
+Types are: 0 no numbering, 1 links, 2 images,
+4 links, form fields and buttons.
+Then restore previous numbering condition."
+  `(progn (w3m-link-numbering ,type)
+	  (unwind-protect (progn ,@body)
+	    (w3m-linknum-remove-overlays))))
+
+(defun w3m-highlight-numbered-anchor (arg)
+  "Highlight specified by ARG number anchor."
+  (catch 'done
+    (let (found-prev marked-new)
+      (dolist (overlay (overlays-in (point-min) (point-max)))
+	(cond
+	 ((overlay-get overlay 'w3m-linknum-match)
+	  (delete-overlay overlay)
+	  (setq found-prev t))
+	 ((eq arg (overlay-get overlay 'w3m-link-numbering-overlay))
+	  (let* ((start (overlay-start overlay))
+		 (match-overlay
+		  (make-overlay
+		   start
+		   (next-single-property-change
+		    start
+		    (cond ((get-text-property start 'w3m-href-anchor)
+			   'w3m-href-anchor)
+			  ((get-text-property start 'w3m-image)
+			   'w3m-image)
+			  (t 'w3m-action))))))
+	    (overlay-put match-overlay 'w3m-linknum-match t)
+	    (overlay-put match-overlay 'face 'w3m-linknum-match))
+	  (setq marked-new t)))
+	(and found-prev marked-new (throw 'done nil))))))
+
+(defun w3m-get-anchor-info (&optional num)
+  "Get info (url/action position [image image-alt]) of anchor numbered as NUM.
+If NUM is not specified, use currently highlighted anchor."
+  (macrolet
+      ((get-match-info
+	(condition)
+	`(dolist (overlay (overlays-in (point-min) (point-max)))
+	   (if ,condition
+	       (let* ((pos (overlay-start overlay))
+		      (href (get-text-property pos 'w3m-href-anchor)))
+		 (throw
+		  'found
+		  (if href (list href pos
+				 (get-text-property pos 'w3m-image)
+				 (get-text-property pos 'w3m-image-alt))
+		    (list (get-text-property pos 'w3m-action)
+			  pos))))))))
+    (catch 'found
+      (if num (get-match-info
+	       (eq num (overlay-get
+			overlay 'w3m-link-numbering-overlay)))
+	(get-match-info (overlay-get overlay 'w3m-linknum-match))))))
+
+;;;###autoload
+(defun w3m-go-to-linknum (arg)
+  "Turn on link and form numbers and ask for one to go to.
+With prefix ARG don't highlight current link.
+0 corresponds to location url."
+  (interactive "P")
+  (w3m-with-linknum
+   4
+   (let ((info (if arg
+		   (let ((num (w3m-read-number "Anchor number: ")))
+		     (if (zerop num)
+			 (list nil 16)
+		       (w3m-get-anchor-info num)))
+		 (if (zerop (w3m-read-int-interactive
+			     "Anchor number: "
+			     'w3m-highlight-numbered-anchor))
+		     (list nil 16)
+		   (w3m-get-anchor-info)))))
+     (if info
+	 (progn
+	   (push-mark (point))
+	   (goto-char (cadr info)))
+       (w3m-message "No valid anchor selected")))))
+
+(defun w3m-linknum-get-action (&optional prompt type)
+  "Turn on link numbers and return list of url or action, position
+and image url if such of  PROMPT selected anchor.
+TYPE sets types of anchors to be numbered, if nil or 4, number urls,
+form fields and buttons. 1 - only links, 2 - only images.
+Highlight every intermediate result anchor.
+Input 0 corresponds to current page url."
+  (w3m-with-linknum
+   (or type 4)
+   (if (and (zerop (w3m-read-int-interactive
+		    (or prompt "Anchor number: ")
+		    'w3m-highlight-numbered-anchor))
+	    (not (eq type 2)))
+       (list w3m-current-url 16 nil nil)
+     (w3m-get-anchor-info))))
+
+;;;###autoload
+(defun w3m-linknum-follow (arg)
+  "Turn on link numbers, ask for one and execute appropriate action on it.
+When link - visit it, when button - press, when input - activate it.
+With prefix ARG visit link in new session or move over field/button
+before activate/press."
+  (interactive "P")
+  (let ((info (w3m-linknum-get-action
+	       (concat "Follow " (if arg "in new session ")
+		       "(select anchor): "))))
+    (if info
+	(let ((action (car info)))
+	  (cond ((stringp action)	; url
+		 (if arg (w3m-goto-url-new-session action)
+		   (push-mark (point))
+		   (goto-char (cadr info))
+		   (w3m-history-store-position)
+		   (w3m-goto-url action)))
+		((eq (car action) 'w3m-form-submit) ; button
+		 (when arg
+		   (push-mark (point))
+		   (goto-char (cadr info)))
+		 (widget-button-press (cadr info) action))
+		(t (if arg		; form field
+		       (progn (push-mark (point))
+			      (goto-char (cadr info))
+			      (let ((w3m-form-new-session t)
+				    (w3m-form-download nil))
+				(eval action)))
+		     (save-excursion
+		       (goto-char (cadr info))
+		       (let ((w3m-form-new-session nil)
+			     (w3m-form-download nil))
+			 (eval action)))))))
+      (w3m-message "No valid anchor selected"))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; linknum alternatives to w3m user commands on point
+
+;;;###autoload
+(defun w3m-linknum-toggle-inline-image (&optional arg)
+  "If image at point, toggle it.
+Otherwise turn on link numbers and toggle selected image.
+With prefix ARG open url under image in new session.
+If no such url, move over image and toggle it."
+  (interactive "P")
+  (if (w3m-image)
+      (let ((url (get-char-property (point) 'w3m-href-anchor)))
+	(if (and arg url)
+	    (w3m-goto-url-new-session url)
+	  (w3m-toggle-inline-image)))
+    (let ((im (w3m-linknum-get-action
+	       (if arg
+		   "Open image url in new session: "
+		 "Toggle image: ")
+	       2)))
+      (if im
+	  (if arg
+	      (if (car im)
+		  (w3m-goto-url-new-session (car im))
+		(push-mark (point))
+		(goto-char (cadr im))
+		(w3m-toggle-inline-image))
+	    (save-excursion (goto-char (cadr im))
+			    (w3m-toggle-inline-image)))
+	(w3m-message "No image selected")))))
+
+;;;###autoload
+(defun w3m-linknum-view-image ()
+  "Display the image under point in the external viewer.
+If no image at poing, turn on image numbers and display selected.
+The viewer is defined in `w3m-content-type-alist' for every type of an
+image."
+  (interactive)
+  (let ((im (w3m-url-valid (w3m-image))))
+    (cond (im (w3m-external-view im))
+	  ((setq im (w3m-linknum-get-action
+		     "Open image url in external viewer: " 2))
+	   (w3m-external-view (caddr im)))
+	  (t (w3m-message "No image selected")))))
+
+;;;###autoload
+(defun w3m-linknum-save-image ()
+  "Save the image under point to a file.
+If no image at poing, turn on image numbers and save selected.
+The default name will be the original name of the image."
+  (interactive)
+  (let ((im (w3m-url-valid (w3m-image))))
+    (cond (im (w3m-download im))
+	  ((setq im (w3m-linknum-get-action "Save image: " 2))
+	   (w3m-download (caddr im)))
+	  (t (w3m-message "No image selected")))))
+
+(defmacro w3m-linknum-zoom-image (rate &optional in)
+  "Zoom image under the point.
+Numeric prefix RATE specifies how many percent the image is
+changed by.  Default is the value of the `w3m-resize-image-scale'
+variable.  If no image under point, activate numbering and ask
+for one.  When IN zoom in, otherwise zoom out."
+  `(progn
+     (or (w3m-display-graphic-p)
+	 (error "Can't display images in this environment"))
+     (or (w3m-imagick-convert-program-available-p)
+	 (error "ImageMagick's `convert' program is required"))
+     (let ((im (w3m-image)))
+       (cond
+	(im (w3m-resize-inline-image-internal
+	     im
+	     (,(if in '+ '-) 100 (or ,rate w3m-resize-image-scale))))
+	((setq im (w3m-linknum-get-action
+		   ,(concat "Zoom " (if in "in" "out") " image: ") 2))
+	 (save-excursion
+	   (goto-char (cadr im))
+	   (w3m-resize-inline-image-internal
+	    (car im)
+	    (,(if in '+ '-) 100 (or ,rate w3m-resize-image-scale)))))
+	(t (w3m-message "No image at point"))))))
+
+(defun w3m-linknum-zoom-in-image (&optional rate)
+  "Zoom in an image on the point.
+Numeric prefix RATE specifies how many percent the image is
+enlarged by \(30 means enlarging the image by 130%).  The default
+is the value of the `w3m-resize-image-scale' variable.  If no
+image under point, activate numbering and ask for one."
+  (interactive "P")
+  (w3m-linknum-zoom-image rate t))
+
+(defun w3m-linknum-zoom-out-image (&optional rate)
+  "Zoom out an image on the point.
+Numeric prefix RATE specifies how many percent the image is shrunk by
+\(30 means shrinking the image by 70%).  The default is the value of
+the `w3m-resize-image-scale' variable.
+If no image under point, activate numbering and ask for one."
+  (interactive "P")
+  (w3m-linknum-zoom-image rate))
+
+;;;###autoload
+(defun w3m-linknum-external-view-this-url ()
+  "Launch the external browser and display the link at point.
+If no link at point, turn on link numbers and open selected externally."
+  (interactive)
+  (let ((url (w3m-url-valid (or (w3m-anchor) (w3m-image)
+				(car
+				 (w3m-linknum-get-action
+				  "Open in external browser: " 1))))))
+    (if url
+	(w3m-external-view url)
+      (w3m-message "No URL selected"))))
+
+;;;###autoload
+(defun w3m-linknum-edit-this-url ()
+  "Edit the page linked from the anchor under the cursor.
+If no such, turn on link numbers and edit selected."
+  (interactive)
+  (let ((url (or (w3m-url-valid (w3m-anchor))
+		 (car (w3m-linknum-get-action
+		       "Select link to edit: " 1)))))
+    (if url
+	(w3m-edit-url url)
+      (w3m-message "No URL selected"))))
+
+;;;###autoload
+(defun w3m-linknum-print-this-url ()
+  "Display the url under point in the echo area and put it into `kill-ring'.
+If no url under point, activate numbering and select one."
+  (interactive)
+  (if (or (w3m-anchor) (w3m-image))
+      (w3m-print-this-url t)
+    (let ((link (w3m-linknum-get-action "Select URL to copy: " 1)))
+      (if link
+	  (let ((url (car link)))
+	    (kill-new url)
+	    (w3m-message "%s%s" (let ((im-alt (cadddr link)))
+				  (if (zerop (length im-alt))
+				      ""
+				    (concat im-alt ": ")))
+			 url))
+	(w3m-message "No URL selected")))))
+
+;;;###autoload
+(defun w3m-linknum-download-this-url ()
+  "Download the file or the page pointed to by the link under point.
+If no point, activate numbering and select andchor to download."
+  (interactive)
+  (if (or (w3m-anchor) (w3m-image) (w3m-action))
+      (w3m-download-this-url)
+    (let ((info (w3m-linknum-get-action
+		 "Select anchor to download: ")))
+      (if info
+	  (save-excursion
+	    (goto-char (cadr info))
+	    (w3m-download-this-url))
+	(w3m-message "No anchor selected")))))
+
+;;;###autoload
+(defun w3m-linknum-bookmark-add-this-url ()
+  "Add link under cursor to bookmark.
+If no link under point, activate numbering and ask for one."
+  (interactive)
+  (let ((url (w3m-anchor)))
+    (cond
+     (url (w3m-bookmark-add
+	   url
+	   (buffer-substring-no-properties
+	    (previous-single-property-change (+ 1 (point))
+					     'w3m-href-anchor)
+	    (next-single-property-change (point) 'w3m-href-anchor)))
+	  (message "Added"))
+     ((setq url (w3m-linknum-get-action "Select URL to bookmark: " 1))
+      (w3m-bookmark-add
+       (car url)
+       (buffer-substring-no-properties
+	(previous-single-property-change (+ 1 (cadr url))
+					 'w3m-href-anchor)
+	(next-single-property-change (cadr url) 'w3m-href-anchor)))
+      (w3m-message "added"))
+     (t (w3m-message "No url selected")))))
+
+(provide 'w3m-lnum)
+
+;;; w3m-lnum.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-load.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,520 @@
+;;; w3m-load.el --- automatically extracted autoload
+;;
+;; This file should be generated by make in emacs-w3m source directory.
+;;
+;;; Code:
+
+(provide 'w3m-load)
+
+;;;### (autoloads (w3m-buffer w3m-region w3m-find-file w3m-browse-url
+;;;;;;  w3m w3m-gohome w3m-goto-url-new-session w3m-goto-url w3m-download
+;;;;;;  w3m-retrieve) "w3m" "w3m.el" (19594 1591))
+;;; Generated autoloads from w3m.el
+
+(autoload 'w3m-retrieve "w3m" "\
+Retrieve web contents pointed to by URL.
+It will put the retrieved contents into the current buffer.
+
+If HANDLER is nil, this function will retrieve web contents, return
+the content type of the retrieved data, and then come to an end.  This
+behavior is what is called a synchronous operation.  You have to
+specify HANDLER in order to make this function show its real ability,
+which is called an asynchronous operation.
+
+If HANDLER is a function, this function will come to an end in no time.
+In this case, contents will be retrieved by the asynchronous process
+after a while.  And after finishing retrieving contents successfully,
+HANDLER will be called on the buffer where this function starts.  The
+content type of the retrieved data will be passed to HANDLER as a
+string argument.
+
+NO-UNCOMPRESS specifies whether this function should not uncompress contents.
+NO-CACHE specifies whether this function should not use cached contents.
+POST-DATA and REFERER will be sent to the web server with a request.
+
+\(fn URL &optional NO-UNCOMPRESS NO-CACHE POST-DATA REFERER HANDLER)" nil nil)
+
+(autoload 'w3m-download "w3m" "\
+Download contents of URL to a file named FILENAME.
+NO-CHACHE (which the prefix argument gives when called interactively)
+specifies not using the cached data.
+
+\(fn URL &optional FILENAME NO-CACHE HANDLER POST-DATA)" t nil)
+
+(autoload 'w3m-goto-url "w3m" "\
+Visit World Wide Web pages.  This is the primitive function of `w3m'.
+If the second argument RELOAD is non-nil, reload a content of URL.
+Except that if it is 'redisplay, re-display the page without reloading.
+The third argument CHARSET specifies a charset to be used for decoding
+a content.
+The fourth argument POST-DATA should be a string or a cons cell.  If
+it is a string, it makes this function request a body as if the
+content-type is \"x-www-form-urlencoded\".  If it is a cons cell, the
+car of a cell is used as the content-type and the cdr of a cell is
+used as the body.
+If the fifth argument REFERER is specified, it is used for a Referer:
+field for this request.
+The remaining HANDLER, ELEMENT[1], and NO-POPUP are for the
+internal operations of emacs-w3m.
+You can also use \"quicksearch\" url schemes such as \"gg:emacs\" which
+would search for the term \"emacs\" with the Google search engine.  See
+the `w3m-search' function and the variable `w3m-uri-replace-alist'.
+
+\[1] A note for the developers: ELEMENT is a history element which has
+already been registered in the `w3m-history-flat' variable.  It is
+corresponding to URL to be retrieved at this time, not for the url of
+the current page.
+
+\(fn URL &optional RELOAD CHARSET POST-DATA REFERER HANDLER ELEMENT NO-POPUP)" t nil)
+
+(autoload 'w3m-goto-url-new-session "w3m" "\
+Visit World Wide Web pages in a new session.
+If you invoke this command in the emacs-w3m buffer, the new session
+will be created by copying the current session.  Otherwise, the new
+session will start afresh.
+
+\(fn URL &optional RELOAD CHARSET POST-DATA REFERER)" t nil)
+
+(autoload 'w3m-gohome "w3m" "\
+Go to the Home page.
+
+\(fn)" t nil)
+
+(autoload 'w3m "w3m" "\
+Visit World Wide Web pages using the external w3m command.
+
+When you invoke this command interactively for the first time, it will
+visit a page which is pointed to by a string like url around the
+cursor position or the home page specified by the `w3m-home-page'
+variable, but you will be prompted for a URL if `w3m-quick-start' is
+nil (default t) or `w3m-home-page' is nil.
+
+The variables `w3m-pop-up-windows' and `w3m-pop-up-frames' control
+whether this command should pop to a window or a frame up for the
+session.
+
+When emacs-w3m sessions have already been opened, this command will
+pop to the existing window or frame up, but if `w3m-quick-start' is
+nil, (default t), you will be prompted for a URL (which defaults to
+`popup' meaning to pop to an existing emacs-w3m buffer up).
+
+In addition, if the prefix argument is given or you enter the empty
+string for the prompt, it will visit the home page specified by the
+`w3m-home-page' variable or the \"about:\" page.
+
+You can also run this command in the batch mode as follows:
+
+  emacs -f w3m http://emacs-w3m.namazu.org/ &
+
+In that case, or if this command is called non-interactively, the
+variables `w3m-pop-up-windows' and `w3m-pop-up-frames' will be ignored
+\(treated as nil) and it will run emacs-w3m at the current (or the
+initial) window.
+
+If the optional NEW-SESSION is non-nil, this function makes a new
+emacs-w3m buffer.  Besides that, it also makes a new emacs-w3m buffer
+if `w3m-make-new-session' is non-nil and a user specifies a url string.
+
+The optional INTERACTIVE-P is for the internal use; it is mainly used
+to check whether Emacs 22 or later calls this function as an
+interactive command in the batch mode.
+
+\(fn &optional URL NEW-SESSION INTERACTIVE-P)" t nil)
+
+(autoload 'w3m-browse-url "w3m" "\
+Ask emacs-w3m to browse URL.
+NEW-SESSION specifies whether to create a new emacs-w3m session.  URL
+defaults to the string looking like a url around the cursor position.
+Pop to a window or a frame up according to `w3m-pop-up-windows' and
+`w3m-pop-up-frames'.
+
+\(fn URL &optional NEW-SESSION)" t nil)
+
+(autoload 'w3m-find-file "w3m" "\
+Function used to open FILE whose name is expressed in ordinary format.
+The file name will be converted into the file: scheme.
+
+\(fn FILE)" t nil)
+
+(autoload 'w3m-region "w3m" "\
+Render the region of the current buffer between START and END.
+URL specifies the address where the contents come from.  It can be
+omitted or nil when the address is not identified.  CHARSET is used
+for decoding the contents.  If it is nil, this function attempts to
+parse the meta tag to extract the charset.
+
+\(fn START END &optional URL CHARSET)" t nil)
+
+(autoload 'w3m-buffer "w3m" "\
+Render the current buffer.
+See `w3m-region' for the optional arguments.
+
+\(fn &optional URL CHARSET)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-antenna w3m-about-antenna) "w3m-antenna" "w3m-antenna.el"
+;;;;;;  (19188 5056))
+;;; Generated autoloads from w3m-antenna.el
+
+(autoload 'w3m-about-antenna "w3m-antenna" "\
+Not documented
+
+\(fn URL &optional NO-DECODE NO-CACHE POST-DATA REFERER HANDLER)" nil nil)
+
+(autoload 'w3m-antenna "w3m-antenna" "\
+Report changes of WEB sites, which is specified in `w3m-antenna-sites'.
+
+\(fn &optional NO-CACHE)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-setup-bookmark-menu w3m-about-bookmark w3m-bookmark-view-new-session
+;;;;;;  w3m-bookmark-view w3m-bookmark-add-current-url-group w3m-bookmark-add-all-urls
+;;;;;;  w3m-bookmark-add-current-url w3m-bookmark-add-this-url) "w3m-bookmark"
+;;;;;;  "w3m-bookmark.el" (19529 31699))
+;;; Generated autoloads from w3m-bookmark.el
+
+(autoload 'w3m-bookmark-add-this-url "w3m-bookmark" "\
+Add link under cursor to bookmark.
+
+\(fn)" t nil)
+
+(autoload 'w3m-bookmark-add-current-url "w3m-bookmark" "\
+Add a url of the current page to the bookmark.
+With prefix, ask for a new url instead of the present one.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'w3m-bookmark-add-all-urls "w3m-bookmark" "\
+Add urls of all pages being visited to the bookmark.
+
+\(fn)" t nil)
+
+(autoload 'w3m-bookmark-add-current-url-group "w3m-bookmark" "\
+Add link of the group of current urls to the bookmark.
+
+\(fn)" t nil)
+
+(autoload 'w3m-bookmark-view "w3m-bookmark" "\
+Display the bookmark.
+
+\(fn &optional RELOAD)" t nil)
+
+(autoload 'w3m-bookmark-view-new-session "w3m-bookmark" "\
+Display the bookmark on a new session.
+
+\(fn &optional RELOAD)" t nil)
+
+(autoload 'w3m-about-bookmark "w3m-bookmark" "\
+Not documented
+
+\(fn &rest ARGS)" nil nil)
+
+(autoload 'w3m-setup-bookmark-menu "w3m-bookmark" "\
+Setup w3m bookmark items in menubar.
+
+\(fn)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-about-cookie w3m-cookie w3m-cookie-get w3m-cookie-set
+;;;;;;  w3m-cookie-shutdown) "w3m-cookie" "w3m-cookie.el" (19450
+;;;;;;  19230))
+;;; Generated autoloads from w3m-cookie.el
+
+(autoload 'w3m-cookie-shutdown "w3m-cookie" "\
+Save cookies, and reset cookies' data.
+
+\(fn)" t nil)
+
+(autoload 'w3m-cookie-set "w3m-cookie" "\
+Register cookies which correspond to URL.
+BEG and END should be an HTTP response header region on current buffer.
+
+\(fn URL BEG END)" nil nil)
+
+(autoload 'w3m-cookie-get "w3m-cookie" "\
+Get a cookie field string which corresponds to the URL.
+
+\(fn URL)" nil nil)
+
+(autoload 'w3m-cookie "w3m-cookie" "\
+Display cookies and enable you to manage them.
+
+\(fn &optional NO-CACHE)" t nil)
+
+(autoload 'w3m-about-cookie "w3m-cookie" "\
+Make the html contents to display and to enable you to manage cookies.
+
+\(fn URL &optional NO-DECODE NO-CACHE POST-DATA &rest ARGS)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-dtree w3m-about-dtree) "w3m-dtree" "w3m-dtree.el"
+;;;;;;  (18965 10114))
+;;; Generated autoloads from w3m-dtree.el
+
+(autoload 'w3m-about-dtree "w3m-dtree" "\
+Not documented
+
+\(fn URL &optional NODECODE ALLFILES &rest ARGS)" nil nil)
+
+(autoload 'w3m-dtree "w3m-dtree" "\
+Display directory tree on local file system.
+If called with 'prefix argument', display all directorys and files.
+
+\(fn ALLFILES PATH)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-fb-mode) "w3m-fb" "w3m-fb.el" (17681 2386))
+;;; Generated autoloads from w3m-fb.el
+
+(defvar w3m-fb-mode nil "\
+Non-nil if W3m-Fb mode is enabled.
+See the command `w3m-fb-mode' for a description of this minor mode.
+Setting this variable directly does not take effect;
+either customize it (see the info node `Easy Customization')
+or call the function `w3m-fb-mode'.")
+
+(custom-autoload 'w3m-fb-mode "w3m-fb" nil)
+
+(autoload 'w3m-fb-mode "w3m-fb" "\
+Toggle W3M Frame Buffer mode.
+This allows frame-local lists of buffers (tabs).
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-filter) "w3m-filter" "w3m-filter.el" (18560
+;;;;;;  26042))
+;;; Generated autoloads from w3m-filter.el
+
+(autoload 'w3m-filter "w3m-filter" "\
+Apply filtering rule of URL against a content in this buffer.
+
+\(fn URL)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-fontify-forms) "w3m-form" "w3m-form.el" (19563
+;;;;;;  45473))
+;;; Generated autoloads from w3m-form.el
+
+(autoload 'w3m-fontify-forms "w3m-form" "\
+Process half-dumped data and fontify forms in this buffer.
+
+\(fn)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-linknum-bookmark-add-this-url w3m-linknum-download-this-url
+;;;;;;  w3m-linknum-print-this-url w3m-linknum-edit-this-url w3m-linknum-external-view-this-url
+;;;;;;  w3m-linknum-save-image w3m-linknum-view-image w3m-linknum-toggle-inline-image
+;;;;;;  w3m-linknum-follow w3m-go-to-linknum w3m-link-numbering-mode)
+;;;;;;  "w3m-lnum" "w3m-lnum.el" (19590 4486))
+;;; Generated autoloads from w3m-lnum.el
+
+(autoload 'w3m-link-numbering-mode "w3m-lnum" "\
+Minor mode to extend point commands by using Conkeror style number selection.
+With prefix ARG 0 disable battery included point functions, otherwise
+enable them.  With no prefix ARG - toggle.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'w3m-go-to-linknum "w3m-lnum" "\
+Turn on link and form numbers and ask for one to go to.
+With prefix ARG don't highlight current link.
+0 corresponds to location url.
+
+\(fn ARG)" t nil)
+
+(autoload 'w3m-linknum-follow "w3m-lnum" "\
+Turn on link numbers, ask for one and execute appropriate action on it.
+When link - visit it, when button - press, when input - activate it.
+With prefix ARG visit link in new session or move over field/button
+before activate/press.
+
+\(fn ARG)" t nil)
+
+(autoload 'w3m-linknum-toggle-inline-image "w3m-lnum" "\
+If image at point, toggle it.
+Otherwise turn on link numbers and toggle selected image.
+With prefix ARG open url under image in new session.
+If no such url, move over image and toggle it.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'w3m-linknum-view-image "w3m-lnum" "\
+Display the image under point in the external viewer.
+If no image at poing, turn on image numbers and display selected.
+The viewer is defined in `w3m-content-type-alist' for every type of an
+image.
+
+\(fn)" t nil)
+
+(autoload 'w3m-linknum-save-image "w3m-lnum" "\
+Save the image under point to a file.
+If no image at poing, turn on image numbers and save selected.
+The default name will be the original name of the image.
+
+\(fn)" t nil)
+
+(autoload 'w3m-linknum-external-view-this-url "w3m-lnum" "\
+Launch the external browser and display the link at point.
+If no link at point, turn on link numbers and open selected externally.
+
+\(fn)" t nil)
+
+(autoload 'w3m-linknum-edit-this-url "w3m-lnum" "\
+Edit the page linked from the anchor under the cursor.
+If no such, turn on link numbers and edit selected.
+
+\(fn)" t nil)
+
+(autoload 'w3m-linknum-print-this-url "w3m-lnum" "\
+Display the url under point in the echo area and put it into `kill-ring'.
+If no url under point, activate numbering and select one.
+
+\(fn)" t nil)
+
+(autoload 'w3m-linknum-download-this-url "w3m-lnum" "\
+Download the file or the page pointed to by the link under point.
+If no point, activate numbering and select andchor to download.
+
+\(fn)" t nil)
+
+(autoload 'w3m-linknum-bookmark-add-this-url "w3m-lnum" "\
+Add link under cursor to bookmark.
+If no link under point, activate numbering and ask for one.
+
+\(fn)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-namazu w3m-about-namazu) "w3m-namazu" "w3m-namazu.el"
+;;;;;;  (18965 10114))
+;;; Generated autoloads from w3m-namazu.el
+
+(autoload 'w3m-about-namazu "w3m-namazu" "\
+Not documented
+
+\(fn URL &optional NO-DECODE NO-CACHE &rest ARGS)" nil nil)
+
+(autoload 'w3m-namazu "w3m-namazu" "\
+Search indexed files with Namazu.
+
+\(fn INDEX QUERY &optional RELOAD)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-perldoc w3m-about-perldoc) "w3m-perldoc" "w3m-perldoc.el"
+;;;;;;  (18199 13480))
+;;; Generated autoloads from w3m-perldoc.el
+
+(autoload 'w3m-about-perldoc "w3m-perldoc" "\
+Not documented
+
+\(fn URL &optional NO-DECODE NO-CACHE &rest ARGS)" nil nil)
+
+(autoload 'w3m-perldoc "w3m-perldoc" "\
+View Perl documents.
+
+\(fn DOCNAME)" t nil)
+
+;;;***
+
+;;;### (autoloads (w3m-search-uri-replace w3m-search-new-session
+;;;;;;  w3m-search) "w3m-search" "w3m-search.el" (19563 45473))
+;;; Generated autoloads from w3m-search.el
+
+(autoload 'w3m-search "w3m-search" "\
+Search QUERY using SEARCH-ENGINE.
+When called interactively with a prefix argument, you can choose one of
+the search engines defined in `w3m-search-engine-alist'.  Otherwise use
+`w3m-search-default-engine'.
+If Transient Mark mode, use the region as an initial string of query
+and deactivate the mark.
+
+\(fn SEARCH-ENGINE QUERY)" t nil)
+
+(autoload 'w3m-search-new-session "w3m-search" "\
+Like `w3m-search', but do the search in a new session.
+
+\(fn SEARCH-ENGINE QUERY)" t nil)
+
+(autoload 'w3m-search-uri-replace "w3m-search" "\
+Generate query string for ENGINE from URI matched by last search.
+
+\(fn URI ENGINE)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-session-last-crashed-session w3m-session-last-autosave-session
+;;;;;;  w3m-setup-session-menu w3m-session-select w3m-session-save)
+;;;;;;  "w3m-session" "w3m-session.el" (19563 45473))
+;;; Generated autoloads from w3m-session.el
+
+(autoload 'w3m-session-save "w3m-session" "\
+Save list of displayed session.
+
+\(fn)" t nil)
+
+(autoload 'w3m-session-select "w3m-session" "\
+Select session from session list.
+
+\(fn)" t nil)
+
+(autoload 'w3m-setup-session-menu "w3m-session" "\
+Setup w3m session items in menubar.
+
+\(fn)" nil nil)
+
+(autoload 'w3m-session-last-autosave-session "w3m-session" "\
+Not documented
+
+\(fn)" nil nil)
+
+(autoload 'w3m-session-last-crashed-session "w3m-session" "\
+Not documented
+
+\(fn)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-replace-symbol) "w3m-symbol" "w3m-symbol.el"
+;;;;;;  (18791 12168))
+;;; Generated autoloads from w3m-symbol.el
+
+(autoload 'w3m-replace-symbol "w3m-symbol" "\
+Not documented
+
+\(fn)" nil nil)
+
+;;;***
+
+;;;### (autoloads (w3m-about-weather w3m-weather) "w3m-weather" "w3m-weather.el"
+;;;;;;  (18199 13480))
+;;; Generated autoloads from w3m-weather.el
+
+(autoload 'w3m-weather "w3m-weather" "\
+Display weather report.
+
+\(fn AREA)" t nil)
+
+(autoload 'w3m-about-weather "w3m-weather" "\
+Not documented
+
+\(fn URL NO-DECODE NO-CACHE POST-DATA REFERER HANDLER)" nil nil)
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; coding: utf-8
+;; End:
+;;; w3m-load.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-mail.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,396 @@
+;;; w3m-mail.el --- an interface to mail-user-agent for sending web pages
+
+;; Copyright (C) 2006, 2009 TSUCHIYA Masatoshi
+
+;; Author: Katsumi Yamaoka <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This module provides the `w3m-mail' command which enables you to
+;; send web pages as mails respecting those content types (typically
+;; text/html).  Currently this program works if and only if you set
+;; the `mail-user-agent' variable to one of the following agents:
+;;      `gnus-user-agent'
+;;      `message-user-agent'
+;;      `mew-user-agent'
+;;      `vm-user-agent'
+;;      `wl-user-agent'
+;; To send the page you are looking at, type `M-x w3m-mail' or click
+;; the menu button, fill message headers properly, and type `C-c C-c'.
+
+;;; Code:
+
+(require 'w3m)
+
+(defcustom w3m-mail-subject '("Emailing:" url)
+  "A list of strings and symbols used to generate the subject header.
+Valid symbols include `url' which is replaced with the url of the page
+and `title' which is replaced with the page title.  You can also use
+just a string for this variable."
+  :group 'w3m
+  :type '(radio (editable-list :format "\n%v%i\n"
+			       (radio-button-choice
+				(const :format "%v " url)
+				(const :format "%v " title)
+				string))
+		string
+		(const :format "no subject" nil)))
+
+(defvar w3m-mail-user-agent-compose-function-alist
+  (let ((alist '((gnus-user-agent . w3m-mail-compose-with-mml)
+		 (message-user-agent . w3m-mail-compose-with-mml)
+		 (mew-user-agent . w3m-mail-compose-with-mew)
+		 (vm-user-agent . w3m-mail-compose-with-vm)
+		 (wl-user-agent . w3m-mail-compose-with-semi)))
+	composer)
+    (delq nil (mapcar (lambda (agent)
+			(if (setq composer (cdr (assq agent alist)))
+			    (cons agent composer)))
+		      w3m-mail-user-agents)))
+  "Alist of mail user agents and functions to compose a mail.
+The function will be called with the arguments `source', `url',
+`charset', `content-type', `to', `subject', and `other-headers'; where
+`source' is a string containing the page source, `url' is the url of
+the page, `charset' is a charset that the page uses, `content-type' is
+the one such as \"text/html\", and the rest are the same as those of
+`compose-mail'.")
+
+(eval-when-compile
+  (autoload 'message-add-action "message")
+  (autoload 'mml-insert-empty-tag "mml")
+  (autoload 'vm-mime-attach-buffer "vm-mime")
+  (condition-case nil
+      (require 'mime-edit)
+    (error
+     (dolist (symbol '(encode-mime-charset-region
+		       detect-mime-charset-region
+		       std11-wrap-as-quoted-string
+		       mime-find-file-type
+		       mime-edit-insert-tag
+		       mime-edit-define-encoding
+		       mime-encode-region))
+       (defalias symbol 'ignore)))))
+
+(eval-and-compile
+  (autoload 'mm-find-mime-charset-region "mm-util")
+  (autoload 'w3m-mail-compose-with-mew "mew-w3m"
+    "Compose a mail using Mew." t))
+
+(defun w3m-mail-make-subject ()
+  "Return a string used for the Subject header."
+  (cond ((consp w3m-mail-subject)
+	 (w3m-replace-in-string
+	  (w3m-replace-in-string
+	   (mapconcat (lambda (elem)
+			(cond ((eq elem 'url) w3m-current-url)
+			      ((eq elem 'title) w3m-current-title)
+			      ((stringp elem) elem)
+			      (t (format "%s" elem))))
+		      w3m-mail-subject
+		      " ")
+	   "[\t\n ]+" " ")
+	  "\\(?:\\` \\| \\'\\)" ""))
+	((stringp w3m-mail-subject) w3m-mail-subject)
+	(t "(no subject)")))
+
+(defun w3m-mail-compute-base-url ()
+  "Compute a base url of the page if it is not provided."
+  (let ((url (substring w3m-current-url 15)))
+    (unless (string-match "\\`about:" url)
+      (save-excursion
+	(goto-char (point-min))
+	(let ((case-fold-search t)
+	      start end)
+	  (unless (and (setq start (search-forward "<head>" nil t))
+		       (setq end (search-forward "</head>" nil t))
+		       (progn
+			 (goto-char start)
+			 (re-search-forward "<base[\t\n\r ]+" end t))
+		       (w3m-parse-attributes (href) (> (length href) 0)))
+	    (substring (w3m-expand-url "x" url) 0 -1)))))))
+
+(defun w3m-mail-embed-base-url (source base-url)
+  "Embed BASE-URL in SOURCE."
+  (with-temp-buffer
+    (w3m-static-unless (featurep 'xemacs)
+      (set-buffer-multibyte t))
+    (setq case-fold-search t)
+    (insert source)
+    (goto-char (point-min))
+    (while (search-forward "\r\n" nil t)
+      (replace-match "\n"))
+    (goto-char (point-min))
+    (let ((nohead t)
+	  (points (list (point-min) (point-min)))
+	  (margin 0))
+      (when (re-search-forward "\\(<html>\\)[\t\n ]*" nil t)
+	(setq points (list (match-end 1) (match-end 0))
+	      margin (current-column)))
+      (when (re-search-forward "\\(<head>\\)[\t\n ]*" nil t)
+	(setq nohead nil
+	      points (list (match-end 1) (match-end 0))
+	      margin (current-column)))
+      (setq margin (make-string margin ? ))
+      (goto-char (car points))
+      (apply 'delete-region points)
+      (if nohead
+	  (insert "\n" margin "<head><base href=\"" base-url "\"></head>\n"
+		  margin)
+	(insert "\n" margin "<base href=\"" base-url "\">\n" margin)))
+    (buffer-string)))
+
+(defun w3m-mail-goto-body-and-clear-body ()
+  "Go to the beginning of the body and clear the body."
+  (goto-char (point-min))
+  (if (re-search-forward (concat "^\\(?:"
+				 (regexp-quote mail-header-separator)
+				 "\\)?\n")
+			 nil 'move)
+      (delete-region (point) (point-max))
+    (insert (if (bolp) "\n" "\n\n"))))
+
+(defun w3m-mail-position-point (bob)
+  "Go to empty or bogus header, otherwise the beginning of the body BOB."
+  (goto-char (point-min))
+  (when (re-search-forward "^\\(Subject: \\)(no subject)\\|\
+^\\([0-9A-Za-z-]+: ?\\)[\t ]*\n\\(?:[\t ]+\n\\)*[^\t ]"
+			   bob 'move)
+    (goto-char (or (match-end 1) (match-end 2)))))
+
+(defun w3m-mail-compose-with-mml (source url charset content-type
+					 to subject other-headers)
+  "Compose a mail using MML."
+  (let ((buffer (generate-new-buffer " *w3m-mail*")))
+    (with-current-buffer buffer
+      (w3m-static-unless (featurep 'xemacs)
+	(set-buffer-multibyte (not (string-match "\\`image/" content-type))))
+      (insert source))
+    (if (eq mail-user-agent 'gnus-user-agent)
+	(progn
+	  (require 'gnus)
+	  (let (gnus-newsgroup-name)
+	    (compose-mail to subject other-headers)))
+      (compose-mail to subject other-headers))
+    (message-add-action `(kill-buffer ,buffer) 'exit 'kill 'postpone 'send)
+    (w3m-mail-goto-body-and-clear-body)
+    (w3m-mail-position-point
+     (prog1
+	 (point)
+       (mml-insert-empty-tag
+	'part
+	'type content-type
+	'buffer (buffer-name buffer)
+	;; Use the base64 encoding if the body contains non-ASCII text
+	;; or very long lines which might be broken by MTAs.
+	'encoding "base64"
+	'charset (when charset (symbol-name charset))
+	'disposition "inline"
+	'description url)))))
+
+;; This function is implemented in mew-w3m.el.
+;; (defun w3m-mail-compose-with-mew (source url charset content-type
+;;                                         to subject other-headers)
+;;   "Compose a mail using Mew.")
+
+(defun w3m-mail-compose-with-vm (source url charset content-type
+					to subject other-headers)
+  "Compose a mail using VM."
+  (let* ((coding (and charset (w3m-charset-to-coding-system charset)))
+	 (multibytep (and (not coding)
+			  (or charset
+			      (and (not (string-match "\\`image/"
+						      content-type))
+				   (w3m-static-if (featurep 'xemacs)
+				       (string-match "[^\000-\177]" source)
+				     (multibyte-string-p source))))))
+	 (buffer (generate-new-buffer " *w3m-mail*")))
+    (with-current-buffer buffer
+      (w3m-static-unless (featurep 'xemacs)
+	(set-buffer-multibyte (and (not coding) multibytep)))
+      (cond (coding
+	     (insert (encode-coding-string source coding)))
+	    (multibytep
+	     (insert source)
+	     (when (and (setq charset (car (mm-find-mime-charset-region
+					    (point-min) (point-max))))
+			(setq coding (w3m-charset-to-coding-system charset)))
+	       (w3m-static-if (featurep 'xemacs)
+		   (encode-coding-region (point-min) (point-max) coding)
+		 (insert (prog1
+			     (encode-coding-string (buffer-string) coding)
+			   (erase-buffer)
+			   (set-buffer-multibyte nil))))))
+	    (t
+	     (insert source))))
+    (require 'vm-startup)
+    (compose-mail to subject other-headers)
+    (add-to-list 'mail-send-actions `(kill-buffer ,buffer))
+    (w3m-add-local-hook 'kill-buffer-hook `(lambda nil (kill-buffer ,buffer)))
+    (w3m-mail-goto-body-and-clear-body)
+    (w3m-mail-position-point
+     (prog1
+	 (point)
+       (vm-mime-attach-buffer buffer content-type
+			      (when charset (symbol-name charset))
+			      url)))))
+
+(defun w3m-mail-compose-with-semi (source url charset content-type
+					  to subject other-headers)
+  "Compose a mail using SEMI."
+  (require 'mime-edit)
+  (let* ((content-type (and content-type
+			    (split-string (downcase content-type) "/")))
+	 (basename (file-name-nondirectory (w3m-url-strip-query url)))
+	 (filename (cond
+		    ((and (string-match "^[\t ]*$" basename)
+			  (equal content-type '("text" "html")))
+		     "index.html")
+		    ((string-match "^[\t ]*$" basename)
+		     "dummy")
+		    (t
+		     basename)))
+	 (type (or (nth 0 content-type) "text"))
+	 (subtype (or (nth 1 content-type) "html"))
+	 parameters
+	 (encoding "base64")
+	 (disposition-type "inline")
+	 disposition-params
+	 (guess (mime-find-file-type filename))
+	 (textp (string= type "text")))
+    (when (and guess
+	       (string= (nth 0 guess) type)
+	       (string= (nth 1 guess) subtype))
+      (setq parameters (nth 2 guess)
+	    encoding (or (nth 3 guess) encoding)
+	    disposition-type (or (nth 4 guess) disposition-type)
+	    disposition-params (nth 5 guess)))
+    (compose-mail to subject other-headers)
+    (w3m-mail-goto-body-and-clear-body)
+    (let ((parameters-to-string
+	   (lambda (parameters)
+	     (when parameters
+	       (mapconcat
+		(lambda (parameter)
+		  (concat "; " (car parameter)
+			  "=" (if (eq (cdr parameter) 'file)
+				  (std11-wrap-as-quoted-string filename)
+				(cdr parameter))))
+		parameters
+		""))))
+	  (body (point))
+	  (edit-buffer (current-buffer))
+	  work-buffer)
+      (with-temp-buffer
+	(if textp
+	    (progn
+	      (insert source)
+	      (unless charset
+		(setq charset (detect-mime-charset-region (point-min)
+							  (point-max))))
+	      (when charset
+		(setq parameters (cons (cons "charset" (symbol-name charset))
+				       parameters))
+		(encode-mime-charset-region (point-min) (point-max) charset)))
+	  (set-buffer-multibyte nil)
+	  (insert source))
+	(mime-encode-region (point-min) (point-max) encoding)
+	(setq work-buffer (current-buffer))
+	(set-buffer edit-buffer)
+	(mime-edit-insert-tag
+	 type subtype
+	 (concat (funcall parameters-to-string parameters)
+		 "\nContent-Disposition: " disposition-type
+		 (funcall parameters-to-string disposition-params)
+		 "\nContent-Description: " url))
+	(mime-edit-define-encoding encoding)
+	(save-restriction
+	  (narrow-to-region (point) (point))
+	  (insert-buffer-substring work-buffer)
+	  (unless (bolp)
+	    (insert "\n"))
+	  (when (or (string= disposition-type "attachment")
+		    (not (member encoding '("7bit" "8bit" "binary"))))
+	    (add-text-properties
+	     (point-min) (point-max) '(invisible t mime-edit-invisible t)))))
+      (w3m-mail-position-point body))))
+
+(defun w3m-mail (&optional headers)
+  "Send a web page as a mail.
+By default the subject is generated according to `w3m-mail-subject'.
+The optional HEADERS is a list in which each element is a cons of the
+symbol of a header name and a string.  Here is an example to use this
+function:
+
+\(w3m-mail '((To . \"foo@bar\") (Subject . \"The emacs-w3m home page\")))"
+  (interactive (unless (eq major-mode 'w3m-mode)
+		 (error "`%s' must be invoked from an emacs-w3m buffer"
+			this-command)))
+  (let ((composer (cdr (assq mail-user-agent
+			     w3m-mail-user-agent-compose-function-alist)))
+	;; Don't move the history position.
+	(w3m-history-reuse-history-elements t)
+	source base url charset content-type to subject)
+    (cond
+     ((not composer)
+      (error "`%s' is not supported (yet) by `w3m-mail'" mail-user-agent))
+     ((not w3m-current-url)
+      (error "The source for this page is not available"))
+     ((string-match "\\`about://source/" w3m-current-url)
+      (setq source (buffer-string)
+	    base (w3m-mail-compute-base-url))
+      (w3m-view-source)
+      (setq url w3m-current-url
+	    charset (w3m-coding-system-to-charset w3m-current-coding-system)
+	    content-type (or (w3m-arrived-content-type w3m-current-url)
+			     (w3m-content-type w3m-current-url)))
+      (w3m-view-source))
+     ((string-match "\\`about://header/" w3m-current-url)
+      (w3m-view-source)
+      (setq source (buffer-string)
+	    base (w3m-mail-compute-base-url))
+      (w3m-view-source)
+      (setq url w3m-current-url
+	    charset (w3m-coding-system-to-charset w3m-current-coding-system)
+	    content-type (or (w3m-arrived-content-type w3m-current-url)
+			     (w3m-content-type w3m-current-url)))
+      (w3m-view-header))
+     (t
+      (setq url w3m-current-url
+	    charset (w3m-coding-system-to-charset w3m-current-coding-system)
+	    content-type (or (w3m-arrived-content-type w3m-current-url)
+			     (w3m-content-type w3m-current-url)))
+      (w3m-view-source)
+      (setq source (buffer-string)
+	    base (w3m-mail-compute-base-url))
+      (w3m-view-source)))
+    (when (and base (string= "text/html" content-type))
+      (setq source (w3m-mail-embed-base-url source base)))
+    (setq to (or (assq 'To headers) (assq 'to headers))
+	  subject (or (assq 'Subject headers) (assq 'subject headers)))
+    (when (or to subject)
+      (setq headers (delq to (delq subject (copy-sequence headers)))
+	    to (cdr to)
+	    subject (cdr subject)))
+    (unless subject
+      (setq subject (let ((w3m-current-url url)) (w3m-mail-make-subject))))
+    (funcall composer source url charset content-type to subject headers)))
+
+;;; w3m-mail.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-namazu.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,278 @@
+;;; w3m-namazu.el --- The add-on program to search files with Namazu.
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2009
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia, namazu
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-namazu.el is the add-on program of emacs-w3m to search files
+;; with Namazu.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; History:
+
+;; Original program was posted by
+;; Takayuki Arakawa <[e-mail]> in [emacs-w3m:01340] at
+;; Jul 31, 2001.
+
+;; Many codes are imported from namazu.el written by
+;; Yukihiro Matsumoto <[e-mail]> et al.
+
+;; All stuffs are rewritten by
+;; TSUCHIYA Masatoshi <[e-mail]> at Aug 2, 2001.
+
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m)
+
+(eval-and-compile
+  (autoload 'w3m-search-read-query "w3m-search"))
+
+(defgroup w3m-namazu nil
+  "w3m-namazu front-end for Emacs."
+  :group 'w3m
+  :prefix "w3m-namazu-")
+
+(defcustom w3m-namazu-command "namazu"
+  "*Name of the executable file of Namazu."
+  :group 'w3m-namazu
+  :type '(string :size 0))
+
+(defcustom w3m-namazu-arguments
+  '("-h"			; print in HTML format.
+    "-H"			; print further result links.
+    "-n" w3m-namazu-page-max	; set number of documents shown to NUM.
+    "-w" whence)		; set first number of documents shown to NUM.
+  "*Arguments of Namazu."
+  :group 'w3m-namazu
+  :type '(repeat
+	  (restricted-sexp :format "Argument: %v\n"
+			   :match-alternatives
+			   (stringp 'w3m-namazu-page-max 'whence)
+			   :size 0)))
+
+(defcustom w3m-namazu-page-max
+  (if (boundp 'namazu-search-num)
+      (symbol-value 'namazu-search-num)
+    30)
+  "*A maximum number of documents which are retrieved by one-time search."
+  :group 'w3m-namazu
+  :type '(integer :size 0))
+
+(defconst w3m-namazu-default-index-customize-spec
+  '`(choice
+     (const :tag "No default index" nil)
+     ,@(mapcar (lambda (x) (list 'const (car x)))
+	       w3m-namazu-index-alist)
+     (directory :format "Index directory: %v\n" :size 0)))
+
+(defcustom w3m-namazu-index-alist
+  (when (boundp 'namazu-dir-alist)
+    (mapcar (lambda (pair)
+	      (cons (car pair)
+		    (split-string (cdr pair))))
+	    (symbol-value 'namazu-dir-alist)))
+  "*Alist of alias and index directories."
+  :group 'w3m-namazu
+  :type '(repeat
+	  (group
+	   :indent 0 :inline t
+	   (cons :format "%v"
+		 (string :format "Alias: %v\n" :size 0)
+		 (repeat
+		  :format "%v%i\n" :indent 8
+		  (directory :format "Index directory: %v\n" :size 0)))))
+  :set (lambda (symbol value)
+	 (custom-set-default symbol value)
+	 (put 'w3m-namazu-default-index 'custom-type
+	      (eval w3m-namazu-default-index-customize-spec))))
+
+(defcustom w3m-namazu-default-index
+  (unless (and (boundp 'namazu-always-query-index-directory)
+	       (symbol-value 'namazu-always-query-index-directory))
+    (when (boundp 'namazu-default-dir)
+      (symbol-value 'namazu-default-dir)))
+  "*Alias or directory of the default index.
+If this variable equals nil, it is required to input an index path
+whenever `w3m-namazu' is called interactively without prefix
+argument."
+  :group 'w3m-namazu
+  :type (eval w3m-namazu-default-index-customize-spec))
+
+(defcustom w3m-namazu-output-coding-system
+  (if (boundp 'namazu-cs-write)
+      (symbol-value 'namazu-cs-write)
+    (if (memq system-type '(OS/2 emx windows-nt))
+	'shift_jis-dos
+      'euc-japan-unix))
+  "*Coding system for namazu process."
+  :group 'w3m-namazu
+  :type '(coding-system :size 0))
+
+(defcustom w3m-namazu-input-coding-system
+  (if (boundp 'namazu-cs-read)
+      (symbol-value 'namazu-cs-read)
+    'undecided)
+  "*Coding system for namazu process."
+  :group 'w3m-namazu
+  :type '(coding-system :size 0))
+
+
+(defun w3m-namazu-call-process (index query whence)
+  (setq index (if (assoc index w3m-namazu-index-alist)
+		  (mapcar 'expand-file-name
+			  (cdr (assoc index w3m-namazu-index-alist)))
+		(list (expand-file-name index))))
+  (let ((file-name-coding-system w3m-file-name-coding-system)
+	(coding-system-for-read w3m-namazu-input-coding-system)
+	(coding-system-for-write w3m-namazu-output-coding-system)
+	(default-process-coding-system
+	  (cons w3m-namazu-input-coding-system
+		w3m-namazu-output-coding-system)))
+    (apply 'call-process w3m-namazu-command nil t nil
+	   (let ((w3m-namazu-page-max
+		  (number-to-string w3m-namazu-page-max)))
+	     (nconc (mapcar 'eval w3m-namazu-arguments)
+		    (list query)
+		    index)))))
+
+;;;###autoload
+(defun w3m-about-namazu (url &optional no-decode no-cache &rest args)
+  (let (index query (whence "0"))
+    (when (string-match "\\`about://namazu/\\?" url)
+      (dolist (s (split-string (substring url (match-end 0)) "&"))
+	(when (string-match "\\`\\(?:index\\|\\(query\\)\\|\\(whence\\)\\)=" s)
+	  (set (cond
+		((match-beginning 1) 'query)
+		((match-beginning 2) 'whence)
+		(t 'index))
+	       (substring s (match-end 0)))))
+      (when (zerop (w3m-namazu-call-process (w3m-url-decode-string index)
+					    (w3m-url-decode-string query)
+					    whence))
+	(let ((case-fold-search t))
+	  (goto-char (point-min))
+	  (let ((max (if (re-search-forward
+			  "<!-- HIT -->\\([0-9]+\\)<!-- HIT -->" nil t)
+			 (string-to-number (match-string 1))
+		       0))
+		(cur (string-to-number whence)))
+	    (goto-char (point-min))
+	    (when (search-forward "<head>" nil t)
+	      (when (> cur 0)
+		(insert
+		 (format "
+<link rel=\"prev\" href=\"about://namazu/?index=%s&query=%s&whence=%d\">"
+			 index
+			 query
+			 (max (- cur w3m-namazu-page-max) 0))))
+	      (when (> max (+ cur w3m-namazu-page-max))
+		(insert
+		 (format "
+<link rel=\"next\" href=\"about://namazu/?index=%s&query=%s&whence=%d\">"
+			 index
+			 query
+			 (+ cur w3m-namazu-page-max))))))
+	  (goto-char (point-min))
+	  (while (search-forward "<a href=\"/" nil t)
+	    (forward-char -1)
+	    (insert "file://"))
+	  (goto-char (point-min))
+	  (while (re-search-forward "<a href=\"\\(\\?\\)&\\(?:amp;\\)?whence="
+				    nil t)
+	    (goto-char (match-beginning 1))
+	    (delete-char 1)
+	    (insert (format "about://namazu/?index=%s&query=%s" index query))))
+	"text/html"))))
+
+(defun w3m-namazu-complete-index (index predicate flag)
+  "Function to complete index name"
+  (if (eq flag 'lambda)
+      (and (or (and (assoc index w3m-namazu-index-alist) t)
+	       (file-directory-p index))
+	   (or (not predicate)
+	       (funcall predicate index)))
+    (let ((alist
+	   (mapcar
+	    'list
+	    (nconc
+	     (all-completions index w3m-namazu-index-alist)
+	     (let ((partial (file-name-nondirectory index))
+		   (dir (file-name-as-directory
+			 (or (file-name-directory index)
+			     default-directory))))
+	       (delq nil
+		     (mapcar
+		      (lambda (file)
+			(when (file-directory-p (expand-file-name file dir))
+			  (concat dir file)))
+		      (file-name-all-completions partial dir))))))))
+      (cond
+       ((not flag) (try-completion index alist predicate))
+       ((eq flag t) (all-completions index alist predicate))))))
+
+(defvar w3m-namazu-index-history nil)
+(defvar w3m-namazu-query-history nil)
+
+;;;###autoload
+(defun w3m-namazu (index query &optional reload)
+  "Search indexed files with Namazu."
+  (interactive
+   (list
+    (if (if w3m-namazu-default-index
+	    current-prefix-arg
+	  (not (and current-prefix-arg
+		    w3m-namazu-index-history)))
+	(let* ((default (or (car w3m-namazu-index-history)
+			    w3m-namazu-default-index))
+	       (s (completing-read
+		   (if default
+		       (format "Namazu index (default %s): " default)
+		     "Namazu index: ")
+		   'w3m-namazu-complete-index nil t nil
+		   'w3m-namazu-index-history)))
+	  (if (string= s "") default s))
+      (or w3m-namazu-default-index
+	  (car w3m-namazu-index-history)))
+    (w3m-search-read-query "Namazu query: " "Namazu query (default %s): "
+			   'w3m-namazu-query-history)
+    current-prefix-arg))
+  (unless (stringp index)
+    (error "%s" "Index is required"))
+  (unless (stringp query)
+    (error "%s" "Query is required"))
+  (w3m-goto-url (format "about://namazu/?index=%s&query=%s&whence=0"
+			(w3m-url-encode-string index)
+			(w3m-url-encode-string query))
+		reload))
+
+(provide 'w3m-namazu)
+
+;;; w3m-namazu.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-perldoc.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,124 @@
+;;; w3m-perldoc.el --- The add-on program to view Perl documents.
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, perldoc
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-perldoc.el is the add-on program of emacs-w3m to view Perl
+;; documents.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+;;; Code:
+(require 'w3m)
+
+(defgroup w3m-perldoc nil
+  "Perldoc front-end for emacs-w3m."
+  :group 'w3m
+  :prefix "w3m-perldoc-")
+
+(defcustom w3m-perldoc-command "perldoc"
+  "*Name of the executable file of perldoc."
+  :group 'w3m-perldoc
+  :type '(string :size 0))
+
+(defcustom w3m-perldoc-pod2html-command "pod2html"
+  "*Name of the executable file of pod2html."
+  :group 'w3m-perldoc
+  :type '(string :size 0))
+
+(defcustom w3m-perldoc-pod2html-arguments
+  '("--noindex")
+  "*Arguments of pod2html."
+  :group 'w3m-perldoc
+  :type '(repeat (string :format "Argument: %v\n" :size 0))
+  :get (lambda (symbol)
+	 (delq nil (delete "" (mapcar (lambda (x) (if (stringp x) x))
+				      (default-value symbol)))))
+  :set (lambda (symbol value)
+	 (custom-set-default
+	  symbol
+	  (delq nil (delete "" (mapcar (lambda (x) (if (stringp x) x))
+				       value))))))
+
+(defcustom w3m-perldoc-input-coding-system
+  (if (string= "Japanese" w3m-language)
+      'euc-japan
+    (if (w3m-find-coding-system 'utf-8)
+	'utf-8
+      'iso-latin-1))
+  "*Coding system used when writing to `w3m-perldoc-command'."
+  :group 'w3m-perldoc
+  :type '(coding-system :size 0))
+
+(defcustom w3m-perldoc-output-coding-system
+  'undecided
+  "*Coding system used when reading from `w3m-perldoc-command'."
+  :group 'w3m-perldoc
+  :type '(coding-system :size 0))
+
+;;;###autoload
+(defun w3m-about-perldoc (url &optional no-decode no-cache &rest args)
+  (when (string-match "\\`about://perldoc/" url)
+    (let ((docname (if (= (length url) (match-end 0))
+		       "perl"
+		     (w3m-url-decode-string (substring url (match-end 0)))))
+	  (default-directory w3m-profile-directory)
+	  (process-environment (copy-sequence process-environment)))
+      ;; To specify the place in which pod2html generates its cache files.
+      (setenv "HOME" (expand-file-name w3m-profile-directory))
+      (and (let ((coding-system-for-read w3m-perldoc-output-coding-system))
+	     (zerop (call-process w3m-perldoc-command
+				  nil t nil "-u" docname)))
+	   (let ((coding-system-for-write w3m-perldoc-input-coding-system)
+		 (coding-system-for-read w3m-perldoc-input-coding-system))
+	     (zerop (apply (function call-process-region)
+			   (point-min) (point-max)
+			   w3m-perldoc-pod2html-command
+			   t '(t nil) nil
+			   (append w3m-perldoc-pod2html-arguments
+				   '("--htmlroot=about://perldoc")))))
+	   (let ((case-fold-search t))
+	     (goto-char (point-min))
+	     (while (re-search-forward
+		     "<a href=\"about://perldoc/\\([^\"]*\\)\\(\\.html\\)\">" nil t)
+	       (delete-region (match-beginning 2) (match-end 2))
+	       (save-restriction
+		 (narrow-to-region (match-beginning 1) (match-end 1))
+		 (while (search-backward "/" nil t)
+		   (delete-char 1)
+		   (insert "::"))
+		 (goto-char (point-max))))
+	     "text/html")))))
+
+;;;###autoload
+(defun w3m-perldoc (docname)
+  "View Perl documents."
+  (interactive "sDocument: ")
+  (w3m-goto-url (concat "about://perldoc/" (w3m-url-encode-string docname))))
+
+(provide 'w3m-perldoc)
+
+;;; w3m-perldoc.el ends here.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-proc.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,801 @@
+;;; w3m-proc.el --- Functions and macros to control sub-processes
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>,
+;;          Shun-ichi GOTO     <[e-mail]>,
+;;          Satoru Takabayashi <[e-mail]>,
+;;          Hideyuki SHIRAI    <[e-mail]>,
+;;          Keisuke Nishida    <[e-mail]>,
+;;          Yuuichi Teranishi  <[e-mail]>,
+;;          Akihiro Arisawa    <[e-mail]>,
+;;          Katsumi Yamaoka    <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This module is a part of emacs-w3m which provides functions and
+;; macros to control sub-processes.  Visit
+;; <URL:http://emacs-w3m.namazu.org/> for more details of emacs-w3m.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m-util)
+
+(eval-when-compile
+  ;; Variable(s) which are used in the following inline functions.
+  ;; They should be defined in the other module at run-time.
+  (defvar w3m-current-url)
+  (defvar w3m-current-buffer)
+  (defvar w3m-current-process)
+  (defvar w3m-profile-directory)
+  (defvar w3m-terminal-coding-system)
+  (defvar w3m-command)
+  (defvar w3m-command-arguments)
+  (defvar w3m-command-environment)
+  (defvar w3m-async-exec)
+  (defvar w3m-process-connection-type)
+  (defvar w3m-process-modeline-format)
+  (defvar w3m-work-buffer-list)
+  (autoload 'w3m-idle-images-show-unqueue "w3m"))
+
+;; Silence the Emacs' byte-compiler that says ``might not be defined''.
+(eval-when-compile
+  (defun w3m-decode-coding-string-with-priority (str coding)
+    ()))
+
+(defvar w3m-process-inhibit-quit t
+  "`w3m-process-sentinel' binds `inhibit-quit' according to this variable.")
+(defvar w3m-process-timeout 300
+  "Number of seconds idle time waiting for processes to terminate.")
+(defvar w3m-process-kill-surely (featurep 'meadow)
+  "If non-nil, kill the process surely.")
+
+(defconst w3m-process-max 5 "The maximum limit of the working processes.")
+(defvar w3m-process-queue nil "Queue of processes.")
+
+(defvar w3m-process-exit-status nil "The last exit status of a process.")
+(defvar w3m-process-authinfo-alist nil)
+(defvar w3m-process-accept-alist nil)
+
+(defvar w3m-process-user nil)
+(defvar w3m-process-passwd nil)
+(defvar w3m-process-realm nil)
+(defvar w3m-process-object nil)
+(make-variable-buffer-local 'w3m-process-user)
+(make-variable-buffer-local 'w3m-process-passwd)
+(make-variable-buffer-local 'w3m-process-realm)
+(make-variable-buffer-local 'w3m-process-object)
+
+(defvar w3m-process-modeline-string nil
+  "Modeline string to show status of retrieving process.")
+(make-variable-buffer-local 'w3m-process-modeline-string)
+
+(defvar w3m-process-proxy-user nil "User name of the proxy server.")
+(defvar w3m-process-proxy-passwd nil "Password of the proxy server.")
+(defvar w3m-process-ssl-passphrase nil
+  "Passphrase for the client certificate.")
+
+(defmacro w3m-process-with-coding-system (&rest body)
+  "Set coding systems for `w3m-command', and evaluate BODY."
+  `(let ((coding-system-for-read 'binary)
+	 (coding-system-for-write w3m-terminal-coding-system)
+	 (default-process-coding-system
+	   (cons 'binary w3m-terminal-coding-system))
+	 (process-connection-type w3m-process-connection-type))
+     ,@body))
+(put 'w3m-process-with-coding-system 'lisp-indent-function 0)
+(put 'w3m-process-with-coding-system 'edebug-form-spec '(body))
+
+(defmacro w3m-process-with-environment (alist &rest body)
+  "Set the environment variables according to ALIST, and evaluate BODY."
+  `(let ((process-environment (copy-sequence process-environment))
+	 (temporary-file-directory
+	  (if (file-directory-p w3m-profile-directory)
+	      (file-name-as-directory w3m-profile-directory)
+	    ,(if (featurep 'xemacs)
+		 ;; Though `temporary-file-directory' exists even in XEmacs,
+		 ;; that's only an imitation provided by APEL.
+		 '(temp-directory)
+	       'temporary-file-directory)))
+	 (default-directory
+	   (cond ((file-directory-p w3m-profile-directory)
+		  (file-name-as-directory w3m-profile-directory))
+		 ((file-directory-p (expand-file-name "~/"))
+		  (expand-file-name "~/"))
+		 (t temporary-file-directory))))
+     ;; XEmacs obtains tmp-dir from the `temp-directory' function of which
+     ;; return value can only be modified by the following env vars.
+     ,@(if (featurep 'xemacs)
+	   '((setenv "TEMP" temporary-file-directory) ;; Windoze
+	     (setenv "TMPDIR" temporary-file-directory))) ;; Un|x
+     (dolist (pair ,alist)
+       (setenv (car pair) (cdr pair)))
+     ,@body))
+(put 'w3m-process-with-environment 'lisp-indent-function 1)
+(put 'w3m-process-with-environment 'edebug-form-spec '(form body))
+
+(defun w3m-process-p (object)
+  "Return t if OBJECT is a `w3m-process' object."
+  (and (consp object)
+       (vectorp (cdr object))
+       (eq 'w3m-process-object (aref (cdr object) 0))))
+
+(put 'w3m-process-new 'edebug-form-spec '(form form form &optional form form))
+(defmacro w3m-process-new (command arguments buffer &optional process handlers)
+  "Return a new `w3m-process' object."
+  `(cons (cons ,command ,arguments)
+	 (vector 'w3m-process-object
+		 ,buffer
+		 ,process
+		 ,handlers)))
+
+(defmacro w3m-process-command (object)
+  `(car (car ,object)))
+(defmacro w3m-process-arguments (object)
+  `(cdr (car ,object)))
+(defmacro w3m-process-buffer (object)
+  `(aref (cdr ,object) 1))
+(defmacro w3m-process-process (object)
+  `(aref (cdr ,object) 2))
+(defmacro w3m-process-handlers (object)
+  `(aref (cdr ,object) 3))
+
+(put 'w3m-process-handler-new 'edebug-form-spec '(form form form))
+(defmacro w3m-process-handler-new (buffer parent-buffer functions)
+  `(vector ,buffer ,parent-buffer ,functions nil))
+(defmacro w3m-process-handler-buffer (handler)
+  `(aref ,handler 0))
+(defmacro w3m-process-handler-parent-buffer (handler)
+  `(aref ,handler 1))
+(defmacro w3m-process-handler-functions (handler)
+  `(aref ,handler 2))
+(defmacro w3m-process-handler-result (handler)
+  `(aref ,handler 3))
+
+(defun w3m-process-push (handler command arguments)
+  "Generate a new `w3m-process' object which is provided by HANDLER,
+ARGUMENTS and this buffer, regist it to `w3m-process-queue', and
+return it."
+  (let ((x (assoc (cons command arguments) w3m-process-queue)))
+    (unless x
+      (setq x (w3m-process-new command arguments (current-buffer)))
+      (push x w3m-process-queue))
+    (push (w3m-process-handler-new (current-buffer) w3m-current-buffer handler)
+	  (w3m-process-handlers x))
+    (with-current-buffer (w3m-process-buffer x)
+      (setq w3m-process-object x))))
+
+(defun w3m-process-kill-process (process)
+  "Kill process PROCESS safely."
+  (when (processp process)
+    (set-process-filter process 'ignore)
+    (set-process-sentinel process 'ignore)
+    (when (memq (process-status process) '(run stop))
+      (kill-process process)
+      (when w3m-process-kill-surely
+	(while (memq (process-status process) '(run stop))
+	  (sit-for 0.1))))))
+
+(defun w3m-process-start-process (object &optional no-sentinel)
+  "Start a process specified by the OBJECT, return always nil.
+When NO-SENTINEL is not equal to nil, all status changes of the
+generated asynchronous process is ignored.  Otherwise,
+`w3m-process-sentinel' is given to the process as the sentinel."
+  (if (w3m-process-process object)
+      (when no-sentinel
+	(set-process-sentinel (w3m-process-process object) 'ignore))
+    (with-current-buffer (w3m-process-buffer object)
+      (w3m-process-with-coding-system
+	(w3m-process-with-environment w3m-command-environment
+	  (let* ((command (w3m-process-command object))
+		 (proc (apply 'start-process command
+			      (current-buffer) command
+			      (w3m-process-arguments object)))
+		 (authinfo (when w3m-current-url
+			     (w3m-url-authinfo w3m-current-url)))
+		 (set-process-query-on-exit-flag
+		  (if (fboundp 'set-process-query-on-exit-flag)
+		      'set-process-query-on-exit-flag
+		    'process-kill-without-query)))
+	    (setq w3m-process-user (car authinfo)
+		  w3m-process-passwd (cdr authinfo)
+		  w3m-process-realm nil)
+	    (setf (w3m-process-process object) proc)
+	    (set-process-filter proc 'w3m-process-filter)
+	    (set-process-sentinel proc (if no-sentinel
+					   'ignore
+					 'w3m-process-sentinel))
+	    (funcall set-process-query-on-exit-flag proc nil))))))
+  nil)	;; The return value of `w3m-process-start-process'.
+
+(defun w3m-process-kill-stray-processes ()
+  "Kill stray processes."
+  (dolist (obj w3m-process-queue)
+    (unless (buffer-name (w3m-process-buffer obj))
+      (setq w3m-process-queue (delq obj w3m-process-queue))
+      (when (w3m-process-process obj)
+	(w3m-process-kill-process (w3m-process-process obj))))))
+
+(defun w3m-process-start-queued-processes ()
+  "Start a process which is registerd in `w3m-process-queue' if the
+number of current working processes is less than `w3m-process-max'."
+  (w3m-process-kill-stray-processes)
+  (let ((num 0))
+    (catch 'last
+      (dolist (obj (reverse w3m-process-queue))
+	(when (buffer-name (w3m-process-buffer obj))
+	  (if (> (incf num) w3m-process-max)
+	      (throw 'last nil)
+	    (w3m-process-start-process obj)))))))
+
+(defun w3m-process-stop (buffer)
+  "Remove handlers related to the buffer BUFFER, and stop processes
+which have no handler."
+  (interactive (list (current-buffer)))
+  (w3m-cancel-refresh-timer buffer)
+  (setq w3m-process-queue
+	(delq nil
+	      (mapcar
+	       (lambda (obj)
+		 (let ((handlers
+			;; List up handlers related to other buffer
+			;; than the buffer BUFFER.
+			(delq nil
+			      (mapcar
+			       (lambda (handler)
+				 (unless (eq buffer
+					     (w3m-process-handler-parent-buffer
+					      handler))
+				   handler))
+			       (w3m-process-handlers obj)))))
+		   (if handlers
+		       (w3m-process-new
+			(w3m-process-command obj)
+			(w3m-process-arguments obj)
+			(w3m-process-buffer obj)
+			(w3m-process-process obj)
+			(if (memq (w3m-process-buffer obj)
+				  (mapcar (lambda (x)
+					    (w3m-process-handler-buffer x))
+					  handlers))
+			    handlers
+			  (cons
+			   ;; Dummy handler to remove buffer.
+			   (w3m-process-handler-new
+			    (w3m-process-buffer obj)
+			    (w3m-process-handler-parent-buffer (car handlers))
+			    (lambda (x) (w3m-kill-buffer (current-buffer))))
+			   handlers)))
+		     (when (w3m-process-process obj)
+		       (w3m-process-kill-process (w3m-process-process obj)))
+		     (dolist (handler (w3m-process-handlers obj))
+		       (w3m-kill-buffer (w3m-process-handler-buffer handler)))
+		     nil)))
+	       w3m-process-queue)))
+  (when (buffer-name buffer)
+    (with-current-buffer buffer
+      (setq w3m-current-process nil)))
+  (w3m-process-start-queued-processes)
+  (w3m-force-window-update-later buffer))
+
+(defun w3m-process-shutdown ()
+  (let ((list w3m-process-queue))
+    (setq w3m-process-queue nil
+	  w3m-process-authinfo-alist nil
+	  w3m-process-accept-alist nil)
+    (dolist (obj list)
+      (when (buffer-name (w3m-process-buffer obj))
+	(when (w3m-process-process obj)
+	  (w3m-process-kill-process (w3m-process-process obj))))
+      (w3m-kill-buffer (w3m-process-buffer obj)))))
+
+(defmacro w3m-process-with-null-handler (&rest body)
+  "Generate the null handler, and evaluate BODY.
+When BODY is evaluated, the local variable `handler' keeps the null
+handler."
+  (let ((var (gensym "--tempvar--")))
+    `(let ((,var (let (handler) ,@body)))
+       (when (w3m-process-p ,var)
+	 (w3m-process-start-process ,var))
+       ,var)))
+(put 'w3m-process-with-null-handler 'lisp-indent-function 0)
+(put 'w3m-process-with-null-handler 'edebug-form-spec '(body))
+
+;; Error symbol:
+(put 'w3m-process-timeout 'error-conditions '(error w3m-process-timeout))
+(put 'w3m-process-timeout 'error-message "Time out")
+
+(defun w3m-process-error-handler (error-data process)
+  (setq w3m-process-queue (delq process w3m-process-queue))
+  (w3m-process-kill-process (w3m-process-process process))
+  (signal (car error-data) (cdr error-data)))
+
+(defvar w3m-process-waited nil
+  "Non-nil means that `w3m-process-with-wait-handler' is being evaluated.")
+
+(defun w3m-process-wait-process (process seconds)
+  "Wait for SECONDS seconds or until PROCESS will exit.
+Returns the exit status of the PROCESS when it exit normally,
+otherwise returns nil."
+  (catch 'timeout
+    (let ((start (current-time)))
+      (while (or (and (prog2
+			  (discard-input)
+			  (not (save-current-buffer (sit-for 0.1)))
+			(discard-input))
+		      ;; Some input is detected but it may be a key
+		      ;; press event which should be ignored when the
+		      ;; process is not running.
+		      (memq (process-status process) '(open run)))
+		 (memq (process-status process) '(open run stop)))
+	(and seconds
+	     (< seconds (w3m-time-lapse-seconds start (current-time)))
+	     (throw 'timeout nil)))
+      (process-exit-status process))))
+
+(defmacro w3m-process-with-wait-handler (&rest body)
+  "Generate the waiting handler, and evaluate BODY.
+When BODY is evaluated, the local variable `handler' keeps the handler
+which will wait for the end of the evaluation."
+  (let ((result (gensym "--result--"))
+	(wait-function (gensym "--wait-function--")))
+    `(let ((w3m-process-waited t)
+	   (,result)
+	   (,wait-function (make-symbol "wait-function")))
+       (fset ,wait-function 'identity)
+       (setq ,result (let ((handler (list ,wait-function))) ,@body))
+       (while (w3m-process-p ,result)
+	 (condition-case error
+	     (let (w3m-process-inhibit-quit inhibit-quit)
+	       ;; No sentinel function is registered and the process
+	       ;; sentinel function is called from this macro, in
+	       ;; order to avoid the dead-locking which occurs when
+	       ;; this macro is called in the environment that
+	       ;; `w3m-process-sentinel' is evaluated.
+	       (w3m-process-start-process ,result t)
+	       (unless (w3m-process-wait-process (w3m-process-process ,result)
+						 w3m-process-timeout)
+		 (w3m-process-error-handler (cons 'w3m-process-timeout nil)
+					    ,result)))
+	   (quit (w3m-process-error-handler error ,result)))
+	 (w3m-process-sentinel (w3m-process-process ,result) "finished\n" t)
+	 (setq ,result
+	       (catch 'result
+		 (dolist (handler (w3m-process-handlers ,result))
+		   (when (memq ,wait-function
+			       (w3m-process-handler-functions handler))
+		     (throw 'result (w3m-process-handler-result handler))))
+		 (w3m-process-error-handler (cons 'error
+						  "Can't find wait handler")
+					    ,result))))
+       ,result)))
+(put 'w3m-process-with-wait-handler 'lisp-indent-function 0)
+(put 'w3m-process-with-wait-handler 'edebug-form-spec '(body))
+
+;;; Explanation of w3m-process-do in Japanese:
+;;
+;; w3m-process-do $B$O!"HsF14|=hM}$r4JC1$K=q$/$?$a$N%^%/%m$G$"$k!#Nc$($P!"(B
+;;
+;;    (w3m-process-do
+;;        (var (async-form...))
+;;      post-body...)
+;;
+;; $B$H$$$&$h$&$K=q$/$H!"0J2<$N=g=x$G=hM}$,9T$o$l$k!#(B
+;;
+;;   (1) async-form $B$rI>2A(B
+;;       --> async-form $BFb$GHsF14|%W%m%;%9$,@8@.$5$l$?>l9g$O!"$=$NHsF1(B
+;;           $B4|%W%m%;%9=*N;8e$K(B post-body $B$,I>2A$5$l$k$h$&$K!"%O%s%I%i(B
+;;           $B$KDI2C(B
+;;       --> $BHsF14|%W%m%;%9$,@8@.$5$l$J$+$C$?>l9g$O!"C1$K<!$N%9%F%C%W(B
+;;           $B$K?J$`(B(= post-body $B$rI>2A$9$k(B)$B!#(B
+;;   (2) post-body $B$rI>2A(B
+;;
+;; $B$J$*!"(Basync-form / post-body $B$,I>2A$5$l$k;~!"$=$NFbIt$GHsF14|%W%m%;(B
+;; $B%9$,@8@.$5$l$?>l9g$K!"$=$NJV$jCM$r=hM}$9$k$?$a$N%O%s%I%i$,!"JQ?t(B
+;; handler $B$K@_Dj$5$l$F$$$k!#HsF14|$J=hM}$r9T$&4X?t$r8F$S=P$9>l9g$K$O!"(B
+;; $B$=$N4X?t$N0z?t$H$7$FI,$:(B handler $B$rEO$5$J$1$l$P$J$i$J$$!#(B
+;;
+;; $B$^$?!"(Bw3m-process-do $B$O!"8=:_$N%O%s%I%i$NFbMF$rD4$Y$k$?$a!"$=$N%^%/(B
+;; $B%m$,8F$S=P$5$l$F$$$k4D6-$NJQ?t(B handler $B$r;2>H$9$k!#Nc$($P!"(B
+;;
+;;    (let (handler) (w3m-process-do ...))
+;;
+;; $B$HJQ?t(B handler $B$r(B nil $B$KB+G{$7$F$*$/$H!"!V8=;~E@$N%O%s%I%i$O6u$G$"(B
+;; $B$k(B = $BHsF14|%W%m%;%9<B9T8e$KI,MW$J=hM}$OB8:_$7$J$$!W$H$$$&0UL#$K$J$j!"(B
+;; w3m-process-do() $B$O!"HsF14|%W%m%;%9$,@8@.$5$l$?>l9g$K$OC1$K(B nil $B$r(B
+;; $BJV$7!"$=$l0J30$N>l9g$O(B post-body $B$NCM$rJV$9!#(B
+;;
+(defmacro w3m-process-do (spec &rest body)
+  "(w3m-process-do (VAR FORM) BODY...): Eval the body BODY asynchronously.
+If an asynchronous process is generated in the evaluation of the form
+FORM, this macro returns its object immdiately, and the body BODY will
+be evaluated after the end of the process with the variable VAR which
+is set to the result of the form FORM.  Otherwise, the body BODY is
+evaluated at the same time, and this macro returns the result of the
+body BODY."
+  (let ((var (or (car spec) (gensym "--tempvar--")))
+	(form (cdr spec))
+	(post-function (gensym "--post-function--")))
+    `(let ((,post-function (lambda (,var) ,@body)))
+       (let ((,var (let ((handler (cons ,post-function handler)))
+		     ,@form)))
+	 (if (w3m-process-p ,var)
+	     (if handler
+		 ,var
+	       (w3m-process-start-process ,var))
+	   (if (w3m-process-p (setq ,var (funcall ,post-function ,var)))
+	       (if handler
+		   ,var
+		 (w3m-process-start-process ,var))
+	     ,var))))))
+(put 'w3m-process-do 'lisp-indent-function 1)
+(put 'w3m-process-do 'edebug-form-spec '((symbolp form) def-body))
+
+(defmacro w3m-process-do-with-temp-buffer (spec &rest body)
+  "(w3m-process-do-with-temp-buffer (VAR FORM) BODY...):
+Like `w3m-process-do', but the form FORM and the body BODY are
+evaluated in a temporary buffer."
+  (let ((var (or (car spec) (gensym "--tempvar--")))
+	(form (cdr spec))
+	(post-body (gensym "--post-body--"))
+	(post-handler (gensym "--post-handler--"))
+	(temp-buffer (gensym "--temp-buffer--"))
+	(current-buffer (gensym "--current-buffer--")))
+    `(lexical-let ((,temp-buffer
+		    (w3m-get-buffer-create
+		     (generate-new-buffer-name w3m-work-buffer-name)))
+		   (,current-buffer (current-buffer)))
+       (labels ((,post-body (,var)
+			    (when (buffer-name ,temp-buffer)
+			      (set-buffer ,temp-buffer))
+			    ,@body)
+		(,post-handler (,var)
+			       (w3m-kill-buffer ,temp-buffer)
+			       (when (buffer-name ,current-buffer)
+				 (set-buffer ,current-buffer))
+			       ,var))
+	 (let ((,var (let ((handler
+			    (cons ',post-body (cons ',post-handler handler))))
+		       (with-current-buffer ,temp-buffer ,@form))))
+	   (if (w3m-process-p ,var)
+	       (if handler
+		   ,var
+		 (w3m-process-start-process ,var))
+	     (if (w3m-process-p
+		  (setq ,var (save-current-buffer
+			       (let ((handler (cons ',post-handler handler)))
+				 (,post-body ,var)))))
+		 (if handler
+		     ,var
+		   (w3m-process-start-process ,var))
+	       (,post-handler ,var))))))))
+(put 'w3m-process-do-with-temp-buffer 'lisp-indent-function 1)
+(put 'w3m-process-do-with-temp-buffer 'edebug-form-spec
+     '((symbolp form) def-body))
+
+
+(defun w3m-process-start (handler command arguments)
+  "Run COMMAND with ARGUMENTS, and eval HANDLER asynchronously."
+  (if w3m-async-exec
+      (w3m-process-do
+	  (exit-status (w3m-process-push handler command arguments))
+	(w3m-process-start-after exit-status))
+    (w3m-process-start-after
+     (w3m-process-with-coding-system
+       (w3m-process-with-environment w3m-command-environment
+	 (apply 'call-process command nil t nil arguments))))))
+
+(defun w3m-process-start-after (exit-status)
+  (when w3m-current-buffer
+    (with-current-buffer w3m-current-buffer
+      (setq w3m-process-modeline-string nil)))
+  (cond
+   ((numberp exit-status)
+    (zerop (setq w3m-process-exit-status exit-status)))
+   ((not exit-status)
+    (setq w3m-process-exit-status nil))
+   (t
+    (setq w3m-process-exit-status
+	  (string-as-multibyte (format "%s" exit-status)))
+    nil)))
+
+(defvar w3m-process-background nil
+  "Non-nil means that an after handler is being evaluated.")
+
+(defun w3m-process-sentinel (process event &optional ignore-queue)
+  ;; Ensure that this function will be never called repeatedly.
+  (set-process-sentinel process 'ignore)
+  (let ((inhibit-quit w3m-process-inhibit-quit)
+	(w3m-process-background t))
+    (unwind-protect
+	(if (buffer-name (process-buffer process))
+	    (with-current-buffer (process-buffer process)
+	      (w3m-static-unless (featurep 'xemacs)
+		(accept-process-output process 1))
+	      (setq w3m-process-queue
+		    (delq w3m-process-object w3m-process-queue))
+	      (let ((exit-status (process-exit-status process))
+		    (buffer (current-buffer))
+		    (realm  w3m-process-realm)
+		    (user   w3m-process-user)
+		    (passwd w3m-process-passwd)
+		    (obj    w3m-process-object))
+		(setq w3m-process-object nil)
+		(dolist (x (w3m-process-handlers obj))
+		  (when (and
+			 (buffer-name (w3m-process-handler-buffer x))
+			 (buffer-name (w3m-process-handler-parent-buffer x)))
+		    (set-buffer (w3m-process-handler-buffer x))
+		    (unless (eq buffer (current-buffer))
+		      (insert-buffer-substring buffer))))
+		(dolist (x (w3m-process-handlers obj))
+		  (when (and
+			 (buffer-name (w3m-process-handler-buffer x))
+			 (buffer-name (w3m-process-handler-parent-buffer x)))
+		    (set-buffer (w3m-process-handler-buffer x))
+		    (let ((w3m-process-exit-status)
+			  (w3m-current-buffer
+			   (w3m-process-handler-parent-buffer x))
+			  (handler
+			   (w3m-process-handler-functions x))
+			  (exit-status exit-status))
+		      (when realm
+			(w3m-process-set-authinfo w3m-current-url
+						  realm user passwd))
+		      (while (and handler
+				  (not (w3m-process-p
+					(setq exit-status
+					      (funcall (pop handler)
+						       exit-status))))))
+		      (setf (w3m-process-handler-result x) exit-status))))))
+	  ;; Something wrong has been occured.
+	  (catch 'last
+	    (dolist (obj w3m-process-queue)
+	      (when (eq process (w3m-process-process obj))
+		(setq w3m-process-queue (delq obj w3m-process-queue))
+		(throw 'last nil)))))
+      (delete-process process)
+      (unless ignore-queue
+	(w3m-process-start-queued-processes)))))
+
+(defun w3m-process-filter (process string)
+  (when (buffer-name (process-buffer process))
+    (with-current-buffer (process-buffer process)
+      (let ((inhibit-read-only t)
+	    (case-fold-search nil))
+	(goto-char (process-mark process))
+	(insert string)
+	(set-marker (process-mark process) (point))
+	(unless (string= "" string)
+	  (goto-char (point-min))
+	  (cond
+	   ((and (looking-at
+		  "\\(?:Accept [^\n]+\n\\)*\\([^\n]+: accept\\? \\)(y/n)")
+		 (= (match-end 0) (point-max)))
+	    ;; SSL certificate
+	    (message "")
+	    (let ((yn (w3m-process-y-or-n-p w3m-current-url (match-string 1))))
+	      (ignore-errors
+		(process-send-string process (if yn "y\n" "n\n"))
+		(delete-region (point-min) (point-max)))))
+	   ((and (looking-at "\n?Accept unsecure SSL session:.*\n")
+		 (= (match-end 0) (point-max)))
+	    (delete-region (point-min) (point-max)))
+	   ((and (looking-at "\\(\n?Wrong username or password\n\\)?\
+Proxy Username for \\(?:.*\\): Proxy Password: ")
+		 (= (match-end 0) (point-max)))
+	    (when (or (match-beginning 1)
+		      (not (stringp w3m-process-proxy-passwd)))
+	      (setq w3m-process-proxy-passwd
+		    (read-passwd "Proxy Password: ")))
+	    (ignore-errors
+	      (process-send-string process
+				   (concat w3m-process-proxy-passwd "\n"))
+	      (delete-region (point-min) (point-max))))
+	   ((and (looking-at "\\(\n?Wrong username or password\n\\)?\
+Proxy Username for \\(.*\\): ")
+		 (= (match-end 0) (point-max)))
+	    (when (or (match-beginning 1)
+		      (not (stringp w3m-process-proxy-user)))
+	      (setq w3m-process-proxy-user
+		    (read-from-minibuffer (concat
+					   "Proxy Username for "
+					   (match-string 2) ": "))))
+	    (ignore-errors
+	      (process-send-string process
+				   (concat w3m-process-proxy-user "\n"))))
+	   ((and (looking-at "\\(\n?Wrong username or password\n\\)?\
+Username for [^\n]*\n?: Password: ")
+		 (= (match-end 0) (point-max)))
+	    (when (or (match-beginning 1)
+		      (not (stringp w3m-process-passwd)))
+	      (setq w3m-process-passwd
+		    (w3m-process-read-passwd w3m-current-url
+					     w3m-process-realm
+					     w3m-process-user
+					     (match-beginning 1))))
+	    (ignore-errors
+	      (process-send-string process
+				   (concat w3m-process-passwd "\n"))
+	      (delete-region (point-min) (point-max))))
+	   ((and (looking-at "\\(\n?Wrong username or password\n\\)?\
+Username for \\(.*\\)\n?: ")
+		 (= (match-end 0) (point-max)))
+	    (setq w3m-process-realm (w3m-decode-coding-string-with-priority
+				     (match-string 2) nil))
+	    (when (or (match-beginning 1)
+		      (not (stringp w3m-process-user)))
+	      (setq w3m-process-user
+		    (w3m-process-read-user w3m-current-url
+					   w3m-process-realm
+					   (match-beginning 1))))
+	    (ignore-errors
+	      (process-send-string process
+				   (concat w3m-process-user "\n"))))
+	   ((and (looking-at "Enter PEM pass phrase:")
+		 (= (match-end 0) (point-max)))
+	    (unless (stringp w3m-process-ssl-passphrase)
+	      (setq w3m-process-ssl-passphrase
+		    (read-passwd "PEM pass phrase: ")))
+	    (ignore-errors
+	      (process-send-string process
+				   (concat w3m-process-ssl-passphrase "\n"))
+	      (delete-region (point-min) (point-max))))
+	   ((progn
+	      (or (search-forward "\nW3m-current-url:" nil t)
+		  (goto-char (process-mark process)))
+	      (re-search-backward
+	       "^W3m-\\(?:in-\\)?progress: \\([.0-9]+/[.0-9]+[a-zA-Z]?b\\)$"
+	       nil t))
+	    (let ((str (w3m-process-modeline-format (match-string 1)))
+		  (buf))
+	      (save-current-buffer
+		(dolist (handler (w3m-process-handlers w3m-process-object))
+		  (when (setq buf (w3m-process-handler-parent-buffer handler))
+		    (if (buffer-name buf)
+			(progn
+			  (set-buffer buf)
+			  (setq w3m-process-modeline-string str))
+		      (w3m-process-kill-stray-processes)))))))))))))
+
+(defun w3m-process-modeline-format (str)
+  (ignore-errors
+    (cond
+     ((stringp w3m-process-modeline-format)
+      (format w3m-process-modeline-format
+	      (if (string-match "/0\\([a-zA-Z]?b\\)\\'" str)
+		  (replace-match "\\1" t nil str)
+		str)))
+     ((functionp w3m-process-modeline-format)
+      (funcall w3m-process-modeline-format str)))))
+
+;; w3m-process-authinfo-alist has an association list as below format.
+;; (("root1" ("realm11" ("user11" . "pass11")
+;;                      ("user12" . "pass12"))
+;;           ("realm12" ("user13" . "pass13")))
+;;  ("root2" ("realm21" ("user21" . "pass21"))))
+(defun w3m-process-set-authinfo (url realm username password)
+  (let (x y z (root (w3m-get-server-hostname url)))
+    (if (setq x (assoc root w3m-process-authinfo-alist))
+	(if (setq y (assoc realm x))
+	    (if (setq z (assoc username y))
+		;; Change a password only.
+		(setcdr z password)
+	      ;; Add a pair of a username and a password.
+	      (setcdr y (cons (cons username password) (cdr y))))
+	  ;; Add a 3-tuple of a realm, a username and a password.
+	  (setcdr x (cons (cons realm (list (cons username password)))
+			  (cdr x))))
+      ;; Add a 4-tuple of a server root, a realm, a username and a password.
+      (push (cons root (list (cons realm (list (cons username password)))))
+	    w3m-process-authinfo-alist))))
+
+(defun w3m-process-read-user (url &optional realm ignore-history)
+  "Read a user name for URL and REALM."
+  (let* ((root (when (stringp url) (w3m-get-server-hostname url)))
+	 (ident (or realm root))
+	 (alist))
+    (if (and (not ignore-history)
+	     (setq alist
+		   (cdr (assoc realm
+			       (cdr (assoc root
+					   w3m-process-authinfo-alist))))))
+	(if (= 1 (length alist))
+	    (caar alist)
+	  (completing-read (if ident
+			       (format "Select username for %s: " ident)
+			     "Select username: ")
+			   (mapcar (lambda (x) (cons (car x) (car x))) alist)
+			   nil t))
+      (read-from-minibuffer (if ident
+				(format "Username for %s: " ident)
+			      "Username: ")))))
+
+(defun w3m-process-read-passwd (url &optional realm username ignore-history)
+  "Read a password for URL, REALM, and USERNAME."
+  (let* ((root (when (stringp url) (w3m-get-server-hostname url)))
+	 (ident (or realm root))
+	 (pass (cdr (assoc username
+			   (cdr (assoc realm
+				       (cdr (assoc root
+						   w3m-process-authinfo-alist))))))))
+    (if (and pass (not ignore-history))
+	pass
+      (read-passwd (format (if ident
+			       (format "Password for %s%%s: " ident)
+			     "Password%s: ")
+			   (if (and (stringp pass)
+				    (> (length pass) 0)
+				    (not (featurep 'xemacs)))
+			       (concat " (default "
+				       (make-string (length pass) ?\*)
+				       ")")
+			     ""))
+		   nil pass))))
+
+(defun w3m-process-y-or-n-p (url prompt)
+  "Ask user a \"y or n\" question.  Return t if answer is \"y\".
+NOTE: This function is designed to avoid annoying questions.  So when
+the same questions is reasked, its previous answer is reused without
+prompt."
+  (let ((root (w3m-get-server-hostname url))
+	(map (copy-keymap query-replace-map))
+	elem answer)
+    ;; ignore [space] to avoid answering y without intention.
+    (define-key map " " 'ignore)
+    (let ((query-replace-map map))
+      (if (setq elem (assoc root w3m-process-accept-alist))
+	  (if (member prompt (cdr elem))
+	      ;; When the same question has been asked, the previous
+	      ;; answer is reused.
+	      (setq answer t)
+	    ;; When any question for the same server has been asked,
+	    ;; regist the pair of this question and its answer to
+	    ;; `w3m-process-accept-alist'.
+	    (when (setq answer (y-or-n-p prompt))
+	      (setcdr elem (cons prompt (cdr elem)))))
+	;; When no question for the same server has been asked, regist
+	;; the 3-tuple of the server, the question and its answer to
+	;; `w3m-process-accept-alist'.
+	(when (setq answer (y-or-n-p prompt))
+	  (push (cons root (list prompt)) w3m-process-accept-alist)))
+      answer)))
+
+;; Silence the byte compiler complaining against `gensym' like:
+;; "Warning: the function `gensym' might not be defined at runtime."
+(eval-when-compile
+  (and (boundp 'byte-compile-unresolved-functions)
+       (fboundp 'gensym)
+       (symbol-file 'gensym)
+       (string-match "/cl-macs\\.el[^/]*\\'" (symbol-file 'gensym))
+       (condition-case nil
+	   (setq byte-compile-unresolved-functions
+		 (delq (assq 'gensym byte-compile-unresolved-functions)
+		       byte-compile-unresolved-functions))
+	 (error))))
+
+(provide 'w3m-proc)
+
+;;; w3m-proc.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-rss.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,169 @@
+;;; w3m-rss.el --- RSS functions
+
+;; Copyright (C) 2004, 2005 TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-rss.el provides RSS-related functions for emacs-w3m.  For more
+;; detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; Acknowledgment:
+
+;; I refered functions in `sb-rss.el' to implement this module.
+;; Thanks to Koichiro Ohba and NAKAJIMA Mikio.
+
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+(autoload 'xml-parse-region "xml")
+
+(eval-and-compile
+  (autoload 'timezone-parse-date "timezone")
+  (autoload 'timezone-parse-time "timezone"))
+
+(eval-when-compile
+  ;; Avoid warning for Emacs 19 and XEmacs.
+  (unless (fboundp 'match-string-no-properties)
+    (autoload 'match-string-no-properties "poe"))
+  ;; Avoid warning for Emacs 19.
+  (unless (fboundp 'split-string)
+    (autoload 'split-string "poe")))
+
+(defun w3m-rss-parse-date-string (date)
+  "Decode DATE string written in the ISO 8601 format or the RFC822 style.
+Return a list of numbers which conforms to the Emacs internal format.
+Valid types in the ISO 8601 format include:
+
+    Year:
+       YYYY (eg 1997)
+    Year and month:
+       YYYY-MM (eg 1997-07)
+    Complete date:
+       YYYY-MM-DD (eg 1997-07-16)
+    Complete date plus hours and minutes:
+       YYYY-MM-DDThh:mmTZD (eg 1997-07-16T19:20+01:00)
+    Complete date plus hours, minutes and seconds:
+       YYYY-MM-DDThh:mm:ssTZD (eg 1997-07-16T19:20:30+01:00)
+    Complete date plus hours, minutes, seconds and a decimal fraction
+    of a second
+       YYYY-MM-DDThh:mm:ss.sTZD (eg 1997-07-16T19:20:30.45+01:00)
+
+where:
+  YYYY = four-digit year
+  MM   = two-digit month (01=January, etc.)
+  DD   = two-digit day of month (01 through 31)
+  hh   = two digits of hour (00 through 23) (am/pm NOT allowed)
+  mm   = two digits of minute (00 through 59)
+  ss   = two digits of second (00 through 59)
+  s    = one or more digits representing a decimal fraction of a second
+  TZD  = time zone designator (Z or +hh:mm or -hh:mm)
+
+For more detail about ISO 8601 date format, see
+<URL:http://www.w3.org/TR/NOTE-datetime>.
+
+In addition to the above, it also supports the date format in the
+RFC822 style which RSS 2.0 allows.  Valid types are the same as ones
+which are supported by the `timezone-parse-date' function (which see)."
+  (cond ((not date) nil)
+	((string-match " [0-9]+ " date)
+	 (let* ((vector (timezone-parse-date date))
+		(year (string-to-number (aref vector 0)))
+		time)
+	   (when (>= year 1970)
+	     (setq time (timezone-parse-time (aref vector 3)))
+	     (encode-time
+	      (string-to-number (aref time 2))
+	      (string-to-number (aref time 1))
+	      (string-to-number (aref time 0))
+	      (string-to-number (aref vector 2))
+	      (string-to-number (aref vector 1))
+	      year
+	      (aref vector 4)))))
+	((string-match "\
+\\([0-9][0-9][0-9][0-9]\\)\\(?:-\\([0-9][0-9]\\)\\)?\\(?:-\\([0-9][0-9]\\)\\)?\
+T?\\(?:\\([0-9][0-9]\\):\\([0-9][0-9]\\)\\(?::\\([.0-9]+\\)\\)?\\)?\
+\\(?:\\([-+]\\)\\([0-9][0-9]\\):?\\([0-9][0-9]\\)\\|Z\\)?"
+		       date)
+	 (labels ((substr (n default)
+			  (if (match-beginning n)
+			      (string-to-number
+			       (match-string-no-properties n date))
+			    default)))
+	   (encode-time
+	    (substr 6 0) ;; seconds
+	    (substr 5 0) ;; minitue
+	    (substr 4 0) ;; hour
+	    (substr 3 1) ;; day
+	    (substr 2 1) ;; month
+	    (substr 1 0) ;; year
+	    (if (match-beginning 7)
+		(funcall (intern (match-string-no-properties 7 date))
+			 0
+			 (* 3600 (substr 8 0))
+			 (* 60 (substr 9 0)))
+	      0))))))
+
+(defun w3m-rss-find-el (tag data)
+  "Find the all matching elements in the data.  Careful with this on
+large documents!"
+  (let (found)
+    (when (listp data)
+      (dolist (bit data)
+	(when (car-safe bit)
+	  (when (equal tag (car bit))
+	    (setq found (nconc found (list bit))))
+	  (setq found
+		(nconc found
+		       (w3m-rss-find-el
+			tag
+			(if (and (listp (car-safe (caddr bit)))
+				 (not (stringp (caddr bit))))
+			    (caddr bit)
+			  (cddr bit))))))))
+    found))
+
+(defun w3m-rss-get-namespace-prefix (el uri)
+  "Given EL (containing a parsed element) and URI (containing a string
+that gives the URI for which you want to retrieve the namespace
+prefix), return the prefix.
+See http://feeds.archive.org/validator/docs/howto/declare_namespaces.html
+for more RSS namespaces."
+  (let* ((prefix (car (rassoc uri (cadar el))))
+	 (nslist (when prefix
+		   (split-string (symbol-name prefix) ":")))
+	 (ns (cond ((eq (length nslist) 1) ; no prefix given
+		    "")
+		   ((eq (length nslist) 2) ; extract prefix
+		    (cadr nslist)))))
+    (if (and ns (not (equal ns "")))
+	(concat ns ":")
+      ns)))
+
+(provide 'w3m-rss)
+
+;;; w3m-rss.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-search.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,365 @@
+;;; w3m-search.el --- functions convenient to access web search engines
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Keisuke Nishida    <[e-mail]>,
+;;          Shun-ichi GOTO     <[e-mail]>,
+;;          TSUCHIYA Masatoshi <[e-mail]>,
+;;          Romain FRANCOISE   <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This module contains the `w3m-search' command and some utilities
+;; to improve your cyberlife.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m)
+
+(defcustom w3m-search-engine-alist
+  (let* ((ja (equal "Japanese" w3m-language))
+	 (utf-8 (or (and (boundp 'mule-version)
+			 (not (string< (symbol-value 'mule-version) "6.0")))
+		    (featurep 'un-define)
+		    (fboundp 'utf-translate-cjk-mode)
+		    (and (not ja) (w3m-find-coding-system 'utf-8)))))
+    `(,@(if ja
+	    '(("yahoo"
+	       "http://search.yahoo.co.jp/bin/search?p=%s"
+	       euc-japan)
+	      ("yahoo-en"
+	       "http://search.yahoo.com/bin/search?p=%s"))
+	  '(("yahoo"
+	     "http://search.yahoo.com/bin/search?p=%s")
+	    ("yahoo-ja"
+	     "http://search.yahoo.co.jp/bin/search?p=%s"
+	     euc-japan)))
+      ("alc" "http://eow.alc.co.jp/%s/UTF-8/" utf-8)
+      ,@(cond
+	 ((and ja utf-8)
+	  '(("blog"
+	     "http://blogsearch.google.com/blogsearch?q=%s&hl=ja&lr=lang_ja&oe=utf-8&ie=utf-8"
+	     utf-8)
+	    ("blog-en"
+	     "http://blogsearch.google.com/blogsearch?q=%s&hl=en&oe=utf-8&ie=utf-8"
+	     utf-8)))
+	 (ja
+	  '(("blog"
+	     "http://blogsearch.google.com/blogsearch?q=%s&hl=ja&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS"
+	     shift_jis)
+	    ("blog-en"
+	     "http://blogsearch.google.com/blogsearch?q=%s&hl=en")))
+	 (utf-8
+	  '(("blog"
+	     "http://blogsearch.google.com/blogsearch?q=%s&oe=utf-8&ie=utf-8"
+	     utf-8)
+	    ("blog-en"
+	     "http://blogsearch.google.com/blogsearch?q=%s&hl=en&oe=utf-8&ie=utf-8"
+	     utf-8)))
+	 (t
+	  '(("blog"
+	     "http://blogsearch.google.com/blogsearch?q=%s")
+	    ("blog-ja"
+	     "http://blogsearch.google.com/blogsearch?q=%s&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS"
+	     shift_jis))))
+      ,@(cond
+	 ((and ja utf-8)
+	  '(("google"
+	     "http://www.google.com/search?q=%s&hl=ja&lr=lang_ja&ie=utf-8&oe=utf-8"
+	     utf-8)
+	    ("google-en"
+	     "http://www.google.com/search?q=%s&hl=en&ie=utf-8&oe=utf-8"
+	     utf-8)))
+	 (ja
+	  '(("google"
+	     "http://www.google.com/search?q=%s&hl=ja&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS"
+	     shift_jis)
+	    ("google-en"
+	     "http://www.google.com/search?q=%s&hl=en")))
+	 (utf-8
+	  '(("google"
+	     "http://www.google.com/search?q=%s&ie=utf-8&oe=utf-8"
+	     utf-8)
+	    ("google-en"
+	     "http://www.google.com/search?q=%s&hl=en&ie=utf-8&oe=utf-8"
+	     utf-8)))
+	 (t
+	  '(("google"
+	     "http://www.google.com/search?q=%s")
+	    ("google-ja"
+	     "http://www.google.com/search?q=%s&hl=ja&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS"
+	     shift_jis))))
+      ,@(cond
+	 ((and ja utf-8)
+	  '(("google news"
+	     "http://news.google.co.jp/news?hl=ja&ie=utf-8&q=%s&oe=utf-8"
+	     utf-8)
+	    ("google news-en"
+	     "http://news.google.com/news?hl=en&q=%s")))
+	 (ja
+	  '(("google news"
+	     "http://news.google.co.jp/news?hl=ja&ie=Shift_JIS&q=%s&oe=Shift_JIS"
+	     shift_jis)
+	    ("google news-en"
+	     "http://news.google.com/news?hl=en&q=%s")))
+	 (utf-8
+	  '(("google news"
+	     "http://news.google.com/news?ie=utf-8&q=%s&oe=utf-8"
+	     utf-8)
+	    ("google news-en"
+	     "http://news.google.com/news?hl=en&ie=utf-8&q=%s&oe=utf-8")))
+	 (t
+	  '(("google news"
+	     "http://news.google.com/news?q=%s")
+	    ("google news-ja"
+	     "http://news.google.co.jp/news?hl=ja&ie=Shift_JIS&q=%s&oe=Shift_JIS"
+	     shift_jis))))
+      ("google groups"
+       "http://groups.google.com/groups?q=%s")
+      ,@(if ja
+	    '(("All the Web"
+	       "http://www.alltheweb.com/search?web&_sb_lang=ja&cs=euc-jp\
+&q=%s"
+	       euc-japan)
+	      ("All the Web-en"
+	       "http://www.alltheweb.com/search?web&_sb_lang=en&q=%s"))
+	  '(("All the Web"
+	     "http://www.alltheweb.com/search?web&_sb_lang=en&q=%s")
+	    ("All the Web-ja"
+	     "http://www.alltheweb.com/search?web&_sb_lang=ja&cs=euc-jp&q=%s"
+	     euc-japan)))
+      ,@(if ja
+	    '(("technorati"
+	       "http://www.technorati.jp/search/search.html?query=%s&language=ja"
+	       utf-8)
+	      ("technorati-en"
+	       "http://www.technorati.com/search/%s"
+	       utf-8))
+	  '(("technorati"
+	     "http://www.technorati.com/search/%s"
+	     utf-8)
+	    ("technorati-ja"
+	     "http://www.technorati.jp/search/search.html?query=%s&language=ja"
+	     utf-8)))
+      ("technorati-tag"
+       "http://www.technorati.com/tag/%s"
+       utf-8)
+      ("goo-ja"
+       "http://search.goo.ne.jp/web.jsp?MT=%s"
+       euc-japan)
+      ("excite-ja"
+       "http://www.excite.co.jp/search.gw?target=combined&look=excite_jp\
+&lang=jp&tsug=-1&csug=-1&search=%s"
+       shift_jis)
+      ("altavista"
+       "http://altavista.com/sites/search/web?q=\"%s\"&kl=ja&search=Search")
+      ("rpmfind"
+       "http://rpmfind.net/linux/rpm2html/search.php?query=%s"
+       nil)
+      ("debian-pkg"
+       "http://packages.debian.org/cgi-bin/search_contents.pl\
+?directories=yes&arch=i386&version=unstable&case=insensitive&word=%s")
+      ("debian-bts"
+       "http://bugs.debian.org/cgi-bin/pkgreport.cgi?archive=yes&pkg=%s")
+      ("freebsd-users-jp"
+       "http://home.jp.FreeBSD.org/cgi-bin/namazu.cgi?key=\"%s\"&whence=0\
+&max=50&format=long&sort=score&dbname=FreeBSD-users-jp"
+       euc-japan)
+      ("iij-archie"
+       "http://www.iij.ad.jp/cgi-bin/archieplexform?query=%s\
+&type=Case+Insensitive+Substring+Match&order=host&server=archie1.iij.ad.jp\
+&hits=95&nice=Nice")
+      ("waei"
+       "http://dictionary.goo.ne.jp/search.php?MT=%s&kind=je"
+       euc-japan)
+      ("eiwa"
+       "http://dictionary.goo.ne.jp/search.php?MT=%s&kind=ej")
+      ("kokugo"
+       "http://dictionary.goo.ne.jp/search.php?MT=%s&kind=jn"
+       euc-japan)
+      ("eiei"
+       "http://www.dictionary.com/cgi-bin/dict.pl?term=%s&r=67")
+      ,@(if ja
+	    '(("amazon"
+	       "http://www.amazon.co.jp/gp/search?\
+__mk_ja_JP=%%83J%%83%%5E%%83J%%83i&url=search-alias%%3Daps&field-keywords=%s"
+	       shift_jis)
+	      ("amazon-en"
+	       "http://www.amazon.com/exec/obidos/search-handle-form/\
[phone]-7797857"
+	       iso-8859-1
+	       "url=index=blended&field-keywords=%s"))
+	  '(("amazon"
+	     "http://www.amazon.com/exec/obidos/search-handle-form/\
[phone]-7797857"
+	     iso-8859-1
+	     "url=index=blended&field-keywords=%s")
+	    ("amazon-ja"
+	       "http://www.amazon.co.jp/gp/search?\
+__mk_ja_JP=%%83J%%83%%5E%%83J%%83i&url=search-alias%%3Daps&field-keywords=%s"
+	       shift_jis)))
+      ("emacswiki" "http://www.emacswiki.org/cgi-bin/wiki?search=%s")
+      ("en.wikipedia" "http://en.wikipedia.org/wiki/Special:Search?search=%s")
+      ("de.wikipedia" "http://de.wikipedia.org/wiki/Spezial:Search?search=%s"
+       utf-8)
+      ("ja.wikipedia" "http://ja.wikipedia.org/wiki/Special:Search?search=%s"
+       utf-8)
+      ("msdn" "http://search.msdn.microsoft.com/search/default.aspx?query=%s")
+      ("freshmeat" "http://freshmeat.net/search/?q=%s&section=projects")))
+  "*An alist of search engines.
+Each element looks like (ENGINE ACTION CODING POST-DATA)
+ENGINE is a string, the name of the search engine.
+ACTION is a string, the URL that performs a search.
+ACTION must contain a \"%s\", which is substituted by a query string.
+CODING is optional value which is coding system for query string.
+POST-DATA is optional value which is a string for POST method search engine.
+If CODING is omitted, it defaults to `w3m-default-coding-system'."
+  :group 'w3m
+  :type `(repeat
+	  (group :indent 2
+		 (string :format "Engine: %v\n" :size 0)
+		 (string :format "       Action: %v\n" :size 0)
+		 (coding-system :format "%t: %v\n" :size 0)
+		 (checklist :inline t
+			    :entry-format ,(if (w3m-device-on-window-system-p)
+					       "%b   %v"
+					     "%b  %v")
+			    (string :format "PostData: %v\n" :size 0)))))
+
+(defcustom w3m-search-default-engine "google"
+  "*Name of the default search engine.
+See also `w3m-search-engine-alist'."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-search-word-at-point t
+  "*Non-nil means that the word at point is used as an initial string.
+If Transient Mark mode, this option is ignored and the region is used
+as an initial string."
+  :group 'w3m
+  :type 'boolean)
+
+(defvar w3m-search-engine-history nil
+  "History variable used by `w3m-search' for prompting a search engine.")
+
+(defvar w3m-search-thing-at-point-arg 'word
+  "Argument for `thing-at-point' used in `w3m-search-read-query'")
+
+(defun w3m-search-escape-query-string (str &optional coding)
+  (mapconcat
+   (lambda (s)
+     (w3m-url-encode-string s (or coding w3m-default-coding-system)))
+   (split-string str)
+   "+"))
+
+(defun w3m-search-read-query (prompt prompt-with-default &optional history)
+  "Read a query from the minibuffer, prompting with string PROMPT.
+When a default value for the query is discovered, prompt with string
+PROMPT-WITH-DEFAULT instead of string PROMPT."
+  (let ((default
+	  (if (w3m-region-active-p)
+	      (buffer-substring (region-beginning) (region-end))
+	    (unless (and (eq major-mode 'w3m-mode)
+			 (listp (get-text-property (point-at-bol) 'face))
+			 (memq 'w3m-header-line-location-title
+			       (get-text-property (point-at-bol) 'face)))
+	      (thing-at-point w3m-search-thing-at-point-arg))))
+	initial)
+    (when default
+      (set-text-properties 0 (length default) nil default)
+      (when (or w3m-search-word-at-point (w3m-region-active-p))
+	(setq initial default
+	      default nil))
+      (when (w3m-region-active-p)
+	(w3m-deactivate-region)))
+    (read-string (if default
+		     (format prompt-with-default default)
+		   prompt)
+		 initial history default)))
+
+(defun w3m-search-read-variables ()
+  "Ask for a search engine and words to query and return them as a list."
+  (let* ((search-engine
+	  (if current-prefix-arg
+	      (let ((default (or (car w3m-search-engine-history)
+				 w3m-search-default-engine))
+		    (completion-ignore-case t))
+		(completing-read (format "Which engine? (default %s): "
+					 default)
+				 w3m-search-engine-alist nil t nil
+				 'w3m-search-engine-history default))
+	    w3m-search-default-engine))
+	 (query
+	  (w3m-search-read-query
+	   (format "%s search: " search-engine)
+	   (format "%s search (default %%s): " search-engine))))
+    (list search-engine query)))
+
+(defun w3m-search-do-search (w3m-goto-function search-engine query)
+  "Call W3M-GOTO-FUNCTION with the URL for the search."
+  (unless (string= query "")
+    (let ((info (assoc search-engine w3m-search-engine-alist)))
+      (if info
+	  (let ((query-string (w3m-search-escape-query-string query
+							      (caddr info)))
+		(post-data (cadddr info)))
+	    (funcall w3m-goto-function
+		     (format (cadr info) query-string)
+		     post-data
+		     nil
+		     (and post-data (format post-data query-string))))
+	(error "Unknown search engine: %s" search-engine)))))
+
+;;;###autoload
+(defun w3m-search (search-engine query)
+  "Search QUERY using SEARCH-ENGINE.
+When called interactively with a prefix argument, you can choose one of
+the search engines defined in `w3m-search-engine-alist'.  Otherwise use
+`w3m-search-default-engine'.
+If Transient Mark mode, use the region as an initial string of query
+and deactivate the mark."
+  (interactive (w3m-search-read-variables))
+  (w3m-search-do-search 'w3m-goto-url search-engine query))
+
+;;;###autoload
+(defun w3m-search-new-session (search-engine query)
+  "Like `w3m-search', but do the search in a new session."
+  (interactive (w3m-search-read-variables))
+  (w3m-search-do-search 'w3m-goto-url-new-session search-engine query))
+
+;;;###autoload
+(defun w3m-search-uri-replace (uri engine)
+  "Generate query string for ENGINE from URI matched by last search."
+  (let ((query (substring uri (match-end 0)))
+	(info (assoc engine w3m-search-engine-alist)))
+    (when info
+      (format (cadr info)
+	      (w3m-search-escape-query-string query (caddr info))))))
+
+(provide 'w3m-search)
+
+;;; w3m-search.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-session.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,909 @@
+;;; w3m-session.el --- Functions to operate session of w3m -*- coding: iso-2022-7bit; -*-
+
+;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Author: Hideyuki SHIRAI <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; w3m-session.el is the add-on program of emacs-w3m to save and load
+;; sessions.   For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; Code:
+(eval-when-compile (require 'cl))
+(require 'w3m-util)
+
+(eval-when-compile
+  (defvar w3m-async-exec)
+  (defvar w3m-async-exec-with-many-urls)
+  (defvar w3m-current-title)
+  (defvar w3m-current-url)
+  (defvar w3m-history)
+  (defvar w3m-history-flat)
+  (defvar w3m-language)
+  (defvar w3m-mode-map)
+  (defvar w3m-profile-directory)
+  (autoload 'w3m-goto-url-new-session "w3m")
+  (autoload 'w3m-history-tree "w3m-hist")
+  (autoload 'w3m-load-list "w3m")
+  (autoload 'w3m-save-list "w3m"))
+
+(defcustom w3m-session-file
+  (expand-file-name ".sessions" w3m-profile-directory)
+  "*File name to keep sessions."
+  :group 'w3m
+  :type '(file :size 0))
+
+(defcustom w3m-session-autosave t
+  "*Non-nil means save automatically when w3m quit."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-session-deleted-save t
+  "*Non-nil means save deleted sessions."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-session-crash-recovery t
+  "*Non-nil means emacs-w3m save session set automatically, and recover it when emacs-w3m crash."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-session-time-format
+  (if (and (equal "Japanese" w3m-language)
+	   (not (featurep 'xemacs)))
+      "%Y$BG/(B%m$B7n(B%d$BF|(B(%a) %H:%M"
+    "%Y-%m-%d (%a) %H:%M")
+  "*Format of saved time."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-session-automatic-title
+  (if (equal "Japanese" w3m-language)
+      "$B<+F0J]B8(B"
+    "Automatic saved sessions")
+  "*String of title to save session automatically."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-session-deleted-title
+  (if (equal "Japanese" w3m-language)
+      "$B:o=|%;%C%7%g%s(B"
+    "Removed sessions")
+  "*String of title to save session when buffer delete."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-session-crash-recovery-title
+  (if (equal "Japanese" w3m-language)
+      "$B%/%i%C%7%e2sI|(B"
+    "Crash recovery sessions")
+  "*String of title to save session to use for crash recovering."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-session-deleted-keep-number 5
+  "*Number to keep sessions when buffers delete."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-session-automatic-keep-number 5
+  "*Number to keep sessions automatically."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-session-unknown-title "<Unknown Title>"
+  "*String of title to use when title is not specified."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-session-load-last-sessions nil
+  "*Whether to load the last sessions when emacs-w3m starts."
+  :group 'w3m
+  :type '(radio (const :format "Load the last sessions automatically." t)
+		(const :format "Ask whether to load the last sessions." ask)
+		(const :format "Never load the last sessions automatically." nil)))
+
+(defcustom w3m-session-load-crashed-sessions 'ask
+  "*Whether to load the crashed sessions when emacs-w3m starts."
+  :group 'w3m
+  :type '(radio (const :format "Load the crashed sessions automatically." t)
+		(const :format "Ask whether to load the crashed sessions." ask)
+		(const :format "Never load the crashed sessions automatically." nil)))
+
+(defface w3m-session-select
+  `((((class color) (background light) (type tty))
+     (:foreground "black"))
+    (((class color) (background dark) (type tty))
+     (:foreground "cyan"))
+    (((class color) (background light))
+     (:foreground "dark blue"))
+    (((class color) (background dark))
+     (:foreground "white"))
+    (t nil))
+  "Face of w3m-session."
+  :group 'w3m)
+;; backward-compatibility alias
+(put 'w3m-session-select-face 'face-alias 'w3m-session-select)
+
+(defface w3m-session-selected
+  `((((class color) (background light) (type tty))
+     (:foreground "blue" :bold t :underline t))
+    (((class color) (background dark) (type tty))
+     (:foreground "cyan" :bold t :underline t))
+    (((class color) (background light))
+     (:foreground "dark blue" :bold t :underline t))
+    (((class color) (background dark))
+     (:foreground "white" :bold t :underline t))
+    (t (:bold t :underline t)))
+  "Face of selected w3m-session."
+  :group 'w3m)
+;; backward-compatibility alias
+(put 'w3m-session-selected-face 'face-alias 'w3m-session-selected)
+
+(defun w3m-session-history-to-save ()
+  "Return a copy of `w3m-history-flat' without current page data."
+  (let ((pos (cadar w3m-history)))
+    (apply
+     'append
+     (mapcar (lambda (x)
+	       (unless (equal (nth 2 x) pos)
+		 (list x)))
+	     (copy-sequence (w3m-history-slimmed-history-flat))))))
+
+;; format of sessin file.
+;; '((sessiontitle1 time1 ((url11 pos11 hflat11 urltitle11)
+;;                         (url12 pos12 hflat12 urltitle12) ...) current1)
+;;   ...
+
+(defmacro w3m-session-ignore-errors (&rest forms)
+  "Run FORMS.  Remove `w3m-session-file' and quit if any error happens."
+  `(condition-case err
+       (progn ,@forms)
+     (error
+      (if (and (file-exists-p w3m-session-file)
+	       (yes-or-no-p (format
+			     "\
+Sorry, an error found in \"%s\"; may we remove it? "
+			     ,(if (featurep 'xemacs)
+				  '(abbreviate-file-name w3m-session-file t)
+				'(abbreviate-file-name w3m-session-file)))))
+	  (progn
+	    (delete-file w3m-session-file)
+	    (run-at-time 0.1 nil #'message
+			 "\"%s\" has been removed; try again"
+			 (abbreviate-file-name w3m-session-file))
+	    (keyboard-quit))
+	(signal (car err) (cdr err))))))
+
+;;;###autoload
+(defun w3m-session-save ()
+  "Save list of displayed session."
+  (interactive)
+  (w3m-session-ignore-errors
+   (let ((sessions (w3m-load-list w3m-session-file))
+	 (bufs (w3m-list-buffers))
+	 (prompt "New session title: ")
+	 (cnum 0)
+	 (i 0)
+	 title titles urls len buf cbuf)
+     (mapc (lambda (x)
+	     (setq titles (cons (cons (car x) (car x)) titles)))
+	   sessions)
+     (setq title (or w3m-current-title
+		     (with-current-buffer (car bufs)
+		       w3m-current-title)))
+     (setq titles (cons (cons title title) titles))
+     (catch 'loop
+       (while t
+	 (setq title (completing-read prompt titles nil nil title))
+	 (if (or (string= title "")
+		 (and (assoc title sessions)
+		      (not (y-or-n-p (format "\"%s\" is exist. Overwrite? "
+					     title)))))
+	     (setq prompt "Again New session title: ")
+	   (throw 'loop t))))
+     (setq cbuf (current-buffer))
+     (save-current-buffer
+       (while (setq buf (car bufs))
+	 (setq bufs (cdr bufs))
+	 (set-buffer buf)
+	 (when w3m-current-url
+	   (when (eq cbuf (current-buffer))
+	     (setq cnum i))
+	   (setq i (1+ i))
+	   (setq urls (cons (list w3m-current-url
+				  (copy-sequence (caar w3m-history))
+				  (w3m-session-history-to-save)
+				  w3m-current-title)
+			    urls)))))
+     (if (not urls)
+	 (message "%s: no session save...done" title)
+       (setq len (length urls))
+       (setq urls (nreverse urls))
+       (when (assoc title sessions)
+	 (setq sessions (delete (assoc title sessions) sessions)))
+       (setq sessions (cons (list title (current-time) urls cnum) sessions))
+       (w3m-save-list w3m-session-file sessions)
+       (if (= len 1)
+	   (message "%s: 1 session save...done" title)
+	 (message "%s: %d sessions save...done" title len))))))
+
+(defun w3m-session-automatic-save ()
+  "Save list of displayed session automatically."
+  (when w3m-session-autosave
+    (w3m-session-ignore-errors
+     (let ((sessions (w3m-load-list w3m-session-file))
+	   (bufs (w3m-list-buffers))
+	   (title (concat w3m-session-automatic-title "-1"))
+	   (titleregex (concat "^"
+			       (regexp-quote w3m-session-automatic-title)
+			       "-[0-9]+$"))
+	   (cnum 0)
+	   (i 0)
+	   urls buf cbuf session
+	   tmp tmptitle tmptime tmpurls)
+       (when bufs
+	 (setq cbuf (current-buffer))
+	 (save-current-buffer
+	   (while (setq buf (car bufs))
+	     (setq bufs (cdr bufs))
+	     (set-buffer buf)
+	     (when w3m-current-url
+	       (when (eq cbuf (current-buffer))
+		 (setq cnum i))
+	       (setq i (1+ i))
+	       (setq urls (cons (list w3m-current-url
+				      (copy-sequence (caar w3m-history))
+				      (w3m-session-history-to-save)
+				      w3m-current-title)
+				urls)))))
+	 (when urls
+	   (setq i 2)
+	   (while (setq session (car sessions))
+	     (setq sessions (cdr sessions))
+	     (if (string-match titleregex (nth 0 session))
+		 (when (<= i w3m-session-automatic-keep-number)
+		   (setq tmptitle (format (concat w3m-session-automatic-title
+						  "-%d") i))
+		   (setq tmptime (nth 1 session))
+		   (setq tmpurls (nth 2 session))
+		   (setq tmp (cons (list tmptitle tmptime tmpurls nil) tmp))
+		   (setq i (1+ i)))
+	       (setq tmp (cons session tmp))))
+	   (setq sessions (nreverse tmp))
+	   (setq urls (nreverse urls))
+	   (setq sessions (cons (list title (current-time) urls cnum)
+				sessions))
+	   (w3m-save-list w3m-session-file sessions)))))))
+
+(defun w3m-session-deleted-save (buffers)
+  "Save list of deleted session."
+  (when w3m-session-deleted-save
+    (w3m-session-ignore-errors
+     (let ((sessions (w3m-load-list w3m-session-file))
+	   (title (concat w3m-session-deleted-title "-1"))
+	   (titleregex (concat "^"
+			       (regexp-quote w3m-session-deleted-title)
+			       "-[0-9]+$"))
+	   (bufs (copy-sequence buffers))
+	   (i 2)
+	   urls buf session
+	   tmp tmptitle tmptime tmpurls)
+       (when bufs
+	 (setq bufs (sort bufs 'w3m-buffer-name-lessp))
+	 (save-current-buffer
+	   (while (setq buf (car bufs))
+	     (setq bufs (cdr bufs))
+	     (set-buffer buf)
+	     (when w3m-current-url
+	       (setq urls (cons (list w3m-current-url
+				      (copy-sequence (caar w3m-history))
+				      (w3m-session-history-to-save)
+				      w3m-current-title)
+				urls)))))
+	 (when urls
+	   (while (setq session (car sessions))
+	     (setq sessions (cdr sessions))
+	     (if (string-match titleregex (nth 0 session))
+		 (when (<= i w3m-session-deleted-keep-number)
+		   (setq tmptitle (format (concat w3m-session-deleted-title
+						  "-%d") i))
+		   (setq tmptime (nth 1 session))
+		   (setq tmpurls (nth 2 session))
+		   (setq tmp (cons (list tmptitle tmptime tmpurls nil) tmp))
+		   (setq i (1+ i)))
+	       (setq tmp (cons session tmp))))
+	   (setq sessions (nreverse tmp))
+	   (setq urls (nreverse urls))
+	   (setq sessions (cons (list title (current-time) urls nil) sessions))
+	   (w3m-save-list w3m-session-file sessions)))))))
+
+(defun w3m-session-crash-recovery-save ()
+  "Save list of displayed session."
+  (when w3m-session-crash-recovery
+    (w3m-session-ignore-errors
+     (let ((sessions (w3m-load-list w3m-session-file))
+	   (bufs (w3m-list-buffers))
+	   (title w3m-session-crash-recovery-title)
+	   urls buf tmp)
+       (when bufs
+	 (save-current-buffer
+	   (while (setq buf (car bufs))
+	     (setq bufs (cdr bufs))
+	     (set-buffer buf)
+	     (when w3m-current-url
+	       (setq urls (cons (list w3m-current-url
+				      (copy-sequence (caar w3m-history))
+				      (w3m-session-history-to-save)
+				      w3m-current-title)
+				urls)))))
+	 (when urls
+	   (setq urls (nreverse urls))
+	   (setq tmp (assoc title sessions))
+	   (when tmp (setq sessions (delete tmp sessions)))
+	   (setq sessions (cons (list title (current-time) urls nil) sessions))
+	   (w3m-save-list w3m-session-file sessions)))))))
+
+(defun w3m-session-crash-recovery-remove ()
+  "Remove crash recovery session set."
+  (when w3m-session-crash-recovery
+    (w3m-session-ignore-errors
+     (let* ((sessions (w3m-load-list w3m-session-file))
+	    (item (assoc w3m-session-crash-recovery-title sessions)))
+       (when item
+	 (setq sessions (delete item sessions))
+	 (w3m-save-list w3m-session-file sessions))))))
+
+(defvar w3m-session-select-mode-map nil)
+(unless w3m-session-select-mode-map
+  (let ((map (make-keymap)))
+    (suppress-keymap map)
+    (define-key map "q" 'w3m-session-select-quit)
+    (define-key map "Q" 'w3m-session-select-quit)
+    (define-key map "\C-g" 'w3m-session-select-quit)
+    (define-key map "\C-m" 'w3m-session-select-select)
+    (define-key map "\M-s" 'w3m-session-select-open-session-group)
+    (define-key map "d" 'w3m-session-select-delete)
+    (define-key map "D" 'w3m-session-select-delete)
+    (define-key map "s" 'w3m-session-select-save)
+    (define-key map "S" 'w3m-session-select-save)
+    (define-key map "r" 'w3m-session-select-rename)
+    (define-key map "R" 'w3m-session-select-rename)
+    (define-key map "n" 'w3m-session-select-next)
+    (define-key map "j" 'w3m-session-select-next)
+    (define-key map "\C-n" 'w3m-session-select-next)
+    (define-key map [down] 'w3m-session-select-next)
+    (define-key map "p" 'w3m-session-select-previous)
+    (define-key map "k" 'w3m-session-select-previous)
+    (define-key map "\C-p" 'w3m-session-select-previous)
+    (define-key map [up] 'w3m-session-select-previous)
+    (setq w3m-session-select-mode-map map)))
+
+;;; Local variables
+(defvar w3m-session-select-wincfg nil)
+(defvar w3m-session-select-sessions nil)
+(make-variable-buffer-local 'w3m-session-select-wincfg)
+(make-variable-buffer-local 'w3m-session-select-sessions)
+
+(defun w3m-session-select-mode (&optional sessions)
+  "Major mode for selecting emacs-w3m session.
+
+\\<w3m-session-select-mode-map>
+\\[w3m-session-select-select]	Select the session.
+\\[w3m-session-select-open-session-group]	Open the session group.
+\\[w3m-session-select-delete]	Delete the session.
+\\[w3m-session-select-rename]	Rename the session.
+\\[w3m-session-select-save]	Save the session.
+\\[w3m-session-select-next]	Move the point to the next session.
+\\[w3m-session-select-previous]	Move the point to the previous session.
+\\[w3m-session-select-quit]	Exit selecting session.
+"
+  (w3m-session-ignore-errors
+   (let ((sessions (or sessions
+		       (w3m-load-list w3m-session-file))))
+     (buffer-disable-undo)
+     (setq mode-name "w3m session"
+	   truncate-lines t
+	   buffer-read-only nil
+	   major-mode 'w3m-session-select-mode
+	   w3m-session-select-sessions sessions
+	   buffer-read-only t)
+     (use-local-map w3m-session-select-mode-map)
+     (w3m-session-select-list-all-sessions))))
+
+(defun w3m-session-select-list-all-sessions ()
+  "List up all saved sessions."
+  (let ((sessions w3m-session-select-sessions)
+	(num 0)
+	(max 0)
+	(inhibit-read-only t)
+	title titles time times url urls wid pos)
+    (if (not sessions)
+	(progn
+	  (message "No saved session")
+	  (w3m-session-select-quit))
+      (mapc (lambda (x)
+	      (setq title (format "%s[%d]" (nth 0 x) (length (nth 2 x))))
+	      (setq wid (string-width title))
+	      (when (> wid max)
+		(setq max wid))
+	      (setq titles (cons title titles))
+	      (setq times (cons (format-time-string w3m-session-time-format
+						    (nth 1 x))
+				times))
+	      (setq urls (cons (mapconcat (lambda (url)
+					    (if (stringp url)
+						url
+					      (car url)))
+					  (nth 2 x) ", ")
+			       urls)))
+	    sessions)
+      (setq titles (nreverse titles))
+      (setq times (nreverse times))
+      (setq urls (nreverse urls))
+      (setq max (+ max 2))
+      (erase-buffer)
+      (insert "Select session:\n\n")
+      (while (and (setq title (car titles))
+		  (setq time (car times))
+		  (setq url (car urls)))
+	(setq titles (cdr titles))
+	(setq times (cdr times))
+	(setq urls (cdr urls))
+	(setq pos (point))
+	(insert title)
+	(add-text-properties pos (point)
+			     `(face w3m-session-select
+				    w3m-session-number ,num))
+	(setq num (1+ num))
+	(insert (make-string (- max (string-width title)) ?\ ))
+	(insert time "  " url "\n"))
+      (goto-char (point-min))
+      (goto-char (next-single-property-change
+		  (point) 'w3m-session-number))
+      (put-text-property (point)
+			 (next-single-property-change
+			  (point) 'w3m-session-number)
+			 'face 'w3m-session-selected)
+      (set-buffer-modified-p nil)
+      (setq buffer-read-only t))))
+
+(defun w3m-session-select-list-session-group (arg)
+  (let ((session (nth 2 (nth arg w3m-session-select-sessions)))
+	(num 0)
+	(max 0)
+	(inhibit-read-only t)
+	title url wid
+	titles urls pos)
+    (when session
+      (mapc (lambda (x)
+	      (setq title (format "%s" (or (nth 3 x) w3m-session-unknown-title)))
+	      (setq wid (string-width title))
+	      (when (> wid max)
+		(setq max wid))
+	      (setq titles (cons title titles))
+	      (setq urls (cons (nth 0 x)
+			       urls)))
+	    session)
+      (setq titles (nreverse titles))
+      (setq urls (nreverse urls))
+      (setq max (+ max 2))
+      (erase-buffer)
+      (insert "Select session:\n\n")
+      (setq pos (point))
+      (insert "Open all sessions")
+      (add-text-properties pos (point)
+			   `(face w3m-session-selected
+				  w3m-session-number ,arg))
+      (insert "\n")
+      (while (and (setq title (car titles))
+		  (setq url (car urls)))
+	(setq titles (cdr titles))
+	(setq urls (cdr urls))
+	(setq pos (point))
+	(insert title)
+	(add-text-properties pos (point)
+			     `(face w3m-session-select
+				    w3m-session-number ,(cons arg num)))
+	(setq num (1+ num))
+	(insert (make-string (- max (string-width title)) ?\ ))
+	(insert url "\n"))
+      (goto-char (point-min))
+      (goto-char (next-single-property-change
+		  (point) 'w3m-session-number)))
+    (set-buffer-modified-p nil)
+    (setq buffer-read-only t)))
+
+(defun w3m-session-select-next (&optional arg)
+  "Move the point to the next session."
+  (interactive "p")
+  (unless arg (setq arg 1))
+  (let ((positive (< 0 arg))
+	(inhibit-read-only t))
+    (beginning-of-line)
+    (put-text-property (point)
+		       (next-single-property-change
+			(point) 'w3m-session-number)
+		       'face 'w3m-session-select)
+    (while (not (zerop arg))
+      (forward-line (if positive 1 -1))
+      (unless (get-text-property (point) 'w3m-session-number)
+	(if positive
+	    (goto-char (next-single-property-change
+			(point-min) 'w3m-session-number))
+	  (goto-char (previous-single-property-change
+		      (point-max) 'w3m-session-number))))
+      (setq arg (if positive
+		    (1- arg)
+		  (1+ arg))))
+    (beginning-of-line)
+    (put-text-property (point)
+		       (next-single-property-change
+			(point) 'w3m-session-number)
+		       'face 'w3m-session-selected)
+    (set-buffer-modified-p nil)))
+
+(defun w3m-session-select-previous (&optional arg)
+  "the point to the previous session."
+  (interactive "p")
+  (w3m-session-select-next (- arg)))
+
+(defun w3m-session-select-quit ()
+  "Exit from w3m session select mode."
+  (interactive)
+  (let ((buffer (current-buffer))
+	(wincfg w3m-session-select-wincfg))
+    (or (one-window-p) (delete-window))
+    (kill-buffer buffer)
+    (set-window-configuration wincfg)))
+
+(defun w3m-session-select-select ()
+  "Select the session."
+  (interactive)
+  (beginning-of-line)
+  (let* ((num (get-text-property
+	       (point) 'w3m-session-number))
+	 (item (if (consp num) 
+		   (nth (cdr num)
+			(caddr (nth (car num) 
+				    w3m-session-select-sessions)))
+		 (nth num w3m-session-select-sessions)))
+	 (session (if (consp num)
+		      (list (or (cadddr item) w3m-session-unknown-title)
+			    nil
+			    (list item) 
+			    nil)
+		    item)))
+    (w3m-session-select-quit)
+    (w3m-session-goto-session session)))
+
+(defun w3m-session-select-open-session-group ()
+  "Open the session group."
+  (interactive)
+  (beginning-of-line)
+  (let ((num (get-text-property
+	      (point) 'w3m-session-number))
+	wheight)
+    (if (consp num)
+	(message "There is no session group.")
+      (setq wheight 
+	    (max (+ (length (caddr (nth num w3m-session-select-sessions))) 6)
+		 window-min-height))
+      (condition-case nil
+	  (enlarge-window (- wheight (window-height)))
+	(error nil))
+      (w3m-session-select-list-session-group num))))
+
+(defun w3m-session-select-save ()
+  "Save the session."
+  (interactive)
+  (when (y-or-n-p "Save this sessions? ")
+    (w3m-session-select-quit)
+    (w3m-session-save)
+    (w3m-session-select)))
+
+(defun w3m-session-select-rename ()
+  "Rename this session."
+  (interactive)
+  (beginning-of-line)
+  (let ((num (get-text-property
+	      (point) 'w3m-session-number))
+	(sessions w3m-session-select-sessions))
+    (w3m-session-select-quit)
+    (w3m-session-rename sessions num)
+    (w3m-session-select)))
+
+(defun w3m-session-select-delete ()
+  "Delete the session."
+  (interactive)
+  (when (y-or-n-p "Delete this session? ")
+    (beginning-of-line)
+    (let ((num (get-text-property
+		(point) 'w3m-session-number))
+	  (sessions w3m-session-select-sessions))
+      (w3m-session-select-quit)
+      (w3m-session-delete sessions num)
+      (w3m-session-select))))
+
+;;;###autoload
+(defun w3m-session-select ()
+  "Select session from session list."
+  (interactive)
+  (w3m-session-ignore-errors
+   (let* ((sessions (w3m-load-list w3m-session-file))
+	  (showbuf (w3m-get-buffer-create " *w3m-session select*"))
+	  (wheight (max (+ (length sessions) 5) window-min-height))
+	  (wincfg (current-window-configuration))
+	  window last-window)
+     (setq last-window (previous-window
+			(w3m-static-if (fboundp 'frame-highest-window)
+			    (frame-highest-window)
+			  (frame-first-window))))
+     (while (minibuffer-window-active-p last-window)
+       (setq last-window (previous-window last-window)))
+     (while (and
+	     (not (one-window-p))
+	     (or (< (window-width last-window)
+		    (frame-width))
+		 (< (window-height last-window)
+		    (+ wheight window-min-height))))
+       (setq window last-window)
+       (setq last-window (previous-window window))
+       (delete-window window))
+     (select-window (split-window last-window))
+     (condition-case nil
+	 (shrink-window (- (window-height) wheight))
+       (error nil))
+     (switch-to-buffer showbuf)
+     (setq w3m-session-select-wincfg wincfg)
+     (w3m-session-select-mode sessions))))
+
+(defun w3m-session-goto-session (session)
+  "Goto URLs."
+  (let ((title (nth 0 session))
+	(urls (nth 2 session))
+	(cnum (nth 3 session))
+	(i 0)
+	(w3m-async-exec (and w3m-async-exec-with-many-urls w3m-async-exec))
+	url cbuf buf pos history)
+    (message "Session goto(%s)..." title)
+    (while (setq url (car urls))
+      (setq urls (cdr urls))
+      (unless (stringp url)
+	(setq pos     (nth 1 url)
+	      history (nth 2 url)
+	      url     (nth 0 url)))
+      (w3m-goto-url-new-session url)
+      (setq buf (car (nreverse (w3m-list-buffers))))
+      (when (or (and (numberp cnum) (= cnum i))
+		(and (not cnum) (= i 0)))
+	(setq cbuf buf))
+      (when (and buf pos history)
+	(set-buffer buf)
+	(setq w3m-history-flat history)
+	(w3m-history-tree pos))
+      (setq i (1+ i)))
+    (when (and cbuf (eq major-mode 'w3m-mode))
+      (set-window-buffer (selected-window) cbuf))
+    (message "Session goto(%s)...done" title)))
+
+(defun w3m-session-rename (sessions num)
+    (if (consp num)
+	(message "This command can execute in Main session area")
+      (let ((prompt "New session title: ")
+	    (overwrite nil)
+	    tmp title otitle)
+	(setq tmp (nth num sessions))
+	(setq otitle (car tmp))
+	(setq title otitle)
+	(catch 'loop
+	  (while t
+	    (setq title (read-from-minibuffer prompt otitle))
+	    (cond
+	     ((string= title "")
+	      nil)
+	     ((string= title otitle)
+	      (when (y-or-n-p
+		     (format "\"%s\" is same as original title. Do not rename? "
+			     title))
+		(throw 'loop t)))
+	     ((assoc title sessions)
+	      (when (y-or-n-p (format "\"%s\" is exist. Overwrite? " title))
+		(setq overwrite t)
+		(throw 'loop t))))
+	    (setq prompt "Again New session title: ")))
+	(when overwrite
+	  (setq sessions (delete (assoc title sessions) sessions)))
+	(unless (string= title otitle)
+	  (setq sessions (delete tmp sessions))
+	  (setcar tmp title)
+	  (setq sessions (cons tmp sessions))
+	  (w3m-save-list w3m-session-file sessions)))))
+
+(defun w3m-session-delete (sessions num)
+  (let (tmp)
+    (if (consp num)
+	(let ((item (nth 2 (nth (car num) sessions))))
+	  (setq tmp (delete (nth (cdr num) item)
+			    item))
+	  (setf (nth 2 (nth (car num) sessions))
+		tmp))
+      (setq tmp (nth num sessions))
+      (setq sessions (delete tmp sessions)))
+    (if sessions
+	(w3m-save-list w3m-session-file sessions)
+      (let ((file (expand-file-name w3m-session-file)))
+	(when (and (file-exists-p file)
+		   (file-writable-p file))
+	  (delete-file file))))))
+
+(defvar w3m-session-menu-items
+  `([,(w3m-make-menu-item "$B?7$7$$%;%C%7%g%s$r:n$k(B..."
+			  "Create New Session...")
+     w3m-goto-new-session-url t]
+    [,(w3m-make-menu-item "$B$3$N%;%C%7%g%s$rJ#@=$9$k(B" "Copy This Session")
+     w3m-copy-buffer w3m-current-url]
+    "----" ;; separator
+    [,(w3m-make-menu-item "$BA0$N%;%C%7%g%s$K0\F0$9$k(B"
+			  "Move Previous Session")
+     w3m-previous-buffer
+     (> (safe-length (w3m-list-buffers)) 1)]
+    [,(w3m-make-menu-item "$B<!$N%;%C%7%g%s$K0\F0$9$k(B" "Move Next Session")
+     w3m-next-buffer
+     (> (safe-length (w3m-list-buffers)) 1)]
+    "----" ;; separator
+    [,(w3m-make-menu-item "$B$3$N%;%C%7%g%s$rJD$8$k(B" "Close This Session")
+     w3m-delete-buffer
+     (> (safe-length (w3m-list-buffers)) 1)]
+    [,(w3m-make-menu-item "$BB>$N%;%C%7%g%s$rJD$8$k(B" "Close Other Sessions")
+     w3m-delete-other-buffers
+     (> (safe-length (w3m-list-buffers)) 1)]
+    [,(w3m-make-menu-item "$B8=:_$N%;%C%7%g%s$rJ]B8$9$k(B"
+			  "Save Displayed Sessions")
+     w3m-session-save t]
+    [,(w3m-make-menu-item "$B%;%C%7%g%s$rA*Br$9$k(B" "Select Sessions")
+     w3m-session-select t])
+    "*List of the session menu items.")
+
+;;;###autoload
+(defun w3m-setup-session-menu ()
+  "Setup w3m session items in menubar."
+  (w3m-static-if (featurep 'xemacs)
+      (unless (car (find-menu-item current-menubar '("Session")))
+	(easy-menu-define w3m-session-menu w3m-mode-map
+	  "" '("Session" ["(empty)" ignore nil]))
+	(easy-menu-add w3m-session-menu)
+	(add-hook 'activate-menubar-hook 'w3m-session-menubar-update))
+    (unless (lookup-key w3m-mode-map [menu-bar Session])
+      (easy-menu-define w3m-session-menu w3m-mode-map "" '("Session"))
+      (easy-menu-add w3m-session-menu)
+      (add-hook 'menu-bar-update-hook 'w3m-session-menubar-update))))
+
+(defvar w3m-session-menu-items-pre nil)
+(defvar w3m-session-menu-items-time nil)
+
+(defun w3m-session-menubar-update ()
+  "Update w3m session menubar."
+  (when (and (eq major-mode 'w3m-mode)
+	     (w3m-static-if (featurep 'xemacs)
+		 (frame-property (selected-frame) 'menubar-visible-p)
+	       menu-bar-mode))
+    (let ((items w3m-session-menu-items)
+	  (pages (w3m-session-make-menu-items)))
+      (easy-menu-define w3m-session-menu w3m-mode-map
+	"The menu kepmap for the emacs-w3m session."
+	(cons "Session" (if pages
+			     (append items '("----") pages)
+			   items)))
+      (w3m-static-when (featurep 'xemacs)
+	(when (setq items (car (find-menu-item current-menubar '("Session"))))
+	  (setcdr items (cdr w3m-session-menu))
+	  (set-buffer-menubar current-menubar))))))
+
+(defun w3m-session-file-modtime ()
+  "Return the modification time of the session file `w3m-session-file'.
+The value is a list of two time values `(HIGH LOW)' if the session
+file exists, otherwise nil."
+  (nth 5 (file-attributes w3m-session-file)))
+
+(defvar w3m-session-make-item-xmas
+  (and (equal "Japanese" w3m-language) (featurep 'xemacs)))
+
+(defun w3m-session-make-item (item)
+  (if w3m-session-make-item-xmas
+      (concat item "%_ ")
+    item))
+
+(defun w3m-session-make-menu-items ()
+  "Create w3m session menu items."
+  (if (and w3m-session-menu-items-pre
+	   w3m-session-menu-items-time
+	   (equal w3m-session-menu-items-time
+		  (w3m-session-file-modtime)))
+      w3m-session-menu-items-pre
+    (w3m-session-ignore-errors
+     (let ((sessions (w3m-load-list w3m-session-file)))
+       (setq w3m-session-menu-items-time (w3m-session-file-modtime))
+       (setq w3m-session-menu-items-pre
+	     (and sessions
+		  (mapcar
+		   (lambda (entry)
+		     (cons (w3m-session-make-item (car entry))
+			   (cons (vector "Open all sessions"
+					 `(w3m-session-goto-session
+					   (quote ,entry)))
+				 (mapcar
+				  (lambda (item)
+				    (let ((title
+					   (w3m-session-make-item
+					    (or (nth 3 item)
+						w3m-session-unknown-title))))
+				      (vector
+				       title
+				       `(w3m-session-goto-session
+					 (quote
+					  ,(list title
+						 nil
+						 (list item)
+						 nil))))))
+				  (nth 2 entry)))))
+		   sessions)))))))
+
+;;;###autoload
+(defun w3m-session-last-autosave-session ()
+  (when w3m-session-load-last-sessions
+    (w3m-session-ignore-errors
+     (let ((item
+	    (let ((sessions (w3m-load-list w3m-session-file))
+		  (n 1) x)
+	      (catch 'loop
+		(while t
+		  (if (< w3m-session-automatic-keep-number n)
+		      (throw 'loop nil)
+		    (setq x (assoc (format "%s-%d"
+					   w3m-session-automatic-title n)
+				   sessions))
+		    (when x (throw 'loop x)))
+		  (setq n (1+ n)))))))
+       (when (and item
+		  (or (and (eq w3m-session-load-last-sessions 'ask)
+			   (y-or-n-p "Load the last sessions? "))
+		      w3m-session-load-last-sessions))
+	 item)))))
+
+;;;###autoload
+(defun w3m-session-last-crashed-session ()
+  (when (and w3m-session-crash-recovery w3m-session-load-crashed-sessions)
+    (w3m-session-ignore-errors
+     (let ((item (assoc w3m-session-crash-recovery-title
+			(w3m-load-list w3m-session-file))))
+       (when (and item
+		  (or (and (eq w3m-session-load-crashed-sessions 'ask)
+			   (y-or-n-p "Load the crashed sessions? "))
+		      (eq w3m-session-load-crashed-sessions t)))
+	 item)))))
+
+(provide 'w3m-session)
+
+;;; w3m-session.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-symbol.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,230 @@
+;;; w3m-symbol.el --- Stuffs to replace symbols for emacs-w3m -*- coding: iso-2022-7bit; -*-
+
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2009
+;; ARISAWA Akihiro <[e-mail]>
+
+;; Author: ARISAWA Akihiro <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia, i18n
+
+;; This file 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 file 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(eval-when-compile
+  (defvar w3m-output-coding-system)
+  (defvar w3m-language)
+  (defvar w3m-use-symbol)
+  (autoload 'w3m-mule-unicode-p "w3m"))
+
+(defgroup w3m-symbol nil
+  "Symbols for w3m"
+  :group 'w3m)
+
+(defvar w3m-symbol-custom-type
+  '(list
+    :convert-widget w3m-widget-type-convert-widget
+    (let* ((w `(sexp :match (lambda (widget value) (stringp value))
+		     :size 4 :value ""
+		     ,@(if (not (widget-get widget :copy))
+			   ;; Emacs versions prior to 22.
+			   '(:value-to-internal
+			     (lambda (widget value)
+			       (if (string-match "\\`\".*\"\\'" value)
+				   value
+				 (prin1-to-string value)))))))
+	   (a `(,@w :format "%v "))
+	   (b `(,@w :format "%v\n"))
+	   (c (list a a a a a a a b))
+	   (d (list a a a a a b)))
+      `(:indent 4 :tag "Customize"
+		,@c ,@c ,@c ,@c ,@d ,@d ,b ,b))))
+
+(defcustom w3m-default-symbol
+  '("-+" " |" "--" " +" "-|" " |" "-+" ""
+    "--" " +" "--" ""   "-+" ""   ""   ""
+    "-+" " |" "--" " +" "-|" " |" "-+" ""
+    "--" " +" "--" ""   "-+" ""   ""   ""
+    " *" " +" " o" " #" " @" " -"
+    " =" " x" " %" " *" " o" " #"
+    " #"
+    "<=UpDn ")
+  "List of symbol string, used by defaultly."
+  :group 'w3m-symbol
+  :type w3m-symbol-custom-type)
+
+(defcustom w3m-Chinese-BIG5-symbol
+  '("$(0#3(B" "$(0#7(B" "$(0#5(B" "$(0#<(B" "$(0#6(B" "$(0#:(B" "$(0#=(B" ""
+    "$(0#4(B" "$(0#>(B" "$(0#9(B" ""   "$(0#?(B" ""   ""   ""
+    "$(0#3(B" "$(0#7(B" "$(0#5(B" "$(0#<(B" "$(0#6(B" "$(0#:(B" "$(0#=(B" ""
+    "$(0#4(B" "$(0#>(B" "$(0#9(B" ""   "$(0#?(B" ""   ""   ""
+    "$(0!&(B" "$(0!{(B" "$(0!w(B" "$(0!r(B" "$(0!|(B" "$(0!x(B"
+    "$(0!v(B" "$(0!s(B" "$(0!t(B" "$(0!s(B" "$(0!r(B" "$(0!{(B"
+    "$(0!s(B"
+    "$(0!N"U"V(B")
+  "List of symbol string, used in Chienese-BIG5 environment."
+  :group 'w3m-symbol
+  :type w3m-symbol-custom-type)
+
+(defcustom w3m-Chinese-CNS-symbol
+  '("$(G#3(B" "$(G#7(B" "$(G#5(B" "$(G#<(B" "$(G#6(B" "$(G#:(B" "$(G#=(B" ""
+    "$(G#4(B" "$(G#>(B" "$(G#9(B" ""   "$(G#?(B" ""   ""   ""
+    "$(G#3(B" "$(G#7(B" "$(G#5(B" "$(G#<(B" "$(G#6(B" "$(G#:(B" "$(G#=(B" ""
+    "$(G#4(B" "$(G#>(B" "$(G#9(B" ""   "$(G#?(B" ""   ""   ""
+    "$(G!&(B" "$(G!{(B" "$(G!w(B" "$(G!r(B" "$(G!|(B" "$(G!x(B"
+    "$(G!v(B" "$(G!s(B" "$(G!t(B" "$(G!s(B" "$(G!r(B" "$(G!{(B"
+    "$(G!s(B"
+    "$(G!N"U"V(B")
+  "List of symbol string, used in Chienese-CNS environment."
+  :group 'w3m-symbol
+  :type w3m-symbol-custom-type)
+
+(defcustom w3m-Chinese-GB-symbol
+  '("$A)`(B" "$A)@(B" "$A)P(B" "$A)0(B" "$A)H(B" "$A)&(B" "$A)4(B" ""
+    "$A)X(B" "$A)8(B" "$A)$(B" ""   "$A)<(B" ""   ""   ""
+    "$A)`(B" "$A)D(B" "$A)S(B" "$A)3(B" "$A)L(B" "$A)'(B" "$A)7(B" ""
+    "$A)[(B" "$A);(B" "$A)%(B" ""   "$A)?(B" ""   ""   ""
+    "$A!$(B" "$A!u(B" "$A!n(B" "$A!p(B" "$A!v(B" "$A!o(B"
+    "$A!r(B" "$A!q(B" "$A!w(B" "$A!q(B" "$A!p(B" "$A!u(B"
+    "$A!q(B"
+    "$A!6!|!}(B")
+  "List of symbol string, used in Chienese-GB environment."
+  :group 'w3m-symbol
+  :type w3m-symbol-custom-type)
+
+(defcustom w3m-Japanese-symbol
+  '("$B(+(B" "$B('(B" "$B(((B" "$B(#(B" "$B()(B" "$B("(B" "$B($(B" ""
+    "$B(*(B" "$B(&(B" "$B(!(B" ""   "$B(%(B" ""   ""   ""
+    "$B(+(B" "$B(7(B" "$B(8(B" "$B(.(B" "$B(9(B" "$B(-(B" "$B(/(B" ""
+    "$B(:(B" "$B(1(B" "$B(,(B" ""   "$B(0(B" ""   ""   ""
+    "$B!&(B" "$B""(B" "$B!y(B" "$B!{(B" "$B"#(B" "$B!z(B"
+    "$B!}(B" "$B!|(B" "$B"$(B" "$B!|(B" "$B!{(B" "$B""(B"
+    "$B!|(B"
+    "$B"c","-(B")
+  "List of symbol string, used in Japanese environment."
+  :group 'w3m-symbol
+  :type w3m-symbol-custom-type)
+
+(defcustom w3m-Korean-symbol
+  '("$(C&+(B" "$(C&'(B" "$(C&((B" "$(C&#(B" "$(C&)(B" "$(C&"(B" "$(C&$(B" ""
+    "$(C&*(B" "$(C&&(B" "$(C&!(B" ""   "$(C&%(B" ""   ""   ""
+    "$(C&+(B" "$(C&7(B" "$(C&8(B" "$(C&.(B" "$(C&9(B" "$(C&-(B" "$(C&/(B" ""
+    "$(C&:(B" "$(C&1(B" "$(C&,(B" ""   "$(C&0(B" ""   ""   ""
+    "$(C!$(B" "$(C!`(B" "$(C!Y(B" "$(C![(B" "$(C!a(B" "$(C!Z(B"
+    "$(C!](B" "$(C!\(B" "$(C!b(B" "$(C!\(B" "$(C![(B" "$(C!`(B"
+    "$(C!\(B"
+    "$(C!l!h!i(B")
+  "List of symbol string, used in Korean environment."
+  :group 'w3m-symbol
+  :type w3m-symbol-custom-type)
+
+(defcustom w3m-mule-unicode-symbol
+  (when (w3m-mule-unicode-p)
+    (append
+     (mapcar (lambda (p)
+	       (if p
+		   (char-to-string
+		    (make-char (or (nth 2 p) 'mule-unicode-2500-33ff)
+			       (car p) (cadr p)))
+		 ""))
+	     '((32 92) (32 60) (32 76) (32 44) (32 68) (32 34) (32 48) nil
+	       (32 84) (32 52) (32 32) nil     (32 56) nil     nil     nil
+	       (32 92) (32 64) (32 79) (32 47) (32 72) (32 35) (32 51) nil
+	       (32 87) (32 55) (32 33) nil     (32 59) nil     nil     nil
+	       (115 34 mule-unicode-0100-24ff) (33 97) (34 102) (34 43) (33 96) (34 101)
+	       (34 46) (34 47) (33 115) (34 47) (34 43) (33 97)
+	       (34 47)))
+     (list (format "%c %c %c "
+		   (make-char 'mule-unicode-0100-24ff 121 42)
+		   (make-char 'mule-unicode-0100-24ff 118 113)
+		   (make-char 'mule-unicode-0100-24ff 118 115)))))
+  "List of symbol string, using mule-unicode characters."
+  :group 'w3m-symbol
+  :type (if (w3m-mule-unicode-p)
+	    w3m-symbol-custom-type
+	  '(const :format "%{%t%}: %v")))
+
+(defcustom w3m-symbol nil
+  "List of symbol string."
+  :group 'w3m-symbol
+  :type `(radio (const :format "Auto detect  " nil)
+		(const :tag "Default" w3m-default-symbol)
+		(const :format "Chinese BIG5 " w3m-Chinese-BIG5-symbol)
+		(const :format "Chinese CNS " w3m-Chinese-CNS-symbol)
+		(const :tag "Chinese GB" w3m-Chinese-GB-symbol)
+		(const :format "Japanese     " w3m-Japanese-symbol)
+		(const :format "Korean      " w3m-Korean-symbol)
+		,@(when w3m-mule-unicode-symbol
+		   '((const :tag "Mule-Unicode" w3m-mule-unicode-symbol)))
+		(variable :format "%t symbol: %v\n" :size 0
+			  :value w3m-default-symbol)
+		,w3m-symbol-custom-type))
+
+(defun w3m-use-symbol ()
+  (cond ((functionp w3m-use-symbol)
+	 (funcall w3m-use-symbol))
+	(t w3m-use-symbol)))
+
+(eval-when-compile (defvar current-language-environment))
+
+(defun w3m-symbol ()
+  (cond (w3m-symbol
+	 (if (symbolp w3m-symbol)
+	     (symbol-value w3m-symbol)
+	   w3m-symbol))
+	((and (eq w3m-output-coding-system 'utf-8)
+	      w3m-mule-unicode-symbol))
+	((let ((lang (or w3m-language
+			 (and (boundp 'current-language-environment)
+			      current-language-environment
+			      ;; In XEmacs 21.5 it may be the one like
+			      ;; "Japanese (UTF-8)".
+			      (if (string-match "[\t ]+("
+						current-language-environment)
+				  (substring current-language-environment
+					     0 (match-beginning 0))
+				current-language-environment)))))
+	   (when (boundp (intern (format "w3m-%s-symbol" lang)))
+	     (symbol-value (intern (format "w3m-%s-symbol" lang))))))
+	(t w3m-default-symbol)))
+
+;;;###autoload
+(defun w3m-replace-symbol ()
+  (when (w3m-use-symbol)
+    (let ((symbol-list (w3m-symbol)))
+      (save-excursion
+	(goto-char (point-min))
+	(while (re-search-forward "<_SYMBOL TYPE=\\([0-9]+\\)>" nil t)
+	  (let ((symbol (nth (string-to-number (match-string 1)) symbol-list))
+		(start (point))
+		end symbol-cnt)
+	    (search-forward "</_SYMBOL>" nil t)
+	    (setq end (match-beginning 0)
+		  symbol-cnt (/ (string-width (buffer-substring start end))
+				(string-width symbol)))
+	    (goto-char start)
+	    (delete-region start end)
+	    (insert (apply 'concat (make-list symbol-cnt symbol)))))))))
+
+(provide 'w3m-symbol)
+
+;;; w3m-symbol.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-tabmenu.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,188 @@
+;;; w3m-tabmenu.el --- Functions for TAB menu browsing
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: Hideyuki SHIRAI    <[e-mail]>,
+;;          TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file contains the functions for TAB browsing.  For more detail
+;; about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+(require 'w3m-util)
+(require 'w3m)
+(require 'easymenu)
+
+(defun w3m-setup-tab-menu ()
+  "Setup w3m tab menubar."
+  (when w3m-use-tab-menubar
+    (w3m-static-if (featurep 'xemacs)
+	(unless (car (find-menu-item current-menubar '("Tab")))
+	  (easy-menu-define w3m-tab-menu w3m-mode-map
+	    "" '("Tab" ["dummy" w3m-switch-buffer t]))
+	  (easy-menu-add w3m-tab-menu)
+	  (add-hook 'activate-menubar-hook 'w3m-tab-menubar-update))
+      (unless (lookup-key w3m-mode-map [menu-bar Tab])
+	(easy-menu-define w3m-tab-menu w3m-mode-map "" '("Tab"))
+	(easy-menu-add w3m-tab-menu)
+	(add-hook 'menu-bar-update-hook 'w3m-tab-menubar-update)))))
+
+(defun w3m-switch-buffer ()
+  "Switch `w3m-mode' buffer in the current window."
+  (interactive)
+  (let ((items (w3m-tab-menubar-make-items 'nomenu))
+	(minibuffer-setup-hook
+	 (append minibuffer-setup-hook '(beginning-of-line)))
+	(count 1)
+	(form "%s [%s]")
+	(completion-ignore-case t)
+	comp hist histlen default buf)
+    (dolist (item items)
+      (when (nth 2 item)	;; current-buffer
+	(setq default count))
+      (setq comp (cons
+		  (cons
+		   (format form (nth 1 item) (nth 0 item)) (nth 0 item))
+		  comp))
+      (setq hist (cons (format form (nth 1 item) (nth 0 item)) hist))
+      (setq count (1+ count)))
+    (setq comp (nreverse comp))
+    (setq histlen (length hist))
+    (setq hist (append hist hist hist hist hist)) ;; STARTPOS at 3rd hist
+    (setq buf
+	  (completing-read
+	   "Switch to w3m buffer: "
+	   comp nil t (car (nth (1- default) comp))
+	   (cons 'hist (+ (* 3 histlen) (- histlen default -1)))
+	   (car (nth (1- default) comp))))
+    (setq buf (cdr (assoc buf comp)))
+    (when (get-buffer buf)
+      (switch-to-buffer buf))))
+
+(defun w3m-tab-menubar-open-item (buf)
+  "Open w3m buffer from tab menubar."
+  (interactive)
+  (when (get-buffer buf)
+    (switch-to-buffer buf)))
+
+(defun w3m-tab-menubar-update ()
+  "Update w3m tab menubar."
+  (when (and (eq major-mode 'w3m-mode)
+	     (w3m-static-if (featurep 'xemacs)
+		 (frame-property (selected-frame) 'menubar-visible-p)
+	       menu-bar-mode))
+    (easy-menu-define w3m-tab-menu w3m-mode-map
+      "The menu kepmap for the emacs-w3m tab."
+      (cons "Tab" (w3m-tab-menubar-make-items)))
+    (w3m-static-when (featurep 'xemacs)
+      (let ((items (car (find-menu-item current-menubar '("Tab")))))
+	(when items
+	  (setcdr items (cdr w3m-tab-menu))
+	  (set-buffer-menubar current-menubar))))))
+
+(defvar w3m-tab-menubar-items-sub-coeff 30) ;; 30?
+(defvar w3m-tab-menubar-items-width 50) ;; 50?
+
+(defun w3m-tab-menubar-make-items-1 (buffers &optional nomenu)
+  (let ((i 0)
+	(current (current-buffer))
+	(width w3m-tab-menubar-items-width)
+	title unseen)
+    (mapcar
+     (lambda (buffer)
+       (if nomenu
+	   (list (buffer-name buffer)
+		 (format "%s%s"
+			 (if (w3m-unseen-buffer-p buffer) "(u)" "")
+			 (w3m-buffer-title buffer))
+		 (eq buffer current))
+	 (setq title (w3m-buffer-title buffer))
+	 (setq unseen (w3m-unseen-buffer-p buffer))
+	 (when (>= (string-width title) width)
+	   (setq title
+		 (concat (w3m-truncate-string title
+					      (- width 3))
+			 "...")))
+	 (vector (format "%d:%s%s"
+			 (incf i)
+			 (cond ((eq buffer current) "* ")
+			       (unseen "u ")
+			       (t "  "))
+			 title)
+		 `(w3m-tab-menubar-open-item ,(buffer-name buffer))
+		 buffer)))
+     buffers)))
+
+(defvar w3m-tab-menubar-make-items-precbuf nil)
+(defvar w3m-tab-menubar-make-items-prebuflst nil)
+(defvar w3m-tab-menubar-make-items-preurl nil)
+(defvar w3m-tab-menubar-make-items-preitems nil)
+
+(defun w3m-tab-menubar-force-update (&rest args)
+  (setq w3m-tab-menubar-make-items-preitems nil)
+  (w3m-tab-menubar-update))
+
+(add-hook 'w3m-display-functions 'w3m-tab-menubar-force-update)
+
+(defun w3m-tab-menubar-make-items (&optional nomenu)
+  "Create w3m tab menu items."
+  (let (menu buflst total max)
+    (if nomenu
+	(w3m-tab-menubar-make-items-1 (w3m-list-buffers) t)
+      (setq w3m-tab-button-menu-current-buffer (current-buffer))
+      (setq buflst (w3m-list-buffers))
+      (if (and w3m-tab-menubar-make-items-preitems
+	       (eq w3m-tab-button-menu-current-buffer
+		   w3m-tab-menubar-make-items-precbuf)
+	       (equal w3m-tab-menubar-make-items-prebuflst buflst)
+	       (equal w3m-tab-menubar-make-items-preurl w3m-current-url))
+	  w3m-tab-menubar-make-items-preitems
+	(setq w3m-tab-menubar-make-items-precbuf
+	      w3m-tab-button-menu-current-buffer)
+	(setq w3m-tab-menubar-make-items-prebuflst buflst)
+	(setq w3m-tab-menubar-make-items-preurl w3m-current-url)
+	(setq total (length buflst))
+	(setq max (- (frame-height (selected-frame))
+		     w3m-tab-menubar-items-sub-coeff))
+	(if (< total max)
+	    (setq menu (w3m-tab-menubar-make-items-1 buflst))
+	  (setq menu (list `(,(w3m-make-menu-item "¥¿¥Ö¤ÎÁªÂò"
+						  "Select TAB")
+			     ,@(w3m-tab-menubar-make-items-1 buflst)))))
+	(setq w3m-tab-menubar-make-items-preitems
+	      (append menu
+		      '("-")
+		      '("-")
+		      (w3m-make-menu-commands
+		       w3m-tab-button-menu-commands)))))))
+
+(provide 'w3m-tabmenu)
+
+;;; w3m-tabmenu.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-ucs.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,109 @@
+;;; w3m-ucs.el --- CCL programs to process Unicode.
+
+;; Copyright (C) 2001, 2005, 2007 TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>,
+;;          ARISAWA Akihiro <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This file contains CCL codes to handle UCS characters in emacs-w3m.
+;; For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+;; This module requires `Mule-UCS' package.  It can be downloaded from:
+;;
+;;    ftp://ftp.m17n.org/pub/mule/Mule-UCS/
+
+;;; Code:
+
+;; Enable XEmacs 21.5-Mule to compile this module anyway.
+(eval-when-compile
+  (if (featurep 'xemacs)
+      (let ((mucs-ignore-version-incompatibilities t))
+	(defvar font-ccl-encoder-alist nil)
+	(require 'un-define))))
+
+(require 'un-define)
+(require 'w3m-ccl)
+
+(eval-and-compile
+  (autoload 'w3m-make-ccl-coding-system "w3m"))
+
+(defun w3m-ucs-to-char (codepoint)
+  (condition-case nil
+      (or (ucs-to-char codepoint) ?~)
+    (error ?~)))
+
+(eval-and-compile
+  (defconst w3m-ccl-get-ucs-codepoint-with-mule-ucs
+    '(;; (1) Convert a set of r1 (charset-id) and r0 (codepoint) to a
+      ;; character in Emacs internal representation.
+      (if (r0 > 255)
+	  ((r4 = (r0 & 127))
+	   (r0 = (((r0 >> 7) * 96) + r4))
+	   (r0 |= (r1 << 16)))
+	((r0 |= (r1 << 16))))
+      ;; (2) Convert a character in Emacs to a UCS codepoint.
+      (call emacs-char-to-ucs-codepoint-conversion)
+      (if (r0 <= 0)
+	  (write-repeat ?~)))		; unknown character.
+    "CCL program to convert multibyte char to ucs with Mule-UCS."))
+
+(define-ccl-program w3m-euc-japan-mule-ucs-encoder
+  `(4
+    (loop
+     ,@w3m-ccl-write-euc-japan-character
+     ,@w3m-ccl-get-ucs-codepoint-with-mule-ucs
+     ,@w3m-ccl-generate-ncr)))
+
+(w3m-make-ccl-coding-system
+ 'w3m-euc-japan-mule-ucs ?E
+ "ISO 2022 based EUC encoding for Japanese with w3m internal characters.
+A character that can not be encoded with `euc-japan' is converted to a
+UCS codepoint with Mule-UCS, and the codepoint is represented as a
+string which represents the character in Numeric Character
+References (NCR).
+  (generated by `w3m')"
+ 'w3m-euc-japan-decoder
+ 'w3m-euc-japan-mule-ucs-encoder)
+
+(define-ccl-program w3m-iso-latin-1-mule-ucs-encoder
+  `(4
+    (loop
+     ,@w3m-ccl-write-iso-latin-1-character
+     ,@w3m-ccl-get-ucs-codepoint-with-mule-ucs
+     ,@w3m-ccl-generate-ncr)))
+
+(w3m-make-ccl-coding-system
+ 'w3m-iso-latin-1-mule-ucs ?1
+ "ISO 2022 based 8-bit encoding for Latin-1 with w3m internal characters.
+A character that can not be encoded with `iso-latin-1' is converted to
+a UCS codepoint with Mule-UCS, and the codepoint is represented as a
+string which represents the character in Numeric Character
+References (NCR).
+  (generated by `w3m')"
+ 'w3m-iso-latin-1-decoder
+ 'w3m-iso-latin-1-mule-ucs-encoder)
+
+(provide 'w3m-ucs)
+;;; w3m-ucs.el ends here.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-util.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,1421 @@
+;;; w3m-util.el --- Utility macros and functions for emacs-w3m
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>,
+;;          Shun-ichi GOTO     <[e-mail]>,
+;;          Satoru Takabayashi <[e-mail]>,
+;;          Hideyuki SHIRAI    <[e-mail]>,
+;;          Keisuke Nishida    <[e-mail]>,
+;;          Yuuichi Teranishi  <[e-mail]>,
+;;          Akihiro Arisawa    <[e-mail]>,
+;;          Katsumi Yamaoka    <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; This module is a part of emacs-w3m which provides utility macros
+;; and inline functions.  Visit <URL:http://emacs-w3m.namazu.org/> for
+;; more details of emacs-w3m.
+
+;;; Code:
+
+(eval-when-compile
+  (require 'cl))
+
+;; Variables and functions which are used in the following inline
+;; functions.  They should be defined in the other module at run-time.
+(eval-when-compile
+  (defvar w3m-current-process)
+  (defvar w3m-current-refresh)
+  (defvar w3m-current-title)
+  (defvar w3m-current-url)
+  (defvar w3m-fb-list-buffers-frame)
+  (defvar w3m-fb-mode)
+  (defvar w3m-mode-hook)
+  (defvar w3m-pop-up-frames)
+  (defvar w3m-pop-up-windows)
+  (defvar w3m-popup-frame-parameters)
+  (defvar w3m-refresh-timer)
+  (defvar w3m-select-buffer-name)
+  (defvar w3m-use-refresh)
+  (defvar w3m-use-tab)
+  (defvar w3m-work-buffer-list)
+  (defvar w3m-use-japanese-menu)
+  (defvar w3m-mode-map)
+  (defvar w3m-use-title-buffer-name)
+  (defvar w3m-buffer-unseen)
+  (defvar w3m-puny-utf-16be)
+  (unless (fboundp 'select-frame-set-input-focus)
+    (defalias 'select-frame-set-input-focus 'ignore)))
+
+(eval-and-compile
+  (when (featurep 'xemacs)
+    (require 'poe)
+    (require 'poem)))
+
+;;; Things should be defined in advance:
+(eval-when-compile
+  (autoload 'w3m-fb-frame-parameter "w3m-fb")
+  (autoload 'w3m-history-restore-position "w3m-hist" nil t))
+
+;;; Control structures:
+
+(defmacro w3m-static-if (cond then &rest else)
+  "Like `if', except that it evaluates COND at compile-time."
+  (if (eval cond) then `(progn  ,@else)))
+(put 'w3m-static-if 'lisp-indent-function 2)
+
+(put 'w3m-static-when 'lisp-indent-function 1)
+(defmacro w3m-static-when (cond &rest body)
+  "Like `when', but evaluate COND at compile time."
+  (if (eval cond)
+      `(progn ,@body)))
+
+(put 'w3m-static-unless 'lisp-indent-function 1)
+(defmacro w3m-static-unless (cond &rest body)
+  "Like `unless', but evaluate COND at compile time."
+  (if (eval cond)
+      nil
+    `(progn ,@body)))
+
+(defmacro w3m-static-cond (&rest clauses)
+  "Like `cond', except that it evaluates CONDITION part of each clause at
+compile-time."
+  (while (and clauses
+	      (not (eval (car (car clauses)))))
+    (setq clauses (cdr clauses)))
+  (if clauses
+      (cons 'progn (cdr (car clauses)))))
+
+(put 'w3m-condition-case lisp-indent-function 2)
+(defmacro w3m-condition-case (var bodyform &rest handlers)
+  "Like `condition-case', except that signal an error if `debug-on-error'
+or `debug-on-quit' is non-nil."
+  `(if (or debug-on-error debug-on-quit)
+       ,bodyform
+     (condition-case ,var
+	 ,bodyform
+       ,@handlers)))
+
+
+;;; Text props:
+
+(defmacro w3m-add-text-properties (start end props &optional object)
+  "Like `add-text-properties' but always add non-sticky properties."
+  (let ((non-stickies
+	 (if (featurep 'xemacs)
+	     ;; Default to start-closed and end-open in XEmacsen.
+	     '(list 'start-open t)
+	   ;; Default to front-nonsticky and rear-sticky in Emacsen.
+	   '(list 'rear-nonsticky t))))
+    `(add-text-properties ,start ,end
+			  (append ,non-stickies ,props)
+			  ,object)))
+
+(defun w3m-add-face-property (start end name &optional object)
+  "Add face NAME to the face text property of the text from START to END.
+The value of the existing text property should be a list.
+If the optional fourth argument OBJECT is a buffer (or nil, which means
+the current buffer), START and END are buffer positions (integers or
+markers).  If OBJECT is a string, START and END are 0-based indices
+into it."
+  (let ((pos start)
+	next prop)
+    (while (< pos end)
+      (setq prop (get-text-property pos 'face object)
+	    next (next-single-property-change pos 'face object end))
+      (w3m-add-text-properties pos next (list 'face (cons name prop)) object)
+      (setq pos next))))
+
+(defun w3m-remove-face-property (start end name &optional object)
+  "Remove face NAME from the face text property of text from START to END.
+The value of the existing text property should be a list.
+If the optional fourth argument OBJECT is a buffer (or nil, which means
+the current buffer), START and END are buffer positions (integers or
+markers).  If OBJECT is a string, START and END are 0-based indices
+into it."
+  (let ((pos start)
+	next prop new-prop elem)
+    (while (< pos end)
+      (setq prop (get-text-property pos 'face object))
+      (setq next (next-single-property-change pos 'face object end))
+      (setq new-prop nil)
+      (while prop
+	(setq elem (pop prop))
+	(unless (eq elem name)
+	  (push elem new-prop)))
+      (when new-prop
+	(w3m-add-text-properties pos next
+				 (list 'face new-prop)))
+      (setq pos next))))
+
+(defmacro w3m-get-text-property-around (prop)
+  "Search for the text property PROP in one character before and behind
+the current position.  Return the value corresponding to PROP or nil.
+If PROP is not found at the current position, point will move to the
+position where PROP exists."
+  `(let ((position (point))
+	 value)
+     (or (get-text-property position ,prop)
+	 (and (not (bolp))
+	      (setq value (get-text-property (1- position) ,prop))
+	      (goto-char (1- position))
+	      value)
+	 (and (not (eolp))
+	      (setq value (get-text-property (1+ position) ,prop))
+	      (goto-char (1+ position))
+	      value))))
+
+(defmacro w3m-action (&optional position)
+  "Return the value of the `w3m-action' property at the given POSITION.
+NOTE: If POSITION is omitted, it searches for the property in one
+character before and behind the current position, and point will move
+to the position where the property exists."
+  (if position
+      `(get-text-property ,position 'w3m-action)
+    `(w3m-get-text-property-around 'w3m-action)))
+
+(defmacro w3m-anchor (&optional position)
+  "Return the value of the `w3m-href-anchor' property at the given POSITION.
+NOTE: If POSITION is omitted, it searches for the property in one
+character before and behind the current position, and point will move
+to the position where the property exists."
+  (if position
+      `(get-text-property ,position 'w3m-href-anchor)
+    `(w3m-get-text-property-around 'w3m-href-anchor)))
+
+(defmacro w3m-image (&optional position)
+  "Return the value of the `w3m-image' property at the given POSITION.
+NOTE: If POSITION is omitted, it searches for the property in one
+character before and behind the current position, and point will move
+to the position where the property exists."
+  (if position
+      `(get-text-property ,position 'w3m-image)
+    `(w3m-get-text-property-around 'w3m-image)))
+
+(defmacro w3m-image-alt (&optional position)
+  "Return the value of the `w3m-image-alt' property at the given POSITION.
+NOTE: If POSITION is omitted, it searches for the property in one
+character before and behind the current position, and point will move
+to the position where the property exists."
+  (if position
+      `(get-text-property ,position 'w3m-image-alt)
+    `(w3m-get-text-property-around 'w3m-image-alt)))
+
+(defmacro w3m-submit (&optional position)
+  "Return the value of the `w3m-submit' property at the given POSITION.
+NOTE: If POSITION is omitted, it searches for the property in one
+character before and behind the current position, and point will move
+to the position where the property exists."
+  (if position
+      `(get-text-property ,position 'w3m-submit)
+    `(w3m-get-text-property-around 'w3m-submit)))
+
+(defmacro w3m-anchor-sequence (&optional position)
+  "Return the value of the `w3m-anchor-sequence' property at POSITION.
+If POSITION is omitted, the current position is assumed."
+  (if position
+      `(get-text-property ,position 'w3m-anchor-sequence)
+    '(get-text-property (point) 'w3m-anchor-sequence)))
+
+
+;;; Attributes:
+
+(eval-and-compile
+  ;; `eval-and-compile' is necessary since the value of the constant
+  ;; is referred to at the compile time.
+  (defconst w3m-html-string-regexp
+    "\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \t\r\f\n]*\\)"
+    "Regexp matching a string of the field-value like <a href=\"VALUE\">."))
+
+(put 'w3m-parse-attributes 'lisp-indent-function '1)
+(def-edebug-spec w3m-parse-attributes
+  ((&rest &or (symbolp &optional symbolp) symbolp) body))
+(defmacro w3m-parse-attributes (attributes &rest forms)
+  "Extract ATTRIBUTES, KEYWORD=\"VALUE\" pairs, in a tag and run FORMS.
+ATTRIBUTES is a list of symbols that looks like `(KEYWORD KEYWORD...)'.
+A symbol KEYWORD, that will express a value extracted from a tag, can
+be used as a Lisp variable within FORMS.  The point has to be within
+a tag initially, and only attributes that follow the point will be
+extracted.
+
+The value of KEYWORD is a string by default, or is nil if the KEYWORD
+is not found in a tag.  KEYWORD can be `(KEYWORD TYPE)', where TYPE is
+one of `:case-ignore', `:integer', `:bool', and `:decode-entity'.
+Those types mean converting the value into a lower-case string,
+an integer, a boolean (t or nil), and a decoded string respectively."
+  `(let (,@(mapcar (lambda (attr)
+		     (if (listp attr)
+			 (car attr)
+		       attr))
+		   attributes))
+     (skip-chars-forward " \t\r\f\n")
+     (while
+	 (cond
+	  ,@(mapcar
+	     (lambda (attr)
+	       (or (symbolp attr)
+		   (and (listp attr)
+			(<= (length attr) 2)
+			(symbolp (car attr)))
+		   (error "Internal error, type mismatch"))
+	       (let ((sexp (quote
+			    (w3m-remove-redundant-spaces
+			     (or (match-string-no-properties 2)
+				 (match-string-no-properties 3)
+				 (match-string-no-properties 1)))))
+		     type)
+		 (when (listp attr)
+		   (setq type (nth 1 attr))
+		   (cond
+		    ((eq type :case-ignore)
+		     (setq sexp (list 'downcase sexp)))
+		    ((eq type :integer)
+		     (setq sexp (list 'string-to-number sexp)))
+		    ((eq type :bool)
+		     (setq sexp t))
+		    ((eq type :decode-entity)
+		     (setq sexp (list 'w3m-decode-entities-string sexp)))
+		    ((nth 1 attr)
+		     (error "Internal error, unknown modifier")))
+		   (setq attr (car attr)))
+		 `((looking-at
+		    ,(if (eq type :bool)
+			 (format "%s\\(?:[ \t\r\f\n]*=[ \t\r\f\n]*%s\\)?"
+				 (symbol-name attr)
+				 w3m-html-string-regexp)
+		       (format "%s[ \t\r\f\n]*=[ \t\r\f\n]*%s"
+			       (symbol-name attr)
+			       w3m-html-string-regexp)))
+		   (setq ,attr ,sexp))))
+	     attributes)
+	  ((looking-at ,(concat "[A-Za-z]*[ \t\r\f\n]*=[ \t\r\f\n]*"
+				w3m-html-string-regexp)))
+	  ((looking-at "[^<> \t\r\f\n]+")))
+       (goto-char (match-end 0))
+       (skip-chars-forward " \t\r\f\n"))
+     (skip-chars-forward "^>")
+     (forward-char)
+     ,@forms))
+
+
+;;; Working buffers:
+
+(defun w3m-get-buffer-create (name)
+  "Return the buffer named NAME, or create such a buffer and return it."
+  (or (get-buffer name)
+      (let ((buf (get-buffer-create name)))
+	(setq w3m-work-buffer-list (cons buf w3m-work-buffer-list))
+	(buffer-disable-undo buf)
+	buf)))
+
+(defun w3m-kill-buffer (buffer)
+  "Kill the buffer BUFFER and remove it from `w3m-work-buffer-list'.
+The argument may be a buffer or may be the name of a buffer.
+An argument of nil means kill the current buffer."
+  (unless buffer
+    (setq buffer (current-buffer)))
+  (when (stringp buffer)
+    (setq buffer (get-buffer buffer)))
+  (when (buffer-live-p buffer)
+    (kill-buffer buffer))
+  (setq w3m-work-buffer-list (delq buffer w3m-work-buffer-list))
+  nil)
+
+(defun w3m-kill-all-buffer ()
+  "Kill all working buffer."
+  (dolist (buf w3m-work-buffer-list)
+    (when (buffer-live-p buf)
+      (kill-buffer buf)))
+  (setq w3m-work-buffer-list nil))
+
+(defun w3m-current-title ()
+  "Return the title of the current buffer."
+  (cond
+   (w3m-current-process
+     "<retrieving>")
+   ((and (stringp w3m-current-title)
+	 (not (string= w3m-current-title "<no-title>")))
+    w3m-current-title)
+   ((stringp w3m-current-url)
+    (directory-file-name
+     (if (string-match "^[^/:]+:/+" w3m-current-url)
+	 (substring w3m-current-url (match-end 0))
+       w3m-current-url)))
+   (t "<no-title>")))
+
+(defun w3m-buffer-title (buffer)
+  "Return the title of the buffer BUFFER."
+  (with-current-buffer buffer
+    (w3m-current-title)))
+
+(defun w3m-buffer-number (buffer)
+  (when (and (bufferp buffer)
+	     (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'"
+			   (buffer-name buffer)))
+    (if (match-beginning 1)
+	(string-to-number (match-string 2 (buffer-name buffer)))
+      1))) ;; `1' should not be represented in the buffer name.
+
+(defun w3m-buffer-set-number (buffer number)
+  (with-current-buffer buffer
+    (let ((newname (if w3m-use-title-buffer-name
+		       (if (= number 1)
+			   (format "%s *w3m*" (w3m-current-title))
+			 (format "%s *w3m*<%d>" (w3m-current-title) number))
+		     (if (= number 1)
+			 "*w3m*"
+		       (format "*w3m*<%d>" number)))))
+      (if (eq (w3m-buffer-number buffer) number)
+	  (when w3m-use-title-buffer-name
+	    (unless (get-buffer newname)
+	      (rename-buffer newname)))
+	(unless (get-buffer newname)
+	  (rename-buffer newname))))))
+
+(defun w3m-buffer-name-add-title ()
+  "Add current tile to buffer name."
+  (when w3m-use-title-buffer-name
+    (let ((number (w3m-buffer-number (current-buffer)))
+	  newname)
+      (if (= number 1)
+	  (setq newname (format "%s *w3m*" (w3m-current-title)))
+	(setq newname (format "%s *w3m*<%d>" (w3m-current-title) number)))
+      (rename-buffer newname))))
+
+(defun w3m-generate-new-buffer (name)
+  (if w3m-use-title-buffer-name
+      (let* ((maxbuf (let ((w3m-fb-mode nil))
+		       (car (nreverse (w3m-list-buffers)))))
+	     (number (w3m-buffer-number maxbuf)))
+	(when (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" name)
+	  (setq name "*w3m*"))
+	(if (and maxbuf number)
+	    (generate-new-buffer (format "%s<%d>" name (1+ number)))
+	  (generate-new-buffer name)))
+    (generate-new-buffer name)))
+
+(defun w3m-buffer-name-lessp (x y)
+  "Return t if first arg buffer's name is less than second."
+  (when (bufferp x)
+    (setq x (buffer-name x)))
+  (when (bufferp y)
+    (setq y (buffer-name y)))
+  (if (and (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" x)
+	   (setq x (cons x
+			 (if (match-beginning 1)
+			     (string-to-number (match-string 2 x))
+			   1))))
+      (if (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" y)
+	  (< (cdr x)
+	     (if (match-beginning 1)
+		 (string-to-number (match-string 2 y))
+	       1))
+	(string< (car x) y))
+    (string< x y)))
+
+(defun w3m-list-buffers (&optional nosort)
+  "Return a list of buffers in which emacs-w3m sessions are open.
+If the optional NOSORT is nil, the list is sorted in the order of
+buffer names."
+  (let ((buffers (buffer-list))
+	buffer rest)
+    (save-current-buffer
+      (while buffers
+	(set-buffer (setq buffer (pop buffers)))
+	(when (eq major-mode 'w3m-mode)
+	  (push buffer rest))))
+    (setq buffers (if nosort
+		      (nreverse rest)
+		    (sort rest #'w3m-buffer-name-lessp)))
+    (when (and (boundp 'w3m-fb-mode)
+	       w3m-fb-mode
+	       (if (or w3m-pop-up-frames
+		       (not (memq 'w3m-fb-add w3m-mode-hook)))
+		   ;; `w3m-fb-mode' might have been set by something
+		   ;; other than the `w3m-fb-mode' function.
+		   (setq w3m-fb-mode nil)
+		 t))
+      ;; Don't just return `w3m-fb-buffer-list' for the selected frame
+      ;; because `buffers' may have been sorted.
+      (let ((fbs (w3m-fb-frame-parameter w3m-fb-list-buffers-frame
+					 'w3m-fb-buffer-list)))
+	(setq rest buffers)
+	(while rest
+	  (unless (memq (setq buffer (pop rest)) fbs)
+	    (setq buffers (delq buffer buffers))))))
+    buffers))
+
+
+;;; Pop up and delete buffers, windows or frames:
+
+(defmacro w3m-popup-frame-parameters ()
+  "Return a pop-up frame plist if this file is compiled for XEmacs,
+otherwise return an alist."
+  (if (featurep 'xemacs)
+      '(let ((params (or w3m-popup-frame-parameters pop-up-frame-plist)))
+	 (if (consp (car-safe params))
+	     (alist-to-plist params)
+	   params))
+    '(let ((params (or w3m-popup-frame-parameters pop-up-frame-alist))
+	   alist)
+       (if (consp (car-safe params))
+	   params
+	 (while params
+	   (push (cons (car params) (cdr params)) alist)
+	   (setq params (cddr params)))
+	 (nreverse alist)))))
+
+(defun w3m-device-on-window-system-p ()
+  "Return non-nil if the selected frame is on a widnow system"
+  (w3m-static-if (featurep 'xemacs)
+      (device-on-window-system-p)
+    window-system))
+
+(defmacro w3m-popup-frame-p ()
+  "Return non-nil if `w3m-pop-up-frames' is non-nil and Emacs really
+supports separate frames."
+  '(and w3m-pop-up-frames (w3m-device-on-window-system-p)))
+
+(defmacro w3m-use-tab-p ()
+  "Return non-nil if `w3m-use-tab' is non-nil and Emacs really supports
+the tabs line."
+  (cond ((featurep 'xemacs)
+	 '(and w3m-use-tab (device-on-window-system-p)))
+	(t
+	 'w3m-use-tab)))
+
+(defun w3m-lefttab-exist-p (&optional buffer)
+  (not (eq (or buffer (current-buffer)) (car (w3m-list-buffers)))))
+
+(defun w3m-righttab-exist-p (&optional buffer)
+  (let ((bufs (w3m-list-buffers))
+	(cbuf (or buffer (current-buffer)))
+	buf)
+    (catch 'exist
+      (while (setq buf (car bufs))
+	(setq bufs (cdr bufs))
+	(when (eq cbuf buf)
+	  (throw 'exist bufs))))))
+
+(defmacro w3m-popup-window-p ()
+  "Return non-nil if `w3m-pop-up-windows' is non-nil and the present
+situation allows it."
+  '(and w3m-pop-up-windows
+	(not (w3m-use-tab-p))
+	(not (get-buffer-window w3m-select-buffer-name))))
+
+(defvar w3m-initial-frames nil
+  "Variable used to keep a list of the frame-IDs when emacs-w3m sessions
+are popped-up as new frames.  This variable is used for the control
+for not deleting frames made for aims other than emacs-w3m sessions.")
+(make-variable-buffer-local 'w3m-initial-frames)
+
+(defun w3m-popup-buffer (buffer)
+  "Pop up BUFFER as a new window or a new frame
+according to `w3m-pop-up-windows' and `w3m-pop-up-frames' (which see)."
+  (let ((window (get-buffer-window buffer t))
+	(oframe (selected-frame))
+	(popup-frame-p (w3m-popup-frame-p))
+	frame pop-up-frames buffers other)
+    (if (setq
+	 pop-up-frames
+	 (if window ;; The window showing BUFFER already exists.
+	     ;; Don't pop up a new frame if it is just the current frame.
+	     (not (eq (setq frame (window-frame window)) oframe))
+	   ;; There is no window for BUFFER, so look for the existing
+	   ;; emacs-w3m window if the tabs line is enabled or the
+	   ;; selection window exists (i.e., we can reuse it).
+	   (if (or (w3m-use-tab-p)
+		   (get-buffer-window w3m-select-buffer-name t))
+	       (progn
+		 (setq buffers (delq buffer (w3m-list-buffers t)))
+		 (while (and (not window)
+			     buffers)
+		   (setq window
+			 (get-buffer-window (setq other (pop buffers)) t)))
+		 (if window ;; The window showing another buffer exists.
+		     (not (eq (setq frame (window-frame window)) oframe))
+		   (setq other nil)
+		   ;; There is no window after all, so leave to the value
+		   ;; of `w3m-pop-up-frames' whether to pop up a new frame.
+		   popup-frame-p))
+	     ;; Ditto.
+	     popup-frame-p)))
+	(progn
+	  (cond (other
+		 ;; Pop up another emacs-w3m buffer and switch to BUFFER.
+		 (pop-to-buffer other)
+		 ;; Change the value for BUFFER's `w3m-initial-frames'.
+		 (setq w3m-initial-frames
+		       (prog1
+			   (copy-sequence w3m-initial-frames)
+			 (switch-to-buffer buffer))))
+		(frame
+		 ;; Pop up the existing frame which shows BUFFER.
+		 (pop-to-buffer buffer))
+		(t
+		 ;; Pop up a new frame.
+		 (let* ((pop-up-frame-alist (w3m-popup-frame-parameters))
+			(pop-up-frame-plist pop-up-frame-alist))
+		   (pop-to-buffer buffer))
+		 (setq frame (window-frame (get-buffer-window buffer t)))))
+	  ;; Raise, select and focus the frame.
+	  (if (fboundp 'select-frame-set-input-focus)
+	      (select-frame-set-input-focus frame)
+	    (raise-frame frame)
+	    (select-frame frame)
+	    (w3m-static-when (featurep 'xemacs)
+	      (focus-frame frame)))
+	  (w3m-history-restore-position))
+      (unless (prog1
+		  (eq buffer (current-buffer))
+		;; Simply switch to BUFFER in the current frame.
+		(if (w3m-popup-window-p)
+		    (let ((pop-up-windows t))
+		      (pop-to-buffer buffer))
+		  (switch-to-buffer buffer)))
+	(w3m-history-restore-position)))))
+
+(eval-when-compile
+  (when (and (fboundp 'select-frame-set-input-focus)
+	     (eq (symbol-function 'select-frame-set-input-focus) 'ignore))
+    (fmakunbound 'select-frame-set-input-focus)))
+
+(defun w3m-add-w3m-initial-frames (&optional frame)
+  "Add FRAME into `w3m-initial-frames', the buffer-local variable.
+It is done when FRAME is newly created for the emacs-w3m session.
+This function is added to the hook which is different with the Emacs
+version as follows:
+
+XEmacs          `create-frame-hook'
+Emacs 21,22     `after-make-frame-functions'
+Emacs 19        `after-make-frame-hook'
+
+Note that `after-make-frame-hook' doesn't take an argument."
+  (unless frame
+    (setq frame (selected-frame)))
+  ;; Share the opened frame in `w3m-initial-frames' over all emacs-w3m
+  ;; buffers if `w3m-use-tab' is non-nil.  Otherwise, the frame is
+  ;; appended into `w3m-initial-frames' only in the current buffer.
+  (with-current-buffer (window-buffer (frame-first-window frame))
+    (when (eq major-mode 'w3m-mode)
+      (unless (memq frame w3m-initial-frames)
+	(push frame w3m-initial-frames))
+      (when w3m-use-tab
+	(dolist (buffer (delq (current-buffer) (w3m-list-buffers t)))
+	  (set-buffer buffer)
+	  (unless (memq frame w3m-initial-frames)
+	    (push frame w3m-initial-frames)))))))
+
+(add-hook (if (featurep 'xemacs)
+	      'create-frame-hook
+	    'after-make-frame-functions)
+	  'w3m-add-w3m-initial-frames)
+
+(defun w3m-delete-w3m-initial-frames (frame)
+  "Delete FRAME from `w3m-initial-frames', the buffer-local variable.
+It is done when the FRAME in which emacs-w3m is running is deleted.
+This function is added to `delete-frame-hook' (`delete-frame-functions'
+is used instead in Emacs 22) or merged into the `delete-frame' function
+using `defadvice'."
+  (save-current-buffer
+    (dolist (buffer (w3m-list-buffers t))
+      (set-buffer buffer)
+      (setq w3m-initial-frames (delq frame w3m-initial-frames)))))
+
+(cond ((boundp 'delete-frame-functions)
+       (add-hook 'delete-frame-functions 'w3m-delete-w3m-initial-frames))
+      (t
+       (add-hook 'delete-frame-hook 'w3m-delete-w3m-initial-frames)))
+
+(defun w3m-delete-frames-and-windows (&optional exception)
+  "Delete all frames and windows related to emacs-w3m buffers.
+If EXCEPTION is a buffer, a window or a frame, it and related visible
+objects will not be deleted.  There are special cases; the following
+objects will not be deleted:
+
+1. The sole frame in the display device.
+2. Frames created not for emacs-w3m sessions.
+3. Frames showing not only emacs-w3m sessions but also other windows.\
+"
+  (let ((buffers (delq exception (w3m-list-buffers t)))
+	buffer windows window frame one-window-p flag)
+    (save-current-buffer
+      (while buffers
+	(setq buffer (pop buffers)
+	      windows (delq exception
+			    (get-buffer-window-list buffer 'no-minibuf t)))
+	(set-buffer buffer)
+	(while windows
+	  (setq window (pop windows)
+		frame (window-frame window))
+	  (when (and frame
+		     (not (eq frame exception)))
+	    (setq one-window-p
+		  (w3m-static-if (featurep 'xemacs)
+		      (one-window-p t frame)
+		    ;; Emulate XEmacs version's `one-window-p'.
+		    (prog2
+			(setq flag nil)
+			(catch 'exceeded
+			  (walk-windows (lambda (w)
+					  (when (eq (window-frame w) frame)
+					    (if flag
+						(throw 'exceeded nil)
+					      (setq flag t))))
+					'no-minibuf t)
+			  flag)
+		      (set-buffer buffer))))
+	    (if (and (memq frame w3m-initial-frames)
+		     (not (eq (next-frame frame) frame)))
+		(if (or
+		     ;; A frame having the sole window can be deleted.
+		     one-window-p
+		     ;; Also a frame having only windows for emacs-w3m
+		     ;; sessions or the buffer selection can be deleted.
+		     (progn
+		       (setq flag t)
+		       (walk-windows
+			(lambda (w)
+			  (when flag
+			    (if (eq w exception)
+				(setq flag nil)
+			      (set-buffer (window-buffer w))
+			      (setq flag (or (memq major-mode
+						   '(w3m-mode
+						     w3m-select-buffer-mode
+						     w3m-session-select-mode))
+					     (string-match "\\` ?\\*w3m[ -]"
+							   (buffer-name)))))))
+			'no-minibuf)
+		       (set-buffer buffer)
+		       flag))
+		    (delete-frame frame)
+		  (delete-window window))
+	      (unless one-window-p
+		(delete-window window)))))))))
+
+
+;;; Miscellaneous:
+
+(defconst w3m-url-fallback-base "http:///")
+(defconst w3m-url-invalid-regexp "\\`http:///")
+
+(defun w3m-url-valid (url)
+  (and url (not (string-match w3m-url-invalid-regexp url))
+       url))
+
+(defmacro w3m-set-match-data (list)
+  "Same as the `set-match-data'; convert points into markers under XEmacs."
+  (if (featurep 'xemacs)
+      `(let ((list ,list))
+	 (store-match-data (dolist (pt (prog1 list (setq list nil))
+				       (nreverse list))
+			     (push (if (markerp pt)
+				       pt
+				     (set-marker (make-marker) pt))
+				   list))))
+    `(set-match-data ,list)))
+
+(defun w3m-search-tag-1 (regexp)
+  "Subroutine used by `w3m-search-tag'."
+  (let ((start (point))
+	begin end)
+    (if (and (re-search-forward regexp nil t)
+	     (setq begin (match-beginning 0)
+		   end (match-end 0))
+	     (or (looking-at "/?>")
+		 (and (looking-at "[ \t\f\n]")
+		      (search-forward ">" nil t))))
+	(prog1
+	    (goto-char (match-end 0))
+	  (w3m-set-match-data
+	   (cond ((= end (match-beginning 0))
+		  (list begin (match-end 0)
+			(1+ begin) end))
+		 ((eq (char-before (match-beginning 0)) ?/)
+		  (if (= end (1- (match-beginning 0)))
+		      (list begin (match-end 0)
+			    (1+ begin) end)
+		    (list begin (match-end 0)
+			  (1+ begin) end
+			  end (- (match-end 0) 2))))
+		 (t
+		  (list begin (match-end 0)
+			(1+ begin) end
+			end (1- (match-end 0)))))))
+      (set-match-data nil)
+      (goto-char start)
+      nil)))
+
+(defmacro w3m-search-tag (&rest names)
+  "Search forward for a tag which begins with one of NAMES.
+This macro generates the form equivalent to:
+
+\(re-search-forward \"<\\\\(NAMES\\\\)\\\\([ \\t\\f\\n]+[^>]*\\\\)?/?>\" nil t)
+
+but it works even if the tag is considerably large.
+
+Note: this macro allows only strings for NAMES, that is, a form
+something like `(if foo \"bar\" \"baz\")' cannot be used."
+  `(w3m-search-tag-1 ,(concat "<" (regexp-opt names t))))
+
+(defun w3m-string-match-url-components-1 (string)
+  "Subroutine used by `w3m-string-match-url-components'."
+
+  ;; ^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?
+  ;;  12            3  4          5       6  7        8 9
+
+  (let ((md (make-vector 20 nil))
+	pt)
+    (with-temp-buffer
+      (w3m-static-unless (featurep 'xemacs)
+	(set-buffer-multibyte (multibyte-string-p string)))
+      (insert string)
+      (goto-char (point-min))
+      (aset md 0 0)
+      (aset md 1 (1- (point-max)))
+      (when (looking-at "[^:/?#]+:")
+	(aset md 2 0)
+	(aset md 4 0)
+	(goto-char (match-end 0))
+	(aset md 3 (setq pt (1- (point))))
+	(aset md 5 (1- pt)))
+      (when (looking-at "//")
+	(aset md 6 (1- (point)))
+	(forward-char 2)
+	(aset md 8 (1- (point)))
+	(skip-chars-forward "^/?#")
+	(aset md 7 (setq pt (1- (point))))
+	(aset md 9 pt))
+      (aset md 10 (1- (point)))
+      (skip-chars-forward "^?#")
+      (aset md 11 (setq pt (1- (point))))
+      (when (eq (char-after) ??)
+	(aset md 12 pt)
+	(forward-char 1)
+	(aset md 14 (1- (point)))
+	(skip-chars-forward "^#")
+	(aset md 13 (setq pt (1- (point))))
+	(aset md 15 pt))
+      (unless (eobp)
+	(aset md 16 (1- (point)))
+	(aset md 18 (point))
+	(aset md 17 (setq pt (1- (point-max))))
+	(aset md 19 pt)))
+    (set-match-data (append md nil)))
+  0)
+
+(defconst w3m-url-components-regexp
+  "\\`\\(\\([^:/?#]+\\):\\)?\\(//\\([^/?#]*\\)\\)?\
+\\([^?#]*\\)\\(\\?\\([^#]*\\)\\)?\\(#\\(.*\\)\\)?\\'"
+  "Regexp used for parsing a URI Reference.
+It matches the potential four components and fragment identifier of a
+URI reference.  See RFC2396, Appendix B for details.")
+
+(defmacro w3m-string-match-url-components (string)
+  "Do the same thing as `(string-match w3m-url-components-regexp STRING)'.
+But this function should work even if STRING is considerably long."
+  `(let ((string ,string))
+     (condition-case nil
+	 (string-match w3m-url-components-regexp string)
+       (error ;; Stack overflow in regexp matcher
+	(w3m-string-match-url-components-1 string)))))
+
+(defun w3m-time-newer-p (a b)
+  "Return t, if A is newer than B.  Otherwise return nil.
+A and B are lists which represent time in Emacs-style.  If value is
+nil, it is regarded as the oldest time."
+  (and a
+       (or (not b)
+	   (or (> (car a) (car b))
+	       (and (= (car a) (car b))
+		    (> (nth 1 a) (nth 1 b)))))))
+
+(defun w3m-time-lapse-seconds (start end)
+  "Return lapse seconds from START to END.
+START and END are lists which represent time in Emacs-style."
+  (+ (* (- (car end) (car start)) 65536)
+     (cadr end)
+     (- (cadr start))))
+
+(defalias 'w3m-float-time
+  (if (fboundp 'float-time)
+      'float-time
+    (lambda (&optional specified-time)
+      "Return the current time, as a float number of seconds since the epoch.
+If an argument is given, it specifies a time to convert to float
+instead of the current time.  The argument should have the forms:
+ (HIGH . LOW) or (HIGH LOW USEC) or (HIGH LOW . USEC).
+
+WARNING: Since the result is floating point, it may not be exact.
+Do not use this function if precise time stamps are required."
+      (let ((time (or specified-time (current-time))))
+	(+ (* (car time) 65536.0)
+	   (cadr time)
+	   (cond ((consp (setq time (cddr time)))
+		  (/ (car time) 1000000.0))
+		 (time
+		  (/ time 1000000.0))
+		 (t
+		  0)))))))
+
+(defun w3m-url-local-p (url)
+  "If URL points a file on the local system, return non-nil value.
+Otherwise return nil."
+  (string-match "\\`file:" url))
+
+(defconst w3m-url-authinfo-regexp
+  "\\`\\([^:/?#]+:\\)?//\\([^/?#:]+\\)\\(?::\\([^/?#@]+\\)\\)?@"
+  "Regular expression for parsing the authentication part of a URI reference")
+
+(defun w3m-url-authinfo (url)
+  "Return a user name and a password to authenticate URL."
+  (when (string-match w3m-url-authinfo-regexp url)
+    (cons (match-string 2 url)
+	  (match-string 3 url))))
+
+(defun w3m-url-strip-authinfo (url)
+  "Remove the authentication part from the URL."
+  (if (string-match w3m-url-authinfo-regexp url)
+      (concat (match-string 1 url)
+	      "//"
+	      (substring url (match-end 0)))
+    url))
+
+(defun w3m-url-strip-fragment (url)
+  "Remove the fragment identifier from the URL."
+  (if (string-match "\\`\\([^#]*\\)#" url)
+      (match-string 1 url)
+    url))
+
+(defun w3m-url-strip-query (url)
+  "Remove the query part and the fragment identifier from the URL."
+  (if (string-match "\\`\\([^?#]*\\)[?#]" url)
+      (match-string 1 url)
+    url))
+
+(defun w3m-get-server-hostname (url)
+  "Extract a server root from URL."
+  (when (string-match "\\`about://[^/?#]+/" url)
+    (setq url (substring url (match-end 0))))
+  (setq url (w3m-url-strip-authinfo url))
+  (if (string-match "\\`[^:/?#]+://\\([^/?#]+\\)" url)
+      (downcase (match-string 1 url))
+    url))
+
+(defun w3m-which-command (command)
+  (when (stringp command)
+    (if (and (file-name-absolute-p command)
+	     (file-executable-p command))
+	command
+      (setq command (file-name-nondirectory command))
+      (catch 'found-command
+	(let (bin)
+	  (dolist (dir exec-path)
+	    (setq bin (expand-file-name command dir))
+	    (when (or (and (file-executable-p bin)
+			   (not (file-directory-p bin)))
+		      (and (file-executable-p (setq bin (concat bin ".exe")))
+			   (not (file-directory-p bin))))
+	      (throw 'found-command bin))))))))
+
+(defun w3m-cancel-refresh-timer (&optional buffer)
+  "Cancel the timer for REFRESH attribute in META tag."
+  (when w3m-use-refresh
+    (with-current-buffer (or buffer (current-buffer))
+      (setq w3m-current-refresh nil)
+      (when w3m-refresh-timer
+	(w3m-static-if (featurep 'xemacs)
+	    (delete-itimer w3m-refresh-timer)
+	  (cancel-timer w3m-refresh-timer))
+	(setq w3m-refresh-timer nil)))))
+
+(cond ((featurep 'xemacs)
+       ;; The function of the XEmacs version doesn't work correctly
+       ;; for wide characters.
+       (defun w3m-truncate-string (str end-column)
+	 "Truncate string STR to end at column END-COLUMN."
+	 (let ((len (length str))
+	       (column 0)
+	       (idx 0))
+	   (condition-case nil
+	       (while (< column end-column)
+		 (setq column (+ column (char-width (aref str idx)))
+		       idx (1+ idx)))
+	     (args-out-of-range (setq idx len)))
+	   (when (> column end-column)
+	     (setq idx (1- idx)))
+	   (substring str 0 idx))))
+      (t
+       (defalias 'w3m-truncate-string 'truncate-string-to-width)))
+
+(defun w3m-assoc-ignore-case (name alist)
+  "Return the element of ALIST whose car equals NAME ignoring its case."
+  (let ((dname (downcase name))
+	match)
+    (while alist
+      (when (and (consp (car alist))
+		 (string= dname (downcase (car (car alist)))))
+	(setq match (car alist)
+	      alist nil))
+      (setq alist (cdr alist)))
+    match))
+
+(defun w3m-prin1 (object &optional stream)
+  "Like `prin1', except that control chars will be represented with ^ as
+`cat -v' does."
+  (if (stringp object)
+      (let (rest)
+	(dolist (char (append object nil) rest)
+	  (cond ((eq char ?\C-?)
+		 (push "^?" rest))
+		((or (memq char '(?\t ?\n))
+		     (>= char ?\ ))
+		 (push (char-to-string char) rest))
+		(t
+		 (push (concat "^" (char-to-string (+ 64 char))) rest))))
+	(prin1 (apply 'concat (nreverse rest)) stream))
+    (prin1 object stream)))
+
+(defun w3m-modify-plist (plist &rest properties)
+  "Change values in PLIST corresponding to PROPERTIES.  This is similar
+to `plist-put', but handles plural symbol and value pairs and remove
+pairs from PLIST whose value is nil."
+  (while properties
+    (setq plist (plist-put plist (car properties) (cadr properties))
+	  properties (cddr properties)))
+  (while plist
+    (if (cadr plist)
+	(setq properties (nconc properties (list (car plist) (cadr plist)))))
+    (setq plist (cddr plist)))
+  properties)
+
+(def-edebug-spec w3m-insert-string (form))
+(defmacro w3m-insert-string (string)
+  "Insert STRING at point without conversions in either case the
+multibyteness of the buffer."
+  (if (and (fboundp 'string-as-multibyte)
+	   (subrp (symbol-function 'string-as-multibyte)))
+      `(let ((string ,string))
+	 (insert (if enable-multibyte-characters
+		     (string-as-multibyte string)
+		   (string-as-unibyte string))))
+    `(insert ,string)))
+
+(defun w3m-custom-hook-initialize (symbol value)
+  "Initialize the hook option pointed by the SYMBOL with the default VALUE."
+  (if (boundp symbol)
+      (progn
+	(setq value (eval value))
+	(while value
+	  (add-hook symbol (car value))
+	  (setq value (cdr value))))
+    (custom-initialize-set symbol value)))
+
+(defun w3m-run-mode-hooks (&rest funcs)
+  "Run `run-mode-hooks' if it is available, otherwise `run-hooks'."
+  (if (fboundp 'run-mode-hooks)
+      (apply 'run-mode-hooks funcs)
+    (apply 'run-hooks funcs)))
+
+(defmacro w3m-keep-region-active ()
+  "Keep the region active after evaluating this current command.
+In XEmacs, `zmacs-region-stays' is set to nil everywhen a command is
+evaluated.  This means that the region is always deactivated after
+evaluating the current command.  This macro sets t to it, and keeps
+the region active."
+  (when (featurep 'xemacs)
+    '(if (interactive-p)
+	 (setq zmacs-region-stays t))))
+
+(defmacro w3m-deactivate-region ()
+  "Deactivate the region."
+  (if (featurep 'xemacs)
+      '(zmacs-deactivate-region)
+    '(deactivate-mark)))
+
+(defmacro w3m-region-active-p ()
+  "Say whether the region is active."
+  (if (fboundp 'region-active-p)
+      (list 'region-active-p)
+    (list 'and 'transient-mark-mode 'mark-active)))
+
+(eval-and-compile
+  (cond
+   ((fboundp 'replace-regexp-in-string)
+    (defun w3m-replace-in-string  (string regexp newtext &optional literal)
+      ;;(replace-regexp-in-string regexp newtext string nil literal)))
+      ;;
+      ;; Don't call the symbol function `replace-regexp-in-string' directly
+      ;; in order to silence the byte-compiler when an Emacs which doesn't
+      ;; provide it is used.  The following form generates exactly the same
+      ;; byte-code.
+      (funcall (symbol-function 'replace-regexp-in-string)
+	       regexp newtext string nil literal)))
+   (t
+    (defalias 'w3m-replace-in-string 'replace-in-string))))
+
+(if (fboundp 'compare-strings)
+    (defalias 'w3m-compare-strings 'compare-strings)
+  (defun w3m-compare-strings (string1 start1 end1 string2 start2 end2)
+    "Compare the contents of two strings."
+    (let* ((str1 (substring string1 start1 end1))
+	   (str2 (substring string2 start2 end2))
+	   (len (min (length str1) (length str2)))
+	   (i 0))
+      (if (string= str1 str2)
+	  t
+	(setq i (catch 'ignore
+		  (while (< i len)
+		    (when (not (eq (aref str1 i) (aref str2 i)))
+		      (throw 'ignore i))
+		    (setq i (1+ i)))
+		  i))
+	(1+ i)))))
+
+(eval-and-compile
+  ;; This function will be redefined in w3m-ems.el.
+  (unless (fboundp 'w3m-force-window-update)
+    (defalias 'w3m-force-window-update 'ignore)))
+
+(if (boundp 'header-line-format)
+    (defun w3m-force-window-update-later (buffer &optional seconds)
+      "Update the header-line appearance in BUFFER after SECONDS.
+If SECONDS is omitted, it defaults to 0.5."
+      (run-at-time (or seconds 0.5) nil
+		   (lambda (buffer)
+		     (when (and (buffer-live-p buffer)
+				(eq (get-buffer-window buffer t)
+				    (selected-window)))
+		       (w3m-force-window-update)))
+		   buffer))
+  (defalias 'w3m-force-window-update-later 'ignore))
+
+(if (fboundp 'read-number)
+    (defalias 'w3m-read-number 'read-number)
+  (defun w3m-read-number (prompt &optional default)
+    "Read a numeric value in the minibuffer, prompting with PROMPT.
+DEFAULT specifies a default value to return if the user just types RET.
+The value of DEFAULT is inserted into PROMPT."
+    (let ((n nil))
+      (when default
+	(setq prompt
+	      (if (string-match "\\(\\):[ \t]*\\'" prompt)
+		  (replace-match (format " (default %s)" default) t t prompt 1)
+		(w3m-replace-in-string prompt "[ \t]*\\'"
+				       (format " (default %s) " default)
+				       t))))
+      (while
+	  (progn
+	    (let ((str (read-from-minibuffer
+			prompt nil nil nil nil
+			(and default (number-to-string default)))))
+	      (condition-case nil
+		  (setq n (cond
+			   ((zerop (length str)) default)
+			   ((stringp str) (read str))))
+		(error nil)))
+	    (unless (numberp n)
+	      (message "Please enter a number.")
+	      (sit-for 1)
+	      t)))
+      n)))
+
+(defun w3m-make-menu-item (japan english)
+  "Make menu item."
+  (cond
+   ((and w3m-use-japanese-menu (featurep 'xemacs))
+    (concat japan "%_ "))
+   (w3m-use-japanese-menu
+    japan)
+   (t
+    english)))
+
+(defvar w3m-make-menu-commands-keys nil)
+
+(defun w3m-make-menu-commands (menu-commands)
+  "Make menu items."
+  (mapcar
+   (lambda (c)
+     (if (consp c)
+	 (vector
+	  (cadr c)
+	  (if (nth 3 c)
+	      `(progn
+		 (switch-to-buffer w3m-tab-button-menu-current-buffer)
+		 (funcall (function ,(car c)) ,@(nthcdr 4 c)))
+	    `(save-window-excursion
+	       (switch-to-buffer w3m-tab-button-menu-current-buffer)
+	       (funcall (function ,(car c)) ,@(nthcdr 4 c))))
+	  :active (nth 2 c)
+	  :keys (or (and (assq (car c) w3m-make-menu-commands-keys)
+			 (cdr (assq (car c) w3m-make-menu-commands-keys)))
+		    (let ((key (where-is-internal (car c) w3m-mode-map)))
+		      (when key
+			(setq w3m-make-menu-commands-keys
+			      (cons (cons (car c)
+					  (key-description (car key)))
+				    w3m-make-menu-commands-keys))
+			(cdr (car w3m-make-menu-commands-keys))))))
+       (symbol-name c)))
+   menu-commands))
+
+(eval-when-compile (require 'wid-edit))
+(defun w3m-widget-type-convert-widget (widget)
+  "Convert the car of `:args' as a widget type in WIDGET."
+  (apply 'widget-convert (widget-type widget)
+	 (eval (car (widget-get widget :args)))))
+
+(defun w3m-unseen-buffer-p (buffer)
+  "Return t if buffer unseen."
+  (with-current-buffer buffer
+    w3m-buffer-unseen))
+
+(defun w3m-visited-file-modtime ()
+  "Replacement of `visited-file-modtime'.
+It returns a list of two integers if the current buffer visits a file,
+otherwise returns the number 0.  In modern Emacsen, this function will
+get to be the alias to `visited-file-modtime'."
+  (let ((modtime (visited-file-modtime)))
+    (cond ((consp (cdr-safe modtime))
+	   (defalias 'w3m-visited-file-modtime 'visited-file-modtime)
+	   modtime)
+	  ((integerp (cdr-safe modtime))
+	   ;; XEmacs version returns `(0 . 0)' if no file is visited.
+	   (if (and (= (car modtime) 0) (= (cdr modtime) 0))
+	       0
+	     (list (car modtime) (cdr modtime))))
+	  (t
+	   modtime))))
+
+;;; Punycode RFC 3492:
+
+(defconst w3m-puny-code-regex "xn--\\([-0-9a-zA-z]+\\)")
+(defconst w3m-puny-code-nonascii "[^\000-\177]")
+
+(defconst w3m-puny-base 36)
+(defconst w3m-puny-tmin 1)
+(defconst w3m-puny-tmax 26)
+(defconst w3m-puny-damp 700)
+(defconst w3m-puny-skew 38)
+(defconst w3m-puny-initial-bias 72)
+(defconst w3m-puny-initial-n 128)
+(defconst w3m-puny-delimiter ?-)
+
+(defun w3m-puny-adapt (delta numpoints firsttime)
+  (let ((k 0))
+    (if firsttime
+	(setq delta (/ delta w3m-puny-damp))
+      (setq delta (/ delta 2)))
+    (setq delta (+ delta (/ delta numpoints)))
+    (while (> delta (/ (* (- w3m-puny-base w3m-puny-tmin) w3m-puny-tmax) 2))
+      (setq delta (/ delta (- w3m-puny-base w3m-puny-tmin)))
+      (setq k (+ k w3m-puny-base)))
+    (+ k (/ (* (1+ (- w3m-puny-base w3m-puny-tmin)) delta) (+ delta w3m-puny-skew)))))
+
+(defun w3m-puny-decode-digit (cp)
+  (if (< (- cp 48) 10)
+      (- cp 22)
+    (if (< (- cp 65) 26)
+	(- cp 65)
+      (if (< (- cp 97) 26)
+	  (- cp 97)
+	w3m-puny-base))))
+
+(defun w3m-puny-encode-digit (d)
+  (if (< d 26)
+      (+ d 22 75) ;; a-z
+    (+ d 22))) ;; 0-9
+
+(defun w3m-puny-decode1 (input)
+  (let* ((n w3m-puny-initial-n)
+	 (bias w3m-puny-initial-bias)
+	 (len (length input))
+	 (in 0) (out 0)
+	 (i 0) (b 0)
+	 digit thr oldi w k output ret)
+    (dotimes (j len)
+      (if (= (aref input j) w3m-puny-delimiter) (setq b j)))
+    (dotimes (j b)
+      (setq output (cons (aref input j) output))
+      (setq out (1+ out)))
+    (setq output (nreverse output))
+    (if (> b 0) (setq in (1+ b)) (setq in 0))
+    (while (< in len)
+      (setq oldi i)
+      (setq w 1)
+      (setq k w3m-puny-base)
+      (catch 'loop
+	(while t
+	  (if (>= in len) (error "punycode bad input"))
+	  (setq digit (w3m-puny-decode-digit (aref input in)))
+	  (if (>= digit w3m-puny-base) (error "punycode bad input"))
+	  (setq in (1+ in))
+	  (setq i (+ i (* digit w)))
+	  (if (<= k bias)
+	      (setq thr w3m-puny-tmin)
+	    (if (>= k (+ bias w3m-puny-tmax))
+		(setq thr w3m-puny-tmax)
+	      (setq thr (- k bias))))
+	  (if (< digit thr) (throw 'loop nil))
+	  (setq w (* w (- w3m-puny-base thr)))
+	  (setq k (+ k w3m-puny-base))))
+      (setq out (1+ out))
+      (setq bias (w3m-puny-adapt (- i oldi) out (= oldi 0)))
+      (setq n (+ n (/ i out)))
+      (setq i (% i out))
+      (if (= i 0)
+	  (setq output (cons n (nthcdr i output)))
+	(setcdr (nthcdr (1- i) output) (cons n (nthcdr i output))))
+      (setq i (1+ i)))
+    (setq ret (make-string (* out 2) ?a))
+    (let ((j 0))
+      (dolist (op output)
+	(aset ret j (/ op 256))
+	(setq j (1+ j))
+	(aset ret j (% op 256))
+	(setq j (1+ j))))
+    ret))
+
+(defun w3m-puny-decode (input)
+  (condition-case nil
+      (save-match-data
+	(decode-coding-string
+	 (w3m-puny-decode1 (substring input 4)) ;; xn--
+	 w3m-puny-utf-16be))
+    (error input)))
+
+(defun w3m-puny-decode-url (url)
+  "Decode URL from punycode."
+  (let ((case-fold-search t)
+	prot host after)
+    (when (and w3m-puny-utf-16be
+	       (string-match w3m-puny-code-regex url))
+      (when (string-match "\\`[^:/]+://\\([^/]+\\)" url)
+	(setq prot (substring url 0 (match-beginning 1)))
+	(setq host (substring url (match-beginning 1) (match-end 1)))
+	(setq after (substring url (match-end 0)))
+	(while (string-match w3m-puny-code-regex host)
+	  (setq host
+		(concat (substring host 0 (match-beginning 0))
+			(w3m-puny-decode
+			 (substring host (match-beginning 0) (match-end 0)))
+			(substring host (match-end 0)))))
+	(setq url (concat prot host after))))
+    url))
+
+(defun w3m-puny-encode1 (input)
+  (let* ((len (length input))
+	 (h-len (/ len 2))
+	 (n w3m-puny-initial-n)
+	 (bias w3m-puny-initial-bias)
+	 (delta 0) (out 0)
+	 (output (make-string (* len 4) ?a))
+	 h b m q k thr uni)
+    (dotimes (j len)
+      (setq uni (aref input j))
+      (setq j (1+ j))
+      (setq uni (+ (* uni 256) (aref input j)))
+      (when (< uni 128) ;; basic
+	(aset output out uni)
+	(setq out (1+ out))))
+    (setq h out)
+    (setq b out)
+    (when (> b 0)
+      (aset output out w3m-puny-delimiter)
+      (setq out (1+ out)))
+    (while (< h h-len)
+      (setq m 65536) ;; 17bits
+      (dotimes (j len)
+	(setq uni (aref input j))
+	(setq j (1+ j))
+	(setq uni (+ (* uni 256) (aref input j)))
+	(if (and (>= uni n) (< uni m)) (setq m uni)))
+      (setq delta (+ delta (* (- m n) (1+ h))))
+      (setq n m)
+      (dotimes (j len)
+	(setq uni (aref input j))
+	(setq j (1+ j))
+	(setq uni (+ (* uni 256) (aref input j)))
+	(when (< uni n)
+	  (setq delta (1+ delta))
+	  (if (= delta 0) (error "punycode overflow")))
+	(when (= uni n)
+	  (setq q delta)
+	  (setq k w3m-puny-base)
+	  (catch 'loop
+	    (while t
+	      (if (<= k bias)
+		  (setq thr w3m-puny-tmin)
+		(if (>= k (+ bias w3m-puny-tmax))
+		    (setq thr w3m-puny-tmax)
+		  (setq thr (- k bias))))
+	      (if (< q thr) (throw 'loop nil))
+	      (aset output out (w3m-puny-encode-digit (+ thr (% (- q thr) (- w3m-puny-base thr)))))
+	      (setq out (1+ out))
+	      (setq q (/ (- q thr) (- w3m-puny-base thr)))
+	      (setq k (+ k w3m-puny-base))))
+	  (aset output out (w3m-puny-encode-digit q))
+	  (setq out (1+ out))
+	  (setq bias (w3m-puny-adapt delta (1+ h) (= h b)))
+	  (setq delta 0)
+	  (setq h (1+ h))))
+      (setq delta (1+ delta))
+      (setq n (1+ n)))
+    (substring output 0 out)))
+
+(defun w3m-puny-encode (input)
+  (condition-case nil
+      (concat "xn--" (w3m-puny-encode1
+		      (encode-coding-string input w3m-puny-utf-16be)))
+    (error input)))
+
+(defun w3m-puny-encode-url (url)
+  "Encode URL to punycode."
+  (if (and w3m-puny-utf-16be
+	   (not (w3m-url-local-p url))
+	   (string-match w3m-puny-code-nonascii url))
+      (let (beg end idn)
+	(with-temp-buffer
+	  (insert url)
+	  (goto-char (point-min))
+	  (if (search-forward "://" nil t)
+	      (setq beg (point))
+	    (setq beg (point-min)))
+	  (if (search-forward "/" nil t)
+	      (setq end (1- (point)))
+	    (setq end (point-max)))
+	  (save-restriction
+	    (narrow-to-region beg end)
+	    (goto-char (point-min))
+	    (while (re-search-forward "[^.]?[^.\000-\177][^.]*" nil t)
+	      (setq idn (match-string-no-properties 0))
+	      (delete-region (match-beginning 0) (match-end 0))
+	      (insert (w3m-puny-encode idn))))
+	  (buffer-substring-no-properties (point-min) (point-max))))
+    url))
+
+(provide 'w3m-util)
+
+;;; w3m-util.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m-weather.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,510 @@
+;;; w3m-weather.el --- Look weather forecast -*- coding: iso-2022-7bit; -*-
+
+;; Copyright (C) 2001, 2002, 2003, 2005
+;; TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is a part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; w3m-weather.el is the add-on program of emacs-w3m to look weather
+;; foracast.  For more detail about emacs-w3m, see:
+;;
+;;    http://emacs-w3m.namazu.org/
+
+
+;;; How to install:
+
+;; Please put this file to appropriate directory, and if you want
+;; byte-compile it.  And add following lisp expressions to your
+;; ~/.emacs.
+;;
+;;     (autoload 'w3m-weather "w3m-weather" "Display weather report." t)
+
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+(require 'w3m)
+
+(defconst w3m-weather-completion-table
+  (eval-when-compile
+    (let* ((format "http://weather.yahoo.co.jp/weather/jp/%s.html")
+	   (alist
+	    '(;; URL$B$N0lIt(B, $B4A;zI=5-(B, $B%m!<%^;zI=5-(B, $BJLL>(B
+	      ;; ($B%m!<%^;zI=5-$G$OD92;$r>JN,$7$J$$$3$H(B)
+	      ("1a/1100" "$BF;KL!&=!C+(B" "douhokusouya" "souya")
+	      ("1a/1200" "$BF;KL!&>e@n(B" "douhokukamikawa" "kamikawa")
+	      ("1a/1300" "$BF;KL!&N1K((B" "douhokurumoi" "rumoi")
+	      ("1c/1710" "$BF;El!&LVAv(B" "doutouabashiri" "abashiri")
+	      ("1c/1720" "$BF;El!&KL8+(B" "doutoukitami" "kitami")
+	      ("1c/1730" "$BF;El!&LfJL(B" "doutoumonbetsu" "monbetsu")
+	      ("1c/1800" "$BF;El!&:,<<(B" "doutounemuro" "nemuro")
+	      ("1c/1900" "$BF;El!&6|O)(B" "doutoukushiro" "kushiro")
+	      ("1c/2000" "$BF;El!&==>!(B" "doutoutokachi" "tokachi")
+	      ("1b/1400" "$BF;1{!&@P<m(B" "dououishikari" "ishikari")
+	      ("1b/1500" "$BF;1{!&6uCN(B" "douousorachi" "sorachi")
+	      ("1b/1600" "$BF;1{!&8e;V(B" "dououshiribeshi" "shiribeshi")
+	      ("1d/2400" "$BF;Fn!&I0;3(B" "dounanhiyama" "hiyama")
+	      ("1d/2100" "$BF;Fn!&C@?6(B" "dounaniburi" "iburi")
+	      ("1d/2200" "$BF;Fn!&F|9b(B" "dounanhidaka" "hidaka")
+	      ("1d/2300" "$BF;Fn!&EOEg(B" "dounanoshima" "oshima")
+	      ("1d/2400" "$BF;Fn!&[X;3(B" "dounanhiyama" "hiyama")
+	      ("2/3110" "$B@D?98)!&DE7Z(B" "aomorikentsugaru" "tsugaru")
+	      ("2/3120" "$B@D?98)!&2<KL(B" "aomorikenshimokita" "shimokita")
+	      ("2/3130" "$B@D?98)!&;0H,>eKL(B"
+	       "aomorikensanpachikamikita" "sanpachikamikita")
+	      ("3/3310" "$B4d<j8)!&FbN&It(B" "iwatekennairikubu")
+	      ("3/3320" "$B4d<j8)!&1h4_KLIt(B" "iwatekenenganhokubu")
+	      ("3/3330" "$B4d<j8)!&1h4_FnIt(B" "iwatekenengannanbu")
+	      ("5/3210" "$B=)ED8)!&1h4_It(B" "akitakenenganbu")
+	      ("5/3220" "$B=)ED8)!&FbN&It(B" "akitakennairikubu")
+	      ("4/3410" "$B5\>k8)!&ElIt(B" "miyagikentoubu")
+	      ("4/3420" "$B5\>k8)!&@>It(B" "miyagikenseibu")
+	      ("6/3510" "$B;37A8)!&B<;3(B" "yamagatakenmurayama" "murayama")
+	      ("6/3520" "$B;37A8)!&CV;r(B" "yamagatakenokitama" "okitama")
+	      ("6/3530" "$B;37A8)!&>1Fb(B" "yamagatakenshonai" "shounai")
+	      ("6/3540" "$B;37A8)!&:G>e(B" "yamagatakenmogami" "mogami")
+	      ("7/3610" "$BJ!Eg8)!&CfDL$j(B" "hukushimakennakadoori" "nakadoori")
+	      ("7/3620" "$BJ!Eg8)!&IMDL$j(B" "hukushimakenhamadoori" "hamadoori")
+	      ("7/3630" "$BJ!Eg8)!&2qDE(B" "hukushimakenaidu" "aidu")
+	      ("8/4010" "$B0q>k8)!&KLIt(B" "ibaragikenhokubu")
+	      ("8/4020" "$B0q>k8)!&FnIt(B" "ibaragikennanbu")
+	      ("9/4110" "$BFJLZ8)!&FnIt(B" "tochigikennanbu")
+	      ("9/4120" "$BFJLZ8)!&KLIt(B" "tochigikenhokubu")
+	      ("10/4210" "$B72GO8)!&FnIt(B" "gunmakennanbu")
+	      ("10/4220" "$B72GO8)!&KLIt(B" "gunmakenhokubu")
+	      ("11/4310" "$B:k6L8)!&FnIt(B" "saitamakennanbu")
+	      ("11/4320" "$B:k6L8)!&KLIt(B" "saitamakenhokubu")
+	      ("11/4330" "$B:k6L8)!&CaIc(B" "saitamakenchichibu")
+	      ("12/4510" "$B@iMU8)!&KL@>It(B" "chibakenhokuseibu")
+	      ("12/4520" "$B@iMU8)!&KLElIt(B" "chibakenhokutoubu")
+	      ("12/4530" "$B@iMU8)!&FnIt(B" "chibakennanbu")
+	      ("13/4410" "$BEl5~ET!&El5~(B" "toukyoutotoukyou" "toukyou")
+	      ("13/4420" "$BEl5~ET!&0KF&=tEgKLIt(B"
+	       "toukyoutoizushotouhokubu" "izushotouhokubu")
+	      ("13/100" "$BEl5~ET!&0KF&=tEgFnIt(B"
+	       "toukyoutoizushotounanbu" "izushotounanbu")
+	      ("13/9600" "$BEl5~ET!&>.3^86=tEg(B"
+	       "toukyoutoogasawarashotou" "ogasawarashotou")
+	      ("14/4610" "$B?@F`@n8)!&ElIt(B" "kanagawakentoubu")
+	      ("14/4620" "$B?@F`@n8)!&@>It(B" "kanagawakenseibu")
+	      ("15/5410" "$B?73c8)!&2<1[(B" "niigatakenkaetsu" "kaetsu")
+	      ("15/5420" "$B?73c8)!&Cf1[(B" "niigatakenchuuetsu" "chuuetsu")
+	      ("15/5430" "$B?73c8)!&>e1[(B" "niigatakenjouetsu" "jouetsu")
+	      ("15/5440" "$B?73c8)!&:4EO(B" "niigatakensado" "sado")
+	      ("16/5510" "$BIY;38)!&ElIt(B" "toyamakentoubu")
+	      ("16/5520" "$BIY;38)!&@>It(B" "toyamakenseibu")
+	      ("17/5610" "$B@P@n8)!&2C2l(B" "ishikawakenkaga" "kaga")
+	      ("17/5620" "$B@P@n8)!&G=EP(B" "ishikawakennoto" "noto")
+	      ("18/5710" "$BJ!0f8)!&NfKL(B" "hukuikenreihoku" "reihoku")
+	      ("18/5720" "$BJ!0f8)!&NfFn(B" "hukuikenreinan" "reinan")
+	      ("19/4910" "$B;3M|8)!&Cf@>It(B" "yamanashikenchuuseibu")
+	      ("19/4920" "$B;3M|8)!&IY;N8^8P(B" "yamanashikenhujigoko" "hujigoko")
+	      ("20/4810" "$BD9Ln8)!&KLIt(B" "naganokenhokubu")
+	      ("20/4820" "$BD9Ln8)!&CfIt(B" "naganokenchuubu")
+	      ("20/4830" "$BD9Ln8)!&FnIt(B" "naganokennanbu")
+	      ("21/5210" "$B4tIl8)!&H~G;(B" "gihukenmino" "mino")
+	      ("21/5220" "$B4tIl8)!&HtBM(B" "gihukenhida" "hida")
+	      ("22/5010" "$B@E2,8)!&CfIt(B" "shizuokakenchuubu")
+	      ("22/5020" "$B@E2,8)!&0KF&(B" "shizuokakenizu" "izu")
+	      ("22/5030" "$B@E2,8)!&ElIt(B" "shizuokakentoubu")
+	      ("22/5040" "$B@E2,8)!&@>It(B" "shizuokakenseibu")
+	      ("23/5110" "$B0&CN8)!&@>It(B" "aichikenseibu")
+	      ("23/5120" "$B0&CN8)!&ElIt(B" "aichikentoubu")
+	      ("24/5310" "$B;0=E8)!&KLCfIt(B" "miekenhokuchuubu")
+	      ("24/5320" "$B;0=E8)!&FnIt(B" "miekennanbu")
+	      ("25/6010" "$B<"2l8)!&FnIt(B" "shigakennanbu")
+	      ("25/6020" "$B<"2l8)!&KLIt(B" "shigakenhokubu")
+	      ("26/400" "$B5~ETI\!&KLIt(B" "kyoutohuhokubu")
+	      ("26/6100" "$B5~ETI\!&FnIt(B" "kyoutohunanbu")
+	      ("27/6200" "$BBg:eI\(B" "oosakahu" "oosaka")
+	      ("28/500" "$BJ<8K8)!&KLIt(B" "hyougokenhokubu")
+	      ("28/6300" "$BJ<8K8)!&FnIt(B" "hyougokennanbu")
+	      ("29/6410" "$BF`NI8)!&KLIt(B" "narakenhokubu")
+	      ("29/6420" "$BF`NI8)!&FnIt(B" "narakennanbu")
+	      ("30/6510" "$BOB2N;38)!&KLIt(B" "wakayamakenhokubu")
+	      ("30/6520" "$BOB2N;38)!&FnIt(B" "wakayamakennanbu")
+	      ("31/6910" "$BD;<h8)!&ElIt(B" "tottorikentoubu")
+	      ("31/6920" "$BD;<h8)!&@>It(B" "tottorikenseibu")
+	      ("32/600" "$BEg:,8)!&1#4t(B" "shimanekenoki" "oki")
+	      ("32/6810" "$BEg:,8)!&ElIt(B" "shimanekentoubu")
+	      ("32/6820" "$BEg:,8)!&@>It(B" "shimanekenseibu")
+	      ("33/6610" "$B2,;38)!&FnIt(B" "okayamakennanbu")
+	      ("33/6620" "$B2,;38)!&KLIt(B" "okayamakenhokubu")
+	      ("34/6710" "$B9-Eg8)!&FnIt(B" "hiroshimakennanbu")
+	      ("34/6720" "$B9-Eg8)!&KLIt(B" "hiroshimakenhokubu")
+	      ("35/8110" "$B;38}8)!&@>It(B" "yamaguchikenseibu")
+	      ("35/8120" "$B;38}8)!&CfIt(B" "yamaguchikenchuubu")
+	      ("35/8140" "$B;38}8)!&KLIt(B" "yamaguchikenhokubu")
+	      ("35/8130" "$B;38}8)!&ElIt(B" "yamaguchikentoubu")
+	      ("36/7110" "$BFAEg8)!&KLIt(B" "tokushimakenhokubu")
+	      ("36/7120" "$BFAEg8)!&FnIt(B" "tokushimakennanbu")
+	      ("37/7200" "$B9a@n8)(B" "kagawaken" "kagawa")
+	      ("38/7320" "$B0&I28)!&ElM=(B" "ehimekentouyo" "touyo")
+	      ("38/7330" "$B0&I28)!&FnM=(B" "ehimekennanyo" "nanyo")
+	      ("38/7310" "$B0&I28)!&CfM=(B" "ehimekenchuuyo" "chuuyo")
+	      ("39/7410" "$B9bCN8)!&CfIt(B" "kouchikenchuubu")
+	      ("39/7420" "$B9bCN8)!&ElIt(B" "kouchikentoubu")
+	      ("39/7430" "$B9bCN8)!&@>It(B" "kouchikenseibu")
+	      ("40/8210" "$BJ!2,8)!&J!2,(B" "hukuokakenhukuoka" "hukuoka")
+	      ("40/8220" "$BJ!2,8)!&KL6e=#(B" "hukuokakenkitakyushu" "kitakyuushu")
+	      ("40/8230" "$BJ!2,8)!&C^K-(B" "hukuokakenchikuhou" "chikuhou")
+	      ("40/8240" "$BJ!2,8)!&C^8e(B" "hukuokakenchikugo" "chikugo")
+	      ("41/8510" "$B:42l8)!&FnIt(B" "sagakennanbu")
+	      ("41/8520" "$B:42l8)!&KLIt(B" "sagakenhokubu")
+	      ("42/700" "$BD9:j8)!&0m4tBPGO(B"
+	       "nagasakikenikitsushima" "iki" "tsushima" "ikitsushima")
+	      ("42/800" "$BD9:j8)!&8^Eg(B" "nagasakikengotou" "gotou")
+	      ("42/8410" "$BD9:j8)!&FnIt(B" "nagasakikennanbu")
+	      ("42/8420" "$BD9:j8)!&KLIt(B" "nagasakikenhokubu")
+	      ("43/8610" "$B7'K\8)!&7'K\(B" "kumamotokenkumamoto" "kumamoto")
+	      ("43/8620" "$B7'K\8)!&0$AI(B" "kumamotokenaso" "aso")
+	      ("43/8630" "$B7'K\8)!&E7Ap02KL(B"
+	       "kumamotokenamakusaashikita" "amakusa" "ashikita" "amakusaashikita")
+	      ("43/8640" "$B7'K\8)!&5eKa(B" "kumamotokenkuma" "kuma")
+	      ("44/8310" "$BBgJ,8)!&CfIt(B" "ooitakenchuubu")
+	      ("44/8320" "$BBgJ,8)!&KLIt(B" "ooitakenhokubu")
+	      ("44/8330" "$BBgJ,8)!&@>It(B" "ooitakenseibu")
+	      ("44/8340" "$BBgJ,8)!&FnIt(B" "ooitakennanbu")
+	      ("45/8710" "$B5\:j8)!&FnItJ?LnIt(B" "miyazakikennanbuheiyabu")
+	      ("45/8720" "$B5\:j8)!&KLItJ?LnIt(B" "miyazakikenhokubuheiyabu")
+	      ("45/8730" "$B5\:j8)!&FnIt;31h$$(B" "miyazakikennanbuyamazoi")
+	      ("45/8740" "$B5\:j8)!&KLIt;31h$$(B" "miyazakikenhokubuyamazoi")
+	      ("46/8810" "$B</;yEg8)!&;'K`(B" "kagoshimakensatsuma" "satsuma")
+	      ("46/8820" "$B</;yEg8)!&Bg6y(B" "kagoshimakenoosumi" "oosumi")
+	      ("46/900" "$B</;yEg8)!&<o;REg!&205WEg(B"
+	       "kagoshimakentanegashimayakushima" "tanegashima" "yakushima" "tanegashimayakushima")
+	      ("46/1000" "$B</;yEg8)!&1bH~(B" "kagoshimakenamami" "amami")
+	      ("47/9110" "$B2-Fl8)!&K\EgCfFnIt(B"
+	       "okinawakenhontouchuunanbu" "hontouchuunanbu")
+	      ("47/9120" "$B2-Fl8)!&K\EgKLIt(B"
+	       "okinawakenhontouhokubu" "hontouhokubu")
+	      ("47/9130" "$B2-Fl8)!&5WJFEg(B" "okinawakenkumejima" "kumejima")
+	      ("47/9200" "$B2-Fl8)!&BgElEg(B" "okinawakendaitoujima" "daitoujima")
+	      ("47/9300" "$B2-Fl8)!&5\8EEg(B" "okinawakenmiyakojima" "miyakojima")
+	      ("47/9400" "$B2-Fl8)!&@P3@Eg(B"
+	       "okinawakenishigakijima" "ishigakijima")
+	      ("47/9500" "$B2-Fl8)!&M?Fa9qEg(B"
+	       "okinawakenyonagunijima" "yonagunijima")))
+	   (table)
+	   ;; $B%X%\%s<0$H71Na<0$NBP1~I=(B
+	   (hepburn-table
+	    (let (table)
+	      (dolist (x '(("si" "shi")
+			   ("zi" "ji")
+			   ("zu" "du")
+			   ("ti" "chi")
+			   ("tu" "tsu")
+			   ("hu" "fu")))
+		(push x table)
+		(push (reverse x)table))
+	      (dolist (x '(("sy" . "sh")
+			   ("zy" . "j")
+			   ("ty" . "ch")))
+		(dolist (y '("a" "u" "o"))
+		  (push (list (concat (car x) y) (concat (cdr x) y)) table)
+		  (push (list (concat (cdr x) y) (concat (car x) y)) table)))
+	      table))
+	   ;; $BBP1~I=$K>h$C$F$$$kJ8;zNs$rC5$9@55,I=8=(B
+	   (hepburn-regexp
+	    (format "\\(?:\\`\\|[aiueo]\\)\\(n\\([^aiueoy]\\)\\|%s\\)"
+		    (regexp-opt (mapcar (function car) hepburn-table))))
+	   ;; $BD92;$NM-L5$K$h$kGI@87A$NI=(B
+	   (prolonged-table
+	    (let (table)
+	      (dolist (x '("k" "ky"
+			   "s" "sy" "sh"
+			   "t" "ty" "ch"
+			   "n" "ny"
+			   "h" "hy"
+			   "m" "my"
+			   "y"
+			   "r" "ry"
+			   "w"
+			   "g" "gy"
+			   "z" "zy" "j"
+			   "d" "dy"
+			   "b" "by"
+			   "p" "py"))
+		(let ((long-vowels '("ou" "oo" "o-")))
+		  (dolist (y long-vowels)
+		    (push (cons (concat x y)
+				(append
+				 (mapcar
+				  (lambda (z) (concat x z))
+				  (delete y (copy-sequence long-vowels)))
+				 (list (concat x "o"))))
+			  table)))
+		(push (list (concat x "uu") (concat x "u"))
+		      table))
+	      table))
+	   ;; $BGI@87A$NI=$K>h$C$F$$$kJ8;zNs$rC5$9@55,I=8=(B
+	   (prolonged-regexp (format "\\(?:\\`\\|[aiueo]\\)\\(%s\\)"
+				     (regexp-opt (mapcar (function car)
+							 prolonged-table)))))
+      (labels ((hepburn-candidates
+		(str)
+		"$B%X%\%s<0$H71Na<0$N:9$K$h$C$F@8$8$kGI@87A$rF@$k(B"
+		(if (string-match hepburn-regexp str)
+		    (let ((prefix (substring str 0 (match-beginning 1)))
+			  (candidates (if (match-beginning 2)
+					  '("n" "nn")
+					(assoc (match-string 1 str)
+					       hepburn-table)))
+			  (suffixes
+			   (hepburn-candidates
+			    (substring str (or (match-beginning 2)
+					       (match-end 0)))))
+			  (buf))
+		      (dolist (x candidates)
+			(dolist (y suffixes)
+			  (push (concat prefix x y) buf)))
+		      buf)
+		  (list str)))
+	       (prolonged-candidates
+		(str)
+		"$BD92;$NM-L5$K$h$C$F@8$8$kGI@87A$rF@$k(B"
+		(let (buf)
+		  (if (string-match prolonged-regexp str)
+		      (let ((prefix (substring str 0 (match-beginning 1)))
+			    (candidates (assoc (match-string 1 str)
+					       prolonged-table))
+			    (suffixes (prolonged-candidates
+				       (substring str (match-end 0)))))
+			(dolist (x candidates)
+			  (dolist (y suffixes)
+			    (push (concat prefix x y) buf))))
+		    (setq buf (list str)))
+		  (dolist (x buf)
+		    (when (string-match "\\(\\`\\|[aiue]\\)oo" x)
+		      (let ((prefix (substring x 0 (match-end 1)))
+			    (suffix (substring x (match-end 0))))
+			(dolist (y '("o" "oh" "o-"))
+			  (push (concat prefix y suffix) buf)))))
+		  buf))
+	       (romaji-candidates
+		(str)
+		"$BA4$F$NGI@87A$rF@$k(B"
+		(let (buf)
+		  (dolist (x (hepburn-candidates str))
+		    (dolist (y (prolonged-candidates x))
+		      (push y buf)))
+		  buf)))
+	(dolist (area alist)
+	  (let ((url (format format (car area)))
+		(kanji (cadr area)))
+	    (push (list kanji (nth 2 area) url) table)
+	    (dolist (romaji (cddr area))
+	      (dolist (x (romaji-candidates romaji))
+		(push (list x kanji) table)))))
+	(nreverse table))))
+  "Completion table of areas and urls.")
+
+(defcustom w3m-weather-default-area
+  "$B5~ETI\!&FnIt(B"
+  "Default region to check weather."
+  :group 'w3m
+  :type (cons 'radio
+	      (delq nil
+		    (mapcar (lambda (area)
+			      (when (nth 2 area)
+				(list 'const (car area))))
+			    w3m-weather-completion-table))))
+
+(defcustom w3m-weather-filter-functions
+  '(w3m-weather-extract-contents
+    w3m-weather-adjust-contents
+    w3m-weather-expand-anchors
+    w3m-weather-insert-title)
+  "Filter functions to remove useless tags."
+  :group 'w3m
+  :type 'hook)
+
+(defvar w3m-weather-input-history nil)
+
+(defun w3m-weather-input-area ()
+  (let* ((str
+	  (completing-read (format "Input area (default %s): "
+				   w3m-weather-default-area)
+			   'w3m-weather-area-completion nil t nil
+			   'w3m-weather-input-history))
+	 (area
+	  (cond
+	   ((string= "" str) w3m-weather-default-area)
+	   ((string-match "[^-a-zA-Z]" str) str)
+	   (t (cadr (assoc str w3m-weather-completion-table))))))
+    (setq w3m-weather-input-history
+	  (cons area
+		(delete area
+			(delete str w3m-weather-input-history))))
+    area))
+
+(defun w3m-weather-area-completion (partial predicate flag)
+  (if (eq flag 'lambda)
+      (and (assoc partial w3m-weather-completion-table)
+	   (or (not predicate)
+	       (funcall predicate partial))
+	   t)
+    (let ((kanji "")
+	  (romaji "")
+	  (romaji-partial partial))
+      (when (string-match "\\`\\(?:[^-a-zA-Z]+\\)" partial)
+	(let ((suffix (substring partial (match-end 0))))
+	  (setq kanji (substring partial 0 (match-end 0))
+		romaji (try-completion
+			""
+			(mapcar
+			 (lambda (x)
+			   (list (cadr (assoc x w3m-weather-completion-table))))
+			 (all-completions kanji w3m-weather-completion-table)))
+		romaji-partial (concat romaji suffix))))
+      (let ((collection)
+	    (regexp
+	     (and (string-match "$B!&(B\\'" kanji)
+		  (string-match "[aiueo]n\\'" romaji)
+		  (concat "\\`" romaji "n[^aiueoy]"))))
+	(dolist (x (all-completions romaji-partial w3m-weather-completion-table))
+	  (unless (and regexp (string-match regexp x))
+	    (setq x (assoc x w3m-weather-completion-table))
+	    (unless (assoc (cadr x) collection)
+	      (push (cons (cadr x) (car x)) collection))))
+	(cond
+	 ((not flag)
+	  (let ((s (try-completion kanji collection predicate)))
+	    (if (and (stringp s) (string< s partial))
+		(when (setq s (try-completion romaji-partial
+					      (mapcar (lambda (x) (list (cdr x)))
+						      collection)
+					      predicate))
+		  (concat kanji (substring s (if romaji (length romaji) 0))))
+	      s)))
+	 ((eq flag t)
+	  (all-completions kanji collection predicate)))))))
+
+;;;###autoload
+(defun w3m-weather (area)
+  "Display weather report."
+  (interactive
+   (list (if current-prefix-arg
+	     (w3m-weather-input-area)
+	   w3m-weather-default-area)))
+  (w3m-goto-url (format "about://weather/%s" area)))
+
+;;;###autoload
+(defun w3m-about-weather (url no-decode no-cache post-data referer handler)
+  (if (string-match "\\`about://weather/" url)
+      (lexical-let* ((url url)
+		     (no-cache no-cache)
+		     (area (substring url (match-end 0)))
+		     (furl (nth 2 (assoc area w3m-weather-completion-table))))
+	(w3m-process-do
+	    (type (w3m-retrieve furl nil no-cache nil nil handler))
+	  (when type
+	    (w3m-decode-buffer furl)
+	    (w3m-weather-run-filter-functions w3m-weather-filter-functions
+					      area furl no-cache handler))))
+    (w3m-message "Unknown URL: %s" url)
+    nil))
+
+(defun w3m-weather-run-filter-functions (functions area url no-cache handler)
+  (if functions
+      (lexical-let ((functions functions)
+		    (area area)
+		    (url url)
+		    (no-cache no-cache))
+	(w3m-process-do
+	    (nil (funcall (pop functions) area url no-cache handler))
+	  (w3m-weather-run-filter-functions functions area url
+					    no-cache handler)))
+    "text/html"))
+
+(defun w3m-weather-extract-contents (&rest args)
+  "Remove both header and footer in the weather forecast pages."
+  (goto-char (point-min))
+  (when (search-forward "<!---MAIN_CONTENTS_table--->" nil t)
+    (delete-region (point-min) (match-beginning 0)))
+  (goto-char (point-max))
+  (when (search-backward "<!---Local_Link--->" nil t)
+    (delete-region (match-beginning 0) (point-max))))
+
+(defun w3m-weather-adjust-contents (&rest args)
+  ;; Remove spacers.
+  (goto-char (point-min))
+  (while (search-forward "<tr><td>\
+<img src=\"http://img.yahoo.co.jp/images/clear.gif\" width=1>\
+</td></tr>" nil t)
+    (delete-region (match-beginning 0) (match-end 0)))
+  ;; Remove execessive tables.
+  (goto-char (point-min))
+  (while (re-search-forward "<table[^>]*>[ \t\r\f\n]*</table>" nil t)
+    (delete-region (match-beginning 0) (match-end 0)))
+  (goto-char (point-min))
+  ;; Remove too narrow width parameters.
+  (while (re-search-forward "<td[^>]*\\(width=1%\\)" nil t)
+    (delete-region (match-beginning 1) (match-end 1)))
+  ;; Display border lines.
+  (goto-char (point-min))
+  (while (re-search-forward "\
+<table border=\\(0\\) cellpadding=[1-9][0-9]* cellspacing=[1-9][0-9]*" nil t)
+    (goto-char (match-beginning 1))
+    (delete-char 1)
+    (insert "1"))
+  (goto-char (point-min))
+  (while (re-search-forward
+	  "<td align=center width=25%>[ \t\r\f\n]*<table border=1" nil t)
+    (delete-char -1)
+    (insert "0")))
+
+(defun w3m-weather-insert-title (area url &rest args)
+  "Insert title."
+  (goto-char (point-min))
+  (insert "<head><title>Weather forecast of "
+	  area
+	  "</title></head>\n"
+	  "<body><p align=left><a href=\""
+	  url
+	  "\">[Yahoo!]</a></p>\n")
+  (goto-char (point-max))
+  (insert "</body>"))
+
+(defun w3m-weather-expand-anchors (area url &rest args)
+  ;; FIXME: $BE75$M=Js%Z!<%8$K4^$^$l$F$$$kAjBP%j%s%/$r@dBP%j%s%/$K=q$-49(B
+  ;; $B$($k$?$a$N4X?t!%$3$l$i$NAjBP%j%s%/$r0BA4$K<h$j07$&$?$a$K$O!$(Bbase
+  ;; URL $B$rJV$;$k$h$&$K!$(Babout:// $B$N9=B$$r=q$-D>$9I,MW$,$"$k$H9M$($i$l(B
+  ;; $B$k$,!$$H$j$"$($:8e2s$7!%(B
+  (goto-char (point-min))
+  (while (re-search-forward
+	  (eval-when-compile
+	    (concat "<a[ \t\r\f\n]+href=" w3m-html-string-regexp))
+	  nil t)
+    (replace-match (format
+		    "<a href=\"%s\""
+		    (w3m-expand-url (w3m-remove-redundant-spaces
+				     (or (match-string-no-properties 2)
+					 (match-string-no-properties 3)
+					 (match-string-no-properties 1)))
+				    url)))))
+
+(provide 'w3m-weather)
+
+;;; w3m-weather.el ends here.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/emacs/site-lisp/w3m/w3m.el	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,10807 @@
+;;; w3m.el --- an Emacs interface to w3m -*- coding: iso-2022-7bit; -*-
+
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+;; 2010 TSUCHIYA Masatoshi <[e-mail]>
+
+;; Authors: TSUCHIYA Masatoshi <[e-mail]>,
+;;          Shun-ichi GOTO     <[e-mail]>,
+;;          Satoru Takabayashi <[e-mail]>,
+;;          Hideyuki SHIRAI    <[e-mail]>,
+;;          Keisuke Nishida    <[e-mail]>,
+;;          Yuuichi Teranishi  <[e-mail]>,
+;;          Akihiro Arisawa    <[e-mail]>,
+;;          Katsumi Yamaoka    <[e-mail]>,
+;;          Tsuyoshi CHO       <[e-mail]>
+;; Keywords: w3m, WWW, hypermedia
+
+;; This file is the main part of emacs-w3m.
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+
+;;; Commentary:
+
+;; Emacs-w3m is an Emacs interface to the w3m program.  For more
+;; detail about w3m, see:
+;;
+;;    http://w3m.sourceforge.net/
+
+
+;;; How to install:
+
+;; See the README file in any case.  We also recommend you check
+;; whether a newer version of w3m is released.
+;;
+;; The outline of installation is: run the `configure' script and type
+;; `make install' in the top directory of the emacs-w3m distribution.
+
+
+;;; Code:
+
+;; Developers, you must not use the cl functions (e.g., `coerce',
+;; `equalp', `merge', etc.) in any emacs-w3m or shimbun modules.  To
+;; exclude run-time cl is the policy of emacs-w3m.  However, XEmacs
+;; employs the cl package for all time, or those functions are
+;; possibly provided in the other modules like APEL, so you may use
+;; them only in w3m-xmas.el.  Note that `caaaar', for example, is not
+;; a cl function if it is byte compiled; see cl-macs.el.
+(eval-when-compile
+  (require 'cl))
+
+(eval-when-compile
+  (unless (dolist (var nil t))
+    ;; Override the `dolist' macro which may be faultily provided by
+    ;; old egg.el.
+    (load "cl-macs" nil t)))
+
+;; The following variables will be referred to by the external modules
+;; which bind such variables only when compiling themselves.  And also
+;; some modules have the `defadvice' forms including them and run
+;; `byte-compile' at run-time.
+(eval-and-compile
+  (defvar w3m-current-title nil
+    "Title of a page visiting in the current buffer.")
+  (defvar w3m-current-url nil
+    "A url of a page visiting in the current buffer."))
+
+(require 'w3m-util)
+(require 'w3m-proc)
+
+;; Silence the Emacs' byte-compiler that says ``might not be defined''.
+(eval-when-compile
+  (defalias 'w3m-setup-menu 'ignore))
+
+(eval-and-compile
+  (cond
+   ((featurep 'xemacs)
+    (require 'w3m-xmas))
+   ((>= emacs-major-version 21)
+    (require 'w3m-ems))
+   (t
+    (error "Emacs-w3m of this version no longer supports Emacs %s"
+	   (mapconcat 'identity
+		      (nbutlast (split-string emacs-version "\\."))
+		      ".")))))
+
+(require 'w3m-fb)
+(require 'w3m-hist)
+(require 'timezone)
+(require 'image-mode nil t)
+
+;; Add-on programs:
+(eval-and-compile
+  (autoload 'w3m-bookmark-view "w3m-bookmark"
+    "Display the bookmark" t)
+  (autoload 'w3m-bookmark-view-new-session "w3m-bookmark"
+    "Display the bookmark on a new session" t)
+  (autoload 'w3m-bookmark-add-this-url "w3m-bookmark"
+    "Add a link under point to the bookmark." t)
+  (autoload 'w3m-bookmark-add-current-url "w3m-bookmark"
+    "Add a url of the current page to the bookmark." t)
+  (autoload 'w3m-bookmark-add-all-urls "w3m-bookmark"
+    "Add urls of all pages being visited to the bookmark." t)
+  (autoload 'w3m-bookmark-add "w3m-bookmark" "Add URL to bookmark.")
+  (autoload 'w3m-search "w3m-search"
+    "Search a word using search engines." t)
+  (autoload 'w3m-search-new-session "w3m-search"
+    "Search a word using search engines in a new session." t)
+  (autoload 'w3m-search-uri-replace "w3m-search")
+  (autoload 'w3m-weather "w3m-weather"
+    "Display a weather report." t)
+  (autoload 'w3m-about-weather "w3m-weather")
+  (autoload 'w3m-antenna "w3m-antenna"
+    "Report changes of web sites." t)
+  (autoload 'w3m-antenna-add-current-url "w3m-antenna"
+    "Add a link address of the current page to the antenna database." t)
+  (autoload 'w3m-about-antenna "w3m-antenna")
+  (autoload 'w3m-dtree "w3m-dtree"
+    "Display a directory tree." t)
+  (autoload 'w3m-about-dtree "w3m-dtree")
+  (autoload 'w3m-namazu "w3m-namazu"
+    "Search files with Namazu." t)
+  (autoload 'w3m-about-namazu "w3m-namazu")
+  (autoload 'w3m-perldoc "w3m-perldoc"
+    "View Perl documents" t)
+  (autoload 'w3m-about-perldoc "w3m-perldoc")
+  (autoload 'w3m-fontify-forms "w3m-form")
+  (autoload 'w3m-fontify-textareas "w3m-form")
+  (autoload 'w3m-form-textarea-file-cleanup "w3m-form")
+  (autoload 'w3m-form-textarea-files-remove "w3m-form")
+  (autoload 'w3m-form-kill-buffer "w3m-form")
+  (autoload 'w3m-form-set-number "w3m-form")
+  (autoload 'w3m-filter "w3m-filter")
+  (autoload 'w3m-setup-tab-menu "w3m-tabmenu")
+  (autoload 'w3m-setup-bookmark-menu "w3m-bookmark")
+  (autoload 'w3m-switch-buffer "w3m-tabmenu")
+  (autoload 'w3m-cookie-set "w3m-cookie")
+  (autoload 'w3m-cookie-get "w3m-cookie")
+  (autoload 'w3m-cookie "w3m-cookie")
+  (autoload 'w3m-about-cookie "w3m-cookie")
+  (autoload 'w3m-cookie-shutdown "w3m-cookie" nil t)
+  (autoload 'report-emacs-w3m-bug "w3m-bug" nil t)
+  (autoload 'w3m-replace-symbol "w3m-symbol" nil t)
+  (autoload 'w3m-mail "w3m-mail" nil t)
+  (autoload 'w3m-link-numbering-mode "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-follow "w3m-lnum" nil t)
+  (autoload 'w3m-go-to-linknum "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-toggle-inline-image "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-view-image "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-external-view-this-url "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-edit-this-url "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-print-this-url "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-download-this-url "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-bookmark-add-this-url "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-zoom-in-image "w3m-lnum" nil t)
+  (autoload 'w3m-linknum-zoom-out-image "w3m-lnum" nil t)
+  (autoload 'w3m-session-select "w3m-session"
+    "Select session from session list." t)
+  (autoload 'w3m-session-save "w3m-session"
+    "Save list of displayed session." t)
+  (autoload 'w3m-setup-session-menu "w3m-session")
+  (autoload 'w3m-session-automatic-save "w3m-session")
+  (autoload 'w3m-session-deleted-save "w3m-session")
+  (autoload 'w3m-session-last-autosave-session "w3m-session")
+  (autoload 'w3m-session-goto-session "w3m-session")
+  (autoload 'w3m-session-crash-recovery-save "w3m-session")
+  (autoload 'w3m-session-last-crashed-session "w3m-session"))
+
+;; Avoid byte-compile warnings.
+(eval-when-compile
+  (autoload 'doc-view-mode "doc-view" nil t)
+  (autoload 'doc-view-mode-p "doc-view")
+  (autoload 'image-backward-hscroll "image-mode" nil t)
+  (autoload 'image-bol "image-mode" nil t)
+  (autoload 'image-eol "image-mode" nil t)
+  (autoload 'image-forward-hscroll "image-mode" nil t)
+  (autoload 'image-mode-setup-winprops "image-mode")
+  (autoload 'image-scroll-down "image-mode" nil t)
+  (autoload 'image-scroll-up "image-mode" nil t)
+  (autoload 'quit-window "window" nil t)
+  (autoload 'rfc2368-parse-mailto-url "rfc2368")
+  (autoload 'widget-convert-button "wid-edit")
+  (autoload 'widget-forward "wid-edit" nil t)
+  (autoload 'widget-get "wid-edit")
+  (unless (fboundp 'char-to-int)
+    (defalias 'char-to-int 'identity))
+  (defvar doc-view-mode-map)
+  (defvar w3m-bookmark-mode)
+  (defvar w3m-bookmark-menu-items)
+  (defvar w3m-bookmark-menu-items-pre)
+  (defvar w3m-tab-menubar-make-items-preitems)
+  (defvar w3m-session-menu-items-pre)
+  (defvar w3m-session-menu-items))
+
+(defconst emacs-w3m-version
+  (eval-when-compile
+    (let ((rev "$Revision: 1.1499 $"))
+      (and (string-match "\\.\\([0-9]+\\) \\$\\'" rev)
+	   (setq rev (- (string-to-number (match-string 1 rev)) 1136))
+	   (format "1.4.%d" (+ rev 50)))))
+  "Version number of this package.")
+
+(defgroup w3m nil
+  "Emacs-w3m - the web browser of choice."
+  :group 'hypermedia)
+
+(defgroup w3m-face nil
+  "Faces used for emacs-w3m."
+  :group 'w3m
+  :prefix "w3m-")
+
+(defcustom w3m-command nil
+  "*Name of the executable file of the w3m command.
+You normally don't have to specify the value, since emacs-w3m looks
+for the existing commands in order of w3m, w3mmee and w3m-m17n in the
+`exec-path' directories in order if it is nil in the beginning.
+
+If you want to use the other w3m command, specify the value of this
+variable explicitly in the .emacs file or customize the value and save
+it.  In this case, you need to restart Emacs and emacs-w3m.  That is,
+there is currently no way to apply the changing of the w3m command to
+all the emacs-w3m programs safely after loading the w3m.elc module."
+  :group 'w3m
+  :type '(radio (const :format "Not specified " nil)
+		(string :format "Command: %v\n" :size 0)))
+
+(defcustom w3m-display-ins-del 'auto
+  "*Value of `display_ins_del' option."
+  :group 'w3m
+  :type '(radio (const :format "Delect automatically" auto)
+		(const :format "Use fontify" fontify)
+		(const :format "Use tag" tag)
+		(const :format "No have option" nil)))
+
+(defvar w3m-type nil
+  "Type of the w3m command.
+The valid values include `w3m', `w3mmee', and `w3m-m17n'.")
+(defvar w3m-compile-options nil
+  "Compile options that the w3m command was built with.")
+(defvar w3m-version nil
+  "Version string of the w3m command.")
+
+;; Set w3m-command, w3m-type, w3m-version and w3m-compile-options
+(if noninteractive ;; Don't call the external command when compiling.
+    (unless w3m-command
+      (setq w3m-command "w3m"))
+  (when (or (null w3m-command)
+	    (null w3m-type)
+	    (null w3m-version)
+	    (null w3m-compile-options))
+    (let ((command (or w3m-command
+		       (w3m-which-command "w3m")
+		       (w3m-which-command "w3mmee")
+		       (w3m-which-command "w3m-m17n"))))
+      (when command
+	(setq w3m-command command)
+	(with-temp-buffer
+	  (call-process command nil t nil "-version")
+	  (goto-char (point-min))
+	  (when (re-search-forward "version \\(w3m/0\\.[3-9]\
+\\(?:\\.[0-9\\]\\)*\\(?:rc[0-9]+\\)?\
+\\(?:-stable\\|\\(?:\\+cvs\\(?:-[0-9]+\\.[0-9]+\\)?\\)\\)?\
+\\(?:-inu\\|\\(-m17n\\|\\(\\+mee\\)\\)\\)?[^,]*\\)" nil t)
+	    (setq w3m-version (match-string 1))
+	    (setq w3m-type
+		  (cond
+		   ((match-beginning 3) 'w3mmee)
+		   ((match-beginning 2) 'w3m-m17n)
+		   ((match-beginning 1) 'w3m)
+		   (t 'other))))
+	  (when (re-search-forward "options +" nil t)
+	    (setq w3m-compile-options
+		  (or (split-string (buffer-substring (match-end 0)
+						      (point-at-eol))
+				    ",")
+		      (list nil)))
+	    (when (member "m17n" w3m-compile-options)
+	      (setq w3m-type 'w3m-m17n))))))))
+
+(when (not (stringp w3m-command))
+  (error "\
+Install w3m command in `exec-path' or set `w3m-command' variable correctly"))
+
+(defcustom w3m-user-agent (concat "Emacs-w3m/" emacs-w3m-version
+				  " " w3m-version)
+  "String used for the User-Agent field.  See also `w3m-add-user-agent'."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-add-user-agent t
+  "Non-nil means add the User-Agent field to the request header.
+The value of `w3m-user-agent' is used for the field body."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-language
+  (if (and (boundp 'current-language-environment)
+	   ;; In XEmacs 21.5 it may be the one like "Japanese (UTF-8)".
+	   (string-match "\\`Japanese"
+			 (symbol-value 'current-language-environment)))
+      "Japanese")
+  "*Your preferred language used in emacs-w3m sessions."
+  :group 'w3m
+  :type '(radio (const :format "%v " "Japanese")
+		(const :tag "Other" nil))
+  :get (lambda (symbol)
+	 (let ((value (format "%s" (default-value symbol)))
+	       (case-fold-search t))
+	   (prog1
+	       (setq value (if (string-match "\\`japan" value) "Japanese"))
+	     (custom-set-default symbol value))))
+  :set (lambda (symbol value)
+	 (custom-set-default symbol (if (equal value "Japanese") "Japanese"))))
+
+(defcustom w3m-command-arguments
+  (if (eq w3m-type 'w3mmee) '("-o" "concurrent=0" "-F") nil)
+  "*List of the default arguments passed to the w3m command.
+See also `w3m-command-arguments-alist'."
+  :group 'w3m
+  :type '(repeat (string :format "Argument: %v\n" :size 0)))
+
+(defcustom w3m-command-arguments-alist nil
+  "*Alist of regexps matching urls and additional arguments passed to w3m.
+A typical usage of this variable is to specify whether to use the proxy
+server for the particular hosts.  The first match made will be used.
+Here is an example of how to set this variable:
+
+\(setq w3m-command-arguments-alist
+      '(;; Don't use the proxy server to visit local web pages.
+	(\"^http://\\\\(?:[^/]*\\\\.\\\\)*your-company\\\\.com\\\\(?:/\\\\|$\\\\)\"
+	 \"-no-proxy\")
+	;; Use the proxy server to visit any foreign urls.
+	(\"\"
+	 \"-o\" \"http_proxy=http://proxy.your-company.com:8080/\")))
+
+Where the first element matches the url that the scheme is \"http\" and
+the hostname is either \"your-company.com\" or a name ended with
+\".your-company.com\", and the proxy server is not used for those hosts.
+If you are a novice on the regexps, you can use the
+`w3m-no-proxy-domains' variable instead."
+  :group 'w3m
+  :type '(repeat (cons :format "%v" :indent 4
+		       (regexp :format "%t: %v\n" :size 0)
+		       (repeat :tag "Arguments passed to w3m command"
+			       (string :format "Arg: %v\n" :size 0)))))
+
+(defcustom w3m-no-proxy-domains nil
+  "*List of domain names with which emacs-w3m will not use a proxy server.
+Each element should be exactly a domain name which means the latter
+common part of the host names, not a regexp."
+  :group 'w3m
+  :type '(repeat (string :format "Domain name: %v\n" :size 0)))
+
+(defcustom w3m-command-environment
+  (delq nil
+	(list
+	 (if (eq w3m-type 'w3mmee)
+	     (cons "W3MLANG" "ja_JP.kterm"))
+	 (if (eq system-type 'windows-nt)
+	     (cons "CYGWIN" "binmode tty"))))
+  "*Alist of environment variables for subprocesses to inherit."
+  :group 'w3m
+  :type '(repeat
+	  (cons :format "%v" :indent 4
+		(string :format "Name: %v\n" :size 0)
+		(string :format "    Value: %v\n" :size 0))))
+
+(defcustom w3m-fill-column -1
+  "*Integer used as the value for `fill-column' in emacs-w3m buffers.
+If it is positive, pages will be displayed within the columns of that
+number.  If it is zero or negative, the number of columns which
+subtracted that number from the window width is applied to the maximum
+width of pages.  Note that XEmacs does not always obey this setting."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-mailto-url-function nil
+  "*Function used to handle the `mailto' urls.
+Function is called with one argument, just a url.  If it is nil, a
+function specified by the `mail-user-agent' variable will be used for
+composing mail messages."
+  :group 'w3m
+  :type '(radio (const :tag "Not specified" nil)
+		(function :format "%t: %v\n" :size 0)))
+
+(defcustom w3m-mailto-url-popup-function-alist
+  '((cmail-mail-mode . pop-to-buffer)
+    (mail-mode . pop-to-buffer)
+    (message-mode . pop-to-buffer)
+    (mew-draft-mode . pop-to-buffer)
+    (mh-letter-mode . pop-to-buffer)
+    (wl-draft-mode . pop-to-buffer))
+  "*Alist of (MAJOR-MODE . FUNCTION) pairs used to pop to a mail buffer up.
+If a user clicks on a `mailto' url and a mail buffer is composed by
+`mail-user-agent' with the MAJOR-MODE, FUNCTION will be called with a
+mail buffer as an argument.  Note that the variables
+`special-display-buffer-names', `special-display-regexps',
+`same-window-buffer-names' and `same-window-regexps' will be bound to
+nil while popping to a buffer up."
+  :group 'w3m
+  :type '(repeat (cons :format "%v" :indent 11
+		       (symbol :format "Major-mode: %v\n" :size 0)
+		       (function :format "%t: %v\n" :size 0))))
+
+(defcustom w3m-use-mule-ucs
+  (and (eq w3m-type 'w3m) (featurep 'un-define))
+  "*Non-nil means use the multi-script support with Mule-UCS."
+  :group 'w3m
+  :type 'boolean
+  :require 'w3m-ucs)
+
+(when w3m-use-mule-ucs
+  (condition-case nil
+      (require 'w3m-ucs)
+    (error (setq w3m-use-mule-ucs nil))))
+
+(defcustom w3m-use-ange-ftp nil
+  "*Non-nil means that `ange-ftp' or `efs' is used to access FTP servers."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-doc-view-content-types
+  (condition-case nil
+      (delq nil (mapcar (lambda (type)
+			  (if (doc-view-mode-p type)
+			      (format "application/%s" type)))
+			'(dvi postscript pdf)))
+    (error nil))
+  "List of content types for which to use `doc-view-mode' to view contents.
+This overrides `w3m-content-type-alist'."
+  :group 'w3m
+  :type '(repeat (string :tag "Type" :value "application/")))
+
+(defcustom w3m-imitate-widget-button '(eq major-mode 'gnus-article-mode)
+  "*If non-nil, imitate the widget buttons on link (anchor) buttons.
+It is useful for moving about in a Gnus article buffer using TAB key.
+It can also be any Lisp form that should return a boolean value."
+  :group 'w3m
+  :type '(sexp :size 0))
+
+(defcustom w3m-treat-image-size t
+  "*Non-nil means let w3m mind the ratio of the size of images and text.
+
+If it is non-nil, the w3m command will make a halfdump which reserves
+rectangle spaces in which images will be put, and also `alt' texts
+will be truncated or padded with spaces so that their display width
+will be the same as the width of images.
+
+See also `w3m-pixels-per-character' and `w3m-pixels-per-line'.  Those
+values will be passed to the w3m command in order to compute columns
+and lines which images occupy."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-pixels-per-line 64
+  "*Integer used for the `-ppl' argument of the w3m command.
+If nil, the height of the default face is used.  It is valid only when
+`w3m-treat-image-size' is non-nil.  Note that a small value may not
+induce a good result.  If you want to use emacs-w3m in a character
+terminal and make `w3m-treat-image-size' effective, you need to set
+this variable properly."
+  :group 'w3m
+  :type '(choice (const :tag "Auto Detect" nil)
+		 (integer :tag "Specify Pixels")))
+
+(defcustom w3m-pixels-per-character nil
+  "*Integer used for the `-ppc' argument of the w3m command.
+If nil, the width of the default face is used.  It is valid only when
+`w3m-treat-image-size' is non-nil.  If you want to use emacs-w3m in a
+character terminal and make `w3m-treat-image-size' effective, you need
+to set this variable properly."
+  :group 'w3m
+  :type '(radio (const :tag "Auto Detect" nil)
+		(integer :format "Specify Pixels: %v\n" :size 0)))
+
+(defcustom w3m-image-default-background nil
+  "Color name used as transparent color of image.
+Nil means to use the background color of the Emacs frame.  Note that
+this value is effective only to xbm and monochrome pbm images in Emacs
+22 and greater."
+  :group 'w3m
+  :type '(radio (string :format "Color: %v\n" :size 0
+			:match (lambda (widget value)
+				 (and (stringp value) (> (length value) 0))))
+		(const :tag "Use the background color of the Emacs frame" nil)
+		(const :tag "Null string" "")))
+
+(defvar w3m-accept-japanese-characters
+  (and (not noninteractive)
+       (featurep 'mule)
+       (or (memq w3m-type '(w3mmee w3m-m17n))
+	   ;; Examine whether the w3m command specified by `w3m-command'
+	   ;; uses `euc-japan' for the internal character set.
+	   (let ((str
+		  (eval-when-compile
+		    (format
+		     (concat
+		      "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">"
+		      "<html><head><meta http-equiv=\"Content-Type\" "
+		      "content=\"text/html; charset=ISO-2022-JP\">"
+		      "</head><body>%s</body>\n")
+		     (string 27 36 66 52 65 59 122 27 40 66)))))
+	     (with-temp-buffer
+	       (set-buffer-multibyte nil)
+	       (insert str)
+	       (let ((coding-system-for-write 'binary)
+		     (coding-system-for-read 'binary)
+		     (default-process-coding-system (cons 'binary 'binary)))
+		 (call-process-region (point-min) (point-max) w3m-command
+				      t t nil "-T" "text/html" "-halfdump")
+		 (goto-char (point-min))
+		 (and (re-search-forward (string ?\264 ?\301 ?\273 ?\372)
+					 nil t)
+		      t))))))
+  "Non-nil means that the w3m command accepts Japanese characters.")
+
+(defcustom w3m-coding-system (if (featurep 'mule)
+				 (if (eq w3m-type 'w3mmee)
+				     'iso-2022-7bit-ss2
+				   'iso-2022-7bit)
+			       'iso-8859-1)
+  "*Default coding system used to communicate with the w3m command."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-terminal-coding-system
+  (if w3m-accept-japanese-characters
+      'euc-japan 'iso-8859-1)
+  "*Default coding system used when writing to w3m processes.
+It is just a default value to set process' coding system initially.
+\(This variable name is analogically derived from the behavior of the
+w3m command which accepts data from Emacs just like reads from the
+terminal.)"
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-output-coding-system
+  (cond
+   ((not (featurep 'mule)) 'iso-8859-1)
+   ((eq w3m-type 'w3mmee) 'ctext)
+   ((eq w3m-type 'w3m-m17n)
+    (if (and (w3m-find-coding-system 'utf-8)
+	     (not (and (equal "Japanese" w3m-language)
+		       (featurep 'w3m-ems)
+		       (= emacs-major-version 21))))
+	'utf-8
+      'iso-2022-7bit-ss2))
+   (w3m-accept-japanese-characters 'w3m-euc-japan)
+   (t 'w3m-iso-latin-1))
+  "*Coding system used when reading from w3m processes."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-input-coding-system
+  (if (memq w3m-type '(w3mmee w3m-m17n))
+      w3m-output-coding-system
+    (if w3m-accept-japanese-characters
+	(if w3m-use-mule-ucs
+	    'w3m-euc-japan-mule-ucs
+	  (if (featurep 'w3m-ems)
+	      'w3m-euc-japan
+	    'euc-japan))
+      (if w3m-use-mule-ucs
+	  'w3m-iso-latin-1-mule-ucs
+	(if (featurep 'w3m-ems)
+	    'w3m-iso-latin-1
+	  'iso-8859-1))))
+  "*Coding system used when writing to w3m processes.
+It overrides `coding-system-for-write' if it is not `binary'.
+Otherwise, the value of the `w3m-current-coding-system' variable is
+used instead."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-file-coding-system (if (featurep 'mule)
+				      'iso-2022-7bit
+				    'iso-8859-1)
+  "*Coding system used when writing configuration files.
+This value will be referred to by the `w3m-save-list' function."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defvar w3m-file-coding-system-for-read nil
+  "*Coding system used when reading configuration files.
+It is strongly recommended that you do not set this variable if there
+is no particular reason.  The value will be referred to by the
+`w3m-load-list' function.")
+
+(defcustom w3m-file-name-coding-system
+  (if (memq system-type '(windows-nt OS/2 emx))
+      'shift_jis 'euc-japan)
+  "*Coding system used to convert pathnames when emacs-w3m accesses files."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-default-coding-system
+  (if (equal "Japanese" w3m-language) 'shift_jis 'iso-8859-1)
+  "*Default coding system used to encode url strings and post-data."
+  :group 'w3m
+  :type '(coding-system :size 0))
+
+(defcustom w3m-coding-system-priority-list
+  (if (equal "Japanese" w3m-language) '(shift_jis))
+  "*Coding systems in order of priority used for emacs-w3m sessions."
+  :group 'w3m
+  :type '(repeat (coding-system :format "%t: %v\n" :size 0)))
+
+(defcustom w3m-key-binding nil
+  "*Type of key binding set used in emacs-w3m sessions.
+The valid values include `info' which provides Info-like keys, and
+nil which provides Lynx-like keys."
+  :group 'w3m
+  :type '(choice
+	  (const :tag "Use Info-like key mapping." info)
+	  (const :tag "Use Lynx-like key mapping." nil))
+  ;; Since the following form won't be byte-compiled, you developers
+  ;; should never use CL macros like `caaaar', `when', `unless' ...
+  :set (lambda (symbol value)
+	 (prog1
+	     (custom-set-default symbol value)
+	   (if (or noninteractive
+		   ;; Loading w3m.elc is just in progress...
+		   (not (featurep 'w3m)))
+	       nil
+	     (if (and;; Gnus binds `w3m-mode-map' for compiling.
+		  (boundp 'w3m-mode-map)
+		  (boundp 'w3m-info-like-map)
+		  (boundp 'w3m-lynx-like-map))
+		 ;; It won't be bound at the first time.
+		 (eval
+		  '(setq w3m-mode-map (if (eq value 'info)
+					  w3m-info-like-map
+					w3m-lynx-like-map)
+			 w3m-minor-mode-map (w3m-make-minor-mode-keymap))))
+	     (let ((buffers (buffer-list)))
+	       (save-current-buffer
+		 (while buffers
+		   (set-buffer (car buffers))
+		   (if (eq major-mode 'w3m-mode)
+		       (condition-case nil
+			   (progn
+			     (use-local-map (symbol-value 'w3m-mode-map))
+			     (w3m-setup-toolbar)
+			     (w3m-setup-menu))
+			 (error)))
+		   (setq buffers (cdr buffers)))))))))
+
+(defcustom w3m-use-cygdrive (eq system-type 'windows-nt)
+  "*If non-nil, use the /cygdrive/ rule when performing `expand-file-name'."
+  :group 'w3m
+  :type 'boolean)
+
+(eval-and-compile
+  (defconst w3m-treat-drive-letter (memq system-type '(windows-nt OS/2 emx))
+    "Say whether the system uses drive letters."))
+
+(defcustom w3m-profile-directory
+  (concat "~/." (file-name-sans-extension
+		 (file-name-nondirectory w3m-command)))
+  "*Directory where emacs-w3m config files are loaded from or saved to."
+  :group 'w3m
+  :type '(directory :size 0))
+
+(defcustom w3m-init-file "~/.emacs-w3m"
+  "*Your emacs-w3m startup file name.
+If a file with the `.el' or `.elc' suffixes exists, it will be read
+instead.
+
+Note: This file is used as the startup configuration *NOT* for the w3m
+command but for emacs-w3m.  In order to modify configurations for the
+w3m command, edit the file named \"~/.w3m/config\" normally."
+  :group 'w3m
+  :type '(file :size 0))
+
+(defcustom w3m-default-save-directory
+  (concat "~/." (file-name-sans-extension
+		 (file-name-nondirectory w3m-command)))
+  "*Default directory where downloaded files will be saved to."
+  :group 'w3m
+  :type '(directory :size 0))
+
+(defcustom w3m-default-directory nil
+  "*Directory used as the current directory in emacs-w3m buffers.
+The valid values include a string specifying an existing directory,
+a symbol of which the value specifies an existing directory,
+a function which takes a url as an argument and returns a directory,
+and nil.  If the specified directory does not exist or it is nil,
+the value of `w3m-profile-directory' is used.
+
+Note that there is an exception: if a page visits a local file or
+visits a remote file using ftp, the directory in which the file exists
+is used as the current directory instead."
+  :group 'w3m
+  :type '(radio (directory :format "%{%t%}: %v\n" :size 0 :value "~/")
+		(symbol :format "%{%t%}: %v\n"
+			:match (lambda (widget value) value)
+			:size 0
+			:value default-directory)
+		(function :format "%{%t%}: %v\n"
+			  :size 0)
+		(const nil)))
+
+(defcustom w3m-accept-languages
+  (let ((file (expand-file-name "config" w3m-profile-directory)))
+    (or (when (file-readable-p file)
+	  (with-temp-buffer
+	    (insert-file-contents file)
+	    (goto-char (point-min))
+	    (when (re-search-forward "^accept_language[\t ]+\\(.+\\)$" nil t)
+	      (delete "" (split-string (match-string 1)
+				       "[ \t\r\f\n]*,[ \t\r\f\n]*")))))
+	(when (string= w3m-language "Japanese")
+	  '("ja" "en"))))
+  "*List of acceptable languages in descending order of priority.
+The default value is set according to the accept_language entry of the
+w3m configuration file (normally \"~/.w3m/config\")."
+  :group 'w3m
+  :type '(repeat (string :format "Lang: %v\n" :size 0)))
+
+(defcustom w3m-delete-duplicated-empty-lines t
+  "*Non-nil means display two or more continuous empty lines into single."
+  :group 'w3m
+  :type 'boolean)
+
+(defvar w3m-display-inline-images nil
+  "Internal variable controls whether to show images in emacs-w3m buffers.
+This variable is buffer-local which defaults to the value of
+`w3m-default-display-inline-images'.  Don't set it directly; modify
+the `w3m-default-display-inline-images' variable or use the\
+ `\\<w3m-mode-map>\\[w3m-toggle-inline-images]' command
+to change the appearance of images.
+See also `w3m-toggle-inline-images-permanently'.")
+(make-variable-buffer-local 'w3m-display-inline-images)
+
+(defcustom w3m-default-display-inline-images nil
+  "*Non-nil means display images inline in emacs-w3m buffers.
+You can toggle the visibility of images by the\
+ `\\<w3m-mode-map>\\[w3m-toggle-inline-images]' command.
+See also `w3m-toggle-inline-images-permanently'."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-toggle-inline-images-permanently t
+  "*Non-nil means let the visibility of images continue permanently.
+The visibility of images is initialized according to
+`w3m-default-display-inline-images' at the first time, and except that
+it may be toggled by the `\\<w3m-mode-map>\\[w3m-toggle-inline-images]'\
+ command, it does not change hereafter, if
+it is non-nil.  Otherwise, whether images are visible is initialized
+according to `w3m-default-display-inline-images' whenever you visit a
+new page or reload the current page in an emacs-w3m buffer."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-icon-directory
+  (let (dir)
+    (or
+     (catch 'found-dir
+       (let* ((path (locate-library "w3m"))
+	      (paths (if path
+			 (cons (file-name-directory path) load-path)
+		       load-path)))
+	 (while paths
+	   (setq path (car paths)
+		 paths (cdr paths))
+	   (if path
+	       (progn
+		 (if (file-directory-p
+		      (setq dir
+			    (expand-file-name "../../etc/images/w3m/" path)))
+		     (throw 'found-dir dir))
+		 (if (file-directory-p
+		      (setq dir
+			    (expand-file-name "../etc/images/w3m/" path)))
+		     (throw 'found-dir dir))
+		 (if (file-directory-p
+		      (setq dir
+			    (expand-file-name "../../etc/w3m/icons/" path)))
+		     (throw 'found-dir dir))
+		 (if (file-directory-p
+		      (setq dir
+			    (expand-file-name "../etc/w3m/icons/" path)))
+		     (throw 'found-dir dir)))))))
+     (and (fboundp 'locate-data-directory)
+	  (or (locate-data-directory "images/w3m")
+	      (locate-data-directory "w3m")))
+     (and (file-directory-p
+	   (setq dir (expand-file-name "images/w3m/" data-directory)))
+	  dir)
+     (and (file-directory-p
+	   (setq dir (expand-file-name "w3m/icons/" data-directory)))
+	  dir)))
+  "*Directory where emacs-w3m should find icon files."
+  :group 'w3m
+  :type '(radio (const :tag "Not specified")
+		(directory :format "%t: %v\n" :size 0)))
+
+(defcustom w3m-broken-proxy-cache nil
+  "*Set it to t if the proxy server seems not to work properly in caching.
+Note that this may be the double-edged sword; setting it to t will
+likely be harmful if the proxy server sends bad requests (e.g., not
+including the Host header, see RFC2616 section 14.23) to foreign
+servers when the w3m command specifies the \"no-cache\" directive.  Also
+note that it may not be effective if you are using old w3m command."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-quick-start t
+  "*Non-nil means let emacs-w3m start quickly w/o requiring confirmation.
+When you invoke the `w3m' command, it attempts to visit the page of a
+string like url around the cursor or the value of `w3m-home-page'.
+You won't be asked for the confirmation then if this value is non-nil.
+Otherwise, you will be prompted for that url with the editing form."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-home-page
+  (or (getenv "HTTP_HOME")
+      (getenv "WWW_HOME")
+      "about:")
+  "*This variable specifies the url string to open when emacs-w3m starts.
+Don't say HP, which is the abbreviated name of a certain company. ;-)"
+  :group 'w3m
+  :type '(radio
+	  :convert-widget w3m-widget-type-convert-widget
+	  `(,@(if (getenv "HTTP_HOME")
+		  `((const :format "HTTP_HOME: \"%v\"\n"
+			   ,(getenv "HTTP_HOME"))))
+	    ,@(if (getenv "WWW_HOME")
+		  `((const :format "WWW_HOME: \"%v\"\n"
+			   (getenv "WWW_HOME"))))
+	    (const :tag "About emacs-w3m" "about:")
+	    (const :tag "Blank page" "about:blank")
+	    (string :format "URL: %v\n" :size 0))))
+
+(defcustom w3m-arrived-file
+  (expand-file-name ".arrived" w3m-profile-directory)
+  "*Name of the file to keep the arrived URLs database."
+  :group 'w3m
+  :type '(file :size 0))
+
+(defcustom w3m-keep-arrived-urls 500
+  "*Maximum number of URLs which the arrived URLs database keeps."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-prefer-cache nil
+  "*Non-nil means that cached contents are used without checking headers."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-keep-cache-size 300
+  "*Maximum number of pages to be cached in emacs-w3m."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-follow-redirection 9
+  "*Maximum number of redirections which emacs-w3m honors and follows.
+If nil, redirections are followed by the w3m command.  Don't set it to
+nil if you allow to use cookies (i.e., you have set `w3m-use-cookies'
+to non-nil) since cookies may be shared among many redirected pages."
+  :group 'w3m
+  :type '(radio (const :format "Ignore redirections " nil)
+		(integer :size 0)))
+
+(defcustom w3m-redirect-with-get t
+  "*If non-nil, use the GET method after redirection.
+It controls how emacs-w3m works when a server responds the code 301 or
+302.  Here is an extract from RFC2616:
+
+Note: RFC 1945 and RFC 2068 specify that the client is not allowed
+to change the method on the redirected request.  However, most
+existing user agent implementations treat 302 as if it were a 303
+response, performing a GET on the Location field-value regardless
+of the original request method."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-resize-image-scale 50
+  "*Number of steps in percent used when resizing images."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defface w3m-anchor
+  '((((class color) (background light)) (:foreground "blue"))
+    (((class color) (background dark)) (:foreground "cyan"))
+    (t (:underline t)))
+  "Face used for displaying anchors."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-anchor-face 'face-alias 'w3m-anchor)
+
+(defface w3m-arrived-anchor
+  '((((class color) (background light)) (:foreground "navy"))
+    (((class color) (background dark)) (:foreground "LightSkyBlue"))
+    (t (:underline t)))
+  "Face used for displaying anchors which have already arrived."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-arrived-anchor-face 'face-alias 'w3m-arrived-anchor)
+
+(defface w3m-current-anchor
+  '((t (:underline t :bold t)))
+  "Face used to highlight the current anchor."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-current-anchor-face 'face-alias 'w3m-current-anchor)
+
+(defface w3m-image
+  '((((class color) (background light)) (:foreground "ForestGreen"))
+    (((class color) (background dark)) (:foreground "PaleGreen"))
+    (t (:underline t)))
+  "Face used for displaying alternate strings of images."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-image-face 'face-alias 'w3m-image)
+
+(defface w3m-image-anchor
+  '((((class color) (background light)) (:background "light yellow"))
+    (((class color) (background dark)) (:background "dark green"))
+    (t (:underline t)))
+  "Face used for displaying alternate strings of images which are in anchors."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-image-anchor-face 'face-alias 'w3m-image-anchor)
+
+(defface w3m-history-current-url
+  ;; The following strange code compounds the attributes of the
+  ;; `secondary-selection' face and the `w3m-arrived-anchor' face,
+  ;; and generates the new attributes for this face.
+  (let ((base 'secondary-selection)
+	(fn (if (featurep 'xemacs)
+		'face-custom-attributes-get
+	      'custom-face-attributes-get));; What a perverseness it is.
+	;; Both `face-custom-attributes-get' in XEmacs and
+	;; `custom-face-attributes-get' in CUSTOM 1.9962 attempt to
+	;; require `font' in Emacs/w3 and `cl' arbitrarily. :-/
+	(features (cons 'font features))
+	base-attributes attributes attribute)
+    (setq base-attributes (funcall fn base nil)
+	  attributes (funcall fn 'w3m-arrived-anchor nil))
+    (while base-attributes
+      (setq attribute (car base-attributes))
+      (unless (memq attribute '(:foreground :underline))
+	(setq attributes (plist-put attributes attribute
+				    (cadr base-attributes))))
+      (setq base-attributes (cddr base-attributes)))
+    (list (list t attributes)))
+  "Face used to highlight the current url in the \"about://history/\" page."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-history-current-url-face 'face-alias 'w3m-history-current-url)
+
+(defface w3m-bold '((t (:bold t)))
+  "Face used for displaying bold text."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-bold-face 'face-alias 'w3m-bold)
+
+(defface w3m-italic '((((type tty)) (:underline t))
+		      (t (:italic t)))
+  "Face used for displaying italic text.
+By default it will be a underline face on a non-window system."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-italic-face 'face-alias 'w3m-italic)
+
+(defface w3m-underline '((t (:underline t)))
+  "Face used for displaying underlined text."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-underline-face 'face-alias 'w3m-underline)
+
+(defface w3m-strike-through
+  `((((class color))
+     ,(if (featurep 'xemacs)
+	  '(:strikethru t)
+	'(:strike-through t)))
+    (t (:underline t)))
+  "Face used for displaying strike-through text."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-strike-through-face 'face-alias 'w3m-strike-through)
+
+(defface w3m-insert
+  '((((class color) (background light))
+     (:foreground "purple"))
+    (((class color) (background dark))
+     (:foreground "orchid"))
+    (t (:underline t)))
+  "Face used for displaying insert text."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-insert-face 'face-alias 'w3m-insert)
+
+(defcustom w3m-mode-hook nil
+  "*Hook run after `w3m-mode' initialization.
+This hook is evaluated by the `w3m-mode' function."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-fontify-before-hook nil
+  "*Hook run when starting to fontify emacs-w3m buffers.
+This hook is evaluated by the `w3m-fontify' function."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-fontify-after-hook nil
+  "*Hook run after fontifying emacs-w3m buffers.
+This hook is evaluated by the `w3m-fontify' function."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-display-hook
+  '(w3m-move-point-for-localcgi
+    w3m-history-highlight-current-url)
+  "*Hook run after displaying pages in emacs-w3m buffers.
+Each function is called with a url string as the argument.  This hook
+is evaluated by the `w3m-goto-url' function."
+  :group 'w3m
+  :type 'hook
+  :initialize 'w3m-custom-hook-initialize)
+
+(defcustom w3m-after-cursor-move-hook
+  '(w3m-highlight-current-anchor
+    w3m-print-this-url
+    w3m-auto-show)
+  "*Hook run each time after the cursor moves in emacs-w3m buffers.
+This hook is called by the `w3m-check-current-position' function by
+way of `post-command-hook'."
+  :group 'w3m
+  :type 'hook
+  :initialize 'w3m-custom-hook-initialize)
+
+(defcustom w3m-delete-buffer-hook
+  '(w3m-pack-buffer-numbers)
+  "*Hook run when every emacs-w3m buffer is deleted."
+  :group 'w3m
+  :type 'hook
+  :initialize 'w3m-custom-hook-initialize)
+
+(defcustom w3m-select-buffer-hook nil
+  "*Hook run when a different emacs-w3m buffer is selected."
+  :group 'w3m
+  :type 'hook)
+
+(defcustom w3m-async-exec t
+  "*Non-nil means execute the w3m command asynchronously in Emacs process."
+  :group 'w3m
+  :type 'boolean)
+
+;; As far as we know, Emacs 21 under Mac OS X[1] and XEmacs under
+;; Solaris[2] won't run the asynchronous operations correctly when
+;; both `w3m-async-exec' and `w3m-process-connection-type' are non-nil;
+;; [1]the final kilobyte or so might get lost from raw data downloaded
+;; from a web site; [2]XEmacs hangs up.
+
+(defcustom w3m-process-connection-type
+  (not (or (and (memq system-type '(darwin macos))
+		(let ((ver (shell-command-to-string "uname -r")))
+		  (and (string-match "^\\([0-9]+\\)\\." ver)
+		       (< (string-to-number (match-string 1 ver)) 7))))
+	   (and (featurep 'xemacs)
+		(string-match "solaris" system-configuration))))
+  "*Value for `process-connection-type' used when communicating with w3m."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-async-exec-with-many-urls
+  ;; XEmacs 21.5 tends to freeze when retrieving many urls at a time. :-<
+  (not (and (featurep 'xemacs) (not (featurep 'sxemacs))
+	    (= emacs-major-version 21) (= emacs-minor-version 5)))
+  "Non-nil means allow retrieving many urls asynchronously.
+The value affects how emacs-w3m will work with group:* urls and the
+`w3m-session-select' feature.  If it is nil, the asynchronous operation
+is inhibited in those cases even if `w3m-async-exec' is non-nil."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-default-content-type "text/html"
+  "*Default value assumed as the content type of local files."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defvar w3m-image-viewer
+  (or (w3m-which-command "display")
+      (w3m-which-command "eeyes")
+      (w3m-which-command "xloadimage")
+      (w3m-which-command "xv"))
+  "*Command used to view image files externally.
+Note that this option is installed temporally.  It will be abolished
+when we implement the mailcap parser to set `w3m-content-type-alist'.")
+
+;; FIXME: we need to improve so that to set up the value of this
+;; variable may be performed by parsing the mailcap file.
+(defcustom w3m-content-type-alist
+  (let* ((fiber-viewer (when (and (eq system-type 'windows-nt)
+				  (w3m-which-command "fiber"))
+			 (list "fiber.exe" "-s" 'file)))
+	 (external-browser
+	  (if (and (eq system-type 'windows-nt) (w3m-which-command "fiber"))
+	      'w3m-w32-browser-with-fiber
+	    (or (when (condition-case nil (require 'browse-url) (error nil))
+		  (if (or (not (boundp 'browse-url-browser-function))
+			  (eq 'w3m-browse-url
+			      (symbol-value 'browse-url-browser-function)))
+		      (cond
+		       ((and (memq system-type '(windows-nt ms-dos cygwin))
+			     (fboundp 'browse-url-default-windows-browser))
+			'browse-url-default-windows-browser)
+		       ((and (memq system-type '(darwin))
+			     (fboundp 'browse-url-default-macosx-browser))
+			'browse-url-default-macosx-browser)
+		       ((fboundp 'browse-url-default-browser)
+			'browse-url-default-browser)
+		       ((fboundp 'browse-url-netscape)
+			'browse-url-netscape))
+		    (symbol-value 'browse-url-browser-function)))
+		(when (w3m-which-command "netscape")
+		  (list "netscape" 'url)))))
+	 (image-viewer (or fiber-viewer
+			   (when w3m-image-viewer
+			     (list w3m-image-viewer 'file))))
+	 (video-viewer (or fiber-viewer
+			   (when (w3m-which-command "mpeg_play")
+			     (list "mpeg_play" 'file))))
+	 (dvi-viewer (or fiber-viewer
+			 (cond ((w3m-which-command "xdvi") (list "xdvi" 'file))
+			       ((w3m-which-command "dvitty")
+				(list "dvitty" 'file)))))
+	 (ps-viewer (or fiber-viewer
+			(cond
+			 ((w3m-which-command "gv") (list "gv" 'file))
+			 ((w3m-which-command "gs") (list "gs" 'file)))))
+	 (pdf-viewer (or fiber-viewer
+			 (cond
+			  ((w3m-which-command "xpdf") (list "xpdf" 'file))
+			  ((w3m-which-command "acroread")
+			   (list "acroread" 'file))))))
+    `(("text/plain" "\\.\\(?:txt\\|tex\\|el\\)\\'" nil nil)
+      ("text/html" "\\.s?html?\\'" ,external-browser nil)
+      ("text/sgml" "\\.sgml?\\'" nil "text/plain")
+      ("text/xml" "\\.xml\\'" nil "text/plain")
+      ("image/jpeg" "\\.jpe?g\\'" ,image-viewer nil)
+      ("image/png" "\\.png\\'" ,image-viewer nil)
+      ("image/gif" "\\.gif\\'" ,image-viewer nil)
+      ("image/tiff" "\\.tif?f\\'" ,image-viewer nil)
+      ("image/x-xwd" "\\.xwd\\'" ,image-viewer nil)
+      ("image/x-xbm" "\\.xbm\\'" ,image-viewer nil)
+      ("image/x-xpm" "\\.xpm\\'" ,image-viewer nil)
+      ("image/x-bmp" "\\.bmp\\'" ,image-viewer nil)
+      ("video/mpeg" "\\.mpe?g\\'" ,video-viewer nil)
+      ("video/quicktime" "\\.mov\\'" ,video-viewer nil)
+      ("application/dvi" "\\.dvi\\'" ,dvi-viewer nil)
+      ("application/postscript" "\\.e?ps\\'" ,ps-viewer nil)
+      ("application/pdf" "\\.pdf\\'" ,pdf-viewer nil)
+      ("application/x-pdf" "\\.pdf\\'" ,pdf-viewer nil)
+      ("application/xml" "\\.xml\\'" nil w3m-detect-xml-type)
+      ("application/rdf+xml" "\\.rdf\\'" nil "text/plain")
+      ("application/rss+xml" "\\.rss\\'" nil "text/plain")
+      ("application/xhtml+xml" nil nil "text/html")))
+  "*Alist of content types, regexps, commands to view, and filters.
+Each element is a list which consists of the following data:
+
+1. Content type.
+
+2. Regexp matching a url or a file name.
+
+3. Method to view contents.  The following three types may be used:
+   a. Lisp function which takes the url to view as an argument.
+   b. (\"COMMAND\" [ARG...]) -- where \"COMMAND\" is the external command
+      and ARG's are the arguments passed to the command if any.  The
+      symbols `file' and `url' that appear in ARG's will be replaced
+      respectively with the name of a temporary file which contains
+      the contents and the string of the url to view.
+   c. nil which means to download the url into the local file.
+
+4. Content type that overrides the one specified by `1. Content type'.
+   Valid values include:
+   a. Lisp function that takes three arguments URL, CONTENT-TYPE, and
+      CHARSET, and returns a content type.
+   b. String that specifies a content type.
+   c. nil that means not to override the content type."
+  :group 'w3m
+  :type '(repeat
+	  (group
+	   :indent 2
+	   (string :format "Type: %v\n" :size 0)
+	   (radio :format "%{Regexp%}: %v" :extra-offset 8
+		  :sample-face underline
+		  (const :tag "Not specified" nil)
+		  (regexp :format "String: %v\n" :size 0))
+	   (radio :format "%{Viewer%}: %v" :extra-offset 8
+		  :sample-face underline
+		  (const :tag "Not specified" nil)
+		  (cons :tag "External viewer" :extra-offset 2
+			(string :format "Command: %v\n" :size 0)
+			(repeat :format "Arguments:\n%v%i\n" :extra-offset 2
+				(restricted-sexp
+				 :format "%v\n"
+				 :match-alternatives (stringp 'file 'url)
+				 :size 0)))
+		  (function :format "%t: %v\n" :size 0))
+	   (radio :format "%{Filter%}: %v" :extra-offset 8
+		  :sample-face underline
+		  (const :tag "Not specified" nil)
+		  (string :format "Equivalent type: %v\n" :size 0)
+		  (function :format "Function: %v\n" :size 0)))))
+
+;; FIXME: we need to rearrange the complicated and redundant relation of
+;; `w3m-encoding-type-alist', `w3m-decoder-alist', and `w3m-encoding-alist'.
+(defcustom w3m-encoding-type-alist
+  '(("\\.gz\\'" . "gzip")
+    ("\\.bz2?\\'" . "bzip"))
+  "*Alist of file suffixes and content encoding types."
+  :group 'w3m
+  :type '(repeat
+	  (cons :format "%v" :indent 14
+		(string :format "Regexp of Suffixes: %v\n" :size 0)
+		(string :format "Encoding Type: %v\n" :size 0))))
+
+(defcustom w3m-decoder-alist
+  `((gzip "gzip" ("-d"))	;; Don't use "gunzip" and "bunzip2"
+    (bzip "bzip2" ("-d"))	;; for broken OS and implementations.
+    (deflate
+      ,(if (not noninteractive)
+	   (let ((exec-path
+		  (let ((prefix (file-name-directory
+				 (directory-file-name
+				  (file-name-directory
+				   (w3m-which-command w3m-command))))))
+		    (list (expand-file-name "libexec/w3m" prefix)
+			  (expand-file-name "lib/w3m" prefix)))))
+	     (w3m-which-command "inflate")))
+      nil))
+  "Alist of encoding types, decoder commands, and arguments."
+  :group 'w3m
+  :type '(repeat
+	  (group :indent 4
+		 (radio :format "Encoding: %v"
+			(const :format "%v " gzip)
+			(const :format "%v " bzip)
+			(const deflate))
+		 (string :format "Command: %v\n" :size 0)
+		 (repeat :tag "Arguments" :extra-offset 2
+			 (string :format "%v\n" :size 0)))))
+
+(defcustom w3m-charset-coding-system-alist
+  (let ((rest
+	 '((us_ascii      . raw-text)
+	   (us-ascii      . raw-text)
+	   (gb2312	  . cn-gb-2312)
+	   (cn-gb	  . cn-gb-2312)
+	   (iso-2022-jp-2 . iso-2022-7bit-ss2)
+	   (iso-2022-jp-3 . iso-2022-7bit-ss2)
+	   (tis-620	  . tis620)
+	   (windows-874	  . tis-620)
+	   (cp874	  . tis-620)
+	   (x-ctext       . ctext)
+	   (unknown       . undecided)
+	   (x-unknown     . undecided)
+	   (windows-1250  . cp1250)
+	   (windows-1251  . cp1251)
+	   (windows-1252  . cp1252)
+	   (windows-1253  . cp1253)
+	   (windows-1254  . cp1254)
+	   (windows-1255  . cp1255)
+	   (windows-1256  . cp1256)
+	   (windows-1257  . cp1257)
+	   (windows-1258  . cp1258)
+	   (euc-jp	  . euc-japan)
+	   (shift-jis     . shift_jis)
+	   (shift_jis     . shift_jis)
+	   (sjis	  . shift_jis)
+	   (x-euc-jp      . euc-japan)
+	   (x-shift-jis   . shift_jis)
+	   (x-shift_jis   . shift_jis)
+	   (x-sjis	  . shift_jis)))
+	dest)
+    (while rest
+      (or (w3m-find-coding-system (car (car rest)))
+	  (setq dest (cons (car rest) dest)))
+      (setq rest (cdr rest)))
+    dest)
+  "Alist of MIME charsets and coding systems.
+Both charsets and coding systems must be symbols."
+  :group 'w3m
+  :type '(repeat (cons :format "%v" :indent 2
+		       (symbol :format "%t: %v\n" :size 0)
+		       (coding-system :format "%t: %v\n" :size 0))))
+
+(defcustom w3m-correct-charset-alist
+  '(("windows-874"  . "tis-620")
+    ("cp874"	    . "tis-620")
+    ("cp1250" . "windows-1250")
+    ("cp1251" . "windows-1251")
+    ("cp1252" . "windows-1252")
+    ("cp1253" . "windows-1253")
+    ("cp1254" . "windows-1254")
+    ("cp1255" . "windows-1255")
+    ("cp1256" . "windows-1256")
+    ("cp1257" . "windows-1257")
+    ("cp1258" . "windows-1258")
+    ("shift-jis"    . "shift_jis")
+    ("sjis"	    . "shift_jis")
+    ("x-euc-jp"     . "euc-jp")
+    ("x-shift-jis"  . "shift_jis")
+    ("x-shift_jis"  . "shift_jis")
+    ("x-sjis"	    . "shift_jis"))
+  "Alist of MIME charsets; strange ones and standard ones."
+  :group 'w3m
+  :type '(repeat (cons :format "%v" :indent 11
+		       (string :format "From: %v\n" :size 0)
+		       (string :format "To: %v\n" :size 0))))
+
+(defcustom w3m-horizontal-scroll-columns 10
+  "*Number of steps in columns used when scrolling a window horizontally."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-horizontal-shift-columns 2
+  "*Number of steps in columns used when shifting a window horizontally.
+The term `shifting' means a fine level scrolling."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defcustom w3m-view-recenter 1
+  "Recenter window contents when going to an anchor.
+An integer is passed to `recenter', for instance the default 1
+    means put the anchor on the second line of the screen.
+t means `recenter' with no arguments, which puts it in the middle
+    of the screen.
+nil means don't recenter, let the display follow point in the
+    usual way."
+  :group 'w3m
+  ;; radio items in the same order as in the docstring, and `integer' first
+  ;; because it's the default
+  :type '(radio (integer :format "%{%t%}: %v\n" :value 1 :size 1)
+                (const :format "%t\n" t)
+                (const :format "%t\n" nil)))
+
+(defcustom w3m-use-form t
+  "*Non-nil means make it possible to use form extensions. (EXPERIMENTAL)"
+  :group 'w3m
+  :type 'boolean
+  :require 'w3m-form)
+
+(defcustom w3m-submit-form-safety-check nil
+  "Non-nil means ask you for confirmation when submitting a form."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-cookies nil
+  "*Non-nil means enable emacs-w3m to use cookies.  (EXPERIMENTAL)"
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-filter nil
+  "*Non-nil means use filter programs to convert web contents.
+See also `w3m-filter-rules'."
+  :group 'w3m
+  :type 'boolean
+  :require 'w3m-filter)
+
+(defcustom w3m-use-symbol
+  (when (and (featurep 'mule)
+	     (eq w3m-type 'w3m-m17n))
+    (if (eq w3m-output-coding-system 'utf-8)
+	(and (w3m-mule-unicode-p)
+	     (or (featurep 'xemacs)
+		 (< emacs-major-version 23))
+	     'w3m-device-on-window-system-p)
+      t))
+  "*Non-nil means replace symbols that the <_SYMBOL> tags lead into.
+It is meaningful only when the w3m-m17n command is used and (X)Emacs
+handles unicode charsets."
+  :group 'w3m
+  :type 'boolean
+  :require 'w3m-symbol)
+
+(defcustom w3m-edit-function 'find-file
+  "*Function used for editing local files.
+It is used when either `w3m-edit-current-url' or `w3m-edit-this-url'
+is invoked for local pages."
+  :group 'w3m
+  :type '(radio
+	  (const :tag "Edit it in the current window" find-file)
+	  (const :tag "Edit it in another window" find-file-other-window)
+	  (const :tag "Edit it in another frame" find-file-other-frame)
+	  (const :tag "View it in another window" view-file-other-window)
+	  (function :format "Other function: %v\n" :size 0
+		    :value view-file)))
+
+(defcustom w3m-edit-function-alist
+  '(("\\`[^?]+/hiki\\.cgi\\?" . hiki-edit-url))
+  "*Alist of functions used for editing pages.
+This option is referred to decide which function should be used to
+edit a specified page, when either `w3m-edit-current-url' or
+`w3m-edit-this-url' is invoked.  When no suitable function is found
+from this alist, `w3m-edit-function' is used."
+  :group 'w3m
+  :type '(repeat (cons :format "%v" :indent 3
+		       (regexp :format "URL: %v\n" :size 0)
+		       (function))))
+
+(defcustom w3m-url-local-directory-alist
+  (when (boundp 'yahtml-path-url-alist)
+    (mapcar
+     (lambda (pair)
+       (cons (cdr pair) (car pair)))
+     (symbol-value 'yahtml-path-url-alist)))
+  "*Alist of URLs and local directories.
+If directory names of a given URL and the car of an element are the
+same, emacs-w3m assumes that the file exists in the local directory
+where the cdr of an element points to.  The default value will be set
+to a value of the `yahtml-path-url-alist' variable which exchanged the
+car and the cdr in each element if it is available."
+  :type '(repeat
+	  (cons :format "%v" :indent 3
+		(string :format "URL: %v\n" :size 0)
+		(directory :format "%t: %v\n" :size 0)))
+  :group 'w3m)
+
+(defcustom w3m-track-mouse t
+  "*Whether to track the mouse and message the url under the mouse.
+See also `show-help-function' if you are using GNU Emacs.
+
+A tip for XEmacs users:
+
+You can also use the `balloon-help' feature by the
+`M-x balloon-help-mode' command with arg 1.  If the window manager
+decorates the balloon-help frame, and that is not to your taste, you
+may strip it off with the following directives:
+
+For ol[v]wm use this in .Xdefaults:
+   olvwm.NoDecor: balloon-help
+     or
+   olwm.MinimalDecor: balloon-help
+
+For fvwm version 1 use this in your .fvwmrc:
+   NoTitle balloon-help
+or
+   Style \"balloon-help\" NoTitle, NoHandles, BorderWidth 0
+
+For twm use this in your .twmrc:
+   NoTitle { \"balloon-help\" }
+
+See the balloon-help.el file for more information."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-show-decoded-url
+  '(("\\`http://\\(?:[^./?#]+\\.\\)*wikipedia\\.org/" . utf-8)
+    ("\\`http://\\(?:[^./?#]+\\.\\)*nikkei\\.co\\.jp/" . nil)
+    ("\\`http://\\(?:[^./?#]+\\.\\)*hatena\\.ne\\.jp/" . euc-jp)
+    ("\\`http://\\(?:[^./?#]+\\.\\)*ohmynews\\.co\\.jp/" . utf-8)
+    (t . t))
+  "*Non-nil means show decoded URIs in the echo area, the balloon, etc.
+This variable can take one of the following five kinds of forms:
+
+1. t
+  Decode URIs using the encoding guessed from the value of
+  `w3m-coding-system-priority-list'.
+
+2. Coding system
+  Decode URIs using this value.
+
+3. List of coding systems:
+  Decode URIs using the encoding assumed based on this list.
+
+4. Alist of predicates and forms described below:
+  Each element looks like the `(PREDICATE . ENCODING)' form.  PREDICATE
+  should be a regexp, a function or a Lisp form, and ENCODING should be
+  one of the forms described here excluding this form.  If PREDICATE is
+  a regexp, it will be tested whether it matches to the target url.
+  If it is a function, it will be called with the target url.  If it
+  is a Lisp form, it will be simply evaluated.  Elements are tested in
+  turn until the result of the test of the predicate is true and the
+  encoding which is associated to the predicate is used for decoding
+  URIs.
+
+5. nil
+  Don't decode URIs."
+  :group 'w3m
+  :type
+  '(choice
+    :format "%{%t%}: %[Value Menu%]\n  %v"
+    (coding-system :tag "Specify encoding" :format "Use this encoding: %v"
+		   :match (lambda (widget value)
+			    (w3m-find-coding-system value)))
+    (const :tag "Prefer the encoding of the current page"
+	   :format "%t: %{t%}\n" :sample-face widget-field-face
+	   t)
+    (group :tag "List of prefered encodings"
+	   :match (lambda (widget value)
+		    (and (car-safe value)
+			 (symbolp (car-safe value))))
+	   (repeat :format "List of prefered encodings:\n%v%i\n"
+		   :inline t
+		   (coding-system :tag "Encoding")))
+    (group :tag "Rules to select an encoding of URIs on the current page"
+	   :match (lambda (widget value) value)
+	   (repeat
+	    :format
+	    "Rules to select an encoding of URIs on the current page:\n%v%i\n"
+	    :inline t
+	    (cons
+	     :format "%v" :indent 2
+	     (choice
+	      :format "\n  %[Value Menu for the car%]\n    %v"
+	      (regexp :tag "Regexp matches the current page")
+	      (function :tag "Predicate checks for the current page")
+	      (sexp :tag "Expression checks for the current page"))
+	     (choice
+	      :format "%[Value Menu for the cdr%]\n    %v"
+	      (coding-system :tag "Specify encoding"
+			     :format "Use this encoding: %v"
+			     :match (lambda (widget value)
+				      (if (featurep 'xemacs)
+					  nil ;; ??
+					(w3m-find-coding-system value))))
+	      (const :tag "Prefer the encoding of the current page"
+		     :format "%t: %{t%}\n" :sample-face widget-field-face
+		     t)
+	      (group :tag "List of prefered encodings"
+		     (repeat :tag "List of prefered encodings"
+			     :inline t
+			     :extra-offset 4
+			     (coding-system :tag "Encoding")))
+	      (const :tag "Don't decode URIs"
+		     :format "%t: %{nil%}\n" :sample-face widget-field-face
+		     nil)))))
+    (const :tag "Don't decode URIs"
+	   :format "%t: %{nil%}\n" :sample-face widget-field-face
+	   nil)))
+
+(defcustom w3m-use-title-buffer-name nil
+  "Non-nil means use name of buffer included current title."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-japanese-menu
+  (and (equal "Japanese" w3m-language)
+       ;; Emacs 21, XEmacs 21.4 and SXEmacs don't seem to support
+       ;; non-ASCII text in the popup menu.
+       (not (featurep 'sxemacs))
+       (if (featurep 'xemacs)
+	   (or (> emacs-major-version 21)
+	       (and (= emacs-major-version 21)
+		    (>= emacs-minor-version 5)))
+	 (or (>= emacs-major-version 22)
+	     (featurep 'meadow))))
+  "Non-nil means use Japanese characters for Menu if possible."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-menu-on-forefront nil
+  "Non-nil means place the emacs-w3m menus on the forefront of the menu bar."
+  :group 'w3m
+  :type 'boolean
+  :set (lambda (symbol value)
+	 (prog1
+	     (custom-set-default symbol value)
+	   (unless noninteractive
+	     (w3m-menu-on-forefront value)))))
+
+(defcustom w3m-use-tab t
+  "Non-nil means make emacs-w3m a tab browser.
+It makes it possible to show all emacs-w3m buffers in a single window
+with the tabs line, and you can choose one by clicking a mouse on it.
+See also `w3m-use-tab-menubar'."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-add-tab-number nil
+  "Non-nil means put sequential number to a title on tab."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-tab-menubar t
+  "Non-nil means use the TAB pull-down menu in the menubar.
+It makes it possible to show all emacs-w3m buffers in a single window,
+and you can choose one by clicking a mouse on it.  This feature
+requires that Emacs has been built to be able to display multilingual
+text in the menubar if you often visit web sites written in non-ascii
+text.  See also `w3m-use-tab'."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-new-session-url "about://bookmark/"
+  "*Default url to be opened in a tab or a session which is created newly."
+  :group 'w3m
+  :type '(radio
+	  :convert-widget w3m-widget-type-convert-widget
+	  `((const :tag "About emacs-w3m" "about:")
+	    (const :tag "Blank page" "about:blank")
+	    (const :tag "Bookmark" "about://bookmark/")
+	    (const :tag ,(format "Home page (%s)" w3m-home-page)
+		   ,w3m-home-page)
+	    (string :format "URL: %v\n" :size 0
+		    :value "http://emacs-w3m.namazu.org"))))
+
+(defcustom w3m-make-new-session nil
+  "*Non-nil means making new emacs-w3m buffers when visiting new pages.
+If it is non-nil and there are already emacs-w3m buffers, the `w3m'
+command makes a new emacs-w3m buffer if a user specifies a url string
+in the minibuffer, and the `w3m-safe-view-this-url' command also makes
+a new buffer if a user invokes it in a buffer not being running the
+`w3m-mode'."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-favicon t
+  "*Non-nil means show favicon images if they are available.
+It will be set to nil automatically if ImageMagick's `convert' program
+does not support the ico format."
+  :get (lambda (symbol)
+	 (and (not noninteractive)
+	      (default-value symbol)
+	      (w3m-favicon-usable-p)))
+  :set (lambda (symbol value)
+	 (custom-set-default symbol (and (not noninteractive)
+					 value
+					 (w3m-favicon-usable-p))))
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-show-graphic-icons-in-mode-line t
+  "Non-nil means show graphic status indicators in the mode-line.
+If it is nil, also the favicon won't be shown in the mode-line even if
+`w3m-use-favicon' is non-nil."
+  :set (lambda (symbol value)
+	 (prog1
+	     (custom-set-default symbol value)
+	   (if (and (not noninteractive)
+		    ;; Make sure it is not the first time.
+		    (featurep 'w3m)
+		    (fboundp 'w3m-initialize-graphic-icons))
+	       (w3m-initialize-graphic-icons))))
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-show-graphic-icons-in-header-line t
+  "Non-nil means show graphic status indicators in the header-line.
+If it is nil, also the favicon won't be shown in the header-line even
+if `w3m-use-favicon' is non-nil.  This variable is currently
+meaningless under XEmacs."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-pop-up-windows t
+  "Non-nil means split the windows when a new emacs-w3m session is created.
+This variable is similar to `pop-up-windows' and quite overridden by
+`w3m-pop-up-frames' as if `pop-up-frames' influences.  Furthermore, if
+`w3m-use-tab' is non-nil or there is the buffers selection window (for
+the `w3m-select-buffer' feature), this variable is ignored when
+creating the second or more emacs-w3m session."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-pop-up-frames nil
+  "Non-nil means pop to a new frame up for an emacs-w3m session.
+This variable is similar to `pop-up-frames' and does override
+`w3m-pop-up-windows'.  If `w3m-use-tab' is non-nil or there is the
+buffers selection window (for the `w3m-select-buffer' feature), this
+variable is ignored when creating the second or more emacs-w3m session."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-view-this-url-new-session-in-background nil
+  "*Obsolete."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-new-session-in-background
+  w3m-view-this-url-new-session-in-background
+  "*Say whether not to focus on a new tab or a new session in target.
+It influences only when a new emacs-w3m buffer is created."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-popup-frame-parameters nil
+  "Alist of frame parameters used when creating a new emacs-w3m frame.
+It allows not only the alist form but also XEmacs' plist form."
+  :group 'w3m
+  :type '(choice (group :inline t :tag "Frame Parameters (Emacs)"
+			(repeat :inline t :tag "Frame Parameters (Emacs)"
+				(cons :format "%v" :indent 3
+				      (symbol :format "Parameter: %v\n"
+					      :size 0)
+				      (sexp :format "%t: %v\n" :size 0))))
+		 (group :inline t :tag "Frame Plist (XEmacs)"
+			(repeat :inline t :tag "Frame Plist (XEmacs)"
+				(group :indent 2 :inline t
+				       (symbol :format "Property: %v\n"
+					       :size 0)
+				       (sexp :format "%t: %v\n" :size 0))))))
+
+(defcustom w3m-auto-show t
+  "*Non-nil means provide the ability to horizontally scroll the window.
+Automatic horizontal scrolling is made when the point gets away from
+both ends of the window, but nothing occurs if `truncate-lines' is set
+to nil.
+
+This feature works with the specially made program in emacs-w3m; usual
+`auto-hscroll-mode', `automatic-hscrolling', `auto-show-mode' or
+`hscroll-mode' will all be invalidated in emacs-w3m buffers."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-horizontal-scroll-division 4
+  "*Integer used by the program making the point certainly visible.
+The cursor definitely does not go missing even when it has been driven
+out of the window while wandering around anchors and forms in an
+emacs-w3m buffer.
+
+Suppose that the value of this variable is N.  When the point is
+outside the left of the window, emacs-w3m scrolls the window so that
+the point may be displayed on the position within 1/N of the width of
+the window from the left.  Similarly, when the point is outside the
+right of the window, emacs-w3m scrolls the window so that the point
+may be displayed on the position of 1/N of the width of the window
+from the right.
+
+This feature doesn't work if `w3m-auto-show' is nil.  The value must
+be a larger integer than 1."
+  :group 'w3m
+  :type '(integer :size 0)
+  :set (lambda (symbol value)
+	 (custom-set-default symbol (if (and (integerp value) (> value 1))
+					value
+				      4))))
+
+(defcustom w3m-show-error-information t
+  "*Non-nil means show an error information as a web page.
+Page is made when the foreign server doesn't respond to a request to
+retrieve data."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-refresh t
+  "*Non-nil means honor the REFRESH attribute in META tags.
+Emacs-w3m arbitrarily takes you to a url specified by that attribute.
+Note that they may be malicious traps."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-mbconv-command "mbconv"
+  "*Name of the \"mbconv\" command provided by the \"libmoe\" package.
+The \"libmoe\" package is used when you use the w3mmee command instead
+of the w3m command.  See also `w3m-command'."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-local-find-file-regexps
+  (cons nil
+	(concat "\\."
+		(regexp-opt (append '("htm"
+				      "html"
+				      "shtm"
+				      "shtml"
+				      "xhtm"
+				      "xhtml"
+				      "txt")
+				    (and (w3m-image-type-available-p 'jpeg)
+					 '("jpeg" "jpg"))
+				    (and (w3m-image-type-available-p 'gif)
+					 '("gif"))
+				    (and (w3m-image-type-available-p 'png)
+					 '("png"))
+				    (and (w3m-image-type-available-p 'xbm)
+					 '("xbm"))
+				    (and (w3m-image-type-available-p 'xpm)
+					 '("xpm")))
+			    t) ;; with surrounding parens (for old Emacsen).
+		"\\'"))
+  "*Cons of two regexps matching and not matching with local file names.
+If a url of the `file:' scheme in which you entered matches the first
+form and does not match the latter form, it will be opened by the
+function specified by the `w3m-local-find-file-function' variable.
+Nil for the regexp matches any file names.
+
+For instance, the value `(nil . \"\\\\.[sx]?html?\\\\'\")' allows
+\"file:///some/where/w3m.el\", not \"file:///any/where/index.html\", to
+open by the function specified by `w3m-local-find-file-function'.  The
+latter will be opened as a normal web page.  Furthermore, if you would
+like to view some types of contents in the local system using the
+viewers specified by the `w3m-content-type-alist' variable, you can
+add regexps matching those file names to the second element of this
+variable.  For example:
+
+\(setq w3m-local-find-file-regexps
+      '(nil . \"\\\\.\\\\(?:[sx]?html?\\\\|dvi\\\\|ps\\\\|pdf\\\\)\\\\'\"))
+
+It is effective only when the `w3m-local-find-file-function' variable
+is set properly."
+  :group 'w3m
+  :type '(cons (radio :tag "Match"
+		      (const :format "All " nil)
+		      (regexp :format "%t: %v\n" :size 0))
+	       (radio :tag "Nomatch"
+		      (const :format "All " nil)
+		      (regexp :format "%t: %v\n" :size 0))))
+
+(defcustom w3m-local-find-file-function
+  '(if (w3m-popup-frame-p)
+       'find-file-other-frame
+     'find-file-other-window)
+  "*Function used to open local files.
+If a url of the `file:' scheme in which you entered agrees with the
+rule of the `w3m-local-find-file-regexps' variable (which see), it is
+used to open the file.
+
+Function should take one argument, the string naming the local file.
+It can also be any Lisp form returning a function.  Set this to nil if
+you want to always use emacs-w3m to see local files."
+  :group 'w3m
+  :type '(sexp :size 0))
+
+(defcustom w3m-local-directory-view-method 'w3m-cgi
+  "*Symbol of the method to view a local directory tree.
+The valid values include `w3m-cgi' using the CGI program specified by
+the `w3m-dirlist-cgi-program' variable (which see), and `w3m-dtree'
+using the w3m-dtree Lisp module."
+  :group 'w3m
+  :type '(radio (const :format "Dirlist CGI  " w3m-cgi)
+		(const :tag "Directory tree" w3m-dtree)))
+
+(defcustom w3m-dirlist-cgi-program
+  (cond ((eq system-type 'windows-nt)
+	 "c:/usr/local/lib/w3m/dirlist.cgi")
+	((memq system-type '(OS/2 emx))
+	 (expand-file-name "dirlist.cmd" (getenv "W3M_LIB_DIR")))
+	(t nil))
+  "*Name of the CGI program to list a local directory.
+If it is nil, the dirlist.cgi module of the w3m command will be used."
+  :group 'w3m
+  :type `(radio
+	  (const :tag "w3m internal CGI" nil)
+	  (file :format "path of 'dirlist.cgi': %v\n"
+		:size 0
+		:value ,(if (not noninteractive)
+			    (expand-file-name
+			     (concat "../lib/"
+				     (file-name-nondirectory w3m-command)
+				     "/dirlist.cgi")
+			     (file-name-directory
+			      (w3m-which-command w3m-command)))))))
+
+(defcustom w3m-add-referer
+  (if (boundp 'w3m-add-referer-regexps)
+      (symbol-value 'w3m-add-referer-regexps)
+    (cons "\\`http:" "\\`http://\\(?:localhost\\|127\\.0\\.0\\.1\\)/"))
+  "*Rule of sending referers.
+There are five choices as the valid values of this option.
+
+\(1\) nil: this means that emacs-w3m never send referers.
+\(2\) t: this means that emacs-w3m always send referers.
+\(3\) lambda: this means that emacs-w3m send referers only when both
+    the current page and the target page are provided by the same
+    server.
+\(4\) a cons cell keeping two regular expressions: this means that
+    emacs-w3m send referers when the url of the current page matches
+    the first regular expression and does not match the second regular
+    expression.  Nil for the regexp matches any url.
+\(5\) a function: emacs-w3m send referers when this function which has
+    two arguments, URL and REFERER, returns non-nil.
+
+If you become nervous about leak of your private WEB browsing history,
+set `nil' or `lambda' to this option.  When your computer belongs to a
+secret network, you may set a pair of regular expressions to inhibit
+sending referers which will disclose your private informations, as
+follows:
+
+\(setq w3m-add-referer
+      '(\"\\\\`http:\"
+	. \"\\\\`http://\\\\(?:[^./]+\\\\.\\\\)*example\\\\.net/\")\)
+"
+  :group 'w3m
+  :type '(choice
+	  (const :tag "Never send referers" nil)
+	  (const :tag "Always send referers" t)
+	  (const :tag "Send referers when accessing the same server" lambda)
+	  (cons :tag "Send referers when URI matches:"
+		(list :inline t :format "%v"
+		      (radio :indent 2 :sample-face underline
+			     :tag "Allow"
+			     (regexp :format "%t: %v\n" :size 0)
+			     (const :tag "Don't allow all" nil))
+		      (radio :indent 2 :sample-face underline
+			     :tag "Don't allow"
+			     (regexp :format "%t: %v\n" :size 0)
+			     (const :tag "Allow all" nil))))
+	  (function :tag "Send referers when your function returns non-nil")))
+
+(defcustom w3m-touch-command (w3m-which-command "touch")
+  "*Name of the executable file of the touch command.
+Note that the command is required to be able to modify file's
+timestamp with the `-t' option."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defcustom w3m-puny-utf-16be
+  (cond
+   ((w3m-find-coding-system 'utf-16-be-no-signature)
+    'utf-16-be-no-signature)
+   ((w3m-find-coding-system 'utf-16be)
+    'utf-16be)
+   (t nil))
+  "*Coding system for PUNY coding. if nil, don't use PUNY code."
+  :group 'w3m
+  :type '(radio (coding-system :tag "UTF-16BE without BOM")
+		(const "Don't use" nil)))
+
+(defcustom w3m-uri-replace-alist
+  '(("\\`gg:" w3m-search-uri-replace "google")
+    ("\\`ggg:" w3m-search-uri-replace "google groups")
+    ("\\`ya:" w3m-search-uri-replace "yahoo")
+    ("\\`al:" w3m-search-uri-replace "altavista")
+    ("\\`bts:" w3m-search-uri-replace "debian-bts")
+    ("\\`dpkg:" w3m-search-uri-replace "debian-pkg")
+    ("\\`archie:" w3m-search-uri-replace "iij-archie")
+    ("\\`alc:"  w3m-search-uri-replace "alc")
+    ("\\`urn:ietf:rfc:\\([0-9]+\\)" w3m-pattern-uri-replace
+     "http://www.ietf.org/rfc/rfc\\1.txt"))
+  "*Alist of regexps matching URIs, and some types of replacements.
+It can be used universally to replace URI strings in the local rule to
+the valid forms in the Internet.
+
+Each element looks like the `(REGEXP FUNCTION OPTIONS...)' form.
+FUNCTION takes one or more arguments, a uri and OPTIONS.  You can use
+the grouping constructs \"\\\\(...\\\\)\" in REGEXP, and they can be
+referred by the \"\\N\" forms in a replacement (which is one of OPTIONS).
+
+Here are some predefined functions which can be used for those ways:
+
+`w3m-pattern-uri-replace'
+    Replace a URI using PATTERN (which is just an OPTION).  It is
+    allowed that PATTERN contains the \"\\N\" forms in the same manner
+    of `replace-match'.
+
+`w3m-search-uri-replace'
+    Generate the valid forms to query words to some specified search
+    engines.  For example, the element
+
+    (\"\\\\`gg:\" w3m-search-uri-replace \"google\")
+
+    makes it possible to replace the URI \"gg:emacs\" to the form to
+    query the word \"emacs\" to the Google site.\
+"
+  :group 'w3m
+  :type '(repeat
+	  :convert-widget w3m-widget-type-convert-widget
+	  `((choice
+	     :format "%[Value Menu%] %v" :tag "Replacing URI with"
+	     (list :indent 4 :tag "Replacement Using Pattern"
+		   (regexp :format "%t: %v\n" :size 0)
+		   (function-item :format "" w3m-pattern-uri-replace)
+		   (string :format "Pattern: %v\n" :size 0))
+	     (list :format "%t:\n%v" :indent 4 :tag "Quick Search"
+		   (regexp :format "Prefix URI %t: %v\n"
+			   :size 0 :value "")
+		   (function-item :format "" w3m-search-uri-replace)
+		   (string :format "Quick Search Engine: %v\n"
+			   :size 0 :value ""))
+	     ,@(progn
+		 (require 'w3m-search)
+		 (mapcar
+		  (lambda (elem)
+		    (let* ((engine (car elem))
+			   (prefix (mapconcat 'identity
+					      (split-string (downcase engine))
+					      "-")))
+		      `(list
+			:format "Quick Search:\n%v"
+			:indent 4
+			:tag ,(concat "Quick Search: " prefix)
+			(regexp :tag "Prefix URL Regexp"
+				,(concat "\\`" (regexp-quote prefix) ":"))
+			(function-item :format "" w3m-search-uri-replace)
+			(string :tag "Quick Search Engine" ,engine))))
+		  w3m-search-engine-alist))
+	     (list :indent 4 :tag "User Defined Function"
+		   (regexp :format "%t: %v\n" :size 0)
+		   (function
+		    :format "%t: %v\n" :size 0
+		    ;; Fix a bug in Emacs versions prior to 22.
+		    :value-to-internal
+		    (lambda (widget value)
+		      (if (stringp value)
+			  (if (string-match "\\`\".*\"\\'" value)
+			      (substring value 1 -1)
+			    value)
+			(prin1-to-string value))))
+		   (repeat :extra-offset 2 :tag "Options"
+			   (sexp :format "%t: %v\n" :size 0)))))))
+
+(defcustom w3m-relationship-estimate-rules
+  `((w3m-relationship-simple-estimate
+     "\\`http://\\(?:www\\|blogsearch\\|groups\\|news\\|images\\)\
+\\.google\\.[^/]+/\\(?:\\(?:blog\\|code\\)?search\\|groups\\|news\\|images\
+\\|cse\\?cx=\\|custom\\?\\(?:q\\|hl\\)=\\)"
+     ,(concat "<a[^>]+?href=" w3m-html-string-regexp "[^>]*>[\t\n ]*"
+	      "\\(?:\\(?:</?span[^>]*>[\t\n ]*\\)*<span[^>]+>Next</span>"
+	      "\\|\\(?:</?span[^>]*>[\t\n ]*\\)*"
+	      "<b>\\(?:$B2<0lJG(B\\|$B<!$X(B\\|$(C4Y@=(B\\)</b>\\)")
+     ,(concat "<a[^>]+?href=" w3m-html-string-regexp "[^>]*>[\t\n ]*"
+	      "\\(?:\\(?:</?span[^>]*>[\t\n ]*\\)*<span[^>]+>Previous</span>"
+	      "\\|\\(?:</?span[^>]*>[\t\n ]*\\)*"
+	      "<b>\\(?:$B>e0lJG(B\\|$BA0$X(B\\|$(C@L@|(B\\)</b>\\)")
+     nil nil)
+    (w3m-relationship-simple-estimate
+     "\\`http://www\\.google\\.[^/]+/gwt/n\\?u="
+     ,(concat "<a[^>]+?href=" w3m-html-string-regexp
+	      "[ \t\n]+accesskey=\"3\">")
+     ,(concat "<a[^>]+?href=" w3m-html-string-regexp
+	      "[ \t\n]+accesskey=\"1\">")
+     nil nil)
+    (w3m-relationship-simple-estimate
+     "\\`http://beta\\.search\\.yahoo\\.co\\.jp/"
+     ,(concat "<a href=" w3m-html-string-regexp
+	      "><img src=http://i\\.yimg\\.jp/images/common/ar_next\\.gif")
+     ,(concat "<a href=" w3m-html-string-regexp
+	      "><img src=http://i\\.yimg\\.jp/images/common/ar_prev\\.gif")
+     nil nil)
+    (w3m-relationship-simple-estimate
+     "\\`http://www\\.zdnet\\.co\\.jp/news/"
+     ,(concat "<a href=" w3m-html-string-regexp ">$B<!$N%Z!<%8(B</a>")
+     ,(concat "<a href=" w3m-html-string-regexp ">$BA0$N%Z!<%8(B</a>")
+     nil nil)
+    (w3m-relationship-simple-estimate
+     "\\`http://freshmeat\\.net/\\(search\\|browse\\)/"
+     ,(concat "<A HREF=" w3m-html-string-regexp ">\\[&raquo;\\]</A>")
+     ,(concat "<A HREF=" w3m-html-string-regexp ">\\[&laquo;\\]</A>")
+     nil nil)
+    (w3m-relationship-oddmuse-estimate)
+    (w3m-relationship-magicpoint-estimate)
+    (w3m-relationship-slashdot-estimate)
+    (w3m-relationship-alc-estimate))
+  "*Rules to estimate relationships between a retrieved page and others."
+  :group 'w3m
+  :type '(repeat
+	  (choice
+	   :format "%[Value Menu%] %v"
+	   (list :tag "Estimate relationships from anchors matching"
+		 :indent 1
+		 (const :format "Function: %v\n"
+			w3m-relationship-simple-estimate)
+		 (regexp :tag "URL")
+		 (regexp :tag "Next")
+		 (regexp :tag "Prev")
+		 (radio :format "Start: %v"
+			(const :format "%v " nil) regexp)
+		 (radio :format "Contents: %v"
+			(const :format "%v " nil) regexp))
+	   (list :tag "Estimate with a user defined function"
+		 :indent 1
+		 function
+		 (repeat :tag "Args" :extra-offset 1 (sexp :format "%v"))))))
+
+(defcustom w3m-enable-google-feeling-lucky t
+  "Non-nil enables you to enter any words as well as a url when prompted.
+In that case, emacs-w3m uses Google to search for the words."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-google-feeling-lucky-charset
+  (cond
+   ((or (featurep 'un-define) (fboundp 'utf-translate-cjk-mode))
+    "UTF-8")
+   ((equal "Japanese" w3m-language)
+    "SHIFT_JIS")
+   ((w3m-find-coding-system 'utf-8)
+    "UTF-8")
+   (t "US-ASCII"))
+  "*Character set for \"I'm Feeling Lucky on Google\"."
+  :group 'w3m
+  :type '(string :size 0))
+
+(defconst w3m-entity-table
+  (let ((table (make-hash-table :test 'equal)))
+    (dolist (entity '(("nbsp" . " ")
+		      ("gt" . ">")
+		      ("lt" . "<")
+		      ("amp" . "&")
+		      ("quot" . "\"")
+		      ("apos" . "'")
+		      ("circ" . "^")
+		      ("tilde" . "~")))
+      (puthash (car entity) (cdr entity) table))
+    (dolist (entity
+	     '(;("nbsp" . 160)
+	       ("iexcl" . 161) ("cent" . 162) ("pound" . 163) ("curren" . 164)
+	       ("yen" . 165) ("brvbar" . 166) ("sect" . 167) ("uml" . 168)
+	       ("copy" . 169) ("ordf" . 170) ("laquo" . 171) ("not" . 172)
+	       ("shy" . 173) ("reg" . 174) ("macr" . 175) ("deg" . 176)
+	       ("plusmn" . 177) ("sup2" . 178) ("sup3" . 179) ("acute" . 180)
+	       ("micro" . 181) ("para" . 182) ("middot" . 183) ("cedil" . 184)
+	       ("sup1" . 185) ("ordm" . 186) ("raquo" . 187) ("frac14" . 188)
+	       ("frac12" . 189) ("frac34" . 190) ("iquest" . 191)
+	       ("Agrave" . 192) ("Aacute" . 193) ("Acirc" . 194)
+	       ("Atilde" . 195) ("Auml" . 196) ("Aring" . 197) ("AElig" . 198)
+	       ("Ccedil" . 199) ("Egrave" . 200) ("Eacute" . 201)
+	       ("Ecirc" . 202) ("Euml" . 203) ("Igrave" . 204) ("Iacute" . 205)
+	       ("Icirc" . 206) ("Iuml" . 207) ("ETH"  . 208) ("Ntilde" . 209)
+	       ("Ograve" . 210) ("Oacute" . 211) ("Ocirc" . 212)
+	       ("Otilde" . 213) ("Ouml" . 214) ("times" . 215) ("Oslash" . 216)
+	       ("Ugrave" . 217) ("Uacute" . 218) ("Ucirc" . 219) ("Uuml" . 220)
+	       ("Yacute" . 221) ("THORN" . 222) ("szlig" . 223) ("agrave" . 224)
+	       ("aacute" . 225) ("acirc" . 226) ("atilde" . 227) ("auml" . 228)
+	       ("aring" . 229) ("aelig" . 230) ("ccedil" . 231) ("egrave" . 232)
+	       ("eacute" . 233) ("ecirc" . 234) ("euml" . 235) ("igrave" . 236)
+	       ("iacute" . 237) ("icirc" . 238) ("iuml" . 239) ("eth" . 240)
+	       ("ntilde" . 241) ("ograve" . 242) ("oacute" . 243)
+	       ("ocirc" . 244) ("otilde" . 245) ("ouml" . 246) ("divide" . 247)
+	       ("oslash" . 248) ("ugrave" . 249) ("uacute" . 250)
+	       ("ucirc" . 251) ("uuml" . 252) ("yacute" . 253) ("thorn" . 254)
+	       ("yuml" . 255)))
+      (puthash (car entity)
+	       (char-to-string (make-char 'latin-iso8859-1 (cdr entity)))
+	       table))
+    (dolist (entity
+	     '(("Alpha" . 65) ("Beta" . 66) ("Gamma" . 67) ("Delta" . 68)
+	       ("Epsilon" . 69) ("Zeta" . 70) ("Eta" . 71) ("Theta" . 72)
+	       ("Iota" . 73) ("Kappa" . 74) ("Lambda" . 75) ("Mu" . 76)
+	       ("Nu" . 77) ("Xi" . 78) ("Omicron" . 79) ("Pi" . 80)
+	       ("Rho" . 81)	; No ("Sigmaf" . 82)
+	       ("Sigma" . 83) ("Tau" . 84) ("Upsilon" . 85) ("Phi" . 86)
+	       ("Chi" . 87) ("Psi" . 88) ("Omega" . 89)
+	       ("alpha" . 97) ("beta" . 98) ("gamma" . 99) ("delta" . 100)
+	       ("epsilon" . 101) ("zeta" . 102) ("eta" . 103) ("theta" . 104)
+	       ("iota" . 105) ("kappa" . 106) ("lambda" . 107) ("mu" . 108)
+	       ("nu" . 109) ("xi" . 110) ("omicron" . 111) ("pi" . 112)
+	       ("rho" . 113) ("sigmaf" . 114) ("sigma" . 115) ("tau" . 116)
+	       ("upsilon" . 117) ("phi" . 118) ("chi" . 119) ("psi" . 120)
+	       ("omega" . 121)))
+      (puthash (car entity)
+	       (char-to-string (make-char 'greek-iso8859-7 (cdr entity)))
+	       table))
+    (when (w3m-mule-unicode-p)
+      (let ((latin-extended-a
+	     '((32 . (("OElig" . 114) ("oelig" . 115)))
+	       (33 . (("Scaron" . 32) ("scaron" . 33) ("Yuml" . 56)))))
+	    (latin-extended-b '((33 . (("fnof" . 82)))))
+	    ;;(spacing-modifier-letters '(36 . (("circ" . 120) ("tilde" . 124))))
+	    (general-punctuation
+	     '((114 .
+		    (("ensp" . 98) ("emsp" . 99) ("thinsp" . 105) ("zwnj" . 108)
+		     ("zwj" . 109) ("lrm" . 110) ("rlm" . 111) ("ndash" . 115)
+		     ("mdash" . 116) ("lsquo" . 120) ("rsquo" . 121)
+		     ("sbquo" . 122) ("ldquo" . 124) ("rdquo" . 125)
+		     ("bdquo" . 126)))
+	       (115 .
+		    (("dagger" . 32) ("Dagger" . 33) ("permil" . 48)
+		     ("lsaquo" . 57) ("rsaquo" . 58)
+		     ("bull" . 34) ("hellip" . 38) ("prime" . 50) ("Prime" . 51)
+		     ("oline" . 62) ("frasl" . 68)))
+	       (116 .
+		    (("euro" . 76)))))
+	    (greek '((39 . (("thetasym" . 81) ("upsih" . 82) ("piv" . 86)))))
+	    (letterlike-symbols
+	     '((117 .
+		    (("weierp" . 88) ("image" . 81) ("real" . 92)
+		     ("trade" . 98) ("alefsym" . 117)))))
+	    (arrows
+	     '((118 .
+		    (("larr" . 112) ("uarr" . 113) ("rarr" . 114) ("darr" . 115)
+		     ("harr" . 116)))
+	       (119 .
+		    (("crarr" . 53) ("lArr" . 80) ("uArr" . 81) ("rArr" . 81)
+		     ("dArr" . 83) ("hArr" . 84)))))
+	    (mathematical-operators
+	     '((120 .
+		    (("forall" . 32) ("part" . 34) ("exist" . 35) ("empty" . 37)
+		     ("nabla" . 39) ("isin" . 40) ("notin" . 41) ("ni" . 43)
+		     ("prod" . 47) ("sum" . 49) ("minus" . 50) ("lowast" . 55)
+		     ("radic" . 58) ("prop" . 61) ("infin" . 62) ("ang" . 64)
+		     ("and" . 71) ("or" . 72) ("cap" . 73) ("cup" . 74)
+		     ("int" . 75) ("there4" . 84) ("sim" . 92) ("cong" . 101)
+		     ("asymp" . 104)))
+	       (121 .
+		    (("ne" . 32) ("equiv" . 33) ("le" . 36) ("ge" . 37)
+		     ("sub" . 66) ("sup" . 67) ("nsub" . 68) ("sube" . 70)
+		     ("supe" . 71) ("oplus" . 85) ("otimes" . 87)
+		     ("perp" . 101)))
+	       (122 . (("sdot" . 37)))))
+	    (miscellaneous-technical
+	     '((122 . (("lceil" . 104) ("rceil" . 105) ("lfloor" . 106)
+		       ("rfloor" . 107)))
+	       (123 . (("lang" . 41) ("rang" . 42)))))
+	    (suit
+	     '(("loz" . (34 . 42)) ("spades" . (35 . 96)) ("clubs" . (35 . 99))
+	       ("hearts" . (35 . 101)) ("diams" . (35 . 102)))))
+	(dolist (entities `(,@latin-extended-a
+			    ,@latin-extended-b
+			    ,@general-punctuation
+			    ,@greek ,@letterlike-symbols ,@arrows
+			    ,@mathematical-operators
+			    ,@miscellaneous-technical))
+	  (let ((code1 (car entities)))
+	    (dolist (entity (cdr entities))
+	      (puthash (car entity)
+		       (char-to-string
+			(make-char 'mule-unicode-0100-24ff
+				   code1 (cdr entity)))
+		       table))))
+	(dolist (entity suit)
+	  (puthash (car entity)
+		   (char-to-string
+		    (make-char 'mule-unicode-2500-33ff
+			       (car (cdr entity)) (cdr (cdr entity))))
+		   table))))
+    table)
+  "Table of html character entities and values.")
+
+(defvar w3m-extra-numeric-character-reference
+  (mapcar
+   (lambda (item)
+     (cons (car item) (string (w3m-ucs-to-char (cdr item)))))
+   '((#x80 . #x20AC) (#x82 . #x201A) (#x83 . #x0192) (#x84 . #x201E)
+     (#x85 . #x2026) (#x86 . #x2020) (#x87 . #x2021) (#x88 . #x02C6)
+     (#x89 . #x2030) (#x8A . #x0160) (#x8B . #x2039) (#x8C . #x0152)
+     (#x8E . #x017D) (#x91 . #x2018) (#x92 . #x2019) (#x93 . #x201C)
+     (#x94 . #x201D) (#x95 . #x2022) (#x96 . #x2013) (#x97 . #x2014)
+     (#x98 . #x02DC) (#x99 . #x2122) (#x9A . #x0161) (#x9B . #x203A)
+     (#x9C . #x0153) (#x9E . #x017E) (#x9F . #x0178)))
+  "*Alist of (numeric . string) pairs for numeric character reference
+other than ISO 10646.")
+
+(defconst w3m-entity-reverse-table
+  (let ((table (make-hash-table :test 'equal)))
+    (maphash (lambda (key val) (puthash val key table))
+	     w3m-entity-table)
+    table)
+  "Revision table of html character entities and values.")
+
+(defconst w3m-entity-regexp
+  (let (buf)
+    (maphash (lambda (key val) (push key buf))
+	     w3m-entity-table)
+    (concat "&\\("
+	    (let ((max-specpdl-size (* 1024 1024))) ;; For old Emacsen.
+	      (regexp-opt buf))
+	    "\\|#\\(?:[xX][0-9a-fA-F]+\\|[0-9]+\\)\\)\\(\\'\\|[^0-9a-zA-Z]\\)"))
+  "Regexp matching html character entities.")
+
+(defconst w3m-encoding-alist
+  (eval-when-compile
+    (apply 'nconc
+	   (mapcar (lambda (elem)
+		     (mapcar (lambda (x) (cons x (car elem)))
+			     (cdr elem)))
+		   '((gzip . ("gzip" "x-gzip" "compress" "x-compress"))
+		     (bzip . ("x-bzip" "bzip" "bzip2"))
+		     (deflate . ("x-deflate" "deflate"))))))
+  "Alist of content encoding types and decoder symbols.
+Decoders are specified by `w3m-decoder-alist' (which see).")
+
+(defconst w3m-emacs-w3m-icon "\
+R0lGODlhUwAOAPIAAFUq/H8AvwC/AP8AAAAAv79/Af///wAAACH/C05FVFNDQVBFMi4wAwEA
+AAAh+QQAIQD/ACwAAAAAUwAOAAADxmi63P4wykmrvXiWvbP/4NIpY2ieUFlSQRssrRG7DGET
+DQEAzL5PAoEiSCo0RoOBIblkKmKyV/RFsymsBqzh99vyvBKiYbQaG5vKZFoZfUqhUO0C2613
+gUJzsVhy+tkuNG2DWjd0Xw0+iEGMYgJGHWVjbH8KTlAMcThZm1iHEYwakKMOlU2WgFKZUp6d
+m3YKdwtiEmRnfZS5qG5Ub6yuVzg+C1xfAES0EbZ7u6fOTlOqrcFzxcSyjRXLqGoLptAo4eLj
+5OUNCQAh+QQAIQD/ACwAAAAAUwAOAAADImi63P4wykmrvTjrzbv/YCiOZGmeaKqubOu+cCzP
+dG3fagIAIfkEACEA/wAsAAAAAFMADgAAAz5outz+MMpJq7046827/2AYBWSwkAZaimyFpiZs
+rm0tvXj82rxT0rmekLE7xYZIRVF5TA5XQWfyJ61ar9hsAgAh+QQAIQD/ACwAAAAAUwAOAAAD
+Vmi63P4wykmrvTjrzbv/YBgFZLCQBloyREs0rxiiqVmba6voBi//tKCN5lsUf7OSUEGM9VxO
+ZNLR3MV4R6mHxqg+rVrpavktZ8MgpfHKNqLf8Lh8XkkAACH5BAAhAP8ALAAAAABTAA4AAANw
+aLrc/jDKSau9OOvNu/9gGAVksJAGWjJESzQEADCyLGJoaurm2io/Q9BgsxFnx5slx9zlhoug
+cWpULktNxfMFdHGrtJq1kmNsu2jhFznulE+7oHytoLY1q6w6/RPXZ1N3F1hRXHNRRWx+goyN
+jo+QCQAh+QQAIQD/ACwAAAAAUwAOAAADhWi63P4wykmrvTjrzbv/YBgFZLCQBloyREs0BAAw
+sjwJgoKHaGr6plVLMTQUDTYbcraU7ESKnvTXOy6KyqzyloMCV77o7+jCMhu1M2797EJ7jOrL
+OC+aI2tvBX4a1/8KWoFnC096EitTRIB0S2dJTAA7hocjYI2YZJALNQxslaChoqOkDgkAIfkE
+ACEA/wAsAAAAAFMADgAAA6doutz+MMpJq714lr2z/+DSKWNonlBZUkEbLK0RuwxhEw0BAMy+
+TwKBIkgqNFaSmOy1fNFsCqhBavj9qjyshGgYIZERpZippC6k1/QVKOwa3UVw2DVWlHHRG37d
+8y2CgFwCRh1gbxVKDHd5jFN7WQ+AGoSUJokwTFKajwpqDlwSXm9yLDNkmXibWJBWWQBEoBGi
+RSB0Z6m4Z60Lfn+SFLMowsPExcbFCQAh+QQAIQD/ACwAAAAAUwAOAAADxmi63P4wykmrvXiW
+vbP/4NIpY2ieUFlSQRssrRG7DGETDQEAzL5PAoEiSCo0RoOBIblkKmKyV/RFsymsBqzh99vy
+vBKiYbQaG5vKZFoZfUqhUO0C2613gUJzsVhy+tkuNG2DWjd0Xw0+iEGMYgJGHWVjbH8KTlAM
+cThZm1iHEYwakKMOlU2WgFKZUp6dm3YKdwtiEmRnfZS5qG5Ub6yuVzg+C1xfAES0EbZ7u6fO
+TlOqrcFzxcSyjRXLqGoLptAo4eLj5OUNCQA7"
+  "A small image to be displayed in the about: page.
+It is encoded in the optimized interlaced endlessly animated gif format
+and base64.  Emacs can display only the 1st frame of an animation, but
+XEmacs can fully display it with the help of the gifsicle program.")
+
+(defcustom w3m-process-modeline-format " loaded: %s"
+  "*Format used when displaying the progress of the external w3m process.
+It shows a percentage of the data loaded from the web server."
+  :group 'w3m
+  :type '(choice (string :tag "Format") function))
+
+(defcustom w3m-ignored-image-url-regexp nil
+  "*Regexp matching image urls which you don't want to view.
+It is effective even if `w3m-display-inline-images' is non-nil.
+For instance, the value \"^http://www\\.google\\.com/\" conceals
+Google's logo and navigation images, but display YouTube's
+thumbnail."
+  :group 'w3m
+  :type '(radio (const :format "Accept any image\n" nil)
+		(regexp :format "URL regexp: %v\n" :size 0)))
+
+(defcustom w3m-refresh-minimum-interval 60
+  "*Minimum seconds to wait for refresh, when visiting a page by
+history-back or history-next."
+  :group 'w3m
+  :type '(integer :size 0))
+
+(defvar w3m-modeline-process-status-on "<PRC>"
+  "Modeline control for displaying the status when the process is running.
+The value will be modified for displaying the graphic icon.")
+
+(defvar w3m-modeline-image-status-on "[IMG]"
+  "Modeline control to display the status when inline images are turned on.
+The value will be modified for displaying the graphic icon.")
+
+(defvar w3m-modeline-status-off "[ - ]"
+  "Modeline control for displaying the status for the default.
+The value will be modified for displaying the graphic icon.")
+
+(defvar w3m-modeline-ssl-image-status-on "[IMG(SSL)]"
+  "Modeline control for displaying the status when images and SSL are on.
+The value will be modified for displaying the graphic icon.")
+
+(defvar w3m-modeline-ssl-status-off "[SSL]"
+  "Modeline control for displaying the status when SSL is turned on.
+The value will be modified for displaying the graphic icon.")
+
+(defvar w3m-modeline-separator " / "
+  "String used to separate a status and a title in the modeline.")
+
+(defvar w3m-modeline-favicon nil
+  "Modeline control for displaying a favicon.
+This variable will be made buffer-local.")
+
+(defvar w3m-favicon-image nil
+  "Favicon image of the page.
+This variable will be made buffer-local")
+
+(defvar w3m-current-process nil
+  "Flag used to say whether the external process is running in the buffer.
+This variable will be made buffer-local.")
+(make-variable-buffer-local 'w3m-current-process)
+
+(defvar w3m-refresh-timer nil
+  "Variable used to keep a timer object for refreshing a page.
+It will be supplied by the REFRESH attribute in the META tag, and made
+buffer-local in each emacs-w3m buffer.")
+(make-variable-buffer-local 'w3m-refresh-timer)
+
+(defvar w3m-mail-user-agents '(gnus-user-agent
+			       message-user-agent
+			       mew-user-agent
+			       vm-user-agent
+			       wl-user-agent)
+  "List of mail user agents that `w3m-mail' supports.
+See also w3m-mail.el.")
+
+(defvar w3m-current-base-url nil
+  "URL specified by <base...> tag in <head> element of the page source.")
+(defvar w3m-current-forms nil
+  "Variable used to keep forms data for the current emacs-w3m buffer.")
+(defvar w3m-current-coding-system nil
+  "Coding system used when decoding the current emacs-w3m buffer.")
+(defvar w3m-current-content-charset nil
+  "Content charset of the page specified by the server or the META tag.")
+(defvar w3m-icon-data nil
+  "Cons of icon data and its image-type for the current emacs-w3m buffer.
+It is used for favicon data.  The type is often `ico'.")
+(defvar w3m-next-url nil
+  "URL as the next document in the author-defined sequence.")
+(defvar w3m-previous-url nil
+  "URL as the previous document in the author-defined sequence.")
+(defvar w3m-start-url nil
+  "URL as the first document in the author-defined sequence.")
+(defvar w3m-contents-url nil
+  "URL as the table of contents for the current page.")
+(defvar w3m-max-anchor-sequence nil
+  "Maximum number of the anchor sequence in the current page.")
+(defvar w3m-current-refresh nil
+  "Cons of number of seconds and a url specified by the REFRESH attribute.")
+(defvar w3m-current-ssl nil
+  "SSL certification indicator for the current emacs-w3m buffer.")
+(defvar w3m-name-anchor-from-hist nil
+  "List of the points of where `w3m-search-name-anchor' come from.")
+
+(make-variable-buffer-local 'w3m-current-url)
+(make-variable-buffer-local 'w3m-current-base-url)
+(make-variable-buffer-local 'w3m-current-title)
+(make-variable-buffer-local 'w3m-current-forms)
+(make-variable-buffer-local 'w3m-current-coding-system)
+(make-variable-buffer-local 'w3m-current-content-charset)
+(make-variable-buffer-local 'w3m-icon-data)
+(make-variable-buffer-local 'w3m-next-url)
+(make-variable-buffer-local 'w3m-previous-url)
+(make-variable-buffer-local 'w3m-start-url)
+(make-variable-buffer-local 'w3m-contents-url)
+(make-variable-buffer-local 'w3m-max-anchor-sequence)
+(make-variable-buffer-local 'w3m-current-refresh)
+(make-variable-buffer-local 'w3m-current-ssl)
+(make-variable-buffer-local 'w3m-name-anchor-from-hist)
+
+(defun w3m-clear-local-variables ()
+  (setq w3m-current-url nil
+	w3m-current-base-url nil
+	w3m-current-title nil
+	w3m-current-coding-system nil
+	w3m-current-content-charset nil
+	w3m-icon-data nil
+	w3m-next-url nil
+	w3m-previous-url nil
+	w3m-start-url nil
+	w3m-contents-url nil
+	w3m-max-anchor-sequence nil
+	w3m-current-refresh nil
+	w3m-current-ssl nil
+	w3m-name-anchor-from-hist nil))
+
+(defun w3m-copy-local-variables (from-buffer)
+  (let (url base title cs char icon next prev start toc hseq refresh ssl)
+    (with-current-buffer from-buffer
+      (setq url w3m-current-url
+	    base w3m-current-base-url
+	    title w3m-current-title
+	    cs w3m-current-coding-system
+	    char w3m-current-content-charset
+	    icon w3m-icon-data
+	    next w3m-next-url
+	    prev w3m-previous-url
+	    start w3m-start-url
+	    toc w3m-contents-url
+	    hseq w3m-max-anchor-sequence
+	    refresh w3m-current-refresh
+	    ssl w3m-current-ssl))
+    (setq w3m-current-url url
+	  w3m-current-base-url base
+	  w3m-current-title title
+	  w3m-current-coding-system cs
+	  w3m-current-content-charset char
+	  w3m-icon-data icon
+	  w3m-next-url next
+	  w3m-previous-url prev
+	  w3m-start-url start
+	  w3m-contents-url toc
+	  w3m-max-anchor-sequence hseq
+	  w3m-current-refresh refresh
+	  w3m-current-ssl ssl)))
+
+(defvar w3m-verbose nil
+  "*Flag controls whether to log messages in the *Messages* buffer.
+If it is nil, a lot of messages issued by emacs-w3m will be displayed
+only in the echo area.")
+
+(defvar w3m-safe-url-regexp nil
+  "Regexp matching urls which are considered to be safe.
+The nil value means all urls are considered to be safe.
+
+Note: The value, that might be bound to a certain value while rendering
+contents, will be held by the `w3m-safe-url-regexp' text property that
+is set over the rendered contents in a buffer.  So, programs that use
+the value to test whether a url of a link in a buffer is safe should
+use the value of the text property, not the value of this variable.
+See the function definitions of `w3m-toggle-inline-image',
+`w3m-toggle-inline-images', `w3m-safe-view-this-url', and
+`w3m-mouse-safe-view-this-url'.")
+
+(defvar w3m-current-buffer nil)
+(defvar w3m-cache-buffer nil)
+(defvar w3m-cache-articles nil)
+(defvar w3m-cache-hashtb nil)
+(defvar w3m-input-url-history nil)
+
+(defconst w3m-arrived-db-size 1023)
+(defvar w3m-arrived-db nil
+  "Hash table, the arrived URLs database.
+The name of each symbol represents a url, the arrival time in the
+Emacs style (a list of three integers) is stored as the value, and
+informations including a title, a modification time, a content charset
+and a content type are stored as the properties of the symbol.  The
+nil value means it has not been initialized.")
+
+(defvar w3m-arrived-setup-functions nil
+  "Hook functions run after setting up the arrived URLs database.")
+(defvar w3m-arrived-shutdown-functions nil
+  "Hook functions run after saving the arrived URLs database.")
+
+(defconst w3m-image-type-alist
+  '(("image/jpeg" . jpeg)
+    ("image/gif" . gif)
+    ("image/png" . png)
+    ("image/x-xbm" . xbm)
+    ("image/x-xpm" . xpm))
+  "Alist of content types and image types defined as the Emacs' features.")
+
+(defconst w3m-toolbar-buttons
+  '("back" "parent" "forward" "reload" "open" "home" "search" "image"
+    "copy" "weather" "antenna" "history" "db-history")
+  "List of prefix strings for the toolbar buttons.")
+
+(defconst w3m-toolbar
+  (if (equal "Japanese" w3m-language)
+      (let ((a (decode-coding-string "\e$B%\"\e(B" 'iso-2022-jp))) ;; $B%"(B
+	`([w3m-toolbar-back-icon w3m-view-previous-page
+				 (w3m-history-previous-link-available-p)
+				 "$BA0$N%Z!<%8$KLa$k(B"]
+	  [w3m-toolbar-parent-icon w3m-view-parent-page
+				   (w3m-parent-page-available-p)
+				   "$B>e$N%G%#%l%/%H%j$X0\F0$9$k(B"]
+	  [w3m-toolbar-forward-icon w3m-view-next-page
+				    (w3m-history-next-link-available-p)
+				    "$B<!$N%Z!<%8$K?J$`(B"]
+	  [w3m-toolbar-reload-icon w3m-reload-this-page
+				   w3m-current-url
+				   "$B%5!<%P$+$i%Z!<%8$r$b$&0lEYFI$_9~$`(B"]
+	  [w3m-toolbar-open-icon w3m-goto-url t "URL $B$rF~NO$7$F%Z!<%8$r3+$/(B"]
+	  [w3m-toolbar-home-icon w3m-gohome w3m-home-page
+				 "$B%[!<%`%Z!<%8$X%8%c%s%W(B"]
+	  [w3m-toolbar-search-icon w3m-search t "$B%$%s%?!<%M%C%H>e$r8!:w(B"]
+	  [w3m-toolbar-image-icon w3m-toggle-inline-images t
+				  "$B2hA|$NI=<($r%H%0%k$9$k(B"]
+	  [w3m-toolbar-copy-icon w3m-copy-buffer t
+				 "$B$3$N%;%C%7%g%s$N%3%T!<$r:n$k(B"]
+	  [w3m-toolbar-weather-icon w3m-weather t "$BE75$M=Js$r8+$k(B"]
+	  [w3m-toolbar-antenna-icon w3m-antenna t
+				    ,(concat a "$B%s%F%J$G<u?.$9$k(B")]
+	  [w3m-toolbar-history-icon w3m-history t "$B%R%9%H%j!<(B"]
+	  [w3m-toolbar-db-history-icon w3m-db-history t
+				       "$B2a5n$KK,Ld$7$?(B URL $B$NMzNr$r8+$k(B"]))
+    '([w3m-toolbar-back-icon w3m-view-previous-page
+			     (w3m-history-previous-link-available-p)
+			     "Back to Previous Page"]
+      [w3m-toolbar-parent-icon w3m-view-parent-page
+			       (w3m-parent-page-available-p)
+			       "View the parent page"]
+      [w3m-toolbar-forward-icon w3m-view-next-page
+				(w3m-history-next-link-available-p)
+				"Forward to Next Page"]
+      [w3m-toolbar-reload-icon w3m-reload-this-page
+			       w3m-current-url
+			       "Reload This Page"]
+      [w3m-toolbar-open-icon w3m-goto-url t "Go to..."]
+      [w3m-toolbar-home-icon w3m-gohome w3m-home-page "Go to Home Page"]
+      [w3m-toolbar-search-icon w3m-search t "Search the Internet"]
+      [w3m-toolbar-image-icon w3m-toggle-inline-images t "Toggle Images"]
+      [w3m-toolbar-copy-icon w3m-copy-buffer t "Make a Copy of This Session"]
+      [w3m-toolbar-weather-icon w3m-weather t "Weather Forecast"]
+      [w3m-toolbar-antenna-icon w3m-antenna t "Investigate with Antenna"]
+      [w3m-toolbar-history-icon w3m-history t "Show a History"]
+      [w3m-toolbar-db-history-icon w3m-db-history t "View Arrived URLs"]))
+  "Toolbar definition for emacs-w3m.")
+
+;; "View" is page viewing
+;; "Show" is link list showing
+(defconst w3m-menubar
+  (let ((a (when w3m-use-japanese-menu
+	     (decode-coding-string "\e$B%\"\e(B" 'iso-2022-jp)))) ;; $B%"(B
+    `("w3m"
+      [,(w3m-make-menu-item "$B$3$N(B URL $B$r?7$7$$%;%C%7%g%s$G3+$/(B"
+	  "Open This URL in a new session")
+       w3m-view-this-url-new-session (or (w3m-anchor) (w3m-image))]
+      [,(w3m-make-menu-item "$B$3$N(B URL $B$r%@%&%s%m!<%I$9$k(B" "Download This URL")
+       w3m-download-this-url (or (w3m-anchor) (w3m-image))]
+      [,(w3m-make-menu-item "$B%@%&%s%m!<%I(B..." "Download to...")
+       w3m-download t]
+      "----" ;; separator
+      [,(w3m-make-menu-item "$BA0$N%Z!<%8$KLa$k(B" "Back to Previous Page")
+       w3m-view-previous-page
+       (w3m-history-previous-link-available-p)]
+      [,(w3m-make-menu-item "$B<!$N%Z!<%8$K0\F0$9$k(B" "Forward to Next Page")
+       w3m-view-next-page
+       (w3m-history-next-link-available-p)]
+      [,(w3m-make-menu-item "$B>e$N3,AX$K0\F0$9$k(B" "Up to Parent Page")
+       w3m-view-parent-page
+       (w3m-parent-page-available-p)]
+      "----" ;; separator
+      [,(w3m-make-menu-item "$B$3$N%Z!<%8$r30It%V%i%&%6$G3+$/(B"
+	  "Open This Page in an External Browser")
+       w3m-external-view-current-url w3m-current-url]
+      [,(w3m-make-menu-item "$B$3$N(B URL $B$r30It%V%i%&%6$G3+$/(B"
+	  "Open This URL in an External Browser")
+       w3m-external-view-this-url (or (w3m-anchor) (w3m-image))]
+      [,(w3m-make-menu-item "$B$3$N%Z!<%8$N%=!<%9$r%3%^%s%I$KAw$k(B..."
+	  "Pipe Page Source to Command...")
+       w3m-pipe-source  w3m-current-url]
+      "----" ;; separator
+      (,(w3m-make-menu-item "$B:FI=<((B" "Redisplay")
+       [,(w3m-make-menu-item "$B$3$N%Z!<%8$r:F<hF@$9$k(B" "Reload This Page")
+	w3m-reload-this-page w3m-current-url]
+       [,(w3m-make-menu-item "$B$9$Y$F$N%Z!<%8$r:F<hF@$9$k(B" "Reload All Pages")
+       w3m-reload-all-pages (cdr (w3m-list-buffers))]
+       "----" ;; separator
+       [,(w3m-make-menu-item "$B2hA|I=<($N@ZBX(B($BA4It(B)" "Toggle Images")
+	w3m-toggle-inline-images (w3m-display-graphic-p)]
+       [,(w3m-make-menu-item "$B2hA|I=<($N@ZBX(B($B$3$N2hA|(B)" "Toggle This Image")
+	w3m-toggle-inline-image (w3m-image)]
+       [,(w3m-make-menu-item "$B2hA|I=<($r;_$a$k(B" "Turn off Images")
+	w3m-turnoff-inline-images (w3m-display-graphic-p)]
+       "----" ;; separator
+       [,(w3m-make-menu-item "$B:FIA2h$9$k(B" "Redisplay This Page")
+	w3m-redisplay-this-page w3m-current-url]
+       [,(w3m-make-menu-item "Charset $B$r;XDj$7$F:FIA2h$9$k(B"
+	   "Redisplay This Page with Charset")
+	w3m-redisplay-with-charset w3m-current-url]
+       [,(w3m-make-menu-item "Content-type $B$r;XDj$7$F:FIA2h$9$k(B"
+	   "Redisplay This Page with Content-type")
+	w3m-redisplay-with-content-type w3m-current-url]
+       [,(w3m-make-menu-item "$B;XDj$7$?(B Charset $B$H(B Content-type $B$rGK4~$9$k(B"
+	   "Reset Charset and Content-type")
+	w3m-redisplay-and-reset w3m-current-url]
+       ) ;; end redisplay
+      [,(w3m-make-menu-item "$B%[!<%`%Z!<%8$X0\F0(B" "Go to Home Page")
+       w3m-gohome w3m-home-page]
+      (,(w3m-make-menu-item "$B%V%C%/%^!<%/(B" "Bookmark")
+       [,(w3m-make-menu-item "$B%V%C%/%^!<%/$rI=<((B" "View Bookmark")
+	w3m-bookmark-view t]
+       [,(w3m-make-menu-item "$B?7$7$$%;%C%7%g%s$G%V%C%/%^!<%/$rI=<((B"
+			     "View Bookmark in a New Session")
+	w3m-bookmark-view-new-session t])
+      [,(w3m-make-menu-item "$B0\F0(B..." "Go to...")
+       w3m-goto-url t]
+      "----" ;; separator
+      (,(w3m-make-menu-item "$BMzNr(B" "History")
+       [,(w3m-make-menu-item "$BLZ9=B$$GMzNr$rI=<((B" "Show a Visited URLs Tree")
+	w3m-history t]
+       [,(w3m-make-menu-item "$B%j%9%H$GMzNr$rI=<((B" "Show an Arrived URLs List")
+	w3m-db-history t]
+       ) ;; end history
+      [,(w3m-make-menu-item "$B%$%s%?!<%M%C%H$G$N8!:w(B..."
+			    "Search the Internet...")
+       w3m-search t]
+      [,(w3m-make-menu-item "$B?7$7$$%;%C%7%g%s$G8!:w(B..."
+			    "Search the Internet in a New Session...")
+       w3m-search-new-session t]
+      [,(w3m-make-menu-item "$BE75$M=Js(B" "Weather Forecast")
+       w3m-weather t]
+      [,(w3m-make-menu-item (concat a "$B%s%F%J$G<hF@(B")
+			    "Investigate with Antenna")
+       w3m-antenna t]
+      (,(w3m-make-menu-item "$B%X%k%W(B" "Resource")
+       [,(w3m-make-menu-item "$B%W%m%;%9$rCf;_$9$k(B" "Cancel Process")
+	w3m-process-stop w3m-current-process]
+       [,(w3m-make-menu-item "$B%=!<%9$r8+$k(B" "View Source")
+	w3m-view-source t]
+       [,(w3m-make-menu-item "$B%X%C%@!<$r8+$k(B" "View Header")
+	w3m-view-header t]
+       ) ;; end resource
+      "----" ;; separator
+      [,(w3m-make-menu-item "$B$3$N%Z!<%8$r%a!<%k$GAw$k(B" "Mail this page")
+       w3m-mail (memq mail-user-agent w3m-mail-user-agents)]
+      "----" ;; separator
+      [,(w3m-make-menu-item "$B%P%0%l%]!<%H$rAw$k(B" "Send a Bug Report")
+       report-emacs-w3m-bug t]
+      "----" ;; separator
+      [,(w3m-make-menu-item "$B$3$N(B URL $B$rI=<($9$k(B" "Print the Current URL")
+       w3m-print-current-url t]
+      [,(w3m-make-menu-item "w3m $B$rJD$8$k(B" "Close w3m")
+       w3m-close-window t]
+      [,(w3m-make-menu-item "w3m $B$r=*N;$9$k(B" "Quit w3m")
+       w3m-quit t]
+      )) ;; end w3m
+  "Menubar definition for emacs-w3m.")
+
+(defvar w3m-rmouse-menubar
+  `("w3m"
+    [,(w3m-make-menu-item "$BA0$N%Z!<%8$KLa$k(B" "Back to Previous Page")
+     w3m-view-previous-page
+     (w3m-history-previous-link-available-p)]
+    [,(w3m-make-menu-item "$B<!$N%Z!<%8$K0\F0$9$k(B" "Forward to Next Page")
+     w3m-view-next-page
+     (w3m-history-next-link-available-p)]
+    [,(w3m-make-menu-item "$B>e$N3,AX$K0\F0$9$k(B" "Up to Parent Page")
+     w3m-view-parent-page
+     (w3m-parent-page-available-p)]
+    "----" ;; separator
+    [,(w3m-make-menu-item "$B$3$N%Z!<%8$r:F<hF@$9$k(B" "Reload This Page")
+     w3m-reload-this-page w3m-current-url]
+    [,(w3m-make-menu-item "$B$9$Y$F$N%Z!<%8$r:F<hF@$9$k(B" "Reload All Pages")
+     w3m-reload-all-pages (cdr (w3m-list-buffers))]
+    [,(w3m-make-menu-item "$B%W%m%;%9$rCf;_$9$k(B" "Cancel Process")
+     w3m-process-stop w3m-current-process])
+  "*Menubar for click the right mouse button.")
+
+(defvar w3m-cid-retrieve-function-alist nil)
+(defvar w3m-force-redisplay t)
+
+(defvar w3m-work-buffer-list nil)
+(defconst w3m-work-buffer-name " *w3m-work*")
+(defconst w3m-select-buffer-name " *w3m buffers*")
+
+(defconst w3m-dump-head-source-command-arguments
+  (cond ((eq w3m-type 'w3mmee)
+	 (list "-dump=extra,head,source"))
+	(t
+	 (list
+	  '(if w3m-accept-languages
+	       '("-o"
+		 (concat "accept_language="
+			 (mapconcat 'identity w3m-accept-languages ","))))
+	  "-dump_extra")))
+  "Arguments passed to the w3m command to run \"dump_extra\".")
+
+(defvar w3m-halfdump-command nil
+  "Alternative w3m command used to run \"halfdump\".
+If it is nil, the command specified to `w3m-command' is used.")
+
+(defconst w3m-halfdump-command-arguments
+  (cond ((eq w3m-type 'w3mmee)
+	 (list '(if w3m-treat-image-size
+		    "-dump=half-buffer,single-row-image"
+		  "-dump=half-buffer")
+	       '(if (eq w3m-input-coding-system 'ctext)
+		    (list "-I" "x-ctext")
+		  (when (and (eq w3m-input-coding-system 'binary)
+			     charset)
+		    (list "-I" 'charset)))
+	       "-o" "concurrent=0"))
+	((eq w3m-type 'w3m-m17n)
+	 (list "-halfdump"
+	       "-o" "ext_halfdump=1"
+	       "-o" "strict_iso2022=0"
+	       "-o" "fix_width_conv=1"
+	       "-o" "use_jisx0201=0"
+	       "-o" "ucs_conv=1"
+	       '(if (eq w3m-input-coding-system 'binary)
+		    (if charset (list "-I" 'charset))
+		  (list "-I" (cond
+			      ((eq w3m-input-coding-system 'utf-8)
+			       "UTF-8")
+			      ((eq w3m-input-coding-system 'iso-8859-1)
+			       "ISO-8859-1")
+			      (t
+			       "ISO-2022-JP-2"))))
+	       "-O"
+	       '(cond
+		 ((eq w3m-output-coding-system 'utf-8)
+		  "UTF-8")
+		 ((eq w3m-output-coding-system 'iso-8859-1)
+		  "ISO-8859-1")
+		 (t
+		  "ISO-2022-JP-2"))))
+	((eq w3m-input-coding-system 'w3m-euc-japan)
+	 (list "-halfdump" "-I" "e"))
+	(t (list "-halfdump")))
+  "Arguments passed to the w3m command to run \"halfdump\".")
+
+(defconst w3m-halfdump-command-common-arguments
+  (list "-T" "text/html" "-t" tab-width "-cols" '(w3m-display-width)
+	'(cond
+	  ((and (eq w3m-display-ins-del 'fontify)
+		(w3m-device-on-window-system-p))
+	   (list "-o" "display_ins_del=2"))
+	  ((or (eq w3m-display-ins-del 'tag)
+	       (and (eq w3m-display-ins-del 'fontify)
+		    (not (w3m-device-on-window-system-p))))
+	   (list "-o" "display_ins_del=1"))))
+  "Arguments used in common by the w3m command variants to run \"halfdump\".")
+
+(defconst w3m-arrived-ignored-regexp
+  "\\`about:\\(?://\\(?:header\\|source\\|history\\|\
+db-history\\|antenna\\|namazu\\|dtree\\)/.*\\)?\\'\
+\\|\\`about:/*blank/?\\'"
+  "Regexp matching urls which aren't stored in the arrived URLs database.")
+
+(defconst w3m-history-ignored-regexp
+  "\\`about:\\(?://\\(?:header\\|source\\|history\\|\
+db-history\\|antenna\\|namazu\\|dtree\\)/.*\\)?\\'\
+\\|\\`about:/*blank/?\\'"
+  "Regexp matching urls which aren't stored in the history.")
+
+(defvar w3m-mode-map nil "Keymap for emacs-w3m buffers.")
+(defvar w3m-link-map nil "Keymap used on links.")
+(defvar w3m-doc-view-map nil
+  "Keymap used in `doc-view-mode' that emacs-w3m launches.
+`doc-view-mode-map' gets to be its parent keymap.")
+
+(defvar w3m-mode-setup-functions nil
+  "Hook functions run after setting up the `w3m-mode'.")
+(defvar w3m-display-functions nil
+  "Hook functions run after displaying pages in emacs-w3m buffers.
+Each function is called with a url string as the argument.  This hook
+is evaluated just before evaluating `w3m-display-hook'.")
+
+(defvar w3m-load-hook nil
+  "*Hook run after loading the w3m.elc module.
+It is not recommended that you use this hook instead of writing into
+`w3m-init-file' for customization.")
+
+
+;; Generic functions:
+(defun w3m-url-to-file-name (url)
+  "Return the file name which is pointed to by URL.
+When URL does not point to any local files, it returns nil.  The
+actual performance of this function is to strip off the scheme part
+and the net_loc part from URL.  It is meaningless to give an argument
+whose net_loc part is not empty, a null string or the localhost name
+to this function."
+  (cond
+   ((string-match "\\`\\(\\(file:/\\{0,2\\}\\)\\|about://dtree\\)/" url)
+    (setq url (substring url (match-end 1)))
+    (when (and (match-beginning 2) ;; file:
+	       (< (match-end 2) 7) ;; file:// or file:/
+	       (string-match "\\`\\(/[^/]+[^/:|]\\)/" url))
+      (cond ((file-directory-p (match-string 0 url))
+	     ) ;; The directory "/hostname/" exists.
+	    ((string-match (concat "\\`/\\(localhost\\|127\\.0\\.0\\.1\\|"
+				   (regexp-quote (system-name)) "\\)/")
+			   url)
+	     ;; Strip the localhost name.
+	     (setq url (substring url (match-end 1))))
+	    (t
+	     ;; Make it a Tramp url: /hostname:/...
+	     ;; See `tramp-default-method' and `tramp-default-method-alist'.
+	     (setq url (concat (substring url 0 (match-end 1))
+			       ":"
+			       (substring url (match-end 1)))))))
+    ;; Process abs_path part in Windows.
+    (when (and w3m-treat-drive-letter
+	       (string-match
+		"\\`/\\(?:\\([a-zA-Z]\\)[|:]?\\|cygdrive/\\([a-zA-Z]\\)\\)/"
+		url))
+      (setq url (concat (or (match-string 1 url) (match-string 2 url))
+			":/"
+			(substring url (match-end 0)))))
+    (if (string-match "\\`/[^/:]\\{2,\\}:/" url)
+	;; Don't check for a Tramp url.
+	url
+      (if (file-exists-p url)
+	  url
+	(let ((x (w3m-url-decode-string url w3m-file-name-coding-system)))
+	  (if (file-exists-p x) x url)))))
+   ((string-match "\\`\\(?:[~/]\\|[a-zA-Z]:/\\|\\.\\.?/\\)" url) url)
+   (t
+    (catch 'found-file
+      (dolist (pair w3m-url-local-directory-alist)
+	(and (string-match (concat "\\`"
+				   (regexp-quote
+				    (file-name-as-directory (car pair))))
+			   url)
+	     (let ((file (expand-file-name (substring url (match-end 0))
+					   (cdr pair))))
+	       (when (or (file-exists-p file)
+			 (file-exists-p
+			  (setq file (w3m-url-decode-string
+				      file w3m-file-name-coding-system))))
+		 (throw 'found-file file)))))))))
+
+(defun w3m-expand-file-name-as-url (file &optional directory)
+  "Return a url string which points to the FILE.
+Optional DIRECTORY is a directory to start with if FILE is relative
+\(i.e., FILE doesn't start with slash).  It defaults to the current
+directory."
+  (setq file (expand-file-name file directory))
+  (concat "file://"
+	  (if (string-match "\\`\\([a-zA-Z]\\):" file)
+	      (format (if w3m-use-cygdrive "/cygdrive/%s%s" "/%s|%s")
+		      (match-string 1 file)
+		      (substring file (match-end 0)))
+	    file)))
+
+
+;;; Managing the arrived URLs database:
+(defmacro w3m-arrived-intern (url &optional soft)
+  "Normalize URL by stripping last / and intern it into `w3m-arrived-db'.
+If SOFT is non-nil, use `intern-soft' instead."
+  (let ((fn (if soft 'intern-soft 'intern))
+	(str (if (consp url)
+		 `(let* ((url ,url)
+			 (len (length url)))
+		    (if (and (not (zerop len))
+			     (eq (aref url (1- len)) ?/))
+			(substring url 0 -1)
+		      url))
+	       `(if (let ((len (length ,url)))
+		      (and (not (zerop len))
+			   (eq (aref ,url (1- len)) ?/)))
+		    (substring ,url 0 -1)
+		  ,url))))
+    `(,fn ,str w3m-arrived-db)))
+
+(defun w3m-arrived-add (url &optional title modification-time
+			    arrival-time content-charset content-type)
+  "Add URL to the arrived URLs database.
+Optional TITLE, MODIFICATION-TIME, ARRIVAL-TIME, CONTENT-CHARSET and
+CONTENT-TYPE are also be added."
+  (unless (string-match w3m-arrived-ignored-regexp url)
+    (let ((ident (w3m-arrived-intern url)))
+      (if (string-match "\\`\\([^#]+\\)#" url)
+	  (w3m-arrived-add (substring url 0 (match-end 1))
+			   title modification-time arrival-time
+			   content-charset content-type)
+	(when title
+	  (put ident 'title title))
+	(when modification-time
+	  (put ident 'last-modified modification-time))
+	(when content-charset
+	  (put ident 'content-charset content-charset))
+	(when content-type
+	  (put ident 'content-type content-type)))
+      (set ident arrival-time))))
+
+(defun w3m-arrived-p (url)
+  "Return non-nil if a page of URL has arrived."
+  (or (string-match w3m-arrived-ignored-regexp url)
+      (w3m-arrived-intern url t)))
+
+(defun w3m-arrived-time (url)
+  "Return the arrival time of a page of URL if it has arrived.
+Otherwise return nil."
+  (let ((v (w3m-arrived-intern url t)))
+    (and v (boundp v) (symbol-value v))))
+(defsetf w3m-arrived-time (url) (value)
+  (list 'w3m-arrived-add url nil nil value))
+
+(defun w3m-arrived-put (url property value)
+  "Store VALUE in the arrived URLs database as the PROPERTY of URL.
+Return VALUE if a page of URL has arrived.  Otherwise, VALUE is
+ignored and return nil."
+  (let ((symbol (w3m-arrived-intern url t)))
+    (and symbol (put symbol property value))))
+
+(defun w3m-arrived-get (url property)
+  "Return the value of URL's PROPERTY stored in the arrived URLs database.
+If a page of URL has not arrived, return nil."
+  (let ((symbol (w3m-arrived-intern url t)))
+    (and symbol (get symbol property))))
+
+(defsetf w3m-arrived-get w3m-arrived-put)
+
+(defmacro w3m-arrived-title (url)
+  "Return the title of URL having stored in the arrived URLs database."
+  `(w3m-arrived-get ,url 'title))
+
+(defmacro w3m-arrived-last-modified (url)
+  "Return the mod time of URL having stored in the arrived URLs database.
+If a page of URL has not arrived yet, return nil."
+  `(w3m-arrived-get ,url 'last-modified))
+
+(defmacro w3m-arrived-content-charset (url)
+  "Return the content charset of URL stored in the arrived URLs database.
+If it has not been specified or a page of URL has not arrived yet,
+return nil."
+  `(w3m-arrived-get ,url 'content-charset))
+
+(defmacro w3m-arrived-content-type (url)
+  "Return the content type of URL stored in the arrived URLs database.
+If it has not been specified or a page of URL has not arrived yet,
+return nil."
+  `(w3m-arrived-get ,url 'content-type))
+
+(defun w3m-arrived-load-list ()
+  "Load the arrived URLs database file.
+The file is specified by `w3m-arrived-file'.  If the data is in old
+format, they will simply be ignored."
+  (let ((list (w3m-load-list w3m-arrived-file)))
+    (when (or
+	   ;; Before the revision 1.120, every element of the list was
+	   ;; a string that represented an arrived URL.
+	   (stringp (car list))
+	   ;; Before the revision 1.135, every element was a cons
+	   ;; cell: its car kept a URL, and its cdr kept a time when
+	   ;; the URL was arrived.
+	   ;; Before the revision 1.178, every element was a 4-tuple
+	   ;; that consisted of a URL, a title, a modification time,
+	   ;; and an arrival time.
+	   ;; An element of the modern database is a 6-tuple that
+	   ;; consisted of a URL, a title, a modification time, an
+	   ;; arrival time, a charset, and a content type.
+	   ;; Thus, the following condition eliminates the revision
+	   ;; 1.177 and olders.
+	   (<= (length (car list)) 4))
+      (setq list nil)
+      (when (file-exists-p w3m-arrived-file)
+	(delete-file w3m-arrived-file)))
+    list))
+
+(defun w3m-arrived-setup ()
+  "Load the arrived URLs database file and set up the hashed database.
+It is performed only when `w3m-arrived-db' has not been initialize yet.
+The file is specified by `w3m-arrived-file'."
+  (unless w3m-arrived-db
+    (setq w3m-arrived-db (make-vector w3m-arrived-db-size 0))
+    (let ((list (w3m-arrived-load-list)))
+      (dolist (elem list)
+	;; Ignore an element that lacks an arrival time information.
+	(when (nth 3 elem)
+	  (w3m-arrived-add (if (string-match "\\`/" (car elem))
+			       (w3m-expand-file-name-as-url (car elem))
+			     (car elem))
+			   (nth 1 elem)
+			   (nth 2 elem)
+			   (nth 3 elem)
+			   (when (stringp (nth 4 elem)) (nth 4 elem))
+			   (nth 5 elem))))
+      (unless w3m-input-url-history
+	(setq w3m-input-url-history (mapcar (function car) list))))
+    (run-hooks 'w3m-arrived-setup-functions)))
+
+(defun w3m-arrived-shutdown ()
+  "Save the arrived URLs database in the file.
+The database `w3m-arrived-db' will be cleared after saving.  The file
+is specified by `w3m-arrived-file'."
+  (when w3m-arrived-db
+    ;; Re-read the database file, and if there are data which another
+    ;; Emacs process registered, merge them to the current database.
+    (dolist (elem (w3m-arrived-load-list))
+      (when (w3m-time-newer-p (nth 3 elem) (w3m-arrived-time (car elem)))
+	(w3m-arrived-add (if (string-match "\\`/" (car elem))
+			     (w3m-expand-file-name-as-url (car elem))
+			   (car elem))
+			 (nth 1 elem)
+			 (nth 2 elem)
+			 (nth 3 elem)
+			 (when (stringp (nth 4 elem)) (nth 4 elem))
+			 (nth 5 elem))))
+    ;; Convert current database to a list.
+    (let (list)
+      (mapatoms
+       (lambda (sym)
+	 (and sym
+	      (boundp sym)
+	      (symbol-value sym) ; Ignore an entry lacks an arrival time.
+	      (push (list (symbol-name sym)
+			  (get sym 'title)
+			  (get sym 'last-modified)
+			  (symbol-value sym)
+			  (get sym 'content-charset)
+			  (get sym 'content-type))
+		    list)))
+       w3m-arrived-db)
+      (w3m-save-list w3m-arrived-file
+		     (w3m-sub-list
+		      (sort list
+			    (lambda (a b)
+			      (if (equal (nth 3 a) (nth 3 b))
+				  (string< (car a) (car b))
+				(w3m-time-newer-p (nth 3 a) (nth 3 b)))))
+		      w3m-keep-arrived-urls)
+		     nil t))
+    (setq w3m-arrived-db nil)
+    (run-hooks 'w3m-arrived-shutdown-functions)))
+
+(add-hook 'kill-emacs-hook 'w3m-arrived-shutdown)
+(add-hook 'kill-emacs-hook 'w3m-cookie-shutdown)
+(add-hook 'w3m-arrived-shutdown-functions 'w3m-session-automatic-save)
+(add-hook 'w3m-arrived-shutdown-functions 'w3m-session-crash-recovery-remove)
+(add-hook 'w3m-arrived-shutdown-functions 'w3m-cleanup-temp-files)
+
+;;; Generic macros and inline functions:
+(defun w3m-attributes (url &optional no-cache handler)
+  "Return a list of attributes corresponding to URL.
+Return nil if it failed in retrieving of the header.
+Otherwise, return a list which includes the following elements:
+
+ 0. Type of contents.
+ 1. Charset of contents.
+ 2. Size in bytes.
+ 3. Encoding of contents.
+ 4. Last modification time.
+ 5. Real URL.
+
+If the optional argument NO-CACHE is non-nil, cache is not used."
+  (if (not handler)
+      (condition-case nil
+	  (w3m-process-with-wait-handler
+	    (w3m-attributes url no-cache handler))
+	(w3m-process-timeout nil))
+    (setq url (w3m-url-strip-fragment url))
+    (cond
+     ((string= "about://emacs-w3m.gif" url)
+      (list "image/gif" nil nil nil nil url url))
+     ((string-match "\\`about://source/" url)
+      (lexical-let ((src (substring url (match-end 0))))
+	(w3m-process-do
+	    (attrs (w3m-attributes src no-cache handler))
+	  (list "text/plain"
+		(or (w3m-arrived-content-charset (w3m-url-strip-authinfo src))
+		    (cadr attrs))
+		(nth 2 attrs)
+		(nth 3 attrs)
+		(nth 4 attrs)
+		(concat "about://source/" (nth 5 attrs))))))
+     ((string-match "\\`about:" url)
+      (list "text/html" w3m-coding-system nil nil nil url))
+     ((string-match "\\`cid:" url)
+      (let ((w3m-current-buffer (current-buffer)))
+	(w3m-process-do-with-temp-buffer
+	    (type (w3m-cid-retrieve url nil nil))
+	  (list type nil nil nil nil url url))))
+     ((string-match "\\`data:" url)
+      (let ((w3m-current-buffer (current-buffer)))
+	(w3m-process-do-with-temp-buffer
+	    (type (w3m-data-retrieve url nil nil))
+	  (list type nil nil nil nil url url))))
+     ((w3m-url-local-p url)
+      (w3m-local-attributes url))
+     (t
+      (w3m-w3m-attributes url no-cache handler)))))
+
+(defmacro w3m-content-type (url &optional no-cache handler)
+  (if handler
+      `(let ((handler ,handler))
+	 (w3m-process-do
+	     (attrs (w3m-attributes ,url ,no-cache handler))
+	   (car attrs)))
+    `(car (w3m-attributes ,url ,no-cache))))
+(defmacro w3m-content-charset (url &optional no-cache handler)
+  (if handler
+      `(let ((handler ,handler))
+	 (w3m-process-do
+	     (attrs (w3m-attributes ,url ,no-cache handler))
+	   (nth 1 attrs)))
+    `(nth 1 (w3m-attributes ,url ,no-cache))))
+(defmacro w3m-content-length (url &optional no-cache handler)
+  (if handler
+      `(let ((handler ,handler))
+	 (w3m-process-do
+	     (attrs (w3m-attributes ,url ,no-cache handler))
+	   (nth 2 attrs)))
+    `(nth 2 (w3m-attributes ,url ,no-cache))))
+(defmacro w3m-content-encoding (url &optional no-cache handler)
+  (if handler
+      `(let ((handler ,handler))
+	 (w3m-process-do
+	     (attrs (w3m-attributes ,url ,no-cache handler))
+	   (nth 3 attrs)))
+    `(nth 3 (w3m-attributes ,url ,no-cache))))
+(defmacro w3m-last-modified (url &optional no-cache handler)
+  (if handler
+      `(let ((handler ,handler))
+	 (w3m-process-do
+	     (attrs (w3m-attributes ,url ,no-cache handler))
+	   (nth 4 attrs)))
+    `(nth 4 (w3m-attributes ,url ,no-cache))))
+(defmacro w3m-real-url (url &optional no-cache handler)
+  (if handler
+      `(let ((handler ,handler))
+	 (w3m-process-do
+	     (attrs (w3m-attributes ,url ,no-cache handler))
+	   (nth 5 attrs)))
+    `(nth 5 (w3m-attributes ,url ,no-cache))))
+
+(defmacro w3m-make-help-echo (property)
+  "Make a function returning a string used for the `help-echo' message.
+PROPERTY is a symbol (which doesn't need to be quoted) of a text
+property (in XEmacs, it is an extent) with the value of a string which
+should be in the place where having to show a help message.  If you
+need to know what function will be made, use `macroexpand'."
+  (if (featurep 'xemacs)
+      (let ((str `(get-text-property (extent-start-position extent)
+				     ',property)))
+	`(lambda (extent)
+	   (if (and w3m-track-mouse
+		    (eq (extent-object extent) (current-buffer)))
+	       (w3m-url-readable-string ,str))))
+    `(lambda (window object pos)
+       (if w3m-track-mouse
+	   (let ((deactivate-mark nil))
+	     (message nil)	; Clear the echo area.
+	     (w3m-url-readable-string
+	      (get-text-property pos ',property
+				 (window-buffer window))))))))
+
+(defmacro w3m-make-balloon-help (property)
+  "Make a function returning a string used for the `balloon-help' message.
+Functions made are used only when emacs-w3m is running under XEmacs.
+It returns an interned symbol of a function.  PROPERTY is a symbol
+\(which doesn't need to be quoted) of an extent with the value of a
+string which should be in the place where having to show a help
+message."
+  (when (featurep 'xemacs)
+    (let ((str `(get-text-property (extent-start-position extent)
+				   ',property)))
+      `(let ((fn (intern (format "w3m-balloon-help-for-%s"
+				 ',property))))
+	 (prog1
+	     fn
+	   (unless (fboundp fn)
+	     (defalias fn
+	       (lambda (extent)
+		 (if (and w3m-track-mouse
+			  (eq (extent-object extent) (current-buffer)))
+		     (w3m-url-readable-string ,str)))))
+	   (when (and (featurep 'bytecomp)
+		      (not (compiled-function-p (symbol-function fn))))
+	     (byte-compile fn)))))))
+
+(defvar w3m-current-message nil
+  "The string currently displayed by `w3m-message' in the echo area.")
+(defvar w3m-message-silent nil
+  "When set to `t', w3m-message is just ignored.")
+
+(defun w3m-message (&rest args)
+  "Print a one-line message at the bottom of the screen.
+It displays a given message without logging, when the cursor is
+neither in the minibuffer or in the echo area and `w3m-verbose' is
+nil.  When the cursor is either in the minibuffer or in the echo area
+and `w3m-verbose' is nil, it behaves as `format' and simply returns a
+string.  When `w3m-verbose' is non-nil, it behaves identically as
+`message', that displays a given message with logging."
+  ;; Always clear previous message in order to shrink the window height
+  ;; for the echo area.
+  (unless (or (featurep 'xemacs)
+	      (< emacs-major-version 22)
+	      (< (string-width (or (current-message) "")) (window-width)))
+    (message nil))
+  (unless w3m-message-silent
+    (if w3m-verbose
+	(apply (function message) args)
+      (if (when w3m-process-background
+	    (or (window-minibuffer-p (selected-window))
+		(when (current-message)
+		  (not (equal (current-message) w3m-current-message)))))
+	  (apply (function format) args)
+	(w3m-static-if (featurep 'xemacs)
+	    (progn
+	      (setq w3m-current-message (apply (function format) args))
+	      (display-message 'no-log w3m-current-message))
+	  (let (message-log-max)
+	    (setq w3m-current-message (apply (function message) args))))))))
+
+(defun w3m-time-parse-string (string)
+  "Parse the time-string STRING into a time in the Emacs style."
+  (ignore-errors
+    (let ((x (timezone-fix-time string nil nil)))
+      (encode-time (aref x 5) (aref x 4) (aref x 3)
+		   (aref x 2) (aref x 1) (aref x 0)
+		   (aref x 6)))))
+
+;; When a buggy timezone.el is loaded, we use parse-time.el instead.
+(unless (equal (w3m-time-parse-string "Thursday, 01-Jan-1970 00:00:00 GMT")
+	       '(0 0))
+  (ignore-errors
+    (require 'parse-time))
+  (defun w3m-time-parse-string (string)
+    "Parse the time-string STRING and return its time as Emacs style."
+    (ignore-errors
+      (let ((fn (when (fboundp 'parse-time-string)
+		  'parse-time-string)))
+	(when fn
+	  (apply (function encode-time) (funcall fn string)))))))
+
+(defun w3m-sub-list (list n)
+  "Return a list of the first N elements of LIST.
+If N is negative, return a list of the last N elements of LIST."
+  (if (integerp n)
+      (if (< n 0)
+	  ;; N is negative, extract the last items
+	  (if (>= (- n) (length list))
+	      (copy-sequence list)
+	    (nthcdr (+ (length list) n) (copy-sequence list)))
+	;; N is positive, extract the first items
+	(if (>= n (length list))
+	    (copy-sequence list)
+	  (nreverse (nthcdr (- (length list) n) (reverse list)))))
+    (copy-sequence list)))
+
+(defun w3m-load-list (file &optional coding-system)
+  "Read an emacs-w3m data file FILE and return contents as a list.
+It is used for loading `w3m-arrived-file', `w3m-cookie-file',
+`w3m-favicon-cache-file' and `w3m-antenna-file' (which see).
+CODING-SYSTEM is used to read FILE which defaults to the value of
+`w3m-file-coding-system-for-read'."
+  (when (and (file-readable-p file)
+	     ;; XEmacs 21.4 might crash when inserting a directory.
+	     (not (file-directory-p file)))
+    (with-temp-buffer
+      (when (condition-case nil
+		(let ((coding-system-for-read
+		       (or coding-system w3m-file-coding-system-for-read)))
+		  (insert-file-contents file))
+	      (error
+	       (message "Error while loading %s" file)
+	       nil))
+	;; point is not always moved to the beginning of the buffer
+	;; after `insert-file-contents' is done.
+	(goto-char (point-min))
+	(condition-case err
+	    (read (current-buffer))
+	  (error
+	   (message "Error while reading %s; %s"
+		    file (error-message-string err))
+	   nil))))))
+
+(defun w3m-save-list (file list &optional coding-system escape-ctl-chars)
+  "Save a LIST form into the emacs-w3m data file FILE.
+Contents will be encoded with CODING-SYSTEM which defaults to the
+value of `w3m-file-coding-system'.  Optional ESCAPE-CTL-CHARS if it is
+non-nil, control chars will be represented with ^ as `cat -v' does."
+  (when (and list (file-writable-p file))
+    (with-temp-buffer
+      (let ((coding-system-for-write (or coding-system w3m-file-coding-system))
+	    (standard-output (current-buffer))
+	    (print-fn (if escape-ctl-chars
+			  'w3m-prin1
+			'prin1))
+	    element print-length print-level)
+	(insert (format "\
+;;; %s  -*- mode: emacs-lisp%s -*-
+;; This file is generated automatically by emacs-w3m v%s.
+
+"
+			(file-name-nondirectory file)
+			(if coding-system-for-write
+			    (format "; coding: %s" coding-system-for-write)
+			  "")
+			emacs-w3m-version))
+	(insert "(")
+	(while list
+	  (setq element (car list)
+		list (cdr list))
+	  (if (consp element)
+	      (progn
+		(insert "(")
+		(funcall print-fn (car element))
+		(insert "\n")
+		(while (setq element (cdr element))
+		  (insert "  ")
+		  (funcall print-fn (car element))
+		  (insert "\n"))
+		(backward-delete-char 1)
+		(insert ")\n "))
+	    (funcall print-fn element)
+	    (insert "\n")))
+	(skip-chars-backward "\n ")
+	(delete-region (point) (point-max))
+	(insert ")\n")
+	(let ((mode (and (file-exists-p file)
+			 (file-modes file))))
+	  (write-region (point-min) (point-max) file nil 'nomsg)
+	  (when mode (set-file-modes file mode)))))))
+
+(defun w3m-url-encode-string (str &optional coding encode-space)
+  (apply (function concat)
+	 (mapcar
+	  (lambda (ch)
+	    (cond
+	     ((eq ch ?\n)		; newline
+	      "%0D%0A")
+	     ((string-match "[-a-zA-Z0-9_:/.]" (char-to-string ch)) ; xxx?
+	      (char-to-string ch))	; printable
+	     ((and (char-equal ch ?\x20); space
+		   encode-space)
+	      "+")
+	     (t
+	      (format "%%%02X" ch))))	; escape
+	  ;; Coerce a string into a list of chars.
+	  (append (encode-coding-string (or str "")
+					(or coding
+					    w3m-default-coding-system
+					    w3m-coding-system
+					    'iso-2022-7bit))
+		  nil))))
+
+(defun w3m-url-decode-string (str &optional coding)
+  (let ((start 0)
+	(buf)
+	(case-fold-search t))
+    (while (string-match "%\\(?:\\([0-9a-f][0-9a-f]\\)\\|0d%0a\\)" str start)
+      (push (substring str start (match-beginning 0)) buf)
+      (push (if (match-beginning 1)
+		(vector (string-to-number (match-string 1 str) 16))
+	      "\n")
+	    buf)
+      (setq start (match-end 0)))
+    (setq str (apply 'concat (nreverse (cons (substring str start) buf))))
+    (w3m-decode-coding-string-with-priority str coding)))
+
+(defun w3m-url-readable-string (url)
+  "Return a readable string for a given encoded URL.
+If `w3m-show-decoded-url' has a non-nil value, it is referred to to
+decide a decoding scheme."
+  (when (stringp url)
+    (setq url (w3m-puny-decode-url url))
+    (let ((rule
+	   (cond ((string-match "[^\000-\177]" url)
+		  ;; It looks not to have been encoded.
+		  nil)
+		 ((and (listp w3m-show-decoded-url)
+		       (consp (car w3m-show-decoded-url)))
+		  (catch 'found-rule
+		    (save-match-data
+		      (dolist (elem w3m-show-decoded-url)
+			(when (if (stringp (car elem))
+				  (string-match (car elem) url)
+				(if (functionp (car elem))
+				    (funcall (car elem) url)
+				  (eval (car elem))))
+			  (throw 'found-rule (cdr elem)))))))
+		 (t w3m-show-decoded-url))))
+      (if rule
+	  (w3m-url-decode-string url
+				 (if (eq t rule)
+				     w3m-coding-system-priority-list
+				   rule))
+	url))))
+
+(defun w3m-url-transfer-encode-string (url &optional coding)
+  "Encode non-ascii characters in URL into the sequence of escaped octets.
+CODING which defaults to `w3m-current-coding-system' (which see) is a
+coding system used when encoding non-ascii characters.
+
+This function is designed for conversion for safe transmission of URL,
+i.e., it handles only non-ASCII characters that can not be transmitted
+safely through the network.  For the other general purpose, you should
+use `w3m-url-encode-string' instead."
+  (setq url (w3m-puny-encode-url url))
+  (let ((start 0)
+	(buf))
+    (while (string-match "[^\x21-\x7e]+" url start)
+      (setq buf
+	    (cons (apply 'concat
+			 (mapcar
+			  (lambda (c) (format "%%%02X" c))
+			  (append (encode-coding-string
+				   (match-string 0 url)
+				   (or coding
+				       w3m-current-coding-system)))))
+		  (cons (substring url start (match-beginning 0))
+			buf))
+	    start (match-end 0)))
+    (apply 'concat
+	   (nreverse (cons (substring url start) buf)))))
+
+
+;;; HTML character entity handling:
+(defun w3m-entity-value (name)
+  "Get a char corresponding to NAME from the html char entities database.
+The database is kept in `w3m-entity-table'."
+  ;; Return a value of the specified entity, or nil if it is unknown.
+  (or (gethash name w3m-entity-table)
+      (and (eq (aref name 0) ?#)
+	   (let ((num (if (memq (aref name 1) '(?X ?x))
+			  (string-to-number (substring name 2) 16)
+			(string-to-number (substring name 1)))))
+	     (or (cdr (assq num w3m-extra-numeric-character-reference))
+		 (string (w3m-ucs-to-char num)))))))
+
+(defun w3m-fontify-bold ()
+  "Fontify bold text in the buffer containing halfdump."
+  (goto-char (point-min))
+  (while (search-forward "<b>" nil t)
+    (let ((start (match-beginning 0)))
+      (delete-region start (match-end 0))
+      (when (re-search-forward "</b[ \t\r\f\n]*>" nil t)
+	(delete-region (match-beginning 0) (match-end 0))
+	(w3m-add-face-property start (match-beginning 0) 'w3m-bold)))))
+
+(defun w3m-fontify-italic ()
+  "Fontify italic text in the buffer containing halfdump."
+  (goto-char (point-min))
+  (while (search-forward "<i>" nil t)
+    (let ((start (match-beginning 0)))
+      (delete-region start (match-end 0))
+      (when (re-search-forward "</i[ \t\r\f\n]*>" nil t)
+	(delete-region (match-beginning 0) (match-end 0))
+	(w3m-add-face-property start (match-beginning 0) 'w3m-italic)))))
+
+(defun w3m-fontify-underline ()
+  "Fontify underline text in the buffer containing halfdump."
+  (goto-char (point-min))
+  (while (search-forward "<u>" nil t)
+    (let ((start (match-beginning 0)))
+      (delete-region start (match-end 0))
+      (when (re-search-forward "</u[ \t\r\f\n]*>" nil t)
+	(delete-region (match-beginning 0) (match-end 0))
+	(w3m-add-face-property start (match-beginning 0) 'w3m-underline)))))
+
+(defun w3m-fontify-strike-through ()
+  "Fontify strike-through text in the buffer containing halfdump."
+  (goto-char (point-min))
+  (cond
+   ((and (eq w3m-display-ins-del 'fontify)
+	 (w3m-device-on-window-system-p))
+    (while (search-forward "<s>" nil t)
+      (let ((start (match-beginning 0)))
+	(delete-region start (match-end 0))
+	(when (re-search-forward "</s[ \t\r\f\n]*>" nil t)
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (w3m-add-face-property start (match-beginning 0)
+				 'w3m-strike-through)))))
+   ((w3m-device-on-window-system-p)
+    (while (re-search-forward
+	    (concat "<U>\\(?:\\(?::\\(?:\\(?:DEL\\|S\\)]\\)\\|"
+		    "\\[\\(?:\\(?:DEL\\|S\\):\\)\\)</U>\\)")
+	    nil t)
+      (w3m-add-face-property (match-beginning 0) (match-end 0)
+			     'w3m-strike-through)))))
+
+(defun w3m-fontify-insert ()
+  "Fontify insert text in the buffer containing halfdump."
+  (goto-char (point-min))
+  (cond
+   ((and (eq w3m-display-ins-del 'fontify)
+	 (w3m-device-on-window-system-p))
+    (while (search-forward "<ins>" nil t)
+      (let ((start (match-beginning 0)))
+	(delete-region start (match-end 0))
+	(when (re-search-forward "</ins[ \t\r\f\n]*>" nil t)
+	  (delete-region (match-beginning 0) (match-end 0))
+	  (w3m-add-face-property start (match-beginning 0) 'w3m-insert)))))
+   ((w3m-device-on-window-system-p)
+    (while (re-search-forward "<U>\\(?:\\(?::INS]\\|\\[INS:\\)</U>\\)"
+			      nil t)
+      (w3m-add-face-property (match-beginning 0) (match-end 0) 'w3m-insert)))))
+
+(defun w3m-decode-anchor-string (str)
+  ;; FIXME: This is a quite ad-hoc function to process encoded url string.
+  ;; More discussion about timing &-sequence decode is required.  The
+  ;; following article (written in Japanese) is the origin of this issue:
+  ;;
+  ;; [emacs-w3m:00150] <URL:http://emacs-w3m.namazu.org/ml/msg00149.html>
+  ;;
+  ;; Takaaki MORIYAMA wrote in the article that the string "&amp;" which
+  ;; is replaced from "&" and embedded in the w3m's halfdump should be
+  ;; restored into "&" some time.
+  (let ((start 0) (buf))
+    (while (string-match "\\(&amp;\\)\\|\\([\t\r\f\n]+\\)" str start)
+      (setq buf (cons (if (match-beginning 1) "&" " ")
+		      (cons (substring str start (match-beginning 0)) buf))
+	    start (match-end 0)))
+    (apply (function concat)
+	   (nreverse (cons (substring str start) buf)))))
+
+(defun w3m-image-type (content-type)
+  "Return an image type which corresponds to CONTENT-TYPE."
+  (cdr (assoc content-type w3m-image-type-alist)))
+
+(defun w3m-imitate-widget-button ()
+  "Return a boolean value corresponding to the variable of the same name."
+  (if (listp w3m-imitate-widget-button)
+      (condition-case nil
+	  (eval w3m-imitate-widget-button)
+	(error nil))
+    (and w3m-imitate-widget-button t)))
+
+(defun w3m-fontify-anchors ()
+  "Fontify anchor tags in the buffer which contains halfdump."
+  (let ((help (w3m-make-help-echo w3m-balloon-help))
+	(balloon (w3m-make-balloon-help w3m-balloon-help))
+	prenames start end)
+    (goto-char (point-min))
+    (setq w3m-max-anchor-sequence 0)	;; reset max-hseq
+    (while (re-search-forward "<_id[ \t\r\f\n]+" nil t)
+      (setq start (match-beginning 0))
+      (setq prenames (get-text-property start 'w3m-name-anchor))
+      (w3m-parse-attributes (id)
+	(delete-region start (point))
+	(w3m-add-text-properties start (point-max)
+				 (list 'w3m-name-anchor
+				       (cons
+					(w3m-decode-entities-string
+					 (w3m-url-transfer-encode-string
+					  id))
+					prenames)))))
+    (goto-char (point-min))
+    (while (re-search-forward "<a[ \t\r\f\n]+" nil t)
+      (setq start (match-beginning 0))
+      (setq prenames (get-text-property start 'w3m-name-anchor2))
+      (w3m-parse-attributes (href name id charset
+				  (rel :case-ignore) (hseq :integer))
+	(unless name
+	  (setq name id))
+	(when rel
+	  (setq rel (split-string rel))
+	  (cond
+	   ((member "next" rel) (setq w3m-next-url href))
+	   ((or (member "prev" rel) (member "previous" rel))
+	    (setq w3m-previous-url href))
+	   ((member "start" rel) (setq w3m-start-url href))
+	   ((member "contents" rel) (setq w3m-contents-url href))))
+	(delete-region start (point))
+	(cond
+	 (href
+	  (when (re-search-forward "[ \t\r\f\n]*\\(</a>\\)" nil t)
+	    (setq end (match-beginning 0))
+	    (delete-region (match-beginning 1) (match-end 1))
+	    (setq href (w3m-expand-url (w3m-decode-anchor-string href)))
+	    (unless (w3m-url-local-p href)
+	      (w3m-string-match-url-components href)
+	      (setq href (if (match-beginning 8)
+			     (let ((tmp (match-string 9 href)))
+			       (concat (w3m-url-transfer-encode-string
+					(substring href 0 (match-beginning 8))
+					(w3m-charset-to-coding-system charset))
+				       "#" tmp))
+			 (w3m-url-transfer-encode-string
+			  href
+			  (w3m-charset-to-coding-system charset)))))
+	    (setq hseq (or (and (null hseq) 0) (abs hseq)))
+	    (setq w3m-max-anchor-sequence (max hseq w3m-max-anchor-sequence))
+	    (w3m-add-face-property start end (if (w3m-arrived-p href)
+						     'w3m-arrived-anchor
+						   'w3m-anchor))
+	    (w3m-add-text-properties start end
+				     (list 'w3m-href-anchor href
+					   'w3m-balloon-help href
+					   'mouse-face 'highlight
+					   'w3m-anchor-sequence hseq
+					   'help-echo help
+					   'balloon-help balloon
+					   'keymap w3m-link-map))
+	    (when (w3m-imitate-widget-button)
+	      (require 'wid-edit)
+	      (let ((widget-button-face (if (w3m-arrived-p href)
+					    'w3m-arrived-anchor
+					  'w3m-anchor))
+		    (widget-mouse-face 'highlight)
+		    w)
+		(setq w (widget-convert-button 'default start end
+					       :button-keymap nil
+					       :help-echo href))
+		(w3m-static-unless (featurep 'xemacs)
+		  (overlay-put (widget-get w :button-overlay) 'evaporate t))))
+	    (when name
+	      (w3m-add-text-properties start (point-max)
+				       (list 'w3m-name-anchor2
+					     (cons
+					      (w3m-decode-entities-string
+					       (w3m-url-transfer-encode-string
+						name))
+					      prenames))))))
+	 (name
+	  (w3m-add-text-properties start (point-max)
+				   (list 'w3m-name-anchor2
+					 (cons
+					  (w3m-decode-entities-string
+					   (w3m-url-transfer-encode-string
+					    name))
+					  prenames)))))))
+    (when w3m-icon-data
+      (setq w3m-icon-data (cons (and (car w3m-icon-data)
+				     (w3m-expand-url (car w3m-icon-data)))
+				(or (w3m-image-type (cdr w3m-icon-data))
+				    'ico))))
+    (when w3m-next-url
+      (setq w3m-next-url (w3m-expand-url w3m-next-url)))
+    (when w3m-previous-url
+      (setq w3m-previous-url (w3m-expand-url w3m-previous-url)))
+    (when w3m-start-url
+      (setq w3m-start-url (w3m-expand-url w3m-start-url)))
+    (when w3m-contents-url
+      (setq w3m-contents-url (w3m-expand-url w3m-contents-url)))))
+
+(eval-and-compile
+  (unless (featurep 'xemacs)
+    (defun w3m-setup-menu ()
+      "Define menubar buttons for Emacsen."
+      (w3m-menu-on-forefront w3m-menu-on-forefront t)
+      (unless (keymapp (lookup-key w3m-mode-map [menu-bar w3m]))
+	(let ((map (make-sparse-keymap (car w3m-menubar))))
+	  (define-key w3m-mode-map [menu-bar] (make-sparse-keymap))
+	  (w3m-setup-session-menu)
+	  (when w3m-use-tab-menubar (w3m-setup-tab-menu))
+	  (w3m-setup-bookmark-menu)
+	  (define-key w3m-mode-map [menu-bar w3m] (cons (car w3m-menubar) map))
+	  (require 'easymenu)
+	  (easy-menu-define
+	    w3m-mode-menu w3m-mode-map
+	    "w3m menu item" w3m-menubar)
+	  (easy-menu-add w3m-mode-menu))
+	(let ((map (make-sparse-keymap)))
+	  (easy-menu-define
+	    w3m-rmouse-menu map
+	    "w3m rmouse menu item" w3m-rmouse-menubar))))))
+
+(defun w3m-fontify-images ()
+  "Fontify img_alt strings of images in the buffer containing halfdump."
+  (goto-char (point-min))
+  (let ((help (w3m-make-help-echo w3m-balloon-help))
+	(balloon (w3m-make-balloon-help w3m-balloon-help))
+	upper start end help src1)
+    (while (re-search-forward "<\\(img_alt\\)[^>]+>" nil t)
+      (setq upper (string= (match-string 1) "IMG_ALT")
+	    start (match-beginning 0)
+	    end (match-end 0))
+      (goto-char (match-end 1))
+      (w3m-parse-attributes (src
+			     (width :integer)
+			     (height :integer)
+			     title
+			     usemap)
+	(delete-region start end)
+	(setq src (w3m-expand-url (w3m-decode-anchor-string src)))
+	;; Use the identical Lisp object for a string used as the value of
+	;; the `w3m-image' property.  A long title string will be chopped in
+	;; w3m's halfdump; since it makes `next-single-property-change' not
+	;; work properly, XEmacs didn't display images in shimbun articles.
+	(if (equal src src1)
+	    (setq src src1)
+	  (setq src1 src))
+	(when (search-forward "</img_alt>" nil t)
+	  (delete-region (setq end (match-beginning 0)) (match-end 0))
+	  (setq help (get-text-property start 'w3m-balloon-help))
+	  (cond
+	   ((and help title)
+	    (setq help (format "%s\nalt: %s\nimg: %s" help title src)))
+	   (help
+	    (setq help (format "%s\nimg: %s" help src)))
+	   (title
+	    (setq help (format "alt: %s\nimg: %s" title src)))
+	   (t
+	    (setq help (format "img: %s" src))))
+	  (w3m-add-text-properties start end
+				   (list 'w3m-image src
+					 'w3m-image-size
+					 (when (or width height)
+					   (cons width height))
+					 'w3m-image-alt title
+					 'w3m-balloon-help help
+					 'w3m-image-usemap usemap
+					 'w3m-image-status 'off
+					 'w3m-image-redundant upper
+					 'keymap w3m-link-map))
+	   (unless (w3m-action start)
+	     ;; No need to use `w3m-add-text-properties' here.
+	     (w3m-add-face-property start end
+				    (if (w3m-anchor start)
+					'w3m-image-anchor
+				      'w3m-image))
+	     (unless (w3m-anchor start)
+	       (add-text-properties start end (list 'mouse-face 'highlight
+						    'help-echo help
+						    'balloon-help balloon)))))))))
+
+(defvar w3m-idle-images-show-timer nil)
+(defvar w3m-idle-images-show-list nil)
+(defvar w3m-idle-images-show-interval 1)
+
+(defun w3m-idle-images-show ()
+  (let ((repeat t)
+	(onbuffer (member (current-buffer) (w3m-list-buffers))))
+    (while (and repeat w3m-idle-images-show-list)
+      (let* ((item (or (and onbuffer
+			    (or (get-text-property (point) 'w3m-idle-image-item)
+				(let* ((prev (previous-single-property-change
+					      (point) 'w3m-idle-image-item))
+				       (next (next-single-property-change
+					      (point) 'w3m-idle-image-item))
+				       (prev-diff (and prev (abs (- (point) prev))))
+				       (next-diff (and next (abs (- (point) next)))))
+				  (cond
+				   ((and prev next)
+				    (get-text-property
+				     (if (< prev-diff next-diff) prev next)
+				     'w3m-idle-image-item))
+				   (prev
+				    (get-text-property prev
+						       'w3m-idle-image-item))
+				   (next
+				    (get-text-property next
+						       'w3m-idle-image-item))
+				   (t nil)))))
+		       (car (last w3m-idle-images-show-list))))
+	     (start    (nth 0 item))
+	     (end      (nth 1 item))
+	     (iurl     (nth 2 item))
+	     (url      (nth 3 item))
+	     (no-cache (nth 4 item))
+	     (size     (nth 5 item)))
+	(setq w3m-idle-images-show-list
+	      (delete item w3m-idle-images-show-list))
+	(if (buffer-live-p (marker-buffer start))
+	    (with-current-buffer (marker-buffer start)
+	      (save-restriction
+		(widen)
+		(let ((inhibit-read-only t))
+		  (remove-text-properties start end '(w3m-idle-image-item))
+		  (set-buffer-modified-p nil))
+		(w3m-process-with-null-handler
+		  (lexical-let ((start start)
+				(end end)
+				(iurl iurl)
+				(url url))
+		    (w3m-process-do
+			(image (let ((w3m-current-buffer (current-buffer))
+				     (w3m-message-silent t))
+				 (w3m-create-image
+				  iurl no-cache
+				  url
+				  size handler)))
+		      (when (buffer-live-p (marker-buffer start))
+			(with-current-buffer (marker-buffer start)
+			  (save-restriction
+			    (widen)
+			    (if image
+				(when (equal url w3m-current-url)
+				  (let ((inhibit-read-only t))
+				    (w3m-insert-image start end image iurl))
+				  ;; Redisplay
+				  (when w3m-force-redisplay
+				    (sit-for 0)))
+			      (let ((inhibit-read-only t))
+				(w3m-add-text-properties
+				 start end '(w3m-image-status off))))
+			    (set-buffer-modified-p nil))
+			  (set-marker start nil)
+			  (set-marker end nil))))))))
+	  (set-marker start nil)
+	  (set-marker end nil)
+	  (w3m-idle-images-show-unqueue (marker-buffer start))))
+      (setq repeat (sit-for 0.1 t)))
+    (if w3m-idle-images-show-list
+      (when (input-pending-p)
+	(cancel-timer w3m-idle-images-show-timer)
+	(setq w3m-idle-images-show-timer
+	      (run-with-idle-timer w3m-idle-images-show-interval
+				   t
+				   'w3m-idle-images-show)))
+      (cancel-timer w3m-idle-images-show-timer)
+      (setq w3m-idle-images-show-timer nil))))
+
+(defun w3m-idle-images-show-unqueue (buffer)
+  (when w3m-idle-images-show-timer
+    (cancel-timer w3m-idle-images-show-timer)
+    (setq w3m-idle-images-show-timer nil)
+    (setq w3m-idle-images-show-list
+	  (delq nil
+		(mapcar (lambda (x)
+			  (and (not (eq buffer (marker-buffer (nth 0 x))))
+			       x))
+			w3m-idle-images-show-list)))
+    (when w3m-idle-images-show-list
+      (setq w3m-idle-images-show-timer
+	    (run-with-idle-timer w3m-idle-images-show-interval
+				 t
+				 'w3m-idle-images-show)))))
+
+(defvar w3m-image-no-idle-timer nil)
+(defun w3m-toggle-inline-images-internal (status
+					  &optional no-cache url
+					  begin-pos end-pos
+					  safe-regexp)
+  "Toggle displaying of inline images on current buffer.
+STATUS is current image status.
+If NO-CACHE is non-nil, cache is not used.
+If URL is specified, only the image with URL is toggled."
+  (let ((cur-point (point))
+	(inhibit-read-only t)
+	(end (or begin-pos (point-min)))
+	(allow-non-secure-images (not w3m-confirm-leaving-secure-page))
+	start iurl image size)
+    (unless end-pos (setq end-pos (point-max)))
+    (save-excursion
+      (if (equal status 'off)
+	  (while (< (setq start
+			  (if (w3m-image end)
+			      end
+			    (next-single-property-change end 'w3m-image
+							 nil end-pos)))
+		    end-pos)
+	    (setq end (or (next-single-property-change start 'w3m-image)
+			  (point-max))
+		  iurl (w3m-image start)
+		  size (get-text-property start 'w3m-image-size))
+	    (when (and (or (and (not url)
+				(or (not w3m-ignored-image-url-regexp)
+				    (not (string-match
+					  w3m-ignored-image-url-regexp
+					  iurl))))
+			   ;; URL is specified and is same as the image URL.
+			   (string= url iurl))
+		       (not (eq (get-text-property start 'w3m-image-status)
+				'on)))
+	      (w3m-add-text-properties start end '(w3m-image-status on))
+	      (if (get-text-property start 'w3m-image-redundant)
+		  (progn
+		    ;; Insert a dummy string instead of a redundant image.
+		    (setq image (make-string
+				 (string-width (buffer-substring start end))
+				 ? ))
+		    (w3m-add-text-properties start end '(invisible t))
+		    (goto-char end)
+		    (w3m-add-text-properties
+		     end (progn (insert image) (point))
+		     '(w3m-image-dummy t w3m-image "dummy"))
+		    (setq end (point)))
+		(goto-char cur-point)
+		(when (and (w3m-url-valid iurl)
+			   (or (null safe-regexp)
+			       (string-match safe-regexp iurl))
+			   (not (and (not (w3m-url-local-p w3m-current-url))
+				     (w3m-url-local-p iurl)))
+			   (or (not w3m-current-ssl)
+			       (string-match "\\`\\(?:ht\\|f\\)tps://" iurl)
+			       allow-non-secure-images
+			       (and (prog1
+					(y-or-n-p "\
+You are retrieving non-secure image(s).  Continue? ")
+				      (message nil))
+				    (setq allow-non-secure-images t))))
+		  (if (or w3m-image-no-idle-timer
+			  (and (null (and size w3m-resize-images))
+			       (or (string-match "\\`\\(?:cid\\|data\\):" iurl)
+				   (w3m-url-local-p iurl)
+				   (w3m-cache-available-p iurl))))
+		      (w3m-process-with-null-handler
+			(lexical-let ((start (set-marker (make-marker) start))
+				      (end (set-marker (make-marker) end))
+				      (iurl iurl)
+				      (url w3m-current-url))
+			  (w3m-process-do
+			      (image (let ((w3m-current-buffer (current-buffer)))
+				       (w3m-create-image
+					iurl no-cache
+					w3m-current-url
+					size handler)))
+			    (when (buffer-live-p (marker-buffer start))
+			      (with-current-buffer (marker-buffer start)
+				(if image
+				    (when (equal url w3m-current-url)
+				      (let ((inhibit-read-only t))
+					(w3m-insert-image start end image iurl))
+				      ;; Redisplay
+				      (when w3m-force-redisplay
+					(sit-for 0)))
+				  (let ((inhibit-read-only t))
+				    (w3m-add-text-properties
+				     start end '(w3m-image-status off))))
+				(set-buffer-modified-p nil)))
+			    (set-marker start nil)
+			    (set-marker end nil))))
+		    (let ((item (list (set-marker (make-marker) start)
+				      (set-marker (make-marker) end)
+				      (w3m-url-transfer-encode-string iurl)
+				      w3m-current-url
+				      no-cache
+				      size)))
+		      (setq w3m-idle-images-show-list
+			    (cons item w3m-idle-images-show-list))
+		      (w3m-add-text-properties
+		       start end
+		       `(w3m-idle-image-item ,item))
+		      (unless w3m-idle-images-show-timer
+			(setq w3m-idle-images-show-timer
+			      (run-with-idle-timer w3m-idle-images-show-interval
+						   t
+						   'w3m-idle-images-show)))))))))
+	;; Remove.
+	(while (< (setq start (if (w3m-image end)
+				  end
+				(next-single-property-change end 'w3m-image
+							     nil end-pos)))
+		  end-pos)
+	  (setq end (or (next-single-property-change start 'w3m-image)
+			(point-max))
+		iurl (w3m-image start))
+	  ;; IMAGE-ALT-STRING DUMMY-STRING
+	  ;; <--------w3m-image---------->
+	  ;; <---redundant--><---dummy--->
+	  ;; <---invisible-->
+	  (when (and (or (not url)
+			 ;; URL is specified and is not same as the image URL.
+			 (string= url iurl))
+		     (not (eq (get-text-property start 'w3m-image-status)
+			      'off)))
+	    (cond
+	     ((get-text-property start 'w3m-image-redundant)
+	      ;; Remove invisible property.
+	      (put-text-property start end 'invisible nil))
+	     ((get-text-property start 'w3m-image-dummy)
+	      ;; Remove dummy string.
+	      (delete-region start end)
+	      (setq end start))
+	     (t (w3m-remove-image start end)))
+	    (w3m-add-text-properties start end
+				     '(w3m-image-status off
+							w3m-idle-image-item nil))))
+	(set-buffer-modified-p nil)))))
+
+(defun w3m-toggle-inline-image (&optional force no-cache)
+  "Toggle the visibility of an image under point or images in the region.
+If FORCE is non-nil, displaying an image is forced.  If NO-CACHE is
+non-nil, cached data will not be used."
+  (interactive "P")
+  (unless (w3m-display-graphic-p)
+    (error "Can't display images in this environment"))
+  (let (toggle-list begin end)
+    (if (w3m-region-active-p)
+	(let ((p (region-beginning))
+	    iurl)
+	  (setq begin (region-beginning)
+		end (region-end))
+	  (w3m-deactivate-region)
+	  (while (< p end)
+	    (setq p (next-single-property-change p 'w3m-image nil end))
+	    (when (and (< p end)
+		       (setq iurl (w3m-image p))
+		       (not (assoc iurl toggle-list)))
+	    (setq toggle-list (cons (cons iurl p) toggle-list)))))
+      (setq toggle-list (and (w3m-image)
+			     `(,(cons (w3m-image) (point))))))
+    (if toggle-list
+	(dolist (x toggle-list)
+	  (let* ((url (car x))
+		 (pos (cdr x))
+		 (status (get-text-property pos 'w3m-image-status))
+		 safe-regexp)
+	    (if (and (get-text-property pos 'w3m-image-scale)
+		     (equal status 'off))
+		(w3m-zoom-in-image 0)
+	      (if (w3m-url-valid url)
+		  (if (eq status 'on)
+		      (progn
+			(if force (setq status 'off))
+			(w3m-toggle-inline-images-internal
+			 status no-cache url
+			 (or begin (point-min))
+			 (or end (point-max))))
+		    (setq safe-regexp
+			  (get-text-property (point) 'w3m-safe-url-regexp))
+		    (if (or force
+			    (not safe-regexp)
+			    (string-match safe-regexp url))
+			(w3m-toggle-inline-images-internal
+			 status no-cache url
+			 (or begin (point-min))
+			 (or end (point-max)))
+		      (when (interactive-p)
+			(w3m-message "This image is considered to be unsafe;\
+ use the prefix arg to force display"))))))))
+      (if begin
+	  (w3m-message "No images in region")
+	(w3m-message "No image at point")))))
+
+(defun w3m-turnoff-inline-images ()
+  "Turn off to display all images in the buffer or in the region."
+  (interactive)
+  (w3m-toggle-inline-images 'turnoff))
+
+(defun w3m-toggle-inline-images (&optional force no-cache)
+  "Toggle the visibility of all images in the buffer or in the region.
+If FORCE is neither nil nor `turnoff', displaying images is forced.
+The value `turnoff' is special; it turns displaying images off anyway.
+If NO-CACHE is non-nil, cached data will not be used.
+
+Note that the status of whether images are visible is kept hereafter
+even in new sessions if the `w3m-toggle-inline-images-permanently'
+variable is non-nil (default=t)."
+  (interactive "P")
+  (unless (w3m-display-graphic-p)
+    (error "Can't display images in this environment"))
+  (let ((status (cond ((eq force 'turnoff) t)
+		      (force nil)
+		      (t w3m-display-inline-images)))
+	(safe-p t)
+	beg end safe-regexp pos url)
+    (if (w3m-region-active-p)
+	(progn
+	  (setq beg (region-beginning)
+		end (region-end))
+	  (w3m-deactivate-region))
+      (setq beg (point-min)
+	    end (point-max)))
+    (unless status
+      (when (setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp))
+	;; Scan the buffer for searching for an insecure image url.
+	(setq pos beg)
+	(setq
+	 safe-p
+	 (catch 'done
+	   (when (setq url (get-text-property pos 'w3m-image))
+	     (unless (string-match safe-regexp url)
+	       (throw 'done nil))
+	     (setq pos (next-single-property-change pos 'w3m-image)))
+	   (while (< pos end)
+	     (when (and
+		    (setq pos (next-single-property-change pos 'w3m-image
+							   nil end))
+		    (setq url (get-text-property pos 'w3m-image)))
+	       (unless (string-match safe-regexp url)
+		 (throw 'done nil)))
+	     (setq pos (next-single-property-change pos 'w3m-image
+						    nil end)))
+	   t))))
+    (if (or force
+	    status
+	    (not safe-regexp)
+	    safe-p)
+	(progn
+	  (unwind-protect
+	      (w3m-toggle-inline-images-internal (if status 'on 'off)
+						 no-cache nil beg end
+						 (unless (interactive-p)
+						   safe-regexp))
+	    (setq w3m-display-inline-images (not status))
+	    (when status 
+	      (w3m-process-stop (current-buffer))
+	      (w3m-idle-images-show-unqueue (current-buffer)))
+	    (force-mode-line-update)))
+      (w3m-message "There are some images considered unsafe;\
+ use the prefix arg to force display"))))
+
+(defun w3m-resize-inline-image-internal (url rate)
+  "Resize an inline image on the cursor position.
+URL is a url of an image.  RATE is a number of percent used when
+resizing an image."
+  (let* ((inhibit-read-only t)
+	 (start (point))
+	 (end (or (next-single-property-change start 'w3m-image)
+		  (point-max)))
+	 (iurl (w3m-image start))
+	 (size (get-text-property start 'w3m-image-size))
+	 (iscale (or (get-text-property start 'w3m-image-scale) '100))
+	 (allow-non-secure-images (not w3m-confirm-leaving-secure-page))
+	 scale image)
+    (w3m-add-text-properties start end '(w3m-image-status on))
+    (setq scale (truncate (* iscale rate 0.01)))
+    (w3m-add-text-properties start end (list 'w3m-image-scale scale))
+    (if (get-text-property start 'w3m-image-redundant)
+	(progn
+	  ;; Insert a dummy string instead of a redundant image.
+	  (setq image (make-string
+		       (string-width (buffer-substring start end))
+		       ? ))
+	  (w3m-add-text-properties start end '(invisible t))
+	  (w3m-add-text-properties (point)
+				   (progn (insert image) (point))
+				   '(w3m-image-dummy t
+						     w3m-image "dummy")))
+      (when (and (w3m-url-valid iurl)
+		 (or (not w3m-current-ssl)
+		     (string-match "\\`\\(?:ht\\|f\\)tps://" iurl)
+		     allow-non-secure-images
+		     (and (prog1
+			      (y-or-n-p "\
+You are retrieving non-secure image(s).  Continue? ")
+			    (message nil))
+			  (setq allow-non-secure-images t))))
+	(w3m-process-with-null-handler
+	  (lexical-let ((start (set-marker (make-marker) start))
+			(end (set-marker (make-marker) end))
+			(iurl iurl)
+			(rate scale)
+			(url w3m-current-url))
+	    (w3m-process-do
+		(image (let ((w3m-current-buffer (current-buffer)))
+			 (w3m-create-resized-image
+			  iurl
+			  rate
+			  w3m-current-url
+			  size handler)))
+	      (when (buffer-live-p (marker-buffer start))
+		(with-current-buffer (marker-buffer start)
+		  (if image
+		      (when (equal url w3m-current-url)
+			(let ((inhibit-read-only t))
+			  (w3m-static-when (featurep 'xemacs)
+			    (w3m-remove-image start end))
+			  (w3m-insert-image start end image iurl))
+			;; Redisplay
+			(when w3m-force-redisplay
+			  (sit-for 0)))
+		    (let ((inhibit-read-only t))
+		      (w3m-add-text-properties
+		       start end '(w3m-image-status off))))
+		  (set-buffer-modified-p nil))
+		(set-marker start nil)
+		(set-marker end nil)))))))))
+
+(defun w3m-zoom-in-image (&optional rate)
+  "Zoom in an image on the point.
+Numeric prefix specifies how many percent the image is enlarged by
+\(30 means enlarging the image by 130%).  The default is the value of
+the `w3m-resize-image-scale' variable."
+  (interactive "P")
+  (unless (w3m-display-graphic-p)
+    (error "Can't display images in this environment"))
+  (unless (w3m-imagick-convert-program-available-p)
+    (error "ImageMagick's `convert' program is required"))
+  (let ((url (w3m-image)))
+    (if url
+	(w3m-resize-inline-image-internal
+	 url
+	 (+ 100 (or rate w3m-resize-image-scale)))
+      (w3m-message "No image at point"))))
+
+(defun w3m-zoom-out-image (&optional rate)
+  "Zoom out an image on the point.
+Numeric prefix specifies how many percent the image is shrunk by
+\(30 means shrinking the image by 70%).  The default is the value of
+the `w3m-resize-image-scale' variable."
+  (interactive "P")
+  (unless (w3m-display-graphic-p)
+    (error "Can't display images in this environment"))
+  (unless (w3m-imagick-convert-program-available-p)
+    (error "ImageMagick's `convert' program is required"))
+  (let ((url (w3m-image)))
+    (if url
+	(w3m-resize-inline-image-internal
+	 url
+	 (- 100 (or rate w3m-resize-image-scale)))
+      (w3m-message "No image at point"))))
+
+(defun w3m-decode-entities (&optional keep-properties)
+  "Decode entities in the current buffer.
+If optional KEEP-PROPERTIES is non-nil, text property is reserved."
+  (save-excursion
+    (goto-char (point-min))
+    ;; Character entity references are case-sensitive.
+    ;; Cf. http://www.w3.org/TR/1999/REC-html401-19991224/charset.html#h-5.3.2
+    (let (case-fold-search start fid prop value)
+      (while (re-search-forward w3m-entity-regexp nil t)
+	(setq start (match-beginning 0)
+	      fid (get-text-property start 'w3m-form-field-id))
+	(unless (and fid
+		     (save-match-data
+		       (string-match "/type=\\(?:text\\|select\\)/name=[^/]+/"
+				     fid)))
+	  (when keep-properties
+	    (setq prop (text-properties-at start)))
+	  (unless (eq (char-after (match-end 1)) ?\;)
+	    (goto-char (match-end 1)))
+	  ;; Note that `w3m-entity-value' breaks `match-data' at the 1st
+	  ;; time in XEmacs because of the autoloading unicode.elc for
+	  ;; the `ucs-to-char' function.
+	  (when (setq value (w3m-entity-value (match-string 1)))
+	    (delete-region start (point))
+	    (insert value))
+	  (when prop
+	    (w3m-add-text-properties start (point) prop)))))))
+
+(defun w3m-decode-entities-string (str)
+  "Decode entities in the string STR."
+  (save-match-data
+    ;; Character entity references are case-sensitive.
+    ;; Cf. http://www.w3.org/TR/1999/REC-html401-19991224/charset.html#h-5.3.2
+    (let ((case-fold-search) (pos 0) (buf))
+      (while (string-match w3m-entity-regexp str pos)
+	(setq buf (cons (or (w3m-entity-value (match-string 1 str))
+			    (match-string 1 str))
+			(cons (substring str pos (match-beginning 0))
+			      buf))
+	      pos (if (eq (aref str (match-end 1)) ?\;)
+		      (match-end 0)
+		    (match-end 1))))
+      (if buf
+	  (apply 'concat (nreverse (cons (substring str pos) buf)))
+	str))))
+
+(defun w3m-encode-specials-string (str)
+  "Encode special characters in the string STR."
+  (let ((pos 0)
+	(buf))
+    (while (string-match "[<>&]" str pos)
+      (setq buf
+	    (cons ";"
+		  (cons (gethash (match-string 0 str) w3m-entity-reverse-table)
+			(cons "&"
+			      (cons (substring str pos (match-beginning 0))
+				    buf))))
+	    pos (match-end 0)))
+    (if buf
+	(apply 'concat (nreverse (cons (substring str pos) buf)))
+      str)))
+
+(defun w3m-fontify ()
+  "Fontify the current buffer."
+  (let ((case-fold-search t)
+	(inhibit-read-only t))
+    (w3m-message "Fontifying...")
+    (run-hooks 'w3m-fontify-before-hook)
+    ;; Remove hidden anchors like "<a href=url> </a>".
+    (goto-char (point-min))
+    (while (re-search-forward "<a[\t\n ]+[^>]+>[\t\n ]*</a>" nil t)
+      (delete-region (match-beginning 0) (match-end 0)))
+    ;; Delete <?xml ... ?> tag
+    (goto-char (point-min))
+    (if (search-forward "<?xml" nil t)
+	(let ((start (match-beginning 0)))
+	  (search-forward "?>" nil t)
+	  (delete-region start (match-end 0))
+	  (goto-char (point-min))))
+    ;; Delete extra title tag.
+    (let (start)
+      (and (search-forward "<title>" nil t)
+	   (setq start (match-beginning 0))
+	   (search-forward "</title>" nil t)
+	   (delete-region start (match-end 0))))
+    (w3m-fontify-bold)
+    (w3m-fontify-italic)
+    (w3m-fontify-strike-through)
+    (w3m-fontify-insert)
+    (w3m-fontify-underline)
+    (when w3m-use-symbol
+      (w3m-replace-symbol))
+    (w3m-fontify-anchors)
+    (when w3m-use-form
+      (w3m-fontify-forms))
+    (w3m-fontify-images)
+    ;; Remove other markups.
+    (goto-char (point-min))
+    (while (re-search-forward "</?[A-Za-z_][^>]*>" nil t)
+      (let* ((start (match-beginning 0))
+	     (fid (get-text-property start 'w3m-form-field-id)))
+	(if (and fid (string-match "/type=text\\(?:area\\)?/" fid))
+	    (goto-char (1+ start))
+	  (delete-region start (match-end 0)))))
+    ;; Decode escaped characters (entities).
+    (w3m-decode-entities 'reserve-prop)
+    (when w3m-use-form
+      (w3m-fontify-textareas))
+    (goto-char (point-min))
+    (when w3m-delete-duplicated-empty-lines
+      (while (re-search-forward "^[ \t]*\n\\(?:[ \t]*\n\\)+" nil t)
+	(delete-region (match-beginning 0) (1- (match-end 0)))))
+
+    ;; FIXME: The code above reduces number of empty lines but one line
+    ;; remains.  While such empty lines might have been inserted for
+    ;; making sure of rooms for displaying images, they all should be
+    ;; removed since they are useless for emacs-w3m.  However, currently
+    ;; we don't have a proper way to identify whether they were inserted
+    ;; intentionally by the author or not.  So, we decided to remove only
+    ;; that one at the beginning of the buffer though it is unwillingness.
+    (goto-char (point-min))
+    (skip-chars-forward "\t\n $B!!(B")
+    (delete-region (point-min) (point-at-bol))
+
+    (w3m-header-line-insert)
+    (put-text-property (point-min) (point-max)
+		       'w3m-safe-url-regexp w3m-safe-url-regexp)
+    (w3m-message "Fontifying...done")
+    (run-hooks 'w3m-fontify-after-hook)))
+
+(defun w3m-refontify-anchor (&optional buff)
+  "Refontify anchors as they have already arrived.
+It replaces the faces on the arrived anchors from `w3m-anchor' to
+`w3m-arrived-anchor'."
+  (with-current-buffer (or buff (current-buffer))
+    (let (prop)
+      (when (and (eq major-mode 'w3m-mode)
+		 (get-text-property (point) 'w3m-anchor-sequence)
+		 (setq prop (get-text-property (point) 'face))
+		 (listp prop)
+		 (member 'w3m-anchor prop))
+	(let ((start)
+	      (end (next-single-property-change (point) 'w3m-anchor-sequence))
+	      (inhibit-read-only t))
+	  (when (and end
+		     (setq start (previous-single-property-change
+				  end 'w3m-anchor-sequence))
+		     (w3m-arrived-p (get-text-property (point)
+						       'w3m-href-anchor)))
+	    (w3m-remove-face-property start end 'w3m-anchor)
+	    (w3m-remove-face-property start end 'w3m-arrived-anchor)
+	    (w3m-add-face-property start end 'w3m-arrived-anchor))
+	  (set-buffer-modified-p nil))))))
+
+(defun w3m-url-completion (url predicate flag)
+  "Completion function for URL."
+  (if (string-match "\\`\\(?:file:\\|[/~]\\|\\.\\.?/\\|[a-zA-Z]:\\)" url)
+      (if (eq flag 'lambda)
+	  (file-exists-p (w3m-url-to-file-name url))
+	(let* ((partial
+		(expand-file-name
+		 (cond
+		  ((string-match "\\`file:[^/]" url)
+		   (substring url 5))
+		  ((string-match "/\\(~\\)" url)
+		   (substring url (match-beginning 1)))
+		  (t (w3m-url-to-file-name url)))))
+	       (collection
+		(let ((dir (file-name-directory partial)))
+		  (mapcar
+		   (lambda (f)
+		     (list (w3m-expand-file-name-as-url f dir)))
+		   (file-name-all-completions (file-name-nondirectory partial)
+					      dir)))))
+	  (setq partial
+		(if (string-match "/\\.\\'" url)
+		    (concat (file-name-as-directory
+			     (w3m-expand-file-name-as-url partial))
+			    ".")
+		  (w3m-expand-file-name-as-url partial)))
+	  (cond
+	   ((not flag)
+	    (try-completion partial collection predicate))
+	   ((eq flag t)
+	    (all-completions partial collection predicate)))))
+    (cond
+     ((not flag)
+      (try-completion url w3m-arrived-db))
+     ((eq flag t)
+      (all-completions url w3m-arrived-db))
+     ((eq flag 'lambda)
+      (if (w3m-arrived-p url) t nil)))))
+
+(defun w3m-gmane-url-at-point ()
+  "Return a url that indicates the thread page in Gmane.
+This function works only when the cursor stays in the References
+header or the Message-ID header, otherwise returns nil.
+
+On the Message-ID header, the url that asks Gmane for the thread
+beginning with the current article will be generated.
+On the References header, the url that asks Gmane for the whole thread
+\(namely it begins with the article of the first ID in the header) will
+be generated.  In that case, Gmane might fail to find the thread since
+it is possible that the root article has been posted to another group.
+
+That it returns an invalid url for the article of the group which is
+not being archived in Gmane cannot be helped."
+  (save-excursion
+    (let ((fmt "http://news.gmane.org/group/thread=%s/force_load=t")
+	  (start (point))
+	  (inhibit-point-motion-hooks t)
+	  case-fold-search)
+      (goto-char (point-min))
+      (re-search-forward (concat "^\\(?:"
+				 (regexp-quote mail-header-separator)
+				 "\\)?$")
+			 nil 'move)
+      (when (< start (point))
+	(setq case-fold-search t)
+	(save-restriction
+	  (narrow-to-region (point-min) (point))
+	  (goto-char start)
+	  (beginning-of-line)
+	  (while (and (memq (char-after) '(?\t ? ))
+		      (zerop (forward-line -1))))
+	  (when (looking-at
+		 "\\(?:Message-ID\\|References\\):[\t\n ]*<\\([^\t\n <>]+\\)>")
+	    (format
+	     fmt
+	     (w3m-url-encode-string (match-string-no-properties 1)
+				    nil t))))))))
+
+(defun w3m-header-line-url ()
+  "Return w3m-current-url if point on header line."
+  (let ((faces (get-text-property (point) 'face)))
+    (when (and (eq major-mode 'w3m-mode)
+	       (listp faces)
+	       (or (memq 'w3m-header-line-location-title faces)
+		   (memq 'w3m-header-line-location-content faces))
+	       w3m-current-url)
+      w3m-current-url)))
+
+(eval-and-compile
+  (autoload 'ffap-url-at-point "ffap")
+  (defalias 'w3m-url-at-point
+    (cond ((and (featurep 'xemacs) (featurep 'mule))
+	   (lambda nil "\
+Like `ffap-url-at-point', except that text props will be stripped and
+iso646 characters are unified into ascii characters."
+	     (or (w3m-gmane-url-at-point)
+		 (w3m-header-line-url)
+		 (let ((left (buffer-substring-no-properties (point-at-bol)
+							     (point)))
+		       (right (buffer-substring-no-properties (point)
+							      (point-at-eol)))
+		       (regexp (format "[%c-%c]"
+				       (make-char 'latin-jisx0201 33)
+				       (make-char 'latin-jisx0201 126)))
+		       (diff (- (char-to-int (make-char 'latin-jisx0201 33))
+				33))
+		       index)
+		   (while (setq index (string-match regexp left))
+		     (aset left index (- (aref left index) diff)))
+		   (while (setq index (string-match regexp right))
+		     (aset right index (- (aref right index) diff)))
+		   (with-temp-buffer
+		     (insert right)
+		     (goto-char (point-min))
+		     (insert left)
+		     (ffap-url-at-point))))))
+	  ((featurep 'xemacs)
+	   (lambda nil "\
+Like `ffap-url-at-point', except that text props will be stripped."
+	     (or (w3m-gmane-url-at-point)
+		 (w3m-header-line-url)
+		 (unless (fboundp 'ffap-url-at-point)
+		   ;; It is necessary to bind `ffap-xemacs'.
+		   (load "ffap" nil t))
+		 (let (ffap-xemacs)
+		   (ffap-url-at-point)))))
+	  (t
+	   (lambda nil
+	     (or (w3m-gmane-url-at-point)
+		 (w3m-header-line-url)
+		 (ffap-url-at-point)))))))
+
+(eval-after-load "ffap"
+  '(progn
+     ;; Under XEmacs, `ffap-url-regexp' won't match to https urls.
+     (if (and ffap-url-regexp
+	      (not (string-match ffap-url-regexp "https://foo"))
+	      (string-match "\\((\\|\\\\|\\)\\(http\\)\\(\\\\|\\|\\\\)\\)"
+			    ffap-url-regexp))
+	 (setq ffap-url-regexp (replace-match "\\1\\2s?\\3"
+					      nil nil ffap-url-regexp)))
+     ;; Add nntp:.
+     (if (and ffap-url-regexp
+	      (not (string-match ffap-url-regexp "nntp://bar"))
+	      (string-match "\\(\\\\(news\\\\(post\\\\)\\?:\\)\\(\\\\|\\)"
+			    ffap-url-regexp))
+	 (setq ffap-url-regexp (replace-match "\\1\\\\|nntp:\\2"
+					      nil nil ffap-url-regexp)))))
+
+(defun w3m-active-region-or-url-at-point (&optional default=current)
+  "Return an active region or a url around the cursor.
+In Transient Mark mode, deactivate the mark.  If DEFAULT=CURRENT is
+non-nil, return the url of the current page by default."
+  (if (w3m-region-active-p)
+      (prog1
+	  (let ((string (buffer-substring-no-properties
+			 (region-beginning) (region-end))))
+	    (with-temp-buffer
+	      (insert string)
+	      (skip-chars-backward "\t\n\f\r $B!!(B")
+	      (delete-region (point) (point-max))
+	      (goto-char (point-min))
+	      (skip-chars-forward "\t\n\f\r $B!!(B")
+	      (delete-region (point-min) (point))
+	      (while (re-search-forward "\
+\\(?:[\t\f\r $B!!(B]+\n[\t\f\r $B!!(B]*\\|[\t\f\r $B!!(B]*\n[\t\f\r $B!!(B]+\\)+" nil t)
+		(delete-region (match-beginning 0) (match-end 0)))
+	      (buffer-string)))
+	(w3m-deactivate-region))
+    (or (w3m-url-at-point)
+	(w3m-anchor)
+	(unless w3m-display-inline-images
+	  (w3m-image))
+	(and default=current
+	     (stringp w3m-current-url)
+	     (if (string-match "\\`about://\\(?:header\\|source\\)/"
+			       w3m-current-url)
+		 (substring w3m-current-url (match-end 0))
+	       w3m-current-url)))))
+
+(defun w3m-canonicalize-url (url &optional feeling-lucky)
+  "Add a scheme part to an URL or make an URL for \"I'm Feeling Lucky on Google\"
+if it has no scheme part."
+  (w3m-string-match-url-components url)
+  (cond
+   ((match-beginning 1)
+    url)
+   ((and (file-name-absolute-p url) (file-exists-p url))
+    (concat "file://" url))
+   (feeling-lucky
+    (let* ((charset w3m-google-feeling-lucky-charset)
+	   (cs (w3m-charset-to-coding-system charset))
+	   (str (w3m-url-encode-string url cs t)))
+      (format (concat "http://www.google.com/search"
+		      "?btnI=I%%27m+Feeling+Lucky&ie=%s&oe=%s&q=%s")
+	      charset charset str)))
+   (t
+    (concat "http://" url))))
+
+(defun w3m-input-url (&optional prompt initial default quick-start
+				feeling-lucky)
+  "Read a url from the minibuffer, prompting with string PROMPT."
+  (let (url)
+    (w3m-arrived-setup)
+    (cond ((null initial)
+	   (when (and (setq initial (w3m-active-region-or-url-at-point t))
+		      (not (string-match "[^\000-\177]" initial)))
+	     (setq initial (w3m-url-decode-string initial
+						  w3m-current-coding-system))))
+	  ((string= initial "")
+	   (setq initial nil)))
+    (when initial
+      (setq initial (w3m-puny-decode-url initial)))
+    (cond ((null default)
+	   (setq default w3m-home-page))
+	  ((string= default "")
+	   (setq default nil)))
+    (if (and quick-start
+	     default
+	     (not initial))
+	default
+      (unless w3m-enable-google-feeling-lucky
+	(setq feeling-lucky nil))
+      (setq url (let ((minibuffer-setup-hook
+		       (append minibuffer-setup-hook
+			       (list (lambda ()
+				       (beginning-of-line)
+				       (if (looking-at "[a-z]+:\\(?:/+\\)?")
+					   (goto-char (match-end 0)))))))
+		      (ofunc (lookup-key minibuffer-local-completion-map " ")))
+		  (when feeling-lucky
+		    (define-key minibuffer-local-completion-map " "
+		      'self-insert-command))
+		  (unwind-protect
+		      (completing-read
+		       (if prompt
+			   (if default
+			       (progn
+				 (when (string-match " *: *\\'" prompt)
+				   (setq prompt
+					 (substring prompt 0
+						    (match-beginning 0))))
+				 (concat prompt " (default "
+					 (if (equal default w3m-home-page)
+					     "HOME"
+					   default)
+					 "): "))
+			     prompt)
+			 (if default
+			     (format "URL %s(default %s): "
+				     (if feeling-lucky "or Keyword " "")
+				     (if (stringp default)
+					 (if (eq default w3m-home-page)
+					     "HOME" default)
+				       (prin1-to-string default)))
+			   (if feeling-lucky "URL or Keyword: " "URL: ")))
+		       'w3m-url-completion nil nil initial
+		       'w3m-input-url-history default)
+		    (define-key minibuffer-local-completion-map " " ofunc))))
+      (if (stringp url)
+	  (progn
+	    ;; remove duplication
+	    (setq w3m-input-url-history
+		  (cons url (delete url w3m-input-url-history)))
+	    (w3m-canonicalize-url url feeling-lucky))
+	;; It may be `popup'.
+	url))))
+
+;;; Cache:
+(defun w3m-cache-setup ()
+  "Initialize the variables for managing the cache."
+  (unless (and (bufferp w3m-cache-buffer)
+	       (buffer-live-p w3m-cache-buffer))
+    (with-current-buffer (w3m-get-buffer-create " *w3m cache*")
+      (buffer-disable-undo)
+      (set-buffer-multibyte nil)
+      (setq buffer-read-only t
+	    w3m-cache-buffer (current-buffer)
+	    w3m-cache-hashtb (make-vector 1021 0)))))
+
+(defun w3m-cache-shutdown ()
+  "Clear all the variables managing the cache, and the cache itself."
+  (when (buffer-live-p w3m-cache-buffer)
+    (kill-buffer w3m-cache-buffer))
+  (setq w3m-cache-hashtb nil
+	w3m-cache-articles nil))
+
+(defun w3m-cache-header-delete-variable-part (header)
+  (let (buf flag)
+    (dolist (line (split-string header "\n+"))
+      (if (string-match "\\`\\(?:Date\\|Server\\|W3m-[^:]+\\):" line)
+	  (setq flag t)
+	(unless (and flag (string-match "\\`[ \t]" line))
+	  (setq flag nil)
+	  (push line buf))))
+    (mapconcat (function identity) (nreverse buf) "\n")))
+
+(defun w3m-cache-header (url header &optional overwrite)
+  "Store HEADER into the cache so that it corresponds to URL.
+If OVERWRITE is non-nil, it forces the storing even if there has
+already been the data corresponding to URL in the cache."
+  (w3m-cache-setup)
+  (let ((ident (intern url w3m-cache-hashtb)))
+    (if (boundp ident)
+	(if (and
+	     (not overwrite)
+	     (string=
+	      (w3m-cache-header-delete-variable-part header)
+	      (w3m-cache-header-delete-variable-part (symbol-value ident))))
+	    (symbol-value ident)
+	  (w3m-cache-remove url)
+	  (set ident header))
+      (set ident header))))
+
+(defun w3m-cache-request-header (url)
+  "Return the header string of URL when it is stored in the cache."
+  (w3m-cache-setup)
+  (let ((ident (intern url w3m-cache-hashtb)))
+    (and (boundp ident)
+	 (symbol-value ident))))
+
+(defun w3m-cache-remove-oldest ()
+  (with-current-buffer w3m-cache-buffer
+    (goto-char (point-min))
+    (unless (zerop (buffer-size))
+      (let ((ident (get-text-property (point) 'w3m-cache))
+	    (inhibit-read-only t))
+	;; Remove the ident from the list of articles.
+	(when ident
+	  (setq w3m-cache-articles (delq ident w3m-cache-articles)))
+	;; Delete the article itself.
+	(delete-region (point)
+		       (next-single-property-change
+			(1+ (point)) 'w3m-cache nil (point-max)))))))
+
+(defun w3m-cache-remove (url)
+  "Remove the data coresponding to URL from the cache."
+  (w3m-cache-setup)
+  (let ((ident (intern url w3m-cache-hashtb))
+	beg end)
+    (when (memq ident w3m-cache-articles)
+      ;; It was in the cache.
+      (with-current-buffer w3m-cache-buffer
+	(let ((inhibit-read-only t))
+	  (when (setq beg (text-property-any
+			   (point-min) (point-max) 'w3m-cache ident))
+	    ;; Find the end (i. e., the beginning of the next article).
+	    (setq end (next-single-property-change
+		       (1+ beg) 'w3m-cache (current-buffer) (point-max)))
+	    (delete-region beg end)))
+	(setq w3m-cache-articles (delq ident w3m-cache-articles))))))
+
+(defun w3m-cache-contents (url buffer)
+  "Store the contents of URL into the cache.
+The contents are assumed to be in BUFFER.  Return a symbol which
+identifies the data in the cache."
+  (w3m-cache-setup)
+  (let ((ident (intern url w3m-cache-hashtb)))
+    (w3m-cache-remove url)
+    ;; Remove the oldest article, if necessary.
+    (and (numberp w3m-keep-cache-size)
+	 (>= (length w3m-cache-articles) w3m-keep-cache-size)
+	 (w3m-cache-remove-oldest))
+    ;; Insert the new article.
+    (with-current-buffer w3m-cache-buffer
+      (let ((inhibit-read-only t))
+	(goto-char (point-max))
+	(let ((b (point)))
+	  (insert-buffer-substring buffer)
+	  ;; Tag the beginning of the article with the ident.
+	  (when (> (point-max) b)
+	    (w3m-add-text-properties b (1+ b) (list 'w3m-cache ident))
+	    (setq w3m-cache-articles (cons ident w3m-cache-articles))
+	    ident))))))
+
+(defun w3m-cache-request-contents (url &optional buffer)
+  "Insert contents of URL into BUFFER.
+Return t if the contents are found in the cache, otherwise nil.  When
+BUFFER is nil, all contents will be inserted in the current buffer."
+  (w3m-cache-setup)
+  (let ((ident (intern url w3m-cache-hashtb)))
+    (when (memq ident w3m-cache-articles)
+      ;; It was in the cache.
+      (let (beg end)
+	(with-current-buffer w3m-cache-buffer
+	  (if (setq beg (text-property-any
+			 (point-min) (point-max) 'w3m-cache ident))
+	      ;; Find the end (i.e., the beginning of the next article).
+	      (setq end (next-single-property-change
+			 (1+ beg) 'w3m-cache (current-buffer) (point-max)))
+	    ;; It wasn't in the cache after all.
+	    (setq w3m-cache-articles (delq ident w3m-cache-articles))))
+	(and beg
+	     end
+	     (with-current-buffer (or buffer (current-buffer))
+	       (let ((inhibit-read-only t))
+		 (insert-buffer-substring w3m-cache-buffer beg end))
+	       t))))))
+
+;; FIXME: we need to check whether contents were updated in remote servers.
+(defun w3m-cache-available-p (url)
+  "Return non-nil if a content of URL has already been cached."
+  (w3m-cache-setup)
+  (when (stringp url)
+    (let ((ident (intern url w3m-cache-hashtb)))
+      (and
+       (memq ident w3m-cache-articles)
+       (or
+	w3m-prefer-cache
+	(save-match-data
+	  (let ((case-fold-search t)
+		(head (and (boundp ident) (symbol-value ident)))
+		time expire)
+	    (cond
+	     ((and (string-match "^\\(?:date\\|etag\\):[ \t]" head)
+		   (or (string-match "^pragma:[ \t]+no-cache\n" head)
+		       (string-match
+			"^cache-control:\\(?:[^\n]+\\)?[ \t,]\\(?:no-cache\\|max-age=0\\)[,\n]"
+			head)))
+	      nil)
+	     ((and
+	       (string-match "^date:[ \t]\\([^\n]+\\)\n" head)
+	       (setq time (match-string 1 head))
+	       (setq time (w3m-time-parse-string time))
+	       (string-match "^cache-control:\\(?:[^\n]+\\)?[ \t,]max-age=\\([1-9][0-9]*\\)"
+			     head)
+	       (setq expire (string-to-number (match-string 1 head))))
+	      (setq time (decode-time time))
+	      (setcar time (+ (car time) expire))
+	      ;; Work around too large integer.
+	      (when (floatp (car time))
+		(setcar time (eval '(lsh -1 -1))))
+	      (setq expire (apply 'encode-time time))
+	      (w3m-time-newer-p expire (current-time)))
+	     ((and
+	       (string-match "^expires:[ \t]+\\([^\n]+\\)\n" head)
+	       (setq expire (match-string 1 head))
+	       (setq expire (w3m-time-parse-string expire)))
+	      (w3m-time-newer-p expire (current-time)))
+	     (t
+	      ;; Adhoc heuristic rule: pages with neither
+	      ;; Last-Modified header and ETag header are treated as
+	      ;; dynamically-generated pages.
+	      (string-match "^\\(?:last-modified\\|etag\\):" head))))))
+       ident))))
+
+(defun w3m-read-file-name (&optional prompt dir default existing)
+  (when default
+    (setq default (file-name-nondirectory (w3m-url-strip-query default))))
+  (unless prompt
+    (setq prompt (if (and default (not (string-equal default "")))
+		     (format "Save to (%s): " default)
+		   "Save to: ")))
+  (setq dir (file-name-as-directory (or dir w3m-default-save-directory)))
+  (let ((default-directory dir)
+	(file (read-file-name prompt dir nil existing default)))
+    (if (not (file-directory-p file))
+	(setq w3m-default-save-directory
+	      (or (file-name-directory file) w3m-default-save-directory))
+      (setq w3m-default-save-directory file)
+      (if default
+	  (setq file (expand-file-name default file))))
+    (expand-file-name file)))
+
+;;; Handling character sets:
+(defun w3m-charset-to-coding-system (charset)
+  "Return a coding system which is most suitable to CHARSET.
+CHARSET is a symbol whose name is MIME charset.
+This function is imported from mcharset.el."
+  (if (stringp charset)
+      (setq charset (intern (downcase charset))))
+  (let ((cs (assq charset w3m-charset-coding-system-alist)))
+    (w3m-find-coding-system (if cs (cdr cs) charset))))
+
+(defun w3m-coding-system-to-charset (coding-system)
+  "Return the MIME charset corresponding to CODING-SYSTEM."
+  (when coding-system
+    (w3m-static-if (featurep 'xemacs)
+	(when (or (fboundp 'coding-system-to-mime-charset)
+		  (progn
+		    (require 'mcharset)
+		    (fboundp 'coding-system-to-mime-charset)))
+	  (defalias 'w3m-coding-system-to-charset
+	    'coding-system-to-mime-charset)
+	  (w3m-coding-system-to-charset coding-system))
+      (or (coding-system-get coding-system :mime-charset)
+	  (coding-system-get coding-system 'mime-charset)))))
+
+;; FIXME: we need to investigate the kind of Content-Charsets being
+;; actually possible.
+(defun w3m-read-content-charset (prompt &optional default)
+  "Read a content charset from the minibuffer, prompting with string PROMPT.
+The second argument DEFAULT is the default value, which is used as the
+value to return if the user enters the empty string."
+  (let ((charset (completing-read
+		  prompt
+		  (nconc
+		   (mapcar (lambda (c) (cons (symbol-name c) c))
+			   (coding-system-list))
+		   (mapcar (lambda (c) (cons (symbol-name (car c)) c))
+			   w3m-charset-coding-system-alist))
+		  nil t)))
+    (if (string= "" charset)
+	default
+      charset)))
+
+
+;;; Handling encoding of contents:
+(defun w3m-decode-encoded-contents (encoding)
+  "Decode encoded contents in the current buffer.
+It supports the encoding types of gzip, bzip2, deflate, etc."
+  (let ((x (and (stringp encoding)
+		(assoc (downcase encoding) w3m-encoding-alist))))
+    (or (not (and x (setq x (cdr (assq (cdr x) w3m-decoder-alist)))))
+	(let ((coding-system-for-write 'binary)
+	      (coding-system-for-read 'binary)
+	      (default-process-coding-system (cons 'binary 'binary)))
+	  (w3m-process-with-environment w3m-command-environment
+	    (zerop (apply 'call-process-region
+			  (point-min) (point-max)
+			  (w3m-which-command (car x))
+			  t '(t nil) nil (cadr x))))))))
+
+(defmacro w3m-correct-charset (charset)
+  `(or (and ,charset (stringp ,charset)
+	    (cdr (assoc (downcase ,charset) w3m-correct-charset-alist)))
+       ,charset))
+
+(defun w3m-detect-meta-charset ()
+  (let ((case-fold-search t))
+    (goto-char (point-min))
+    (catch 'found
+      (while (re-search-forward "<meta[ \t\r\f\n]+" nil t)
+	(w3m-parse-attributes ((http-equiv :case-ignore)
+			       (content :case-ignore))
+	  (when (and (string= http-equiv "content-type")
+		     content
+		     (string-match ";[ \t\n]*charset=\\([^\";]+\\)" content))
+	    (throw 'found (match-string 1 content))))))))
+
+(defun w3m-detect-xml-charset ()
+  (let ((case-fold-search t))
+    (goto-char (point-min))
+    (when (looking-at "[ \t\r\f\n]*<\\?xml[ \t\r\f\n]+")
+      (goto-char (match-end 0))
+      (or (w3m-parse-attributes ((encoding :case-ignore))
+	    encoding)
+	  "utf-8"))))
+
+(defvar w3m-compatible-encoding-alist
+  '((gb2312 . gbk)
+    (iso-8859-1 . windows-1252)
+    (iso-8859-8 . windows-1255)
+    (iso-8859-9 . windows-1254))
+  "Alist of encodings and those supersets.
+The cdr of each element is used to decode data if it is available when
+the car is what the data specify as the encoding.  Or, the car is used
+for decoding when the cdr that the data specify is not available.")
+
+(defvar w3m-view-source-decode-level 0
+  "Say whether `w3m-view-source' decodes html sources.
+Users should never modify the value.  See also `w3m-view-source'.")
+
+(defun w3m-decode-buffer (url &optional content-charset content-type)
+  (let* ((sourcep (string-match "\\`about://source/" url))
+	 (level (if sourcep w3m-view-source-decode-level 0))
+	 cs)
+    (unless (>= level 4)
+      (unless content-type
+	(setq content-type (w3m-content-type url)))
+      (unless content-charset
+	(setq content-charset
+	      (or (w3m-content-charset url)
+		  (when (or (string= "text/html" content-type) sourcep)
+		    (w3m-detect-meta-charset))
+		  (w3m-detect-xml-charset))))
+      (cond
+       ((or (and (stringp content-charset)
+		 (string= "x-moe-internal" (downcase content-charset)))
+	    (eq content-charset 'x-moe-internal))
+	(setq cs (w3m-x-moe-decode-buffer))
+	(setq content-charset (symbol-name cs)))
+       (content-charset
+	(setq content-charset (w3m-correct-charset content-charset))
+	(setq cs (w3m-charset-to-coding-system content-charset))))
+      (setq w3m-current-content-charset content-charset)
+      (unless cs
+	(setq cs (w3m-detect-coding-region
+		  (point-min) (point-max) (if (w3m-url-local-p url)
+					      nil
+					    w3m-coding-system-priority-list))))
+      (setq w3m-current-coding-system
+	    (or (w3m-find-coding-system
+		 (cdr (assq cs w3m-compatible-encoding-alist)))
+		(w3m-find-coding-system cs)
+		(w3m-find-coding-system
+		 (car (rassq cs w3m-compatible-encoding-alist)))))
+      ;; Decode `&#nnn;' entities in 128..159 and 160.
+      (when (and (<= level 1)
+		 (rassq w3m-current-coding-system
+			w3m-compatible-encoding-alist))
+	(goto-char (point-min))
+	(let ((case-fold-search t))
+	  (while (re-search-forward "\
+\\(?:&#\\(12[89]\\|1[3-5][0-9]\\)\;\\)\\|\\(?:&#x\\([89][0-9a-f]\\)\;\\)"
+				    nil t)
+	    (insert (prog1
+			(if (match-beginning 1)
+			    (string-to-number (match-string 1))
+			  (string-to-number (match-string 2) 16))
+		      (delete-region (match-beginning 0) (match-end 0)))))
+	  (goto-char (point-min))
+	  (while (re-search-forward "\240\\|&#160;\\|&#xa0;" nil t)
+	    (replace-match "&nbsp;"))))
+      (insert
+       (prog1
+	   (decode-coding-string (buffer-string) w3m-current-coding-system)
+	 (erase-buffer)
+	 (set-buffer-multibyte t))))))
+
+(defun w3m-x-moe-decode-buffer ()
+  (let ((args '("-i" "-cs" "x-moe-internal"))
+	(coding-system-for-read 'binary)
+	(coding-system-for-write 'binary)
+	(default-process-coding-system (cons 'binary 'binary))
+	charset)
+    (if (w3m-find-coding-system 'utf-8)
+	(setq args (append args '("-o" "-cs" "utf-8"))
+	      charset 'utf-8)
+      (setq args
+	    (append args (list "-o" "-cs" (symbol-name w3m-coding-system))))
+      (setq charset w3m-coding-system))
+    (w3m-process-with-environment w3m-command-environment
+      (apply 'call-process-region (point-min) (point-max)
+	     w3m-mbconv-command t t nil args))
+    charset))
+
+(defun w3m-safe-decode-buffer (url &optional content-charset content-type)
+  (and (not w3m-current-coding-system)
+       (stringp content-type)
+       (string-match "\\`text/" content-type)
+       (w3m-decode-buffer url content-charset content-type)))
+
+;;; Retrieving local data:
+(defun w3m-local-file-type (url)
+  "Return the content type and the content encoding of URL."
+  (setq url (or (w3m-url-to-file-name url)
+		(file-name-nondirectory url)))
+  (if (or (and (file-name-absolute-p url)
+	       (file-directory-p url))
+	  (string-match "\\`news:" url)) ;; FIXME: isn't this a kludge?
+      (cons "text/html" nil)
+    (let ((encoding
+	   (catch 'encoding-detected
+	     (dolist (elem w3m-encoding-type-alist)
+	       (when (string-match (car elem) url)
+		 (setq url (substring url 0 (match-beginning 0)))
+		 (throw 'encoding-detected (cdr elem)))))))
+      (cons (catch 'type-detected
+	      (dolist (elem w3m-content-type-alist)
+		(when (and (cadr elem) (string-match (cadr elem) url))
+		  (throw 'type-detected (car elem))))
+	      "unknown")
+	    encoding))))
+
+(defmacro w3m-local-content-type (url)
+  `(car (w3m-local-file-type ,url)))
+
+(defun w3m-local-attributes (url &rest args)
+  "Return a list of attributes corresponding to URL.
+Return nil if it failed in retrieving of the header.
+Otherwise, return a list which includes the following elements:
+
+ 0. Type of contents.
+ 1. Charset of contents.
+ 2. Size in bytes.
+ 3. Encoding of contents.
+ 4. Last modification time.
+ 5. Real URL.
+"
+  (let* ((file (w3m-url-to-file-name url))
+	 (attr (when (file-exists-p file)
+		 (file-attributes file)))
+	 (type (w3m-local-file-type url)))
+    (list (or (w3m-arrived-content-type url) (car type))
+	  nil
+	  (nth 7 attr)
+	  (cdr type)
+	  (nth 5 attr)
+	  (w3m-expand-file-name-as-url (file-truename file)))))
+
+(defun w3m-local-retrieve (url &optional no-uncompress &rest args)
+  "Retrieve contents of local URL and put it into the current buffer.
+This function will return the content-type of URL as a string when
+retrieval is successful."
+  (let ((file (w3m-url-to-file-name url)))
+    (when (file-readable-p file)
+      (if (file-directory-p file)
+	  (w3m-local-dirlist-cgi url)
+	(let ((coding-system-for-read 'binary))
+	  (if no-uncompress
+	      (let (jka-compr-compression-info-list
+		    format-alist)
+		(insert-file-contents file))
+	    (insert-file-contents file))))
+      (or (w3m-arrived-content-type url)
+	  (w3m-local-content-type file)))))
+
+(defun w3m-local-dirlist-cgi (url)
+  (w3m-message "Reading %s..." (w3m-url-readable-string url))
+  (if w3m-dirlist-cgi-program
+      (if (file-executable-p w3m-dirlist-cgi-program)
+	  (let ((coding-system-for-read 'binary)
+		(default-process-coding-system
+		  (cons 'binary 'binary))
+		(lcookie (make-temp-name
+			  (format "%s.%d." (user-login-name) (emacs-pid))))
+		(cfile (make-temp-name
+			(expand-file-name "w3melck" w3m-profile-directory)))
+		(env (copy-sequence w3m-command-environment))
+		file)
+	    (with-temp-buffer
+	      (insert lcookie)
+	      (write-region (point-min) (point-max) cfile 'nomsg))
+	    (w3m-process-with-environment
+		(append
+		 (list
+		  (cons "LOCAL_COOKIE" lcookie)
+		  (cons "LOCAL_COOKIE_FILE" cfile)
+		  (cons "QUERY_STRING"
+			(format
+			 "dir=%s&cookie=%s"
+			 (encode-coding-string (w3m-url-to-file-name url)
+					       w3m-file-name-coding-system)
+			 lcookie)))
+		 (delq (assoc "LOCAL_COOKIE" env)
+		       (delq (assoc "LOCAL_COOKIE_FILE" env)
+			     (delq (assoc "QUERY_STRING" env) env))))
+	      (call-process w3m-dirlist-cgi-program nil t nil))
+	    ;; delete local cookie file
+	    (when (and (file-exists-p cfile) (file-writable-p cfile))
+	      (delete-file cfile))
+	    (goto-char (point-min))
+	    (when (re-search-forward "^<html>" nil t)
+	      (delete-region (point-min) (match-beginning 0))
+	      (while (re-search-forward "<a href=\"\\([^\"]+\\)\"\\(?:>\\| \\)"
+					nil t)
+		(setq file (match-string 1))
+		(delete-region (goto-char (match-beginning 1)) (match-end 1))
+		(if (file-directory-p file)
+		    (setq file (w3m-expand-file-name-as-url
+				(file-name-as-directory file)))
+		  (setq file (w3m-expand-file-name-as-url file)))
+		(insert (encode-coding-string
+			 (w3m-url-decode-string file
+						w3m-file-name-coding-system)
+			 w3m-file-name-coding-system)))))
+	(error "Can't execute: %s" w3m-dirlist-cgi-program))
+    ;; execute w3m internal CGI
+    (w3m-process-with-wait-handler
+      (setq w3m-current-url url)
+      (w3m-process-start handler
+			 w3m-command
+			 (append w3m-command-arguments
+				 (list "-dump_source" url)))))
+  ;; bind charset to w3m-file-name-coding-system
+  (let ((charset (or (car (rassq w3m-file-name-coding-system
+				 w3m-charset-coding-system-alist))
+		     w3m-file-name-coding-system))
+	beg)
+    (goto-char (point-min))
+    (when (search-forward "<head>" nil t)
+      (insert "\n<meta http-equiv=\"CONTENT-TYPE\" "
+	      "content=\"text/html; charset="
+	      (symbol-name charset)
+	      "\">"))
+    (goto-char (point-min))
+    ;; Remove <form>...</form>
+    (when (search-forward "<form " nil t)
+      (setq beg (match-beginning 0))
+      (when (search-forward "</form>" nil t)
+	(delete-region beg (match-end 0)))))
+  (w3m-message "Reading %s...done" (w3m-url-readable-string url)))
+
+;;; Retrieving data via HTTP:
+(defun w3m-remove-redundant-spaces (str)
+  "Remove leading and trailing whitespace from STR."
+  (save-match-data
+    (when (string-match "\\`[ \t\r\f\n]+" str)
+      (setq str (substring str (match-end 0))))
+    (if (string-match "[ \t\r\f\n]+\\'" str)
+	(substring str 0 (match-beginning 0))
+      str)))
+
+(defun w3m-w3m-parse-header (url header)
+  "Parse a given string HEADER as a MIME header of URL.
+Return a list which includes:
+
+ 0. Status code.
+ 1. Type of contents.
+ 2. Charset of contents.
+ 3. Size in bytes.
+ 4. Encoding of contents.
+ 5. Last modification time.
+ 6. Real URL.
+"
+  (let ((case-fold-search t)
+	(headers)
+	(status))
+    (dolist (line (split-string header "[ \f\t\r]*\n"))
+      (cond
+       ((string-match "\\`HTTP/1\\.[0-9] \\([0-9][0-9][0-9]\\)\\b" line)
+	(setq status (string-to-number (match-string 1 line))))
+       ((string-match (eval-when-compile
+			(concat "\\`\\("
+				(regexp-opt
+				 '(;; MEMO: $B%U%!%$%k$r%@%&%s%m!<%I$9$k(B
+				   ;; $B$H$-$N(B $BE,@Z$J%G%U%)%k%HL>$r7hDj(B
+				   ;; $B$9$k$?$a$K$O(B content-disposition
+				   ;; $B$N2r<a$,I,MW!%(B
+				   "content-disposition"
+				   "content-encoding"
+				   "content-length"
+				   ;; MEMO: See [emacs-w3m:02341].
+				   "content-transfer-encoding"
+				   "content-type"
+				   "last-modified"
+				   "location"
+				   "w3m-current-url"
+				   "w3m-document-charset"
+				   "w3m-ssl-certificate"
+				   "x-w3m-content-encoding"
+				   "alternates"))
+				"\\):[ \t]*"))
+		      line)
+	(push (cons (downcase (match-string 1 line))
+		    (substring line (match-end 0)))
+	      headers))))
+    (let (alt real-url type charset xmoe)
+      (when (and (setq alt (cdr (assoc "alternates" headers)))
+		 (string-match "\\`{[\t ]*\"\\(.+\\)\"" alt))
+	(setq real-url (w3m-expand-url (match-string 1 alt) url))
+	(when (string-match "{[\t ]*type[\t ]+\\([^\t }]+\\)" alt)
+	  (setq type (downcase (match-string 1 alt))))
+	(when (string-match "{[\t ]*charset[\t ]+\\([^\t }]+\\)" alt)
+	  (setq charset (downcase (match-string 1 alt)))))
+      (when (and (not type)
+		 (setq type (cdr (assoc "content-type" headers))))
+	(if (string-match ";[ \t]*charset=\"?\\([^\"]+\\)\"?" type)
+	    (setq charset (w3m-remove-redundant-spaces
+			   (match-string 1 type))
+		  type (w3m-remove-redundant-spaces
+			(substring type 0 (match-beginning 0))))
+	  (setq type (w3m-remove-redundant-spaces type)))
+	(when (string-match ";" type)
+	  (setq type (substring type 0 (match-beginning 0))))
+	(setq type (downcase type)))
+      (setq w3m-current-ssl (cdr (assoc "w3m-ssl-certificate" headers)))
+      (when (string-match "\\`ftps?:" url)
+	(setq url (or (cdr (assoc "w3m-current-url" headers))
+		      url)))
+      (when (and (setq xmoe (cdr (assoc "w3m-document-charset" headers)))
+		 (string= xmoe "x-moe-internal"))
+	(setq charset xmoe))
+      (list status
+	    (if (string-match "\\`ftps?:.*/\\'" url)
+		"text/html"
+	      (or type (w3m-local-content-type url)))
+	    (if (string-match "\\`ftps?:.*/\\'" url)
+		(if w3m-accept-japanese-characters
+		    "w3m-euc-japan" "w3m-iso-latin-1")
+	      charset)
+	    (let ((v (cdr (assoc "content-length" headers))))
+	      (and v (setq v (string-to-number v)) (> v 0) v))
+	    (cdr (or (assoc "content-encoding" headers)
+		     (assoc "x-w3m-content-encoding" headers)))
+	    (let ((v (cdr (assoc "last-modified" headers))))
+	      (and v (w3m-time-parse-string v)))
+	    (or real-url
+		(let ((v (cdr (assoc "location" headers))))
+		  ;; RFC2616 says that the field value of the Location
+		  ;; response-header consists of a single absolute
+		  ;; URI.  However, some broken servers return
+		  ;; relative URIs.
+		  (and v (w3m-expand-url v url)))
+		url)))))
+
+(defun w3m-w3m-dump-head (url handler)
+  "Return the header string of URL."
+  (lexical-let ((url url)
+		(silent w3m-message-silent))
+    (w3m-message "Request sent, waiting for response...")
+    (w3m-process-do-with-temp-buffer
+	(success (progn
+		   (setq w3m-current-url url
+			 url (w3m-url-strip-authinfo url))
+		   (w3m-process-start handler
+				      w3m-command
+				      (append w3m-command-arguments
+					      (list "-o" "follow_redirection=0"
+						    "-dump_head" url)))))
+      (let ((w3m-message-silent silent))
+	(w3m-message "Request sent, waiting for response...done")
+	(when success
+	  (buffer-string))))))
+
+(defun w3m-w3m-canonicalize-url (url)
+  "Add a slash to an URL, when its server part is not ended with a slash."
+  ;; Because URLs encountered in WEB documents are no less reliable
+  ;; than URLs given by users, a minimum canonicalization may be
+  ;; required in the backend side.  For more detail, please see
+  ;; [emacs-w3m:07000].
+  (if (string-match "\\`\\(?:ht\\|f\\)tps?://[^/]+\\'" url)
+      (concat url "/")
+    url))
+
+(defun w3m-w3m-attributes (url no-cache handler)
+  "Return a list of attributes corresponding to URL.
+Return nil if it failed in retrieving of the header.
+Otherwise, return a list which includes the following elements:
+
+ 0. Type of contents.
+ 1. Charset of contents.
+ 2. Size in bytes.
+ 3. Encoding of contents.
+ 4. Last modification time.
+ 5. Real URL.
+
+If the optional argument NO-CACHE is non-nil, cache is not used."
+  (w3m-w3m-attributes-1 (w3m-w3m-canonicalize-url url)
+			no-cache
+			(or w3m-follow-redirection 0)
+			handler))
+
+(defun w3m-w3m-attributes-1 (url no-cache counter handler)
+  "A subroutine for `w3m-w3m-attributes'."
+  (lexical-let ((url url)
+		(no-cache no-cache)
+		(counter counter))
+    (w3m-process-do
+	(header (or (unless no-cache
+		      (w3m-cache-request-header url))
+		    (w3m-w3m-dump-head url handler)))
+      (when header
+	(let ((attr (w3m-w3m-parse-header url header)))
+	  (w3m-cache-header url header)
+	  (if (memq (car attr) '(301 302 303 304 305 306 307))
+	      (if (zerop counter)
+		  ;; Redirect counter exceeds `w3m-follow-redirection'.
+		  (list "text/html" "us-ascii" nil nil nil url)
+		;; Follow redirection.
+		(w3m-w3m-attributes-1 (nth 6 attr) no-cache
+				      (1- counter) handler))
+	    (cdr attr)))))))
+
+(defun w3m-w3m-expand-arguments (arguments)
+  (apply 'append
+	 (mapcar
+	  (lambda (x)
+	    (cond
+	     ((stringp x) (list x))
+	     ((setq x (eval x))
+	      (cond ((stringp x)
+		     (list x))
+		    ((listp x)
+		     (w3m-w3m-expand-arguments x))
+		    (t
+		     (let (print-level print-length)
+		       (list (prin1-to-string x))))))))
+		arguments)))
+
+(defun w3m-w3m-dump-extra (url handler)
+  "Retrive headers and contents pointed to by URL"
+  (lexical-let ((url url)
+		(silent w3m-message-silent))
+    (setq w3m-current-url url
+	  url (w3m-url-strip-authinfo url))
+    (w3m-message "Reading %s...%s"
+		 (w3m-url-readable-string url)
+		 (if (and w3m-async-exec (not w3m-process-waited))
+		     (substitute-command-keys "\
+ (Type `\\<w3m-mode-map>\\[w3m-process-stop]' to stop asynchronous process)")
+		   ""))
+    (w3m-process-do
+	(success
+	 (w3m-process-start handler
+			    w3m-command
+			    (append w3m-command-arguments
+				    (w3m-w3m-expand-arguments
+				     w3m-dump-head-source-command-arguments)
+				    (list url))))
+      (let ((w3m-message-silent silent))
+	(w3m-message "Reading %s...done" (w3m-url-readable-string url))
+	(when success
+	  (goto-char (point-min))
+	  (let ((case-fold-search t))
+	    (when (and (re-search-forward "^w3m-current-url:" nil t)
+		       (progn
+			 (delete-region (point-min) (match-beginning 0))
+			 (search-forward "\n\n" nil t)))
+	      (let ((header (buffer-substring (point-min) (point))))
+		(when w3m-use-cookies
+		  (w3m-cookie-set url (point-min) (point)))
+		(delete-region (point-min) (point))
+		(w3m-cache-header url header)
+		(w3m-cache-contents url (current-buffer))
+		(w3m-w3m-parse-header url header)))))))))
+
+(defun w3m-additional-command-arguments (url)
+  "Return a list of additional arguments passed to the w3m command.
+You may specify additional arguments for the particular urls using the
+option `w3m-command-arguments-alist', or using `w3m-no-proxy-domains'
+to add the option \"-no-proxy\"."
+  (let ((defs w3m-command-arguments-alist)
+	def args host)
+    (while (and defs
+		(null args))
+      (setq def (car defs)
+	    defs (cdr defs))
+      (when (string-match (car def) url)
+	(setq args (cdr def))))
+    (when (and w3m-no-proxy-domains
+	       (not (member "-no-proxy" args))
+	       (string-match "^[a-z]+://\\([^/:]+\\)" url)
+	       (catch 'domain-match
+		 (setq host (match-string 1 url))
+		 (dolist (domain w3m-no-proxy-domains)
+		   (when (string-match (concat "\\(?:^\\|\\.\\)"
+					       (regexp-quote domain)
+					       "$")
+				       host)
+		     (throw 'domain-match t)))))
+      (push "-no-proxy" args))
+    args))
+
+(defun w3m-add-referer-p (url referer)
+  "Return non-nil when URL and REFERER satisfies the condition
+specified by `w3m-add-referer'."
+  (when (stringp referer)
+    (cond
+     ((eq w3m-add-referer 'lambda)
+      (let (host)
+	(w3m-string-match-url-components url)
+	(when (match-beginning 4)
+	  (setq host (match-string 4 url))
+	  (w3m-string-match-url-components referer)
+	  (when (match-beginning 4)
+	    (string= host (match-string 4 referer))))))
+     ((consp w3m-add-referer)
+      (and (not (and (cdr w3m-add-referer)
+		     (string-match (cdr w3m-add-referer) referer)))
+	   (car w3m-add-referer)
+	   (string-match (car w3m-add-referer) referer)))
+     ((functionp w3m-add-referer)
+      (funcall w3m-add-referer url referer))
+     (t w3m-add-referer))))
+
+;; Currently, -request argument is supported only by w3mmee.
+(defun w3m-request-arguments (method url temp-file
+				     &optional body referer content-type)
+  "Make the arguments for `-request' or `-header' option passed to w3m.
+METHOD is an HTTP method name.
+TEMP-FILE is a name of temporal file to write request content to.
+Optional BODY is the body content string.
+Second optional REFERER is the Referer: field content.
+Third optional CONTENT-TYPE is the Content-Type: field content."
+  (with-temp-buffer
+    (let ((modes (default-file-modes))
+	  (cookie (and w3m-use-cookies (w3m-cookie-get url))))
+      (if (and (null cookie)(null body)
+	       (null content-type))
+	  (append
+	   (when w3m-add-user-agent
+	     (list "-header" (concat "User-Agent:" w3m-user-agent)))
+	   (when (w3m-add-referer-p url referer)
+	     (list "-header" (concat "Referer: " referer)))
+	   (when w3m-accept-languages
+	     (list "-header" (concat
+			      "Accept-Language: "
+			      (mapconcat 'identity w3m-accept-languages
+					 " ")))))
+	(when w3m-add-user-agent (insert "User-Agent: " w3m-user-agent "\n"))
+	(when (w3m-add-referer-p url referer)
+	  (insert "Referer: " referer "\n"))
+	(when w3m-accept-languages
+	  (insert "Accept-Language: "
+		  (mapconcat 'identity w3m-accept-languages " ") "\n"))
+	(when cookie
+	  (insert "Cookie: " cookie "\n"))
+	(when content-type
+	  (insert "Content-Type: " content-type "\n"))
+	(insert "\n")
+	(when body
+	  (insert body))
+	(unwind-protect
+	    (let ((coding-system-for-write 'binary))
+	      (set-default-file-modes (* 64 6))
+	      (write-region (point-min) (point-max) temp-file nil 'silent))
+	  (set-default-file-modes modes))
+	(list "-request" (concat method ":" temp-file))))))
+
+;; Currently, w3m uses this function.
+(defun w3m-header-arguments (method url temp-file
+				    &optional body referer content-type)
+  "Make the arguments for the `-header' option passed to the w3m command.
+METHOD is an HTTP method name.
+TEMP-FILE is a name of temporal file to write post body to.
+Optional BODY is the post body content string.
+Optional second REFERER is the Referer: field content.
+Third optional CONTENT-TYPE is the Content-Type: field content."
+  (let ((modes (default-file-modes))
+	(cookie (and w3m-use-cookies (w3m-cookie-get url)))
+	args)
+    (when w3m-add-user-agent
+      (setq args (nconc args
+			(list "-o" (concat "user_agent=" w3m-user-agent)))))
+    (when cookie
+      (setq args (nconc args
+			(list "-header" (concat "Cookie: " cookie)))))
+    (when (and (string= method "post") temp-file)
+      (with-temp-buffer
+	(set-buffer-multibyte nil)
+	(when body (insert body))
+	(unwind-protect
+	    (let ((coding-system-for-write 'binary))
+	      (set-default-file-modes (* 64 6))
+	      (write-region (point-min) (point-max) temp-file nil 'silent))
+	  (set-default-file-modes modes)))
+      (setq args (nconc args
+			(when content-type
+			  (list "-header" (concat "Content-Type: "
+						  content-type)))
+			(list "-post" temp-file))))
+    (when (w3m-add-referer-p url referer)
+      (setq args (nconc args (list "-header" (concat "Referer: " referer)))))
+    args))
+
+(defun w3m-w3m-retrieve (url no-uncompress no-cache post-data referer handler)
+  "Retrieve web contents pointed to by URL using the external w3m command.
+It will put the retrieved contents into the current buffer.  See
+`w3m-retrieve' for how does it work asynchronously with the arguments."
+  (lexical-let ((url (w3m-w3m-canonicalize-url url))
+		(no-uncompress no-uncompress)
+		(current-buffer (current-buffer))
+		(silent w3m-message-silent))
+    (w3m-process-do-with-temp-buffer
+	(attr (progn
+		(set-buffer-multibyte nil)
+		(w3m-w3m-retrieve-1 url post-data referer no-cache
+				    (or w3m-follow-redirection 0) handler)))
+      (let ((w3m-message-silent silent))
+	(when attr
+	  (cond
+	   ((eq attr 'redirection-exceeded)
+	    "X-w3m-error/redirection")
+	   ((or (not (string-match "\\`https?:" url))
+		(memq (car attr) '(200 300)))
+	    (if (or no-uncompress
+		    (w3m-decode-encoded-contents (nth 4 attr)))
+		(let ((temp-buffer (current-buffer)))
+		  (with-current-buffer current-buffer
+		    (insert-buffer-substring temp-buffer))
+		  (goto-char (point-min))
+		  (cadr attr))
+	      (ding)
+	      (w3m-message "Can't decode encoded contents: %s" url)
+	      nil))
+	   (t nil)))))))
+
+(defun w3m-w3m-retrieve-1 (url post-data referer no-cache counter handler)
+  "A subroutine for `w3m-w3m-retrieve'."
+  (let ((w3m-command-arguments
+	 (append w3m-command-arguments
+		 (when (member "cookie" w3m-compile-options)
+		   (list "-no-cookie"))
+		 (list "-o" "follow_redirection=0")
+		 (w3m-additional-command-arguments url)))
+	(cachep (w3m-cache-available-p url))
+	temp-file)
+    (when (and w3m-broken-proxy-cache
+	       (or no-cache (not cachep)))
+      (setq w3m-command-arguments
+	    (append w3m-command-arguments '("-o" "no_cache=1"))))
+    (setq temp-file
+	  (when (or (eq w3m-type 'w3mmee) post-data)
+	    (make-temp-name
+	     (expand-file-name "w3mel" w3m-profile-directory))))
+    (setq w3m-command-arguments
+	  (append w3m-command-arguments
+		  (apply (if (eq w3m-type 'w3mmee)
+			     'w3m-request-arguments
+			   'w3m-header-arguments)
+			 (list (if post-data "post" "get")
+			       url
+			       temp-file
+			       (if (consp post-data)
+				   (cdr post-data)
+				 post-data)
+			       referer
+			       (if (consp post-data) (car post-data))))))
+    (lexical-let ((url url)
+		  (post-data post-data)
+		  (referer referer)
+		  (no-cache no-cache)
+		  (counter counter)
+		  (temp-file temp-file))
+      (w3m-process-do
+	  (attr (or (unless no-cache
+		      (and cachep
+			   (w3m-cache-request-contents url)
+			   (w3m-w3m-parse-header
+			    url (w3m-cache-request-header url))))
+		    (w3m-w3m-dump-extra url handler)))
+	(and temp-file
+	     (file-exists-p temp-file)
+	     (delete-file temp-file))
+	(if (memq (car attr) '(301 302 303 304 305 306 307))
+	    (if (zerop counter)
+		;; Redirect counter exceeds `w3m-follow-redirection'.
+		'redirection-exceeded
+	      ;; Follow redirection.
+	      (erase-buffer)
+	      (unless (and post-data
+			   (cond
+			    ((memq (car attr) '(301 302))
+			     (if w3m-redirect-with-get
+				 (setq post-data nil)
+			       (not (y-or-n-p
+				     (format "Send POST data to `%s'?" url)))))
+			    ((eq (car attr) 303) ; => See Other
+			     (setq post-data nil))
+			    ((eq (car attr) 307) ; => Temporally Redirect
+			     (not (y-or-n-p
+				   (format "Send POST data to `%s'?" url))))))
+		(w3m-w3m-retrieve-1 (nth 6 attr)
+				    post-data referer no-cache
+				    (1- counter) handler)))
+	  (if (and (eq (car attr) 406)
+		   (not (equal url (nth 6 attr))))
+	      ;; Attempt to retrieve an alternative url.
+	      (progn
+		(erase-buffer)
+		(w3m-w3m-retrieve-1 (nth 6 attr) post-data referer no-cache
+				    counter handler))
+	    attr))))))
+
+(defun w3m-about-retrieve (url &optional no-uncompress no-cache
+			       post-data referer handler)
+  "Retrieve the about: page which is pointed to by URL.
+It will put the retrieved contents into the current buffer.  See
+`w3m-retrieve' for how does it work asynchronously with the arguments."
+  (cond
+   ((string= "about://emacs-w3m.gif" url)
+    (let ((icon (base64-decode-string w3m-emacs-w3m-icon)))
+      (if (featurep 'xemacs)
+	  (insert icon)
+	(set-buffer-multibyte (multibyte-string-p icon))
+	(insert icon)
+	(set-buffer-multibyte nil)))
+    "image/gif")
+   ((string-match "\\`about://source/" url)
+    (lexical-let ((url (substring url (match-end 0))))
+      (w3m-process-do
+	  (type (w3m-retrieve url
+			      no-uncompress no-cache post-data referer handler))
+	(cond
+	 (type "text/plain")
+	 ((w3m-cache-request-contents url)
+	  (w3m-decode-encoded-contents (w3m-content-encoding url))
+	  "text/plain")
+	 (t nil)))))
+   ((string-match "\\`about:/*blank/?\\'" url)
+    "text/plain")
+   (t
+    (lexical-let ((output-buffer (current-buffer)))
+      (w3m-process-do-with-temp-buffer
+	  (type (let (func)
+		  (setq w3m-current-url url)
+		  (set-buffer-multibyte t)
+		  (if (and (string-match "\\`about://\\([^/]+\\)/" url)
+			   (setq func
+				 (intern-soft (concat "w3m-about-"
+						      (match-string 1 url))))
+			   (fboundp func))
+		      (funcall func url no-uncompress no-cache
+			       post-data referer handler)
+		    (w3m-about url no-uncompress no-cache))))
+	(when type
+	  (when (string-match "\\`text/" type)
+	    (encode-coding-region (point-min) (point-max) w3m-coding-system))
+	  (set-buffer-multibyte nil)
+	  (when (buffer-name output-buffer)
+	    (let ((temp-buffer (current-buffer)))
+	      (with-current-buffer output-buffer
+		(insert-buffer-substring temp-buffer))))
+	  type))))))
+
+(defun w3m-cid-retrieve (url &optional no-uncompress no-cache)
+  "Retrieve contents pointed to by URL prefixed with the cid: scheme.
+This function is mainly used when displaying text/html MIME parts in
+message user agents, e.g., Gnus, Mew, T-gnus, Wanderlust, and possibly
+VM.
+
+It calls a function according to the `major-mode' of the buffer
+specified by `w3m-current-buffer'.  Functions to be called are
+specified by the `w3m-cid-retrieve-function-alist' variable.
+
+Each function in that variable should take three arguments passed
+through this function, extract and insert contents specified by URL
+\(which can be found in the raw message itself) into the current buffer,
+and return the content type of the data.
+
+The optional two arguments can be omitted by functions; NO-UNCOMPRESS
+specifies whether functions should not uncompress extracted contents;
+NO-CACHE specifies whether functions should not use cached contents."
+  (let ((func (cdr (assq (with-current-buffer w3m-current-buffer major-mode)
+			 w3m-cid-retrieve-function-alist))))
+    (when func (funcall func url no-uncompress no-cache))))
+
+(defun w3m-data-retrieve (url &optional no-uncompress no-cache)
+  "Retrieve contents pointed to by URL prefixed with the data: scheme.
+See RFC2397."
+  (let ((case-fold-search t) (mime-type "text/plain")
+	(coding nil) (encode nil) (param "")
+	data-string)
+    (when (string-match
+	   "data:\\(\\([^/;,]+\\(/[^;,]+\\)?\\)\\(;[^;,]+\\)*\\)?,\\(.*\\)"
+	   url)
+      (setq  mime-type (or (match-string-no-properties 2 url)
+			   mime-type)
+	     param (or (match-string-no-properties 4 url)
+		       param)
+	     data-string (match-string-no-properties 5 url))
+      (when (string-match "^.*\\(;[ \t]*base64\\)$" param)
+	(setq param (substring param 0 (match-beginning 1)))
+	(setq encode 'base64))
+      (when (string-match "charset=\\([^;]+\\)" param)
+	(setq coding (w3m-charset-to-coding-system
+		      (match-string-no-properties 1 param))))
+      (when data-string
+	(erase-buffer)
+	(let (decode-string)
+	  (setq decode-string
+		(cond
+		 ((eq encode 'base64)
+		  (base64-decode-string data-string))
+		 (t
+		  (w3m-url-decode-string
+		   data-string coding))))
+	  (set-buffer-multibyte nil)
+	  (if (featurep 'xemacs)
+	      (insert decode-string)
+	    (set-buffer-multibyte (multibyte-string-p decode-string))
+	    (insert decode-string)
+	    (set-buffer-multibyte nil)))))
+    mime-type))
+
+;;;###autoload
+(defun w3m-retrieve (url &optional no-uncompress no-cache
+			 post-data referer handler)
+  "Retrieve web contents pointed to by URL.
+It will put the retrieved contents into the current buffer.
+
+If HANDLER is nil, this function will retrieve web contents, return
+the content type of the retrieved data, and then come to an end.  This
+behavior is what is called a synchronous operation.  You have to
+specify HANDLER in order to make this function show its real ability,
+which is called an asynchronous operation.
+
+If HANDLER is a function, this function will come to an end in no time.
+In this case, contents will be retrieved by the asynchronous process
+after a while.  And after finishing retrieving contents successfully,
+HANDLER will be called on the buffer where this function starts.  The
+content type of the retrieved data will be passed to HANDLER as a
+string argument.
+
+NO-UNCOMPRESS specifies whether this function should not uncompress contents.
+NO-CACHE specifies whether this function should not use cached contents.
+POST-DATA and REFERER will be sent to the web server with a request."
+  (if (not handler)
+      (condition-case nil
+	  (w3m-process-with-wait-handler
+	    (w3m-retrieve url
+			  no-uncompress no-cache post-data referer handler))
+	(w3m-process-timeout nil))
+    (unless (and w3m-safe-url-regexp
+		 (not (string-match w3m-safe-url-regexp url)))
+      (setq url (w3m-url-strip-fragment url))
+      (set-buffer-multibyte nil)
+      (cond
+       ((string-match "\\`about:" url)
+	(w3m-about-retrieve url
+			    no-uncompress no-cache post-data referer handler))
+       ((string-match "\\`cid:" url)
+	(w3m-cid-retrieve url no-uncompress no-cache))
+       ((string-match "\\`data:" url)
+	(w3m-data-retrieve url no-uncompress no-cache))
+       ((w3m-url-local-p url)
+	(w3m-local-retrieve url no-uncompress))
+       (t
+	(w3m-w3m-retrieve url
+			  no-uncompress no-cache post-data referer handler))))))
+
+(defvar w3m-touch-file-available-p 'undecided)
+
+(eval-and-compile
+  (if (fboundp 'set-file-times)
+      (defalias 'w3m-touch-file 'set-file-times)
+    (defun w3m-touch-file (file time)
+      "Change the access and/or modification TIME of the specified FILE."
+      ;; Check the validity of `touch' command.
+      (when (eq w3m-touch-file-available-p 'undecided)
+	(let ((file (make-temp-name
+		     (expand-file-name "w3mel" w3m-profile-directory)))
+	      time timefile)
+	  (while (progn
+		   (setq time (list (abs (% (random) 8192))
+				    (abs (% (random) 65536)))
+			 timefile (expand-file-name
+				   (format-time-string "%Y%m%d%H%M.%S" time)
+				   w3m-profile-directory))
+		   (file-exists-p timefile)))
+	  (unwind-protect
+	      (setq w3m-touch-file-available-p
+		    (when (w3m-which-command w3m-touch-command)
+		      (with-temp-buffer
+			(insert "touch check")
+			(write-region (point-min) (point-max) file nil 'nomsg))
+		      (and (let ((default-directory w3m-profile-directory)
+				 (w3m-touch-file-available-p t))
+			     (w3m-touch-file file time))
+			   (zerop (w3m-time-lapse-seconds
+				   time (nth 5 (file-attributes file)))))))
+	    (when (file-exists-p file)
+	      (ignore-errors (delete-file file)))
+	    (when (file-exists-p timefile)
+	      (ignore-errors (delete-file timefile))))))
+      (and w3m-touch-file-available-p
+	   time
+	   (w3m-which-command w3m-touch-command)
+	   (file-exists-p file)
+	   (zerop (let ((default-directory (file-name-directory file))
+			(coding-system-for-write
+			 (or
+			  (and (boundp 'file-name-coding-system)
+			       (symbol-value 'file-name-coding-system))
+			  (and (boundp 'default-file-name-coding-system)
+			       (symbol-value 'default-file-name-coding-system))
+			  ;; Some versions of X*macsen seem touched.
+			  (and (boundp 'coding-system-for-write)
+			       (symbol-value 'coding-system-for-write)))))
+		    (call-process w3m-touch-command nil nil nil
+				  "-t"
+				  (format-time-string "%Y%m%d%H%M.%S" time)
+				  file)))))))
+
+;;;###autoload
+(defun w3m-download (url &optional filename no-cache handler post-data)
+  "Download contents of URL to a file named FILENAME.
+NO-CHACHE (which the prefix argument gives when called interactively)
+specifies not using the cached data."
+  (interactive
+   (let* ((url (w3m-input-url "Download URL: "))
+	  (basename (file-name-nondirectory (w3m-url-strip-query url))))
+     (if (string-match "^[\t ]*$" basename)
+	 (list url
+	       (w3m-read-file-name (format "Download %s to: " url)
+				   w3m-default-save-directory "index.html")
+	       current-prefix-arg)
+       (list url
+	     (w3m-read-file-name (format "Download %s to: " basename)
+				 w3m-default-save-directory basename)
+	     current-prefix-arg))))
+  (if (and w3m-use-ange-ftp (string-match "\\`ftp://" url))
+      (w3m-goto-ftp-url url filename)
+    (lexical-let ((url url)
+		  (filename (or filename (w3m-read-file-name nil nil url))))
+      (w3m-process-do-with-temp-buffer
+	  (type (progn
+		  (w3m-clear-local-variables)
+		  (setq w3m-current-url url)
+		  (w3m-retrieve url t no-cache post-data nil handler)))
+	(if type
+	    (let ((buffer-file-coding-system 'binary)
+		  (coding-system-for-write 'binary)
+		  jka-compr-compression-info-list
+		  format-alist)
+	      (when (or (not (file-exists-p filename))
+			(prog1 (y-or-n-p
+				(format "File(%s) already exists. Overwrite? "
+					filename))
+			  (message nil)))
+		(write-region (point-min) (point-max) filename)
+		(w3m-touch-file filename (w3m-last-modified url))
+		t))
+	  (ding)
+	  (message "Cannot retrieve URL: %s%s"
+		   url
+		   (if w3m-process-exit-status
+		       (format " (exit status: %s)" w3m-process-exit-status)
+		     ""))
+	  nil)))))
+
+;;; Retrieve data:
+(w3m-make-ccl-coding-system
+ 'w3m-euc-japan ?E
+ "ISO 2022 based EUC encoding for Japanese with w3m internal characters.
+  (generated by `w3m')"
+ 'w3m-euc-japan-decoder
+ 'w3m-euc-japan-encoder)
+
+(w3m-make-ccl-coding-system
+ 'w3m-iso-latin-1 ?1
+ "ISO 2022 based 8-bit encoding for Latin-1 with w3m internal characters.
+  (generated by `w3m')"
+ 'w3m-iso-latin-1-decoder
+ 'w3m-iso-latin-1-encoder)
+
+(defun w3m-remove-comments ()
+  "Remove HTML comments in the current buffer."
+  (goto-char (point-min))
+  (let (beg)
+    (while (search-forward "<!--" nil t)
+      (setq beg (match-beginning 0))
+      (if (search-forward "-->" nil t)
+	  (delete-region beg (point))))))
+
+(defun w3m-remove-invisible-image-alt ()
+  "Remove alt=\"whitespace\" attributes in img tags.
+Such attributes not only obscure them but also might make images not
+be displayed especially in shimbun articles."
+  (goto-char (point-min))
+  (let ((case-fold-search t)
+	start end)
+    (while (and (re-search-forward "\\(<img\\)[\t\n\f\r ]+" nil t)
+		(progn
+		  (setq start (match-end 1))
+		  (search-forward ">" nil t))
+		(progn
+		  (setq end (match-beginning 0))
+		  (goto-char start)
+		  (re-search-forward "[\t\n\f\r ]+alt=\"[\t\n\f\r ]*\""
+				     end t)))
+      (delete-region (match-beginning 0) (match-end 0)))))
+
+(defun w3m-check-header-tags ()
+  "Process header tags (<LINK>,<BASE>) in the current buffer."
+  (let ((case-fold-search t)
+	tag)
+    (goto-char (point-min))
+    (when (re-search-forward "</head\\(?:[ \t\r\f\n][^>]*\\)?>" nil t)
+      (save-restriction
+	(narrow-to-region (point-min) (point))
+	(goto-char (point-min))
+	(while (re-search-forward "<\\(link\\|base\\)[ \t\r\f\n]+" nil t)
+	  (setq tag (downcase (match-string 1)))
+	  (cond
+	   ((string= tag "link")
+	    (w3m-parse-attributes ((rel :case-ignore) href type)
+	      (when rel
+		(setq rel (split-string rel))
+		(cond
+		 ((member "icon" rel) (setq w3m-icon-data (cons href type)))
+		 ((member "next" rel) (setq w3m-next-url href))
+		 ((or (member "prev" rel) (member "previous" rel))
+		  (setq w3m-previous-url href))
+		 ((member "start" rel) (setq w3m-start-url href))
+		 ((member "contents" rel) (setq w3m-contents-url href))))))
+	   ((string= tag "base")
+	    (w3m-parse-attributes (href)
+	      (when (< 0 (length href))
+		(setq w3m-current-base-url href))))))))))
+
+(defun w3m-check-refresh-attribute ()
+  "Get REFRESH attribute in META tags."
+  (setq w3m-current-refresh nil)
+  (when w3m-use-refresh
+    (let ((case-fold-search t)
+	  (refurl w3m-current-url)
+	  sec)
+      (goto-char (point-min))
+      (catch 'found
+	(while (re-search-forward "<meta[ \t\r\f\n]+" nil t)
+	  (w3m-parse-attributes ((http-equiv :case-ignore) content)
+	    (when (string= http-equiv "refresh")
+	      (cond
+	       ((string-match "\\`[0-9]+\\'" content)
+		(setq sec (match-string-no-properties 0 content)))
+	       ((string-match
+		 "\\([^;]+\\);[ \t\n]*url=[\"']?\\([^\"']+\\)"
+		 content)
+		(setq sec (match-string-no-properties 1 content))
+		(setq refurl (w3m-decode-entities-string
+			      (match-string-no-properties 2 content)))
+		(when (string-match "\\`[\"']\\(.*\\)[\"']\\'" refurl)
+		  (setq refurl (match-string 1 refurl)))))
+	      (when (and sec (string-match "\\`[0-9]+\\'" sec))
+		(when (and (eq w3m-use-refresh 'wait-minimum)
+			   (< (string-to-number sec) w3m-refresh-minimum-interval))
+		  (setq sec (number-to-string w3m-refresh-minimum-interval)))
+		(throw 'found
+		       (setq w3m-current-refresh
+			     (cons (string-to-number sec)
+				   (w3m-expand-url refurl))))))))))))
+
+(defun w3m-remove-meta-charset-tags ()
+  (let ((case-fold-search t))
+    (goto-char (point-min))
+    (catch 'found
+      (when (re-search-forward "<meta[ \t\r\f\n]+" nil t)
+	(let ((start (match-beginning 0)))
+	  (w3m-parse-attributes ((http-equiv :case-ignore)
+				 (content :case-ignore))
+	    (when (and (string= http-equiv "content-type")
+		       content
+		       (string-match ";[ \t\n]*charset=" content))
+	      (delete-region start (point))
+	      (throw 'found nil))))))))
+
+(defun w3m-rendering-extract-title ()
+  "Extract the title from the halfdump and put it into the current buffer."
+  (goto-char (point-min))
+  (or (when (re-search-forward "<title_alt[ \t\n]+title=\"\\([^\"]+\\)\">"
+			       nil t)
+	(prog1 (w3m-decode-entities-string
+		(mapconcat 'identity
+			   (save-match-data (split-string (match-string 1)))
+			   " "))
+	  (delete-region (match-beginning 0) (match-end 0))))
+      (when (and (stringp w3m-current-url)
+		 (string-match "/\\([^/]+\\)/?\\'" w3m-current-url))
+	(match-string 1 w3m-current-url))
+      "<no-title>"))
+
+(defun w3m-set-display-ins-del ()
+  (when (eq w3m-display-ins-del 'auto)
+    (with-temp-buffer
+      (let* ((coding-system-for-read w3m-output-coding-system)
+	     (coding-system-for-write (if (eq 'binary w3m-input-coding-system)
+					  w3m-current-coding-system
+					w3m-input-coding-system))
+	     (default-process-coding-system
+	       (cons coding-system-for-read coding-system-for-write))
+	     (env (copy-sequence w3m-command-environment))
+	     type)
+	(setq w3m-display-ins-del nil)
+	(w3m-process-with-environment (cons '("LANG" . "C")
+					    (delq (assoc "LANG" env) env))
+	  (call-process (or w3m-halfdump-command w3m-command) nil t nil "-o")
+	  (goto-char (point-min))
+	  (when (re-search-forward "display_ins_del=<\\([^>]+\\)>" nil t)
+	    (setq type (match-string 1))
+	    (cond
+	     ((string= type "number")
+	      (setq w3m-display-ins-del 'fontify))
+	     ((string= type "bool")
+	      (setq w3m-display-ins-del 'tag)))))))))
+
+(defun w3m-rendering-half-dump (charset)
+  ;; `charset' is used by `w3m-w3m-expand-arguments' to generate
+  ;; arguments for w3mmee and w3m-m17n from `w3m-halfdump-command-arguments'.
+  (w3m-set-display-ins-del)
+  (let* ((coding-system-for-read w3m-output-coding-system)
+	 (coding-system-for-write (if (eq 'binary w3m-input-coding-system)
+				      w3m-current-coding-system
+				    w3m-input-coding-system))
+	 (default-process-coding-system
+	   (cons coding-system-for-read coding-system-for-write)))
+    (w3m-process-with-environment w3m-command-environment
+      (apply 'call-process-region
+	     (point-min)
+	     (point-max)
+	     (or w3m-halfdump-command w3m-command)
+	     t t nil
+	     (w3m-w3m-expand-arguments
+	      (append w3m-halfdump-command-arguments
+		      w3m-halfdump-command-common-arguments
+		      ;; Image size conscious rendering
+		      (when (member "image" w3m-compile-options)
+			(if (and w3m-treat-image-size
+				 (or (w3m-display-graphic-p)
+				     (and w3m-pixels-per-line
+					  w3m-pixels-per-character)))
+			    (list "-o" "display_image=on"
+				  "-ppl" (number-to-string
+					  (or w3m-pixels-per-line
+					      (w3m-static-if
+						  (featurep 'xemacs)
+						  (font-height
+						   (face-font 'default))
+						(frame-char-height))))
+				  "-ppc" (number-to-string
+					  (or w3m-pixels-per-character
+					      (w3m-static-if
+						  (featurep 'xemacs)
+						  (font-width
+						   (face-font 'default))
+						(frame-char-width)))))
+			  (list "-o" "display_image=off")))))))))
+
+(defun w3m-rendering-buffer (&optional charset)
+  "Do rendering of contents in the currenr buffer as HTML and return title."
+  (w3m-message "Rendering...")
+  (w3m-remove-comments)
+  (w3m-remove-invisible-image-alt)
+  (w3m-check-header-tags)
+  (w3m-check-refresh-attribute)
+  (unless (eq w3m-type 'w3m-m17n)
+    (w3m-remove-meta-charset-tags))
+  (w3m-rendering-half-dump charset)
+  (w3m-message "Rendering...done")
+  (w3m-rendering-extract-title))
+
+(defcustom w3m-confirm-leaving-secure-page t
+  "If non-nil, you'll be asked for confirmation when leaving secure pages.
+This option controls whether the confirmation is made also when
+retrieving data (typically images) in a secure page from non-secure
+pages.  It is STRONGLY recommended to set non-nil value to this option.
+You MUST understand what you want to do completely before
+switching off this option."
+  :group 'w3m
+  :type 'boolean)
+
+(defun w3m-retrieve-and-render (url &optional no-cache charset
+				    post-data referer handler)
+  "Retrieve contents of URL and render them in the current buffer.
+It returns a `w3m-process' object and comes to an end immediately.
+The HANDLER function will be called when rendering is complete.  When
+a new content is retrieved in the buffer, the HANDLER function will be
+called with t as an argument.  Otherwise, it will be called with nil."
+  (unless (and w3m-current-ssl
+	       w3m-confirm-leaving-secure-page
+	       ;; Permit leaving safe pages without confirmation for
+	       ;; several safe commands.  For more detail of
+	       ;; definition of safe commands, see the thread
+	       ;; beginning at [emacs-w3m:09767].
+	       (not
+		(or (memq this-command
+			  '(w3m
+			    w3m-goto-url w3m-redisplay-this-page
+			    w3m-reload-this-page w3m-history
+			    w3m-view-next-page w3m-view-previous-page
+			    w3m-view-header w3m-view-source))
+		    (string-match "\\`\\(?:ht\\|f\\)tps://" url)
+		    (prog1
+			(y-or-n-p "You are leaving secure page.  Continue? ")
+		      (message nil)))))
+    (lexical-let ((url (w3m-url-strip-fragment url))
+		  (charset charset)
+		  (page-buffer (current-buffer))
+		  (arrival-time (current-time))
+		  (silent w3m-message-silent))
+      (w3m-process-do-with-temp-buffer
+	  (type (progn
+		  (w3m-clear-local-variables)
+		  (w3m-retrieve url nil no-cache post-data referer handler)))
+	(let ((w3m-message-silent silent))
+	  (when (buffer-live-p page-buffer)
+	    (setq url (w3m-url-strip-authinfo url))
+	    (if type
+		(if (string= type "X-w3m-error/redirection")
+		    (when (w3m-show-redirection-error-information url page-buffer)
+		      (w3m-message (w3m-message "Cannot retrieve URL: %s"
+						url)))
+		  (let ((modified-time (w3m-last-modified url)))
+		    (w3m-arrived-add url nil modified-time arrival-time)
+		    (unless modified-time
+		      (setf (w3m-arrived-last-modified url) nil))
+		    (let ((real (w3m-real-url url)))
+		      (unless (string= url real)
+			(w3m-arrived-add url nil nil arrival-time)
+			(setf (w3m-arrived-title real)
+			      (w3m-arrived-title url))
+			(setf (w3m-arrived-last-modified real)
+			      (w3m-arrived-last-modified url))
+			(setq url real)))
+		    (prog1 (w3m-create-page url
+					    (or (w3m-arrived-content-type url)
+						type)
+					    (or charset
+						(w3m-arrived-content-charset url)
+						(w3m-content-charset url))
+					    page-buffer)
+		      (w3m-force-window-update-later page-buffer)
+		      (unless (get-buffer-window page-buffer)
+			(w3m-message "The content (%s) has been retrieved in %s"
+				     url (buffer-name page-buffer))))))
+	      (ding)
+	      (when (eq (car w3m-current-forms) t)
+		(setq w3m-current-forms (cdr w3m-current-forms)))
+	      (prog1 (when (and w3m-show-error-information
+				(not (or (w3m-url-local-p url)
+					 (string-match "\\`about:" url))))
+		       (w3m-show-error-information url charset page-buffer))
+		(w3m-message "Cannot retrieve URL: %s%s"
+			     url
+			     (if w3m-process-exit-status
+				 (format " (exit status: %s)"
+					 w3m-process-exit-status)
+			       ""))))))))))
+
+(defun w3m-show-error-information (url charset page-buffer)
+  "Create and prepare the error information."
+  (or (when (w3m-cache-request-contents url)
+	(w3m-decode-encoded-contents (w3m-content-encoding url))
+	t) ; Even if decoding is failed, use the cached contents.
+      (let ((case-fold-search t)
+	    (header (w3m-cache-request-header url))
+	    (errmsg (format "\n<br><h1>Cannot retrieve URL: %s%s</h1>"
+			    (format "<a href=\"%s\">%s</a>" url url)
+			    (when w3m-process-exit-status
+			      (format " (exit status: %s)"
+				      w3m-process-exit-status)))))
+	(if (or (null header)
+		(string-match "\\`w3m: Can't load " header))
+	    (progn
+	      (erase-buffer)
+	      (setq charset "us-ascii")
+	      (insert
+	       errmsg
+	       (format "<br><br><b>%s</b> could not be found; "
+		       (w3m-get-server-hostname url))
+	       (if (string-match "\\`news:" url)
+		   "check the name of the <b>URL</b>\
+ and the value of the <b>NNTPSERVER</b> environment variable\
+ (that should be the address of the <b>NNTP</b> server)."
+		 "check the name of the <b>URL</b>.")))
+	  (goto-char (point-min))
+	  (when (or (re-search-forward "<body>" nil t)
+		    (re-search-forward "<html>" nil t))
+	    (goto-char (match-end 0)))
+	  (insert errmsg "<br><br><hr><br><br>")
+	  (when (or (re-search-forward "</body>" nil t)
+		    (re-search-forward "</html>" nil 'max))
+	    (goto-char (match-end 0)))
+	  (insert "\n<br><br><hr><br><br><h2>Header information</h2><br>\n<pre>"
+		  header "</pre>\n"))))
+  (w3m-create-page url "text/html" charset page-buffer)
+  nil)
+
+(defun w3m-show-redirection-error-information (url page-buffer)
+  (erase-buffer)
+  (insert
+   (format "\n<br><h1>Cannot retrieve URL: %s</h1><br><br>%s"
+	   (format "<a href=\"%s\">%s</a>" url url)
+	   "The number of redirections has exceeded a limit.  This may have<br>\n
+happened due to the server side miss-configuration.  Otherwise,<br>\n
+try increasing the limit, the value of <b>`w3m-follow-redirection'</b>.<br>\n"))
+  (w3m-create-page url "text/html" "us-ascii" page-buffer))
+
+(defun w3m-prepare-content (url type charset)
+  "Prepare contents in the current buffer according to TYPE.
+URL is assumed to be a place where the contents come from.  CHARSET is
+passed to the filter function  corresponding to TYPE if it is
+specified in the `w3m-content-type-alist' variable."
+  (let ((filter (nth 3 (assoc type w3m-content-type-alist))))
+    (cond
+     ; Filter function is specified.
+     ((functionp filter) (funcall filter url type charset))
+     ; Equivalent type is specified.
+     ((stringp filter) filter)
+     ; No filter is specified.
+     ((not filter) type)
+     ; Failed.
+     (t ""))))
+
+(defun w3m-detect-xml-type (url type charset)
+  "Check if the type of xml contents of URL is xhtml+xml.
+If so return \"text/html\", otherwise \"text/plain\"."
+  (with-temp-buffer
+    (w3m-retrieve url)
+    (w3m-decode-buffer url charset type)
+    (goto-char (point-min))
+    (setq case-fold-search t)
+    (if (re-search-forward
+	 "<[\t\n ]*html\\(?:\\(?:[\t\n ]+[^>]+\\)?>\\|[\t\n ]*>\\)"
+	 nil t)
+	"text/html"
+      "text/plain")))
+
+(defun w3m-create-text-page (url type charset page-buffer)
+  (w3m-safe-decode-buffer url charset type)
+  (setq w3m-current-url (if (w3m-arrived-p url)
+			    (w3m-real-url url)
+			  url)
+	w3m-current-title
+	(if (string= "text/html" type)
+	    (let ((title (w3m-rendering-buffer charset)))
+	      (setf (w3m-arrived-title url) title)
+	      title)
+	  (or (when (string-match "\\`about://\\(?:source\\|header\\)/" url)
+		(w3m-arrived-title (substring url (match-end 0))))
+	      (file-name-nondirectory (if (string-match "/\\'" url)
+					  (directory-file-name url)
+					url)))))
+  (let ((result-buffer (current-buffer)))
+    (with-current-buffer page-buffer
+      (let ((inhibit-read-only t))
+	(widen)
+	(delete-region (point-min) (point-max))
+	(insert-buffer-substring result-buffer)
+	(goto-char (point-min))
+	(w3m-copy-local-variables result-buffer)
+	(set-buffer-file-coding-system w3m-current-coding-system)
+	(when (string= "text/html" type) (w3m-fontify))
+	'text-page))))
+
+(defsubst w3m-image-page-displayed-p ()
+  (and (fboundp 'image-mode-setup-winprops)
+       w3m-current-url
+       (string-match "\\`image/" (w3m-content-type w3m-current-url))
+       (eq (get-text-property (point-min) 'w3m-image-status) 'on)))
+
+(defun w3m-create-image-page (url type charset page-buffer)
+  (when (w3m-image-type-available-p (w3m-image-type type))
+    (with-current-buffer page-buffer
+      (let ((inhibit-read-only t))
+	(w3m-clear-local-variables)
+	(setq w3m-current-url (w3m-real-url url)
+	      w3m-current-title (file-name-nondirectory url))
+	(widen)
+	(delete-region (point-min) (point-max))
+	(insert w3m-current-title)
+	(w3m-add-face-property (point-min) (point-max) 'w3m-image)
+	(w3m-add-text-properties (point-min) (point-max)
+				 (list 'w3m-image url
+				       'mouse-face 'highlight))
+	(when (fboundp 'image-mode-setup-winprops)
+	  (image-mode-setup-winprops))
+	'image-page))))
+
+(defun w3m-create-page (url type charset page-buffer)
+  ;; Select a content type.
+  (unless (and (stringp type)
+	       (assoc type w3m-content-type-alist))
+    (save-window-excursion
+      (pop-to-buffer (current-buffer))
+      (delete-other-windows)
+      (ding)
+      (setq type
+	    (completing-read
+	     (format "Input %s's content type (default Download): "
+		     (file-name-nondirectory url))
+	     w3m-content-type-alist nil t))
+      (setf (w3m-arrived-content-type url) type)))
+  (setq w3m-current-coding-system nil)	; Reset decoding status of this buffer.
+  (setq type (w3m-prepare-content url type charset))
+  (w3m-safe-decode-buffer url charset type)
+  (setq charset (or charset w3m-current-content-charset))
+  (when w3m-use-filter (w3m-filter url))
+  (w3m-relationship-estimate url)
+  ;; Create pages.
+  (cond
+   ((string-match "\\`text/" type)
+    (w3m-create-text-page url type charset page-buffer))
+   ((string-match "\\`image/" type)
+    (w3m-create-image-page url type charset page-buffer))
+   ((member type w3m-doc-view-content-types)
+    (w3m-doc-view url))
+   (t
+    (with-current-buffer page-buffer
+      (w3m-external-view url)
+      'external-view))))
+
+(defun w3m-relationship-estimate (url)
+  "Estimate relationships between a page and others."
+  (save-excursion
+    (save-match-data
+      (catch 'estimated
+	(dolist (rule w3m-relationship-estimate-rules)
+	  (when (apply (car rule) url (cdr rule))
+	    (throw 'estimated t)))))))
+
+(defun w3m-relationship-simple-estimate (url regexp &optional next previous
+					     start contents)
+  "Search relationships with given patterns
+when the URL of the retrieved page matches the REGEXP."
+  (when (string-match regexp url)
+    (w3m-relationship-search-patterns url next previous start contents)))
+
+(defun w3m-relationship-magicpoint-estimate (url)
+  "Search relationships for pages generated by MagicPoint."
+  (goto-char (point-max))
+  (when (search-backward
+	 "Generated by <A HREF=\"http://www.mew.org/mgp/\">MagicPoint</A>"
+	 nil t)
+    (goto-char (point-min))
+    (w3m-relationship-search-patterns
+     url
+     (eval-when-compile
+       (concat "<A HREF=" w3m-html-string-regexp ">\\[next&gt;\\]</A>"))
+     (eval-when-compile
+       (concat "<A HREF=" w3m-html-string-regexp ">\\[&lt;prev\\]</A>"))
+     (eval-when-compile
+       (concat "<A HREF=" w3m-html-string-regexp ">\\[&lt;&lt;start\\]</A>"))
+     (eval-when-compile
+       (concat "<A HREF=" w3m-html-string-regexp ">\\[index\\]</A>")))))
+
+(defun w3m-relationship-oddmuse-estimate (url)
+  (when (string-match "/wiki\\?search=.*" url)
+    (goto-char (point-min))
+    (and (re-search-forward "href=\"\\([^\"]+\\)\">Previous</a>" nil t)
+	 (setq w3m-previous-url (match-string 1)))
+    (and (re-search-forward "href=\"\\([^\"]+\\)\">Next</a>" nil t)
+	 (setq w3m-next-url (match-string 1)))))
+
+(defun w3m-relationship-slashdot-estimate (url)
+  (goto-char (point-min))
+  (when (and (string-match
+	      "slashdot\\.org/\\(article\\|comments\\)\\.pl\\?"
+	      url)
+	     (search-forward "<div class=\"linkCommentPage\">" nil t))
+    (let ((min (point)) (max (save-excursion (search-forward "</div>" nil t))))
+      ;; move to the position of the current page indicator and then search
+      ;; for the next and previous link within the current <div>
+      (when (and max (re-search-forward "<b>\\(([0-9]+)\\)</b>" max t))
+	(let ((re (concat "<a href=" w3m-html-string-regexp ">")))
+	  (when (save-excursion (re-search-backward re min t))
+	    (setq w3m-previous-url
+		  (w3m-expand-url (w3m-decode-anchor-string
+				   (or (match-string 2)
+				       (match-string 3)
+				       (match-string 1))))))
+	  (when (re-search-forward re max t)
+	    (setq w3m-next-url
+		  (w3m-expand-url (w3m-decode-anchor-string
+				   (or (match-string 2)
+				       (match-string 3)
+				       (match-string 1)))))))))))
+
+(defun w3m-relationship-alc-estimate (url)
+  ;; use filter
+  (when (string-match "\\`http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/" url)
+    (when (re-search-forward
+	   (concat "<a href=\\\"http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/"
+		   "\\(\\?pg=[0-9]+\\)\\\">$BA0$X(B</a>")
+	   nil t)
+      (setq w3m-previous-url
+	    (w3m-expand-url (match-string 1) url)))
+    (when (re-search-forward
+	   (concat "<a href=\\\"http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/"
+		   "\\(\\?pg=[0-9]+\\)\\\">$B<!$X(B</a>")
+	   nil t)
+      (setq w3m-next-url
+	    (w3m-expand-url (match-string 1) url)))
+    (unless (or w3m-previous-url w3m-next-url)
+      ;; no use filter
+      (goto-char (point-min))
+      (when (re-search-forward
+	     "<a href='javascript:goPage(\"\\([0-9+]\\)\")'>$BA0$X(B</a>"
+	     nil t)
+	(setq w3m-previous-url
+	      (w3m-expand-url (format "?pg=%s" (match-string 1)) url)))
+      (when (re-search-forward
+	     "<a href='javascript:goPage(\"\\([0-9+]\\)\")'>$B<!$X(B</a>"
+	     nil t)
+	(setq w3m-next-url
+	      (w3m-expand-url (format "?pg=%s" (match-string 1)) url))))))
+
+(defun w3m-relationship-search-patterns (url next previous
+					     &optional start contents)
+  "Search relationships with given patterns."
+  (goto-char (point-min))
+  (and next
+       (re-search-forward next nil t)
+       (setq w3m-next-url
+	     (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2)
+							   (match-string 3)
+							   (match-string 1)))
+			     url))
+       (goto-char (point-min)))
+  (and previous
+       (re-search-forward previous nil t)
+       (setq w3m-previous-url
+	     (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2)
+							   (match-string 3)
+							   (match-string 1)))
+			     url))
+       (goto-char (point-min)))
+  (and start
+       (re-search-forward start nil t)
+       (setq w3m-start-url
+	     (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2)
+							   (match-string 3)
+							   (match-string 1)))
+			     url))
+       (goto-char (point-min)))
+  (and contents
+       (re-search-forward contents nil t)
+       (setq w3m-contents-url
+	     (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2)
+							   (match-string 3)
+							   (match-string 1)))
+			     url))))
+
+(defun w3m-search-name-anchor (name &optional quiet no-record)
+  (interactive "sName: ")
+  (let ((pos (point-min))
+	(cur-pos (point))
+	found)
+    (catch 'found
+      (while (setq pos (next-single-property-change pos 'w3m-name-anchor))
+	(when (member name (get-text-property pos 'w3m-name-anchor))
+	  (goto-char pos)
+	  (when (eolp) (forward-line))
+	  (w3m-horizontal-on-screen)
+	  (throw 'found (setq found t))))
+      (setq pos (point-min))
+      (while (setq pos (next-single-property-change pos 'w3m-name-anchor2))
+	(when (member name (get-text-property pos 'w3m-name-anchor2))
+	  (goto-char pos)
+	  (when (eolp) (forward-line))
+	  (w3m-horizontal-on-screen)
+	  (throw 'found (setq found t))))
+      (unless quiet
+	(message "No such anchor: %s" name)))
+
+    (when (and found
+	       (not no-record)
+	       (/= (point) cur-pos))
+	(setq w3m-name-anchor-from-hist
+	      (append (list 1 nil (point) cur-pos)
+		      (and (integerp (car w3m-name-anchor-from-hist))
+			   (nthcdr (1+ (car w3m-name-anchor-from-hist))
+				   w3m-name-anchor-from-hist)))))
+    (when found
+      (w3m-recenter))
+    found))
+
+(defun w3m-parent-page-available-p ()
+  (if (null w3m-current-url)
+      nil
+    (save-match-data
+      (string-match "\\`[a-z]+://?[^/]+/." w3m-current-url))))
+
+(defun w3m-view-parent-page (&optional count)
+  "Attempt to move to the parent directory of the page currently displayed.
+For instance, it will let you visit \"http://foo/bar/\" if you are currently
+viewing \"http://foo/bar/baz\".
+If COUNT is a integer, you will visit the parent directory to step up the COUNT.
+If COUNT is zero, you will visit the top of this site."
+  (interactive "p")
+  (unless (integerp count)
+    (setq count 1))
+  (setq count (abs count))
+  (cond
+   ((and w3m-current-url
+	 (eq count 0)
+	 (string-match "\\`[a-z]+:///?[^/]+/" w3m-current-url))
+    (w3m-goto-url (match-string 0 w3m-current-url)))
+   (w3m-start-url (w3m-goto-url w3m-start-url))
+   (w3m-contents-url (w3m-goto-url w3m-contents-url))
+   (w3m-current-url
+    (let ((parent-url w3m-current-url))
+      (catch 'loop
+	(while (not (zerop count))
+	  (setq count (1- count))
+	  ;; Check whether http://foo/bar/ or http://foo/bar
+	  (if (string-match "/$" parent-url)
+	      (if (string-match "\\(.*\\)/[^/]+/$" parent-url)
+		  ;; http://foo/bar/ -> http://foo/
+		  (setq parent-url (concat (match-string 1 parent-url) "/")))
+	    (if (string-match "\\(.*\\)/.+$" parent-url)
+		;; http://foo/bar -> http://foo/
+		(setq parent-url (concat (match-string 1 parent-url) "/"))))
+	  ;; Ignore "http:/"
+	  (cond
+	   ((string-match "\\`[a-z]+:///?[^/]+/\\'" parent-url)
+	    (throw 'loop t))
+	   ((and parent-url
+		 (string-match "\\`[a-z]+:/+\\'" parent-url))
+	    (setq parent-url nil)
+	    (throw 'loop nil)))))
+      (if parent-url
+	  (w3m-goto-url parent-url)
+	(error "No parent page for: %s" w3m-current-url))))
+   (t (error "w3m-current-url is not set"))))
+
+(defun w3m-view-previous-page (&optional count)
+  "Move back COUNT pages in the history.
+If COUNT is a positive integer, move backward COUNT times in the
+history.  If COUNT is a negative integer, moving forward is performed.
+COUNT is treated as 1 by default if it is omitted."
+  (interactive "p")
+  (unless w3m-current-url
+    ;; This page may have not been registered in the history since an
+    ;; accident has probably occurred, so we should skip the page.
+    (if (integerp count)
+	(when (> count 0)
+	  (decf count))
+      (setq count 0)))
+  (let ((index (car w3m-name-anchor-from-hist))
+	pos)
+    (if (and (integerp count)
+	     (integerp index)
+	     (< 0 (setq index (+ index count)))
+	     (setq pos (nth index w3m-name-anchor-from-hist)))
+	(progn
+	  (when (and (= (point) pos)
+		     (nth (1+ index) w3m-name-anchor-from-hist))
+	    (setq index (1+ index)))
+	  (goto-char (nth index w3m-name-anchor-from-hist))
+	  (setcar w3m-name-anchor-from-hist index)
+	  ;; Restore last position.
+	  (w3m-history-restore-position))
+      (let ((hist ;; Cons of a new history element and position pointers.
+	     (if (integerp count)
+		 (w3m-history-backward count)
+	       (w3m-history-backward)))
+	    ;; Inhibit sprouting of a new history.
+	    (w3m-history-reuse-history-elements t)
+	    (w3m-use-refresh 'wait-minimum))
+	(if hist
+	    (let ((w3m-prefer-cache t))
+	      ;; Save last position.
+	      (w3m-history-store-position)
+	      (w3m-goto-url (caar hist) nil nil
+			    (w3m-history-plist-get :post-data)
+			    (w3m-history-plist-get :referer)
+			    nil
+			    (w3m-history-element (caddr hist) t))
+	      ;; Set the position pointers in the history.
+	      (setcar w3m-history (cdr hist))
+	      ;; Restore last position.
+	      (w3m-history-restore-position))
+	  (message "There's no more history"))))))
+
+(defun w3m-view-next-page (&optional count)
+  "Move forward COUNT pages in history.
+If COUNT is a positive integer, move forward COUNT times in the
+history.  If COUNT is a negative integer, moving backward is performed.
+COUNT is treated as 1 by default if it is omitted."
+  (interactive "p")
+  (w3m-view-previous-page (if (integerp count) (- count) -1)))
+
+(defun w3m-expand-path-name (file base)
+  (let ((input (if (eq (elt file 0) ?/)
+		   file
+		 (concat base file)))
+	(output ""))
+    (save-match-data
+      (while (string-match "^\\(?:\\.\\.?/\\)+" input)
+	(setq input (substring input (match-end 0))))
+      (while (not (zerop (length input)))
+	(cond
+	 ((string-match "^/\\.\\(?:/\\|$\\)" input)
+	  (setq input (concat "/" (substring input (match-end 0)))))
+	 ((string-match "^/\\.\\.\\(?:/\\|$\\)" input)
+	  (setq input (concat "/" (substring input (match-end 0))))
+	  (when (string-match "/?[^/]+$" output)
+	    (setq output (substring output 0 (match-beginning 0)))))
+	 ((string-match "^\\.\\.?$" input)
+	  (setq input ""))
+	 (t
+	  (let ((end (and (string-match "^/[^/]*" input)
+			  (match-end 0))))
+	    (setq output
+		  (concat output (substring input 0 end)))
+	    (setq input
+		  (substring input end))))))
+      output)))
+
+(defconst w3m-url-hierarchical-schemes
+  '("http" "https" "ftp" "ftps" "file")
+  "List of schemes which may have hierarchical parts.
+This list is refered to by `w3m-expand-url' to keep backward
+compatibility which is described in Section 5.2 of RFC 2396.")
+
+(defun w3m-expand-url (url &optional base)
+  "Convert URL to the absolute address, and canonicalize it."
+  (save-match-data
+    (if base
+	(if (progn
+	      (w3m-string-match-url-components base)
+	      (match-beginning 1))
+	    (and (not (match-beginning 3))
+		 (member (match-string 2 base) w3m-url-hierarchical-schemes)
+		 (setq base (concat
+			     (substring base 0 (match-end 1))
+			     "//"
+			     (substring base (match-beginning 5)))))
+	  (error "BASE must have a scheme part: %s" base))
+      (setq base (or w3m-current-base-url
+		     w3m-current-url
+		     w3m-url-fallback-base)))
+    (w3m-string-match-url-components url)
+    ;; Remove an empty fragment part.
+    (when (and (match-beginning 8)
+	       (= (match-beginning 9) (length url)))
+      (setq url (substring url 0 (match-beginning 8)))
+      (w3m-string-match-url-components url))
+    ;; Remove an empty query part.
+    (when (and (match-beginning 6)
+	       (= (match-beginning 7) (or (match-beginning 8)
+					  (length url))))
+      (setq url (concat (substring url 0 (match-beginning 6))
+			(if (match-beginning 8)
+			    (substring url (match-beginning 8))
+			  ""))
+	    base (progn (w3m-string-match-url-components base)
+			(substring base 0 (match-beginning 6))))
+      (w3m-string-match-url-components url))
+    (cond
+     ((match-beginning 1)
+      ;; URL has a scheme part. => URL may have an absolute spec.
+      (if (or (match-beginning 3)
+	      (and (< (match-beginning 5) (length url))
+		   (eq ?/ (aref url (match-beginning 5)))))
+	  ;; URL has a net-location part or an absolute hierarchical
+	  ;; part. => URL has an absolute spec.
+	  url
+	(let ((scheme (match-string 2 url)))
+	  (if (and (member scheme w3m-url-hierarchical-schemes)
+		   (progn
+		     (w3m-string-match-url-components base)
+		     (equal scheme (match-string 2 base))))
+	      (w3m-expand-url (substring url (match-end 1)) base)
+	    url))))
+     ((match-beginning 3)
+      ;; URL has a net-location part. => The hierarchical part of URL
+      ;; has an absolute spec.
+      (w3m-string-match-url-components base)
+      (concat (substring base 0 (match-end 1)) url))
+     ((> (match-end 5) (match-beginning 5))
+      (let ((path-end (match-end 5))
+	    expanded-path
+	    ;; See the following thread about a problem related to
+	    ;; the use of file-name-* functions for url string:
+	    ;; http://news.gmane.org/group/gmane.emacs.w3m/thread=4210
+	    file-name-handler-alist)
+	(w3m-string-match-url-components base)
+	(setq expanded-path
+	      (w3m-expand-path-name
+	       (substring url 0 path-end)
+	       (or (file-name-directory (match-string 5 base))
+		   "/")))
+	(concat
+	 (substring base 0 (match-beginning 5))
+	 (if (member (match-string 2 base) w3m-url-hierarchical-schemes)
+	     expanded-path
+	   (substring url 0 path-end))
+	 (substring url path-end))))
+     ((match-beginning 6)
+      ;; URL has a query part.
+      (w3m-string-match-url-components base)
+      (concat (substring base 0 (match-end 5)) url))
+     (t
+      ;; URL has only a fragment part.
+      (w3m-string-match-url-components base)
+      (concat (substring base 0 (match-beginning 8))
+	      url)))))
+
+(defun w3m-display-progress-message (url)
+  "Show \"Reading URL...\" message in the middle of a buffer."
+  (insert (make-string (max 0 (/ (1- (window-height)) 2)) ?\n)
+	  "Reading " (w3m-url-readable-string (w3m-url-strip-authinfo url))
+	  "...")
+  (beginning-of-line)
+  (let ((fill-column (window-width)))
+    (center-region (point) (point-max)))
+  (goto-char (point-min))
+  (put-text-property (point) (point-max) 'w3m-progress-message t)
+  (sit-for 0))
+
+(defun w3m-view-this-url-1 (url reload new-session)
+  (lexical-let ((cur w3m-current-url)
+		(url url)
+		(obuffer (current-buffer))
+		(wconfig (current-window-configuration))
+		pos buffer)
+    (if new-session
+	(let ((empty
+	       ;; If a new url has the #name portion, we simply copy
+	       ;; the buffer's contents to the new session, otherwise
+	       ;; creating an empty buffer.
+	       (not (and (progn
+			   (w3m-string-match-url-components url)
+			   (match-beginning 8))
+			 (string-equal w3m-current-url
+				       (substring url
+						  0 (match-beginning 8)))))))
+	  (setq pos (point-marker)
+		buffer (w3m-copy-buffer
+			nil nil nil empty w3m-new-session-in-background))
+	  (when w3m-new-session-in-background
+	    (set-buffer buffer))
+	  (when empty
+	    (w3m-display-progress-message url)))
+      (setq buffer (current-buffer)))
+    (let (handler)
+      (w3m-process-do
+	  (success (w3m-goto-url url reload nil nil w3m-current-url handler))
+	(set-window-hscroll (selected-window) 0)
+	;; Delete the newly created buffer if it's been made empty.
+	(when (and pos
+		   (buffer-name buffer))
+	  (w3m-delete-buffer-if-empty buffer))
+	(when pos ;; the new session is created.
+	  ;; FIXME: what we should actually do is to modify the `w3m-goto-url'
+	  ;; function so that it may return a proper value, and checking it.
+	  (when (and (marker-buffer pos) (buffer-name (marker-buffer pos)))
+	    (with-current-buffer (marker-buffer pos)
+	      (save-excursion
+		(goto-char pos)
+		(w3m-refontify-anchor)))))
+	;; We need to restore the window configuration to the former
+	;; one if `w3m-new-session-in-background' is non-nil unless
+	;; the buffer's major mode has changed from the w3m-mode to
+	;; another by visiting the new url (possibly a local file,
+	;; a mailto url, doc-view-mode, etc.).
+	(if (and w3m-new-session-in-background
+		 (not (eq obuffer (current-buffer)))
+		 (or (buffer-name buffer)
+		     ;; Clear "...has been retrieved in..." message.
+		     (progn (w3m-message "") nil))
+		 (or (eq major-mode 'w3m-mode)
+		     (not (eq (with-current-buffer buffer major-mode)
+			      'w3m-mode))))
+	    (set-window-configuration wconfig)
+	  (unless (eq cur w3m-current-url)
+	    (w3m-recenter)))))))
+
+(defun w3m-view-this-url (&optional arg new-session)
+  "Display the page pointed to by the link under point.
+If ARG is the number 2 or the list of the number 16 (you may produce
+this by typing `C-u' twice) or NEW-SESSION is non-nil and the link is
+an anchor, this function makes a copy of the current session in
+advance.  Otherwise, if ARG is non-nil, it forces to reload the url at
+point."
+  (interactive (if (member current-prefix-arg '(2 (16)))
+		   (list nil t)
+		 (list current-prefix-arg nil)))
+  ;; Store the current position in the history structure.
+  (w3m-history-store-position)
+  (let ((w3m-prefer-cache
+	 (or w3m-prefer-cache
+	     (and (stringp w3m-current-url)
+		  (string-match "\\`about://\\(?:db-\\)?history/"
+				w3m-current-url))))
+	act url)
+    (cond
+     ((setq act (w3m-action))
+      (let ((w3m-form-new-session new-session)
+	    (w3m-form-download nil))
+	(eval act)))
+     ((setq url (w3m-url-valid (w3m-anchor)))
+      (w3m-view-this-url-1 url arg new-session))
+     ((w3m-url-valid (w3m-image))
+      (if (w3m-display-graphic-p)
+	  (w3m-toggle-inline-image)
+	(w3m-view-image)))
+     ((setq url (w3m-active-region-or-url-at-point t))
+      (unless (eq 'quit (setq url (w3m-input-url nil url 'quit nil
+						 'feeling-lucky)))
+	(w3m-view-this-url-1 url arg new-session)))
+     (t (w3m-message "No URL at point")))))
+
+(eval-and-compile
+  (autoload 'mouse-set-point "mouse"))
+
+(defun w3m-mouse-view-this-url (event &optional arg)
+  "Follow the link under the mouse pointer."
+  (interactive "e\nP")
+  (mouse-set-point event)
+  (w3m-view-this-url arg))
+
+(defun w3m-open-all-links-in-new-session (start end &optional arg)
+  "Open all http links between START and END as new sessions.
+If the page looks like Google's search result and the START point is
+the beginning of a line, only the links displayed in the beginning of
+lines are picked up.  If ARG is non-nil, it forces to reload all links.
+If Transient Mark mode, deactivate the mark."
+  (interactive "r\nP")
+  (when (w3m-region-active-p)
+    (w3m-deactivate-region))
+  (let ((buffer (current-buffer))
+	(prev start)
+	(url (w3m-url-valid (w3m-anchor start)))
+	urls all)
+    (when url
+      (setq urls (list url)))
+    (save-excursion
+      (goto-char start)
+      (setq all (not (and (bolp)
+			  w3m-current-url
+			  (string-match "\\`http://\\(?:[^/]+\\.\\)*google\\."
+					w3m-current-url))))
+      (while (progn
+	       (w3m-next-anchor)
+	       (and (> (point) prev)
+		    (< (point) end)))
+	(setq prev (point))
+	(when (and (setq url (w3m-url-valid (w3m-anchor)))
+		   (string-match "\\`https?:" url)
+		   (or all
+		       (bolp)))
+	  (push url urls))))
+    (setq urls (nreverse urls))
+    (while urls
+      (setq url (car urls)
+	    urls (cdr urls))
+      (set-buffer buffer)
+      (w3m-view-this-url-1 url arg t))))
+
+(defun w3m-view-this-url-new-session ()
+  "Display the page of the link under point in a new session.
+If the region is active, use the `w3m-open-all-links-in-new-session'
+command instead."
+  (interactive)
+  (if (w3m-region-active-p)
+      (call-interactively 'w3m-open-all-links-in-new-session)
+    (w3m-view-this-url nil t)))
+
+(defun w3m-mouse-view-this-url-new-session (event)
+  "Follow the link under the mouse pointer in a new session."
+  (interactive "e")
+  (mouse-set-point event)
+  (w3m-view-this-url nil t))
+
+(defun w3m-submit-form (&optional new-session)
+  "Submit the form at point."
+  (interactive "P")
+  (let ((submit (w3m-submit)))
+    (if (and submit
+	     w3m-current-url
+	     (w3m-url-valid w3m-current-url)
+	     (if w3m-submit-form-safety-check
+		 (prog1 (y-or-n-p "Submit? ") (message nil))
+	       t))
+	(let ((w3m-form-new-session new-session)
+	      (w3m-form-download nil))
+	  (eval submit))
+      (w3m-message "Can't submit form at this point"))))
+
+(defun w3m-external-view (url &optional no-cache handler)
+  (when (w3m-url-valid url)
+    (lexical-let ((url url)
+		  (no-cache no-cache))
+      (w3m-process-do
+	  (type (w3m-content-type url no-cache handler))
+	(when type
+	  (lexical-let ((method
+			 (or (nth 2 (assoc type w3m-content-type-alist))
+			     (nth 2 (assoc (w3m-prepare-content url type nil)
+					   w3m-content-type-alist)))))
+	    (cond
+	     ((not method)
+	      (if (w3m-url-local-p url)
+		  (error "\
+No method to view `%s' is registered. Use `w3m-edit-this-url'"
+			 (file-name-nondirectory (w3m-url-to-file-name url)))
+		(w3m-download url nil no-cache handler)))
+	     ((functionp method)
+	      (funcall method url))
+	     ((consp method)
+	      (lexical-let
+		  ((command (w3m-which-command (car method)))
+		   (arguments (cdr method))
+		   (file (make-temp-name
+			  (expand-file-name "w3mel" w3m-profile-directory)))
+		   suffix)
+		(setq suffix (file-name-nondirectory url))
+		(when (string-match "\\.[a-zA-Z0-9]+$" suffix)
+		  (setq suffix (match-string 0 suffix))
+		  (when (< (length suffix) 5)
+		    (setq file (concat file suffix))))
+		(cond
+		 ((and command (memq 'file arguments))
+		  (let ((w3m-current-buffer (current-buffer)))
+		    (w3m-process-do
+			(success (w3m-download url file no-cache handler))
+		      (when success
+			(w3m-external-view-file command file url arguments)))))
+		 (command
+		  (w3m-external-view-file command nil url arguments))
+		 (t
+		  (w3m-download url nil no-cache handler))))))))))))
+
+(defun w3m-external-view-file (command file url arguments)
+  ;; The 3rd argument `url' is necessary to handle the constant `url'
+  ;; included in the 4th argument `arguments' which is provided by
+  ;; `w3m-content-type-alist'.
+  (lexical-let ((file file))
+    (let (proc)
+      (unwind-protect
+	  (with-current-buffer
+	      (generate-new-buffer " *w3m-external-view*")
+	    (setq proc
+		  (apply 'start-process
+			 "w3m-external-view"
+			 (current-buffer)
+			 command
+			 (mapcar (function eval) arguments)))
+	    (w3m-message "Start %s..." (file-name-nondirectory command))
+	    (set-process-sentinel
+	     proc
+	     (lambda (proc event)
+	       (let ((buffer (process-buffer proc)))
+		 (when (and (string-match "^\\(?:finished\\|exited\\)" event)
+			    (buffer-name buffer))
+		   (with-current-buffer buffer
+		     (and (stringp file)
+			  (file-exists-p file)
+			  (delete-file file)))
+		   (kill-buffer buffer))))))
+	(and (stringp file)
+	     (file-exists-p file)
+	     (unless (and (processp proc)
+			  (memq (process-status proc) '(run stop)))
+	       (delete-file file)))))))
+
+(defun w3m-view-image ()
+  "Display the image under point in the external viewer.
+The viewer is defined in `w3m-content-type-alist' for every type of an
+image."
+  (interactive)
+  (let ((url (w3m-url-valid (w3m-image))))
+    (if url
+	(w3m-external-view url)
+      (w3m-message "No image at point"))))
+
+(defun w3m-save-image ()
+  "Save the image under point to a file.
+The default name will be the original name of the image."
+  (interactive)
+  (let ((url (w3m-url-valid (w3m-image))))
+    (if url
+	(w3m-download url)
+      (w3m-message "No image at point"))))
+
+(defun w3m-external-view-this-url ()
+  "Launch the external browser and display the link an point."
+  (interactive)
+  (let ((url (w3m-url-valid (or (w3m-anchor) (w3m-image)))))
+    (if url
+	(w3m-external-view url)
+      (w3m-message "No URL at point"))))
+
+(defun w3m-external-view-current-url ()
+  "Launch the external browser and display the current URL."
+  (interactive)
+  (if w3m-current-url
+      (w3m-external-view w3m-current-url)
+    (w3m-message "No URL at this page")))
+
+(defun w3m-view-url-with-external-browser (&optional url)
+  "Launch the external browser and display the same web page.
+If the cursor points to a link, it visits the url of the link instead
+of the url currently displayed.  The browser is defined in
+`w3m-content-type-alist' for every type of a url."
+  (interactive)
+  (unless url
+    (setq url (or url
+		  (w3m-anchor)
+		  (unless w3m-display-inline-images
+		    (w3m-image))
+		  (when (y-or-n-p (format "Browse <%s> ? " w3m-current-url))
+		    w3m-current-url))))
+  (if (w3m-url-valid url)
+      (progn
+	(message "Browsing <%s>..." url)
+	(w3m-external-view url))
+    (w3m-message "No URL at point")))
+
+(defun w3m-download-this-url ()
+  "Download the file or the page pointed to by the link under point."
+  (interactive)
+  (let ((url (or (w3m-anchor) (w3m-image))) act)
+    (cond
+     ((w3m-url-valid url)
+      (lexical-let ((pos (point-marker))
+		    (curl w3m-current-url))
+	(w3m-process-with-null-handler
+	  (w3m-process-do
+	      (success (w3m-download url nil nil handler))
+	    (and success
+		 (buffer-name (marker-buffer pos))
+		 (with-current-buffer (marker-buffer pos)
+		   (when (equal curl w3m-current-url)
+		     (goto-char pos)
+		     (w3m-refontify-anchor))))))))
+     ((setq act (w3m-action))
+      (let ((w3m-form-download t))
+	(eval act)))
+     (t
+      (w3m-message "No URL at point")))))
+
+(defun w3m-download-this-image ()
+  "Download the image under point."
+  (interactive)
+  (let ((url (w3m-image)) act)
+    (cond
+     ((w3m-url-valid url)
+      (lexical-let ((pos (point-marker))
+		    (curl w3m-current-url))
+	(w3m-process-with-null-handler
+	  (w3m-process-do
+	      (success (w3m-download url nil nil handler))
+	    (and success
+		 (buffer-name (marker-buffer pos))
+		 (with-current-buffer (marker-buffer pos)
+		   (when (equal curl w3m-current-url)
+		     (goto-char pos)
+		     (w3m-refontify-anchor))))))))
+     ((setq act (w3m-action))
+      (let ((w3m-form-download t))
+	(eval act)))
+     (t
+      (w3m-message "No image at point")))))
+
+(defun w3m-print-current-url ()
+  "Display the current url in the echo area and put it into `kill-ring'."
+  (interactive)
+  (when w3m-current-url
+    (let ((deactivate-mark nil))
+      (kill-new w3m-current-url)
+      (w3m-message "%s" (w3m-url-readable-string w3m-current-url)))))
+
+(defun w3m-print-this-url (&optional interactive-p)
+  "Display the url under point in the echo area and put it into `kill-ring'."
+  (interactive (list t))
+  (let ((deactivate-mark nil)
+	(url (if interactive-p
+		 (or (w3m-anchor) (w3m-image))
+	       (or (w3m-anchor (point)) (w3m-image (point)))))
+	(alt (if interactive-p
+		 (w3m-image-alt)
+	       (w3m-image-alt (point)))))
+    (when (or url interactive-p)
+      (and url interactive-p (kill-new url))
+      (w3m-message "%s%s"
+		   (if (zerop (length alt))
+		       ""
+		     (concat alt ": "))
+		   (or (w3m-url-readable-string url)
+		       (and (w3m-action) "There is a form")
+		       "There is no url")))))
+
+(defun w3m-print-this-image-url (&optional interactive-p)
+  "Display image url under point in echo area and put it into `kill-ring'."
+  (interactive (list t))
+  (let ((deactivate-mark nil)
+	(url (if interactive-p
+		 (w3m-image)
+	       (w3m-image (point))))
+	(alt (if interactive-p
+		 (w3m-image-alt)
+	       (w3m-image-alt (point)))))
+    (when (or url interactive-p)
+      (and url interactive-p (kill-new url))
+      (w3m-message "%s%s"
+		   (if (zerop (length alt))
+		       ""
+		     (concat alt ": "))
+		   (or (w3m-url-readable-string url)
+		       (and (w3m-action) "There is a form")
+		       "There is no image url")))))
+
+(defmacro w3m-delete-all-overlays ()
+  "Delete all momentary overlays."
+  '(dolist (overlay (overlays-in (point-min) (point-max)))
+     (if (overlay-get overlay 'w3m-momentary-overlay)
+	 (delete-overlay overlay))))
+
+(defun w3m-highlight-current-anchor-1 (seq)
+  "Highlight an anchor in the line if the anchor sequence is the same as SEQ.
+Return t if highlighting is successful."
+  (let ((limit (point-at-eol))
+	ov beg pos pseq)
+    (save-excursion
+      (beginning-of-line)
+      (setq pos (point))
+      (while (and pos
+		  (< pos limit)
+		  (not (eq seq (setq pseq (w3m-anchor-sequence pos)))))
+	(setq pos (next-single-property-change pos 'w3m-anchor-sequence)))
+      (when (and pos (< pos limit) (eq seq pseq))
+	(setq beg pos)
+	(setq pos (next-single-property-change pos 'w3m-anchor-sequence))
+	(setq ov (make-overlay beg pos))
+	(overlay-put ov 'face 'w3m-current-anchor)
+	(overlay-put ov 'w3m-momentary-overlay t)
+	(overlay-put ov 'evaporate t)
+	t))))
+
+(defun w3m-highlight-current-anchor ()
+  "Highlight an anchor under point."
+  (when (let ((ovs (overlays-at (point))) ov)
+	  ;; If the anchor is already highlighted, it does nothing.
+	  (or (null ovs)
+	      (null (progn (while ovs
+			     (if (overlay-get (car ovs) 'w3m-momentary-overlay)
+				 (setq ov (car ovs)
+				       ovs nil))
+			     (setq ovs (cdr ovs)))
+			   ov))))
+    (w3m-delete-all-overlays)
+    (save-excursion
+      (let ((seq (w3m-anchor-sequence))
+	    (pos (point)))
+	(when (and seq
+		   (w3m-highlight-current-anchor-1 seq)
+		   (zerop (forward-line 1)))
+	  (while (and (w3m-highlight-current-anchor-1 seq)
+		      (zerop (forward-line 1))))
+	  (goto-char pos)
+	  (while (and (zerop (forward-line -1))
+		      (w3m-highlight-current-anchor-1 seq))))))))
+
+(defun w3m-edit-url (url)
+  "Edit the page pointed by URL."
+  (interactive (list (w3m-input-url)))
+  (when (string-match "\\`about://\\(?:header\\|source\\)/" url)
+    (setq url (substring url (match-end 0))))
+  (catch 'found
+    (dolist (pair w3m-edit-function-alist)
+      (when (and (string-match (car pair) url)
+		 (fboundp (cdr pair)))
+	(throw 'found (funcall (cdr pair) url))))
+    (funcall w3m-edit-function
+	     (or (w3m-url-to-file-name url)
+		 (error "URL:%s is not a local file" url)))))
+
+(defun w3m-edit-current-url ()
+  "Edit this viewing page."
+  (interactive)
+  (if w3m-current-url
+      (w3m-edit-url w3m-current-url)
+    (w3m-message "No URL")))
+
+(defun w3m-edit-this-url ()
+  "Edit the page linked from the anchor under the cursor."
+  (interactive)
+  (let ((url (w3m-url-valid (w3m-anchor))))
+    (if url
+	(w3m-edit-url url)
+      (w3m-message "No URL at point"))))
+
+(defvar w3m-goto-anchor-hist nil)
+(make-variable-buffer-local 'w3m-goto-anchor-hist)
+
+(defun w3m-goto-next-anchor ()
+  (let ((hseq (w3m-anchor-sequence))
+	(pos (next-single-property-change (point) 'w3m-anchor-sequence)))
+    (if (or (not hseq) (< hseq 1))
+	(and pos (goto-char pos))
+      (setq pos
+	    ;; hseq is not sequence in form.
+	    (catch 'loop
+	      (setq hseq (1+ hseq))
+	      (while (<= hseq w3m-max-anchor-sequence)
+		(setq pos (text-property-any
+			   (point-min) (point-max) 'w3m-anchor-sequence hseq))
+		(when pos (throw 'loop pos))
+		(setq hseq (1+ hseq)))))
+      (and pos (goto-char pos)))))
+
+(defun w3m-next-anchor (&optional arg)
+  "Move the point to the next anchor."
+  (interactive "p")
+  (w3m-keep-region-active)
+  (unless arg (setq arg 1))
+  (if (null (memq last-command '(w3m-next-anchor w3m-previous-anchor)))
+      (when (setq w3m-goto-anchor-hist (w3m-anchor-sequence))
+	(setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist)))
+    (when (and (eq last-command 'w3m-previous-anchor) w3m-goto-anchor-hist)
+      (setcdr w3m-goto-anchor-hist nil)))
+  (if (< arg 0)
+      (w3m-previous-anchor (- arg))
+    (let (pos)
+      (while (> arg 0)
+	(unless (w3m-goto-next-anchor)
+	  (setq w3m-goto-anchor-hist nil)
+	  (if (w3m-imitate-widget-button)
+	      (widget-forward 1)
+	    (when (setq pos (text-property-any
+			     (point-min) (point-max) 'w3m-anchor-sequence 1))
+	      (goto-char pos))))
+	(setq arg (1- arg))
+	(if (member (w3m-anchor-sequence) w3m-goto-anchor-hist)
+	    (setq arg (1+ arg))
+	  (push (w3m-anchor-sequence) w3m-goto-anchor-hist))))
+    (w3m-horizontal-on-screen)
+    (w3m-print-this-url)))
+
+(defun w3m-goto-previous-anchor ()
+  (let ((hseq (w3m-anchor-sequence))
+	(pos (previous-single-property-change (point) 'w3m-anchor-sequence)))
+    (cond
+     ((and (not hseq) pos)
+      (if (w3m-anchor-sequence pos)
+	  (goto-char pos)
+	(setq pos (previous-single-property-change pos 'w3m-anchor-sequence))
+	(and pos (goto-char pos))))
+     ((or (not pos) (< hseq 2)) nil)
+     (t
+      (setq pos
+	    ;; hseq is not sequence in form.
+	    (catch 'loop
+	      (setq hseq (1- hseq))
+	      (while (> hseq 0)
+		(setq pos (text-property-any
+			   (point-min) (point-max) 'w3m-anchor-sequence hseq))
+		(when pos (throw 'loop pos))
+		(setq hseq (1- hseq)))))
+      (and pos (goto-char pos))))))
+
+(defun w3m-previous-anchor (&optional arg)
+  "Move the point to the previous anchor."
+  (interactive "p")
+  (w3m-keep-region-active)
+  (unless arg (setq arg 1))
+  (if (null (memq last-command '(w3m-next-anchor w3m-previous-anchor)))
+      (when (setq w3m-goto-anchor-hist (w3m-anchor-sequence))
+	(setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist)))
+    (when (and (eq last-command 'w3m-next-anchor) w3m-goto-anchor-hist)
+      (setcdr w3m-goto-anchor-hist nil)))
+  (if (< arg 0)
+      (w3m-next-anchor (- arg))
+    (let (pos)
+      (while (> arg 0)
+	(unless (w3m-goto-previous-anchor)
+	  (setq w3m-goto-anchor-hist nil)
+	  (if (w3m-imitate-widget-button)
+	      (widget-forward -1)
+	    (when (setq pos (and w3m-max-anchor-sequence
+				 (text-property-any
+				  (point-min) (point-max)
+				  'w3m-anchor-sequence
+				  w3m-max-anchor-sequence)))
+	      (goto-char pos))))
+	(setq arg (1- arg))
+	(if (member (w3m-anchor-sequence) w3m-goto-anchor-hist)
+	    (setq arg (1+ arg))
+	  (push (w3m-anchor-sequence) w3m-goto-anchor-hist))))
+    (w3m-horizontal-on-screen)
+    (w3m-print-this-url)))
+
+(defun w3m-goto-next-form ()
+  ;; Move the point to the end of the current form.
+  (when (w3m-action (point))
+    (goto-char (next-single-property-change (point) 'w3m-action)))
+  ;; Find the next form.
+  (or (w3m-action (point))
+      (let ((pos (next-single-property-change (point) 'w3m-action)))
+	(when pos
+	  (goto-char pos)
+	  t))))
+
+(defun w3m-next-form (&optional arg)
+  "Move the point to the next form."
+  (interactive "p")
+  (w3m-keep-region-active)
+  (unless arg (setq arg 1))
+  (if (null (memq last-command '(w3m-next-form w3m-previous-form)))
+      (when (setq w3m-goto-anchor-hist (w3m-action (point)))
+	(setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist)))
+    (when (and (eq last-command 'w3m-previous-form) w3m-goto-anchor-hist)
+      (setcdr w3m-goto-anchor-hist nil)))
+  (if (< arg 0)
+      (w3m-previous-form (- arg))
+    (while (> arg 0)
+      (unless (w3m-goto-next-form)
+	;; Make a search from the beginning of the buffer.
+	(setq w3m-goto-anchor-hist nil)
+	(goto-char (point-min))
+	(w3m-goto-next-form))
+      (setq arg (1- arg))
+      (if (member (w3m-action (point)) w3m-goto-anchor-hist)
+	  (setq arg (1+ arg))
+	(push (w3m-action (point)) w3m-goto-anchor-hist)))
+    (w3m-horizontal-on-screen)
+    (w3m-print-this-url)))
+
+(defun w3m-goto-previous-form ()
+  ;; Move the point to the beginning of the current form.
+  (when (w3m-action (point))
+    (goto-char (previous-single-property-change (1+ (point))
+						'w3m-action)))
+  ;; Find the previous form.
+  (let ((pos (previous-single-property-change (point) 'w3m-action)))
+    (if pos
+	(goto-char
+	 (if (w3m-action pos)
+	     pos
+	   (previous-single-property-change pos 'w3m-action))))))
+
+(defun w3m-previous-form (&optional arg)
+  "Move the point to the previous form."
+  (interactive "p")
+  (w3m-keep-region-active)
+  (unless arg (setq arg 1))
+  (if (null (memq last-command '(w3m-next-form w3m-previous-form)))
+      (when (setq w3m-goto-anchor-hist (w3m-action (point)))
+	(setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist)))
+    (when (and (eq last-command 'w3m-next-form) w3m-goto-anchor-hist)
+      (setcdr w3m-goto-anchor-hist nil)))
+  (if (< arg 0)
+      (w3m-next-form (- arg))
+    (while (> arg 0)
+      (unless (w3m-goto-previous-form)
+	;; search from the end of the buffer
+	(setq w3m-goto-anchor-hist nil)
+	(goto-char (point-max))
+	(w3m-goto-previous-form))
+      (setq arg (1- arg))
+      (if (member (w3m-action (point)) w3m-goto-anchor-hist)
+	  (setq arg (1+ arg))
+	(push (w3m-action (point)) w3m-goto-anchor-hist)))
+    (w3m-horizontal-on-screen)
+    (w3m-print-this-url)))
+
+(defun w3m-goto-next-image ()
+  ;; Move the point to the end of the current image.
+  (when (w3m-image (point))
+    (goto-char (next-single-property-change (point) 'w3m-image)))
+  ;; Find the next form or image.
+  (or (w3m-image (point))
+      (let ((pos (next-single-property-change (point) 'w3m-image)))
+	(when pos
+	  (goto-char pos)
+	  t))))
+
+(defun w3m-next-image (&optional arg)
+  "Move the point to the next image."
+  (interactive "p")
+  (w3m-keep-region-active)
+  (unless arg (setq arg 1))
+  (if (null (memq last-command
+		  '(w3m-next-image w3m-previous-image)))
+      (when (setq w3m-goto-anchor-hist (w3m-image (point)))
+	(setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist)))
+    (when (and (eq last-command 'w3m-previous-image)
+	       w3m-goto-anchor-hist)
+      (setcdr w3m-goto-anchor-hist nil)))
+  (if (< arg 0)
+      (w3m-previous-image (- arg))
+    (while (> arg 0)
+      (unless (w3m-goto-next-image)
+	;; Make a search for an image from the beginning of the buffer.
+	(setq w3m-goto-anchor-hist nil)
+	(goto-char (point-min))
+	(w3m-goto-next-image))
+      (setq arg (1- arg))
+      (if (member (w3m-image (point)) w3m-goto-anchor-hist)
+	  (setq arg (1+ arg))
+	(push (w3m-image (point)) w3m-goto-anchor-hist)))
+    (w3m-horizontal-on-screen)
+    (w3m-print-this-url)))
+
+(defun w3m-goto-previous-image ()
+  ;; Move the point to the beginning of the current image.
+  (when (w3m-image (point))
+    (goto-char (previous-single-property-change (1+ (point))
+						'w3m-image)))
+  ;; Find the previous form or image.
+  (let ((pos (previous-single-property-change (point) 'w3m-image)))
+    (if pos
+	(goto-char
+	 (if (w3m-image pos) pos
+	   (previous-single-property-change pos 'w3m-image))))))
+
+(defun w3m-previous-image (&optional arg)
+  "Move the point to the previous image."
+  (interactive "p")
+  (w3m-keep-region-active)
+  (unless arg (setq arg 1))
+  (if (null (memq last-command '(w3m-next-image w3m-previous-image)))
+      (when (setq w3m-goto-anchor-hist (w3m-image (point)))
+	(setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist)))
+    (when (and (eq last-command 'w3m-next-image)
+	       w3m-goto-anchor-hist)
+      (setcdr w3m-goto-anchor-hist nil)))
+  (if (< arg 0)
+      (w3m-next-image (- arg))
+    (while (> arg 0)
+      (unless (w3m-goto-previous-image)
+	;; Make a search from the end of the buffer.
+	(setq w3m-goto-anchor-hist nil)
+	(goto-char (point-max))
+	(w3m-goto-previous-image))
+      (setq arg (1- arg))
+      (if (member (w3m-image (point)) w3m-goto-anchor-hist)
+	  (setq arg (1+ arg))
+	(push (w3m-image (point)) w3m-goto-anchor-hist)))
+    (w3m-horizontal-on-screen)
+    (w3m-print-this-url)))
+
+(defun w3m-copy-buffer (&optional buffer newname just-copy empty background)
+  "Create a copy of the BUFFER in which emacs-w3m is working.
+Return a new buffer.
+
+If BUFFER is nil, the current buffer is assumed.  If NEWNAME is nil,
+it defaults to the name of the current buffer.  If JUST-COPY is nil,
+this function lets a new buffer be the current buffer and pop up as a
+new window or a new frame according to `w3m-pop-up-windows' and
+`w3m-pop-up-frames' (which see), otherwise just creates BUFFER's copy.
+If EMPTY is nil, a page of the same url will be re-rendered in a new
+buffer, otherwise an empty buffer is created. If BACKGROUND is non-nil,
+this function stays on the current buffer.
+
+Note that this function should be called on the window displaying the
+original buffer BUFFER even if JUST-COPY is non-nil in order to render
+a page in a new buffer with the correct width."
+  (interactive (list (current-buffer)
+		     (if current-prefix-arg (read-string "Name: "))
+		     t))
+  (unless buffer
+    (setq buffer (current-buffer)))
+  (unless newname
+    (setq newname (buffer-name buffer)))
+  (when (string-match "<[0-9]+>\\'" newname)
+    (setq newname (substring newname 0 (match-beginning 0))))
+  (let (url coding images init-frames new)
+    (save-current-buffer
+      (set-buffer buffer)
+      (setq url (or w3m-current-url
+		    (car (w3m-history-element (cadar w3m-history))))
+	    coding w3m-current-coding-system
+	    images w3m-display-inline-images
+	    init-frames (when (w3m-popup-frame-p)
+			  (copy-sequence w3m-initial-frames)))
+      (unless url
+	(setq empty t))
+      ;;
+      (set-buffer (setq new (w3m-generate-new-buffer newname)))
+      (w3m-mode)
+      ;; Make copies of `w3m-history' and `w3m-history-flat'.
+      (w3m-history-copy buffer)
+      (setq w3m-current-coding-system coding
+	    w3m-initial-frames init-frames
+	    w3m-display-inline-images
+	    (if w3m-toggle-inline-images-permanently
+		images
+	      w3m-default-display-inline-images)))
+    (cond
+     ((and empty (not background))
+      ;; Pop to a window or a frame up because `w3m-goto-url' is not called.
+      (w3m-popup-buffer new))
+     (empty
+      ;; When empty and just-copy, stay origianl buffer.
+      )
+     (t
+      ;; Need to change to the `new' buffer in which `w3m-goto-url' runs.
+      (set-buffer new)
+      ;; Render a page.
+      (let ((positions (copy-sequence (car w3m-history)))
+	    (w3m-history-reuse-history-elements t)
+	    (w3m-prefer-cache t))
+	(w3m-process-with-wait-handler
+	  (w3m-goto-url url 'redisplay nil nil nil handler
+			;; Pass the properties of the history elements,
+			;; although it is currently always nil.
+			(w3m-history-element (cadr positions))))
+	(setcar w3m-history positions))
+      (when (and w3m-new-session-in-background
+		 just-copy
+		 (not (get-buffer-window buffer)))
+	(set-window-buffer (selected-window) buffer))))
+    new))
+
+(defun w3m-next-buffer (arg)
+  "Turn ARG pages of emacs-w3m buffers ahead."
+  (interactive "p")
+  (unless arg (setq arg 1))
+  (when (and (/= arg 0) (eq major-mode 'w3m-mode))
+    (w3m-history-store-position)
+    (let* ((buffers (w3m-list-buffers))
+	   (len (length buffers)))
+      (switch-to-buffer
+       (nth (mod (+ arg (- len (length (memq (current-buffer) buffers))))
+		 len)
+	    buffers)))
+    (w3m-history-restore-position)
+    (run-hooks 'w3m-select-buffer-hook)
+    (w3m-select-buffer-update)))
+
+(defun w3m-previous-buffer (arg)
+  "Turn ARG pages of emacs-w3m buffers behind."
+  (interactive "p")
+  (w3m-next-buffer (- arg)))
+
+(defun w3m-delete-buffer (&optional force)
+  "Delete the current emacs-w3m buffer and switch to the previous one.
+If there is the sole emacs-w3m buffer, it is assumed to be called for
+terminating the emacs-w3m session; the prefix argument FORCE will be
+passed to the `w3m-quit' function (which see)."
+  (interactive "P")
+  ;; Bind `w3m-fb-mode' to nil so that this function might not call
+  ;; `w3m-quit' when there is only one buffer belonging to the selected
+  ;; frame, but there are emacs-w3m buffers in other frames.
+  (let* ((w3m-fb-mode nil)
+	 (buffers (w3m-list-buffers t))
+	 (num (length buffers))
+	 cur buf bufs)
+    (if (= 1 num)
+	(w3m-quit force)
+      (setq cur (current-buffer))
+      (if (w3m-use-tab-p)
+	  (save-window-excursion
+	    (select-window (or (get-buffer-window cur t) (selected-window)))
+	    (w3m-next-buffer -1))
+	;; List buffers being shown in the other windows of the current frame.
+	(save-current-buffer
+	  (walk-windows (lambda (window)
+			  (set-buffer (setq buf (window-buffer window)))
+			  (when (and (eq major-mode 'w3m-mode)
+				     (not (eq buf cur)))
+			    (push buf bufs)))
+			'no-minibuf))
+	(cond ((= (1- num) (length bufs))
+	       ;; All the other buffers are shown in the current frame.
+	       (select-window (get-buffer-window (prog2
+						     (w3m-next-buffer -1)
+						     (current-buffer)
+						   (delete-window)))))
+	      (bufs
+	       ;; Look for the buffer which is not shown in the current frame.
+	       (setq buf nil)
+	       (while (progn
+			(w3m-next-buffer -1)
+			(unless buf
+			  (setq buf (current-buffer)))
+			(memq (current-buffer) bufs)))
+	       (when (memq buf bufs)
+		 ;; Go to the buffer which is most suitable to be called
+		 ;; the *previous* buffer.
+		 (select-window (get-buffer-window buf))))
+	      ((progn ;; List buffers being not shown anywhere.
+		 (setq bufs nil)
+		 (while buffers
+		   (unless (get-buffer-window (setq buf (pop buffers)) t)
+		     (push buf bufs)))
+		 bufs)
+	       (while (progn
+			(w3m-next-buffer -1)
+			(not (memq (current-buffer) bufs)))))
+	      ((memq (selected-frame) w3m-initial-frames)
+	       ;; Assume that this frame was created to show this buffer.
+	       (if (one-window-p t)
+		   (delete-frame)
+		 (delete-window)))
+	      (t
+	       (if (>= num 2)
+		   (w3m-next-buffer -1)
+		 (unless (one-window-p t)
+		   (delete-window))))))
+      (w3m-session-deleted-save (list cur))
+      (w3m-process-stop cur)
+      (w3m-idle-images-show-unqueue cur)
+      (kill-buffer cur)
+      (when w3m-use-form
+	(w3m-form-kill-buffer cur))
+      (w3m-history-restore-position)
+      (run-hooks 'w3m-delete-buffer-hook)
+      (w3m-session-crash-recovery-save)))
+  (w3m-select-buffer-update)
+  (unless w3m-fb-inhibit-buffer-selection
+    (w3m-fb-select-buffer)))
+
+(defun w3m-delete-buffer-if-empty (buffer)
+  "Delete a newly created emacs-w3m buffer BUFFER if it seems unnecessary.
+Some emacs-w3m commands create a buffer for the new session first, but
+it may be useless if the command is invoked for visiting a local file
+or a mail buffer.  This command will delete BUFFER if it is empty or
+there is only a progress message.  It also deletes windows and frames
+related to BUFFER."
+  (with-current-buffer buffer
+    (unless (or w3m-current-process
+		w3m-current-url
+		(not (or (zerop (buffer-size))
+			 (and (get-text-property (point-min)
+						 'w3m-progress-message)
+			      (get-text-property (1- (point-max))
+						 'w3m-progress-message)))))
+      (w3m-delete-buffer t))))
+
+(defun w3m-pack-buffer-numbers ()
+  "Renumber suffixes of names of emacs-w3m buffers.
+It aligns emacs-w3m buffers in order of *w3m*, *w3m<2>, *w3m*<3>,...
+as if the folder command of MH performs with the -pack option."
+  (interactive)
+  (let ((count 1) number newname)
+    (dolist (buffer (w3m-list-buffers))
+      (setq number (w3m-buffer-number buffer))
+      (when number
+	(unless (eq number count)
+	  (when (and (setq newname (w3m-buffer-set-number buffer count))
+		     w3m-use-form)
+	    (w3m-form-set-number buffer newname)))
+	(incf count)))))
+
+(defun w3m-delete-other-buffers (&optional buffer)
+  "Delete emacs-w3m buffers except for BUFFER or the current buffer."
+  (interactive)
+  (unless buffer
+    (setq buffer (current-buffer)))
+  (w3m-delete-frames-and-windows buffer)
+  (let ((buffers (delq buffer (w3m-list-buffers t))))
+    (w3m-delete-buffers buffers)))
+
+(defun w3m-delete-left-tabs ()
+  "Delete tabs on the left side of the current tab."
+  (interactive)
+  (let ((cbuf (current-buffer))
+	bufs)
+    (setq bufs (catch 'done
+		 (dolist (buf (w3m-list-buffers))
+		   (if (eq cbuf buf)
+		       (throw 'done bufs)
+		     (setq bufs (cons buf bufs))))))
+    (when bufs
+      (w3m-delete-buffers bufs))))
+
+(defun w3m-delete-right-tabs ()
+  "Delete tabs on the right side of the current tab."
+  (interactive)
+  (let ((bufs (w3m-righttab-exist-p)))
+    (when bufs
+      (w3m-delete-buffers bufs))))
+
+(defun w3m-delete-buffers (buffers)
+  "Delete emacs-w3m buffers."
+  (let (buffer)
+    (when buffers
+      (w3m-session-deleted-save buffers))
+    (while buffers
+      (setq buffer (pop buffers))
+      (w3m-process-stop buffer)
+      (w3m-idle-images-show-unqueue buffer)
+      (kill-buffer buffer)
+      (when w3m-use-form
+	(w3m-form-kill-buffer buffer))))
+  (run-hooks 'w3m-delete-buffer-hook)
+  (w3m-session-crash-recovery-save)
+  (w3m-select-buffer-update)
+  (w3m-force-window-update))
+
+(defvar w3m-ctl-c-map nil
+  "Sub-keymap used for the `C-c'-prefixed commands.
+
+Note: keys should not be alphabet since `C-c LETTER' keys are reserved
+for users.  See Info node `(elisp)Key Binding Conventions'.")
+(unless w3m-ctl-c-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-@" 'w3m-history-store-position)
+    (if (featurep 'xemacs)
+	(define-key map [(control space)] 'w3m-history-store-position)
+      ;; `C- ' doesn't mean `C-SPC' in XEmacs.
+      (define-key map [?\C-\ ] 'w3m-history-store-position))
+    (define-key map "\C-v" 'w3m-history-restore-position)
+    (define-key map "\C-t" 'w3m-copy-buffer)
+    (define-key map "\C-p" 'w3m-previous-buffer)
+    (define-key map "\C-n" 'w3m-next-buffer)
+    (when (featurep 'w3m-ems)
+      (define-key map [?\C-,] 'w3m-tab-move-left)
+      (define-key map [?\C-<] 'w3m-tab-move-left)
+      (define-key map [?\C-.] 'w3m-tab-move-right)
+      (define-key map [?\C->] 'w3m-tab-move-right))
+    (define-key map "\C-w" 'w3m-delete-buffer)
+    (define-key map "\M-w" 'w3m-delete-other-buffers)
+    (define-key map "\M-l" 'w3m-delete-left-tabs)
+    (define-key map "\M-r" 'w3m-delete-right-tabs)
+    (define-key map "\C-s" 'w3m-select-buffer)
+    (define-key map "\C-a" 'w3m-switch-buffer)
+    (define-key map "\C-b" 'report-emacs-w3m-bug)
+    (define-key map "\C-c" 'w3m-submit-form)
+    (define-key map "\C-k" 'w3m-process-stop)
+    (define-key map "\C-m" 'w3m-move-unseen-buffer)
+    (define-key map "\C-l" 'w3m-go-to-linknum)
+    (setq w3m-ctl-c-map map)))
+
+(defvar w3m-redisplay-map nil
+  "Sub-keymap used for the `C'-prefixed redisplay commands.")
+(unless w3m-redisplay-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "t" 'w3m-redisplay-with-content-type)
+    (define-key map "c" 'w3m-redisplay-with-charset)
+    (define-key map "C" 'w3m-redisplay-and-reset)
+    (setq w3m-redisplay-map map)))
+
+(defvar w3m-linknum-map nil
+  "Sub-keymap used for the `L'-prefixed link numbering commands.")
+(unless w3m-linknum-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "F" 'w3m-go-to-linknum)
+    (define-key map "I" 'w3m-linknum-view-image)
+    (define-key map "\M-i" 'w3m-linknum-save-image)
+    (define-key map "d" 'w3m-linknum-download-this-url)
+    (define-key map "e" 'w3m-linknum-edit-this-url)
+    (define-key map "f" 'w3m-linknum-follow)
+    (define-key map "t" 'w3m-linknum-toggle-inline-image)
+    (define-key map "u" 'w3m-linknum-print-this-url)
+    (define-key map "b" 'w3m-linknum-bookmark-add-this-url)
+    (define-key map "]" 'w3m-linknum-zoom-in-image)
+    (define-key map "[" 'w3m-linknum-zoom-out-image)
+    (setq w3m-linknum-map map)))
+
+(defvar w3m-lynx-like-map nil
+  "Lynx-like keymap used in emacs-w3m buffers.")
+;; `C-t' is a prefix key reserved to commands that do something in all
+;; emacs-w3m buffers.  2006-05-18
+(unless w3m-lynx-like-map
+  (let ((map (make-keymap)))
+    (suppress-keymap map)
+    (define-key map " " 'w3m-scroll-up-or-next-url)
+    (define-key map "b" 'w3m-scroll-down-or-previous-url)
+    (define-key map [backspace] 'w3m-scroll-down-or-previous-url)
+    (define-key map [delete] 'w3m-scroll-down-or-previous-url)
+    (if (featurep 'xemacs)
+	(define-key map [(shift space)] 'w3m-scroll-down-or-previous-url)
+      (define-key map [?\S-\ ] 'w3m-scroll-down-or-previous-url))
+    (define-key map "h" 'backward-char)
+    (define-key map "j" 'next-line)
+    (define-key map "k" 'previous-line)
+    (define-key map "l" 'forward-char)
+    (define-key map "J" 'w3m-scroll-up-1)
+    (define-key map "K" (lambda () (interactive) (scroll-down 1)))
+    (define-key map "\C-?" 'w3m-scroll-down-or-previous-url)
+    (define-key map "\t" 'w3m-next-anchor)
+    (define-key map [tab] 'w3m-next-anchor)
+    (define-key map [(shift tab)] 'w3m-previous-anchor)
+    (define-key map [(shift iso-lefttab)] 'w3m-previous-anchor)
+    (define-key map [backtab] 'w3m-previous-anchor)
+    (define-key map [down] 'w3m-next-anchor)
+    (define-key map "\M-\t" 'w3m-previous-anchor)
+    (define-key map [up] 'w3m-previous-anchor)
+    (define-key map "\C-m" 'w3m-view-this-url)
+    (define-key map [(shift return)] 'w3m-view-this-url-new-session)
+    (define-key map [(shift kp-enter)] 'w3m-view-this-url-new-session)
+    (define-key map [right] 'w3m-view-this-url)
+    (cond ((featurep 'xemacs)
+	   (define-key map [(button3)] 'w3m-mouse-major-mode-menu))
+	  ;; Don't use [mouse-3], which gets submenus not working in GTK Emacs.
+	  ((featurep 'gtk)
+	   (define-key map [down-mouse-3] 'w3m-mouse-major-mode-menu)
+	   (define-key map [drag-mouse-3] 'undefined)
+	   (define-key map [mouse-3] 'undefined))
+	  (t
+	   (define-key map [mouse-3] 'w3m-mouse-major-mode-menu)))
+    (if (featurep 'xemacs)
+	(progn
+	  (define-key map [(button2)] 'w3m-mouse-view-this-url)
+	  (define-key map [(shift button2)]
+	    'w3m-mouse-view-this-url-new-session))
+      (define-key map [mouse-2] 'w3m-mouse-view-this-url)
+      ;; Support for mouse-1 on Emacs 22 and greater.
+      (define-key map [follow-link] 'mouse-face)
+      (define-key map [S-mouse-2] 'w3m-mouse-view-this-url-new-session))
+    (define-key map [left] 'w3m-view-previous-page)
+    (define-key map "B" 'w3m-view-previous-page)
+    (define-key map "N" 'w3m-view-next-page)
+    (define-key map "^" 'w3m-view-parent-page)
+    (define-key map "\M-d" 'w3m-download)
+    (define-key map "d" 'w3m-download-this-url)
+    (define-key map "u" 'w3m-print-this-url)
+    (define-key map "I" 'w3m-view-image)
+    (define-key map "\M-i" 'w3m-save-image)
+    (define-key map "c" 'w3m-print-current-url)
+    (define-key map "M" 'w3m-view-url-with-external-browser)
+    (define-key map "G" 'w3m-goto-url-new-session)
+    (define-key map "g" 'w3m-goto-url)
+    (define-key map "T" 'w3m-toggle-inline-images)
+    (define-key map "\M-T" 'w3m-turnoff-inline-images)
+    (define-key map "t" 'w3m-toggle-inline-image)
+    (when (w3m-display-graphic-p)
+      (define-key map "\M-[" 'w3m-zoom-out-image)
+      (define-key map "\M-]" 'w3m-zoom-in-image))
+    (define-key map "U" 'w3m-goto-url)
+    (define-key map "v" 'w3m-bookmark-view)
+    (define-key map "V" 'w3m-bookmark-view-new-session)
+    (define-key map "q" 'w3m-close-window)
+    (define-key map "Q" 'w3m-quit)
+    (define-key map "\M-n" 'w3m-copy-buffer)
+    (define-key map "\M-s" 'w3m-session-select)
+    (define-key map "\M-S" 'w3m-session-save)
+    (define-key map "r" 'w3m-redisplay-this-page)
+    (define-key map "R" 'w3m-reload-this-page)
+    (define-key map "\C-tR" 'w3m-reload-all-pages)
+    (define-key map "?" 'describe-mode)
+    (define-key map "\M-a" 'w3m-bookmark-add-this-url)
+    (define-key map "\M-k" 'w3m-cookie)
+    (define-key map "a" 'w3m-bookmark-add-current-url)
+    (define-key map "\C-ta" 'w3m-bookmark-add-all-urls)
+    (define-key map "+" 'w3m-antenna-add-current-url)
+    (define-key map "]" 'w3m-next-form)
+    (define-key map "[" 'w3m-previous-form)
+    (define-key map "}" 'w3m-next-image)
+    (define-key map "{" 'w3m-previous-image)
+    (define-key map "H" 'w3m-gohome)
+    (define-key map "A" 'w3m-antenna)
+    (define-key map "W" 'w3m-weather)
+    (define-key map "S" 'w3m-search)
+    (define-key map "D" 'w3m-dtree)
+    (define-key map ">" 'w3m-scroll-left)
+    (define-key map "<" 'w3m-scroll-right)
+    (define-key map "." 'w3m-shift-left)
+    (define-key map "," 'w3m-shift-right)
+    (define-key map "\M-l" 'w3m-horizontal-recenter)
+    (define-key map "\C-a" 'w3m-beginning-of-line)
+    (define-key map "\C-e" 'w3m-end-of-line)
+    (define-key map "\\" 'w3m-view-source)
+    (define-key map "=" 'w3m-view-header)
+    (define-key map "s" 'w3m-history)
+    (define-key map "E" 'w3m-edit-current-url)
+    (define-key map "e" 'w3m-edit-this-url)
+    (define-key map "|" 'w3m-pipe-source)
+    (define-key map "\C-c" w3m-ctl-c-map)
+    (define-key map "C" w3m-redisplay-map)
+    (define-key map "L" w3m-linknum-map)
+    (setq w3m-lynx-like-map map)))
+
+(defvar w3m-info-like-map nil
+  "Info-like keymap used in emacs-w3m buffers.")
+;; `C-t' is a prefix key reserved to commands that do something in all
+;; emacs-w3m buffers.  2006-05-18
+(unless w3m-info-like-map
+  (let ((map (make-keymap)))
+    (suppress-keymap map)
+    (define-key map [backspace] 'w3m-scroll-down-or-previous-url)
+    (define-key map [delete] 'w3m-scroll-down-or-previous-url)
+    (define-key map "\C-?" 'w3m-scroll-down-or-previous-url)
+    (if (featurep 'xemacs)
+	(define-key map [(shift space)] 'w3m-scroll-down-or-previous-url)
+      (define-key map [?\S-\ ] 'w3m-scroll-down-or-previous-url))
+    (define-key map "\t" 'w3m-next-anchor)
+    (define-key map [tab] 'w3m-next-anchor)
+    (define-key map [(shift tab)] 'w3m-previous-anchor)
+    (define-key map [(shift iso-lefttab)] 'w3m-previous-anchor)
+    (define-key map [backtab] 'w3m-previous-anchor)
+    (define-key map "\M-\t" 'w3m-previous-anchor)
+    (define-key map "\C-m" 'w3m-view-this-url)
+    (define-key map [(shift return)] 'w3m-view-this-url-new-session)
+    (define-key map [(shift kp-enter)] 'w3m-view-this-url-new-session)
+    (if (featurep 'xemacs)
+	(progn
+	  (define-key map [(button2)] 'w3m-mouse-view-this-url)
+	  (define-key map [(shift button2)]
+	    'w3m-mouse-view-this-url-new-session))
+      (define-key map [mouse-2] 'w3m-mouse-view-this-url)
+      ;; Support for mouse-1 on Emacs 22 and greater.
+      (define-key map [follow-link] 'mouse-face)
+      (define-key map [S-mouse-2] 'w3m-mouse-view-this-url-new-session))
+    (cond ((featurep 'xemacs)
+	   (define-key map [(button3)] 'w3m-mouse-major-mode-menu))
+	  ;; Don't use [mouse-3], which gets submenus not working in GTK Emacs.
+	  ((featurep 'gtk)
+	   (define-key map [down-mouse-3] 'w3m-mouse-major-mode-menu)
+	   (define-key map [drag-mouse-3] 'undefined)
+	   (define-key map [mouse-3] 'undefined))
+	  (t
+	   (define-key map [mouse-3] 'w3m-mouse-major-mode-menu)))
+    (define-key map " " 'w3m-scroll-up-or-next-url)
+    (define-key map "a" 'w3m-bookmark-add-current-url)
+    (define-key map "\C-ta" 'w3m-bookmark-add-all-urls)
+    (define-key map "\M-a" 'w3m-bookmark-add-this-url)
+    (define-key map "+" 'w3m-antenna-add-current-url)
+    (define-key map "A" 'w3m-antenna)
+    (define-key map "b" 'w3m-scroll-down-or-previous-url)
+    (define-key map "!" 'w3m-redisplay-with-content-type)
+    (define-key map "d" 'w3m-download)
+    (define-key map "D" 'w3m-download-this-url)
+    (define-key map "e" 'w3m-edit-current-url)
+    (define-key map "E" 'w3m-edit-this-url)
+    (define-key map "f" 'undefined) ;; reserved.
+    (define-key map "g" 'w3m-goto-url)
+    (define-key map "G" 'w3m-goto-url-new-session)
+    (define-key map "h" 'describe-mode)
+    (define-key map "H" 'w3m-gohome)
+    (define-key map "i" (if (w3m-display-graphic-p)
+			    'w3m-toggle-inline-image
+			  'w3m-view-image))
+    (define-key map "I" 'w3m-toggle-inline-images)
+    (define-key map "\M-I" 'w3m-turnoff-inline-images)
+    (when (w3m-display-graphic-p)
+      (define-key map "\M-[" 'w3m-zoom-out-image)
+      (define-key map "\M-]" 'w3m-zoom-in-image))
+    (define-key map "\M-i" 'w3m-save-image)
+    (define-key map "l" 'w3m-view-previous-page)
+    (define-key map "\C-l" 'recenter)
+    (define-key map [(control L)] 'w3m-reload-this-page)
+    (define-key map [(control t) (control L)] 'w3m-reload-all-pages)
+    (define-key map "M" 'w3m-view-url-with-external-browser)
+    (define-key map "n" 'w3m-view-next-page)
+    (define-key map "N" 'w3m-namazu)
+    (define-key map "\M-n" 'w3m-copy-buffer)
+    (define-key map "\M-k" 'w3m-cookie)
+    (define-key map "\M-s" 'w3m-session-select)
+    (define-key map "\M-S" 'w3m-session-save)
+    (define-key map "o" 'w3m-history)
+    (define-key map "O" 'w3m-db-history)
+    (define-key map "p" 'w3m-view-previous-page)
+    (define-key map "P" 'undecided) ;; reserved for print-this-buffer.
+    (define-key map "q" 'w3m-close-window)
+    (define-key map "Q" 'w3m-quit)
+    (define-key map "r" 'w3m-redisplay-this-page)
+    (define-key map "R" 'w3m-reload-this-page)
+    (define-key map "\C-tR" 'w3m-reload-all-pages)
+    (define-key map "s" 'w3m-search)
+    (define-key map "S" 'w3m-search-new-session)
+    (define-key map "T" 'w3m-dtree)
+    (define-key map "u" 'w3m-view-parent-page)
+    (define-key map "v" 'w3m-bookmark-view)
+    (define-key map "V" 'w3m-bookmark-view-new-session)
+    (define-key map "W" 'w3m-weather)
+    (define-key map "y" 'w3m-print-current-url)
+    (define-key map "Y" 'w3m-print-this-url)
+    (define-key map "=" 'w3m-view-header)
+    (define-key map "\\" 'w3m-view-source)
+    (define-key map "?" 'describe-mode)
+    (define-key map ">" 'w3m-scroll-left)
+    (define-key map "<" 'w3m-scroll-right)
+    (define-key map [(shift right)] 'w3m-shift-left)
+    (define-key map [(shift left)] 'w3m-shift-right)
+    (define-key map "\M-l" 'w3m-horizontal-recenter)
+    (define-key map "\C-a" 'w3m-beginning-of-line)
+    (define-key map "\C-e" 'w3m-end-of-line)
+    (define-key map "." 'beginning-of-buffer)
+    (define-key map "^" 'w3m-view-parent-page)
+    (define-key map "]" 'w3m-next-form)
+    (define-key map "[" 'w3m-previous-form)
+    (define-key map "}" 'w3m-next-image)
+    (define-key map "{" 'w3m-previous-image)
+    (define-key map "|" 'w3m-pipe-source)
+    (define-key map "\C-c" w3m-ctl-c-map)
+    (define-key map "C" w3m-redisplay-map)
+    (define-key map "L" w3m-linknum-map)
+    (setq w3m-info-like-map map)))
+
+(defun w3m-alive-p (&optional visible)
+  "Return a buffer in which emacs-w3m is running.
+If there is no emacs-w3m session, return nil.  If the optional VISIBLE
+is non-nil, a visible emacs-w3m buffer is preferred.  The last visited
+emacs-w3m buffer is likely to return if VISIBLE is omitted or there is
+no visible buffer."
+  (let* ((buffers (w3m-list-buffers t))
+	 (buf (car buffers)))
+    (if visible
+	(progn
+	  (setq visible nil)
+	  (while (and (not visible)
+		      buffers)
+	    (when (get-buffer-window (car buffers) t)
+	      (setq visible (car buffers)))
+	    (setq buffers (cdr buffers)))
+	  (or visible buf))
+      buf)))
+
+(defun w3m-quit (&optional force)
+  "Return to a peaceful life (exiting all emacs-w3m sessions).
+This command lets you quit browsing web after updating the arrived
+URLs database.  Quit browsing immediately if the prefix argument FORCE
+is specified, otherwise prompt you for the confirmation.  See also
+`w3m-close-window'."
+  (interactive "P")
+  (let ((buffers (w3m-list-buffers t))
+	(all-buffers (let ((w3m-fb-mode nil))
+		       (w3m-list-buffers t))))
+    (if (or (= (length buffers) (length all-buffers))
+	    (prog1 (y-or-n-p "Kill emacs-w3m buffers on other frames? ")
+	      (message nil)))
+	(let ((w3m-fb-mode nil))
+	  (when (or force
+		    (prog1 (y-or-n-p "Do you want to exit emacs-w3m? ")
+		      (message nil)))
+	    (w3m-session-automatic-save)
+	    (w3m-delete-frames-and-windows)
+	    (sit-for 0) ;; Delete frames seemingly fast.
+	    (dolist (buffer all-buffers)
+	      (w3m-cancel-refresh-timer buffer)
+	      (kill-buffer buffer)
+	      (when w3m-use-form
+		(w3m-form-kill-buffer buffer)))
+	    (when w3m-use-form
+	      (w3m-form-textarea-file-cleanup))
+	    (w3m-select-buffer-close-window)
+	    (w3m-cache-shutdown)
+	    (w3m-arrived-shutdown)
+	    (w3m-process-shutdown)
+	    (when w3m-use-cookies
+	      (w3m-cookie-shutdown))
+	    (w3m-kill-all-buffer)))
+      (w3m-session-automatic-save)
+      (w3m-fb-delete-frame-buffers)
+      (w3m-fb-select-buffer))))
+
+(defun w3m-close-window ()
+  "Return to a restless life (quitting all emacs-w3m sessions).
+This command closes all emacs-w3m windows, but all the emacs-w3m
+buffers remain.  Frames created for emacs-w3m sessions will also be
+closed.  See also `w3m-quit'."
+  (interactive)
+  (w3m-history-store-position)
+  ;; `w3m-list-buffers' won't return all the emacs-w3m buffers if
+  ;; `w3m-fb-mode' is turned on.
+  (let* ((buffers (w3m-list-buffers t))
+	 (bufs buffers)
+	 buf windows window)
+    (w3m-delete-frames-and-windows)
+    (while bufs
+      (setq buf (pop bufs))
+      (w3m-cancel-refresh-timer buf)
+      (bury-buffer buf))
+    (while buffers
+      (setq buf (pop buffers)
+	    windows (get-buffer-window-list buf 'no-minibuf t))
+      (while windows
+	(setq window (pop windows))
+	(set-window-buffer
+	 window
+	 (w3m-static-if (featurep 'xemacs)
+	     (other-buffer buf (window-frame window) nil)
+	   (other-buffer buf nil (window-frame window)))))))
+  (w3m-select-buffer-close-window)
+  ;; The current-buffer and displayed buffer are not necessarily the
+  ;; same at this point; if they aren't bury-buffer will be a nop, and
+  ;; we will infloop.
+  (set-buffer (window-buffer (selected-window)))
+  (while (eq major-mode 'w3m-mode)
+    (bury-buffer)))
+
+(unless w3m-mode-map
+  (setq w3m-mode-map
+	(if (eq w3m-key-binding 'info)
+	    w3m-info-like-map
+	  w3m-lynx-like-map)))
+
+(defun w3m-mouse-major-mode-menu (event)
+  "Pop up a W3M mode-specific menu of mouse commands."
+  (interactive "e")
+  (mouse-set-point event)
+  (let* ((bmkitems (if w3m-bookmark-mode
+		       (cdr w3m-bookmark-menu-items)
+		     (car w3m-bookmark-menu-items)))
+	 (bmkmenu (if w3m-bookmark-menu-items-pre
+		      `(,@bmkitems
+			"----"
+			,@w3m-bookmark-menu-items-pre)
+		    bmkitems)))
+    (w3m-static-if (featurep 'xemacs)
+	(let (menubar)
+	  (when current-menubar
+	    (run-hooks 'activate-menubar-hook))
+	  (setq menubar
+		(cons "w3m"
+		      (delq nil
+			    `(,@(cdr w3m-rmouse-menubar)
+			      "----"
+			      "----"
+			      ,(assoc "w3m" current-menubar)
+			      "----"
+			      ,(assoc "Bookmark" current-menubar)
+			      ,(assoc "Tab" current-menubar)
+			      ,(assoc "Session" current-menubar)))))
+	  (popup-menu menubar event))
+      (run-hooks 'menu-bar-update-hook)
+      (popup-menu (delete nil
+			  `(,@w3m-rmouse-menubar
+			    "----"
+			    "----"
+			    ,w3m-menubar
+			    "----"
+			    ,(cons "Bookmark" bmkmenu)
+			    ,(when w3m-tab-menubar-make-items-preitems
+			       (cons "Tab" w3m-tab-menubar-make-items-preitems))
+			    ,(cons "Session" (if w3m-session-menu-items-pre
+						 (append w3m-session-menu-items
+							 '("----")
+							 w3m-session-menu-items-pre)
+					       w3m-session-menu-items))))
+		  event))))
+
+(defvar w3m-tab-button-menu-current-buffer nil
+  "Internal variable used by `w3m-tab-button-menu'.")
+
+(defvar w3m-tab-button-menu-commands
+  (let ((manyp '(cdr (w3m-list-buffers)))
+	(currentp 'w3m-tab-button-menu-current-buffer)
+	(leftp '(and w3m-tab-button-menu-current-buffer
+		     (w3m-lefttab-exist-p w3m-tab-button-menu-current-buffer)))
+	(rightp '(and w3m-tab-button-menu-current-buffer
+		      (w3m-righttab-exist-p
+		       w3m-tab-button-menu-current-buffer)))
+	(many2p '(and w3m-tab-button-menu-current-buffer
+		      (cdr (w3m-list-buffers)))))
+    `((w3m-goto-url-new-session
+       ,(w3m-make-menu-item "$B?7$7$$%?%V(B" "New Tab")
+       t ,w3m-new-session-in-background w3m-new-session-url)
+      (w3m-copy-buffer
+       ,(w3m-make-menu-item "$B%?%V$rJ#@=(B" "Copy Tab")
+       ,currentp ,w3m-new-session-in-background)
+      -
+      (w3m-reload-this-page
+       ,(w3m-make-menu-item "$B%?%V$r:FFI$_9~$_(B" "Reload Tab")
+       ,currentp)
+      (w3m-reload-all-pages
+       ,(w3m-make-menu-item "$B$9$Y$F$N%?%V$r:FFI$_9~$_(B" "Reload All Tabs")
+       ,manyp)
+      -
+      (w3m-delete-buffer
+       ,(w3m-make-menu-item "$B$3$N%?%V$rJD$8$k(B" "Close This Tab")
+       ,currentp)
+      -
+      (w3m-delete-other-buffers
+       ,(w3m-make-menu-item "$BB>$N%?%V$r$9$Y$FJD$8$k(B" "Close Other Tabs")
+       ,many2p)
+      (w3m-delete-left-tabs
+       ,(w3m-make-menu-item "$B:8B&$N%?%V$r$9$Y$FJD$8$k(B" "Close Left Tabs")
+       ,leftp)
+      (w3m-delete-right-tabs
+       ,(w3m-make-menu-item "$B1&B&$N%?%V$r$9$Y$FJD$8$k(B" "Close Right Tabs")
+       ,rightp)
+      -
+      (w3m-view-url-with-external-browser
+       ,(w3m-make-menu-item "$B30It%V%i%&%6$G3+$/(B" "View with external browser")
+       ,currentp ,w3m-new-session-in-background w3m-current-url)
+      -
+      (w3m-session-save
+       ,(w3m-make-menu-item "$B$9$Y$F$N%?%V$rJ]B8$9$k(B" "Save All Tabs...")
+       t)
+      (w3m-session-select
+       ,(w3m-make-menu-item "$B%?%V%j%9%H$rA*Br$9$k(B" "Select List of Tabs...")
+       t)
+      (w3m-bookmark-add-current-url
+       ,(w3m-make-menu-item "$B$3$N%?%V$r%V%C%/%^!<%/(B" "Bookmark This Tab...")
+       ,currentp ,w3m-new-session-in-background)
+      (w3m-bookmark-add-all-urls
+       ,(w3m-make-menu-item
+	 "$B$9$Y$F$N%?%V$r%V%C%/%^!<%/(B" "Bookmark All Tabs..." )
+       ,manyp)))
+  "List of commands invoked by the tab button menu.
+Each item is the symbol `-' which is a separator,
+or a list which consists of the following elements:
+
+0: a function.
+1: a function description.
+2: a Lisp form which returns non-nil if the item is active.
+3: a flag specifying whether the buffer should be selected.
+&rest: arguments passed to the function.")
+
+(w3m-static-unless (featurep 'xemacs)
+  (easy-menu-define
+    w3m-tab-button-menu w3m-tab-map "w3m tab button menu."
+    (cons nil (w3m-make-menu-commands w3m-tab-button-menu-commands)))
+
+  ;; This function must be placed after `easy-menu-define'.
+  (defun w3m-tab-button-menu (event buffer)
+    (select-window (posn-window (event-start event)))
+    (setq w3m-tab-button-menu-current-buffer buffer)
+    (popup-menu w3m-tab-button-menu))
+
+  (defun w3m-tab-button-menu2 (event buffer)
+    (select-window (posn-window (event-start event)))
+    (setq w3m-tab-button-menu-current-buffer nil)
+    (popup-menu w3m-tab-button-menu)))
+
+(unless w3m-link-map
+  (setq w3m-link-map (make-sparse-keymap))
+  (cond ((featurep 'xemacs)
+	 (define-key w3m-link-map [(button3)] 'w3m-link-menu))
+	;; Don't use [mouse-3], which gets submenus not working in GTK Emacs.
+	((featurep 'gtk)
+	 (define-key w3m-link-map [down-mouse-3] 'w3m-link-menu)
+	 (define-key w3m-link-map [drag-mouse-3] 'undefined)
+	 (define-key w3m-link-map [mouse-3] 'undefined))
+	(t
+	 (define-key w3m-link-map [mouse-3] 'w3m-link-menu))))
+
+(easy-menu-define w3m-link-menu w3m-link-map "w3m link menu."
+  `("Link" ;; This cannot be omitted for at least MacOS.
+    [,(w3m-make-menu-item "$B%j%s%/$r$3$N%;%C%7%g%s$G3+$/(B"
+			  "Open Link in This Session")
+     w3m-view-this-url (w3m-anchor (point))]
+    [,(w3m-make-menu-item "$B%j%s%/$r?7$7$$%;%C%7%g%s$G3+$/(B"
+			  "Open Link in New Session")
+     w3m-view-this-url-new-session (w3m-anchor (point))]
+    [,(w3m-make-menu-item "$B%j%s%/$r30It%V%i%&%6$G3+$/(B"
+			  "Open Link in an External Browser")
+     w3m-external-view-this-url (w3m-anchor (point))]
+    "-"
+    [,(w3m-make-menu-item "$B$3$N%j%s%/$r%V%C%/%^!<%/(B..."
+			  "Bookmark This Link...")
+     w3m-bookmark-add-this-url (w3m-anchor (point))]
+    [,(w3m-make-menu-item "$BL>A0$rIU$1$F%j%s%/@h$rJ]B8(B..."
+			  "Save Link As...")
+     w3m-download-this-url (w3m-anchor (point))]
+    [,(w3m-make-menu-item "$BL>A0$rIU$1$F2hA|$rJ]B8(B..."
+			  "Save Image As...")
+     w3m-download-this-image (w3m-image (point))]
+    [,(w3m-make-menu-item "$B%j%s%/$N(B URL $B$r%3%T!<(B"
+			  "Copy Link Location")
+     w3m-print-this-url (w3m-anchor (point))]
+    [,(w3m-make-menu-item "$B2hA|$N(B URL $B$r%3%T!<(B"
+			  "Copy Image Location")
+     w3m-print-this-image-url (w3m-image (point))]))
+
+(defun w3m-link-menu (event)
+  "Pop up a link menu."
+  (interactive "e")
+  (mouse-set-point event)
+  (popup-menu w3m-link-menu))
+
+(defvar w3m-buffer-unseen nil)
+(make-variable-buffer-local 'w3m-buffer-unseen)
+
+(defun w3m-set-buffer-unseen (&optional url)
+  (setq w3m-buffer-unseen t)
+  (w3m-add-local-hook 'pre-command-hook 'w3m-set-buffer-seen))
+
+(defun w3m-set-buffer-seen ()
+  (setq w3m-buffer-unseen nil)
+  (w3m-remove-local-hook 'pre-command-hook 'w3m-set-buffer-seen))
+
+(defun w3m-move-unseen-buffer ()
+  "Move to the next unseen buffer."
+  (interactive)
+  (when (eq major-mode 'w3m-mode)
+    (let* ((bufs (w3m-list-buffers))
+	   (right (memq (current-buffer) bufs))
+      unseen)
+      (setq unseen
+	    (catch 'unseen
+	      (dolist (buf (append right bufs))
+		(when (w3m-unseen-buffer-p buf)
+		  (throw 'unseen buf)))))
+      (if (not unseen)
+	  (message "No unseen buffer.")
+	(switch-to-buffer unseen)
+	(run-hooks 'w3m-select-buffer-hook)
+	(w3m-select-buffer-update)))))
+
+(defun w3m-mode ()
+  "Major mode for browsing web.
+
+\\<w3m-mode-map>\
+\\[w3m-view-this-url]	Display the page pointed to by the link under point.
+	You may use the prefix arg `2' or\
+ `\\[universal-argument] \\<universal-argument-map>\
+\\[universal-argument-more]\\<w3m-mode-map>' to make a new session.
+\\[w3m-mouse-view-this-url]	Follow the link under the mouse pointer.
+	If w3m-use-form is t, `\\[w3m-view-this-url]' and\
+ `\\[w3m-mouse-view-this-url]' enable you to enter forms.
+	You may use the prefix arg `2' or\
+ `\\[universal-argument] \\<universal-argument-map>\
+\\[universal-argument-more]\\<w3m-mode-map>' to make a new session.
+\\[w3m-view-this-url-new-session]	Display the page of the link\
+ in a new session.
+	If the region is active, visit all the links within the region.
+\\[w3m-mouse-view-this-url-new-session]	Display the page of the link\
+ in a new session by mouse.
+
+\\[w3m-submit-form]	Submit the form at point.
+
+\\[w3m-reload-this-page]	Reload the current page.
+\\[w3m-reload-all-pages]	Reload all the pages.
+\\[w3m-redisplay-this-page]	Redisplay the current page.
+\\[w3m-redisplay-with-content-type]	Redisplay the page, specifying\
+ a content type.
+\\[w3m-redisplay-with-charset]	Redisplay the current page, specifying\
+ a charset.
+\\[w3m-redisplay-and-reset]	Redisplay the current page and reset\
+ the user-specified charset and\n\tcontent type.
+
+\\[w3m-next-anchor]	Move the point to the next anchor.
+\\[w3m-previous-anchor]	Move the point to the previous anchor.
+\\[w3m-go-to-linknum] Move the point to the numbered anchor.
+\\[w3m-next-form]	Move the point to the next form.
+\\[w3m-previous-form]	Move the point to the previous form.
+\\[w3m-next-image]	Move the point to the next image.
+\\[w3m-previous-image]	Move the point to the previous image.
+
+\\[w3m-view-previous-page]	Move back to the previous page in the history.
+\\[w3m-view-next-page]	Move forward to the next page in the history.
+\\[w3m-view-parent-page]	Attempt to move to the parent directory of\
+ the page.
+
+\\[w3m-goto-url]	Visit the web page.
+\\[w3m-goto-url-new-session]	Visit the web page in a new session.
+\\[w3m-gohome]	Go to the Home page.
+\\[w3m-view-url-with-external-browser]	Display the current page using the\
+ external browser.
+
+\\[w3m-download]	Download the URL.
+\\[w3m-download-this-url]	Download the URL under point.
+
+\\[w3m-view-image]	Display the image under point in the external viewer.
+\\[w3m-save-image]	Save the image under point to a file.
+\\[w3m-toggle-inline-images]	Toggle the visibility of all images.
+\\[w3m-turnoff-inline-images]	Turn off to display all images.
+\\[w3m-zoom-out-image]	Zoom in an image on the point.
+\\[w3m-zoom-in-image]	Zoom out an image on the point.
+
+\\[w3m-print-this-url]	Display the url under point and put it into\
+ `kill-ring'.
+\\[w3m-print-current-url]	Display the url of the current page and put\
+ it into `kill-ring'.
+
+\\[w3m-view-source]	Display the html source of the current page.
+\\[w3m-view-header]	Display the header of the current page.
+\\[w3m-edit-current-url]	Edit the local file displayed as the current\
+ page.
+\\[w3m-edit-this-url]	Edit the local file which is pointed to by URL under\
+ point.
+
+\\[w3m-scroll-up-or-next-url]	Scroll up the current window, or go to the\
+ next page.
+\\[w3m-scroll-down-or-previous-url]	Scroll down the current window, or\
+ go to the previous page.
+\\[w3m-scroll-left]	Scroll to the left.
+\\[w3m-scroll-right]	Scroll to the right.
+\\[w3m-shift-left]	Shift to the left.
+\\[w3m-shift-right]	Shift to the right.
+\\[w3m-horizontal-recenter]	Recenter horizontally.
+\\[w3m-beginning-of-line]	Go to the entire beginning of line, may be\
+ accompanied by scrolling.
+\\[w3m-end-of-line]	Go to the entire end of line, may be accompanied\
+ by scrolling.
+
+\\[next-line]	Next line.
+\\[previous-line]	Previous line.
+\\[forward-char]	Forward char.
+\\[backward-char]	Backward char.
+
+\\[goto-line]	Go to the line, specifying the line number (beginning with 1).
+\\[w3m-history-store-position]	Mark the current position.
+\\[w3m-history-restore-position]	Go to the last marked position.
+
+\\[w3m-history]	Display the history of pages you have visited in the\
+ session.
+	If it is called with the prefix arg, it displays the arrived URLs.
+\\[w3m-antenna]	Display the report of changes in web pages.
+	If it is called with the prefix arg, it updates the report.
+\\[w3m-antenna-add-current-url]	Add the current url to the antenna database.
+\\[w3m-search]	Query to the search engine a word.
+	To change the server, give any prefix argument to the command.
+\\[w3m-search-new-session] Query to the search engine a word in a new session.
+	To change the server, give any prefix argument to the command.
+\\[w3m-weather]	Display a weather report.
+	To change the local area, give any prefix argument to the command.
+\\[w3m-dtree]	Display a directory tree.
+	If the prefix arg is given, display files in addition to directories.
+\\[w3m-namazu]	Search files with Namazu.
+	To change the index, give any prefix argument to the command.
+
+\\[w3m-bookmark-view]	Display the bookmark.
+\\[w3m-bookmark-view-new-session]	Display the bookmark on a new session.
+\\[w3m-bookmark-add-current-url]	Add a url of the current page to\
+ the bookmark.
+	If the prefix arg is given, the user will be prompted for the url.
+\\[w3m-bookmark-add-all-urls]	Add urls of all pages being visited to\
+ the bookmark.
+\\[w3m-bookmark-add-this-url]	Add the url under point to the bookmark.
+
+\\[w3m-copy-buffer]	Create a copy of the current page as a new session.
+\\[w3m-next-buffer]	Turn the page of emacs-w3m buffers ahead.
+\\[w3m-previous-buffer]	Turn the page of emacs-w3m buffers behind.
+\\[w3m-select-buffer]	Pop to the emacs-w3m buffers selection window up.
+\\[w3m-switch-buffer]	Select one of emacs-w3m buffers at the current window.
+\\[w3m-delete-buffer]	Delete the current emacs-w3m buffer.
+\\[w3m-delete-other-buffers]	Delete emacs-w3m buffers except for the\
+ current buffer.
+
+\\[w3m]	Start browsing web with emacs-w3m.
+\\[w3m-close-window]	Close all emacs-w3m windows, without deleteing\
+ buffers.
+\\[w3m-quit]	Exit browsing web.  All emacs-w3m buffers will be deleted.
+
+\\[describe-mode]	describe-mode.
+
+\\[report-emacs-w3m-bug]	Send a bug report to the emacs-w3m team.
+"
+  (kill-all-local-variables)
+  (buffer-disable-undo)
+  (setq major-mode 'w3m-mode)
+  (setq mode-name "w3m")
+  (use-local-map w3m-mode-map)
+  (setq truncate-lines t
+	w3m-display-inline-images w3m-default-display-inline-images)
+  (when w3m-auto-show
+    (when (boundp 'auto-hscroll-mode)
+      (set (make-local-variable 'auto-hscroll-mode) nil))
+    (when (boundp 'automatic-hscrolling)
+      (set (make-local-variable 'automatic-hscrolling) nil))
+    (when (boundp 'auto-show-mode)
+      (set (make-local-variable 'auto-show-mode) nil))
+    (when (boundp 'hscroll-mode)
+      (set (make-local-variable 'hscroll-mode) nil)))
+  (make-local-variable 'list-buffers-directory)
+  (w3m-static-unless (featurep 'xemacs)
+    (setq show-trailing-whitespace nil))
+  (w3m-setup-toolbar)
+  (w3m-setup-menu)
+  (run-hooks 'w3m-mode-setup-functions)
+  (w3m-run-mode-hooks 'w3m-mode-hook))
+
+(defun w3m-scroll-up-1 (&optional arg)
+  "Scroll the current window up ARG line.
+ARG will be fixed into 1 when this function is called interactively.
+This function avoids the bug that Emacs 21.x hangs up when scrolling
+up for too many number of lines if `scroll-margin' is set as two or
+greater."
+  (interactive '(1))
+  (w3m-static-unless (featurep 'xemacs)
+    (when (and (numberp arg)
+	       (> arg 0)
+	       (numberp scroll-margin)
+	       (> scroll-margin 0))
+      (setq arg (min arg
+		     (max 0 (- (count-lines (window-start) (point-max))
+			       scroll-margin))))))
+  (scroll-up arg))
+
+(defun w3m-scroll-up-or-next-url (arg)
+  "Scroll the current window up ARG lines, or go to the next page."
+  (interactive "P")
+  (if (w3m-image-page-displayed-p)
+      (image-scroll-up arg)
+    (w3m-keep-region-active)
+    (if (pos-visible-in-window-p (point-max))
+	(if w3m-next-url
+	    (let ((w3m-prefer-cache t))
+	      (w3m-goto-url w3m-next-url))
+	  (signal 'end-of-buffer nil))
+      (w3m-scroll-up-1 arg))))
+
+(defun w3m-scroll-down-or-previous-url (arg)
+  "Scroll the current window down ARG lines, or go to the previous page."
+  (interactive "P")
+  (if (w3m-image-page-displayed-p)
+      (image-scroll-down arg)
+    (w3m-keep-region-active)
+    (if (pos-visible-in-window-p (point-min))
+	(if w3m-previous-url
+	    (let ((w3m-prefer-cache t))
+	      (w3m-goto-url w3m-previous-url))
+	  (signal 'beginning-of-buffer nil))
+      (scroll-down arg))))
+
+(defvar w3m-current-longest-line nil
+  "The length of the longest line in the window.")
+
+(defun w3m-set-current-longest-line ()
+  "Set the value of `w3m-current-longest-line'."
+  (save-excursion
+    (goto-char (window-start))
+    (end-of-line)
+    (setq w3m-current-longest-line 0)
+    ;; The XEmacs version of `window-end' returns the point beyond
+    ;; `point-max' if it is visible in the window.
+    (let ((end (min (window-end) (point-max))))
+      (while (progn
+	       (skip-chars-backward " ")
+	       (setq w3m-current-longest-line
+		     (max w3m-current-longest-line (current-column)))
+	       (end-of-line 2)
+	       (< (point) end))))))
+
+(defun w3m-scroll-left (arg)
+  "Scroll to the left.
+If ARG (the prefix) is a number, scroll the window ARG columns.
+Otherwise, it defaults to `w3m-horizontal-scroll-columns'."
+  (interactive "P")
+  (when (if (memq last-command '(w3m-scroll-left w3m-shift-left))
+	    (or (< (window-hscroll) w3m-current-longest-line)
+		(progn (ding) nil))
+	  (w3m-set-current-longest-line)
+	  (< (window-hscroll) w3m-current-longest-line))
+    (w3m-horizontal-scroll 'left (if arg
+				     (prefix-numeric-value arg)
+				   w3m-horizontal-scroll-columns))))
+
+(defun w3m-scroll-right (arg)
+  "Scroll to the right.
+If ARG (the prefix) is a number, scroll the window ARG columns.
+Otherwise, it defaults to `w3m-horizontal-scroll-columns'."
+  (interactive "P")
+  (if (zerop (window-hscroll))
+      (when (memq last-command '(w3m-scroll-right w3m-shift-right))
+	(ding))
+    (w3m-horizontal-scroll 'right (if arg
+				      (prefix-numeric-value arg)
+				    w3m-horizontal-scroll-columns))))
+
+(defun w3m-shift-left (arg)
+  "Shift to the left.  Shift means a fine level horizontal scrolling.
+If ARG (the prefix) is a number, scroll the window ARG columns.
+Otherwise, it defaults to `w3m-horizontal-shift-columns'."
+  (interactive "P")
+  (if (w3m-image-page-displayed-p)
+      (image-forward-hscroll (or arg 1))
+    (when (if (memq last-command '(w3m-scroll-left w3m-shift-left))
+	      (or (< (window-hscroll) w3m-current-longest-line)
+		  (progn (ding) nil))
+	    (w3m-set-current-longest-line)
+	    (< (window-hscroll) w3m-current-longest-line))
+      (w3m-horizontal-scroll 'left (if arg
+				       (prefix-numeric-value arg)
+				     w3m-horizontal-shift-columns)))))
+
+(defun w3m-shift-right (arg)
+  "Shift to the right.  Shift means a fine level horizontal scrolling.
+If ARG (the prefix) is a number, scroll the window ARG columns.
+Otherwise, it defaults to `w3m-horizontal-shift-columns'."
+  (interactive "P")
+  (if (w3m-image-page-displayed-p)
+      (image-backward-hscroll (or arg 1))
+    (if (zerop (window-hscroll))
+	(when (memq last-command '(w3m-scroll-right w3m-shift-right))
+	  (ding))
+      (w3m-horizontal-scroll 'right (if arg
+					(prefix-numeric-value arg)
+				      w3m-horizontal-shift-columns)))))
+
+(defvar w3m-horizontal-scroll-done nil)
+(make-variable-buffer-local 'w3m-horizontal-scroll-done)
+(defvar w3m-current-position '(-1 0 0))
+(make-variable-buffer-local 'w3m-current-position)
+
+(defun w3m-auto-show ()
+  "Scroll horizontally so that the point is visible."
+  (when (and truncate-lines
+	     w3m-auto-show
+	     (not w3m-horizontal-scroll-done)
+	     (not (and (eq last-command this-command)
+		       (or (eq (point) (point-min))
+			   (eq (point) (point-max)))))
+	     (or (memq this-command '(beginning-of-buffer end-of-buffer))
+		 (and (symbolp this-command)
+		      (string-match "\\`i?search-" (symbol-name this-command)))
+		 (and (markerp (nth 1 w3m-current-position))
+		      (markerp (nth 2 w3m-current-position))
+		      (>= (point)
+			  (marker-position (nth 1 w3m-current-position)))
+		      (<= (point)
+			  (marker-position (nth 2 w3m-current-position))))))
+    (w3m-horizontal-on-screen))
+  (setq w3m-horizontal-scroll-done nil))
+
+;; Ailiases to meet XEmacs bugs?
+(eval-and-compile
+  (unless (fboundp 'w3m-window-hscroll)
+    (defalias 'w3m-window-hscroll 'window-hscroll))
+  (unless (fboundp 'w3m-current-column)
+    (defalias 'w3m-current-column 'current-column))
+  (unless (fboundp 'w3m-set-window-hscroll)
+    (defalias 'w3m-set-window-hscroll 'set-window-hscroll)))
+
+(defun w3m-horizontal-scroll (direction ncol)
+  "Scroll the window NCOL columns horizontally to DIRECTION.
+DIRECTON should be the symbol `left' which specifies to scroll to the
+left, or any other Lisp object meaning to scroll to the right.  NCOL
+should be a number.  This function is a subroutine called by the
+commands `w3m-scroll-left', `w3m-scroll-right', `w3m-shift-left' and
+`w3m-shift-right'."
+  (setq w3m-horizontal-scroll-done t)
+  (let ((inhibit-point-motion-hooks t))
+    (w3m-set-window-hscroll (selected-window)
+			    (max 0
+				 (+ (w3m-window-hscroll)
+				    (if (eq direction 'left) ncol (- ncol)))))
+    (let ((hs (w3m-window-hscroll)))
+      (unless (and (>= (- (current-column) hs) 0)
+		   (< (- (current-column) hs) (window-width)))
+	(move-to-column (if (eq direction 'left) hs
+			  (+ hs (window-width)
+			     (w3m-static-if (featurep 'xemacs) -3 -2))))))))
+
+(defun w3m-horizontal-on-screen ()
+  "Scroll the window horizontally so that the current position is visible.
+See the documentation for the `w3m-horizontal-scroll-division' variable
+for details."
+  (when w3m-auto-show
+    (setq w3m-horizontal-scroll-done t)
+    (let ((cc (w3m-current-column))
+	  (hs (w3m-window-hscroll))
+	  (ww (window-width))
+	  (inhibit-point-motion-hooks t))
+      (unless (and (>= (- cc hs) 0)
+		   (< (+ (- cc hs) (if (eolp)
+				       0
+				     (w3m-static-if (featurep 'xemacs)
+					 3 2)))	;; '$$'
+		      ww))
+	(w3m-set-window-hscroll
+	 (selected-window)
+	 (max 0 (- cc (if (> hs cc)
+			  (/ ww w3m-horizontal-scroll-division)
+			(* (/ ww w3m-horizontal-scroll-division)
+			   (1- w3m-horizontal-scroll-division))))))))))
+
+(defun w3m-horizontal-recenter (&optional arg)
+  "Recenter horizontally.  With ARG, put the point on the column ARG.
+If `truncate-lines' is nil, it does nothing besides resetting the
+window's hscroll."
+  (interactive "P")
+  (if truncate-lines
+      (progn
+	(cond ((< (w3m-current-column) (window-hscroll))
+	       (move-to-column (w3m-window-hscroll))
+	       (setq arg 0))
+	      ((>= (w3m-current-column) (+ (window-hscroll) (window-width)))
+	       (move-to-column (+ (w3m-window-hscroll) (window-width) -2))
+	       (setq arg -1))
+	      ((listp arg)
+	       (setq arg (car arg))))
+	(w3m-set-window-hscroll
+	 (selected-window)
+	 (if (numberp arg)
+	     (if (>= arg 0)
+		 (max (- (current-column) arg) 0)
+	       (let* ((home (point))
+		      (inhibit-point-motion-hooks t)
+		      (maxcolumn (prog2
+				     (end-of-line)
+				     (1- (current-column))
+				   (goto-char home))))
+		 (max (min (- (current-column)
+			      (window-width)
+			      arg
+			      -2)
+			   maxcolumn)
+		      0)))
+	   (max (- (current-column) (/ (window-width) 2) -1)
+		0))))
+    (set-window-hscroll (selected-window) 0)))
+
+(defun w3m-recenter ()
+  "Recenter according to `w3m-view-recenter'."
+  (when (and w3m-view-recenter
+             (eq (window-buffer) (current-buffer)))
+    (recenter (if (eq t w3m-view-recenter)
+                  '(4)  ;; per "C-u C-l" to recenter in middle
+                w3m-view-recenter)))) ;; otherwise an integer
+
+(defun w3m-beginning-of-line (&optional arg)
+  "Make the beginning of the line visible and move the point to there."
+  (interactive "P")
+  (if (w3m-image-page-displayed-p)
+      (image-bol (or arg 1))
+    (w3m-keep-region-active)
+    (when (listp arg)
+      (setq arg (car arg)))
+    (set-window-hscroll (selected-window) 0)
+    (beginning-of-line arg)))
+
+(defun w3m-end-of-line (&optional arg)
+  "Move the point to the end of the line and scroll the window left.
+It makes the ends of upper and lower three lines visible.  If
+`truncate-lines' is nil, it works identically as `end-of-line'."
+  (interactive "P")
+  (if (w3m-image-page-displayed-p)
+      (image-eol (or arg 1))
+    (w3m-keep-region-active)
+    (if truncate-lines
+	(progn
+	  (when (listp arg)
+	    (setq arg (car arg)))
+	  (forward-line (1- (or arg 1)))
+	  (let ((inhibit-point-motion-hooks t)
+		home)
+	    (end-of-line)
+	    (setq home (point)
+		  arg (current-column))
+	    (dolist (n '(-3 -2 -1 1 2 3))
+	      (forward-line n)
+	      (end-of-line)
+	      (setq arg (max (current-column) arg))
+	      (goto-char home)))
+	  (setq temporary-goal-column arg
+		this-command 'next-line)
+	  (w3m-set-window-hscroll (selected-window)
+				  (max (- arg (window-width) -2) 0)))
+      (set-window-hscroll (selected-window) 0)
+      (end-of-line arg))))
+
+(defun w3m-pattern-uri-replace (uri format)
+  "Create a new uri from URI matched by last search according to FORMAT."
+  (replace-match format nil nil uri))
+
+(defun w3m-uri-replace (uri)
+  "Return the converted URI according to `w3m-uri-replace-alist'."
+  (catch 'found-replacement
+    (dolist (elem w3m-uri-replace-alist uri)
+      (when (string-match (car elem) uri)
+	(if (setq uri
+		  (cond
+		   ((consp (cdr elem))
+		    (apply (cadr elem) uri (cddr elem)))
+		   ;; Rest conditions are inserted in order to keep
+		   ;; backward compatibility.
+		   ((functionp (cdr elem))
+		    (funcall (cdr elem) uri))
+		   ((stringp (cdr elem))
+		    (w3m-pattern-uri-replace uri (cdr elem)))))
+	    (throw 'found-replacement uri)
+	  (error "Invalid replacement: %s" elem))))))
+
+(defun w3m-goto-mailto-url (url &optional post-data)
+  (let ((before (nreverse (buffer-list)))
+	comp info buffers buffer function)
+    (save-window-excursion
+      (if (and (symbolp w3m-mailto-url-function)
+	       (fboundp w3m-mailto-url-function))
+	  (funcall w3m-mailto-url-function url)
+	;; Require `mail-user-agent' setting
+	(unless (and (boundp 'mail-user-agent)
+		     (symbol-value 'mail-user-agent))
+	  (error "You must specify the valid value to `mail-user-agent'"))
+	(unless (and (setq comp (get (symbol-value 'mail-user-agent)
+				     'composefunc))
+		     (fboundp comp))
+	  (error "No function to compose a mail in `%s'"
+		 (symbol-value 'mail-user-agent)))
+	;; Use rfc2368.el if exist.
+	;; rfc2368.el is written by Sen Nagata.
+	;; You can find it in "contrib" directory of Mew package
+	;; or in "utils" directory of Wanderlust package.
+	(if (or (featurep 'rfc2368)
+		(condition-case nil (require 'rfc2368) (error nil)))
+	    (progn
+	      (setq info (rfc2368-parse-mailto-url url))
+	      (apply comp
+		     (append (mapcar (lambda (x)
+				       (cdr (assoc x info)))
+				     '("To" "Subject"))
+			     (if post-data
+				 (list
+				  (list (cons
+					 "body"
+					 (or (and
+					      (consp post-data)
+					      (concat (car post-data) "\n"))
+					     (concat post-data "\n")))))))))
+	  ;; without rfc2368.el.
+	  (string-match ":\\([^?]+\\)" url)
+	  (funcall comp (match-string 1 url)))))
+    (setq buffers (nreverse (buffer-list)))
+    (save-current-buffer
+      (while buffers
+	(setq buffer (car buffers)
+	      buffers (cdr buffers))
+	(unless (memq buffer before)
+	  (set-buffer buffer)
+	  (when (setq function
+		      (cdr (assq major-mode
+				 w3m-mailto-url-popup-function-alist)))
+	    (setq buffers nil)))))
+    (when function
+      (let (special-display-buffer-names
+	    special-display-regexps
+	    same-window-buffer-names
+	    same-window-regexps)
+	(funcall function buffer)))))
+
+(defun w3m-convert-ftp-url-for-emacsen (url)
+  (or (and (string-match "^ftp://?\\([^/@]+@\\)?\\([^/]+\\)\\(?:/~/\\)?" url)
+	   (concat "/"
+		   (if (match-beginning 1)
+		       (substring url (match-beginning 1) (match-end 1))
+		     "anonymous@")
+		   (substring url (match-beginning 2) (match-end 2))
+		   ":"
+		   (substring url (match-end 2))))
+      (error "URL is strange")))
+
+(defun w3m-file-directory-p (file)
+  "Emulate the `file-directory-p' function for the remote file FILE."
+  (when (file-exists-p file)
+    (let (dirp (i 10))
+      (catch 'loop
+	(while (> i 0)
+	  (setq dirp (car (file-attributes file)))
+	  (if (stringp dirp)
+	      (setq file (expand-file-name
+			  dirp
+			  (file-name-directory (directory-file-name file)))
+		    i (1- i))
+	    (throw 'loop dirp)))))))
+
+(defun w3m-goto-ftp-url (url &optional filename)
+  "Copy a remote file to the local system or run dired for ftp URLs.
+If URL looks like a file, it will perform the copy.  Otherwise, it
+will run `dired-other-window' using `ange-ftp' or `efs'.  Optional
+FILENAME specifies the name of a local file.  If FILENAME is omitted,
+this function will prompt user for it."
+  (let ((ftp (w3m-convert-ftp-url-for-emacsen url))
+	file)
+    (if (or (string-equal "/" (substring ftp -1))
+	    ;; `file-directory-p' takes a long time for remote files.
+	    ;; `file-directory-p' returns t in Emacsen, anytime.
+	    (w3m-file-directory-p ftp))
+	(dired-other-window ftp)
+      (setq file (file-name-nondirectory ftp))
+      (unless filename
+	(setq filename (w3m-read-file-name nil nil file)))
+      (unless (file-writable-p (file-name-directory filename))
+	(error "Permission denied, %s" (file-name-directory filename)))
+      (when (or (not (file-exists-p filename))
+		(if (file-writable-p filename)
+		    (and (prog1
+			     (y-or-n-p
+			      (format "File(%s) already exists. Overwrite? "
+				      filename))
+			   (message nil))
+			 (progn
+			   (delete-file filename)
+			   t))
+		  (error "Permission denied, %s" filename)))
+	(copy-file ftp filename)
+	(message "Wrote %s" filename)))))
+
+(unless w3m-doc-view-map
+  (setq w3m-doc-view-map (make-sparse-keymap))
+  (define-key w3m-doc-view-map "q" 'w3m-doc-view-quit))
+
+(defun w3m-doc-view (url)
+  "View PDF/PostScript/DVI files using `doc-view-mode'.
+`w3m-pop-up-windows' and `w3m-pop-up-frames' control how the document
+window turns up."
+  (let* ((basename (file-name-nondirectory (w3m-url-strip-query url)))
+	 (regexp (concat "\\`" (regexp-quote basename) "\\(?:<[0-9]+>\\)?\\'"))
+	 (buffers (buffer-list))
+	 buffer data case-fold-search)
+    (save-current-buffer
+      (while buffers
+	(setq buffer (pop buffers))
+	(if (and (string-match regexp (buffer-name buffer))
+		 (progn
+		   (set-buffer buffer)
+		   (eq major-mode 'doc-view-mode))
+		 (equal buffer-file-name url))
+	    (setq buffers nil)
+	  (setq buffer nil))))
+    (unless (prog1
+		buffer
+	      (unless buffer
+		(setq buffer (generate-new-buffer basename)
+		      data (buffer-string)))
+	      (let ((pop-up-windows w3m-pop-up-windows)
+		    (pop-up-frames w3m-pop-up-frames))
+		(pop-to-buffer buffer)))
+      (set-buffer-multibyte nil)
+      (insert data)
+      (set-buffer-modified-p nil)
+      (setq buffer-file-name url)
+      (doc-view-mode)
+      (use-local-map w3m-doc-view-map)
+      (set-keymap-parent w3m-doc-view-map doc-view-mode-map)
+      'internal-view)))
+
+(defun w3m-doc-view-quit (&optional kill)
+  "Quit the `doc-view-mode' window that emacs-w3m launches.
+With the prefix argument KILL, kill the buffer."
+  (interactive "P")
+  (cond (w3m-pop-up-frames
+	 (when (prog1 (one-window-p t) (quit-window kill))
+	   (delete-frame (selected-frame))))
+	(w3m-pop-up-windows
+	 (if (fboundp 'quit-window)
+	     (quit-window kill)
+	   (if kill
+	       (progn
+		 (set-buffer-modified-p nil)
+		 (kill-buffer (current-buffer)))
+	     (bury-buffer)))
+	 (unless (eq (next-window nil 'no-mini) (selected-window))
+	   (delete-window)))))
+
+(eval-and-compile
+  (unless (fboundp 'w3m-add-local-hook)
+    ;; Silence the byte compiler; `w3m-add-local-hook' will be defined
+    ;; in w3m-ems.el for GNU Emacs.
+    (eval-when-compile
+      (when (eq 'byte-compile-obsolete (get 'make-local-hook 'byte-compile))
+	(put 'make-local-hook 'byte-compile nil)
+	(put 'make-local-hook 'byte-obsolete-info nil)))
+    (defun w3m-add-local-hook (hook function &optional append)
+      "Add to the buffer-local value of HOOK the function FUNCTION.
+This function is designed for XEmacs."
+      (make-local-hook hook)
+      (add-hook hook function append t))
+    (defun w3m-remove-local-hook (hook function)
+      "Remove to the buffer-local value of HOOK the function FUNCTION.
+This function is designed for XEmacs."
+      (remove-hook hook function t))))
+
+(defun w3m-store-current-position ()
+  "Memorize the current positions whenever every command starts.
+The value will be held in the `w3m-current-position' variable.  This
+function is designed as the hook function which is registered to
+`pre-command-hook' by `w3m-buffer-setup'."
+  (setq w3m-current-position (list (point)
+				   (copy-marker (point-at-bol))
+				   (copy-marker (point-at-eol)))))
+
+(defun w3m-check-current-position ()
+  "Run `w3m-after-cursor-move-hook' if the point gets away from the window.
+This function is designed as the hook function which is registered to
+`post-command-hook' by `w3m-buffer-setup'."
+  (when (/= (point) (car w3m-current-position))
+    ;; To bind `deactivate-mark' to nil protects the mark from being
+    ;; deactivated.  `deactivate-mark' is set when any function modifies
+    ;; a buffer, and it causes the deactivation of the mark.
+    (let ((deactivate-mark nil))
+      (run-hooks 'w3m-after-cursor-move-hook))))
+
+(defun w3m-buffer-setup ()
+  "Generate a new buffer, select it and set it up for emacs-w3m.
+When the current buffer has already been prepared, it won't bother to
+generate a new buffer."
+  (unless (eq major-mode 'w3m-mode)
+    (let ((buffer (w3m-alive-p t)))
+      (if buffer
+	  (set-buffer buffer)
+	(set-buffer (w3m-generate-new-buffer "*w3m*"))
+	(w3m-mode))))
+  ;; It may have been set to nil for viewing a page source or a header.
+  (setq truncate-lines t)
+  (w3m-add-local-hook 'pre-command-hook 'w3m-store-current-position)
+  (w3m-add-local-hook 'post-command-hook 'w3m-check-current-position)
+  (w3m-initialize-graphic-icons)
+  (setq mode-line-buffer-identification
+	`(,@(w3m-static-if (featurep 'xemacs)
+		(list (cons modeline-buffer-id-right-extent "%b") " ")
+	      (nconc (propertized-buffer-identification "%b") '(" ")))
+	  (w3m-current-process
+	   w3m-modeline-process-status-on
+	   (w3m-current-ssl
+	    (w3m-display-inline-images
+	     w3m-modeline-ssl-image-status-on
+	     w3m-modeline-ssl-status-off)
+	    (w3m-display-inline-images
+	     w3m-modeline-image-status-on
+	     w3m-modeline-status-off)))
+	  (w3m-show-graphic-icons-in-mode-line
+	   (w3m-use-favicon
+	    (w3m-favicon-image
+	     w3m-modeline-favicon
+	     w3m-modeline-separator)
+	    w3m-modeline-separator)
+	   w3m-modeline-separator)
+	  (w3m-current-process
+	   "Loading..." ,(if (fboundp 'format-mode-line)
+			     '(:eval (w3m-modeline-title))
+			   (if w3m-use-title-buffer-name
+			       ""
+			     'w3m-current-title)))))
+  (unless (assq 'w3m-current-process mode-line-process)
+    (setq mode-line-process
+	  (cons (list 'w3m-current-process 'w3m-process-modeline-string)
+		mode-line-process))))
+
+(defvar w3m-modeline-title-string nil
+  "Internal variable used to keep contents to be shown in the mode line.
+This is a buffer-local variable.")
+(make-variable-buffer-local 'w3m-modeline-title-string)
+
+(defvar w3m-modeline-title-timer nil
+  "Say time has not gone by after the mode line was updated last time.
+It is used to control the `w3m-modeline-title' function running too
+frequently, set by the function itself and cleared by a timer.")
+(make-variable-buffer-local 'w3m-modeline-title-timer)
+
+(eval-when-compile
+  (unless (fboundp 'format-mode-line)
+    (defalias 'format-mode-line 'ignore)))
+
+(defun w3m-modeline-title ()
+  "Return a truncated title not to cut the right end of the mode line.
+It currently works only with Emacs 22 and newer."
+  (if w3m-use-title-buffer-name
+      ""
+    (when w3m-current-title
+      (or (and w3m-modeline-title-timer w3m-modeline-title-string)
+	  (prog2
+	      (setq w3m-modeline-title-string w3m-current-title
+		    w3m-modeline-title-timer t)
+	      (let ((excess (- (string-width
+				(condition-case nil
+				    (format-mode-line mode-line-format 1)
+				  (error "")))
+			       (window-width)))
+		    (tlen (string-width w3m-current-title)))
+		(when (and (> excess 0)
+			   (> tlen 3))
+		  (setq w3m-modeline-title-string
+			(concat (w3m-replace-in-string
+				 (w3m-truncate-string
+				  w3m-current-title (max (- tlen excess 3) 2))
+				 "[\t ]+\\'" "")
+				"...")))
+		w3m-modeline-title-string)
+	    (run-at-time 0.5 nil
+			 (lambda (buffer)
+			   (when (buffer-live-p buffer)
+			     (with-current-buffer buffer
+			       (setq w3m-modeline-title-timer nil))))
+			 (current-buffer)))))))
+
+(defconst w3m-buffer-local-url "buffer://")
+(defun w3m-buffer-local-url-p (url)
+  (save-match-data
+    (string-match (concat "^" w3m-buffer-local-url) url)))
+
+;;;###autoload
+(defun w3m-goto-url (url &optional reload charset post-data referer handler
+			 element no-popup)
+  "Visit World Wide Web pages.  This is the primitive function of `w3m'.
+If the second argument RELOAD is non-nil, reload a content of URL.
+Except that if it is 'redisplay, re-display the page without reloading.
+The third argument CHARSET specifies a charset to be used for decoding
+a content.
+The fourth argument POST-DATA should be a string or a cons cell.  If
+it is a string, it makes this function request a body as if the
+content-type is \"x-www-form-urlencoded\".  If it is a cons cell, the
+car of a cell is used as the content-type and the cdr of a cell is
+used as the body.
+If the fifth argument REFERER is specified, it is used for a Referer:
+field for this request.
+The remaining HANDLER, ELEMENT[1], and NO-POPUP are for the
+internal operations of emacs-w3m.
+You can also use \"quicksearch\" url schemes such as \"gg:emacs\" which
+would search for the term \"emacs\" with the Google search engine.  See
+the `w3m-search' function and the variable `w3m-uri-replace-alist'.
+
+\[1] A note for the developers: ELEMENT is a history element which has
+already been registered in the `w3m-history-flat' variable.  It is
+corresponding to URL to be retrieved at this time, not for the url of
+the current page."
+  (interactive
+   (list (w3m-input-url nil nil nil nil 'feeling-lucky)
+	 current-prefix-arg
+	 (w3m-static-if (fboundp 'universal-coding-system-argument)
+	     coding-system-for-read)))
+  (when (and (stringp url)
+	     (not (interactive-p)))
+    (setq url (w3m-canonicalize-url url)))
+  (set-text-properties 0 (length url) nil url)
+  (setq url (w3m-uri-replace url))
+  (unless (or (w3m-url-local-p url)
+	      (string-match "\\`about:" url))
+    (w3m-string-match-url-components url)
+    (setq url (concat (w3m-url-transfer-encode-string
+		       (substring url 0 (match-beginning 8))
+		       (or w3m-current-coding-system
+			   w3m-default-coding-system))
+		      (if (match-beginning 8)
+			  (concat "#" (match-string 9 url))
+			""))))
+  (cond
+   ;; process mailto: protocol
+   ((string-match "\\`mailto:" url)
+    (w3m-goto-mailto-url url post-data))
+   ;; process ftp: protocol
+   ((and w3m-use-ange-ftp
+	 (string-match "\\`ftps?://" url)
+	 (not (string= "text/html" (w3m-local-content-type url))))
+    (w3m-goto-ftp-url url))
+   ;; find-file directly
+   ((condition-case nil
+	(and (w3m-url-local-p url)
+	     w3m-local-find-file-function
+	     (let ((base-url (w3m-url-strip-fragment url))
+		   (match (car w3m-local-find-file-regexps))
+		   nomatch file)
+	       (and (or (not match)
+			(string-match match base-url))
+		    (not (and (setq nomatch (cdr w3m-local-find-file-regexps))
+			      (string-match nomatch base-url)))
+		    (setq file (w3m-url-to-file-name base-url))
+		    (file-exists-p file)
+		    (not (file-directory-p file))
+		    (prog1
+			t
+		      (funcall (if (functionp w3m-local-find-file-function)
+				   w3m-local-find-file-function
+				 (eval w3m-local-find-file-function))
+			       file)))))
+      (error nil)))
+   ;; process buffer-local url
+   ((w3m-buffer-local-url-p url)
+    (let (file-part fragment-part)
+      (w3m-string-match-url-components url)
+      (setq file-part (concat (match-string 4 url)
+			      (match-string 5 url))
+	    fragment-part (match-string 9 url))
+      (cond
+       ((and (string= file-part "")
+	     fragment-part)
+	(w3m-search-name-anchor fragment-part))
+       ((not (string= file-part ""))
+	(w3m-goto-url (w3m-expand-url (substring url (match-beginning 4))
+				      (concat "file://" default-directory))
+		      reload charset post-data referer handler element))
+       (t (w3m-message "No URL at point")))))
+   ((w3m-url-valid url)
+    (w3m-buffer-setup)			; Setup buffer.
+    (w3m-arrived-setup)			; Setup arrived database.
+    (unless no-popup
+      (w3m-popup-buffer (current-buffer)))
+    (w3m-cancel-refresh-timer (current-buffer))
+    (when w3m-current-process
+      (error "%s"
+	     (substitute-command-keys "
+Cannot run two w3m processes simultaneously \
+\(Type `\\<w3m-mode-map>\\[w3m-process-stop]' to stop asynchronous process)")))
+    (w3m-process-stop (current-buffer))	; Stop all processes retrieving images.
+    (w3m-idle-images-show-unqueue (current-buffer))
+    ;; Store the current position in the history structure if and only
+    ;; if this command is called interactively.  The other user commands
+    ;; that calls this function want to store the position by themselves.
+    (when (interactive-p)
+      (w3m-history-store-position))
+    ;; Access url group
+    (if (string-match "\\`group:" url)
+	(let ((urls (mapcar 'w3m-url-decode-string
+			    (split-string (substring url (match-end 0)) "&")))
+	      (w3m-async-exec (and w3m-async-exec-with-many-urls
+				   w3m-async-exec)))
+	  (w3m-process-do
+	      (type (prog1
+			(w3m-goto-url (car urls))
+		      (dolist (url (cdr urls))
+			(save-window-excursion
+			  (with-current-buffer (w3m-copy-buffer nil nil nil
+								'empty)
+			    (w3m-goto-url url))))))
+	    type))
+      ;; Retrieve the page.
+      (lexical-let ((orig url)
+		    (url (w3m-url-strip-authinfo url))
+		    (reload (and (not (eq reload 'redisplay)) reload))
+		    (redisplay (eq reload 'redisplay))
+		    (charset charset)
+		    (post-data post-data)
+		    (referer referer)
+		    (name)
+		    (history-position (get-text-property (point)
+							 'history-position))
+		    (reuse-history w3m-history-reuse-history-elements))
+	(when w3m-current-forms
+	  ;; Store the current forms in the history structure.
+	  (w3m-history-plist-put :forms w3m-current-forms))
+	(let ((w3m-current-buffer (current-buffer)))
+	  (unless element
+	    (setq element
+		  (if (and (equal referer "about://history/")
+			   history-position)
+		      (w3m-history-element history-position t)
+		    (if w3m-history-reuse-history-elements
+			(w3m-history-assoc url)))))
+	  ;; Set current forms using the history structure.
+	  (when (setq w3m-current-forms
+		      (when (and (not reload) ; If reloading, ignore history.
+				 (null post-data) ; If post, ignore history.
+				 (or (w3m-cache-available-p url)
+				     (w3m-url-local-p url)))
+			;; Don't use `w3m-history-plist-get' here.
+			(plist-get (nthcdr 3 element) :forms)))
+	    ;; Mark that the form is from history structure.
+	    (setq w3m-current-forms (cons t w3m-current-forms)))
+	  (when (and post-data element)
+	    ;; Remove processing url's forms from the history structure.
+	    (w3m-history-set-plist (cadr element) :forms nil))
+	  ;; local directory URL check
+	  (when (and (w3m-url-local-p url)
+		     (file-directory-p (w3m-url-to-file-name url))
+		     (setq url (file-name-as-directory url))
+		     (eq w3m-local-directory-view-method 'w3m-dtree)
+		     (string-match "\\`file:///" url))
+	    (setq url (replace-match "about://dtree/" nil nil url)
+		  orig url))
+	  ;; Split body and fragments.
+	  (w3m-string-match-url-components url)
+	  (and (match-beginning 8)
+	       (setq name (match-string 9 url)
+		     url (substring url 0 (match-beginning 8))))
+	  (when (w3m-url-local-p url)
+	    (unless (string-match "[^\000-\177]" url)
+	      (setq url (w3m-url-decode-string url))))
+	  (w3m-process-do
+	      (action
+	       (if (and (not reload)
+			(not redisplay)
+			(stringp w3m-current-url)
+			(string= url w3m-current-url))
+		   (progn
+		     (w3m-refontify-anchor)
+		     'cursor-moved)
+		 (when w3m-name-anchor-from-hist
+		   (w3m-history-plist-put
+		    :name-anchor-hist
+		    (append (list 1 nil)
+			    (and (integerp (car w3m-name-anchor-from-hist))
+				 (nthcdr (1+ (car w3m-name-anchor-from-hist))
+					 w3m-name-anchor-from-hist)))))
+		 (setq w3m-name-anchor-from-hist
+		       (plist-get (nthcdr 3 element) :name-anchor-hist))
+		 (setq w3m-current-process
+		       (w3m-retrieve-and-render orig reload charset
+						post-data referer handler))))
+	    (with-current-buffer w3m-current-buffer
+	      (setq w3m-current-process nil)
+	      (if (not action)
+		  (progn
+		    (w3m-history-push w3m-current-url
+				      (list :title (or w3m-current-title
+						       "<no-title>")))
+		    (goto-char (point-min)))
+		(when (and name
+			   (progn
+			     ;; Redisplay to search an anchor sure.
+			     (sit-for 0)
+			     (w3m-search-name-anchor
+			      (w3m-url-transfer-encode-string
+			       name
+			       (or w3m-current-coding-system
+				   w3m-default-coding-system))
+			      nil (not (eq action 'cursor-moved)))))
+		  (setf (w3m-arrived-time (w3m-url-strip-authinfo orig))
+			(w3m-arrived-time url)))
+		(unless (eq action 'cursor-moved)
+		  (if (equal referer "about://history/")
+		      ;; Don't sprout a new branch for the existing history
+		      ;; element.
+		      (let ((w3m-history-reuse-history-elements t))
+			(w3m-history-push w3m-current-url
+					  (list :title w3m-current-title))
+			;; Fix the history position pointers.
+			(when history-position
+			  (setcar w3m-history
+				  (w3m-history-regenerate-pointers
+				   history-position))))
+		    (let ((w3m-history-reuse-history-elements reuse-history)
+			  (position (when (eq 'reload reuse-history)
+				      (cadar w3m-history))))
+		      (w3m-history-push w3m-current-url
+					(list :title w3m-current-title))
+		      (when position
+			(w3m-history-set-current position))))
+		  (w3m-history-add-properties (list :referer referer
+						    :post-data post-data))
+		  (unless w3m-toggle-inline-images-permanently
+		    (setq w3m-display-inline-images
+			  w3m-default-display-inline-images))
+		  (when (and w3m-use-form reload)
+		    (w3m-form-textarea-files-remove))
+		  (cond ((w3m-display-inline-images-p)
+			 (and w3m-force-redisplay (sit-for 0))
+			 (w3m-toggle-inline-images 'force reload))
+			((and (w3m-display-graphic-p)
+			      (eq action 'image-page))
+			 (and w3m-force-redisplay (sit-for 0))
+			 (w3m-toggle-inline-image 'force reload)))))
+	      (setq buffer-read-only t)
+	      (set-buffer-modified-p nil)
+	      (setq list-buffers-directory w3m-current-title)
+	      ;; must be `w3m-current-url'
+	      (setq default-directory (w3m-current-directory w3m-current-url))
+	      (w3m-buffer-name-add-title)
+	      (w3m-update-toolbar)
+	      (w3m-select-buffer-update)
+	      (let ((real-url (if (w3m-arrived-p url)
+				  (or (w3m-real-url url) url)
+				url)))
+		(run-hook-with-args 'w3m-display-functions real-url)
+		(run-hook-with-args 'w3m-display-hook real-url))
+	      (w3m-session-crash-recovery-save)
+	      (when (and w3m-current-url
+			 (stringp w3m-current-url)
+			 (or (string-match
+			      "\\`about://\\(?:header\\|source\\)/"
+			      w3m-current-url)
+			     (equal (w3m-content-type w3m-current-url)
+				    "text/plain")))
+		(setq truncate-lines nil))
+	      ;; restore position must call after hooks for localcgi.
+	      (when (or reload redisplay)
+		(w3m-history-restore-position))
+	      (w3m-set-buffer-unseen)
+	      (w3m-refresh-at-time)))))))
+   (t (w3m-message "Invalid URL: %s" url))))
+
+(defun w3m-current-directory (url)
+  "Return a directory used as the current directory in a page visiting URL.
+See `w3m-default-directory'."
+  (or (and url
+	   (stringp url)
+	   (let (file)
+	     (if (string-match "\\`ftp://" url)
+		 (progn
+		   (setq file (w3m-convert-ftp-url-for-emacsen url))
+		   (file-name-as-directory
+		    (if (string-match "/\\`" file)
+			file
+		      (file-name-directory file))))
+	       (and (setq file (w3m-url-to-file-name url))
+		    (file-exists-p file)
+		    (file-name-as-directory
+		     (if (file-directory-p file)
+			 file
+		       (file-name-directory file)))))))
+      (let (directory)
+	(file-name-as-directory
+	 (or (and (stringp w3m-default-directory)
+		  (file-directory-p w3m-default-directory)
+		  (expand-file-name w3m-default-directory))
+	     (and (symbolp w3m-default-directory)
+		  (boundp w3m-default-directory)
+		  (setq directory (symbol-value w3m-default-directory))
+		  (stringp directory)
+		  (file-directory-p directory)
+		  (expand-file-name directory))
+	     (and (functionp w3m-default-directory)
+		  (stringp (setq directory
+				 (condition-case nil
+				     (funcall w3m-default-directory url)
+				   (error nil))))
+		  (file-directory-p directory)
+		  (expand-file-name directory))
+	     w3m-profile-directory)))))
+
+(defun w3m-refresh-at-time ()
+  (when (and w3m-use-refresh w3m-current-refresh)
+    (if (= (car w3m-current-refresh) 0)
+	(w3m-goto-url-with-timer (cdr w3m-current-refresh) (current-buffer))
+      (setq w3m-refresh-timer
+	    (run-at-time (car w3m-current-refresh)
+			 nil
+			 'w3m-goto-url-with-timer
+			 (cdr w3m-current-refresh)
+			 (current-buffer))))))
+
+(defun w3m-goto-url-with-timer (url buffer)
+  "Run the `w3m-goto-url' function by the refresh timer."
+  (when (and (w3m-url-valid url) buffer (get-buffer buffer))
+    (cond
+     ((get-buffer-window buffer)
+      (save-selected-window
+	(pop-to-buffer buffer)
+	(with-current-buffer buffer
+	  (w3m-cancel-refresh-timer buffer)
+	  (if (and w3m-current-url
+		   (string= url w3m-current-url))
+	      (w3m-reload-this-page t)
+	    (w3m-goto-url url)))))
+     ((buffer-live-p buffer)
+      (let* ((cwin (selected-window))
+	     (cbuf (window-buffer cwin)))
+	(with-current-buffer buffer
+	  (w3m-cancel-refresh-timer buffer)
+	  (if (and w3m-current-url
+		   (string= url w3m-current-url))
+	      (w3m-reload-this-page t t)
+	    (w3m-goto-url url nil
+			  nil nil nil nil nil t)))
+	(set-window-buffer cwin cbuf)))
+     (t
+      (with-current-buffer buffer
+	(w3m-cancel-refresh-timer buffer))))))
+
+(defun w3m-goto-new-session-url (&optional reload)
+  "Open `w3m-new-session-url' in a new session."
+  (interactive "P")
+  (if (not (eq major-mode 'w3m-mode))
+      (message "This command can be used in w3m mode only")
+    (w3m-view-this-url-1 w3m-new-session-url reload 'new-session)))
+
+;;;###autoload
+(defun w3m-goto-url-new-session (url &optional reload charset post-data
+				     referer)
+  "Visit World Wide Web pages in a new session.
+If you invoke this command in the emacs-w3m buffer, the new session
+will be created by copying the current session.  Otherwise, the new
+session will start afresh."
+  (interactive
+   (list (w3m-input-url nil nil	nil nil 'feeling-lucky)
+	 current-prefix-arg
+	 (w3m-static-if (fboundp 'universal-coding-system-argument)
+	     coding-system-for-read)
+	 nil ;; post-data
+	 nil)) ;; referer
+  (let (buffer)
+    (if (or (eq 'w3m-mode major-mode)
+	    (and (setq buffer (w3m-alive-p))
+		 (progn
+		   (w3m-popup-buffer buffer)
+		   t)))
+	(progn
+	  ;; Store the current position in the history structure.
+	  (w3m-history-store-position)
+	  (switch-to-buffer (setq buffer
+				  (w3m-copy-buffer nil nil
+						   w3m-new-session-in-background
+						   'empty)))
+	  (w3m-display-progress-message url)
+	  (w3m-goto-url url
+			(or reload
+			    ;; When new URL has `name' portion, we have to
+			    ;; goto the base url because generated buffer
+			    ;; has no content at this moment.
+			    (and (progn
+				   (w3m-string-match-url-components url)
+				   (match-beginning 8))
+				 'redisplay))
+			charset post-data referer)
+	  ;; Delete useless newly created buffer if it is empty.
+	  (w3m-delete-buffer-if-empty buffer))
+      (w3m-goto-url url))))
+
+(defun w3m-move-point-for-localcgi (url)
+  (when (and (w3m-url-local-p url)
+	     (file-directory-p (w3m-url-to-file-name url))
+	     (not (eq w3m-local-directory-view-method 'w3m-dtree))
+	     (= (point-min) (point))
+	     (w3m-search-name-anchor "current" 'quiet))
+    (recenter (/ (window-height) 5))))
+
+;;;###autoload
+(defun w3m-gohome ()
+  "Go to the Home page."
+  (interactive)
+  (unless w3m-home-page
+    (error "You have to specify the value of `w3m-home-page'"))
+  (w3m-goto-url w3m-home-page))
+
+(defun w3m-reload-this-page (&optional arg no-popup)
+  "Reload the current page, disregarding the cached contents.
+If the prefix arg ARG is given, it also clears forms and post data."
+  (interactive "P")
+  (if w3m-current-url
+      (let ((w3m-history-reuse-history-elements
+	     ;; Don't move the history position.
+	     'reload)
+	    post-data)
+	(if arg
+	    (progn
+	      (w3m-history-remove-properties '(:forms nil :post-data nil))
+	      (setq w3m-current-forms nil))
+	  (when (and (setq post-data (w3m-history-plist-get :post-data))
+		     (not (y-or-n-p "Repost form data? ")))
+	    (setq post-data nil)))
+	(w3m-history-store-position)
+	(w3m-goto-url w3m-current-url 'reload nil post-data
+		      (w3m-history-plist-get :referer)
+		      nil
+		      (w3m-history-element (cadar w3m-history) t)
+		      no-popup)
+	(w3m-history-restore-position))
+    (w3m-message "Can't reload this page")))
+
+(defun w3m-reload-all-pages (&optional arg)
+  "Reload all pages, disregarding the cached contents.
+If the prefix arg ARG is given, it also clears forms and post data."
+  (interactive "P")
+  (if arg
+      (save-window-excursion
+	(dolist (buffer (w3m-list-buffers))
+	  (switch-to-buffer buffer)
+	  (w3m-reload-this-page)))
+    (dolist (buffer (w3m-list-buffers))
+      (save-window-excursion
+	(switch-to-buffer buffer)
+	(w3m-reload-this-page)))))
+
+(defun w3m-redisplay-this-page (&optional arg)
+  "Redisplay the current page.
+If the prefix arg ARG is given, it toggles the visibility of images."
+  (interactive "P")
+  (if (null w3m-current-url)
+      (w3m-message "Can't redisplay this page")
+    (when arg
+      (setq w3m-display-inline-images (not w3m-display-inline-images)))
+    (let ((w3m-prefer-cache t)
+	  (w3m-history-reuse-history-elements
+	   ;; Don't move the history position.
+	   'reload))
+      (w3m-history-store-position)
+      (w3m-goto-url w3m-current-url 'redisplay)
+      (w3m-history-restore-position))))
+
+(defun w3m-redisplay-and-reset (&optional arg)
+  "Redisplay the current page and reset the user-specified values.
+This function clears the charset and the content type which the user
+specified for overriding the values of what the page requires.  The
+prefix argument ARG is passed to the `w3m-redisplay-this-page'
+function (which see)."
+  (interactive "P")
+  (if (null w3m-current-url)
+      (w3m-message "Can't execute this page")
+    (setf (w3m-arrived-content-type w3m-current-url) nil)
+    (setf (w3m-arrived-content-charset
+	   (if (string-match "\\`about://source/" w3m-current-url)
+	       (substring w3m-current-url (match-end 0))
+	     w3m-current-url))
+	  nil)
+    (w3m-redisplay-this-page arg)))
+
+(defun w3m-redisplay-with-charset (&optional arg)
+  "Redisplay the current page, specifying a charset.
+If the user enters the empty string, the value which once was used for
+decoding the page is used.  The prefix argument ARG is passed to the
+`w3m-redisplay-this-page' function (which see)."
+  (interactive "P")
+  (if (null w3m-current-url)
+      (w3m-message "Can't execute the command")
+    (setf (w3m-arrived-content-charset
+	   (if (string-match "\\`about://source/" w3m-current-url)
+	       (substring w3m-current-url (match-end 0))
+	     w3m-current-url))
+	  (w3m-read-content-charset
+	   (format "Content-charset (current %s, default reset): "
+		   w3m-current-coding-system)))
+    (w3m-redisplay-this-page arg)))
+
+(defun w3m-redisplay-with-content-type (&optional arg)
+  "Redisplay the current page, specifying a content type.
+If the user enters the empty string, it uses the value which was
+specified by the page's contents itself.  The prefix argument ARG is
+passed to the `w3m-redisplay-this-page' function (which see)."
+  (interactive "P")
+  (if (null w3m-current-url)
+      (w3m-message "Can't execute this page")
+    (setf (w3m-arrived-content-type w3m-current-url)
+	  (let ((type (completing-read
+		       (format "Content-type (current %s, default reset): "
+			       (or (w3m-arrived-content-type w3m-current-url)
+				   (w3m-content-type w3m-current-url)))
+		       w3m-content-type-alist nil t)))
+	    (unless (string= type "") type)))
+    (w3m-redisplay-this-page arg)))
+
+(defun w3m-examine-command-line-args ()
+  "Return a url when the `w3m' command is invoked from the command line.
+The `w3m' Lisp command can be invoked even in the batch mode, e.g.,
+``emacs -f w3m'' or ``emacs -f w3m url''.  This function is used in
+the very case, it extracts a url string from the command line
+arguments and passes it to the `w3m' command.  If a url is omitted, it
+defaults to the value of `w3m-home-page' or \"about:\"."
+  (let ((url (car command-line-args-left))
+	(directives '("-f" "-funcall" "--funcall" "-e"))
+	args)
+    (if (and url (not (string-match "\\`-" url)))
+	(progn
+	  (setq command-line-args-left (cdr command-line-args-left))
+	  (when (string-match "\\`[\t ]*\\'" url)
+	    ;; emacs -f w3m '' ...
+	    (setq url (or w3m-home-page "about:"))))
+      (setq args (nthcdr (max (- (length command-line-args)
+				 (length command-line-args-left)
+				 2)
+			      1)
+			 command-line-args))
+      (when (and (equal (cadr args) "w3m")
+		 (member (car args) directives))
+	(setq url (or w3m-home-page "about:"))))
+    (unless
+	(and command-line-args-left
+	     (progn
+	       (setq args (reverse command-line-args-left))
+	       (while (and args
+			   (not (and (setq args (cdr (member "w3m" args)))
+				     (member (car args) directives)))))
+	       args))
+      (defalias 'w3m-examine-command-line-args (lambda nil)))
+    ;; Inhibit the startup screen.
+    (when (and url
+	       ;; Since XEmacs provides `inhibit-startup-message' as
+	       ;; a constant, we don't modify the value.
+	       (not (featurep 'xemacs)))
+      (let ((var (cond ((boundp 'inhibit-startup-screen)
+			'inhibit-startup-screen)
+		       ((boundp 'inhibit-startup-message)
+			'inhibit-startup-message)))
+	    fn)
+	(when (and var
+		   (not (symbol-value var)))
+	  (set var t)
+	  (setq fn (make-symbol "w3m-inhibit-startup-screen"))
+	  (fset fn `(lambda nil
+		      (set ',var nil)
+		      (remove-hook 'window-setup-hook ',fn)
+		      (fmakunbound ',fn)))
+	  (add-hook 'window-setup-hook fn))))
+    url))
+
+;;;###autoload
+(defun w3m (&optional url new-session interactive-p)
+  "Visit World Wide Web pages using the external w3m command.
+
+When you invoke this command interactively for the first time, it will
+visit a page which is pointed to by a string like url around the
+cursor position or the home page specified by the `w3m-home-page'
+variable, but you will be prompted for a URL if `w3m-quick-start' is
+nil (default t) or `w3m-home-page' is nil.
+
+The variables `w3m-pop-up-windows' and `w3m-pop-up-frames' control
+whether this command should pop to a window or a frame up for the
+session.
+
+When emacs-w3m sessions have already been opened, this command will
+pop to the existing window or frame up, but if `w3m-quick-start' is
+nil, \(default t), you will be prompted for a URL (which defaults to
+`popup' meaning to pop to an existing emacs-w3m buffer up).
+
+In addition, if the prefix argument is given or you enter the empty
+string for the prompt, it will visit the home page specified by the
+`w3m-home-page' variable or the \"about:\" page.
+
+You can also run this command in the batch mode as follows:
+
+  emacs -f w3m http://emacs-w3m.namazu.org/ &
+
+In that case, or if this command is called non-interactively, the
+variables `w3m-pop-up-windows' and `w3m-pop-up-frames' will be ignored
+\(treated as nil) and it will run emacs-w3m at the current (or the
+initial) window.
+
+If the optional NEW-SESSION is non-nil, this function makes a new
+emacs-w3m buffer.  Besides that, it also makes a new emacs-w3m buffer
+if `w3m-make-new-session' is non-nil and a user specifies a url string.
+
+The optional INTERACTIVE-P is for the internal use; it is mainly used
+to check whether Emacs 22 or later calls this function as an
+interactive command in the batch mode."
+  (interactive
+   (let ((url
+	  ;; Emacs 22 or later calls a Lisp command interactively even
+	  ;; if it is in the batch mode.  If the following function
+	  ;; returns non-nil value, it means this function is called in
+	  ;; the batch mode, and we don't treat it as what it is called
+	  ;; to interactively.
+	  (w3m-examine-command-line-args))
+	 new)
+     (list
+      ;; url
+      (or url
+	  (let ((default (if (w3m-alive-p) 'popup w3m-home-page)))
+	    (setq new (if current-prefix-arg
+			  default
+			(w3m-input-url nil nil default w3m-quick-start
+				       'feeling-lucky)))))
+      ;; new-session
+      (and w3m-make-new-session
+	   (w3m-alive-p)
+	   (not (eq new 'popup)))
+      ;; interactive-p
+      (not url))))
+  (let ((nofetch (eq url 'popup))
+	(alived (w3m-alive-p))
+	(buffer (unless new-session (w3m-alive-p t)))
+	(w3m-pop-up-frames (and interactive-p w3m-pop-up-frames))
+	(w3m-pop-up-windows (and interactive-p w3m-pop-up-windows)))
+    (unless (and (stringp url)
+		 (> (length url) 0))
+      (if buffer
+	  (setq nofetch t)
+	;; This command was possibly be called non-interactively or as
+	;; the batch mode.
+	(setq url (or (w3m-examine-command-line-args)
+		      ;; Unlikely but this function was called with no url.
+		      "about:")
+	      nofetch nil)))
+    (unless buffer
+      ;; It means `new-session' is non-nil or there's no emacs-w3m buffer.
+      ;; At any rate, we create a new emacs-w3m buffer in this case.
+      (with-current-buffer (setq buffer (w3m-generate-new-buffer "*w3m*"))
+	(w3m-mode)))
+    (w3m-popup-buffer buffer)
+    (unless nofetch
+      ;; `unwind-protect' is needed since a process may be terminated by C-g.
+      (unwind-protect
+	  (let* ((crash (and (not alived)
+			     (w3m-session-last-crashed-session)))
+		 (last (and (not alived)
+			    (not crash)
+			    (w3m-session-last-autosave-session))))
+	    (w3m-goto-url url)
+	    (when (or crash last)
+	      (w3m-session-goto-session (or crash last))))
+	;; Delete useless newly created buffer if it is empty.
+	(w3m-delete-buffer-if-empty buffer)))))
+
+(eval-when-compile
+  (autoload 'browse-url-interactive-arg "browse-url"))
+
+;;;###autoload
+(defun w3m-browse-url (url &optional new-session)
+  "Ask emacs-w3m to browse URL.
+NEW-SESSION specifies whether to create a new emacs-w3m session.  URL
+defaults to the string looking like a url around the cursor position.
+Pop to a window or a frame up according to `w3m-pop-up-windows' and
+`w3m-pop-up-frames'."
+  (interactive (progn
+		 (require 'browse-url)
+		 (browse-url-interactive-arg "Emacs-w3m URL: ")))
+  (when (stringp url)
+    (setq url (w3m-canonicalize-url url))
+    (if new-session
+	(w3m-goto-url-new-session url)
+      (w3m-goto-url url))))
+
+;;;###autoload
+(defun w3m-find-file (file)
+  "Function used to open FILE whose name is expressed in ordinary format.
+The file name will be converted into the file: scheme."
+  (interactive "fFilename: ")
+  (w3m-goto-url (w3m-expand-file-name-as-url file)
+		nil
+		(w3m-static-if (fboundp 'universal-coding-system-argument)
+		    coding-system-for-read)))
+
+(defun w3m-cygwin-path (path)
+  "Convert PATH in the win32 style into the cygwin format.
+ex. c:/dir/file => //c/dir/file"
+  (if (string-match "^\\([A-Za-z]\\):" path)
+      (replace-match "//\\1" nil nil path)
+    path))
+
+;;;###autoload
+(defun w3m-region (start end &optional url charset)
+  "Render the region of the current buffer between START and END.
+URL specifies the address where the contents come from.  It can be
+omitted or nil when the address is not identified.  CHARSET is used
+for decoding the contents.  If it is nil, this function attempts to
+parse the meta tag to extract the charset."
+  (interactive
+   (list (region-beginning)
+	 (region-end)
+	 (w3m-expand-file-name-as-url
+	  (or (buffer-file-name) default-directory))))
+  (save-restriction
+    (w3m-process-stop (current-buffer))
+    (narrow-to-region start end)
+    (w3m-clear-local-variables)
+    (let ((w3m-current-buffer (current-buffer)))
+      (unless charset
+	(setq charset (w3m-correct-charset (w3m-detect-meta-charset))))
+      (setq url (or url
+		    w3m-buffer-local-url)
+	    w3m-current-url url
+	    w3m-current-base-url url
+	    w3m-current-coding-system
+	    (if charset
+		(w3m-charset-to-coding-system charset)
+	      w3m-coding-system)
+	    w3m-current-title
+	    (let (w3m-use-refresh)
+	      (w3m-rendering-buffer charset)))
+      (w3m-fontify)
+      (when (w3m-display-inline-images-p)
+	(and w3m-force-redisplay (sit-for 0))
+	(w3m-toggle-inline-images 'force)))))
+
+;;;###autoload
+(defun w3m-buffer (&optional url charset)
+  "Render the current buffer.
+See `w3m-region' for the optional arguments."
+  (interactive (list (w3m-expand-file-name-as-url (or (buffer-file-name)
+						      default-directory))))
+  (w3m-region (point-min) (point-max) url charset))
+
+;;; About:
+(defun w3m-about (url &rest args)
+  (insert "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">
+<html>
+<head><title>About emacs-w3m</title></head>
+<body>
+<center>
+Welcome to <a href=\"http://emacs-w3m.namazu.org/\">\
+<img src=\"about://emacs-w3m.gif\" alt=\"emacs-w3m\" width=\"83\"
+height=\"14\"></a>!<br><br>
+emacs-w3m is an interface program of
+<a href=\"http://w3m.sourceforge.net/\">w3m</a>,
+works on Emacs.
+</center>
+</body>
+</html>")
+  "text/html")
+
+(defun w3m-view-source (&optional arg)
+  "Display an html source of a page visited in the current buffer.
+ARG should be a number (a non-numeric value is treated as `1') which
+controls how much to decode a source.  A number larger than or equal
+to 4 (which the `C-u' prefix produces) means don't decode.  The number
+2 or 3 means decode normal text.  The number 1 means decodes `&#nnn;'
+entities in 128..159 and 160 in addition to normal text (the default).
+A number less than or equal to zero means also encode urls containing
+non-ASCII characters."
+  (interactive "p")
+  (if w3m-current-url
+      (let ((w3m-prefer-cache t)
+	    (w3m-view-source-decode-level (if (numberp arg) arg 0))
+	    (w3m-history-reuse-history-elements t))
+	(w3m-history-store-position)
+	(cond
+	 ((string-match "\\`about://source/" w3m-current-url)
+	  (w3m-goto-url (substring w3m-current-url (match-end 0))))
+	 ((string-match "\\`about://header/" w3m-current-url)
+	  (w3m-goto-url (concat "about://source/"
+				(substring w3m-current-url (match-end 0)))))
+	 (t
+	  (w3m-goto-url  (concat "about://source/" w3m-current-url))))
+	(w3m-history-restore-position))
+    (w3m-message "Can't view page source")))
+
+(defun w3m-make-separator ()
+  (if (string= w3m-language "Japanese")
+      (make-string (/ (w3m-display-width) 2)
+		   (make-char 'japanese-jisx0208 40 44))
+    (make-string (w3m-display-width) ?-)))
+
+(defun w3m-about-header (url &optional no-uncompress no-cache &rest args)
+  (when (string-match "\\`about://header/" url)
+    (setq url (substring url (match-end 0)))
+    (insert "Page Information\n"
+	    "\nTitle:          " (or (w3m-arrived-title
+				      (w3m-url-strip-authinfo url))
+				     "")
+	    "\nURL:            " url
+	    "\nDocument Type:  " (or (w3m-content-type url) "")
+	    "\nLast Modified:  "
+	    (let ((time (w3m-last-modified url)))
+	      (if time (current-time-string time) ""))
+	    (let ((anchor (with-current-buffer w3m-current-buffer
+			    (and (equal url w3m-current-url) (w3m-anchor)))))
+	      (if anchor
+		  (concat "\nCurrent Anchor: " anchor)
+		"")))
+    (let ((ct (w3m-arrived-content-type url))
+	  (charset (w3m-arrived-content-charset url))
+	  (separator (w3m-make-separator))
+	  (case-fold-search t)
+	  header ssl beg)
+      (when (or ct charset)
+	(insert "\n\n" separator "\n\nModifier Information\n")
+	(insert "\nDocument Content-Type:  " (or ct ""))
+	(insert "\nDocument Charset:       " (or charset "")))
+      (when (and (not (w3m-url-local-p url))
+		 (setq header (condition-case nil
+				  (or (unless no-cache
+					(w3m-cache-request-header url))
+				      (w3m-process-with-wait-handler
+					(w3m-w3m-dump-head url handler)))
+				(w3m-process-timeout nil))))
+	(insert "\n\n" separator "\n\nHeader Information\n\n" header)
+	(goto-char (point-min))
+	(when (re-search-forward "^w3m-ssl-certificate: " nil t)
+	  (setq beg (match-end 0))
+	  (forward-line)
+	  (while (and (not (eobp)) (looking-at "^[ \t]"))
+	    (forward-line))
+	  (setq ssl (buffer-substring beg (point)))
+	  (delete-region beg (point))
+	  (goto-char beg)
+	  (insert "SSL\n")
+	  (goto-char (point-max))
+	  (insert separator "\n\nSSL Information\n\n")
+	  (setq beg (point))
+	  (insert ssl)
+	  (goto-char beg)
+	  (while (re-search-forward "^\t" nil t)
+	    (delete-char -1)
+	    (when (looking-at "Certificate:")
+	      (insert "\n"))))))
+    "text/plain"))
+
+(defun w3m-view-header ()
+  "Display the header of the current page."
+  (interactive)
+  (if w3m-current-url
+      (let ((w3m-prefer-cache t)
+	    (w3m-history-reuse-history-elements t)
+	    (url (cond
+		  ((string-match "\\`about://header/" w3m-current-url)
+		   (substring w3m-current-url (match-end 0)))
+		  ((string-match "\\`about://source/" w3m-current-url)
+		   (let ((real-url (substring w3m-current-url (match-end 0))))
+		     (unless (string-match "\\`about:" real-url)
+		       (concat "about://header/" real-url))))
+		  ((string-match "\\`about:" w3m-current-url)
+		   nil)
+		  (t
+		   (concat "about://header/" w3m-current-url)))))
+	(if url
+	    (progn
+	      (w3m-history-store-position)
+	      (w3m-goto-url url)
+	      (w3m-history-restore-position))
+	  (w3m-message "Can't load a header for %s" w3m-current-url)))
+    (w3m-message "Can't view page header")))
+
+(defvar w3m-about-history-max-indentation '(/ (* (window-width) 2) 3)
+  "*Number used to limit the identation level when showing a history.
+This value is evaluated whenever a history page is displayed by the
+`w3m-about-history' command.  So, it can be any s-expression returning
+a number.")
+
+(defvar w3m-about-history-indent-level 4
+  "*Number used to specify the indentation level when showing a history.
+A history page is invoked by the `w3m-about-history' command.")
+
+(defun w3m-about-history (&rest args)
+  "Show a tree-structured history."
+  (let (start history current)
+    (with-current-buffer w3m-current-buffer
+      (setq history w3m-history-flat
+	    current (cadar w3m-history)))
+    (insert "\
+<head><title>URL history</title></head><body>
+<h1>List of all the links you have visited in this session.</h1><pre>\n")
+    (setq start (point))
+    (when history
+      (let ((form
+	     (format
+	      "%%0%dd"
+	      (length
+	       (number-to-string
+		(apply 'max
+		       (apply 'append
+			      (mapcar
+			       ;; Don't use `caddr' here, since it won't
+			       ;; be substituted by the compiler macro.
+			       (lambda (e)
+				 (car (cdr (cdr e))))
+			       history)))))))
+	    (cur (current-buffer))
+	    (margin (if (> w3m-about-history-indent-level 1)
+			1
+		      0))
+	    (max-indent (condition-case nil
+			    ;; Force the value to be a number or nil.
+			    (+ 0 (eval w3m-about-history-max-indentation))
+			  (error nil)))
+	    (last-indent -1)
+	    (sub-indent 0)
+	    element url about title position bol indent)
+	(while history
+	  (setq element (pop history)
+		url (car element)
+		;; FIXME: an ad-hoc workaround to avoid illegal-type errors.
+		about (or (not (stringp url))
+			  (string-match w3m-history-ignored-regexp url))
+		title (plist-get (cadr element) :title)
+		position (caddr element))
+	  (when url
+	    (insert (format "h%s %d %d <a href=\"%s\">%s%s%s %s</a>\n"
+			    (mapconcat (lambda (d) (format form d))
+				       position
+				       "-")
+			    (/ (1- (length position)) 2)
+			    (if (equal current position) 1 0)
+			    url
+			    (if about "&lt;" "")
+			    (if (or (not title)
+				    (string-equal "<no-title>" title)
+				    (string-match "^[\t $B!!(B]*$" title))
+				url
+			      (w3m-encode-specials-string title))
+			    (if about "&gt;" "")
+			    position))))
+	(sort-fields 0 start (point-max))
+	(goto-char start)
+	(while (not (eobp))
+	  (setq bol (point))
+	  (skip-chars-forward "^ ")
+	  (setq indent (read cur)
+		sub-indent (if (= indent last-indent)
+			       (1+ sub-indent)
+			     0)
+		last-indent indent
+		indent (+ (* w3m-about-history-indent-level indent)
+			  sub-indent))
+	  (when (prog1
+		    (= (read cur) 1)
+		  (delete-region bol (point))
+		  (insert-char ?\  (+ margin (if max-indent
+						 (min max-indent indent)
+					       indent))))
+	    (beginning-of-line)
+	    (delete-char 1)
+	    (insert "&gt;"))
+	  (forward-line 1))))
+    (insert "</pre></body>")
+    "text/html"))
+
+(defun w3m-about-db-history (url &rest args)
+  (let ((start 0)
+	(size nil)
+	(width (- (w3m-display-width) 18))
+	(now (current-time))
+	title time alist prev next page total)
+    (when (string-match "\\`about://db-history/\\?" url)
+      (dolist (s (split-string (substring url (match-end 0)) "&"))
+	(when (string-match "\\`\\(?:start\\|\\(size\\)\\)=" s)
+	  (set (if (match-beginning 1) 'size 'start)
+	       (string-to-number (substring s (match-end 0)))))))
+    (when w3m-arrived-db
+      (mapatoms
+       (lambda (sym)
+	 (and sym
+	      (setq url (symbol-name sym))
+	      (not (string-match "#" url))
+	      (not (string-match w3m-history-ignored-regexp url))
+	      (push (cons url (w3m-arrived-time url)) alist)))
+       w3m-arrived-db)
+      (setq alist (sort alist
+			(lambda (a b)
+			  (w3m-time-newer-p (cdr a) (cdr b))))))
+    (setq total (length alist))
+    (setq alist (nthcdr start alist))
+    (when size
+      (when (> start 0)
+	(setq prev
+	      (format "about://db-history/?start=%d&size=%d"
+		      (max 0 (- start size)) size)))
+      (when (> (length alist) size)
+	(setq next
+	      (format "about://db-history/?start=%d&size=%d"
+		      (+ start size) size)))
+      (when (> total 0)
+	(setq total (+ (/ total size) (if (> (% total size) 0) 1 0)))
+	(setq page (1+ (/ start size)))))
+    (insert "<html><head><title>URL history in DataBase</title>"
+	    (if prev (format "<link rel=\"prev\" href=\"%s\">\n" prev) "")
+	    (if next (format "<link rel=\"next\" href=\"%s\">\n" next) "")
+	    (format
+	     "</head>\n<body>\n<h1>Arrived URL history in DataBase%s</h1>\n"
+	     (if (and page total)
+		 (format " (%d/%d)" page total) "")))
+    (setq prev
+	  (if (or prev next)
+	      (setq next
+		    (concat
+		     "<p align=\"left\">"
+		     (if prev
+			 (format "[<a href=\"%s\">Prev History</a>]" prev)
+		       "")
+		     (if next
+			 (format "[<a href=\"%s\">Next History</a>]" next)
+		       "")
+		     "</p>\n"))
+	    ""))
+    (if (null alist)
+	(insert "<em>Nothing in DataBase.</em>\n")
+      (insert prev "<table cellpadding=0>
+<tr><td><h2> Title/URL </h2></td><td><h2>Time/Date</h2></td></tr>\n")
+      (while (and alist
+		  (or (not size)
+		      (>= (decf size) 0)))
+	(setq url (car (car alist))
+	      time (cdr (car alist))
+	      alist (cdr alist)
+	      title (w3m-arrived-title url))
+	(if (or (null title)
+		(string= "<no-title>" title))
+	    (setq title (concat "<" (w3m-truncate-string url width) ">"))
+	  (when (>= (string-width title) width)
+	    (setq title (concat (w3m-truncate-string title width) "..."))))
+	(insert (format "<tr><td><a href=\"%s\">%s</a></td>"
+			url
+			(w3m-encode-specials-string title)))
+	(when time
+	  (insert "<td>"
+		  (if (<= (w3m-time-lapse-seconds time now)
+			  64800) ;; = (* 60 60 18) 18hours.
+		      (format-time-string "%H:%M:%S" time)
+		    (format-time-string "%Y-%m-%d" time))
+		  "</td>"))
+	(insert "</tr>\n"))
+      (insert "</table>"
+	      (if next "\n<br>\n<hr>\n" "")
+	      prev))
+    (insert "</body></html>\n"))
+  "text/html")
+
+(defun w3m-history-highlight-current-url (url)
+  "Highlight the current url if it is a page for the history.
+It does manage history position data as well."
+  (when (string-equal "about://history/" url)
+    (let ((inhibit-read-only t)
+	  (buffer (current-buffer))
+	  start)
+      ;; Make history position data invisible.
+      (goto-char (point-min))
+      (w3m-next-anchor)
+      (while (progn
+	       (setq start (point))
+	       (re-search-forward " (\\(?:[0-9]+ \\)*[0-9]+)$" nil t))
+	(goto-char (match-beginning 0))
+	(put-text-property start (match-beginning 0)
+			   'history-position (read buffer))
+	(add-text-properties (match-beginning 0) (match-end 0)
+			     '(invisible t intangible t))
+	(forward-char 2)
+	(skip-chars-forward "\t "))
+      ;; Highlight the current url.
+      (goto-char (point-min))
+      (when (search-forward "\n>" nil t)
+	(w3m-next-anchor)
+	(setq start (point))
+	(end-of-line)
+	(w3m-add-face-property start (point) 'w3m-history-current-url)
+	(goto-char start)))
+    (set-buffer-modified-p nil)))
+
+(defcustom w3m-db-history-display-size
+  (and (> w3m-keep-arrived-urls 500) 500)
+  "*Maximum number of arrived URLs which are displayed per page."
+  :group 'w3m
+  :type '(radio (const :tag "All entries are displayed in single page." nil)
+		(integer :format "%t: %v\n" :size 0)))
+
+(defun w3m-db-history (&optional start size)
+  "Display arrived URLs."
+  (interactive
+   (list nil w3m-db-history-display-size))
+  (w3m-goto-url (concat
+		 (format "about://db-history/?start=%d" (or start 0))
+		 (if size (format "&size=%d" size) ""))))
+
+(defun w3m-history (&optional arg)
+  "Display the history of all the links you have visited in the session.
+If it is called with the prefix argument, display the arrived URLs."
+  (interactive "P")
+  (if (null arg)
+      (w3m-goto-url "about://history/")
+    (w3m-db-history nil w3m-db-history-display-size)))
+
+(defun w3m-w32-browser-with-fiber (url)
+  (let ((proc (start-process "w3m-w32-browser-with-fiber"
+			     (current-buffer)
+			     "fiber.exe" "-s"
+			     (if (w3m-url-local-p url)
+				 (w3m-url-to-file-name url)
+			       url))))
+    (set-process-filter proc 'ignore)
+    (set-process-sentinel proc 'ignore)))
+
+(defun w3m-pipe-source (&optional url command)
+  "Pipe the page source of url URL in binary to a shell command COMMAND.
+For the interactive use, URL defaults to that of a link at the point;
+if there are both a link to a page and a link to an image at the point,
+the link to a page is preferred unless the prefix argument is given."
+  (interactive
+   (let ((url (or (if current-prefix-arg
+		      (or (w3m-image) (w3m-anchor))
+		    (or (w3m-anchor) (w3m-image)))
+		  (and w3m-current-url
+		       (prog1
+			   (y-or-n-p (format "Pipe <%s> ? " w3m-current-url))
+			 (message nil))
+		       w3m-current-url)))
+	 command)
+     (if (and (w3m-url-valid url)
+	      (progn
+		(setq command (read-string "Command: "))
+		(not (string-match "\\`[\000-\040]*\\'" command))))
+	 (list url command)
+       (list 'none nil))))
+  (cond ((eq url 'none) nil)
+	((and (stringp url)
+	      (w3m-url-valid url)
+	      (stringp command)
+	      (not (string-match "\\`[\000-\040]*\\'" command)))
+	 (w3m-message "Pipe <%s> to \"| %s\"..." url command)
+	 (with-temp-buffer
+	   (set-buffer-multibyte nil)
+	   (w3m-process-with-wait-handler
+	     (w3m-retrieve (cond ((string-match "\\`about://source/" url)
+				  url)
+				 ((string-match "\\`about://header/" url)
+				  (concat "about://source/"
+					  (substring url (match-end 0))))
+				 (t
+				  (concat "about://source/" url)))))
+	   (shell-command-on-region (point-min) (point-max) command nil)
+	   (w3m-message "Pipe <%s> to \"| %s\"...done" url command)
+	   (let ((buffer (get-buffer "*Shell Command Output*")))
+	     (when (and buffer
+			(not (zerop (buffer-size buffer))))
+	       (display-buffer buffer)))))
+	(t (error "Can't pipe page source"))))
+
+;;; Interactive select buffer.
+(defcustom w3m-select-buffer-horizontal-window t
+  "*Non-nil means split windows horizontally to open the selection window."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-select-buffer-window-ratio '(18 . 12)
+  "*The percentage of the selection window to the whole frame.
+The car is used when splitting windows horizontally and the cdr is for
+splitting windows vertically."
+  :group 'w3m
+  :type '(cons (integer :format "H: %v[%%]  " :size 0)
+	       (integer :format "V: %v[%%]\n" :size 0)))
+
+(defvar w3m-select-buffer-window nil)
+(defconst w3m-select-buffer-message
+  "n: next buffer, p: previous buffer, q: quit."
+  "Help message used when the emacs-w3m buffers selection window is open.")
+
+;; Why this function is here abruptly is because of `w-s-b-horizontal-window'.
+(defun w3m-display-width ()
+  "Return the maximum width which should display lines within the value."
+  (if (< 0 w3m-fill-column)
+      w3m-fill-column
+    (+ (if (and w3m-select-buffer-horizontal-window
+		(get-buffer-window w3m-select-buffer-name))
+	   ;; Show pages as if there is no buffers selection window.
+	   (frame-width)
+	 (window-width))
+       (or w3m-fill-column -1))))
+
+(defun w3m-select-buffer (&optional toggle nomsg)
+  "Pop to the emacs-w3m buffers selection window up.
+It provides the feature for switching emacs-w3m buffers using the
+buffer list.  The following command keys are available:
+
+\\{w3m-select-buffer-mode-map}"
+  (interactive "P")
+  (when toggle
+    (setq w3m-select-buffer-horizontal-window
+	  (not w3m-select-buffer-horizontal-window))
+    (when (get-buffer-window w3m-select-buffer-name)
+      (delete-windows-on w3m-select-buffer-name)))
+  (unless (or (eq major-mode 'w3m-mode)
+	      (eq major-mode 'w3m-select-buffer-mode))
+    (let ((buffer (w3m-alive-p t)))
+      (if buffer
+	  (w3m-popup-buffer buffer)
+	(w3m-goto-url (or w3m-home-page "about:")))))
+  (let ((selected-window (selected-window))
+	(current-buffer (current-buffer)))
+    (set-buffer (w3m-get-buffer-create w3m-select-buffer-name))
+    (unless (eq nomsg 'update)
+      (setq w3m-select-buffer-window selected-window))
+    (let ((w (or (get-buffer-window w3m-select-buffer-name)
+		 (split-window selected-window
+			       (w3m-select-buffer-window-size)
+			       w3m-select-buffer-horizontal-window))))
+      (set-window-buffer w (current-buffer))
+      (select-window w))
+    (w3m-select-buffer-generate-contents current-buffer))
+  (w3m-select-buffer-mode)
+  (or nomsg (w3m-message w3m-select-buffer-message)))
+
+(defun w3m-select-buffer-update (&rest args)
+  (when (get-buffer-window w3m-select-buffer-name)
+    (save-selected-window
+      (w3m-select-buffer nil 'update)))
+  (when w3m-use-tab
+    (w3m-force-window-update)))
+
+(defun w3m-select-buffer-generate-contents (current-buffer)
+  (let ((i 0)
+	(inhibit-read-only t))
+    (delete-region (point-min) (point-max))
+    (dolist (buffer (w3m-list-buffers))
+      (put-text-property (point)
+			 (progn
+			   (insert (format "%d:%s %s\n" (incf i)
+					   (if (w3m-unseen-buffer-p buffer)
+					       "(u)" "   ")
+					   (w3m-buffer-title buffer)))
+			   (point))
+			 'w3m-select-buffer buffer))
+    (skip-chars-backward " \t\r\f\n")
+    (delete-region (point) (point-max))
+    (set-buffer-modified-p nil)
+    (goto-char (or (text-property-any (point-min) (point-max)
+				      'w3m-select-buffer current-buffer)
+		   (point-min)))))
+
+(defvar w3m-select-buffer-mode-map nil)
+(unless w3m-select-buffer-mode-map
+  (let ((map (make-keymap)))
+    (suppress-keymap map)
+    (substitute-key-definition
+     'next-line 'w3m-select-buffer-next-line map global-map)
+    (substitute-key-definition
+     'previous-line 'w3m-select-buffer-previous-line map global-map)
+    (substitute-key-definition
+     'w3m-copy-buffer 'w3m-select-buffer-copy-buffer map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-next-buffer 'w3m-select-buffer-next-line map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-previous-buffer 'w3m-select-buffer-previous-line map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-delete-buffer 'w3m-select-buffer-delete-buffer map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-delete-other-buffers
+     'w3m-select-buffer-delete-other-buffers map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-scroll-up-or-next-url
+     'w3m-select-buffer-show-this-line map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-scroll-down-or-previous-url
+     'w3m-select-buffer-show-this-line-and-down map w3m-mode-map)
+    (substitute-key-definition
+     'w3m-select-buffer 'w3m-select-buffer-toggle-style map w3m-mode-map)
+    (define-key map " " 'w3m-select-buffer-show-this-line)
+    (define-key map "g" 'w3m-select-buffer-recheck)
+    (define-key map "j" 'w3m-select-buffer-next-line)
+    (define-key map "k" 'w3m-select-buffer-previous-line)
+    (define-key map "n" 'w3m-select-buffer-next-line)
+    (define-key map "p" 'w3m-select-buffer-previous-line)
+    (define-key map "q" 'w3m-select-buffer-quit)
+    (define-key map "h" 'w3m-select-buffer-show-this-line-and-switch)
+    (define-key map "w" 'w3m-select-buffer-show-this-line-and-switch)
+    (define-key map "\C-m" 'w3m-select-buffer-show-this-line-and-quit)
+    (define-key map "\C-c\C-c" 'w3m-select-buffer-show-this-line-and-quit)
+    (define-key map "\C-c\C-k" 'w3m-select-buffer-quit)
+    (define-key map "\C-c\C-q" 'w3m-select-buffer-quit)
+    (define-key map "\C-g" 'w3m-select-buffer-quit)
+    (define-key map "?" 'describe-mode)
+    (setq w3m-select-buffer-mode-map map)))
+
+(defun w3m-select-buffer-mode ()
+  "Major mode for switching emacs-w3m buffers using the buffer list.
+
+\\<w3m-select-buffer-mode-map>\
+\\[w3m-select-buffer-next-line]\
+	Next buffer.
+\\[w3m-select-buffer-previous-line]\
+	Previous buffer.
+
+\\[w3m-select-buffer-show-this-line]\
+	Show the buffer on the current menu line or scroll it up.
+\\[w3m-select-buffer-show-this-line-and-down]\
+	Show the buffer on the current menu line or scroll it down.
+\\[w3m-select-buffer-show-this-line-and-switch]\
+	Show the buffer on the menu and switch to the buffer.
+\\[w3m-select-buffer-show-this-line-and-quit]\
+	Show the buffer on the menu and quit the buffers selection.
+
+\\[w3m-select-buffer-copy-buffer]\
+	Create a copy of the buffer on the menu, and show it.
+\\[w3m-select-buffer-delete-buffer]\
+	Delete the buffer on the current menu line.
+\\[w3m-select-buffer-delete-other-buffers]\
+	Delete emacs-w3m buffers except for the buffer on the menu.
+
+\\[w3m-select-buffer-toggle-style]\
+	Toggle the style of the selection between horizontal and vertical.
+\\[w3m-select-buffer-recheck]\
+	Do the roll call to all emacs-w3m buffers.
+\\[w3m-select-buffer-quit]\
+	Quit the buffers selection.
+"
+  (setq major-mode 'w3m-select-buffer-mode
+	mode-name "w3m buffers"
+	truncate-lines t
+	buffer-read-only t)
+  (use-local-map w3m-select-buffer-mode-map)
+  (w3m-run-mode-hooks 'w3m-select-buffer-mode-hook))
+
+(defun w3m-select-buffer-recheck ()
+  "Do the roll call to all emacs-w3m buffers and regenerate the menu."
+  (interactive)
+  (let ((inhibit-read-only t))
+    (erase-buffer))
+  (w3m-select-buffer-generate-contents
+   (window-buffer w3m-select-buffer-window))
+  (w3m-select-buffer-show-this-line))
+
+(defmacro w3m-select-buffer-current-buffer ()
+  '(get-text-property (point-at-bol) 'w3m-select-buffer))
+
+(defun w3m-select-buffer-show-this-line (&optional interactive-p)
+  "Show the buffer on the current menu line or scroll it up."
+  (interactive (list t))
+  (forward-line 0)
+  (let ((obuffer (and (window-live-p w3m-select-buffer-window)
+		      (window-buffer w3m-select-buffer-window)))
+	(buffer (w3m-select-buffer-current-buffer)))
+    (unless buffer
+      (error "No buffer at point"))
+    (cond
+     ((get-buffer-window buffer)
+      (setq w3m-select-buffer-window (get-buffer-window buffer)))
+     ((window-live-p w3m-select-buffer-window)
+      ())
+     ((one-window-p t)
+      (setq w3m-select-buffer-window (selected-window))
+      (select-window
+       (split-window nil
+		     (w3m-select-buffer-window-size)
+		     w3m-select-buffer-horizontal-window)))
+     (t (setq w3m-select-buffer-window (get-largest-window))))
+    (set-window-buffer w3m-select-buffer-window buffer)
+    (when (and interactive-p (eq obuffer buffer))
+      (save-selected-window
+	(pop-to-buffer buffer)
+	(w3m-scroll-up-or-next-url nil)))
+    (w3m-force-window-update w3m-select-buffer-window)
+    (w3m-message w3m-select-buffer-message)
+    buffer))
+
+(defun w3m-select-buffer-show-this-line-and-down ()
+  "Show the buffer on the current menu line or scroll it down."
+  (interactive)
+  (let ((obuffer (and (window-live-p w3m-select-buffer-window)
+		      (window-buffer w3m-select-buffer-window)))
+	(buffer (w3m-select-buffer-show-this-line)))
+    (when (eq obuffer buffer)
+      (save-selected-window
+	(pop-to-buffer buffer)
+	(w3m-scroll-down-or-previous-url nil)))))
+
+(defun w3m-select-buffer-next-line (&optional n)
+  "Move cursor vertically down N lines and show the buffer on the menu."
+  (interactive "p")
+  (forward-line n)
+  (prog1
+      (w3m-select-buffer-show-this-line)
+    (w3m-static-when (featurep 'xemacs)
+      (save-window-excursion
+	;; Update gutter tabs.
+	(select-window w3m-select-buffer-window)))))
+
+(defun w3m-select-buffer-previous-line (&optional n)
+  "Move cursor vertically up N lines and show the buffer on the menu."
+  (interactive "p")
+  (w3m-select-buffer-next-line (- n)))
+
+(defun w3m-select-buffer-copy-buffer ()
+  "Create a copy of the buffer on the current menu line, and show it."
+  (interactive)
+  (w3m-select-buffer-show-this-line)
+  (let ((window (selected-window)))
+    (select-window (get-buffer-window (w3m-select-buffer-current-buffer)))
+    ;; The selection buffer will be updated automatically because
+    ;; `w3m-copy-buffer' calls `w3m-select-buffer-update' by way of
+    ;; `w3m-goto-url'.
+    (w3m-copy-buffer)
+    (select-window window)))
+
+(defun w3m-select-buffer-delete-buffer (&optional force)
+  "Delete the buffer on the current menu line.
+If there is the sole emacs-w3m buffer, it is assumed to be called for
+terminating the emacs-w3m session; the prefix argument FORCE will be
+passed to the `w3m-quit' function (which see)."
+  (interactive "P")
+  (w3m-select-buffer-show-this-line)
+  (if (= 1 (count-lines (point-min) (point-max)))
+      (w3m-quit force)
+    (let ((buffer (w3m-select-buffer-current-buffer)))
+      (forward-line -1)
+      (w3m-process-stop buffer)
+      (w3m-idle-images-show-unqueue buffer)
+      (kill-buffer buffer)
+      (when w3m-use-form
+	(w3m-form-kill-buffer buffer))
+      (run-hooks 'w3m-delete-buffer-hook)
+      (w3m-select-buffer-generate-contents (w3m-select-buffer-current-buffer))
+      (w3m-select-buffer-show-this-line))))
+
+(defun w3m-select-buffer-delete-other-buffers ()
+  "Delete emacs-w3m buffers except for the buffer on the current menu."
+  (interactive)
+  (w3m-select-buffer-show-this-line)
+  (w3m-delete-other-buffers (w3m-select-buffer-current-buffer)))
+
+(defun w3m-select-buffer-quit ()
+  "Quit the buffers selection."
+  (interactive)
+  (if (one-window-p t)
+      (set-window-buffer (selected-window)
+			 (or (w3m-select-buffer-current-buffer)
+			     (w3m-alive-p)))
+    (let ((buf (or (w3m-select-buffer-current-buffer)
+		   (w3m-alive-p)))
+	  pop-up-frames)
+      (pop-to-buffer buf)
+      (and (get-buffer-window w3m-select-buffer-name)
+	   (delete-windows-on w3m-select-buffer-name)))))
+
+(defun w3m-select-buffer-show-this-line-and-switch ()
+  "Show the buffer on the menu and switch to the buffer."
+  (interactive)
+  (pop-to-buffer (w3m-select-buffer-show-this-line))
+  (message nil))
+
+(defun w3m-select-buffer-show-this-line-and-quit ()
+  "Show the buffer on the menu and quit the buffers selection."
+  (interactive)
+  (w3m-select-buffer-show-this-line-and-switch)
+  (and (get-buffer-window w3m-select-buffer-name)
+       (delete-windows-on w3m-select-buffer-name)))
+
+(defun w3m-select-buffer-close-window ()
+  "Close the window which displays the buffers selection."
+  (let ((window (get-buffer-window w3m-select-buffer-name)))
+    (when window
+      (if (one-window-p t)
+	  (set-window-buffer window (other-buffer))
+	(delete-window window)))))
+
+(defun w3m-select-buffer-toggle-style()
+  "Toggle the style of the selection between horizontal and vertical."
+  (interactive)
+  (w3m-select-buffer t))
+
+(defun w3m-select-buffer-window-size ()
+  (if w3m-select-buffer-horizontal-window
+      (- (window-width)
+	 (/ (* (frame-width) (car w3m-select-buffer-window-ratio)) 100))
+    (- (window-height)
+       (/ (* (frame-height) (cdr w3m-select-buffer-window-ratio)) 100))))
+
+
+;;; Header line
+(defcustom w3m-use-header-line t
+  "*Non-nil means display the header line."
+  :group 'w3m
+  :type 'boolean)
+
+(defcustom w3m-use-header-line-title nil
+  "Non-nil means display the current title at the header line.
+This variable is effective only when `w3m-use-tab' is nil."
+  :group 'w3m
+  :type 'boolean)
+
+(defface w3m-header-line-location-title
+  '((((class color) (background light))
+     (:foreground "Blue" :background "Gray90"))
+    (((class color) (background dark))
+     (:foreground "Cyan" :background "Gray20")))
+  "Face used to highlight title when displaying location in the header line."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-header-line-location-title-face
+     'face-alias 'w3m-header-line-location-title)
+
+(defface w3m-header-line-location-content
+  '((((class color) (background light))
+     (:foreground "DarkGoldenrod" :background "Gray90"))
+    (((class color) (background dark))
+     (:foreground "LightGoldenrod" :background "Gray20")))
+  "Face used to highlight url when displaying location in the header line."
+  :group 'w3m-face)
+;; backward-compatibility alias
+(put 'w3m-header-line-location-content-face
+     'face-alias 'w3m-header-line-location-content)
+
+(defvar w3m-header-line-map nil)
+(unless w3m-header-line-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map w3m-mode-map)
+    (define-key map [mouse-2] 'w3m-goto-url)
+    ;; Prevent tool-bar from being doubled under GNU Emacs.
+    (define-key map [tool-bar] 'undefined)
+    (setq w3m-header-line-map map)))
+
+(defun w3m-header-line-insert ()
+  "Put the header line into the current buffer."
+  (when (and (or (featurep 'xemacs)
+		 (w3m-use-tab-p))
+	     w3m-use-header-line
+	     w3m-current-url
+	     (eq 'w3m-mode major-mode))
+    (goto-char (point-min))
+    (let ((ct (w3m-arrived-content-type w3m-current-url))
+	  (charset (w3m-arrived-content-charset w3m-current-url)))
+      (insert (format "Location%s: " (cond ((and ct charset) " [TC]")
+					   (ct " [T]")
+					   (charset " [C]")
+					   (t "")))))
+    (w3m-add-face-property (point-min) (point) 'w3m-header-line-location-title)
+    (let ((start (point)))
+      (insert (w3m-puny-decode-url
+	       (if (string-match "[^\000-\177]" w3m-current-url)
+		   w3m-current-url
+		 (w3m-url-decode-string w3m-current-url w3m-current-coding-system))))
+      (w3m-add-face-property start (point) 'w3m-header-line-location-content)
+      (w3m-add-text-properties start (point)
+			       `(mouse-face highlight
+				 keymap ,w3m-header-line-map
+				 ,@(if (featurep 'xemacs)
+				       '(help-echo
+					 "button2 prompts to input URL"
+					 balloon-help
+					 "button2 prompts to input URL")
+				     '(help-echo
+				       "mouse-2 prompts to input URL"))))
+      (setq start (point))
+      (insert-char ?\  (max
+			0
+			(- (if (and w3m-select-buffer-horizontal-window
+				    (get-buffer-window w3m-select-buffer-name))
+			       (frame-width)
+			     (window-width))
+			   (current-column) 1)))
+      (w3m-add-face-property start (point) 'w3m-header-line-location-content)
+      (unless (eolp)
+	(insert "\n")))))
+
+;;; w3m-minor-mode
+(defcustom w3m-goto-article-function nil
+  "Function used to visit an article pointed to by a given URL
+in `w3m-minor-mode' buffer.  Normally, this option is used only
+when you follow a link in an html article.  A function set to
+this variable must take one argument URL, and should display the
+specified page.  It may return the symbol `w3m-goto-url' when it
+fails displaying the page.  In this case, either `w3m-goto-url'
+or `w3m-goto-url-new-session' is employed to display the page."
+  :group 'w3m
+  :type '(radio (const :tag "Use emacs-w3m" nil)
+		(function :value browse-url)))
+
+(defun w3m-safe-view-this-url (&optional force)
+  "View the URL of the link under point.
+This command is quite similar to `w3m-view-this-url' except for the
+four differences: [1]don't handle forms, [2]don't consider URL-like
+string under the cursor, [3]compare URL with `w3m-safe-url-regexp'
+first to check whether it is safe, and [4]the arguments list differs;
+the optional FORCE, if it is non-nil, specifies URL is safe.  You
+should use this command rather than `w3m-view-this-url' when viewing
+doubtful pages that might contain vicious forms.
+
+This command makes a new emacs-w3m buffer if `w3m-make-new-session' is
+non-nil and a user invokes this command in a buffer not being running
+the `w3m-mode', otherwise use an existing emacs-w3m buffer."
+  (interactive "P")
+  (let ((w3m-pop-up-windows nil)
+	(url (w3m-url-valid (w3m-anchor)))
+	safe-regexp)
+    (cond
+     (url
+      (setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp))
+      (if (or (not safe-regexp)
+	      (w3m-buffer-local-url-p url)
+	      (string-match safe-regexp url)
+	      force)
+	  (unless (and (functionp w3m-goto-article-function)
+		       (not (eq 'w3m-goto-url
+				(funcall w3m-goto-article-function url))))
+	    (if (and w3m-make-new-session
+		     (not (eq major-mode 'w3m-mode)))
+		(w3m-goto-url-new-session url)
+	      (w3m-goto-url url)))
+	(when (interactive-p)
+	  (w3m-message "\
+This link is considered to be unsafe; use the prefix arg to view anyway"))))
+     ((w3m-url-valid (w3m-image))
+      (if (w3m-display-graphic-p)
+	  (if (interactive-p)
+	      (call-interactively 'w3m-toggle-inline-image)
+	    (w3m-toggle-inline-image force))
+	(w3m-view-image)))
+     (t (w3m-message "No URL at point")))))
+
+(defun w3m-mouse-safe-view-this-url (event)
+  "Perform the command `w3m-safe-view-this-url' by the mouse event."
+  ;; Note: a command invoked by [mouse-N] cannot accept the prefix
+  ;; argument since [down-mouse-N] eats it.
+  (interactive "e")
+  (mouse-set-point event)
+  (let ((url (w3m-url-valid (or (w3m-anchor) (w3m-image)))))
+    (if url
+	(let ((safe-regexp (get-text-property (point) 'w3m-safe-url-regexp))
+	      (use-dialog-box t))
+	  (when (or (not safe-regexp)
+		    (w3m-buffer-local-url-p url)
+		    (string-match safe-regexp url)
+		    (y-or-n-p "\
+This link is considered to be unsafe; continue? "))
+	    (w3m-safe-view-this-url t)))
+      (w3m-message "No URL at point"))))
+
+(defconst w3m-minor-mode-command-alist
+  '((w3m-next-anchor)
+    (w3m-previous-anchor)
+    (w3m-next-image)
+    (w3m-previous-image)
+    (w3m-toggle-inline-image)
+    (w3m-toggle-inline-images)
+    (w3m-view-this-url . w3m-safe-view-this-url)
+    (w3m-mouse-view-this-url . w3m-mouse-safe-view-this-url)
+    (w3m-print-this-url))
+  "Alist of commands and commands to be defined in `w3m-minor-mode-map'.
+Each element looks like (FROM-COMMAND . TO-COMMAND); those keys which
+are defined as FROM-COMMAND in `w3m-mode-map' are redefined as
+TO-COMMAND in `w3m-minor-mode-map'.  When TO-COMMAND is nil,
+FROM-COMMAND is defined in `w3m-minor-mode-map' with the same key in
+`w3m-mode-map'.")
+
+(defun w3m-make-minor-mode-keymap ()
+  "Return a keymap used for `w3m-minor-mode'."
+  (let ((keymap (make-sparse-keymap)))
+    (dolist (pair w3m-minor-mode-command-alist)
+      (substitute-key-definition (car pair)
+				 (or (cdr pair) (car pair))
+				 keymap w3m-mode-map))
+    (unless (featurep 'xemacs)
+      ;; Inhibit the `widget-button-click' command when
+      ;; `w3m-imitate-widget-button' is activated.
+      (define-key keymap [down-mouse-2] 'undefined))
+    keymap))
+
+(defvar w3m-minor-mode-map (w3m-make-minor-mode-keymap)
+  "*Keymap used when `w3m-minor-mode' is active.")
+
+(defcustom w3m-minor-mode-hook nil
+  "*Hook run after `w3m-minor-mode' initialization."
+  :group 'w3m
+  :type 'hook)
+
+(defvar w3m-minor-mode nil "Non-nil if w3m minor mode is enabled.")
+(make-variable-buffer-local 'w3m-minor-mode)
+(unless (assq 'w3m-minor-mode minor-mode-alist)
+  (push (list 'w3m-minor-mode " w3m") minor-mode-alist))
+(unless (assq 'w3m-minor-mode minor-mode-map-alist)
+  (push (cons 'w3m-minor-mode w3m-minor-mode-map) minor-mode-map-alist))
+
+(defun w3m-minor-mode (&optional arg)
+  "Minor mode to view text/html parts in articles."
+  (interactive "P")
+  (when (setq w3m-minor-mode
+	      (if arg
+		  (> (prefix-numeric-value arg) 0)
+		(not w3m-minor-mode)))
+    (run-hooks 'w3m-minor-mode-hook)))
+
+(defcustom w3m-do-cleanup-temp-files nil
+  "*Whether to clean up temporary files when emacs-w3m shutdown."
+  :group 'w3m
+  :type 'boolean)
+  
+(defun w3m-cleanup-temp-files ()
+  (when w3m-do-cleanup-temp-files
+    (dolist (f (directory-files w3m-profile-directory))
+      (when (string-match "^w3m\\(el\\|src\\)" f)
+	(delete-file (expand-file-name f w3m-profile-directory))))))
+
+(provide 'w3m)
+
+(unless noninteractive
+  (if (string-match "\\.el\\'" w3m-init-file)
+      (or (load (concat w3m-init-file "c") t t t)
+	  (load w3m-init-file t t t))
+    (load w3m-init-file t t))
+  (run-hooks 'w3m-load-hook))
+
+;;; w3m.el ends here

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/share/info/emacs-w3m-ja.info	Mon Sep 13 10:14:52 2010 +0000
@@ -0,0 +1,7024 @@
+Info file: emacs-w3m-ja.info,    -*-Text-*-
+produced by `texinfo-format-buffer'
+from file `emacs-w3m-ja.texi'
+using `texinfmt.el' version 2.42 of  7 Jul 2006.
+
+
+
+INFO-DIR-SECTION GNU Emacs Lisp
+START-INFO-DIR-ENTRY
+* Emacs-w3m-ja: (emacs-w3m-ja).  An Emacs interface to w3m (Japanese)
+END-INFO-DIR-ENTRY
+
+
+This file documents emacs-w3m, an Emacs interface to w3m.
+
+$B$3$N%U%!%$%k$O(B Emacs $B$GF0$/(B w3m $B$N%$%s%?%U%'!<%9$G$"$k(B emacs-w3m $B$K4X$9(B
+$B$k@bL@=q$G$9!#(B
+
+This edition is for emacs-w3m version 1.4.413.
+
+$B$3$NHG$O(B emacs-w3m $B%P!<%8%g%s(B 1.4.413 $B$KBP1~$7$^$9!#(B
+
+
+
+
+
+File: emacs-w3m-ja.info, Node: Top, Next: Introduction, Prev: (dir), Up: (dir)
+
+Emacs-w3m $A%f$B!<$A%6%^%K%e%"%k(B
+**************************
+
+                                                  Emacs-w3m $B3+H/%A!<%`(B
+
+$B$3$NJ8=q$O(B emacs-w3m $B%P!<%8%g%s(B 1.4.413 $B$KBP1~$7$^$9!#(B
+
+
+
+Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+2008, 2009 TSUCHIYA Masatoshi
+
+     Permission is granted to copy, distribute and/or modify this
+     document under the terms of the GNU General Public License,
+     Version 2 or any later version published by the Free Software
+     Foundation.
+
+     $A$3$NND$(GUs$A$r!"%U%j$B!<$A%=%U%H%&%'%"$(GXB$(I#>$A$K$h$C$F$BH/$APP$5$l$?(B GNU $AR;0c9+$(I>j(B
+     $A@{SC$(G]Br?$AFu$(GR|Us$A5Z(B 2 $A0f$^$?$O$=$lRT=5$N0f$N$&$A$I$l$+$N6($a$kLu<~$N(B
+     $AOB$G$(Gnoj{$A!"Ed2<!"$"$k$$$O$(I+y$A8|$9$k$3$H$r$(G]B$A?I$7$^$9!#(B
+
+     This document 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.
+
+     $A$3$NND$(GUs$A$OSPSC$G$"$k$3$H$r$(GyL$A$C$F$(Ggc$A2<$5$l$^$9$,!"(B*$AH+$/$N$(G`R$A1#$(Gb%(B* $A$G(B
+     $A$9!#(B*$AIL$(GdF$A?ID\PT(B* $A$N1#$(Gb%$A$d(B *$ALX6($ND?5D$X$N$(GoK$A:OPT(B* $A$O!"QTMb$KJ>$5$l(B
+     $A$?$b$N$b:,$aH+$/4fTZ$7$^$;$s!#$(Gf[$A$7$/$O(B GNU $AR;0c9+$(I>j$A@{SC$(G]Br?$AFu$(GR|Us(B
+     $A$r$4$(IRf$A$/$@$5$$!#(B
+
+     You should have received a copy of the GNU General Public License
+     along with this document; see the file COPYING.  If not, write to
+     the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+     Floor, Boston, MA 02110-1301, USA.
+
+     $A$"$J$?$O$3$NND$(GUs$A$H92$K!"(BGNU $AR;0c9+$(I>j$A@{SC$(G]Br?$AFu$(GR|Us$A$N$(Gnoj{$ANo$rR;2?J\(B
+     $A$1H!$C$?$O$:$G$9!#(BCOPYING $A%U%!%$%k$r2NUU$7$F$/$@$5$$!#$b$7J\$1H!$C(B
+     $A$F$$$J$1$l$P!"%U%j$B!<$A%=%U%H%&%'%"$(GXB$(I#>$A$^$G$(Gny$AGs$7$F$/$@$5$$(B ($AMpOH$O(B
+     the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+     Boston, MA 02111-1307 USA)$A!#(B
+
+
+
+* Menu:
+
+* Introduction::                $B$O$8$a$K(B
+* Getting Started::             Emacs-w3m $B$r;H$$;O$a$k$N$O$H$C$F$b4JC1(B
+* Basic Usage::                 $B4pK\E*$J;H$$J}(B
+* Pretty Good Features::        $B$?$/$5$s$N$9$0$l$b$N(B
+* Customizable Variables::      $B%G%U%)%k%H$N$^$^$G$b7k9=NI$$$H;W$&$1$l$I(B
+* Hooking into MUAs::           $B%a!<%k(B/$B%K%e!<%9%j!<%@!<$G;H$&(B
+* Frequently Asked Questions::  $BI,$:Ez$,$"$k$H$O8B$i$J$$(B
+* Known Problems::              $B$"$J$?$J$i$-$C$H2r7h$G$-$k(B
+* Shimbun Library::             $B%&%'%V>e$N?7J9$rFI$`$?$a$NF;6q(B
+* Tips::                        Emacs-w3m $B$r;H$&^/Mn$?>.J*$?$A(B
+* Mailing List::                $B%a!<%j%s%0%j%9%H!"%P%0%j%]!<%H(B
+* Emacs-w3m Functions::         Emacs-w3m $B$N4X?t$N>\$7$$@bL@(B
+* External Packages::           $B$*Cg4V$N%Q%C%1!<%8$?$A(B
+* Authors::                     $B$3$N%^%K%e%"%k$r=q$$$??M$?$A(B
+* Index::                       $B:w0z(B
+
+ -- $B9`L\$N>\:Y$J%j%9%H(B ---
+
+Getting Started
+
+* Required Emacs Version::      $B$I$s$J%P!<%8%g%s$N(B Emacs $B$G;H$($k$N(B?
+* You Need w3m::                w3m $B$r;H$$$^$9(B: emacs-w3m $B$,B.$$$o$1(B
+* Other Requirements::          Emacs-w3m $B$rF0:n$5$;$k$N$KI,MW$J$b$N(B
+* Installing Emacs-w3m::        Emacs-w3m $B$r%$%s%9%H!<%k$9$k(B
+* Non-UNIX-like systems::       $BHs(B UNIX $B7O4D6-$G$N%$%s%9%H!<%k(B
+* Minimal Settings::            $B@_Dj$7$J$1$l$P$J$i$J$$:GDc8B$N$b$N(B
+
+Basic Usage
+
+* Browsing Web Pages::          $B%M%C%H%5!<%U%#%s$7$h$&(B!
+* Inline Images::               $B2hA|I=<($r(B ON/OFF $B$9$k(B
+* Tracing History::             $B;~6u$rAL$k(B
+* Managing Bookmarks::          $B$\$/$N(B/$B$o$?$7$N$*5$$KF~$j(B
+* Using Tabs::                  $B$_$s$J%?%V$,9%$-$@$h$M(B
+* Working with buffers::        $B%P%C%U%!$r:n$k(B/$B>C$9(B/$B0\F0$9$k(B
+* Downloading::                 $B%U%!%$%k$r%@%&%s%m!<%I$9$k(B
+* Submitting Forms::            HTML $B%U%)!<%`$K5-F~$9$k(B
+* HTML File Information::       $B%&%'%V%Z!<%8:n$j$H%O%C%/$N$*<jEA$$(B
+
+Pretty Good Features
+
+* Using Search Engines::        $B;H$$$d$9$$%&%'%V8!:w(B
+* Grouping URLs::               $B0l$D$N(B URL $B$GJ#?t$N%&%'%V%Z!<%8$r8+$k(B
+* Weather Information::         $BL@F|$NE75$$O@2$l$G$7$g$&(B
+* Using Antenna::               $B%"%s%F%J$rD%$j=d$i$=$&(B
+* Showing Directory Tree::      $B%G%#%l%/%H%j$NLZ9=B$$rI=<($9$k(B
+* Viewing Perl Documents::      Perl $B$N%I%-%e%a%s%H$r8+$k(B
+* Using Namazu::                Namazu $B$G%U%!%$%k$r8!:w$9$k(B
+* Octet::                       application/octet-stream $B%G!<%?$r8+$k(B
+* Frame Local Buffers::         $BB??t$N%;%C%7%g%s$r%U%l!<%`$G%0%k!<%WJ,$1$9$k(B
+* Session Manager::             $B%;%C%7%g%s$NJ]B8$HFI$_$3$_(B
+
+Customizable Variables
+
+* General Variables::           $B0lHLE*$JJQ?t(B
+* Image Variables::             $B2hA|$K4XO"$7$?JQ?t(B
+* Form Variables::              $B%U%)!<%`$K4XO"$7$?JQ?t(B
+* Cookie Variables::            $B%/%C%-!<$K4XO"$7$?JQ?t(B
+* Bookmark Variables::          $B%V%C%/%^!<%/$K4XO"$7$?JQ?t(B
+* Search Variables::            $B%&%'%V8!:w$K4XO"$7$?JQ?t(B
+* Weather Variables::           $BE75$M=Js$K4XO"$7$?JQ?t(B
+* Dtree Variables::             dtree $B$K4XO"$7$?JQ?t(B
+* Antenna Variables::           $B%"%s%F%J$K4XO"$7$?JQ?t(B
+* Perldoc Variables::           Perldoc $B$K4XO"$7$?JQ?t(B
+* Namazu Variables::            Namazu $B$K4XO"$7$?JQ?t(B
+* Octet Variables::             Octet $B$K4XO"$7$?JQ?t(B
+* Session Manager Variables::   $B%;%C%7%g%s%^%M!<%8%c$K4XO"$7$?JQ?t(B
+* Hooks::                       $B%U%C%/(B
+* Other Variables::             $B$=$NB>$NJQ?t(B
+
+Hooking into MUAs
+
+* Gnus::                        Gnus $B$G(B HTML $B%a!<%k$rFI$`(B
+* Mew::                         Mew $B$G(B HTML $B%a!<%k$rFI$`(B
+* SEMI MUAs::                   SEMI MUA $B$G(B HTML $B%a!<%k$rFI$`(B
+* VM::                          VM (vieW maiL) $B$O(B Wanderlust $B$K$"$i$:(B
+
+Frequently Asked Questions
+
+* General FAQ::                 $B0lHLE*$J<ALd(B
+* Trouble FAQ::                 $B%H%i%V%k(B
+* Shimbun FAQ::                 Shimbun $B$K4X$9$k<ALd(B
+
+Known Problems
+
+Shimbun Library
+
+* Nnshimbun::                   Gnus $B$r%&%'%V%V%i%&%6$K$9$k(B!
+* Mew Shimbun::                 Mew $B$G?7J9$rFI$`(B
+* Shimbun with Wanderlust::     Wanderlust $B$G?7J9$rFI$`(B
+* Shimbun local mode::          $B?7J9$N<hF@$K%7%'%k%9%/%j%W%H$r;H$&(B
+* Shimbun Sites::               $B?7J9$,FI$a$k%5%$%H(B
+* Shimbun Basics::              $B?7J9%b%8%e!<%k$N:n$jJ}(B
+
+Tips
+
+Mailing List
+
+Emacs-w3m Functions
+
+
+
+
+File: emacs-w3m-ja.info, Node: Introduction, Next: Getting Started, Prev: Top, Up: Top
+
+$A$O$8$a$K(B
+********
+
+Emacs/W3 (http://www.cs.indiana.edu/elisp/w3/docs.html) $B$O!"$+$D$F$O(B
+Emacs $B>e$GF0:n$9$k:G$b%]%T%e%i!<$J(B web $B%V%i%&%6!<$G$7$?!#$7$+$7F0:n$,Hs(B
+$B>o$KCY$+$C$?$N$G!";d$?$A$O$=$l$KBe$o$kB.$$$b$N$rM_$7$^$7$?!#0lJ}!"(Bw3m
+(http://w3m.sourceforge.net/) $B$H$$$&%Z!<%8%c!<$,$"$j$^$7$?!#$=$l$O%Z!<(B
+$B%8%c!<$G$7$?$,!"%F%-%9%H%b!<%I(B WWW $B%V%i%&%6!<$H$7$F;H$&$3$H$,$G$-$?$N$G!"(B
+$B;d$?$A$O(B w3m $B$X$N(B Emacs $B%$%s%?!<%U%'!<%9$N3+H/$r;O$a$^$7$?!#(B
+
+$B$9$P$i$7$$(B w3m $B%W%m%0%i%`$r3+H/$7$F$/$l$?0KF#>4B'$5$s$H(B w3m $B%A!<%`$N$_(B
+$B$J$5$s$K!"3JCJ$N46<U$rJ{$2$^$9!#$5$i$K%3%a%s%H!"Ds0F$*$h$S%P%0$N=$@5$r(B
+$B$7$F$/$l$?$9$Y$F$N?M!9$K46<U$7$^$9!#$?$H$(LdBj$,$"$C$F$b!"@UG$$O$9$Y$F(B
+$B;d$?$A(B (emacs-w3m $B3+H/%A!<%`(B) $B$K$"$j$^$9!#$b$C$H$b!"J]>Z$O$^$C$?$/$"$j(B
+$B$^$;$s$,!#(BEmacs-w3m $B$O(B 2000$BG/(B6$B7n$KEZ202mL-$K$h$C$FAO;O$5$l$^$7$?!#(B
+
+Emacs-w3m $A$N9+J=%Z$B!<$A%8(B (http://emacs-w3m.namazu.org/) $B$bJ;$;$F$4Mw$/$@(B
+$B$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Getting Started, Next: Basic Usage, Prev: Introduction, Up: Top
+
+Emacs-w3m $A$rJ9$$J<$a$k$N$O$H$C$F$b$(Gv|$(I+J(B
+**************************************
+
+$B$R$g$C$H$9$k$H!"$"$J$?$N%7%9%F%`$K$O(B emacs-w3m $B$,$9$G$K%$%s%9%H!<%k$5$l(B
+$B$F$$$k$+$b$7$l$^$;$s!#$=$N>l9g!"$"$J$?$O$3$N9`$rFI$_Ht$P$7$F!"D>$A$K;H(B
+$B$$;O$a$k$3$H$,$G$-$^$9!#$=$s$J9,1?$K7C$^$l$J$+$C$?$J$i$P!"(Bemacs-w3m $B$N(B
+$B%$%s%9%H!<%k$N;EJ}$r2qF@$9$k$?$a$K!"FI$_B3$1$F$/$@$5$$!#(B
+
+* Menu:
+
+* Required Emacs Version::      $B$I$s$J%P!<%8%g%s$N(B Emacs $B$G;H$($k$N(B?
+* You Need w3m::                w3m $B$r;H$$$^$9(B: emacs-w3m $B$,B.$$$o$1(B
+* Other Requirements::          Emacs-w3m $B$rF0:n$5$;$k$N$KI,MW$J$b$N(B
+* Installing Emacs-w3m::        Emacs-w3m $B$r%$%s%9%H!<%k$9$k(B
+* Non-UNIX-like systems::       $BHs(B UNIX $B7O4D6-$G$N%$%s%9%H!<%k(B
+* Minimal Settings::            $B@_Dj$7$J$1$l$P$J$i$J$$:GDc8B$N$b$N(B
+
+
+
+File: emacs-w3m-ja.info, Node: Required Emacs Version, Next: You Need w3m, Prev: Getting Started, Up: Getting Started
+
+$A$I$s$J%P$B!<$A%8%g%s$N(B Emacs $A$GJ9$($k$N(B?
+====================================
+
+$B0J2<$K5s$2$?$$$m$$$m$J%P!<%8%g%s$N(B Emacsen $B$G(B emacs-w3m $B$rF0:n$5$;$k$3(B
+$B$H$,$G$-$^$9!#(B
+
+`Emacs 21.1 $ARTIO(B'
+     $BDI2C$N%Q%C%1!<%8$OITMW$G$9!#(B
+
+`XEmacs 21.x'
+     $BBh0l$K!"(Bemacs-w3m $B$O(B XEmacs 21.4.17 $B0J>e!"$*$h$S(B XEmacs 21.5-b19
+     $B0J>e$@$1$r%5%]!<%H$9$k$3$H$KCm0U$7$F$/$@$5$$!#2C$($F!"(B
+     `timer-funcs.el' $B$r4^$`:G?7$N(B xemacs-base $B%Q%C%1!<%8$r%$%s%9%H!<%k(B
+     $B$7$F$*$/I,MW$,$"$j$^$9!#(B
+
+     APEL $B%Q%C%1!<%8$H(B `gifsicle' $B%W%m%0%i%`$,I,MW$G$9!#$5$i$K!"(B
+     `mailto' url $B$r2r@O$9$k$?$a$N(B `rfc2368.el' $B%b%8%e!<%k$r%$%s%9%H!<(B
+     $B%k$7$F$*$$$?J}$,NI$$$G$7$g$&(B (*Note Other Requirements::)$B!#(B
+
+`Emacs 20.x, Emacs 19.34 ($A:,(B Mule 2.3)'
+     $B$3$l$i$N(B Emacs $B$r(B emacs-w3m $B$O%5%]!<%H$7$^$;$s!#(B
+
+GNU Emacs $B$N3+H/HG$r;H$C$F$$$k$N$G$"$l$P!"$*$=$i$/(B CVS $BHG$N(B emacs-w3m
+$B$r;H$o$J$1$l$P$J$i$J$$$G$7$g$&!#$=$N>l9g$K$O!"%a!<%j%s%0%j%9%H$K;22C$9(B
+$B$k$3$H$r6/$/4+$a$^$9(B (*Note Mailing List::)$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: You Need w3m, Next: Other Requirements, Prev: Required Emacs Version, Up: Getting Started
+
+w3m $A$rJ9$$$^$9(B: emacs-w3m $A$,KY$$$o$1(B
+====================================
+
+Emacs-w3m $B$O30It%3%^%s%I(B w3m $B$r!"%&%'%V%3%s%F%s%D$r<hF@$9$k$?$a$N%P%C%/(B
+$B%(%s%I$H$7$F!"$^$?$O(B HTML $B$NIA2h%(%s%8%s$H$7$F;HMQ$7$^$9!#HsF14|F0:n$K(B
+$B$h$C$F9bB.$J(B Emacs $B%&%'%V%V%i%&%6$r<B8=$9$k$3$H$,$G$-$?$N$O(B w3m $B$N$*$+(B
+$B$2$G$9!#(B
+
+$B$"$J$?$O:G?7$N(B w3m $B$r%$%s%9%H!<%k$7$J$1$l$P$J$j$^$;$s!#$=$l$O0J2<$N>l=j(B
+$B$G<hF@$G$-$^$9(B:
+
+`http://prdownloads.sourceforge.net/w3m/'
+
+
+
+File: emacs-w3m-ja.info, Node: Other Requirements, Next: Installing Emacs-w3m, Prev: You Need w3m, Up: Getting Started
+
+Emacs-w3m $A$r$(GY/$AWw$5$;$k$N$K1XR*$J$b$N(B
+====================================
+
+$B;HMQ$7$F$$$k(B Emacs $B$N%P!<%8%g%s$K$h$C$F$O!"%5!<%I%Q!<%F%#$N%Q%C%1!<%8$,(B
+$BI,MW$K$J$k$3$H$,$"$j$^$9!#$3$N9`$G$O!"$=$l$i$r8+$D$1$F%$%s%9%H!<%k$9$k(B
+$B$?$a$N;qNA$rDs6!$7$^$9!#(B
+
+`APEL'
+     XEmacs $B$KIT2D7g$G$9!#(BEmacs-w3m $B$r9=C[$9$kA0$K(B APEL $B$r%$%s%9%H!<%k(B
+     $B$7$J$1$l$P$J$j$^$;$s!#(BAPEL $B$O0J2<$N>l=j$K$"$j$^$9(B:
+
+     `http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/apel/'
+
+     APEL XEmacs $B%Q%C%1!<%8(B (SUMO $B$K4^$^$l$F$$$^$9(B) $B$N%P!<%8%g%s(B 1.32
+     $B$h$j8E$$$b$N$O;H$($J$$$3$H$KCm0U$7$F$/$@$5$$!#$b$7$9$G$K$=$N$h$&$J(B
+     $BHG$N%Q%C%1!<%8$,%$%s%9%H!<%k$5$l$F$$$k$J$i$P!"$=$l$r99?7$9$k$+!"$^(B
+     $B$?$O>e5-$N%j%s%/$G<($7$?(B APEL $B$GCV$-49$($k$?$a$K!"0J2<$NL?Na$r;H$C(B
+     $B$F$/$@$5$$(B ($B?75,$K(B APEL $B$r%$%s%9%H!<%k$9$k>l9g$bF1$8L?Na$r;H$&$3$H(B
+     $B$,$G$-$^$9(B):
+
+          % rm -fr /usr/local/lib/xemacs/xemacs-packages/lisp/apel
+          % cd apel-10.7
+          % make install-package XEMACS=xemacs-21.4.x\
+            PACKAGEDIR=/usr/local/lib/xemacs/xemacs-packages
+
+`gifsicle'
+     XEmacs $B$KIT2D7g$G$9!#$9$Y$F$N(B XEmacs 21.x $B$K$O!"%*%W%F%#%^%$%:$5$l(B
+     $B$?%"%K%a!<%7%g%s(B gif $B$,@5>o$KI=<($5$l$J$+$C$?$j!"$"$k<o$N%$%s%?!<(B
+     $B%l!<%9(B gif $B$rI=<($7$h$&$H$9$k$H%/%i%C%7%e$7$F$7$^$&4{CN$N%P%0$,$"(B
+     $B$j$^$9!#(BEmacs-w3m $B$O(B gif $B%G!<%?$r(B XEmacs 21.x $B$G07$($k7A<0$KJQ49$9(B
+     $B$k$?$a$K!"(B`gifsicle' $B%W%m%0%i%`$r;H$$$^$9!#$3$l$O<!$N>l=j$+$iF~<j(B
+     $B$9$k$3$H$,$G$-$^$9(B:
+
+     `http://www.lcdf.org/gifsicle/'
+
+`ImageMagick'
+     ImageMagick $B%Q%C%1!<%8$K4^$^$l$F$$$k(B `convert' $B%W%m%0%i%`$,$"$l$P!"(B
+     emacs-w3m $B$O2hA|%5%$%:$NJQ99$d(B `favicon' $B2hA|$r(B Emacs $B$,07$($k%U%)!<(B
+     $B%^%C%H$KJQ49$9$k$?$a$K$=$l$r;H$$$^$9!#(BEmacs-w3m $B$O(B ImageMagick $B$,(B
+     $BL5$/$F$bF0:n$9$k$G$7$g$&$,!"%$%s%9%H!<%k$9$k$3$H$K$h$C$F$"$J$?$N%M%C(B
+     $B%H%5!<%U%#%s$,K-$+$J$b$N$K$J$k$G$7$g$&!#(BImageMagick $B%Q%C%1!<%8$O!"(B
+     $B0J2<$N>l=j$+$i<j$KF~$l$k$3$H$,$G$-$^$9(B:
+
+     `ftp://ftp.imagemagick.org/pub/ImageMagick/'
+
+     `favicon' $B2hA|$rA`:n$9$k$?$a$K!"%P!<%8%g%s(B 5.4.0-5 $B0J9_$N$b$N$r;H(B
+     $B$&$3$H$r?d>)$7$^$9!#0JA0$N%P!<%8%g%s$bF0$/$+$b$7$l$^$;$s$,!"$=$l$i(B
+     $B$O40A4$K%A%'%C%/$5$l$F$$$^$;$s!#(B
+
+`FLIM'
+     `Shimbun' $B%i%$%V%i%j$r;H$&$?$a$K$O(B FLIM $B%Q%C%1!<%8$,I,MW$G$9!#(B
+     `Shimbun' $B%i%$%V%i%j$O%&%'%V>e$N?7J9$rFI$`$?$a$NF;6qN`$N%3%l%/%7%g(B
+     $B%s$G!"(BGnus$B!"(BMew $B$^$?$O(B Wanderlust $B$H$H$b$K;H$&$3$H$,$G$-$^$9!#(B
+     *Note Shimbun Library::.
+
+     $B;H$C$F$$$k(B Emacs $B$N%P!<%8%g%s$K$+$+$o$i$:!"(BFLIM $B%Q%C%1!<%8$K$O(B
+     APEL $B%Q%C%1!<%8$,I,MW$G$"$k$3$H$KCm0U$7$F$/$@$5$$!#$7$?$,$C$F(B
+     `shimbun' $B%i%$%V%i%j$r;H$&$K$O!"(BAPEL $B$H(B FLIM $B$NN>J}$r%$%s%9%H!<%k(B
+     $B$7$J$1$l$P$J$j$^$;$s!#(BFLIM $B%Q%C%1!<%8$O0J2<$N>l=j$K$"$j$^$9(B:
+
+     `http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/flim/flim-1.14/'
+
+`Mule-UCS'
+     XEmacs 21.4 $B$r;H$&$+!"$^$?$O(B Emacs 21 $B$r;H$C$FCf9q8l!"F|K\8l!"4Z9q(B
+     $B8l$J$I$N%F%-%9%H$rFI$`I,MW$,$"$k$J$i$P!"(Bemacs-w3m $B$,(B (Unicode $B%7%9(B
+     $B%F%`$NBeI=E*$J(B coding system $B$G$"$k(B) UTF-8 $B$G%(%s%3!<%I$5$l$?%Z!<(B
+     $B%8$rI=<($G$-$k$h$&$K$9$k$?$a$K!"(BMule-UCS Emacs Lisp $B%Q%C%1!<%8$r%$(B
+     $B%s%9%H!<%k$9$k$3$H$r4+$a$^$9!#(BEmacs 21 $B$,(B Unicode $B%7%9%F%`$rItJ,E*(B
+     $B$K(B ($BNc$($P%i%F%s!&%F%-%9%H$N$?$a$K(B) $B%5%]!<%H$7!"(BEmacs 22 $B0J>e$,$=(B
+     $B$l$r40A4$K%5%]!<%H$9$k$3$H$KCm0U$7$F$/$@$5$$!#(BMule-UCS Emacs Lisp
+     $B%Q%C%1!<%8$O0J2<$N>l=j$+$i<hF@$7$F$/$@$5$$(B:
+
+     `http://unit.aist.go.jp/itri/itri-gist/ftp.m17n.org/pub/mule/Mule-UCS/test/Mule-UCS-current.tar.gz'
+
+     (Mule-UCS $B$N8x<0%Z!<%8$O6a$$>-Mh(B `http://www.meadowy.org/' $B$G%*!<(B
+     $B%W%s$7$^$9!#(B)
+
+     Emacs-21.2 $B$GMxMQ$9$k>l9g$O!"(BMule-UCS $B$K(B $A$3$N%Q%C%A(B
+     (http://www.m17n.org/mlarchive/mule/200203/msg00000.html) $B$rE,MQ$7(B
+     $B$?$[$&$,$$$$$G$7$g$&!#(B
+
+     XEmacs 21.4 $B%f!<%68~$1$K$O!"$3$3$K%3%s%Q%$%k:Q$_$N%Q%C%1!<%8$,$"$j(B
+     $B$^$9(B:
+
+     `ftp://ftp.xemacs.org/xemacs/packages/mule-ucs-1.14-pkg.tar.gz'
+
+     (Mule SUMO $B$K4^$^$l$F$$$k$N$G!"2C$($F$5$i$K$3$l$r%$%s%9%H!<%k$9$k(B
+     $BI,MW$O$"$j$^$;$s!#(B)
+
+`codepage-ex'
+     $B%h!<%m%C%Q$N$$$/$D$+$N(B web $B%5%$%H$O!"(B`charset=ISO-8859-1' $B$r%F%-%9(B
+     $B%H$N%(%s%3!<%I$K;XDj$7$F$$$k$N$K$b$+$+$o$i$:!"<B:]$K$O(B
+     `windows-1252' $B$r;H$$$^$9!#$=$l$i$r%G%3!<%I$9$k$N$K(B `iso-8859-1'
+     $B$OIT==J,$J$N$G!"(Bemacs-w3m $B$OMxMQ2DG=$J$i(B `windows-1252' $B$r(B
+     `iso-8859-1' $B$N%9!<%Q!<%;%C%H$H$7$F;HMQ$7$^$9!#(BEmacs 22 $B$+$i(B
+     `windows-1252' coding system $B$OAH$_9~$^$l$F$$$^$9$,!"(B
+     `codepage-ex' $B$H$$$&%b%8%e!<%k$r;H$&$3$H$K$h$C$F!"(BEmacs 21 $B$G$b$=(B
+     $B$l$r;H$($k$h$&$K$9$k$3$H$,$G$-$^$9!#0J2<$N%Z!<%8$r;2>H$7$F$/$@$5$$!#(B
+
+     `http://nijino.homelinux.net/emacs/codepage-ex.html'
+
+`rfc2368.el'
+     XEmacs $B>e$GF0:n$5$;$k(B emacs-w3m $B$,!"E,@Z$K(B `mailto' url $B$r2r@O$G$-(B
+     $B$k$h$&$K$7$?$$>l9g$K%$%s%9%H!<%k$7$F$/$@$5$$!#(BXEmacs $B$G;H$&$3$H$,(B
+     $B$G$-$k(B `rfc2368.el' $B%b%8%e!<%k$O!"(Bemacs-w3m $B$NG[I[$N(B `attic' $B%G%#(B
+     $B%l%/%H%j$K$"$j$^$9!#%$%s%9%H!<%k$9$k$K$O(B `rfc2368.el' $B%U%!%$%k$r(B
+     `load-path' $B$,DL$C$F$$$k%G%#%l%/%H%j$K%3%T!<$7$F!"0J2<$N%3%^%s%I$r(B
+     $B<B9T$7$F$/$@$5$$(B:
+
+          % xemacs -batch -vanilla -f batch-byte-compile rfc2368.el
+
+
+
+File: emacs-w3m-ja.info, Node: Installing Emacs-w3m, Next: Non-UNIX-like systems, Prev: Other Requirements, Up: Getting Started
+
+Emacs-w3m $A$r%$%s%9%H$B!<$A%k$9$k(B
+============================
+
+Emacs-w3m $B$N<hF@$K4X$7$F$O8x<0%Z!<%8(B `http://emacs-w3m.namazu.org/' $B$r(B
+$B;2>H$7$F$/$@$5$$!#$9$Y$F=`Hw$G$-$^$7$?$+(B?  $B$G$O;O$a$^$7$g$&!#(B
+
+$BHs(B UNIX $B7O$N%7%9%F%`(B (`configure' $B$r<B9T$G$-$J$$$+(B `make' $B%3%^%s%I$,L5(B
+$B$$!"2?$i$+$N%7%9%F%`(B) $B$K(B emacs-w3m $B$r%$%s%9%H!<%k$9$k$K$O!"$3$N9`$rHt$P(B
+$B$7$F<!$N9`(B *Note Non-UNIX-like systems:: $B$K9T$C$F$/$@$5$$!#(B
+
+  1. $B:G=i$K!"G[I[$5$l$?(B emacs-w3m $B$N(B tarball $B$r0J2<$N$h$&$KE,Ev$J>l=j$G(B
+     $BE83+$7$F!"@hF,$N%G%#%l%/%H%j$KF~$C$F$/$@$5$$(B:
+
+          % tar zxf emacs-w3m-1.4.413.tar.gz
+          % cd emacs-w3m-1.4.413
+
+     Emacs-w3m $B$r(B CVS $B$G<hF@$7$?$N$J$i$P!"(B`configure' $B%9%/%j%W%H$r@8@.(B
+     $B$9$k$?$a$K(B ($B0z?tL5$7$G(B) `autoconf' $B$r<B9T$7$J$1$l$P$J$j$^$;$s!#(B
+
+  2. `configure' $B%9%/%j%W%H$r<B9T$7$^$9!#(B
+
+          % ./configure
+
+     *Gnus $A%f$B!<$A%6$X$NVXR*$J$*V*$i$;(B*:
+
+     $BJ#?t$N%P!<%8%g%s$N(B Gnus $B$,%$%s%9%H!<%k$5$l$F$$$k>l9g(B ($B%j%j!<%9HG$H(B
+     $B3+H/HG$N(B Gnus $B$,$"$k$+$b$7$l$^$;$s(B) $B$O!"(B`load-path' $B$K$"$J$?$,;H$&(B
+     $B%P!<%8%g%s$,%$%s%9%H!<%k$5$l$F$$$k%G%#%l%/%H%j(B (`gnus.elc' $B%U%!%$(B
+     $B%k$rD4$Y$^$7$g$&(B) $B$r4^$`$h$&$K$7$F$/$@$5$$!#0J2<$N$h$&$K(B
+     `--with-addpath' $B%*%W%7%g%s$r;H$&$3$H$K$h$C$F!"$3$l$r3N<B$K9T$J$&(B
+     $B$3$H$,$G$-$^$9(B:
+
+          % ./configure --with-addpath=/usr/local/share/emacs/site-lisp/gnus
+
+     APEL$B!"(BFLIM $B$^$?$OB>$N2?$+$r!"%G%U%)%k%H$N(B `load-path' $B0J30$NI8=`$G(B
+     $B$O$J$$%G%#%l%/%H%j$K%$%s%9%H!<%k$7$F$"$k>l9g$O!"0J2<$N$h$&$K(B
+     `--with-addpath' $B%*%W%7%g%s$r;H$C$F$=$l$i$r;XDj$7$J$1$l$P$J$j$^$;(B
+     $B$s(B ($B$5$i$K!"$=$l$K(B `:' $B$GJ,$1$i$l$?(B Gnus $B$N%G%#%l%/%H%j$r4^$a$F$b(B
+     $B9=$$$^$;$s(B):
+
+          % ./configure --with-addpath=/opt/share/apel:/opt/share/flim
+
+  3. $BC1$K(B `make' $B$H(B `make install' $B$r<B9T$7$^$9!#(BXEmacs $B$r;H$C$F$$$k>l(B
+     $B9g$O!"$5$i$K<!$NCJMn$b8+$F$/$@$5$$!#(B
+
+          % make
+          % make install
+
+     $B$9$Y$F$N(B Lisp $B%U%!%$%k$H(B info $B%U%!%$%k$,E,@Z$J%G%#%l%/%H%j$K%$%s%9(B
+     $B%H!<%k$5$l$k$G$7$g$&!#(B
+
+     $B$5$F!"$"$J$?$O$I$s$J%U%!%$%k$,$I$3$K9T$/$+J,$+$j$^$9$+(B?  $B$=$l$rA0(B
+     $B$b$C$FCN$k$?$a$K$O!"$3$l$r;H$C$F$/$@$5$$(B:
+
+          % make what-where
+
+     $B2hA|$rI=<($9$k$3$H$,$G$-$k(B Emacs $B$^$?$O(B XEmacs $B$r;H$C$F$$$k$J$i$P!"(B
+     $B%"%$%3%s2hA|$N%U%!%$%k$r%$%s%9%H!<%k$7$?J}$,NI$$$G$7$g$&!#$=$l$r9T(B
+     $B$J$&$K$O(B:
+
+          % make install-icons
+
+     $B$^$?$O(B
+
+          % make install-icons30
+
+     $B8e<T$O$A$g$C$HBg$-$J%"%$%3%s2hA|$r;H$&$?$a$N$b$N$G$9!#(B
+
+  4. $B0J2<$N$h$&$K(B `make install' $B$NBe$o$j$K(B `make install-package' $B$r;H(B
+     $B$&$3$H$K$h$C$F!"(Bemacs-w3m $B$r(B XEmacs $B%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9(B
+     $B$k$3$H$b$G$-$^$9(B:
+
+          % make
+          % make install-package
+
+     $B$3$N>l9g(B `make install-icons' $B$^$?$O(B `make install-icons30' $B$r<B9T(B
+     $B$9$kI,MW$O$"$j$^$;$s!#(B
+
+     $B%Q%C%1!<%8!&%G%#%l%/%H%j$r;XDj$9$k$K$OFs$D$NJ}K!$,$"$j$^$9(B:
+
+        * `configure' $B%*%W%7%g%s$N(B `--with-packagedir=' $B$r;H$$$^$9!#Nc(B
+          $B$G$9(B:
+
+               % ./configure --with-packagedir=/opt/xemacs/xemacs-packages
+               % make what-where
+               % make
+               % make install-package
+
+        * $BJQ?t(B `PACKAGEDIR' $B$r;H$$$^$9!#Nc$G$9(B:
+
+               % ./configure
+               % make what-where PACKAGEDIR=/opt/xemacs/xemacs-packages
+               % make
+               % make install-package PACKAGEDIR=/opt/xemacs/xemacs-packages
+
+
+
+File: emacs-w3m-ja.info, Node: Non-UNIX-like systems, Next: Minimal Settings, Prev: Installing Emacs-w3m, Up: Getting Started
+
+$A7G(B UNIX $AO5$(Gt?$A>3$G$N%$%s%9%H$B!<$A%k(B
+==============================
+
+$B$"$J$?$N%7%9%F%`$G(B `configure' $B%9%/%j%W%H$r<B9T$9$k$3$H$,$G$-$J$$$+!"(B
+`make' $B%3%^%s%I$,MxMQ$G$-$J$$>l9g$O!"0J2<$NJ86g$r>'$($F$/$@$5$$!#(B
+
+     % emacs -batch -q -no-site-file -l w3mhack.el NONE -f w3mhack-nonunix-install
+
+APEL$B!"(BFLIM ($B$^$?$OB>$N2?$+(B) $B$,IaDL$N>l=j$K%$%s%9%H!<%k$5$l$F$$$J$$$H!"(B
+$B%$%s%9%H!<%i$O$=$l$i$rL5;k$7$F$7$^$&$G$7$g$&!#$=$s$J>l9g$O!"0J2<$K<($9(B
+$B$h$&$K!"$=$l$i$N>l=j$r%$%s%9%H!<%i$K9p$2$kI,MW$,$"$j$^$9(B:
+
+     % emacs -batch -q -no-site-file -l w3mhack.el //c/share/apel://c/share/flim -f w3mhack-nonunix-install
+
+
+
+File: emacs-w3m-ja.info, Node: Minimal Settings, Prev: Non-UNIX-like systems, Up: Getting Started
+
+$(G]C$A6($7$J$1$l$P$J$i$J$$Wn5MO^$N$b$N(B
+==================================
+
+$B$3$N9`$G$O4pK\E*$J(B emacs-w3m $B$N@_Dj$N$$$/$D$+$r@bL@$7$^$9!#$-$a:Y$+$J@_(B
+$BDj$r$7$?$$$J$i$P!"$?$/$5$s$N%+%9%?%^%$%:2DG=$JJQ?t$r(B *Note
+Customizable Variables:: $B$G8+$D$1$k$3$H$,$G$-$k$G$7$g$&!#(B
+
+`Autoloads'
+     Emacs-w3m $B$r(B XEmacs $B%Q%C%1!<%8$H$7$F%$%s%9%H!<%k(B (*Note
+     Installing Emacs-w3m::) $B$7$F$"$l$P(B `w3m/auto-autoloads.el' $B%U%!%$(B
+     $B%k$,<+F0%m!<%I(B (autoload) $B$NLLE]$r8+$F$/$l$k$N$G!"$3$l$OI,MW$"$j$^(B
+     $B$;$s!#(B
+
+     $B$=$l0J30$N$9$Y$F$N>l9g!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$F$/$@(B
+     $B$5$$(B:
+
+          (require 'w3m-load)
+
+`Startup File'
+     Emacs-w3m $B$N$$$m$s$JJQ?t$r$$$8$kI,MW$,$"$k$H$-$O!"(B`~/.emacs-w3m'
+     $B%U%!%$%k(B ($B$3$l$O(B `w3m-init-file' $B$H$$$&JQ?t$N%G%U%)%k%HCM$G$9(B) $B$N(B
+     $BMxMQ$r?d>)$7$^$9!#$3$N%U%!%$%k$O(B `~/.emacs' $B$H;w$F$$$^$9$,!"$3$A$i(B
+     $B$O(B emacs-w3m $B$,5/F0$9$k$H$-$KFI$_9~$^$l$^$9!#(B`w3m-command' $B$J$I4v(B
+     $B$D$+$N%*%W%7%g%s$O!"$3$N%U%!%$%k$G$OJQ99$G$-$J$$$3$H$KCm0U$7$F$/$@(B
+     $B$5$$!#(B
+
+`Proxy Gateway'
+     $B$"$J$?$,KI2PJI(B (firewall) $B$NCf$+$i(B proxy $B%2!<%H%&%'%$$rDL$7$F%$%s(B
+     $B%?!<%M%C%H$K@\B3$7$F$$$k>l9g$O!"$=$l$r;H$&$h$&$K(B w3m $B$K;X<($9$kI,(B
+     $BMW$,$"$j$^$9!#(B
+
+     $B$3$l$K$O$$$/$D$+$NJ}K!$,$"$j$^$9!#0l$D$O4D6-JQ?t(B `http_proxy' $B$r(B
+     shell $B>e$G!"$3$s$J$U$&$K%0%m!<%P%k$K@_Dj$9$k$3$H$G$9(B:
+
+          setenv http_proxy http://proxy.hogege.com:8000/
+
+     $BB>$K!"JQ?t(B `w3m-command-arguments' $B$r%+%9%?%^%$%:$7$F!"(B`-o' $B$*$h$S(B
+     `http_proxy=http://PROXY_SERVER_NAME:PORT/' $B$rDI2C$9$kJ}K!$,$"$j$^(B
+     $B$9!#$3$l$O(B `~/.emacs-w3m' $B%U%!%$%k$G0J2<$N$h$&$K9T$J$&$3$H$b$G$-$^(B
+     $B$9!#(B
+
+          (setq w3m-command-arguments
+                (nconc w3m-command-arguments
+                       '("-o" "http_proxy=http://proxy.hogege.com:8000/")))
+
+     Proxy $B%2!<%H%&%'%$$rDL$9$Y$-$G$O$J$$%[%9%H(B ($B%$%s%H%i%M%C%H$N%5%$%H(B
+     $B$J$I(B) $B$r;XDj$9$k$K$O!"4D6-JQ?t(B `no_proxy' (`no-proxy' $B$G$O$J$$$3$H(B
+     $B$K$4Cm0U(B) $B$K%3%s%^$G6hJ,$1$5$l$?%[%9%HL>$N%j%9%H$r@_Dj$7$F$/$@$5$$!#(B
+     $B$"$k$$$O0J2<$N$h$&$K!"JQ?t(B `w3m-no-proxy-domains' $B$K%I%a%$%sL>(B ($B%[(B
+     $B%9%HL>$G$O$J$$(B) $B$N%j%9%H$r@_Dj$9$k$3$H$b$G$-$^$9(B:
+
+          (setq w3m-no-proxy-domains '("local.com" "neighbor.com"))
+
+     `no_proxy' $B%[%9%H$N@_Dj$K$I$&$d$C$F@55,I=8=$r;H$&$+$N@bL@$O!"JQ?t(B
+     `w3m-command-arguments-alist' $B$N%I%-%e%a%s%H$r8+$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Basic Usage, Next: Pretty Good Features, Prev: Getting Started, Up: Top
+
+$A;y1>5D$JJ9$$7=(B
+**************
+
+* Menu:
+
+* Browsing Web Pages::          $B%M%C%H%5!<%U%#%s$7$h$&(B!
+* Inline Images::               $B2hA|I=<($r(B ON/OFF $B$9$k(B
+* Tracing History::             $B;~6u$rAL$k(B
+* Managing Bookmarks::          $B$\$/$N(B/$B$o$?$7$N$*5$$KF~$j(B
+* Using Tabs::                  $B$_$s$J%?%V$,9%$-$@$h$M(B
+* Working with buffers::        $B%P%C%U%!$r:n$k(B/$B>C$9(B/$B0\F0$9$k(B
+* Downloading::                 $B%U%!%$%k$r%@%&%s%m!<%I$9$k(B
+* Submitting Forms::            HTML $B%U%)!<%`$K5-F~$9$k(B
+* HTML File Information::       $B%&%'%V%Z!<%8:n$j$H%O%C%/$N$*<jEA$$(B
+
+
+
+File: emacs-w3m-ja.info, Node: Browsing Web Pages, Next: Inline Images, Prev: Basic Usage, Up: Basic Usage
+
+$A%M%C%H%5$B!<$A%U%#%s$7$h$&(B!
+=======================
+
+$B$9$Y$F$N%&%'%V!&%V%i%&%:$NA`:n$O!"%-!<$G9T$&$3$H$,$G$-$^$9!#(BEmacs-w3m
+$B$O%G%U%)%k%H$G(B `Lynx-like' $B%-!<%^%C%W(B (*Note Key Binding::) $B$H$$$&$b$N(B
+$B$r;H$$$^$9!#$b$A$m$s%^%&%9$r;H$&$3$H$b$G$-$^$9!#(B
+
+* Menu:
+
+* Key Binding::                 $BFs$D$N%-!<%P%$%s%I(B
+* Launching and Jumping::       $B$H$K$+$/F0$+$7$F$_$h$&(B
+* Moving in a page::            $B%Z!<%8Fb$rHt$S$^$o$k(B
+* Moving over pages::           $B%Z!<%84V$rEO$jJb$/(B
+* Browsing With Mouse Operations:: $B%^%&%9$r;H$C$F%5!<%U%#%s(B
+* Going back to daily hacking and/or daily writing:: $BIaCJ$N@83h$KLa$k$K$O(B
+
+
+
+File: emacs-w3m-ja.info, Node: Key Binding, Next: Launching and Jumping, Prev: Browsing Web Pages, Up: Browsing Web Pages
+
+$A6~$D$N%-$B!<$A%P%$%s%I(B
+------------------
+
+Emacs-w3m $B$O(B Emacs $B%&%'%V!&%V%i%&%6$NNr;K$NCf$G$O8eH/$N%V%i%&%6$J$N$G!"(B
+$B%f!<%6$,?7$7$$%&%'%V!&%V%i%&%6$KMF0W$K47$l$k$3$H$,$G$-$k$h$&$K$9$k$?$a(B
+$B$K!"Fs<oN`$N%-!<%P%$%s%I$rMQ0U$7$^$7$?!#0l$D$O(B `Lynx-like' $B%-!<%^%C%W$H(B
+$B8F$P$l!"$b$&0l$D$O(B `Info-like' $B%-!<%^%C%W$G$9!#$3$l$i$NL>A0$+$i!"$=$l$i(B
+$B$,2?$r0UL#$9$k$+$OJ,$+$j$^$9$M(B?  $BA0<T$O%F%-%9%HHG$N%&%'%V!&%V%i%&%6$G$"(B
+$B$k(B `Lynx' $B$N$b$N$K;w$F$$$^$9!#$=$7$F8e<T$O(B GNU $B$N8x<0%I%-%e%a%s%H!&%V%i(B
+$B%&%6$G$"$k(B `Info' $B$N$b$N$K;w$F$$$^$9!#%G%U%)%k%H$G$O(B `Lynx-like' $B%-!<%^%C(B
+$B%W$,;H$o$l$^$9!#(B`Info-like' $B%-!<%^%C%W$r;H$$$?$$$N$J$i$P!"(B
+
+     M-x customize-option <RET> w3m-key-binding <RET>
+
+$B$H%?%$%W$7$F(B `Info-like' $B%-!<%^%C%W$rA*$S!"JQ99$r%;!<%V$7$F$/$@$5$$!#$"(B
+$B$k$$$O0J2<$NCGJR$r(B `~/.emacs' $B%U%!%$%k(B (`~/.emacs-w3m.el' $B%U%!%$%k$G$O(B
+$B$"$j$^$;$s(B) $B$K2C$($F$/$@$5$$(B:
+
+     (setq w3m-key-binding 'info)
+
+$B%-!<%P%$%s%I$r0l$D$:$DJQ99$9$k$K$O!"(B`~/.emacs-w3m.el' $B%U%!%$%k$G0J2<$N(B
+$B$h$&$K(B `w3m-mode-map' $BJQ?t$r$$$8$C$F$/$@$5$$(B:
+
+     (define-key w3m-mode-map [up] 'previous-line)
+     (define-key w3m-mode-map [down] 'next-line)
+     (define-key w3m-mode-map [left] 'backward-char)
+     (define-key w3m-mode-map [right] 'forward-char)
+
+
+
+File: emacs-w3m-ja.info, Node: Launching and Jumping, Next: Moving in a page, Prev: Key Binding, Up: Browsing Web Pages
+
+$A$H$K$+$/$(GY/$A$+$7$F$_$h$&(B
+----------------------
+
+$B0J2<$K5s$2$k;0$D$N0c$&%3%^%s%I$r;H$C$F(B emacs-w3m $B$r5/F0$9$k$3$H$,$G$-$^(B
+$B$9!#$=$l$i$N%3%^%s%I$N0l$D$r;n$7$F$/$@$5$$!#%&%'%V%Z!<%8$,(B "*w3m*" $B$H$$(B
+$B$&L>A0$N(B Emacs $B$N%P%C%U%!(B (emacs-w3m $B$N%P%C%U%!$N$3$H(B) $B$KI=<($5$l$^$9!#(B
+$B$*$=$i$/5$IU$/$G$7$g$&$1$l$I$b!"(Bemacs-w3m $B$N%P%C%U%!$N%a%8%c!<%b!<%I$O(B
+`w3m-mode' $B$G$9!#B>$K%^%$%J!<%b!<%I(B (*Note Managing Bookmarks::) $B$b$"$j(B
+$B$^$9!#(B
+
+$B$3$3$G$O!"$=$l$i$N%3%^%s%I$N:G$b4pK\E*$J;H$$J}$@$1$r@bL@$7$^$9!#$=$l$i(B
+$B$K$D$$$F$b$C$H>\$7$/CN$j$?$$>l9g$O!"(B*Note Emacs-w3m Functions:: $B$r;2>H(B
+$B$7$F$/$@$5$$!#$^$?!"(Bemacs-w3m $B$NF0:n$r%+%9%?%^%$%:$9$k$?$a$K;H$&$3$H$,(B
+$B$G$-$kJQ?t72$r!"(B*Note Customizable Variables:: $B$G;2>H$7$F$/$@$5$$!#(B
+
+`w3m'
+     Emacs-w3m $B$r5/F0$7$F!"(B`w3m-home-page' $B$H$$$&JQ?t$G;XDj$5$l$?%[!<%`(B
+     $B%Z!<%8$rI=<($7$^$9!#(B`w3m-home-page' $B$N%G%U%)%k%H$NCM$O(B "about:" $B$G(B
+     $B$9!#(BEmacs-w3m $B$r5/F0$7$?$H$-$KKh2s(B URL $B$rF~NO$G$-$k$h$&$K$7$?$$>l(B
+     $B9g$O!"JQ?t(B `w3m-quick-start' $B$NCM$r(B `nil' $B$K$7$F$/$@$5$$(B (*Note
+     Customizable Variables::)$B!#(B
+
+     $B$3$l$O(B Emacs $B$r5/F0$9$k$H$-$K0z?t$H$7$F;H$&$3$H$b$G$-$^$9!#Nc$G$9(B:
+
+          % emacs -f w3m
+
+     URL $B$r;XDj$7$F!"$3$N$h$&$K;H$&$3$H$b$G$-$^$9(B:
+
+          % emacs -f w3m http://emacs-w3m.namazu.org/
+
+`w3m-find-file'
+     $B%m!<%+%k%U%!%$%kL>$r%_%K%P%C%U%!$GF~NO$7$F!"$=$l$r(B emacs-w3m $B$GI=(B
+     $B<($7$^$9!#(B
+
+`w3m-browse-url'
+     URL $B$r%_%K%P%C%U%!$GF~NO$7$F!"$=$l$r(B emacs-w3m $B$GI=<($7$^$9!#$3$N(B
+     $B%3%^%s%I$O!"$I$A$i$+$H8@$($PB>$N%"%W%j%1!<%7%g%s%W%m%0%i%`$+$i(B
+     emacs-w3m $B$r5/F0$9$k$?$a$KMQ0U$5$l$F$$$^$9!#(B
+
+$B$"$J$?$,$9$G$K(B Emacs $B$N%f!<%6$J$i$P!"(Bemacs-w3m $B$N%P%C%U%!$NCf$G0\F0$9$k(B
+$B$N$K6lO+$OL5$$$G$7$g$&!#B?$/$NI8=`$N%-!<$,$=$N$^$^;H$($k$N$G$9$+$i!#Nc(B
+$B$($P(B `C-n'$B!"(B`C-v' $B$=$l$K(B `C-s' $B$O(B emacs-w3m $B%P%C%U%!$GM-8z$J%-!<$G$9(B
+($B$3$l$i$O0l9T2<9_!"0l%Z!<%8Aw$j!"$^$?$O8eJ}C18l8!:w$H$7$F6&DL$K;H$o$l$^(B
+$B$9(B)$B!#(B
+
+$B%j%s%/$r$?$I$k$K$O(B `<RET>' $B%-!<$r;H$C$F$/$@$5$$!#$=$l$K$O%]%$%s%H$r%j%s(B
+$B%/$N>l=j$K0\F0$7$J$1$l$P$J$j$^$;$s!#%j%s%/$OIaDL$N%F%-%9%H$H$O0c$C$FI=(B
+$B<($5$l$F$$$k$N$G!"4JC1$K8+J,$1$k$3$H$,$G$-$^$9!#$=$l$i$O2<@~IU$-!"$^$?(B
+$B$O0c$&?'$K$J$C$F$$$k$O$:$G$9!#$=$l$i$N8+1I$($O(B `w3m-anchor' $B$H$$$&%U%'!<(B
+$B%9$K$h$C$F7h$^$j$^$9(B (*Note Customizable Variables::)$B!#(B
+
+`<RET>'
+`<right>' (Lynx-like $A%-$B!<$A%^%C%W$N$_(B)
+     $B8=:_0LCV$N%j%s%/$,;X$7<($9%Z!<%8$rI=<($7$^$9(B
+     (`w3m-view-this-url')$B!#(B
+
+     $B$3$N%3%^%s%I$N?6$kIq$$$O!"87L)$K$O8=:_0LCV$N%j%s%/$N@-<A$K$h$C$F!"(B
+     $B$^$?$O@\F,0z?t$rM?$($k$+$I$&$+$K0MB8$7$^$9!#>\:Y$O(B *Note
+     Emacs-w3m Functions:: $B$r;2>H$7$F$/$@$5$$!#(B
+
+$BA0=R$N$h$&$K!"JQ?t(B `w3m-quick-start' $B$NCM$r(B `nil' $B$K@_Dj$9$k$3(B
+$B$H$K$h$C$F!"(B`M-x w3m' $B%3%^%s%I$r;H$C$?$H$-$K(B URL $B$r;XDj$9$k$3$H(B
+$B$,2DG=$G$9!#(BEmacs-w3m $B$N%P%C%U%!$G$O!"F~NO$7$??7$7$$(B URL $B$N%Z!<%8$K9T$/(B
+$B$?$a$N0lHLE*$JJ}K!$,!"$5$i$K0J2<$NFs$D$"$j$^$9!#(B
+
+`<RET>'
+     Emacs-w3m $B$N%P%C%U%!$K$*$$$F!"%X%C%@%i%$%s$KI=<($5$l$F$$$k(B URL $B$N(B
+     $B0LCV$K%]%$%s%H$r0\F0$5$;$F$+$i(B `<RET>' $B$rC!$/$3$H$K$h$C$F!"%_%K%P%C(B
+     $B%U%!$+$i(B URL $B$rF~NO$7$F!"$=$N%Z!<%8$rI=<($5$;$k$3$H$,$G$-$^$9!#(B
+     Mozilla $B$J$I$N(B GUI $B%Y!<%9$N%&%'%V%V%i%&%6$K47$l$F$$$k?M$K$H$C$F!"(B
+     $B$3$N5!G=$O$*$J$8$_$G$9$h$M!#$3$l$K4X$9$k>\$7$$@bL@$,(B *Note
+     Emacs-w3m Functions:: $B$G8+$D$+$k$O$:$G$9(B (`w3m-view-this-url')$B!#(B
+
+`g'
+     $B%_%K%P%C%U%!$G(B URL $B$NF~NO$r$&$J$,$7$F!"(Bemacs-w3m $B$K$=$N%Z!<%8$rI=(B
+     $B<($5$;$k$3$H$,$G$-$^$9(B ($B%]%$%s%H$N0LCV$H$OL54X78$G$9(B)$B!#$3$N%-!<$N(B
+     $B3d$jEv$F$O!"$9$G$K(B Gnus $B$d(B Mew $B$rMxMQ$7$F$$$k?M$K$O$*$J$8$_$G$7$g(B
+     $B$&(B (`w3m-goto-url')$B!#(B
+
+`G'
+     $B%_%K%P%C%U%!$G(B URL $B$NF~NO$r$&$J$,$7$F!"$=$l$r?7$7$$%;%C%7%g%s$GI=<($7$^(B
+     $B$9!#$3$l$O$A$g$&$I(B `g' (<M-x w3m-goto-url>) $B$N$h$&$KF0:n$7$^(B
+     $B$9$,!"?7$7$$%;%C%7%g%s$r3+$/$H$3$m$,0c$$$^$9!#J8;zC<Kv$G(B emacs-w3m $B$r;H$C(B
+     $B$F$$$k$N$G$J$$8B$j!"?7$7$$%;%C%7%g%s$r3+$/$H$$$&$3$H$O!"$=$N%Z!<%8$r?7$7(B
+     $B$$%?%V$GI=<($9$k$3$H$r0UL#$7$^$9!#%?%V$K$D$$$F$N$b$C$H>\$7$$$3$H$O!"(B
+     *Note Using Tabs:: $B$r;2>H$7$F$/$@$5$$(B (`w3m-goto-url-new-session')$B!#(B
+
+`c' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`y' (Info-like $A%-$B!<$A%^%C%W(B)
+     $BI=<($7$F$$$k%Z!<%8$N(B URL $B$r%(%3!<%(%j%"$KI=<($9$k$H$H$b$K!"(B
+     `kill-ring' $B$K(B URL $B$rA^F~$7$^$9(B (`w3m-print-current-url')$B!#(B
+
+`u' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`Y' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B8=:_0LCV$N%j%s%/$,;X$7<($9BP>]$N(B URL $B$r%(%3!<%(%j%"$KI=<($9$k$H$H$b$K!"(B
+     `kill-ring' $B$K(B URL $B$rA^F~$7$^$9(B (`w3m-print-this-url')$B!#(B
+
+$B$5$F!"$"$J$?$,FI$s$G$$$k%Z!<%8$,:#F|$N;~;v%K%e!<%9$+$@$l$+$NF|5-$@$C$?(B
+$B$i!"$=$l$r<h$j9~$s$@8e$G?7$7$$FbMF$GCV$-49$($i$l$F$$$k$+$b$7$l$^$;$s!#(B
+$B<!$N%3%^%s%I$r;H$&$H!"F1$8%Z!<%8$N:G?7$NFbMF$K99?7$9$k$3$H$,$G$-$^$9!#(B
+($B$3$N%3%^%s%I$O!"%Z!<%8$,2u$l$F$$$k$h$&$K8+$($k>l9g$K!"A42hLL$N:FIA2h$r(B
+$B6/@)$5$;$k$?$a$K$bLrN)$F$k$3$H$,$G$-$^$9!#(B)
+
+`R'
+`C-S-l' (Info-like $A%-$B!<$A%^%C%W$N$_(B)
+     $B%Z!<%8$rFI$_9~$_D>$7$^$9(B (`w3m-reload-this-page')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Moving in a page, Next: Moving over pages, Prev: Launching and Jumping, Up: Browsing Web Pages
+
+$A%Z$B!<$A%8DZ$r$(GSy$A$S$^$o$k(B
+--------------------
+
+Emacs $B$G0\F0MQ$K3d$jEv$F$i$l$F$$$kFk@w$_?<$$%-!<$,%&%'%V%Z!<%8$N1\MwCf(B
+$B$K;H$($k$3$H$O!"$*$=$i$/$9$G$K$"$J$?$rL%N;$7$F$$$k$G$7$g$&!#?.$8$F$b$i(B
+$B$($J$$$+$b$7$l$^$;$s$,!"$b$C$H$"$k$N$G$9(B!  $B;d$?$A$O$"$J$?$N;~4V$rBg@Z$K(B
+$B$7$?$$$N$G!"%]%$%s%H$N0\F0!"%Z!<%8$N%9%/%m!<%k!"$"$k$$$O$H$F$bB.$$$d$j(B
+$BJ}$G%j%s%/$r8+$D$1$k$?$a$N%-!<$rDI2C$7$^$7$?!#$=$l$i$r%^%9%?!<$9$l$P!"(B
+$B$=$l$i$,$I$s$J$KJXMx$+$rJ,$+$C$F$b$i$($k$G$7$g$&!#(B
+
+Emacs $B$NI8=`%-!<%P%$%s%I$KHf$Y$F(B `w3m-mode' $B$G$O!"$h$jC;$$%-!<%9%H%m!<(B
+$B%/$G%9%/%m!<%k%3%^%s%I72$r8F$S=P$;$k$h$&$K%-!<$,3d$jEv$F$i$l$F$$$^$9!#(B
+$B%&%'%V%Z!<%8Fb$G%F%-%9%H$rF~NO$G$-$k8D=j$O$+$J$jFCJL$J$N$G(B (*Note
+Submitting Forms::)$B!"$?$$$F$$$N%-!<$OFCJL$J0UL#$r;}$C$F$$$F!"$=$3$G$O(B
+`self-insert-command' $B$K3d$jEv$F$i$l$F$$$^$;$s!#(B
+
+`<SPC>'
+     $B2<$K8~$+$C$F%9%/%m!<%k$7$^$9!#(B`more' $B$d(B `less' $B%3%^%s%I!"$"$k$$$O(B
+     Emacs $B$N(B `view-mode' $B$r;H$C$?$3$H$,$"$l$P!"3P$($k$^$G$b$J$$%-!<$G(B
+     $B$9$h$M(B (`w3m-scroll-up-or-next-url')$B!#(B
+
+`<DEL>'
+`b'
+`<backspace>'
+`S-<SPC>'
+`C-?'
+     $B>e$K8~$+$C$F%9%/%m!<%k$7$^$9!#(B`less' $B%3%^%s%I$d(B Emacs $B$N(B
+     `view-mode' $B$KFk$l?F$7$s$G$$$k$"$J$?$N<j$O!"<+A3$K$3$N%-!<$rC!$/$G(B
+     $B$7$g$&(B (`w3m-scroll-down-or-previous-url')$B!#(B
+
+`>'
+     $B:8$K%9%/%m!<%k$7$^$9!#%9%/%m!<%k$NNL$O(B
+     `w3m-horizontal-scroll-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 10 $B$G$9(B
+     (`w3m-scroll-left')$B!#(B
+
+`<'
+     $B1&$K%9%/%m!<%k$7$^$9!#%9%/%m!<%k$NNL$O(B
+     `w3m-horizontal-scroll-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 10 $B$G$9(B
+     (`w3m-scroll-right')$B!#(B
+
+`.' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`S-<left>' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B:8$K%7%U%H$7$^$9(B ($B>.9o$_$J?eJ?%9%/%m!<%k(B)$B!#%7%U%H$NNL$O(B
+     `w3m-horizontal-shift-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 2 $B$G$9(B
+     (`w3m-shift-left')$B!#(B
+
+`,' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`S-<right>' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B1&$K%7%U%H$7$^$9(B ($B>.9o$_$K?eJ?%9%/%m!<%k$G$9(B)$B!#%7%U%H$NNL$O(B
+     `w3m-horizontal-shift-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 2 $B$G$9(B
+     (`w3m-shift-right')$B!#(B
+
+`M-l'
+     $B8=:_%]%$%s%H$,$"$k0LCV$N%F%-%9%H$,!"?eJ?J}8~$K4X$7$FCf?4$K$J$k$h$&(B
+     $B$K%9%/%m!<%k$7$^$9(B (`w3m-horizontal-recenter')$B!#(B
+
+`w3m-mode' $B%a%8%c!<%b!<%I$G$O!"$$$m$$$m$J<oN`$N0\F0%3%^%s%I$,Dj5A$5$l$F(B
+$B$$$^$9!#$9$J$o$A!"%j%s%/!"%U%)!<%`!"$=$l$K2hA|(B ($B$=$l$,I=<($5$l$F$$$F$b(B
+$B$$$J$/$F$b(B) $B$G$9!#(B
+
+$B4JC1$JNc$r5s$2$F$_$^$9!#9-$/CN$i$l$F$$$k(B Google $B8!:w%(%s%8%s$GC18l$rD4(B
+$B$Y$?$$$N$@$H$7$^$7$g$&!#%9%F%C%W#1(B: emacs-w3m $B$G(B
+`http://www.google.com' $B$r3+$-$^$9!#%9%F%C%W#2(B: $B$$$C$?$s%Z!<%8$,FI$_9~(B
+$B$^$l$?$i(B `]' $B$rC!$$$F$/$@$5$$!#$0$o$7$C(B! (1) (*Note Moving in a
+page-Footnotes::) $B%]%$%s%H$,%Z!<%8$N:G=i$NF~NO%U%)!<%`$K0\F0$7$^$7$?$M!#(B
+$B:#$d(B `<RET>' $B$rC!$$$F$=$3$K2?$+$rF~NO$7$F!"(B`C-c C-c' $B$GAw$k(B
+$B$3$H$,$G$-$^$9!#$3$N%3%^%s%IL5$7$G$O!"$=$N%Z!<%8$K(B `C-n' $B$d(B
+`C-f' $B$J$I$rBG$A9~$s$G0\F0$7$J$1$l$P$J$i$J$/$F!"$^$C$?$/9|@^$j$J$3(B
+$B$H$@$C$?$G$7$g$&!#(B
+
+`<TAB>'
+`<down>' (Lynx-like $A%-$B!<$A%^%C%W$N$_(B)
+     $B<!$N%j%s%/(B (emacs-w3m $B$NMQ8l$G$O(B "$B%"%s%+!<(B") $B$X%]%$%s%H$r0\F0$7$^(B
+     $B$9!#$h$j87L)$K$O!"=gJ}8~$G:G$b6a$$%"%s%+!<$X0\F0$7$^$9!#(B
+
+`M-<TAB>'
+`S-<TAB>'
+`<backtab>'
+`<up>' (Lynx-like $A%-$B!<$A%^%C%W$N$_(B)
+     $BA0$N%"%s%+!<$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"5UJ}8~$G:G$b6a$$(B
+     $B%"%s%+!<$X0\F0$7$^$9(B (`w3m-previous-anchor')$B!#(B
+
+`]'
+     $B<!$N%U%)!<%`$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"=gJ}8~$G:G$b6a$$(B
+     $B%U%)!<%`$X0\F0$7$^$9(B (`w3m-next-form')$B!#(B
+
+`['
+     $BA0$N%U%)!<%`$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"5UJ}8~$G:G$b6a$$(B
+     $B%U%)!<%`$X0\F0$7$^$9(B (`w3m-previous-form')$B!#(B
+
+`}'
+     $B<!$N2hA|$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"=gJ}8~$G:G$b6a$$2hA|(B
+     $B$X0\F0$7$^$9(B (`w3m-next-image')$B!#(B
+
+`{'
+     $BA0$N2hA|$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"5UJ}8~$G:G$b6a$$2hA|(B
+     $B$X0\F0$7$^$9(B (`w3m-previous-image')$B!#(B
+
+
+File: emacs-w3m-ja.info  Node: Moving in a page-Footnotes, Up: Moving in a page
+
+(1) $AFUM($=$s$JRt$O$7$J$$$1$l$I$M!#S"$(Gk#$A0f$N(B Tadaa! $A$OB~;-$J$I$GJ9$o$l$k(B
+$(Gsi$ARt$G!"$=$NW4$(GNS$A$K$(I%w$A$8$F$$$m$$$m$K$BLu$A$5$l$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Moving over pages, Next: Browsing With Mouse Operations, Prev: Moving in a page, Up: Browsing Web Pages
+
+$A%Z$B!<$A%8$(Gbf$A$r6I$j$(I)V$A$/(B
+------------------
+
+$B$3$N9`$G$O%Z!<%8$+$i%Z!<%8$K0\F0$9$k$d$jJ}$r@bL@$7$^$9!#%j%s%/$r$?$I$C(B
+$B$?$j(B URL $B$rF~NO$9$kJ}K!$O$3$3$K$O$"$j$^$;$s(B ($B$=$l$iFs$D$NJ}K!$O(B *Note
+Launching and Jumping:: $B$G@bL@$5$l$F$$$^$9(B)$B!#(B
+
+$B$3$3$K$O!"0JA0$KK,Ld$7$?%Z!<%8$NMzNr$r8e$m$K!"$*$h$SA0$K0\F0$9$k(B ($BB>$N(B
+$B%V%i%&%6$G$O!VLa$k!W!V?J$`!W$H$7$F$*$J$8$_$N(B) $B%3%^%s%I$H!"2>$K$b%V%i%&(B
+$B%6$?$k$b$N$,5AL3$H$7$FDs6!$9$Y$-!V%[!<%`%Z!<%8$X0\F0$9$k!W5!G=$,$"$j$^(B
+$B$9!#$"$i$+$8$a(B *Note Tracing History:: $B$N9`$rFI$s$G$*$$$?J}$,!"$?$V$sM}(B
+$B2r$7$d$9$$$G$7$g$&!#(B
+
+`B' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`<left>' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`l' (Info-like $A%-$B!<$A%^%C%W(B)
+`p' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B0JA0$KK,Ld$7$?%Z!<%8$NMzNr$r#1%Z!<%8La$j$^$9(B
+     (`w3m-view-previous-page')$B!#?t$N0z?t(B N $B$,M?$($i$l$k$H(B N $B%Z!<%8La$j(B
+     $B$^$9!#$3$l$O2a5n$KLa$k$?$a$N$*4+$a$NJ}K!$G$9!#(B
+
+`N' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`n' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B0JA0$KK,Ld$7$?%Z!<%8$NMzNr$r#1%Z!<%8?J$_$^$9(B
+     (`w3m-view-next-page')$B!#$b$A$m$s(B `B' (`Info-like' $B%-!<%^%C%W$N>l9g(B
+     $B$O(B `l') $B$GMzNr$rLa$C$?8e$G$J$1$l$PF/$-$^$;$s!#?t$N0z?t(B N $B$,M?$($i(B
+     $B$l$k$H(B N $B%Z!<%8?J$_$^$9!#$3$N%3%^%s%I$O!"$^$5$K(B back to the
+     future $B$r<B8=$7$^$9(B!
+
+`H'
+     $B%[!<%`%Z!<%8$X0\F0$7$^$9(B (`w3m-gohome')$B!#%[!<%`%Z!<%8$N(B URL $B$O(B
+     `w3m-home-page' $B$H$$$&JQ?t$G;XDj$7$^$9(B (*Note Customizable
+     Variables::)$B!#(B`w3m-home-page' $B$N%G%U%)%k%H$NCM$O(B "about:" $B$G$9!#(B
+
+$B0J2<$N%3%^%s%I$O!"B>$K$OL5$$(B emacs-w3m $B$NFCD9$G$9!#;d$?$A$O$=$l$i$NFC5v(B
+$B$rF@$k$3$H$,$G$-$^$7$?!#=>$C$F!"B>$N$$$+$J$k>l=j$G$b8+$D$+$i$J$$$G$7$g(B
+$B$&!#$=$N$?$a!":#F|$=$l$i$r;H$&$3$H$r3X$P$J$1$l$P$J$j$^$;$s(B! ($B??$K<u$1$J(B
+$B$$$G$/$@$5$$$M!#$?$@$N>iCL$G$9$+$i!#(B)
+
+`^'
+`u' (Info-like $A%-$B!<$A%^%C%W$N$_(B)
+     $B8=:_I=<($5$l$F$$$k%Z!<%8$N?F%G%#%l%/%H%j$X$N0\F0$r;n$_$^$9!#Nc$($P!"(B
+     http://foo/bar/baz" $B$,I=<($5$l$F$$$k>l9g$O(B "http://foo/bar/" $B$K0\(B
+     $BF0$7$h$&$H$7$^$9!#$3$N5!G=$O<!$N4Q;!$K4p$E$$$F<BAu$5$l$^$7$?(B: $B%&%'(B
+     $B%V%V%i%&%6$N%f!<%6$O!"$7$P$7$P0lCJ3,>e$N%G%#%l%/%H%j$K0\F0$7$J$1$l(B
+     $B$P$J$j$^$;$s!#H`$i$,A\$7$F$$$k>pJs$,!"8=:_$N%Z!<%8$KI=<($5$l$J$$$+(B
+     $B$i(B ($B$=$l$,:o=|$5$l$?$N$G!"$"$k$$$O8!:w%(%s%8%s$,4V0c$C$F$$$k%Z!<%8(B
+     $B$KO"$l$F9T$C$?$?$a(B) $B$G$9!#(B
+
+     $BB>$N%&%'%V%V%i%&%6$r;H$&>l9g!"0lHL$K$O!"(BURL $B$+$i(B `<DEL>' $B%-!<Ey$r(B
+     $BJ#?t2s;H$C$F!"<j:n6H$GKvHx$N%3%s%]!<%M%s%H$r:o=|$9$k<j4V$,I,MW$G$9!#(B
+     Emacs-w3m $B$G$O!"$3$NA`:n$r(B `^' $B$N$?$C$?0l2!$7(B! $B$G9T$J$&$3$H$,$G$-(B
+     $B$^$9!#(B
+
+     $B$^$?!"(B"2 ^" $B$H?t;z$rIU$1$F%3%^%s%I$r<B9T$9$k$H!"$=$N?t;z$NJ,$@$1?F(B
+     $B$N%G%#%l%/%H%j$K0\F0$7$^$9!#(B"0 ^" $B$H(B "0" $B$rIU$1$F<B9T$9$k$H$=$N%5(B
+     $B%$%H$N:G>e0L$^$G0\F0$7$^$9!#(B
+
+`<SPC>'
+     $B8=:_$N%]%$%s%H0LCV$,%P%C%U%!$NKvHxIU6a$K$"$j!"2<J}8~$K%9%/%m!<%k$G(B
+     $B$-$J$$>l9g$K(B `<SPC>' $B$r2!$9$H!V<!!W$N%Z!<%8$X0\F0$7$^$9(B
+     (`w3m-scroll-up-or-next-url')$B!#$3$3$G!V<!$N%Z!<%8!W$H$O!"8=:_FI$s(B
+     $B$G$$$k%Z!<%8$N%X%C%@Fb$NFCJL$J(B "next" $B%U%#!<%k%I$,;X$7<($7$F$$$k%Z!<(B
+     $B%8$N$3$H$G$9!#$3$N5!G=$OK,Ld$7$?%Z!<%8$NMzNr$H$O4X78$"$j$^$;$s!#(B
+
+     $B0lEY$K5pBg$J%3%s%F%s%D$rE>Aw$9$k$N$rBT$D$3$H$,!"%f!<%6$K$H$C$F2wE,(B
+     $B$G$O$J$$$J$I$NM}M3$G!"$$$/$D$+$N%&%'%V%5%$%H$,$=$l$i$N%3%s%F%s%D$r(B
+     $B>.$5$JJ#?t$N%Z!<%8$KJ,3d$7$F$$$k$3$H$K!"$*$=$i$/5$IU$$$F$$$k$G$7$g(B
+     $B$&!#Nc$($P!"8!:w%(%s%8%s$N8!:w7k2L$O!"$7$P$7$P$=$N$h$&$K8=$o$l$^$9!#(B
+     $B$=$s$J%5%$%H$G$O!"%f!<%6$O$9$Y$F$N>pJs$K%"%/%;%9$9$k$?$a$K!"$7$P$7(B
+     $B$P0l$D$N%Z!<%8$+$i<!$N%Z!<%8$K!"<jF0$G%j%s%/$r$?$I$i$J$1$l$P$J$j$^(B
+     $B$;$s!#(B
+
+     Emacs-w3m $B$O!"2DG=$G$"$l$P$3$N%j%s%/$rL@<(E*$K$?$I$kA`:n$r%9%/%m!<(B
+     $B%kA`:n$HE}9g$7$F!"J#?t$N%Z!<%8$KJ,3d$5$l$FDs6!$5$l$k%3%s%F%s%D$r!"(B
+     $B$G$-$l$P0lKg$N%&%'%V%Z!<%8$H$7$F1\Mw$G$-$k$h$&;n$_$^$9!#(B
+
+     $B$=$l$O$3$&$7$FF/$-$^$9(B: $B$=$N$h$&$J%&%'%V%5%$%H$G$O!"J,3d$7$?%&%'%V(B
+     $B%Z!<%84V$N$D$J$,$j$r%Z!<%8$N%X%C%@Fb$N(B "next"$B!"(B"prev" $B$"$k$$$O(B
+     previous" $B%U%#!<%k%I$K5-:\$7$F$"$k>l9g$,$"$j$^$9!#(BEmacs-w3m $B$O2?$r(B
+     $B$?$I$k$+$rCN$k$?$a$K!"$3$N%U%#!<%k%I$rMxMQ$7$F$$$^$9!#(B
+
+     $BFs$D$NA`:n(B ($B%j%s%/$r$?$I$k(B + $B%9%/%m!<%k(B) $B$,(B Emacs-w3m $B>e$G$I$N$h$&(B
+     $B$KE}9g$5$l$F$$$k$N$+$r!":F$S(B Google $B$rNc$K@bL@$7$^$7$g$&!#(B
+     `http://www.google.com' $B$r3+$-!"$"$kC18l$r8!:w$7$^$9!#$b$7!"$"$^$j(B
+     $B$K$b$"$j$U$l$?C18l(B ($BNc$($P!V5mP'!W(B) $B$r8!:w$9$k$H!"BgNL$N8!:w7k2L$r(B
+     $BF@$k$3$H$K$J$k$G$7$g$&!#(BGoogle $B$O!"$=$N4p=`$r;H$C$F%=!<%H$7$?8!:w(B
+     $B7k2L$rJ#?t$N%&%'%V%Z!<%8$KJ,3d$7$?>e$G!"$^$::G=i$N%Z!<%8$rJV$7$^$9!#(B
+     `<SPC>' $B$r;H$C$F:G=i$N%Z!<%8$r%9%/%m!<%k$5$;$J$,$iD/$a$F$/$@$5$$!#(B
+     $B$=$7$F!"$=$N%Z!<%8$N:G8e$,$=$N%&%#%s%I%&$G8+$($k$^$G!"%9%/%m!<%k$7(B
+     $BB3$1$F$/$@$5$$!#$=$3$G$O!"$"$J$?$r$S$C$/$j$5$;$k$7$+$1$,BT$C$F$$$^(B
+     $B$9!#(BEmacs-w3m $B0J30$N%V%i%&%6$r;H$C$F;D$j$N8!:w7k2L$r8+$?$$$H;W$C$?(B
+     $B$J$i$P!"(B
+
+          Gooooooogle
+
+     $B$N2<$K$J$i$V?t;z$N$I$l$+(B
+
+          1 2 3 4 5 6 7 8...
+
+     $B$r%/%j%C%/$9$kI,MW$,$"$j$^$9!#$7$+$7(B emacs-w3m $B$J$i$P!"C1$K(B
+     `<SPC>' $B$r2!$9$H$$$&%9%/%m!<%k$HF1$8A`:n$G!"%j%s%/$r$?$I$k$3$H$,$G(B
+     $B$-$k$N$G$9!#(B
+
+`<DEL>'
+`b'
+`<backspace>'
+`S-<SPC>'
+`C-?'
+     $B%]%$%s%H0LCV$,%P%C%U%!$N@hF,IU6a$K$"$j!">eJ}8~$K%9%/%m!<%k$G$-$J$$(B
+     $B>l9g$K(B `<DEL>' $B$r2!$9$H!"!VA0!W$N%Z!<%8$X0\F0$7$^$9(B
+     (`w3m-scroll-down-or-previous-url')$B!#$3$3$G!VA0!W$N%Z!<%8$H$O!"8=(B
+     $B:_I=<($5$l$F$$$k%Z!<%8$N%X%C%@Fb$N(B "prev" $B$"$k$$$O(B "previous" $B%U%#!<(B
+     $B%k%I$K;XDj$5$l$F$$$k%Z!<%8$N$3$H$G$9!#$3$N5!G=$OK,Ld$7$?%Z!<%8$NMz(B
+     $BNr$H$O4X78$"$j$^$;$s!#(B`<SPC>' (`w3m-scroll-up-or-next-url') $B$HF1MM!"(B
+     $B$?$@$75U$NF0$-$K$J$j$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Browsing With Mouse Operations, Next: Going back to daily hacking and/or daily writing, Prev: Moving over pages, Up: Browsing Web Pages
+
+$A%^%&%9$rJ9$C$F%5$B!<$A%U%#%s(B
+------------------------
+
+Emacs-w3m $B$N3+H/<TC#$O!"(BEmacs $B%.!<%/(B (1) (*Note Browsing With Mouse
+Operations-Footnotes::) $B$G$J$$IaDL$N?M$K$b(B emacs-w3m $B$r;H$C$F$b$i$($k$h(B
+$B$&$K!">/$79|$r@^$j$^$7$?!#Nc$($P(B URL $B$d%U%)!<%`$N%F%-%9%H$NF~NO$r=|$/$[(B
+$B$H$s$I$N%&%'%V%V%i%&%:A`:n$r!"%^%&%9$@$1$G9T$J$&$3$H$,$G$-$^$9!#$=$l$G(B
+$B$b$J$*=$>~%-!<$H$7$F%7%U%H%-!<$,I,MW$K$J$k>l9g$,$"$k$3$H$KCm0U$7$F$/$@(B
+$B$5$$!#(BEmacs-w3m $B$N3+H/<T$,$_$s$J(B Emacs $B%.!<%/$J$N$G(B...
+
+$B%&%'%V1\Mw$N:G=i$N4pK\$H$J$k!V%j%s%/$r$?$I$kA`:n!W$K$O(B `mouse-2' $B$r;H$C(B
+$B$F$/$@$5$$!#(BEmacs 22.1 $B0J>e$G$O!"(B`mouse-1' $B$G$b(B
+`mouse-1-click-follows-link' $B$NCM$K1~$8$?!"%j%s%/$r$?$I$kA`:n$r9T$J$&$3(B
+$B$H$,$G$-$^$9!#(B
+
+`mouse-2'
+     $B%^%&%9%+!<%=%k$N2<$K$"$k%j%s%/$r$?$I$j$^$9(B
+     (`w3m-mouse-view-this-url')$B!#(B
+
+`S-<mouse-2>'
+     $B?7$7$$%;%C%7%g%s(B (*Note Tracing History::) $B$N$b$H$G%^%&%9%+!<%=%k(B
+     $B$N2<$K$"$k%j%s%/$r$?$I$j$^$9(B
+     (`w3m-mouse-view-this-url-new-session')$B!#(B
+
+Emacs-w3m $B$N%9%/%m!<%k%P!<!"%a%K%e!<5Z$S%D!<%k%P!<$O!"%^%&%9$r;H$&>l9g(B
+$B$KLrN)$A$^$9!#$?$@$7(B Emacs $B$,$=$l$i$r%5%]!<%H$7$F$$$k$3$H$,I,MW$G!"$+$D(B
+$B$=$l$i$rM-8z$K$7$F$$$J$1$l$P$J$j$^$;$s!#8@$&$^$G$b$J$$$G$9$,!"%9%/%m!<(B
+$B%k%P!<$rF0$+$7$FI=<($r%9%/%m!<%k$5$;$k$3$H$,$G$-$^$9!#(BEmacs $B%U%l!<%`$N(B
+$B0lHV>e$K$"$k!V(Bw3m$B!W%a%K%e!<$+$i!"$3$N(B info $B%I%-%e%a%s%H$G>R2p$7$F$$$k(B
+emacs-w3m $B$NMM!9$J5!G=$r8F$S=P$9$3$H$,$G$-$^$9!#<gMW$J5!G=$K$D$$$F$O%a(B
+$B%K%e!<%"%$%F%`$rA*$V$^$G$b$J$$$3$H$KCm0U$7$F$/$@$5$$!#Be$o$j$K%D!<%k(B
+$B%P!<!&%"%$%3%s$r;H$&$3$H$,$G$-$^$9!#(B
+
+$B%?%V(B (*Note Using Tabs::) $B$r;H$C$F(B emacs-w3m $B$N%P%C%U%!$r@Z$jBX$($k$K$O!"(B
+$B%&%#%s%I%&$N$F$C$Z$s$N9T$r(B `mouse-2' $B$GD>@\%/%j%C%/$9$k$+!"$^$?$O!V(Bw3m$B!W(B
+$B%a%K%e!<$N0l$D$*$$$FNY$K$"$k!V(BTab$B!W%a%K%e!<$+$i0l$D$rA*$s$G$/$@$5$$!#(B
+
+
+File: emacs-w3m-ja.info  Node: Browsing With Mouse Operations-Footnotes, Up: Browsing With Mouse Operations
+
+(1) $AS"$(Gk#$A0f$N(B Info $A$G$O(B Emacs otaku
+
+
+
+File: emacs-w3m-ja.info, Node: Going back to daily hacking and/or daily writing, Prev: Browsing With Mouse Operations, Up: Browsing Web Pages
+
+$AFU6N$NIz;n$K$(I&($A$k$K$O(B
+--------------------
+
+$B;W$$=P$7$F$/$@$5$$!#$*$=$i$/$"$J$?$O%&%'%V$r8+$k$?$a$K(B Emacs $B$r;O$a$?$N(B
+$B$G$O$"$j$^$;$s!#%(%G%#%?$NFbB"%$%s%?!<%W%j%?$r(B scheme $B$KCV$-49$($?$j!"(B
+$B%=%U%H%&%'%"$N(B info $B%I%-%e%a%s%H$r:n@.$7$?$j!"%=%U%H%&%'%"$NFC5v$KBP$9(B
+$B$k<+J,$N9M$($r0u:~$7$?$j(B...$B$9$k$?$a$@$C$?$N$G$O$"$j$^$;$s$+(B?  Emacs $B$r(B
+$B;H$C$F$$$?4V$K!";E;v$N$?$a$K%&%'%V$r8+$kI,MW$KGw$i$l!"$7$+$7$?$^$?$^(B
+Emacs $B$+$iN%$l$:$K%&%'%V$r8+$k$3$H$,$G$-$F$7$^$C$?$N$G$9!#(B
+
+$B$5$!!"K\Mh$N:n6H$KLa$k;~$,Mh$^$7$?!#$"$J$?$,$,$s$P$i$J$$$H@$3&$OJQ$j$^(B
+$B$;$s(B!  $B$9$0$K$^$?%&%'%V$r1\Mw$9$kI,MW$,$"$k$+$b$7$l$J$$$J$i(B `q' $B$r!"$7(B
+$B$P$i$/(B emacs-w3m $B$KLa$C$F$/$k$D$b$j$,$J$$$J$i(B `Q' $B$r;H$C$F$/$@$5$$!#(B
+
+`q'
+     Emacs-w3m $B$N%&%#%s%I%&$HJD$8$F!"B>$N%P%C%U%!$rA*Br$7$^$9(B
+     (`w3m-close-window')$B!#(B
+
+`Q'
+     Arrived URLs ($B1\MwMzNr(B, *Note Tracing History:: $B;2>H(B) $B$N%j%9%H$H%/%C(B
+     $B%-!<(B (*Note Cookie Variables::) $B$r%G%#%9%/$KJ]B8$7$F!"K\Ev$K(B
+     emacs-w3m $B$r=*N;$7$^$9(B (`w3m-quit')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Inline Images, Next: Tracing History, Prev: Browsing Web Pages, Up: Basic Usage
+
+$A;-Oq1mJ>$r(B ON/OFF $A$9$k(B
+======================
+
+$B$"$J$?$,;H$C$F$$$k%P!<%8%g%s$N(B Emacs $B$,%P%C%U%!$K2hA|$rI=<($9$k$3$H$,$G(B
+$B$-$k$J$i$P!"$"$?$+$b(B Mozilla $B$N$h$&$J!V%0%i%U%#%+%k!W%V%i%&%6$N$h$&$K!"(B
+emacs-w3m $B$O%&%'%V%Z!<%8$K$=$l$i$rI=<($9$k$3$H$,$G$-$^$9!#2<5-$N%3%^%s(B
+$B%I$N$I$l$+$r;H$*$&$H$9$kA0$K!"$"$J$?$N(B Emacs $B$,@5$7$/2hA|I=<($K;H$($k$3(B
+$B$H$r3N$+$a$F$/$@$5$$(B (*Note Required Emacs Version::)$B!#(B
+
+$B8=:_$N%P%C%U%!$K$*$1$k2hA|$NI=<($r@Z$jBX$($k$K$O(B `T' (`Info-like' $B%-!<(B
+$B%^%C%W$N>l9g$O(B `I') $B$r;H$C$F$/$@$5$$!#$=$l$K$h$C$F(B emacs-w3m $B$O%5!<%P$+(B
+$B$i2hA|$r<h$C$F$-$F!"$7$+$k8e$K$=$l$i$r!V%0%i%U%#%+%k!W%V%i%&%6$H$7$F$=(B
+$B$&$J$k$G$"$m$&%P%C%U%!$N0LCV$KI=<($7$^$9!#$b$&0lEY%-!<$rC!$/$H!"2hA|$O(B
+$B%P%C%U%!$+$i>C$(5n$j$^$9!#(B
+
+$B%G%U%)%k%H$G$O(B emacs-w3m $B$O2hA|$rI=<($7$^$;$s$,!"$=$N?6$kIq$$$rJQ99$7$F(B
+$B>o$K2hA|I=<($9$k$3$H$rA*$V$N$O2DG=$G!"$=$l$K$OJQ(B
+$B?t(B `w3m-default-display-inline-images' $B$r%+%9%?%^%$%:$7$F!"$=$NCM(B
+$B$r(B `nil' $B$+$i(B `t' $B$KJQ99$9$kI,MW$,$"$j$^$9!#(B
+*Note Customizable Variables::.
+
+$B$5$i$K(B emacs-w3m $B$K$O!"2hA|$N3HBg=L>.!"%U%!%$%k$X$N%;!<%V!"$^$?$O30It(B
+$B%S%e!<%o$G8+$k!"$H$$$C$?5$$NMx$$$?5!G=$,IUB0$7$F$$$^$9!#(B
+
+`T' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`I' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B8=:_$N%P%C%U%!$K$"$k$9$Y$F$N%$%s%i%$%s2hA|$NI=<($r%H%0%k$G@Z$jBX$((B
+     $B$^$9(B (`w3m-toggle-inline-images')$B!#(B`transient-mark-mode' $B$,(B on $B$G!"(B
+     $B$+$DNN0h$,@_Dj$5$l$F$$$k>l9g$K8B$C$F!"$=$NNN0hFb$K$"$k2hA|$@$1$,(B
+     on $B$K$J$j$^$9!#(B
+
+     $BCm(B1: $B=i$a$FK,$l$?%Z!<%8$G:G=i$+$i%$%s%i%$%s2hA|$rI=<($9$k$+$I$&$+(B
+     $B$O!"A0=R$NDL$jJQ?t(B `w3m-default-display-inline-images' $B$NCM$G@)8f(B
+     $B$5$l$^$9(B ($B%G%U%)%k%H$O(B off $B$G$9(B)$B!#$7$+$7!"$=$N%P%C%U%!$r5/E@$K$7$F(B
+     $BK,$l$k%P%C%U%!$G2hA|$rI=<($9$k$+$I$&$+$O!"(B
+     `w3m-toggle-inline-images-permanently' $B$,(B `nil' $B$G$O$J$$CM(B ($B%G%U%)(B
+     $B%k%H$O(B `t') $B$@$C$?>l9g$O!"$=$N%P%C%U%!$G2hA|$rI=<($7$F$$$?$+$I$&$+(B
+     $B$N:G8e$N>uBV$r7Q>5$7$^$9!#(B`w3m-toggle-inline-images-permanently'
+     $B$,(B `nil' $B$@$C$?$i!">o$K(B `w3m-default-display-inline-images' $B$,$=$l(B
+     $B$r@)8f$7$^$9!#(B
+
+     $BCm(B2: $B$3$N%3%^%s%I$ONN0h$rIT3h@-$K$7$^$9!#$7$?$,$C$F!":F$SFCDj$NNN(B
+     $B0h$K$"$k2hA|$@$1$rI=<($7$?$$$J$i$P!"$b$&0lEY$=$NNN0h$r@_Dj$7$J$1$l(B
+     $B$P$J$j$^$;$s!#(B
+
+`t' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`i' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B%+!<%=%k$N>l=j$K$"$kC10l$N2hA|$NI=<($r%H%0%k$G@Z$jBX$($^$9(B
+     (`w3m-toggle-inline-image')$B!#(B`transient-mark-mode' $B$,(B on $B$G!"$+$D(B
+     $BNN0h$,@_Dj$5$l$F$$$k>l9g$K8B$C$F!"$=$NNN0hFb$K$"$k2hA|$@$1$,(B on $B$K(B
+     $B$J$j$^$9!#(B`Info-like' $B%-!<%^%C%W$K$D$$$F$O!"$b$7(B Emacs $B$,2hA|I=<((B
+     $B$r%5%]!<%H$7$J$$$J$i$P!"$3$N%-!<$O30It%S%e!<%o$r5/F0$9$k%3%^%s%I(B
+     (`w3m-view-image') $B$K%P%$%s%I$5$l$^$9!#(B
+
+`M-S-t' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`M-S-i' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B8=:_$N%P%C%U%!$K$"$k$9$Y$F$N%$%s%i%$%s2hA|$NI=<($r<h$j;_$a$^$9!#(B
+     (`w3m-turnoff-inline-images')$B!#(B
+
+`I' (Lynx-like $A%-$B!<$A%^%C%W(B)
+     $B%]%$%s%H$N2<$K$"$k2hA|$r30It%S%e!<%o$G8+$^$9(B (`w3m-view-image')$B!#(B
+
+`M-i'
+     $B%]%$%s%H$N2<$K$"$k2hA|$r30It%U%!%$%k$K%;!<%V$7$^$9!#%G%U%)%k%H$NL>A0$O$=(B
+     $B$N2hA|$N85$NL>A0$G$9!#$=$l8N$K!"$[$H$s$I$N>l9g(B
+     $B$K(B `M-i <RET>' $B$O@5$7$$L>A0$G2hA|$r%;!<%V$9$k$G$7$g(B
+     $B$&(B (`w3m-save-image')$B!#(B
+
+`M-['
+     $B%]%$%s%H$N2<$K$"$k2hA|$r=L>.(B (zoom out) $B$7$^$9(B
+     (`w3m-zoom-out-image')$B!#(B
+
+`M-]'
+     $B%]%$%s%H$N2<$K$"$k2hA|$r3HBg(B (zoom in) $B$7$^$9(B
+     (`w3m-zoom-in-image')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Tracing History, Next: Managing Bookmarks, Prev: Inline Images, Up: Basic Usage
+
+$(GUk$A?U$r$(IJ&$A$k(B
+==========
+
+Emacs-w3m $B$K$O!"0JA0$KK,Ld$7$?$9$Y$F$N%Z!<%8$N%j%9%H$rDs<($9$k$?$a$N!"(B
+2$B$D$NJ}K!$,$"$j$^$9!#Bh0l$NJ}K!$O!V(Bemacs-w3m $B$NMzNr!W(B(emacs-w3m
+history) $B$HC1=c$K8F$P$l$k$b$N$G!"$=$N%;%C%7%g%s(B ($BCm(B: $B$=$N%P%C%U%!Fb$G9T(B
+$B$J$&A`:n$H$=$l$KBP$9$kH?1~(B) $B$K$*$$$FK,Ld$7$?%Z!<%8$N%j%9%H$r3,AXE*$KDs(B
+$B<($7$^$9!#$9$J$o$A!"$"$k%j%s%/$r$?$I$k$H!"$=$l$^$G$N%Z!<%8$O9T$-@h$N(B
+$B!V?F!W$K$J$j$^$9!#$=$l$O!"K,$l$?%Z!<%8$N@W$r$?$I$C$?$j!"MzNr$,D9$/$J$C(B
+$B$F$7$^$C$?>l9g$K$I$3$+$iCe$?$+$r;W$$=P$9$?$a$K$O!"$?$$$X$sET9g$NNI$$$b(B
+$B$N$G$9!#(B
+
+$B$3$l$O!"(BGNU $B%W%m%8%'%/%H$N%[!<%`%Z!<%8$r$A$g$C$HK,$M$?8e$K$*$1$k!"$3$N(B
+$B5!G=$NF0:n$NNc$G$9(B:
+
+     GNU's Not Unix! - the GNU Project and the Free Software Foundation (FSF)
+       Philosophy of the GNU Project - Free Software Foundation (FSF)
+         GNU Emacs - GNU Project - Free Software Foundation (FSF)
+          Order from the Free Software Foundation (FSF)
+       Links to Other Free Software Sites - GNU Project - Free Software Fo...
+         EFF: Homepage
+
+($B<B:]$K$O!"$3$NNc$O(B 72 $B7e$K<}$^$k$h$&$K!">/$7$P$+$jJT=8$5$l$F$$$^$9!#8=(B
+$B<B$N(B emacs-w3m $B%P%C%U%!$G$O(B URLs $B$O@Z$j5M$a$i$l$^$;$s!#(B)
+
+$B$I$N(B emacs-w3m $B%P%C%U%!$+$i$G$b(B `s' $B%-!<(B (`Info-like' $B%-!<%^%C%W$N>l9g(B
+$B$O(B `o' $B%-!<(B) $B$r;H$&$3$H$K$h$C$F!"$3$N$h$&$JMzNr$rDs<($5$;$k$3$H$,2DG=$G(B
+$B$9!#(B
+
+$B$3$NMzNr$O%P%C%U%!!&%m!<%+%k!"$9$J$o$A!"$"$k(B emacs-w3m $B$N%P%C%U%!$K8GM-(B
+$B$N$b$N$G$"$k$3$H$KCm0U$7$F$/$@$5$$!#$G$b(B emacs-w3m $B$K$O%f%K!<%/$J5!G=$,(B
+$B$"$j$^$9(B: $B$"$J$?$,?7$7$$%Z!<%8$rK,Ld$9$k>l9g!"MzNr$O?7$7$$%P%C%U%!$K%3(B
+$B%T!<$5$l$^$9!#$=$N7k2L!"$=$l$^$G$KK,$l$?%Z!<%8$K:#$^$GDL$j%"%/%;%9$9$k(B
+$B$3$H$,$G$-$^$9!#$3$l$O!"(BMozilla $B$J$I$N!"?7$7$$%P%C%U%!$G$OMzNr$,>o$K%<(B
+$B%m$+$i%9%?!<%H$9$k%V%i%&%6$H$O0[$J$j$^$9!#(B
+
+Emacs-w3m $B$OC1$K$"$J$?$,K,$l$?%Z!<%8$r5-O?$9$k$@$1$G$J$/!"$"$J$?$,%Z!<%8(B
+$B$N@53N$JF1$8>l=j$XLa$j$?$$>l9g$K!"$=$l$i$N%Z!<%8$NCf$NFCDj$N0LCV$r5-O?$9(B
+$B$k$3$H$b$G$-$^$9!#(B`C-c C-@' $B$r2!$9$H!"%+!<%=%k$N0LCV$,MzNr$KEP(B
+$BO?$5$l$^$9!#0JA0$K5-O?$7$?0LCV$X0\F0$9$k$K$O!"$=$N%Z!<%8$r3+$$(B
+$B$?(B emacs-w3m $B$N%P%C%U%!$G(B `C-c C-v' $B$r2!$7$F$/$@$5$$!#(B
+
+`s' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`C-u s' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`o' (Info-like $A%-$B!<$A%^%C%W(B)
+`C-u o' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B$3$N%;%C%7%g%s$K$*$$$FK,Ld$7$?(B URLs $B$N%j%9%H$rI=<($7$^$9!#@\F,0z?t(B
+     $BIU$-$G8F$P$l$k$H(B ($B8e=R(B)$B!"Be$o$j$K(B arrived URLs $B$rI=<($7$^$9(B
+     (`w3m-history')$B!#(B
+
+`C-c C-@'
+`C-c C-<SPC>'
+     $B$=$N%Z!<%8$NCf$N%+!<%=%k$N0LCV$rMzNr$K5-O?$7$^$9!#(B
+
+`C-c C-v'
+     $B8=:_I=<($7$F$$$k%Z!<%8$K$*$$(B
+     $B$F!"(B`C-c C-@' (`w3m-history-store-position') $B$G5-21$7$?0L(B
+     $BCV$X0\F0$7$^$9!#(B
+
+$B$b$&0l$D$N2a5n$KK,$l$?%Z!<%8$K4X$9$k>pJs$r<j$KF~$l$kJ}K!$O!"!V(Barrived
+URLs$B!W$G$9!#$3$l$O$"$J$?$,(B emacs-w3m $B$GK,Ld$7$?!":G8e$N(B 500$B8D(B! $B$N(B URL
+$B$N%j%9%H$G$9!#%j%9%H$OF|IU=g$G!":G$b:G6a$N$b$N$r@hF,$K!"$=$l$>$l$N%Z!<(B
+$B%8$NK,Ld;~9o$,I=<($5$l$^$9!#$3$l$ONc$G$9(B (info $B$NI=<($,3H$,$j2a$.$J$$$h(B
+$B$&$KJT=8$5$l$F$$$^$9(B):
+
+     Order from the Free Software Foundation (FSF)             22:53:25
+     GNU Emacs - GNU Project - Free Software Foundation (FS    22:53:05
+     Philosophy of the GNU Project - Free Software Foundati... 22:52:46
+     Philosophy of the GNU Project - Free Software Foundati... 22:52:39
+     EFF: Homepage                                             22:52:18
+     Links to Other Free Software Sites - GNU Project - Fre... 22:52:07
+     Links to Other Free Software Sites - GNU Project - Fre... 22:52:07
+     GNU's Not Unix! - the GNU Project and the Free Softwar... 22:51:32
+     Bookmarks                                                 22:51:02
+     The DICT Development Group- upwards                       2003-01-08
+     the monkey puzzle: new debian packages as an rss feed     2003-01-08
+     new-debian-packages.rss                                   2003-01-07
+     it's a miracle                                            2003-01-06
+
+$BA0$N%3%^%s%I$K@\F,0z?t$rEO$9!"$9$J$o$A(B `C-u s'
+(`Info-like' $B%-!<%^%C%W$N>l9g$O(B `C-u o') $B$r;H$&$3$H$K$h$C$F!"(B
+$B$3$NMzNr$rF@$k$3$H$,$G$-$^$9!#$3$N%Z!<%8$KI=<($5$l$k(B URLs $B$N?t$O%+%9%?%^(B
+$B%$%:$G$-$^$9!#JQ?t(B `w3m-keep-arrived-urls' $B$r;2>H$7$F$/$@$5$$!#$=$l(B
+$B$O%G%U%)%k%H$G$O(B 500 $B$r1[$($k$3$H$O$G$-$^$;$s!#(B*Note Customizable Variables::.
+
+$B$b$A$m$s!"$9$Y$F$N>l9g$K!"Nc$K<($5$l$F$$$k$9$Y$F$N9T$O%j%s%/$G$9!#$=$N(B
+$B%j%s%/$r$?$I$k$3$H$K$h$C$F!"DL>o$N%Z!<%8$rK,Ld$7$F$$$?$i$A$g$&$I$=$&$J(B
+$B$k$h$&$K!"0JA0$KK,$M$?$I$N%Z!<%8$K$b9T$/$3$H$,$G$-$^$9!#(B
+
+*Note Moving over pages:: $B$N9`$b8+$F$/$@$5$$!#$=$3$G$O!VLa$k!W!V?J$`!W(B
+$B$J$I$N5!G=$K3d$jEv$F$i$l$?C1=c$J%-!<$G!"MzNr$NCf$r0\F0$9$k$d$jJ}$r@bL@(B
+$B$7$F$$$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Managing Bookmarks, Next: Using Tabs, Prev: Tracing History, Up: Basic Usage
+
+$A$\$/$N(B/$A$o$?$7$N$*$B5$$A$KHk$j(B
+=========================
+
+$B8=BeE*$J$"$^$?$N%V%i%&%6$NNc$KO3$l$:!"(Bemacs-w3m $B$K$O@h?J$N%V%C%/%^!<%/(B
+$B$N5!G=$,$"$j$^$9!#$=$l$K$h$C$F%+%F%4%j!<Kh$KJ,N`$7!"$=$l$i$rJT=8$7!"$"(B
+$B$"!"$b$A$m$s4JC1$K1\Mw$9$k$3$H$,$G$-$^$9!#(B
+
+$BF|K\8lHGCm<a(B: $B%V%C%/%^!<%/$N8l8;$O!"K\$K64$`[Y(B ($B$7$*$j(B) $B$N$3$H$G$9!#(B
+
+* Menu:
+
+* Adding Bookmarks::            $B$*5$$KF~$j$K(B URL $B$r2C$($k(B
+* Consulting Bookmarks::        $B%V%C%/%^!<%/$r1\Mw$9$k(B
+* Editing Bookmarks::           $B%V%C%/%^!<%/$rJQ99$9$k$K$O(B?
+
+
+
+File: emacs-w3m-ja.info, Node: Adding Bookmarks, Next: Consulting Bookmarks, Prev: Managing Bookmarks, Up: Managing Bookmarks
+
+$A$*$B5$$A$KHk$j$K(B URL $A$r<S$($k(B
+-------------------------
+
+$B%V%C%/%^!<%/$K(B URL $B$r2C$($k$K$O!"$$$/$D$+$N$d$jJ}$,$"$j$^$9!#:G=i$N0l$D(B
+$B$O!"(B`a' $B%-!<$r;H$C$F(B ($B$^$?$O(B `w3m-bookmark-add-current-url' $B%3%^%s%I$r(B
+$B8F$s$G(B) $B:#8=:_1\Mw$7$F$$$k%Z!<%8$r2C$($k$3$H$G$9!#$9$k$H!"$=$N%V%C%/%^!<(B
+$B%/$r$I$N9`L\$KF~$l$k$+$r?R$M$i$l(B (`<TAB>' $B%-!<$K$h$kJd40$,8z$-$^$9(B)$B!"%?(B
+$B%$%H%k$N=q$-49$($,B%$5$l$^$9(B ($B%G%U%)%k%H$O!"$=$N%Z!<%8$N%?%$%H%k$K$J$C(B
+$B$F$$$^$9(B)$B!#$3$l$i$NFs$D$r$3$J$7$?$i!"$=$l$i$rM-8z$K$9$k$?$a$K(B `<RET>'
+$B$rC!$$$F$/$@$5$$!#$9$k$H(B "Added" $B$H$$$&%a%C%;!<%8$,%_%K%P%C%U%!$K8=$l$F!"(B
+($B6C$/$J$+$l(B!) $B$=$N%Z!<%8$,%V%C%/%^!<%/$K5-O?$5$l$^$9!#(B
+
+$B%V%C%/%^!<%/$r2C$($k$b$&0l$D$NJ}K!$O!"(B`M-a' $B$r;H$&(B ($B$^$?$O(B
+`w3m-bookmark-add-this-url' $B%3%^%s%I$r8F$V(B) $B$3$H$G$9!#$3$l$O!"8=:_0LCV(B
+$B$N(B URL ($B$b$7$=$N%j%s%/$r$?$I$k$H!"1\Mw$9$k$3$H$,$G$-$k(B URL) $B$r%V%C%/%^!<(B
+$B%/$K2C$($^$9!#$=$N>l9g$G$b:G=i$K@bL@$7$?J}K!$HF1MM$K!"9`L\$NL>A0$H%?%$(B
+$B%H%k$rF~NO$7$J$1$l$P$J$j$^$;$s!#$=$N$H$-!"$=$l$i$N%G%U%)%k%H$O%j%s%/<+(B
+$BBN$NL>A0$K$J$C$F$$$^$9!#(B
+
+$B:G8e$K!";0HVL\$NJ}K!$O(B `C-u a' $B$rC!$/$3$H$G$9!#$3$N$H$-$O!"%V%C(B
+$B%/%^!<%/$K2C$($k(B URL$B!"$=$N9`L\!"$*$h$S%?%$%H%k$NF~NO$,B%$5$l$^$9!#(B
+
+`a'
+     $B8=:_$N%Z!<%8$r%V%C%/%^!<%/$K2C$($^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g$O!"(B
+     $B2C$($k(B URL $B$NF~NO$,5a$a$i$l$^$9(B (`w3m-bookmark-add-current-url')$B!#(B
+
+`M-a'
+     $B8=:_0LCV$N(B URL $B$r%V%C%/%^!<%/$K2C$($^$9(B
+     (`w3m-bookmark-add-this-url')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Consulting Bookmarks, Next: Editing Bookmarks, Prev: Adding Bookmarks, Up: Managing Bookmarks
+
+$A%V%C%/%^$B!<$A%/$r$(IOURf$A$9$k(B
+----------------------
+
+$B%V%C%/%^!<%/$5$l$?%Z!<%8$r1\Mw$9$k:G$b4JC1$JJ}K!$O!"(Bemacs-w3m $B$N%P%C%U%!(B
+$B$G(B `v' $B%-!<$rC!$/$3$H$G$9!#$G$9$,$b$&0l$D!"FCJL$J(B URL $B$G$"$k(B
+`about://bookmark/' $B$K9T$/$3$H$K$h$C$F$b2DG=$G$9!#$9$k$H0l9T$"$?$j0l$D(B
+$B$:$D$N%V%C%/%^!<%/$,!"9`L\$4$H$K$^$H$a$i$l$FI=<($5$l$k$G$7$g$&!#$=$3$G(B
+$B$O!"B>$N%Z!<%8$r1\Mw$9$k$N$HF1$8$h$&$K!"$=$l$i$r3N<B$K1\Mw$9$k$3$H$,$G(B
+$B$-$^$9!#(B
+
+$B%V%C%/%^!<%/$N%Z!<%8$G$O(B bookmark $B%^%$%J!<%b!<%I$,F/$$$F$$$^$9!#$=$l$O!"(B
+$B%V%C%/%^!<%/$rJT=8$9$k$?$a$N%-!<%P%$%s%I$rDI2C$7$^$9!#(B*Note Editing
+Bookmarks::.
+
+`v'
+     $B%V%C%/%^!<%/$N%Z!<%8$r8F$S=P$7$^$9(B (`w3m-bookmark-view')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Editing Bookmarks, Prev: Consulting Bookmarks, Up: Managing Bookmarks
+
+$A%V%C%/%^$B!<$A%/$r$(I+y$A8|$9$k$K$O(B?
+---------------------------
+
+Bookmark $B%^%$%J!<%b!<%I(B (*Note Consulting Bookmarks::) $B$O!"%V%C%/%^!<%/(B
+$B$rJT=8$9$k$?$a$K$$$/$D$+$N%-!<%P%$%s%I$r@_$1$F$$$^$9!#Cf$G$b%V%C%/%^!<(B
+$B%/$r(B kill ($B$9$J$o$A>C5n(B) $B$9$k$?$a$N(B `C-k' $B$H%V%C%/%^!<%/!&%U%!%$%k$rJT(B
+$B=8$9$k$?$a$N(B `E' (`Info-like' $B%-!<%^%C%W$N>l9g$O(B `e') $B$O!":G$bCmL\$KCM(B
+$B$7$^$9!#(B
+
+$B%V%C%/%^!<%/$O(B HTML $B%U%!%$%k$K<}$a$i$l$F$$$^$9!#$7$?$,$C$F$=$N%U%!%$%k(B
+$B$O<j$GJT=8$9$k$3$H$,$G$-$^$9$,!"==J,$KCm0U$7$F$/$@$5$$!#(Bemacs-w3m $B$,9`(B
+$BL\L>$rG'<1$9$k$?$a$KI,MW$J%3%a%s%H$r>C$7$F$7$^$&$3$H$K$h$C$F!"$b$N$4$H(B
+$B$O4JC1$KBfL5$7$K$J$j$^$9!#$"$J$?$,(B HTML $B$N4pK\$rCN$C$F$$$l$P!"$`$7$m$=(B
+$B$N%U%!%$%k$NCf?H$O6K$a$FJ,$+$j0W$$$b$N$G$7$g$&!#(B
+
+`C-k'
+     $B8=:_0LCV$N%V%C%/%^!<%/$r(B kill $B$7$^$9(B (`w3m-bookmark-kill-entry')$B!#(B
+
+`E'
+     $B%V%C%/%^!<%/!&%U%!%$%k$rFI$_9~$s$G!"JT=82DG=$J>uBV$K$7$^$9(B
+     (`w3m-bookmark-edit')$B!#(B
+
+`C-_'
+     $B$d$jD>$7$r$7$^$9(B (`w3m-bookmark-undo')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Using Tabs, Next: Working with buffers, Prev: Managing Bookmarks, Up: Basic Usage
+
+$A$_$s$J%?%V$,:C$-$@$h$M(B
+======================
+
+$B$[$H$s$I$NB>$N%F%-%9%H%Y!<%9$N%V%i%&%6!<$H0[$J$j!"(Bemacs-w3m $B$O%?%V$K$h(B
+$B$k1\Mw$r%5%]!<%H$7$F$$$^$9!#%?%V$K$h$k1\Mw$C$F2?(B? $B$H?R$M$i$l$=$&$G$9$M!#(B
+$B$=$l$O$H$F$bC1=c$G!"%&%#%s%I%&$N$F$C$Z$s$N9T$K$9$Y$F$N%P%C%U%!$rC1=c$+(B
+$B$DJ,$+$j$d$9$$$d$jJ}$GI=<($9$k$3$H$K$h$C$F!"C10l$N%&%#%s%I%%$G$9$Y$F$N(B
+emacs-w3m $B$N%P%C%U%!$rI=8=$9$kJ}K!$G$9!#$=$l$>$l$N%P%C%U%!$O!V%?%V!W$H(B
+$B$7$FI=<($5$l$^$9!#$3$N9T$O!"B>$N%P%C%U%!$K0\F0$7$?$j!"%Z!<%8$N>uBV$rCN(B
+$B$k$3$H$,$G$-$k$h$&$K$9$k$?$a$K>o$K8+$($?$^$^$K$J$C$F$$$F!"%P%C%U%!$K$D(B
+$B$i$l$F%9%/%m!<%k$7$^$;$s!#(B
+
+$B$=$N46?($r$D$+$`:G$b4JC1$JJ}K!$O!"C1$K;n$7$F$_$k$3$H$G$9!#$G$9$+$i!"0z(B
+$B$-B3$$$F(B emacs-w3m $B$N%;%C%7%g%s$r;O$a$F$/$@$5$$!#2?$b@_DjJQ99$r$7$F$$$J(B
+$B$1$l$P!"%G%U%)%k%H$G%?%V$N9T$,8=$l$^$9!#$F$C$Z$s$G!">.$5$J;M3Q$K8=:_$N(B
+$B%Z!<%8$N%?%$%H%k$rI=<($7$F$$$kL@$k$$9T$,$=$l$G$9!#$G$O(B ($BNc$($P(B `G' $B$G(B)
+$BJL$N(B w3m $B%P%C%U%!$r:n$C$F$_$^$7$g$&!#$9$k$H;M3Q$,Fs$D$K$J$C$?$G$7$g$&!#(B
+$B$=$l$i$,%?%V$G$9!#(B
+
+$B$b$C$H$bJ,$+$j$d$9$$%?%V$N;H$$F;$O@Z$jBX$($G$9(B: $B%?%V$N>e$G(B `mouse-1' $B%\(B
+$B%?%s$r%/%j%C%/$9$k$3$H$K$h$C$F!"$=$N%P%C%U%!$rI=<($5$;$k$3$H$,$G$-$^$9!#(B
+$B$5$i$K(B `mouse-2' $B%\%?%s$G$b!"$^$?$O(B GNU Emacs $B$G$O%^%&%9%[%$!<%k$G$bF0(B
+$B:n$7$^$9!#$3$l$O!"J#?t$N(B emacs-w3m $B%P%C%U%!$r;H$&$?$a$N!"Hs>o$KB.$/$F4J(B
+$BC1$JJ}K!$G$9!#C1$K;X$7<($7$F%/%j%C%/$9$k$+!"%^%&%9%[%$!<%k$r%/%k%/%k$9(B
+$B$l$PNI$$$N$G$9$+$i!#(B($B$O$$$O$$!"$"$J$?$rL5;k$7$F$$$^$;$s$h!#$"$J$?$O%-!<(B
+$B%\!<%I$r;H$C$F@Z$jBX$($?$$$N$G$9$M!#$4?4G[L5$/!#$=$l$b2DG=$G$9!#<!$N@a(B
+$B$G@bL@$7$^$9$+$i!"L[$C$FFI$_B3$1$F$/$@$5$$(B!)
+
+$B$b$&0l$D$N5$$,Mx$$$?5!G=$O!"%Z!<%8$N>uBV$rCN$i$;$k$3$H$G$9!#%+%i!<C<Kv(B
+$B$+%&%#%s%I%%%7%9%F%`$r;H$C$F$$$l$P!"%Z!<%8$N>uBV$rCN$i$;$k$?$a$K(B
+emacs-w3m $B$O0c$&?'$G%F%-%9%H$r%?%V$KI=<($7$^$9(B (1) (*Note Using
+Tabs-Footnotes::)$B!#Nc$($P%Y!<%8$r<h$j9~$s$G$$$k:GCf$O%F%-%9%H$O@V$/$J$C(B
+$B$F$$$F!"<h$j9~$_$,40N;$9$k$H%G%U%)%k%H$N?'(B ($BDL>o$O9u(B) $B$KLa$j$^$9!#$3$l(B
+$B$K$h$j!"8+$h$&$H;W$C$FBT$C$F$$$k%Z!<%8$,E~Ce$7$?$+$I$&$+$,!"%?%V9T$r0l(B
+$BL\8+$?$@$1$GJ,$+$j$^$9!#(B
+
+$B:G8e$K!"$b$7%&%'%V%Z!<%8$,(B favicon $B$r;}$C$F$$$l$P!"$=$l$b%?%V$KI=<($5$l(B
+$B$^$9(B (2) (*Note Using Tabs-Footnotes::)$B!#(BEmacs-w3m $B%f!<%6$K$b$C$H;k3P8z(B
+$B2L$r(B!
+
+$B%f!<%6%*%W%7%g%s(B:
+
+`w3m-use-tab'
+     $B%?%V$K$h$k1\Mw$r3h$+$9$+$I$&$+!#(B
+
+$B$"$J$?$,(B GNU Emacs $B$N%f!<%6!<$J$i$P!"%^%&%9%[%$!<%k$r;H$&$H!"NY$N%P%C%U%!(B
+$B$K9T$/$@$1$G$J$/!"%P%C%U%!$rNY$N>l=j$K0\F0$5$;$k$3$H$b$G$-$^$9!#$=$l$K(B
+$B$O%?%V9T$N>e$G%^%&%9%[%$!<%k$r2s$94V!"%3%s%H%m!<%k!&%-!<$r2!$72<$2$F$*(B
+$B$$$F$/$@$5$$!#%^%&%9%[%$!<%k$K$h$C$F(B emacs-w3m $B$,$I$N$h$&$KF0:n$9$k$+$r(B
+$B@)8f$9$kFs$D$NJQ?t$,$"$j$^$9(B:
+
+`w3m-tab-track-mouse'
+     $B$3$NJQ?t$O!"%^%&%9$,A*Br$7$?%?%V$rDI$$$+$1$F0\F0$9$k$+$I$&$+$r@)8f(B
+     $B$7$^$9!#%G%U%)%k%HCM$O(B `t' $B$G$9!#$b$7%W%m%]!<%7%g%J%k$J%U%)%s%H$r(B
+     $B%?%V$N%U%'!<%9$K;H$C$F$$$k$J$i$P!"$3$l$r(B `nil' $B$K@_Dj$9$kI,MW$,$"(B
+     $B$k$+$b$7$l$^$;$s!#(B`w3m-tab-mouse-position-adjuster' $B$b8+$F$/$@$5$$!#(B
+
+`w3m-tab-mouse-position-adjuster'
+     $B$3$NJQ?t$O!"%^%&%9%]%$%s%?!<$,A*Br$7$?%?%V$rDI$$$+$1$F0\F0$9$k$H$-(B
+     $B$N%^%&%9$N0LCV$rD4@0$9$k$?$a$NCM$r4^$s$G$$$^$9!#%G%U%)%k%HCM$O(B
+     `(0.5 . -4)' $B$G$9!#$3$l$OIbF0>/?t(B M $B$H@0?t(B N $B$N%3%s%9!&%;%k$G!"%^(B
+     $B%&%9$N0LCV(B ($B%T%/%;%k?t$GM?$($i$l$^$9(B) $B$N7W;;$K0J2<$N$h$&$KE,MQ$5$l(B
+     $B$^$9(B:
+
+          (TAB_WIDTH + M) * ORDER + N
+
+     $B$3$3$G(B TAB_WIDTH $B$O0l$D$N%?%V$N%T%/%;%kI}!"(BORDER $B$O2?HVL\$N%?%V$+(B
+     $B$rI=$7$^$9!#7k2L$N>/?t0J2<$O@Z$j<N$F$i$l$^$9!#(B
+
+     $B$b$7%?%V$N%U%'!<%9$K%W%m%]!<%7%g%J%k$J%U%)%s%H$r;H$C$F$$$k$H!"$3$N(B
+     $B7W;;$O>o$K<:GT$9$k$G$7$g$&!#(B`w3m-tab-track-mouse' $B$b;2>H$7$F$/$@$5(B
+     $B$$!#(B
+
+
+File: emacs-w3m-ja.info  Node: Using Tabs-Footnotes, Up: Using Tabs
+
+(1) XEmacs $A$O$9$Y$F$N%?%V$r$$$D$bM,$8I+$G1mJ>$7$^$9$,!"$(GrY$(I&1$A$5$l$?%?%V$H(B
+$AK{$N$b$N$rGx$(GI1$A$7$?$j!"%b$B!<$A%I%i%$%s$G$(G\"$ATZ$N%Z$B!<$A%8$NW4$(Ghh$A$rV*$k$3$H$O$(Gv|$(I+J(B
+$A$G$9!#(B
+
+(2) XEmacs $A$G$O=q$N$H$3$m%?%VPP$K(B favicon $A$O1mJ>$5$l$^$;$s!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Working with buffers, Next: Downloading, Prev: Using Tabs, Up: Basic Usage
+
+$A%P%C%U%!$rWw$k(B/$AO{$9(B/$ARF$(GY/$A$9$k(B
+============================
+
+$BCY$+$lAa$+$l$"$J$?$O(B emacs-w3m $BCfFG$K$J$C$F!"$9$Y$F$N%&%'%V$N1\Mw$r$=$l(B
+$B$GOE$o$J$1$l$P$J$i$J$/$J$k$G$7$g$&!#$"$J$?$,$a$2$F$7$^$$$=$&$J$3$NG$L3(B
+$B$r<jEA$&$?$a$K!"(Bemacs-w3m $B$N%P%C%U%!$GF0:n$9$k$?$/$5$s$N0c$&<jCJ$r9M$((B
+$B$^$7$?!#(B
+
+* Menu:
+
+* Creating and killing buffers:: $B%P%C%U%!$r:n$C$?$j>C$7$?$j(B
+* Moving across buffers::        $B%P%C%U%!4V$N0\F0(B
+* Selecting buffers::            $B%j%9%H$+$i%P%C%U%!$rA*$V(B
+
+
+
+File: emacs-w3m-ja.info, Node: Creating and killing buffers, Next: Moving across buffers, Prev: Working with buffers, Up: Working with buffers
+
+$A%P%C%U%!$rWw$C$?$jO{$7$?$j(B
+--------------------------
+
+$B;~$K!"%&%'%V%Z!<%8$r3+$+$J$$$GC1$K?7$7$$%P%C%U%!$r:n$k$3$H$,Lr$KN)$D$3(B
+$B$H$,$"$j$^$9!#$3$NA`:n$r(B emacs-w3m $B$NMQ8l$G$O!V$U$?$4$N%3%T!<$r:n$k!W(B
+(creating a twin copy) $B$H8@$$$^$9!#$3$l$OC1$K!"$=$NFbMF$,8=:_$N%P%C%U%!(B
+$B$HF10l$J?7$7$$%P%C%U%!$r:n$j$^$9!#(B
+
+$B$3$NH?BP$O%P%C%U%!$rJD$8$k$3$H$G!":#$O$=$NFbMF$K6=L#$,L5$$0l$D$N%P%C%U%!(B
+$B$r!"C1$KJD$8$k$3$H$,$G$-$^$9!#$"$k$$$O!"8=:_$N%P%C%U%!0J30$N$9$Y$F$rJD(B
+$B$8$k$3$H$r7hCG$7$F$bNI$$$G$9!#0J2<$N%3%^%s%I$G$=$l$r9T$J$C$F$/$@$5$$(B:
+
+`C-c C-t'
+`M-n'
+     $B8=:_$N%P%C%U%!$HF10l$N%3%T!<$r?7$7$$L>A0$G:n$j$^$9!#$3$l$O?7$7$$%P%C(B
+     $B%U%!$K%&%'%V%Z!<%8$r<h$j9~$^$:$K!"?7$7$$%;%C%7%g%s$r;O$a$k$N$K;H$$(B
+     $B$^$9(B (`w3m-copy-buffer')$B!#(B
+
+`C-c C-w'
+     $B8=:_$N(B emacs-w3m $B$N%P%C%U%!$rJD$8$^$9(B (`w3m-delete-buffer')$B!#(B
+
+`C-c M-w'
+     $B8=:_$N$b$N0J30$N$9$Y$F$N(B emacs-w3m $B$N%P%C%U%!$rJD$8$^$9(B
+     (`w3m-delete-other-buffers')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Moving across buffers, Next: Selecting buffers, Prev: Creating and killing buffers, Up: Working with buffers
+
+$A%P%C%U%!$(Gbf$A$NRF$(GY/(B
+----------------
+
+$B:G$bIQHK$K;H$&%3%^%s%I$,$?$V$sNY$N%P%C%U%!$K9T$/$b$N$G$"$m$&$3$H$O!"@$4V(B
+$B$NG'$a$k$H$3$m$G$7$g$&!#$=$l$O!"8=:_$N!V8e!W$+!VA0!W$N%P%C%U%!$G$9!#$3$N(B
+$B0UL#$O%?%V$r;H$C$F$_$l$P$h$/$o$+$j$^$9!#<!$N%P%C%U%!$O8=:_$N1&B&$N0l$D8e!"(B
+$BA0$N%P%C%U%!$O:8B&$G$9!#$7$+$7!";DG0$J$,$i(B XEmacs $B$O%?%V$r=gITF1$KI=<($9(B
+$B$k$N$G!"$I$l$,NY$N%P%C%U%!$+$rCN$k$K$O!"3F%?%V$KI=<($5$l$F$$$k?t;z$KCmL\(B
+$B$9$kI,MW$,$"$j$^$9!#$3$l$i$N%3%^%s%I$K3d$jEv$F$i$l$F$$$k%-!<(B
+$B$O(B `C-c C-p' $B$H(B `C-c C-n' $B$G$9!#(B
+
+$B$3$l$i$N%3%^%s%I$O?t;z@\F,0z?t$N=,47$rM}2r$7$^$9!#$9$J$o$A!"$=$l$i$r?t(B
+N $B$r0z?t$H$7$F8F$V$H!"8=:_$N%P%C%U%!$+$i(B N $B8DN%$l$?%P%C%U%!$K9T$-$^$9!#(B
+$BNc$($P!"8=:_0LCV$+$i1&$K%P%C%U%!$rFs8DJ,(B ($B$9$J$o$A%P%C%U%!Fs8DJ,$@$1<!(B
+$B$K(B) $B0\F0$9$k$K$O!"(B`2 C-c C-n' $B$r;H$C$F$/$@$5$$(B (1) (*Note Moving
+across buffers-Footnotes::)$B!#(B
+
+`C-c C-p'
+     $BA0$N(B emacs-w3m $B%P%C%U%!$K0\F0$7$^$9!#$3$l$ODL>o%?%V9T$K$*$$$F:8J}(B
+     $B8~$K<!$G$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%P%C%U%!$r(B N $B8DJ,A0$K0\F0$7(B
+     $B$^$9(B (`w3m-previous-buffer')$B!#(B
+
+`C-c C-n'
+     $B<!$N(B emacs-w3m $B%P%C%U%!$K0\F0$7$^$9!#$3$l$ODL>o%?%V9T$K$*$$$F1&J}(B
+     $B8~$K<!$G$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%P%C%U%!$r(B N $B8DJ,<!$K0\F0$7(B
+     $B$^$9(B (`w3m-next-buffer')$B!#(B
+
+$B$"$J$?$,(B GNU Emacs $B$N%f!<%6!<$J$i$P!"0J2<$N%3%^%s%I$r;H$C$F(B emacs-w3m
+$B%P%C%U%!$r%?%V9T$NNY$N>l=j$K0\F0$5$;$k$3$H$b$G$-$^$9(B:
+
+`C-c C-.'
+`C-c C->'
+     $BA*Br$5$l$F$$$k(B emacs-w3m $B%P%C%U%!$r!"%?%V9T$N1&NY$N>l=j$K0\F0$5$;(B
+     $B$^$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%?%V$N(B N $B8DJ,1&$K0\F0$5$;$^$9(B
+     (`w3m-tab-move-right')$B!#(B
+
+`C-c C-,'
+`C-c C-<'
+     $BA*Br$5$l$F$$$k(B emacs-w3m $B%P%C%U%!$r!"%?%V9T$N:8NY$N>l=j$K0\F0$5$;(B
+     $B$^$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%?%V$N(B N $B8DJ,:8$K0\F0$5$;$^$9(B
+     (`w3m-tab-move-left')$B!#(B
+
+$B;d$?$A$,9|$r@^$C$?$K$b$+$+$o$i$:!"$3$l$i$N%3%^%s%I$,$*5$$K>$$5$J$$$J$i(B
+$B$P!"$"$J$?$,M_$7$$$b$N$,(B ibuffer $B$d(B iswitchb $B$N$h$&$JK|G=;V8~$N?M(B
+(generalist) $B8~$1$N%P%C%U%!4IM}%Q%C%1!<%8$NCf$K$"$k$+$I$&$+$rC5$7$F$_$k(B
+$B$N$bNI$$$+$b$7$l$^$;$s!#(Bemacs-w3m $B%P%C%U%!$O(B Emacs $B$N@55,$N%P%C%U%!$G$9(B
+$B$+$i!"$=$l$i$b$^$?NI9%$KF0:n$9$k$G$7$g$&!#(B
+
+
+File: emacs-w3m-ja.info  Node: Moving across buffers-Footnotes, Up: Moving across buffers
+
+(1) $A$$$D$b$N$h$&$K!"(B`2 C-c C-n' $A$N4z$o$j$K(B `C-u 2 C-c
+C-n' $A$rJ9$C$F$bA<$$$N$G$9$,!"(Bemacs-w3m $A$N%P%C%U%!$G$O$9$Y$F$NJ}WV%-$B!<(B
+$A$H%^%$%J%9$(GX4$A:E$,J}$N=S$(Gs$$AR}J}$K8n$j51$F$i$l$F$$$k$3$H$r$(I>t$A$($F$*$$$F$/$@(B
+$A$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Selecting buffers, Prev: Moving across buffers, Up: Working with buffers
+
+$A%j%9%H$+$i%P%C%U%!$r$(GrY$A$V(B
+------------------------
+
+$B%j%9%H$+$i(B emacs-w3m $B$N%P%C%U%!$rA*$V$?$a$NFs$D$N$d$jJ}$,$"$j$^$9!#0l$D(B
+$BL\$O!"(B`C-c C-a' $B$G8F$S=P$5$l$k%_%K%P%C%U%!!&%Y!<%9$N%$%s%?!<%U%'!<(B
+$B%9$G$9!#I=<($7$?$$%P%C%U%!$r!"(B`M-p' $B$H(B `M-n' $B%-!<(B ($B$^$?(B
+$B$O(B <$A!|(B> $B$H(B <$A!}(B> $B%-!<(B) $B$r;H$C$FA*$V$3$H$,$G$-!"$=$l$i$O%j%9%H$NCf(B
+$B$G=[4D$7$^$9!#$^$?!"%W%m%s%W%H$rJT=8$7$F!"(B`<TAB>' $B$NJd40$r;H$C$F(B
+$B4{B8$N%&%'%V%Z!<%8$N%?%$%H%k$r=q$-9~$`$3$H$b$G$-$^$9!#Nc$($P!"(B"Google
+Search" $B$N%Z!<%8$r3+$$$F$"$k$J$i$P!"(B"Goo" $B$KB3$1$F(B `<TAB>' $B$r(B
+$BC!$/$3$H$K$h$C$F!"$=$N%Z!<%8$N%?%$%H%k$,40@.$7$^$9!#%Z!<%8$NL>A0$N8e$m$K(B
+$B$O!"(B($B803g8L$G64$^$l$?(B) $B%P%C%U%!$NL>A0$,IU$-$^$9!#$=$7(B
+$B$F(B `<RET>' $B$r;H$&$H!"$"$J$?$,A*$s$@%P%C%U%!$K@Z$jBX$o$j$^$9!#(B
+
+$BFs$DL\$N$b$C$H@vN}$5$l$?%$%s%?!<%U%'!<%9$O(B emacs-w3m $B%P%C%U%!%j%9%H$H8@(B
+$B$$!"(B`C-c C-s' $B$G5/F0$5$l$^$9!#$=$l$OJ,3d$5$l$?%&%#%s%I%%$K$9$Y$F(B
+$B$N3+$$$F$$$k%P%C%U%!$rI=<($7(B (`C-c C-s' $B$GI=<(7A<0$,@Z$jBX$o$j$^(B
+$B$9(B)$B!"<B;~4V$G%P%C%U%!$r8+$k$3$H$,$G$-$k$h$&$K$J$j$^$9!#$=$N%P%C%U%!%j%9(B
+$B%H$NCf$G%]%$%s%H$r0\F0$9$k$H!"%]%$%s%H$N$H$3$m$K$"$k%P%C%U%!$,<g%&%#%s%I%%(B
+$B$KI=<($5$l!"%P%C%U%!$N@Z$jBX$($,D>@\L\$K8+$($k7A$GJV$C$F$/$k$N$G$9!#(B
+
+$B%P%C%U%!%j%9%H$NCf$r0\F0$9$k$K$O(B `p' $B$H(B `n' $B%-!<(B ($B$^$?$OLp0u%-!<(B) $B$r;H$C(B
+$B$F$/$@$5$$!#%P%C%U%!%j%9%H$G$O(B `<DEL>' $B$H(B `<SPC>' $B$G!"<g%&%#%s%I%%$KI=(B
+$B<($5$l$F$$$k%P%C%U%!$r%9%/%m!<%k$5$;$k$3$H$,2DG=$G!"$3$l$O@5$7$$%P%C%U%!(B
+$B$r8+$F$$$k$+$I$&$+$r%A%'%C%/$7$?$$$H$-$KJXMx$G$9!#%]%$%s%H$N$H$3$m$K$"(B
+$B$k%P%C%U%!$rA*$S$?$$$H$-$O(B `<RET>' $B%-!<$r;H$C$F$/$@$5$$!#$3$N>l9g$O%P%C(B
+$B%U%!%j%9%H$,1#$5$l$^$9!#$"$k$$$O!"(B`w' $B%-!<$r;H$C$?>l9g$O%P%C%U%!%j%9%H(B
+$B$OI=<($5$l$?$^$^$G!"<g%&%#%s%I%%$K%U%)!<%+%9$7$^$9!#(B
+
+$B$^$?!"$3$N%a%K%e!<$GIaDL$N%P%C%U%!$G;H$o$l$k$N$HF1$8%-!<3d$jEv$F(B
+(*Note Creating and killing buffers::) $B$G!"%P%C%U%!$rJD$8$?$j:n$k$3$H$b(B
+$B$G$-$^$9!#(B
+
+$B:G8e$K!"(B`?' $B$O%X%k%W$NI=<(!"(B`g' $B$O%j%9%H$N:n$jD>$7!"$=$7$F(B `q' $B$O%P%C%U%!(B
+$B%j%9%H$N=*N;$r<g%&%#%s%I%%$N%P%C%U%!$OJQ99$;$:$K!"$=$l$>$l<B9T$7$^$9!#(B
+
+`C-c C-a'
+     $B%_%K%P%C%U%!$G%P%C%U%!L>$NF~NO$r5a$a$^$9!#(B`M-p' $B$H(B `M-n' $B$G4{B8$N(B
+     $B%P%C%U%!$,=[4D$7!"(B`<TAB>' $B$GJd40$G$-$^$9(B (`w3m-switch-buffer')$B!#(B
+
+`C-c C-s'
+     $BJ,3d$5$l$?%&%#%s%I%%$K%P%C%U%!%j%9%H$rI=<($7$^(B
+     $B$9(B (`w3m-select-buffer')$B!#$3$N%&%#%s%I%%$G$O(B `C-c C-s' $B$G?e(B
+     $BJ?$H?bD>%b!<%I$,@Z$jBX$o$j!"(B`<RET>' $B$G%]%$%s%H$N$H$3$m$K$"$k%P%C(B
+     $B%U%!$rA*$s$G%P%C%U%!%j%9%H$O1#JC!"(B`w' $B$G%]%$%s%H$N$H$3$m$K$"$k%P%C%U%!(B
+     $B$rA*$s$G$=$l$K%U%)!<%+%9!"(B`n' $B$H(B `p' $B$=$l$KLp0u%-!<$,>e2<$N0\F0(B
+     $B$K;H$($^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Downloading, Next: Submitting Forms, Prev: Working with buffers, Up: Basic Usage
+
+$A%U%!%$%k$r%@%&%s%m$B!<$A%I$9$k(B
+==========================
+
+$B$I$s$J%&%'%V%Z!<%8$d%U%!%$%k$b(B emacs-w3m $B$G%@%&%s%m!<%I(B ($B$9$J$o$A<hF@!"(B
+$BI=<($G$O$"$j$^$;$s(B) $B$G$-$^$9!#C1$K%@%&%s%m!<%I$7$?$$%j%s%/$K%]%$%s%H$r(B
+$BCV$$$F(B `d' $B$rC!$$$F$/$@$5$$!#%m!<%+%k$K%;!<%V$9$k%U%!%$%kL>$,?R$M$i$l$^(B
+$B$9!#%G%U%)%k%H$G$O1s3V%5!<%P!<$K$*$1$k%U%!%$%k$NL>A0$K$J$j$^$9!#$=$l$G(B
+$BNI$1$l$P(B `<RET>' $B$r2!$7$F$/$@$5$$!#%@%&%s%m!<%I$OHsF14|$K<B9T$5$l!"(B
+Emacs $B$G9T$J$C$F$$$kB>$N;E;v$N<YKb$r$7$J$$$N$G!"$=$&$7$?$1$l$PB>$N%P%C(B
+$B%U%!$G(B emacs-w3m $B$K$h$k1\Mw$rB3$1$k$3$H$,$G$-$^$9!#(B
+
+$B$3$N%@%&%s%m!<%I$N;EAH$_$O(B w3m $B$r;H$&$N$G$9$,!"Be$o$j$K$b$C$H6/NO$J(B
+wget $B$r;H$&$3$H$b9MN8$7$F$_$F$/$@$5$$!#;d$?$A$N$*M'$@$A%W%m%8%'%/%H$G$"(B
+$B$k(B "emacs-wget" $B$rGA$$$F$_$^$7$g$&!#$=$N%[!<%`%Z!<%8$O$3$3(B
+`http://pop-club.hp.infoseek.co.jp/emacs/emacs-wget/' $B$G$9!#(B
+
+`d' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`D' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B%]%$%s%H$N$H$3$m$K$"$k%j%s%/$,;X$7<($9%U%!%$%k$+%Z!<%8$r%@%&%s%m!<(B
+     $B%I$7$^$9(B (`w3m-download-this-url')$B!#(B
+
+`M-d' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`d' (Info-like $A%-$B!<$A%^%C%W(B)
+     URL $B$NFbMF$r%m!<%+%k%U%!%$%k$K%@%&%s%m!<%I$7$^$9(B (`w3m-download')$B!#(B
+     $B$=$N(B URL $B$H%m!<%+%k%U%!%$%k$NL>A0$NF~NO$r5a$a$i$l$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Submitting Forms, Next: HTML File Information, Prev: Downloading, Up: Basic Usage
+
+HTML $A%U%)$B!<$A%`$K$(GX4$AHk$9$k(B
+=======================
+
+$B$3$l$i$N(B emacs-w3m $B%3%^%s%I$O!"C1=c$J%-!<%P%$%s%I$H@lMQ$N(B Emacs $B$N%&%#(B
+$B%s%I%%$+%_%K%P%C%U%!$r;H$C$F!"%U%)!<%`$+$i%U%)!<%`$X$N0\F0$H%U%#!<%k%I(B
+$B$KF~NO$9$k$?$a$N5!G=$rDs6!$7$^$9!#(B
+
+$B3P$($F$*$$$FM_$7$$Bg;v$J%-!<%P%$%s%I$O(B `<RET>' $B$G$9!#$3$l$O8=:_0LCV$K$"(B
+$B$k$b$N$K$h$C$F0[$J$k0UL#$r;}$A$^$9!#%F%-%9%HNN0h(B (textarea) $B$G$O!"%_%K(B
+$B%P%C%U%!$GCM$rF~NO$9$k$3$H$,B%$5$l$^$9!#A*BrMQ$N%?%0$G$O!"A*Br;h$N%j%9(B
+$B%H$,(B Emacs $B$N%(%l%/%H%j%C%/(B (electric == $B<+8JA^F~(B) $B%&%#%s%I%%$K8=$l$^$9(B
+($B$=$3$G$OLp0u%-!<$G0\F0$7$F!"(B`<RET>' $B%-!<$G0l$D$rA*$V$3$H$,$G$-$^$9(B)$B!#(B
+$B%i%8%*%\%?%s$*$h$S%A%'%C%/%\%C%/%9$G$O(B `<RET>' $B%-!<$G$=$l$i$N$&$A$N0l$D(B
+$B$rA*$S$^$9!#(B
+
+$B%_%K%P%C%U%!$+%(%l%/%H%j%C%/!&%&%#%s%I%%$K$$$k$H$-$O!"(B
+`C-c C-q' $B%-!<$G<h$j>C$9$3$H$,$G$-$^$9!#%U%)!<%`$K5-F~$7$?$b$N$r(B
+$BAw$j=P$9$K$O(B `C-c C-c' $B$r;H$C$F$/$@$5$$!#(B
+
+`]'
+     $B<!$N%U%)!<%`$K%8%c%s%W$7$^$9(B (`w3m-next-form')$B!#(B
+
+`['
+     $BA0$N%U%)!<%`$K%8%c%s%W$7$^$9(B (`w3m-previous-form')$B!#(B
+
+`C-c C-c'
+     $B8=:_0LCV$N%U%)!<%`$K5-F~$7$?$b$N$rAw$j=P$7$^$9(B
+     (`w3m-submit-form')$B!#(B
+
+`<RET>'
+     $B8=:_0LCV$K$"$k$N%U%)!<%`CM$r=q$-49$($^$9!#(B
+
+`<RET>' (w3m-form-*-keymap)
+     $B$=$NCM$rA*Br$7$^$9!#(B
+
+`C-c C-q' (w3m-form-*-keymap)
+     $B%U%)!<%`$NJT=8$rCfCG$7$F!"JQ99$r<h$j;_$a$^$9!#(B
+
+`w3m-form-use-textarea-backup' $B$,(B `nil' $B$K@_Dj$5$l$F$$$J$+$C$?$i!"(B
+textarea $B$GF~NO$7$?%F%-%9%H$r8e$G:FMxMQ$G$-$k$h$&$K!"%P%C%/%"%C%W!&%U%!(B
+$B%$%k$K5-O?$7$^$9!#%U%)!<%`$NJT=8$r;O$a$k$H$-$K%P%C%/%"%C%W$5$l$?%F%-%9(B
+$B%H$,$"$C$?$i!"$=$l$r;H$&$+$I$&$+$r?R$M$i$l$k$G$7$g$&!#%F%-%9%H$rJ]B8$9(B
+$B$k$?$a$N%U%!%$%k$O!"JQ?t(B `w3m-form-textarea-directory' $B$G;XDj$5$l$k%G%#(B
+$B%l%/%H%j$K3JG<$5$l$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: HTML File Information, Prev: Submitting Forms, Up: Basic Usage
+
+$A%&%'%V%Z$B!<$A%8Ww$j$H%O%C%/$N$*JV$(H!s$A$$(B
+==================================
+
+$B$$$D$b%I%-%e%a%s%H$N<9I.4D6-$H$7$F!"$"$k$$$O%=%U%H%&%'%"$N3+H/4D6-$H$7(B
+$B$F(B Emacs $B$r;H$C$F$$$k?M$K$O!"F1$8$=$N4D6-$NCf$G%&%'%V$r1\Mw$G$-$k$3$H$O(B
+$BK\Ev$KJXMx$G$7$g$&!#Nc$($P(B HTML $B%U%!%$%k$r<9I.$7$F$$$k$N$G$"$l$P!"30It(B
+$B$N%&%'%V%V%i%&%6$r5/F0$9$kI,MW$J$/!"(BEmasc $B$NCf$G:n@.$7$?(B HTML $B%U%!%$%k(B
+$B$r%W%l%S%e!<$G$-$^$9!#%W%m%0%i%_%s%0!&%^%i%=%s$N:GCf$K!"?WB.$K5;=QJ88%(B
+$B$+$i%5%s%W%k%3!<%I$r@Z$jE=$j$9$k$H$$$C$?$3$H$@$C$F(B...
+
+$B5U$O$I$&$G$7$g$&!#(B($B$9$J$o$A%&%'%V1\Mw$N4D6-$G!"$=$N%=!<%9$G$"$k(B HTML $B%U%!(B
+$B%$%k$rJT=8$7$?$j!";2>H$7$?$j$G$-$?$i(B) $B$+$C$3$$$$$H;W$$$^$;$s$+!)(B $B%I%-%e(B
+$B%a%s%H$r<9I.Cf$K(B emacs-w3m $B$G2<8+(B (preview) $B$7$F8m;z$rH/8+$7$?$HA[A|$7(B
+$B$F$_$F$/$@$5$$!#$=$N(B HTML $B%U%!%$%k$r$?$A$I$3$m$K=$@5$7$?$/$J$k$O$:$G$9!#(B
+$B$"$J$?$,%&%'%V%F%/%N%m%8!<$K7H$o$k%W%m%0%i%^$J$i!"1\MwCf$N%&%'%V%Z!<%8(B
+$B$r(B HTML $B7A<0$G1\Mw$7$?$/$J$k$3$H$,$"$k$G$7$g$&!"FC$K!"?7J9%b%8%e!<%k$N(B
+$B:n<T$NJ}(B (*Note Shimbun Basics::)$B!#(B
+
+HTML $B%U%!%$%k$r3+$$$F$$$k(B Emacs $B$N%P%C%U%!$NL>A0$rL@<(E*$K;XDj$7$F%P%C(B
+$B%U%!$r@Z$jBX$($k$3$H$bIaDL$K$G$-$^$9$,!"(Bemacs-w3m $B$G$O$=$&$$$C$?L\E*$N(B
+$B$?$a$K@lMQ$N%-!<$,3dEv$F$i$l$F$$$^$9!#(BEmacs-w3m $B$O<+J,$,8=:_I=<($7$F$$(B
+$B$k%&%'%V%Z!<%8$N(B URL $B$rCN$C$F$k$s$G$9!#$=$N>pJs$r;H$o$J$$<j$O$"$j$^$;$s!#(B
+
+`\'
+     $BI=<(Cf$N%&%'%V%Z!<%8$r(B HTML $B7A<0$G$=$N$^$^I=<($7$^$9(B
+     (`w3m-view-source')$B!#(B
+
+`='
+     $BI=<(Cf$N%&%'%V%Z!<%8$N>pJs$rI=<($7$^$9!#>pJs$K$O!"%?%$%H%k!"(BURL$B!"(B
+     $B%I%-%e%a%s%H%?%$%W!":G=*JQ99F|;~$,4^$^$l$^$9(B (`w3m-view-header')$B!#(B
+
+`E' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`e' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B8=:_1\MwCf$N%m!<%+%k%U%!%$%k$rJT=8$7$^$9(B (`w3m-edit-current-url')$B!#(B
+
+`e' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`E' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B8=:_%]%$%s%H$N2<$K$"$k%j%s%/@h$N%m!<%+%k%U%!%$%k$rJT=8$7$^$9(B
+     (`w3m-edit-this-url')$B!#(B
+
+`M'
+     (Emacs-w3m $B0J30$N(B) $B30It%V%i%&%6$r?7$?$K5/F0$7$F!"8=:_(B emacs-w3m $B$G(B
+     $B1\Mw$7$F$$$k%Z!<%8$rI=<($7$^$9(B
+     (`w3m-view-url-with-external-browser')$B!#$I$N30It%V%i%&%6$r;H$&$+$O!"(B
+     $BJQ?t(B `w3m-content-type-alist' $B$K$h$C$F(B URL $B$N<oN`Kh$KDj5A$5$l$^$9!#(B
+
+`|'
+     $B%&%'%V%Z!<%8$N%=!<%9$r%3%^%s%I$K%Q%$%W$7$^$9!#$I$s$J%3%^%s%I$r;H$&(B
+     $B$+$r?R$M$i$l$^$9(B (`w3m-pipe-source')$B!#(B
+
+$B$3$3$G>R2p$7$?0J30$K$b!"B>$N%3%^%s%I$d(B Emacs $B$N%5%V%7%9%F%`$H(B
+emacs-w3m $B$rO"7H$5$;$kJ}K!$r(B *Note Tips:: $B$K$F>R2p$7$F$$$k$N$G!";29M$K(B
+$B$7$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Pretty Good Features, Next: Customizable Variables, Prev: Basic Usage, Up: Top
+
+$A$?$/$5$s$N$9$0$l$b$N(B
+********************
+
+* Menu:
+
+* Using Search Engines::        $B;H$$$d$9$$%&%'%V8!:w(B
+* Grouping URLs::               $B0l$D$N(B URL $B$GJ#?t$N%&%'%V%Z!<%8$r8+$k(B
+* Weather Information::         $BL@F|$NE75$$O@2$l$G$7$g$&(B
+* Using Antenna::               $B%"%s%F%J$rD%$j=d$i$=$&(B
+* Showing Directory Tree::      $B%G%#%l%/%H%j$NLZ9=B$$rI=<($9$k(B
+* Viewing Perl Documents::      Perl $B$N%I%-%e%a%s%H$r8+$k(B
+* Using Namazu::                Namazu $B$G%U%!%$%k$r8!:w$9$k(B
+* Octet::                       application/octet-stream $B%G!<%?$r8+$k(B
+* Frame Local Buffers::         $BB??t$N%;%C%7%g%s$r%U%l!<%`$G%0%k!<%WJ,$1$9$k(B
+* Session Manager::             $B%;%C%7%g%s$NJ]B8$HFI$_$3$_(B
+
+
+
+File: emacs-w3m-ja.info, Node: Using Search Engines, Next: Grouping URLs, Prev: Pretty Good Features, Up: Pretty Good Features
+
+$AJ9$$$d$9$$%&%'%V$(I<D$AKw(B
+====================
+
+Emacs-w3m $B$K$O8!:w%(%s%8%s$rMxMQ$9$k$?$a$N@h?J$N5!G=$,$"$j!";0$D$N%$%s(B
+$B%?!<%U%'!<%9$rDL$7$FMxMQ$9$k$3$H$,$G$-$^$9(B:
+
+   * $BI8=`$N8!:w%$%s%?!<%U%'!<%9$G$9!#(B`S' $B%-!<(B (`Info-like' $B%-!<%^%C%W$N(B
+     $B>l9g$O(B `s' $B%-!<(B) $B$G!"$$$:$l$+$N(B emacs-w3m $B%P%C%U%!$+$i5/F0$5$l$^$9!#(B
+     $B$3$l$O8!:w%(%s%8%s$r;XDj$7$F8!:w8l$rF~NO$9$k!"C1=c$JBPOC7?$N$d$jJ}(B
+     $B$G$9!#(B*Note The Search Interface:: $B$r;2>H$7$F$/$@$5$$!#(B
+
+   * $B%/%$%C%/%5!<%A!&%$%s%?!<%U%'!<%9$G$9!#$3$l$O5;9*E*$K:n$i$l$?(B URL
+     $B$K9T$/$3$H$K$h$C$F8!:w%(%s%8%s$rMxMQ$9$k$?$a$N!"$h$jB.$$(B ($B$5$i$K!"(B
+     $B$h$jJ#;($J(B) $BJ}K!$G$9!#$3$N5!G=$K4X$9$k>\:Y$O(B *Note Quick
+     Searching:: $B$r;2>H$7$F$/$@$5$$!#(B
+
+   * "I'm feeling lucky" $B5!G=$,M-8z$K$J$C$F$$$k(B
+     (`w3m-enable-google-feeling-lucky') $B$H!"(BURL $B$rF~NO$9$k$H$-$KDL>o$N(B
+     URL $B$NBe$o$j$K2?$+$N8l6g$r;XDj$9$k$3$H$K$h$C$F!"$=$N8l6g$N(B Google
+     $B8!:w$r<+F0E*$K3+;O$7$F!":G$b4X78$,$"$j$=$&$J7k2L$rI=<($5$;$k$3$H$,(B
+     $B$G$-$^$9!#$3$l$O:G$b4X78$,$"$j$=$&$J%Z!<%8$r$9$0$K8+$?$$>l9g$KJXMx(B
+     $B$G$9$,!"8!:w7k2L$N%j%9%H$OI=<($5$l$^$;$s!#(B
+
+* Menu:
+
+* The Search Interface::        Emacs-w3m $B$K$h$k8!:w$N$d$jJ}(B
+* Quick Searching::             $B$b$&0l$D$N(B ($B$=$7$FB.$$(B) $B%&%'%V8!:w(B
+* Adding New Search Engines::   $B$*5$$KF~$j$N%(%s%8%s$r;H$&$K$O(B?
+
+
+
+File: emacs-w3m-ja.info, Node: The Search Interface, Next: Quick Searching, Prev: Using Search Engines, Up: Using Search Engines
+
+Emacs-w3m $A$K$h$k$(I<D$AKw$N$d$j7=(B
+----------------------------
+
+Emacs-w3m $B$N%P%C%U%!$G(B `S' $B%-!<(B (`Info-like' $B%-!<%^%C%W$N>l9g$O(B `s'
+$B%-!<(B) $B$r;H$&$3$H$K$h$j!"I8=`$N8!:w%$%s%?!<%U%'!<%9$rN)$A>e$2$k$3$H$,$G(B
+$B$-$^$9!#$9$k$H!"%_%K%P%C%U%!$G8!:w8l$NF~NO$r5a$a$k%W%m%s%W%H$,8=$l$k$N(B
+$B$G!"0l$D$^$?$OJ#?t$N8l$rF~$l$F!"(B`<RET>' $B$rC!$$$F$/$@$5$$!#$=$N%(%s%8%s(B
+$B$N8!:w7k2L$N%Z!<%8$,8=$l!"$=$N8e!"$"$?$+$b8!:w%(%s%8%s$KDL>o$N%&%'%V$N(B
+$BN.57$K$h$kF~NO$r9T$J$C$?$H$-$N$h$&$K!"7k2L$r1\Mw$9$k$3$H$,$G$-$^$9!#(B
+
+$B$*$=$i$/!"$"$J$?$O$I$N%(%s%8%s$GC5:w$7$?$$$+$r7h$a$k5!2q$,M?$($i$l$F$$(B
+$B$J$$$3$H$K5$IU$/$G$7$g$&!#(BEmacs-w3m $B$O%G%U%)%k%H$G(B Google $B8!:w%(%s%8%s(B
+$B$r;H$$$^$9$,!"JQ?t(B `w3m-search-default-engine' (*Note Customizable
+Variables:: $B;2>H(B) $B$r%+%9%?%^%$%:$9$k$3$H$K$h$C$F!"$3$N?6$kIq$$$rJQ99$9(B
+$B$k$3$H$,$G$-$^$9!#$"$k$$$O!"$3$N%3%^%s%I$r;H$&$?$S$K8!:w%(%s%8%s$r;XDj(B
+$B$9$k$3$H$,$G$-$^$9!#(B
+
+$B$I$N%(%s%8%s$r;HMQ$9$k$+$rL@<($9$k$?$a$K$O!"%3%^%s%I$K@\F,0z?t$rM?$($J$1(B
+$B$l$P$J$j$^$;$s(B ($BDL>o$3$l$O(B `C-u S' (`Info-like' $B%-!<%^%C%W(B
+$B$N>l9g$O(B `C-u s') $B$N$h$&$K!"%3%^%s%I$NA0$K(B `C-u' $B$rC!$/$3$H(B
+$B$r0UL#$7$^$9(B)$B!#$9$k$H(B emacs-w3m $B$O%(%s%8%s$NF~NO$rB%$9$N$G!"$=$NL>A0$r0l(B
+$B$DA*$V$3$H$,$G$-$^$9(B (<TAB> $B%-!<$GJd40$,$G$-$^$9(B)$B!#$$$C$?$sA*(B
+$BBr$7$?$i(B `<RET>' $B%-!<$rC!$$$F$/$@$5$$!#$=$N8e$G8!:w8l$rF~NO$9$k(B
+$B$3$H$,$G$-!"(B`<RET>' $B$r%?%$%W$9$l$P8!:w7k2L$,8=$l$k$G$7$g$&!#(B
+
+`S' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`s' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B?7$7$$8!:w$r;O$a$^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g$O!"$I$N%(%s%8%s$r(B
+     $B;H$&$+$r?R$M$^$9(B (`w3m-search')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Quick Searching, Next: Adding New Search Engines, Prev: The Search Interface, Up: Using Search Engines
+
+$A$b$&R;$D$N(B ($A$=$7$FKY$$(B) $A%&%'%V$(I<D$AKw(B
+----------------------------------
+
+$B%&%'%V!&%Q%o!<%f!<%6(B ($B$3$l$rFI$s$G$$$k$"$J$?(B) $B$K$O!"?WB.$G8zN(E*$J8!:w(B
+$B$NJ}K!$,I,MW$G$9!#%/%$%C%/%5!<%A$O$=$N0l$D$G$9!#(B
+
+$B$=$l$O2?$r$9$k$N$+$C$F(B?  $B$=$l$O(B `gg:emacs' $B$N$h$&$JFCJL$N(B URL $B$K9T$/$@(B
+$B$1$G!"%&%'%V8!:w$r;O$a$5$;$k$N$G$9!#$3$N%b!<%I$NF0:n$ND9=j$O!"<!$NDL$j(B
+$B$G$9(B:
+
+   * $BB.$$!#%(%s%8%s$H8!:w8l$rA*$V$N$K!"0l$D$N(B URL $B$r%?%$%W$9$k$@$1$G$9!#(B
+
+   * $BJXMx!#$3$N5!G=$K$h$C$F!"MF0W$K(B emacs-w3m $B$N%?%V$+%&%#%s%I%%$r3+$$(B
+     $B$F!"8!:w$r;O$a$k$3$H$,$G$-$^$9!#Nc$($P!"(B`G' $B%-!<$G?7$7$$%&%#%s%I%&(B
+     $B$r3+$$$F%/%$%C%/%5!<%A(B URL $B$K9T$/$h$&$K!#$=$7$F!"FCJL$N%/%$%C%/%5!<(B
+     $B%A(B URL $B$=$N$b$N$K$b!"%V%C%/%^!<%/$rIU$1$k$3$H$,$G$-$^$9!#(B
+
+   * $B%0%k!<%T%s%05!G=$b;H$($k!#Nc$($P(B `group:gg:emacs&ya:w3m' $B$N$h$&(B
+     $B$J(B URL $B$K$h$C$F!"F1;~$KFs$D$N8!:w$r;O$a$k$3$H$,$G$-$^$9!#Nc$($P$3$N>l9g(B
+     $B$O!"(BGoogle $B$G(B "emacs" $B$N!"(BYahoo! $B$G(B "w3m" $B$N8!:w$r$=$l$>$l;O$a$^$9!#(B
+     *Note Grouping URLs::.
+
+$B$3$l$r;H$&$N$O$H$F$b4JC1$G$9!#(B"gnu" $B$H$$$&C18l$r(B Google $B$GC5$7$F7k2L$N(B
+$B%j%9%H$rF@$?$$$N$G$"$l$P!"(B`g' $B$rC!$$$F$+$i(B "gg:gnu" $B$H$$$&(B URL $B$r(B
+$B%?%$%W$7$F$/$@$5$$!#$3$NI=8=$NBh0l$NItJ,(B "gg" $B$O!"(BGoogle $B8!:w%(%s%8%s$r(B
+$B;HMQ$7$?$$$3$H$r<($7$^$9!#BhFs$NItJ,$O8!:w8l$G$9!#%(%s%8%s$H8!:w8l$O!"%3(B
+$B%m%s$GJ,$1$J$1$l$P$J$j$^$;$s!#$=$7$F(B `<RET>' $B$rC!$1$P8!:w7k2L$r(B
+$B8+$k$3$H$,$G$-$^$9!#%9%Z!<%9$GJ,N%$7$?J#?t$N8l$rF~NO$G$-$k$3$H$r!"?4$KN1(B
+$B$a$F$*$$$F$/$@$5$$!#(B"Feeling Lucky" $B5!G=$,M-8z$K$J$C$F$$$l$P!"%_%K%P%C(B
+$B%U%!$G(B `<SPC>' $B$O(B self-insert $B%-!<$K$J$C$F$$$^$9(B ($B$3$l$,%G%U%)%k(B
+$B%H$G$9!#(B`w3m-enable-google-feeling-lucky' $B$r;2>H$7$F$/$@$5$$!#(B) $BL5(B
+$B8z$K$7$F$"$k>l9g$O!":G=i$K(B `C-q' $B$rC!$$$F$/$@$5$$!#$D$^(B
+$B$j(B `C-q <SPC>' $B$G$9!#(B
+
+Emacs-w3m $B$N%G%U%)%k%H$G$O!"MxMQ2DG=$J$$$/$D$+$N8!:w%(%s%8%s$NC;=L7A$,(B
+$B$"$j!"$=$l$i$OJQ?t(B `w3m-uri-replace-alist' $B$GDj5A$5$l$F$$$^$9!#Nc$($P(B
+Google $B$K$O(B "gg"$B!"(BGoogle Groups $BMQ$K$O(B "ggg"$B!"(BYahoo! $B$N$?$a$N(B "ya"$B!"(B
+Altavista $B$KBP$9$k(B "al" $B$*$h$S(B $B1Q<-O/(B on the WEB $B$N(B "alc" $B$J$I$NC;$$L>(B
+$BA0$G$9!#$5$i$K8!:w%(%s%8%s$NC;=L7A$rDI2C$9$k$K$O(B *Note Adding New
+Search Engines:: $B$r;2>H$7$F$/$@$5$$!#(B
+
+$BC;=L7A$NBe$o$j$K!"(B"google" $B$d(B "yahoo" $B$N$h$&$J40A4$J%(%s%8%s$NL>A0$r!"(B
+$B%/%$%C%/%5!<%A(B URL $B$K;H$&$3$H$b$G$-$^$9!#$=$l$i$NL>A0$O!"JQ?t(B
+`w3m-search-engine-alist' $B$GDj5A$5$l$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Adding New Search Engines, Prev: Quick Searching, Up: Using Search Engines
+
+$A$*$B5$$A$KHk$j$N%(%s%8%s$rJ9$&$K$O(B?
+-------------------------------
+
+Emacs-w3m $B$OMxMQ2DG=$JB?$/$N8!:w%(%s%8%s$r;}$C$F$$$^$9!#$"$J$?$N$*5$$K(B
+$BF~$j$N8!:w%(%s%8%s$r;H$$$?$$$N$K!"K|$,0l$K$b$=$l$,4{CN$N8!:w%(%s%8%s$N(B
+$B%j%9%H$K:\$C$F$$$J$+$C$?$i$I$&$7$^$7$g$&(B?  $B$=$l$r8!:w%(%s%8%s$N%j%9%H$K(B
+$B2C$($l$PNI$$$N$G$9!#$=$7$F$=$l$O6K$a$F4JC1$G$9(B:
+
+  1. $B:G=i$K!"$"$J$?$,2C$($?$$8!:w%(%s%8%s$N%(%s%H%j!<!&%]%$%s%H$,2?$+$r(B
+     $BCN$i$J$1$l$P$J$j$^$;$s!#Nc$($P(B:
+
+     `http://my.searchengine.com/?query=foobar'
+
+     $B$3$3$G(B foobar $B$O$"$J$?$,8!:w$7$?$$8l$G$9!#(B
+
+  2. $B$3$N>pJs$,<j$KF~$C$?$i!"(B`~/.emacs-w3m' $B%U%!%$%k$K2C$($F$/$@$5$$(B:
+
+          (eval-after-load "w3m-search"
+            '(add-to-list 'w3m-search-engine-alist
+                          '("My engine"
+                            "http://my.searchengine.com/?query=%s"
+                            nil)))
+
+     $BBh0l%U%#!<%k%I$N(B "My engine" $B$r$"$J$?$N%(%s%8%s$N@bL@$G!"BhFs%U%#!<(B
+     $B%k%I$r%(%s%H%j!<!&%]%$%s%H$GCV$-49$($F$/$@$5$$(B (`%s' $B$O=EMW$G$9!#(B
+     $B$3$l$O8!:w$r9T$J$&$H$-$K!"8!:w8l$GCV$-49$($i$l$^$9(B)$B!#$=$7$FBh;0(B
+     $B%U%#!<%k%I$O;HMQ$9$k%(%s%3!<%G%#%s%0$r0UL#$7!"(B`nil' $B$^$?$O$=$l$,>J(B
+     $BN,$5$l$?>l9g$OJQ?t(B `w3m-default-coding-system' $B$NCM$,I8=`$N%(%s%3!<(B
+     $B%G%#%s%0$H$7$F;H$o$l$^$9!#(B
+
+     $B1Q8l$N8!:w%(%s%8%s$G$OLGB?$K5$$K$9$kI,MW$,L5$$$3$H$J$N$G$9$,!"$$$/(B
+     $B$D$+$NF|K\$N8!:w%(%s%8%s$G$O!"$=$l$K2?$+(B ($BNc$($P(B `euc-japan') $B$r;X(B
+     $BDj$9$kI,MW$,$"$k$+$b$7$l$^$;$s!#(B
+
+  3. $B:#$d$3$N8!:w%(%s%8%s$O!"(Bemacs-w3m $B$GDL>o$N(B `S' $B%-!<(B (`Info-like'
+     $B%-!<%^%C%W$N>l9g$O(B `s' $B%-!<(B) $B$G;H$&$3$H$,$G$-$^$9!#$3$N%(%s%8%s$r(B
+     $BIQHK$K;H$&$N$J$i$P!"C;$$%(%s%8%s$NL>A0$r%/%$%C%/%5!<%A%(%s%8%s(B
+     (*Note Quick Searching:: $B$r;2>H(B) $B$K2C$($k$3$H$b$G$-$^$9!#$=$l$K$O!"(B
+     $B0J2<$N%3!<%I$r(B `~/.emacs-w3m' $B%U%!%$%k$KDI2C$7$F$/$@$5$$(B:
+
+          (eval-after-load "w3m-search"
+            '(progn
+               (add-to-list 'w3m-search-engine-alist
+                            '("My engine"
+                              "http://my.searchengine.com/?query=%s"
+                              nil))
+               (add-to-list 'w3m-uri-replace-alist
+                            '("\\`my:" w3m-search-uri-replace "My engine"))))
+
+     $B$3$l$K$h$j!"(B`my:foobar' $B$N$h$&$J(B URL $B$r;H$C$F!"$"$J$?$N8!:w%(%s%8(B
+     $B%s$G(B "foobar" $B$H$$$&8l$r8!:w$9$k$3$H$,$G$-$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Grouping URLs, Next: Weather Information, Prev: Using Search Engines, Up: Pretty Good Features
+
+$AR;$D$N(B URL $A$G$(Gno$AJ}$N%&%'%V%Z$B!<$A%8$r$(GKD$A$k(B
+=====================================
+
+Emacs-w3m $B$O(B "group URLs" $B$H$$$&!"J#?t$N<B:]$N(B URL $B$r0l$D$K$^$H$a$?FCJL(B
+$B$J(B URL $B$r07$&$3$H$,$G$-$^$9!#$=$N$h$&$J%0%k!<%W(B URL $B$r3+$/$H!"(B
+emacs-w3m $B$O0lEY$KJ#?t$N%Z!<%8$r3+$/$?$a$K!"$=$N%0%k!<%W$K4^$^$l$k$=$l(B
+$B$>$l$N(B URL $B$KBP$7$F0l$D$N%P%C%U%!$r3+$-$^$9!#(B
+
+$B%0%k!<%W(B URL $B$r:n$k$K$O!"3+$-$?$$$9$Y$F$N%Z!<%8$N%"%I%l%9$rC1$K%"%s%Q%5(B
+$B%s%I5-9f(B ("&") $B$G0l=o$K$7$F(B ($B$9$J$o$A7k9g$7$F(B)$B!"%0%k!<%W(B URL $B$rI=$9@\F,(B
+$B<-$N(B "group:" $B$rIU$1$l$PNI$$$N$G$9!#Nc$r5s$2$k$H!"(BGNU $B%W%m%8%'%/%H$N%[!<(B
+$B%`%Z!<%8(B `http://www.gnu.org/' $B$H(B Savannah $B%[!<%`%Z!<%8(B
+`http://savannah.nongnu.org/' $B$r8+$?$$$b$N$H$9$l$P!"%0%k!<%W(B URL $B$O<!$N(B
+$B$h$&$J$b$N$K$J$k$G$7$g$&!#(B
+
+`group:http://www.gnu.org/&http://savannah.nongnu.org/'
+
+$B$3$N9=J8$rF|>oE*$K;H$&$N$O$+$J$j?I$$$b$N$,$"$j$^$9$,!"Hs>o$KC;$$(B URL
+($BNc$($P%/%$%C%/%5!<%A(B URL$B!"(B*Note Quick Searching:: $B$r;2>H(B) $B$dHsBPOC7?$G(B
+$B;H$&>u67$G$O!"$3$N5!G=$O$*$*$$$KLrN)$D$G$7$g$&!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Weather Information, Next: Using Antenna, Prev: Grouping URLs, Up: Pretty Good Features
+
+$ACwHU$NLl$B5$$A$OGg$l$G$7$g$&(B
+========================
+
+
+
+
+File: emacs-w3m-ja.info, Node: Using Antenna, Next: Showing Directory Tree, Prev: Weather Information, Up: Pretty Good Features
+
+$A%"%s%F%J$r$(GZ/$A$jQ2$i$=$&(B
+======================
+
+$B%"%s%F%J$O%&%'%V%Z!<%8$NJQ2=$rDI@W$9$k$?$a$NF;6q$G$9!#%"%s%F%J$r;H$&$H!"(B
+$BFCDj$N%Z!<%8$,!"0JA0$K8+$?$H$-$+$i99?7$5$l$?$+$5$l$J$+$C$?$+$r!"<~4|E*(B
+$B$K%A%'%C%/$9$k$3$H$,$G$-$^$9!#(B
+
+$B$$$:$l$+$N(B emacs-w3m $B%P%C%U%!$G(B `A' $B$r;H$&$3$H$K$h$C$F!"%"%s%F%J$r;O$a(B
+$B$k$3$H$,$G$-$^$9!#$"$k$$$O!"FCJL$N(B URL `about://antenna/' $B$K9T$/$3$H$K(B
+$B$h$C$F$bF1$8$3$H$,$G$-$^$9!#(B
+
+* Menu:
+
+* Setting up Antenna::          $B%&%'%V%5%$%H$r%"%s%F%J$K2C$($k$K$O(B?
+* Daily web tracking::          $B%"%s%F%J$GJQ2=$rDI@W$9$k(B
+
+
+
+File: emacs-w3m-ja.info, Node: Setting up Antenna, Next: Daily web tracking, Prev: Using Antenna, Up: Using Antenna
+
+$A%&%'%V%5%$%H$r%"%s%F%J$K<S$($k$K$O(B?
+-----------------------------------
+
+$B8=$KI=<(Cf$N%&%'%V%Z!<%8$r%"%s%F%J$K2C$($k$K$O!"C1=c$K(B `+' $B%-!<$r2!$7$F(B
+$B$/$@$5$$!#$9$Y$F$N%U%#!<%k%I$,$9$G$K=q$-$3$^$l$F$$$k(B
+`w3m-antenna-sites' $B$r%+%9%?%^%$%:$9$k$?$a$N%P%C%U%!$,8=$l$k$G$7$g$&!#(B
+$B$"$J$?$OC1$K(B "Save for future sessions" $B$H(B "Finish" $B$N%\%?%s$r2!$;$PNI(B
+$B$$$N$G$9!#(B
+
+`+'
+     URL $B$r%"%s%F%J!&%G!<%?%Y!<%9$K2C$($^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g(B
+     $B$O!"8=:_$N%Z!<%8$rDI2C$9$k$N$G$O$J$/$F!"2C$($k(B URL $B$r?R$M$^$9(B
+     (`w3m-antenna-add-current-url')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Daily web tracking, Prev: Setting up Antenna, Up: Using Antenna
+
+$A%"%s%F%J$G$(I+y$A;/$rW7$(Gfx$A$9$k(B
+------------------------
+
+$B%"%s%F%J!&%Z!<%8$K$OFs$D$N9`L\$,8=$l$^$9!#0l$D$O(B "Updated" $B$H8F$P$l!"$b(B
+$B$&0l$D$O(B "Visited" $B$H8F$P$l$^$9!#(B"Updated" $B$N9`L\$G$O:G8e$K%"%s%F%J$r99(B
+$B?7$7$?8e$GJQ2=$7$?%&%'%V%5%$%H$,!"$=$7$F(B "Visited" $B$N9`L\$G$OJQ2=$7$J$+$C(B
+$B$?%&%'%V%5%$%H$,8+$D$+$j$^$9!#$=$l$>$l$N9`L\$G!"3F9T$O%"%s%F%J!&%G!<%?(B
+$B%Y!<%9$N0l$D$N%&%'%V%5%$%H$rI=$7!"0J2<$N9=B$$K$J$C$F$$$^$9(B:
+
+`  * 2002/12/15 16:43  (T)  My website'
+
+$B:G=i$NItJ,$O!"%"%s%F%J$,:G8e$K$=$N%Z!<%8$NJQ2=$rJs9p$7$?!"$=$N%&%'%V%5(B
+$B%$%H$,99?7$5$l$?:G=*;~9o$G$9!#$^$?$O$=$N>pJs$,F@$i$l$J$$$3$H$b$"$j$^$9!#(B
+
+`(T)' $B$O(B "Time" $B$rI=$7!":G8e$K%"%s%F%J$r99?7$7$?8e$G!"$=$N%Z!<%8$NJQ99(B
+$B;~9o$,JQ2=$7$?$N$G!"JQ2=$,8!=P$5$l$?$3$H$r0UL#$7$^$9!#$b$&0l$D$N2DG=@-(B
+$B$,$"$kCM$O(B `S' ("Size" $B$N$3$H(B) $B$G!"$=$N%Z!<%8$N%5%$%:$,JQ2=$7$?$N$G!"JQ(B
+$B2=$,8!=P$5$l$?$3$H$r0UL#$7$^$9!#(B
+
+$B9T$N:G8e$NItJ,$O!"%G!<%?%Y!<%9$KDI2C$7$?$H$-$KM?$($?!"$3$N%&%'%V%5%$%H(B
+$B$N%?%$%H%k$G$9!#(B
+
+$B$I$&$+!"%"%s%F%J!&%G!<%?%Y!<%9$O<+F0E*$K99?7$5$l$J$$$3$H$KCm0U$7$F$/$@$5(B
+$B$$!#%"%s%F%J!&%Z!<%8$G(B `R' $B$rC!$/$+!"$^$?$O@\F,0z?t$r%3%^%s%I$KEO(B
+$B$9(B ($BNc$($P(B `C-u A' $B$G%"%s%F%J$r;O$a$k(B) $B$3$H$K$h$C$F!"%5%$%H$,JQ(B
+$B2=$7$?$+$I$&$+$r%A%'%C%/$7$?$$Kh$K!"$=$l$r99?7$7$J$1$l$P$J$j$^$;$s!#(B
+
+$B$b$7!"<+F0$G99?7$5$;$?$$$J$i!"JQ?t(B `w3m-antenna-refresh-interval' $B$K99(B
+$B?74V3V$rIC$G@_Dj$7$F$/$@$5$$!#(B
+
+`A'
+     $B%"%s%F%J$N%Z!<%8$K9T$-$^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g$O!"I=<($9$k(B
+     $BA0$K%"%s%F%J!&%G!<%?%Y!<%9$r99?7$7$^$9(B (`w3m-antenna')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Showing Directory Tree, Next: Viewing Perl Documents, Prev: Using Antenna, Up: Pretty Good Features
+
+$A%G%#%l%/%H%j$ND>$(Gi,$ATl$r1mJ>$9$k(B
+==============================
+
+`w3m-dtree' $B%3%^%s%I$r;H$&$H!"%m!<%+%k%G%#%l%/%H%j$N$9$Y$F$N%5%V%G%#%l(B
+$B%/%H%j$NLZ9=B$$rI=<($7$F!"IaDL$N%&%'%V%Z!<%8$N$h$&$K1\Mw$9$k$3$H$,$G$-(B
+$B$^$9!#$3$N5!G=$r;H$C$?$H$-$K8=$l$k(B emacs-w3m $B$N%P%C%U%!$O!"$=$NL>A0$f$((B
+$B$K30It$N(B "tree" $B%W%m%0%i%`$N=PNO$KHs>o$KN`;w$7$?$b$N$K$J$j$^$9!#$5$i$K(B
+emacs-w3m $B$+$i$N%\!<%J%9(B: $B$3$N%3%^%s%I$r@\F,0z?tIU$-$G8F$V$H%U%!%$%k$b(B
+$BI=<($7!"(Bemacs-w3m $B$O40A4AuHw$N%U%!%$%k1\Mw4o$KJQ?H$7$^$9!#(B
+
+Emacs-w3m dtree $B$,$I$s$J$U$&$KF0:n$9$k$+$NNc$G$9(B:
+
+     /home/romain/.elisp/emacs-w3m/
+      |-CVS/
+      |-attic/
+      |  +-CVS/
+      |-autom4te.cache/
+      |-doc/
+      |  |-CVS/
+      |  +-emacs-w3m/
+      |-icons/
+      |  +-CVS/
+      |-patches/
+      |  +-CVS/
+      +-shimbun/
+         +-CVS/
+
+$B@\F,0z?t$rIU$1$k$H!"Be$o$j$K$3$s$J$U$&$K$J$j$^$9(B:
+
+     /home/romain/.elisp/emacs-w3m/ (allfiles)
+      |-(f).cvsignore
+      |-(f)BUGS.ja
+      |-(f)COPYING
+      |-[d]CVS/
+      |  |-(f)Entries
+      |  |-(f)Repository
+      |  +-(f)Root
+      |-(f)ChangeLog
+      |-(f)ChangeLog.1
+      |-(f)Makefile
+      |-(f)Makefile.in
+      |-(f)README
+      |-(f)README.ja
+
+`D' (Lynx-like $A%-$B!<$A%^%C%W(B)
+`T' (Info-like $A%-$B!<$A%^%C%W(B)
+     $B%_%K%P%C%U%!$G%m!<%+%k%G%#%l%/%H%j$NF~NO$r5a$a!"$=$NLZ9=B$$rI=<($7$^$9!#(B
+     $B@\F,0z?tIU$-$G8F$P$l$k$H(B ($BNc(B: `C-u D'$B!"$?$@(B
+     $B$7(B `Info-like' $B%-!<%^%C%W$N>l9g$O(B `C-u T')$B!"$=$N%G%#%l%/%H(B
+     $B%j$K$"$k%U%!%$%k$bI=<($7$^$9(B (`w3m-dtree')$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Viewing Perl Documents, Next: Using Namazu, Prev: Showing Directory Tree, Up: Pretty Good Features
+
+Perl $A$N%I%-%e%a%s%H$r$(GKD$A$k(B
+=========================
+
+
+
+
+File: emacs-w3m-ja.info, Node: Using Namazu, Next: Octet, Prev: Viewing Perl Documents, Up: Pretty Good Features
+
+Namazu $A$G%U%!%$%k$r$(I<D$AKw$9$k(B
+===========================
+
+emacs-w3m $B$O!"A4J88!:w%=%U%H(B Namazu $B$r;H$C$F%U%!%$%k$r8!:w$9$k$3$H$b$G(B
+$B$-$^$9(B (`w3m-namazu')$B!#$3$N5!G=$r;H$&$?$a$K$O!"(BNamazu $B$r0J2<$N>l=j$+$i(B
+$B<hF@$7$F!"%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9(B:
+
+`http://namazu.org/'
+
+Namazu $B$r;H$&$?$a$K$O!"<B:]$K8!:w$r9T$&A0$K!"8!:wBP>]$H$J$k%U%!%$%k$K4^(B
+$B$^$l$F$$$kC18l$N:w0z(B ($B%$%s%G%C%/%9(B) $B$r:n@.$7$F$*$/I,MW$,$"$j$^$9!#$b$C(B
+$B$H$bE57?E*$J%3%^%s%I$O0J2<$NDL$j$G$9!#(B
+
+     % mknmz -O <$B%$%s%G%C%/%9$rCV$/%G%#%l%/%H%j(B> <$B%I%-%e%a%s%H$N$"$k%G%#%l%/%H%j(B>
+
+`w3m-namazu' $B$rF0$+$9A0$K!"$$$/$D$+$NJQ?t$r@_Dj$7$F$*$/I,MW$,$"$j$^$9!#(B
+$B0J2<$NJQ?t$r!";H$C$F$$$k4D6-$K$"$o$;$F@_Dj$7$F$/$@$5$$!#(B
+
+`w3m-namazu-index-alist'
+     $B%$%s%G%C%/%9$NJ]B8$5$l$F$$$k%G%#%l%/%H%j$NO"A[G[Ns$r@_Dj$7$^$9!#(B
+     `w3m-namazu' $B$G$O!"%$%s%G%C%/%9$NJ]B8$5$l$F$$$k%G%#%l%/%H%j$KBP$7(B
+     $B$F!"%G%#%l%/%H%jL>$h$j$bJ,$+$j$d$9$$JLL>$rDj5A$9$k$3$H$,$G$-$^$9!#(B
+     $B$^$?!"4v$D$+$NJL!9$N%$%s%G%C%/%9$r!"$"$?$+$bC10l$N%$%s%G%C%/%9$G$"(B
+     $B$k$+$N$h$&$K07$&$3$H$b$G$-$^$9!#$=$N$?$a$K$O!"<!$N$h$&$KJLL>$r%-!<(B
+     $B$H$7!"%$%s%G%C%/%9$NJ]B8$5$l$F$$$k%G%#%l%/%H%j(B ($B$N%j%9%H(B) $B$rCM$H$9(B
+     $B$kO"A[G[Ns$r(B `w3m-namazu-index-alist' $B$K@_Dj$7$^$9!#(B
+
+          (setq w3m-namazu-index-alist
+                '(("alias1" "Path/to/the/index/directory1")
+                  ("alias2" "Path/to/the/index/dir2"
+                            "Path/to/the/index/dir3")))
+
+`w3m-namazu-default-index'
+     $B8!:wBP>]$H$9$k%$%s%G%C%/%9$r;XDj$7$^$9!#<B:]$K%$%s%G%C%/%9$,J]B8$5$l$F$$(B
+     $B$k%G%#%l%/%H%j$d!"(B`w3m-namazu-index-alist' $B$r@_Dj$9$k$H$-$K;H$C$?JL(B
+     $BL>$,;H$($^$9!#CM$,(B `nil' $B$N>l9g$O!"(B
+     `M-x w3m-namazu <RET>' $B$H<B9T$9$k$?$S$K!"8!:wBP>]$H$9$k%$%s(B
+     $B%G%C%/%9$rLd$$9g$o$;$^$9!#(B
+
+$B$3$l$G=`Hw$,@0$$$^$7$?$+$i!"(B
+`M-x w3m-namazu <RET> query <RET>' $B$H$9$k$H!"J8;zNs(B query $B$r(B
+$B8!:w$9$k$3$H$,$G$-$^$9!#%G%U%)%k%H0J30$N%$%s%G%C%/%9$rBP>]$H$7$F8!:w$r9T(B
+$B$&>l9g$O!"(B`C-u M-x w3m-namazu' $B$H$$$&$h$&$KA0CV0z?t$r;XDj$7$F<B(B
+$B9T$7$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Octet, Next: Frame Local Buffers, Prev: Using Namazu, Up: Pretty Good Features
+
+application/octet-stream $A%G$B!<$A%?$r$(GKD$A$k(B
+=====================================
+
+($B:n@.Cf(B)
+
+$B0J2<$N@_Dj$r(B `~/.emacs' $B$K=q$$$F$*$/$H!"(B`octet-find-file' $B$G%U%!%$%k$r(B
+$B3+$$$?$H$-$KJXMx$+$bCN$l$^$;$s!#(B
+
+     (add-hook 'octet-find-file-hook 'view-mode)
+     (add-hook 'octet-find-file-hook 'w3m-minor-mode)
+
+
+
+File: emacs-w3m-ja.info, Node: Frame Local Buffers, Next: Session Manager, Prev: Octet, Up: Pretty Good Features
+
+$A6`J}$N%;%C%7%g%s$r%U%l$B!<$A%`$G%0%k$B!<$A%W7V$1$9$k(B
+============================================
+
+$BB??t$N(B emacs-w3m $B$N%;%C%7%g%s$r%0%k!<%WKh$KJL!9$N%U%l!<%`$KJ,3d$9$k$3$H(B
+$B$,$G$-$^$9!#Nc$($PFs$D$N(B emacs-w3m $B$N%U%l!<%`$rMQ0U$7$F!"0l$D$O8!:w%(%s(B
+$B%8%s72$r07$$!"$b$&0lJ}$G$O%K%e!<%9%5%$%H72$r07$&$h$&$J;H$$J}$G$9!#(B
+
+Emacs-w3m $B$O$?$/$5$s$N%Z!<%8$rF1;~$K8+$k$?$a$N$$$/$D$+$N5!G=$rDs6!$7$^(B
+$B$9!#Nc$($P!"$?$/$5$s$N%Z!<%8$r$=$l$>$l?7$7$$%;%C%7%g%s$H$7$FN)$A>e$2$k(B
+$B$?$a$K%?%V$r;H$C$?$j(B (*Note Using Tabs::)$B!"$^$?$O(B `group:' $B$G;O$^$kFCJL(B
+$B$J(B URL (*Note Grouping URLs::) $B$r;H$&$3$H$,$G$-$^$9!#$7$+$7!"$"$^$j$K$?(B
+$B$/$5$s$N%Z!<%8$,$"$k>l9g$O!"$=$l$i$rJL!9$N%U%l!<%`$G%0%k!<%WJ,$1$r$7$?(B
+$B$$$H;W$&$+$b$7$l$^$;$s!#$=$&$G$"$l$P!"(B`w3m-fb-mode' $B%3%^%s%I$O$"$J$?$N(B
+$B$?$a$N$b$N$G$9!#$?$@$7$=$l$r;H$&$?$a$K$O(B `w3m-use-tab' $BJQ?t$rHs(B-`nil'
+($B%G%U%)%k%H$G(B `t') $B$K!"(B`w3m-pop-up-frames' $BJQ?t$r(B `nil' ($B$=$l$,%G%U%)%k(B
+$B%H(B) $B$K@_Dj$7$F$*$+$J$1$l$P$J$j$^$;$s(B (*Note General Variables::)$B!#(B
+
+`M-x w3m-fb-mode' $B$r%?%$%W$9$k$H%b!<%I$,%H%0%k$K@Z$jBX$o$j$^$9$,!"(B
+$B@\F,0z?t$H$7$F$=$N%3%^%s%I$K@5$N@0?t$rM?$($k$3$H$K$h$C$F!"%b!<%I$r(B on $B$K(B
+$B$9$k$3$H$,$G$-$^$9(B ($B%<%m0J2<$G$O(B off $B$K$J$j$^$9(B)$B!#(B
+
+`w3m-fb-mode' $B$,(B on $B$K$J$C$F$$$k$H!"8=:_$N%U%l!<%`$G3+;O$7$?%;%C%7%g%s(B
+$B$O$=$N%U%l!<%`$@$1$K4XO"IU$1$i$l$^$9!#$=$7$FB>$N%U%l!<%`$G3+$$$?B>$N%;%C(B
+$B%7%g%s$O!"F1MM$K$=$l$i$N%U%l!<%`$@$1$K8=$l$^$9!#8@$$49$($k$H!"$"$k%U%l!<(B
+$B%`$K4XO"IU$1$i$l$?%;%C%7%g%s$OB>$N%U%l!<%`$K$O8=$l$^$;$s!#(B
+`w3m-fb-mode' $B$O?7$7$$%U%l!<%`$r:n$i$J$$$N$G!"$=$l$i$O2?$i$+$NJ}K!$G$"(B
+$B$J$?<+?H$,:n$kI,MW$,$"$j$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Session Manager, Prev: Frame Local Buffers, Up: Pretty Good Features
+
+$A%;%C%7%g%s$N1#4f$H$BFI$A$_$3$_(B
+==========================
+
+emacs-w3m $B$G$O%;%C%7%g%sAH$rJ]B8$7$?$jFI$_$3$s$@$j$9$k$3$H$,$G$-$^$9!#(B
+
+$B>-Mh;H$&$?$a$K!":#3+$$$F$$$k%;%C%7%g%sAH$rJ]B8$G$-$^$9!#(B`M-S' $B$r2!$7$F!"(B
+$B$=$N%;%C%7%g%s>pJs$KL>A0$r$D$1$F$/$@$5$$!#(B
+
+$B$=$&$9$k$H<!$O!"J]B8$7$?%;%C%7%g%sAH$rI|5"$7$?$/$J$k$H;W$$$^$9!#(B`M-s'
+$B$r2!$9$H%;%C%7%g%sA*Br%a%K%e!<$,3+$-$^$9!#$3$N%a%K%e!<$N%-!<%P%$%s%I$O(B
+$B0J2<$N$h$&$K$J$C$F$$$^$9!#(B
+
+`<RET>'
+     $BA*Br$5$l$F$$$k%;%C%7%g%sAH$K4^$^$l$k$9$Y$F$N%;%C%7%g%s$r3+$-$^$9!#(B
+
+`M-s'
+     $BA*Br$5$l$F$$$k%;%C%7%g%sAH$N>\:Y$J%a%K%e!<$r3+$-$^$9!#$3$l$r;H$C$F(B
+     $B%;%C%7%g%sAH$NCf$N%;%C%7%g%s$r0l$D$:$D3+$/$3$H$,$G$-$^$9!#(B
+
+`d'
+     $BA*Br$5$l$F$$$k%;%C%7%g%sAH!"$^$?$O%;%C%7%g%s$r:o=|$7$^$9!#(B
+
+`r'
+     $BA*Br$5$l$F$$$k%;%C%7%g%sAH$NL>A0$rJQ99$7$^$9!#(B
+
+`s'
+     $B8=:_3+$$$F$$$k$9$Y$F$N%;%C%7%g%s$rJ]B8$7$^$9!#(B`M-S' $B$HF1$8$G$9!#(B
+
+`n'
+     $B%+!<%=%k$r<!$N%;%C%7%g%sAH$KF0$+$7$^$9!#(B
+
+`p'
+     $B%+!<%=%k$rA0$N%;%C%7%g%sAH$KF0$+$7$^$9!#(B
+
+`q'
+     $B%;%C%7%g%sA*Br%a%K%e!<$r=*N;$7$^$9!#(B
+
+emacs-w3m $B$O%;%C%7%g%sAH$r<+F0E*$KJ]B8$9$k$3$H$,$G$-$^$9!#(B
+`w3m-session-deleted-save' $B$,(B non-`nil' $B$N;~!"(Bemacs-w3m $B$OJD$8$i$l$?%;%C(B
+$B%7%g%s$r<+F0E*$KJ]B8$7$^$9!#$3$l$O!"$&$C$+$j%;%C%7%g%s$rJD$8$F$7$^$C$?(B
+$B;~$J$I$KJXMx$G$7$g$&!#(B`w3m-session-automatic-save' $B$,(B non-`nil' $B$J$i$P!"(B
+emacs-w3m $B=*N;;~$K3+$$$F$$$?$9$Y$F$N%;%C%7%g%s$r<+F0E*$KJ]B8$7$^$9!#(B
+
+$B<+F0E*$KJ]B8$5$l$F$$$k%;%C%7%g%sAH$N$3$H$rK:$l$F$7$^$C$F!"$J$K$+$*$b$7(B
+$B$m$$%Z!<%8$N(B URL $B$rK:$l$F$7$^$&$H$$$&$3$H$,;~!9$"$j$^$9!#(Bemacs-w3m $B$O$3(B
+$B$&$$$&$3$H$rKI;_$9$k$3$H$,$G$-$^$9!#(B`w3m-session-load-last-sessions' $B$,(B
+`auto' $B$G$"$l$P!"(Bemacs-w3m $B$O<+F0E*$KA02s3+$$$F$$$?%;%C%7%g%s$?$A$rI|5"(B
+$B$7$^$9!#(B`w3m-session-load-last-sessions' $B$,(B `ask' $B$G$"$l$P!"(Bemacs-w3m
+$B$O$=$l$rI|5"$9$k$+$I$&$+$r$?$:$M$^$9!#(B($B%G%U%)%k%H$O(B `nil' $B$K$J$C$F$$$^(B
+$B$9!#(B)
+
+$B%/%i%C%7%e$G6l$$7P83$r$7$?$3$H$,$"$k$H;W$$$^$9!#(B $B%/%i%C%7%e$K$"$&$H$,$C(B
+$B$+$j$7$^$9$7!"8+$F$$$?%Z!<%8$,$I$3$+$bK:$l$F$7$^$$$^$9!#(B emacs-w3m $B$O$3(B
+$B$s$J>u67$G$b=u$1$F$/$l$^$9!#(B `w3m-session-crash-recovery' $B$,(Bnon-`nil'
+$B$J$i$P!"(B emacs-w3m $B$OI=<($7$F$$$k%;%C%7%g%sAH$r%/%i%C%7%eI|85MQ$K<+F0E*(B
+$B$KJ]B8$7!"%/%i%C%7%e$,5/$3$C$?;~$KJ]B8$7$F$$$?%;%C%7%g%sAH$rI|85$7$^$9!#(B
+($B%G%U%)%k%H$O(B `t' $B$K$J$C$F$$$^$9!#(B)
+`w3m-session-load-crashed-sessions' $B$,(Bnon-`nil' $B$G$"$l$P!"(Bemacs-w3m $B$O(B
+$B$3$NI|85$r<+F0E*$K9T$J$$$^$9!#(B`w3m-session-load-crashed-sessions' $B$,(B
+`ask' $B$G$"$l$P!"(Bemacs-w3m $B$OI|85$9$k$+$I$&$+$r$?$:$M$^$9!#(B ($B%G%U%)%k%H(B
+$B$O(B `ask' $B$K$J$C$F$$$^$9!#(B)
+
+
+
+File: emacs-w3m-ja.info, Node: Customizable Variables, Next: Hooking into MUAs, Prev: Pretty Good Features, Up: Top
+
+$A%G%U%)%k%H$N$^$^$G$b$(Ga8i,$AA<$$$HK<$&$1$l$I(B
+****************************************
+
+$B$?$/$5$s$N(B emacs-w3m $B$NJQ?t$,!"(BCustom $B$N;E3]$1$K$h$C$F%+%9%?%^%$%:$9$k$3(B
+$B$H$,$G$-$^$9!#(BCustom $B$OJQ?t$rDj5A$9$k$?$a$N!"(BEmacs $B$N%0%i%U%#%C%/!&%$%s(B
+$B%?!<%U%'!<%9$G$9!#(BCustom $B$K$O$$$/$D$+$N%+%9%?%^%$%:$N$?$a$N<jCJ$,$"$j!"(B
+$BNc$($PC10l$N%*%W%7%g%s(B ($B$9$J$o$A!"(BEmacs Lisp $BJQ?t(B) $B$N$?$a(B
+$B$N(B `M-x customize-option'$B!"$^$?$O$"$k(B "group" ($B$3$N>l9g$N%0%k!<(B
+$B%W$O(B `w3m') $B$KB0$9$k$9$Y$F$N%*%W%7%g%s(B ($BJQ?t$H%U%'!<%9(B) $B$r8+$F!"$+(B
+$B$DJQ99$9$k$?$a$N(B `M-x customize-group' $B$,;H$($^$9!#(B
+
+$B$"$k$$$O(B ($B$b$7(B Custom $B$r;H$$$?$/$J$$$N$G$"$l$P(B)$B!"G$0U$N(B Emacs Lisp $B<0$r(B
+emacs-w3m $B=i4|@_Dj%U%!%$%k$K=q$-9~$`$3$H$,$G$-$^$9!#%G%U%)%k%H$N%U%!%$(B
+$B%k$O(B `~/.emacs-w3m' $B$G$9!#Nc$($P!"(B
+
+     (setq w3m-home-page "http://emacs-w3m.namazu.org/")
+
+$B$3$l$O%G%U%)%k%H$N%[!<%`%Z!<%8$r(B `http://emacs-w3m.namazu.org/' $B$K@_Dj(B
+$B$7$^$9!#%7%s%?%C%/%9$O(B `.emacs' $B%U%!%$%k$HF1$8$G$9(B (*Note Init File:
+(emacs)Init File.)$B!#(B
+
+$B5$$rIU$1$J$1$l$P$$$1$J$$$N$O!"30It%b%8%e!<%k$GDj5A$5$l$F$$$k$$$/$D$+$N(B
+$BJQ?t$,(B `~/.emacs-w3m' $B%U%!%$%k$,FI$_9~$^$l$k$H$-$K$OL$Dj5A$G!"$=$l$i$r(B
+$BJQ99$G$-$J$$$+$b$7$l$J$$$3$H$G$9(B ($B$b$A$m$s!"%G%U%)%k%H$NCM$r5$$K$7$J$$(B
+$B$N$G$"$l$P!"(B`~/.emacs-w3m' $B%U%!%$%k$G40`z$K>e=q$-$7$F$7$^$&$3$H$O2DG=$J(B
+$B$N$G$9$1$l$I$M(B)$B!#JQ?t(B `w3m-search-engine-alist' $B$OE57?E*$JNc$G$9(B
+(*Note Search Variables::)$B!#(B
+
+`w3m-init-file'
+     Emacs-w3m $B$,5/F0$9$k$H!"(B`w3m-init-file' $B%U%!%$%k$rFI$_9~$_$^$9!#%G(B
+     $B%U%)%k%HCM$O(B `~/.emacs-w3m' $B$G$9!#$?$V$s!"$"$J$?$O$3$l$rJQ99$9$kI,(B
+     $BMW$OL5$$$G$7$g$&!#$3$l$OIaDL$N(B Emacs Lisp $B%U%!%$%k$G!"(B`~/.emacs'
+     $B$d(B `site-init' $B%U%!%$%k$r(B emacs-w3m $B4X78$N$b$N$GMp;($K$7$J$$$h$&$K(B
+     $B$9$k$?$a$K;H$&$3$H$,$G$-$^$9!#(BEmacs-w3m $B$O$3$l$HF1$8L>A0$K!"3HD%;R(B
+     `.elc' $B$H(B `.el' $B$,IU$$$F$$$k$b$N$b(B ($B8@$$49$($l$P!"(B
+     `~/.emacs-w3m.elc'$B!"(B`~/.emacs-w3m.el' $B$*$h$S(B `~/.emacs-w3m' $B$N=g$K(B)
+     $BD4$Y$^$9!#(B
+
+* Menu:
+
+* General Variables::           $B0lHLE*$JJQ?t(B
+* Image Variables::             $B2hA|$K4XO"$7$?JQ?t(B
+* Form Variables::              $B%U%)!<%`$K4XO"$7$?JQ?t(B
+* Cookie Variables::            $B%/%C%-!<$K4XO"$7$?JQ?t(B
+* Bookmark Variables::          $B%V%C%/%^!<%/$K4XO"$7$?JQ?t(B
+* Search Variables::            $B%&%'%V8!:w$K4XO"$7$?JQ?t(B
+* Weather Variables::           $BE75$M=Js$K4XO"$7$?JQ?t(B
+* Dtree Variables::             dtree $B$K4XO"$7$?JQ?t(B
+* Antenna Variables::           $B%"%s%F%J$K4XO"$7$?JQ?t(B
+* Perldoc Variables::           Perldoc $B$K4XO"$7$?JQ?t(B
+* Namazu Variables::            Namazu $B$K4XO"$7$?JQ?t(B
+* Octet Variables::             Octet $B$K4XO"$7$?JQ?t(B
+* Session Manager Variables::   $B%;%C%7%g%s%^%M!<%8%c$K4XO"$7$?JQ?t(B
+* Hooks::                       $B%U%C%/(B
+* Other Variables::             $B$=$NB>$NJQ?t(B
+
+
+
+File: emacs-w3m-ja.info, Node: General Variables, Next: Image Variables, Prev: Customizable Variables, Up: Customizable Variables
+
+$AR;0c5D$J$(I+y$AJ}(B
+============
+
+`w3m-accept-languages'
+     $B<u$1F~$l2DG=$J8@8l$rM%@hEY$K$h$j9_=g$KJB$Y$?$b%j%9%H!#%G%U%)%k%HCM(B
+     $B$O(B `w3m' $B$N@_Dj%U%!%$%k(B ($BDL>o$O(B `~/.w3m/config') $B$N(B
+     `accept_language' $B$N%(%s%H%j$K$h$C$F@_Dj$5$l$k!#(B
+
+`w3m-add-referer'
+
+     $B%j%U%!%i$NAw$j$+$?!#(B5$B$D$NA*Br;R$,$"$k!#(B
+
+       1. `nil': $B7h$7$F%j%U%!%i$rAw$i$J$$!#(B
+
+       2. `t': $B>o$K%j%U%!%i$rAw$k!#(B
+
+       3. `lambda': $B0\F085$N%Z!<%8$H0\F0@h$N%Z!<%8$NN>J}$,F1$8%5!<%P$K(B
+          $B$h$jDs6!$5$l$F$$$k;~$N$_%j%U%!%i$rAw$k!#(B
+
+       4. $BFs$D$N@55,I=8=$N%3%s%9!&%;%k(B: $B0\F085$N%Z!<%8$N(B URL $B$,(B 1$B$D$a$N@55,I=8=$K(B
+          $B%^%C%A$7!"$+$D!"(B2$B$D$a$N@55,I=8=$K%^%C%A$7$J$$>l9g$N$_%j%U%!%i$rAw$k!#(B
+          `nil' $B$,;XDj$5$l$k$H$9$Y$F$N(B URL $B$K%^%C%A$9$k!#(B
+
+       5. $B4X?t(B: URL $B$H%j%U%!%i$N(B 2$B$D$r0z?t$K$H$k4X?t$,(B non-`nil' $B$rJV$;(B
+          $B$P%j%U%!%i$rAw$k!#(B
+
+     $B%V%i%&%8%s%0MzNr$,1L$l$k$N$r?4G[$9$k$N$J$i!"(B`nil' $B$+(B `lambda' $B$K@_(B
+     $BDj$7$F$/$@$5$$!#$"$J$?$N%3%s%T%e!<%?$,HkL)$N%M%C%H%o!<%/$KB0$7$F$$(B
+     $B$k$N$J$i!"0J2<$N$h$&$K(B 2$B$D$N@55,I=8=$r@_Dj$7$F!"8D?M>pJs$,1L$l$k$N(B
+     $B$rKI$0$H$$$$$G$7$g$&(B:
+
+          (setq w3m-add-referer
+                '("\\`http:\"
+                  . "\\`http://\\([^./]+\\.\\)*example\\.net/"))
+
+`w3m-add-user-agent'
+     non-`nil' $B$J$i$P!"%j%/%(%9%H%X%C%@$K(B User-Agent $B$r4^$a$^$9!#(B
+     `w3m-user-agent' $B$NCM$,(B User-Agent $B$H$7$F;H$o$l$^$9!#(B
+
+`w3m-arrived-file'
+     $B1\Mw$7$?(B URL $B$N%G!<%?%Y!<%9$rJ]B8$9$k%U%!%$%kL>!#(B
+
+`w3m-auto-show'
+     non-`nil' $B$J$i$P%&%#%s%I%&$N?eJ?%9%/%m!<%k$rM-8z$K$9$k!#(Bpoint $B$,%&%#(B
+     $B%s%I%&$NN>C<$N30$K=P$?>l9g$K<+F0E*$K?eJ?%9%/%m!<%k$9$k$,!"(B
+     `truncate-lines' $B$,(B `nil' $B$J$i$P2?$b5/$3$i$J$$!#(B
+
+     $B$3$N5!G=$OFCDj$N(B emacs-w3m $B$N%3!<%I$N$_$G;H$o$l$k!#$9$J$o$A!"DL>o(B
+     `auto-hscroll-mode'$B!"(B`automatic-hscrolling'$B!"(B`auto-show-mode' $B$*$h(B
+     $B$S(B `hscroll-mode' $B$O$9$Y$F(B emacs-w3m $B$N%P%C%U%!$G$OL58z$K$J$k$@$m(B
+     $B$&!#(B
+
+`w3m-charset-coding-system-alist'
+     MIME charset $B$H%3!<%G%#%s%0%7%9%F%`$NO"A[G[Ns!#(Bcharset $B$H%3!<%G%#(B
+     $B%s%0%7%9%F%`$NN>J}$,%7%s%\%k$G$J$1$l$P$J$i$J$$!#(B
+
+`w3m-coding-system'
+     `w3m' $B%3%^%s%I$HDL?.$9$k$?$a$K;H$&%3!<%G%#%s%0%7%9%F%`$N%G%U%)%k%H(B
+     $BCM!#(B
+
+`w3m-coding-system-priority-list'
+     emacs-w3m $B$G;H$o$l$k%3!<%G%#%s%0%7%9%F%`$rM%@hEY$K$h$jJB$Y$?%j%9%H!#(B
+
+`w3m-command'
+     `w3m' $B%3%^%s%I$N<B9T%U%!%$%kL>!#$3$NCM$,(B nil $B$J$i$P:G=i$K(B
+     emacs-w3m $B$,B8:_$9$k(B `w3m'$B!"(B`w3mmee' $B$^$?$O(B `w3m-m17n' $B$r(B ($B$3$N=g(B
+     $BHV$K(B) `exec-path' $B%G%#%l%/%H%j$+$iC5:w$7$F$/$l$k$N$G!"DL>o$O$3$NCM(B
+     $B$r@_Dj$9$kI,MW$O$J$$!#(B
+
+     $BB>$N(B `w3m' $B%3%^%s%I$r;H$$$?$1$l$P!"(B.emacs $B$G$3$NCM$rL@<(E*$K@_Dj$9(B
+     $B$k$+!"%+%9%?%^%$%:$7$FJ]B8$7$F$/$@$5$$!#$3$N>l9g!"(BEmacs $B$H(B
+     emacs-w3m $B$r:F5/F0$7$J$1$l$P$$$1$^$;$s!#:#$N$H$3$m!"(B`w3m.elc' $B$rFI(B
+     $B$_$3$s$@8e$K(B `w3m' $B%3%^%s%I$NJQ99$r0BA4$K$9$Y$F$N(B emacs-w3m $B%W%m%0(B
+     $B%i%`$K9T$J$&$3$H$O$G$-$J$$$+$i$G$9!#(B
+
+`w3m-command-arguments'
+     `w3m' $B%3%^%s%I$N0z?t$N%G%U%)%k%HCM!#(B
+     `w3m-command-arguments-alist' $B$b;2>H$9$k$H$h$$!#(B
+
+`w3m-command-arguments-alist'
+     URL $B$K%^%C%A$9$k@55,I=8=$H(B `w3m' $B$KDI2C$GEO$5$l$k0z?t$H$NO"A[G[Ns!#(B
+     $B$3$NJQ?t$OFCDj$N%[%9%H$X$N@\B3$K%W%m%-%7$rMQ$$$k$J$I$N$3$H$K;H$o$l(B
+     $B$^$9!#:G=i$K%^%C%A$7$?MWAG$,E,MQ$5$l$^$9!#0J2<$K$I$N$h$&$K$3$NJQ?t(B
+     $B$r@_Dj$9$k$+$NNc$r<($7$^$9!#(B
+
+          (setq w3m-command-arguments-alist
+                '(;; Don't use the proxy server to visit local web pages.
+                  ("^http://\\([^/]*\\.\\)*your-company\\.com\\(/\\|$\\)"
+                   "-no-proxy")
+                  ;; Use the proxy server to visit any foreign urls.
+                  (""
+                   "-o" "http_proxy=http://proxy.your-company.com:8080/")))
+
+     $B$3$N(B 1$B$D$a$NMWAG$O!"%9%-!<%`$,(B `http' $B$G$"$j!"%[%9%HL>(B
+     $B$,(B `your-company.com' $B$G$"$k$+!"(B`.your-company.com' $B$G=*$o$k(B
+     $B$9$Y$F$N(B URL $B$K%^%C%A$7$^$9!#$3$l$i$N%[%9%H$K@\B3$9$k$N$K%W%m%-%7$OMQ$$$i(B
+     $B$l$^$;$s!#$"$J$?$,@55,I=8=$N=i?4<T$G$"$k$N$J$i!"(B
+     `w3m-no-proxy-domains' $B$rBe$o$j$K;H$C$F$/$@$5$$!#(B
+
+`w3m-command-environment'
+     $B%5%V%W%m%;%9$,7Q>5$9$k4D6-JQ?t$NO"A[G[Ns!#(B
+
+`w3m-confirm-leaving-secure-page'
+     non-`nil' $B$J$i$P!"%;%-%e%"$J%Z!<%8$r5n$k;~$K(B emacs-w3m $B$O3NG'$r5a(B
+     $B$a$^$9!#$3$NJQ?t$K$O(B non-nil $B$NCM$r(B *$(GZ0$A$/(B* $B$*$9$9$a$7$^$9!#$3$N%*(B
+     $B%W%7%g%s$r@Z$kA0$K(B *$A1X$:(B* $B$I$&$$$&$3$H$r$7$?$$$N$+$r40A4$KM}2r$7$F(B
+     $B$/$@$5$$!#%G%U%)%k%H$G$O!"(B`t' $B$K$J$C$F$$$^$9!#(B
+
+`w3m-content-type-alist'
+     $B%3%s%F%s%H%?%$%W$H@55,I=8=$HI=<($9$k$?$a$N%3%^%s%I$H%U%#%k%?$H$NO"(B
+     $BA[G[Ns!#$=$l$>$l$NMWAG$O!"0J2<$N%G!<%?$,9=@.$9$k%j%9%H$G$"$k!#(B
+
+       1. $B%3%s%F%s%H%?%$%W!#(B
+
+       2. URL $B$^$?$O%U%!%$%kL>$K%^%C%A$9$k@55,I=8=!#(B
+
+       3. $B%U%!%$%k$r1\Mw$9$k$?$a$NJ}K!!#0J2<$N;0$D$N<oN`$,;H$o$l$k$G$7$g(B
+          $B$&!#(B
+
+            a. $B1\Mw$9$k(B URL $B$r0z?t$K$H$k(B lisp $B$N4X?t!#(B
+            b. ("COMMAND" [ARG...]) -- "COMMAND" $B$O30It%3%^%s%I$G$"$j!"(B
+               ARG $B$O(B ($B$"$k$J$i$P(B) $B%3%^%s%I$KEO$90z?t$G$"$k!#(B`file' $B$H(B
+               `url' $B$N%7%s%\%k$r(B ARG $B$H$7$F;XDj$9$k$H!"$=$l$>$l1\Mw$9(B
+               $B$k%U%!%$%k$NFbMF$r4^$s$@%F%s%]%i%j%U%!%$%k$N%U%!%$%kL>$H!"(B
+               $B1\Mw$9$k(B URL $B$H$KCV49$($i$l$k!#(B
+            c. `nil' $B$J$i$P!"(BURL $B$r%m!<%+%k$N%U%!%$%k$K%@%&%s%m!<%I$7$^$9!#(B
+
+       4. `1. $A%3%s%F%s%H%?%$%W(B' $B$G;XDj$5$l$?$b$N$r>e=q$-$9$k%3%s%F%s%H(B
+          $B%?%$%W!#0J2<$NCM$bM-8z$G$9!#(B
+
+            a. URL $B$H(B CONTENT-TYPE $B$H(B CHARSET $B$N(B 3$B$D$N0z?t$r$H$j!"%3%s(B
+               $B%F%s%H%?%$%W$rJV$9(B Lisp $B4X?t!#(B
+            b. $B%3%s%F%s%H%?%$%W$r<($9J8;zNs!#(B
+            c. `nil' $B$J$i$P!"%3%s%F%s%H%?%$%W$r>e=q$-$7$J$$!#(B
+
+`w3m-correct-charset-alist'
+     $BFC<l$J(B MIME $BJ8;z%;%C%H$HI8=`$N(B MIME $BJ8;z%;%C%H$H$NO"A[G[Ns!#(B
+
+`w3m-db-history-display-size'
+     about://arived-db/ $B$G0lEY$KI=<($9$k(B URL $B$N:GBg?t!#(B
+
+`w3m-decoder-alist'
+     $B%(%s%3!<%I$N<oN`$H%G%3!<%@$H0z?t$H$NO"A[G[Ns!#(B
+
+`w3m-default-coding-system'
+     URL $BJ8;zNs$H(B POST $B$5$l$k%G!<%?$H$r%(%s%3!<%I$9$k$N$K%G%U%)%k%H$G;H(B
+     $B$o$l$k%3!<%G%#%s%0%7%9%F%`!#(B
+
+`w3m-default-content-type'
+     $B%m!<%+%k$N%U%!%$%k$r;2>H$9$k;~$K%G%U%)%k%H$G;H$o$l$k%3%s%F%s%H%?%$(B
+     $B%W!#(B
+
+`w3m-default-directory'
+     emacs-w3m $B$N%P%C%U%!$K$*$$$F!"8=:_$N%G%#%l%/%H%j$H$7$F;H$o$l$k%G%#(B
+     $B%l%/%H%j!#B8:_$9$k%G%#%l%/%H%j$r<($9J8;zNs!"$=$NCM$,B8:_$9$k%G%#%l(B
+     $B%/%H%j$r<($9%7%s%\%k!"(Burl $B$r0z?t$K$H$j%G%#%l%/%H%j$rJV$94X?t!"$b$7(B
+     $B$/$O(B `nil' ($B%G%U%)%k%HCM(B)$B$,M-8z$JCM$H$J$j$^$9!#;XDj$5$l$?%G%#%l%/(B
+     $B%H%j$,B8:_$7$J$$>l9g$d!"(B`nil' $B$,;XDj$5$l$?>l9g$O(B
+     `w3m-profile-directory' $B$NCM$,;H$o$l$^$9!#(B
+
+     $BNc30(B: $B%m!<%+%k$N%U%!%$%k$d!"%j%b!<%H$N%U%!%$%k$r(B ftp $B$G%"%/%;%9$7(B
+     $B$F$$$k>l9g$O$=$N%U%!%$%k$N%G%#%l%/%H%j$,8=:_$N%G%#%l%/%H%j$H$7$F;H(B
+     $B$o$l$^$9!#(B
+
+`w3m-default-save-directory'
+     $B%@%&%s%m!<%I$7$?%U%!%$%k$,%G%U%)%k%H$GJ]B8$5$l$k%G%#%l%/%H%j!#(B
+
+`w3m-delete-duplicated-empty-lines'
+     non-`nil' $B$J$i$PFs9T0J>e$NO"B3$7$?6uGr9T$r0l9T$K$^$H$a$k!#(B
+
+`w3m-dirlist-cgi-program'
+     $B%m!<%+%k$N%G%#%l%/%H%jNs5s$9$k$N$K;H$o$l$k(B CGI $B%W%m%0%i%`$NL>A0!#(B
+     `nil' $B$J$i$P!"(B`w3m' $B%3%^%s%I$N(B dirlist.cgi $B$N%b%8%e!<%k$,;H$o$l$k!#(B
+
+`w3m-doc-view-content-types'
+     $B%U%!%$%k$r1\Mw$9$k$N$K(B `doc-view-mode' $B$r;H$&%3%s%F%s%H%?%$%W$N%j(B
+     $B%9%H!#$3$NJQ?t$O(B `w3m-content-type-alist' $B$NCM$r>e=q$-$9$k!#(B
+
+`w3m-edit-function'
+     $B%m!<%+%k$N%U%!%$%k$rJT=8$9$k$?$a$N4X?t!#(B`w3m-edit-current-url' $B$^(B
+     $B$?$O(B `w3m-edit-this-url' $B$N%3%^%s%I$,8F$P$l$?;~$K;H$o$l$^$9!#(B
+
+`w3m-edit-function-alist'
+     $B%Z!<%8$rJT=8$9$k$?$a$K;H$&4X?t$NO"A[G[Ns!#$3$N%*%W%7%g%s$O!"(B
+     `w3m-edit-current-url' $B$d(B `w3m-edit-this-url' $B$N%3%^%s%I$,8F$P$l$?(B
+     $B;~$K$I$N4X?t$G$=$N%Z!<%8$rJT=8$9$k$+$r7h$a$k$N$K;H$o$l$^$9!#$3$NO"(B
+     $BA[G[Ns$+$iE,Ev$J4X?t$,8+$D$+$i$J$1$l$P!"(B`w3m-edit-function' $B$,;H$o(B
+     $B$l$^$9!#(B
+
+`w3m-enable-google-feeling-lucky'
+     non-`nil' $B$J$i$P!"(Burl $B$H$7$F$I$s$JC18l$bF~NO$9$k$3$H$,$G$-$k$h$&$K(B
+     $B$J$j$^$9!#$=$N>l9g!"(Bemacs-w3m $B$O(B Google $B$r;H$C$F$=$N8@MU$r8!:w$7$^(B
+     $B$9!#%G%U%)%k%H$G$O(B `t' $B$G$9!#(B
+
+`w3m-encoding-type-alist'
+     $B%U%!%$%k$N3HD%;R$H%U%!%$%k$N%(%s%3!<%I$N<oN`$H$NO"A[G[Ns!#(B
+
+`w3m-file-coding-system'
+     $B@_Dj%U%!%$%k$r=q$/$?$a$K;H$o$l$k%3!<%G%#%s%0%7%9%F%`!#$3$NJQ?t$O(B
+     `w3m-save-list' $B4X?t$G;H$o$l$^$9!#(B
+
+`w3m-file-name-coding-system'
+     emacs-w3m $B$,%U%!%$%k$K%"%/%;%9$9$k;~$K!"%Q%9L>$rJQ49$9$k@h$N%3!<%G%#(B
+     $B%s%0%7%9%F%`!#(B
+
+`w3m-fill-column'
+     emacs-w3m $B$N%P%C%U%!$G(B `fill-column' $B$H$7$F;H$o$l$k?t;z!#@5$NCM$J(B
+     $B$i$P!"%Z!<%8$,$=$N7e?t$GI=<($5$l$k!#(B0 $B$+Ii$NCM$J$i$P!"%&%#%s%I%&$N(B
+     $BI}$+$i$=$N?t;z$r$,%Z!<%8$N:GBgI}$H$7$F;H$o$l$k!#(BXEmacs $B$G$O$3$N@_(B
+     $BDj$,>o$KF/$/$o$1$G$O$J$$$H$$$&$3$H$KCm0U$7$F$/$@$5$$!#(B
+
+`w3m-follow-redirection'
+     emacs-w3m $B$,%j%@%$%l%/%H$rB:=E$7%j%@%$%l%/%H@h$rDI$$$+$1$k:GBg?t!#(B
+     `nil' $B$J$i$P!"(B`w3m' $B%3%^%s%I$,%j%@%$%l%/%H$r=hM}$7$^$9!#%/%C%-!<$,(B
+     $B%j%@%$%l%/%H$5$l$k%Z!<%84V$G6&M-$5$l$k$3$H$,$"$j$&$k$N$G!"%/%C%-!<(B
+     $B$r5v2D$9$k$J$i$P(B ($B$D$^$j!"(B`w3m-use-cookies' $B$r(B non-`nil' $B$K$7$F$$(B
+     $B$k$J$i$P(B)$B!"$3$NJQ?t$r(B `nil' $B$K$7$J$$$G$/$@$5$$!#(B
+
+`w3m-home-page'
+     emacs-w3m $B$,5/F0$7$?;~$K3+$/(B URL $B$NJ8;zNs$r;XDj$7$^$9!#K?2q<R$NN,(B
+     $B>N$K$J$C$A$c$$$^$9$+$i(B HP $B$H$O8@$o$J$$$G$/$@$5$$$M!#(B
+
+`w3m-horizontal-scroll-columns'
+     $B%&%#%s%I%&$r?eJ?%9%/%m!<%k$9$k;~$K!"%9%/%m!<%k$9$kJ8;z?t!#(B
+
+`w3m-horizontal-scroll-division'
+     $B%+!<%=%k0LCV$,$-$A$s$HI=<($5$l$k$h$&$K$9$k$N$K;H$o$l$k?t;z!#(B
+     emacs-w3m $B$N%P%C%U%!$G%"%s%+!<$d%U%)!<%`$r0\F0$7$F$$$F%+!<%=%k$,%&%#(B
+     $B%s%I%&$N30$K=P$F$7$^$C$F$b%+!<%=%k$,8+$D$+$i$J$/$J$k$3$H$O7h$7$F$"(B
+     $B$j$^$;$s!#(B
+
+     $B$3$NJQ?t$NCM$r(B N $B$H$7$^$9!#%+!<%=%k$,%&%#%s%I%&$N:8$K=P$F$7$^$&$H(B
+     emacs-w3m $B$O%&%#%s%I%&$r%9%/%m!<%k$7!"%+!<%=%k$,%&%#%s%I%&$N:8$+$i(B
+     $B%&%#%s%I%&$NI}$N(B 1/N $B$N=j$KCV$+$l$k$h$&$K$7$^$9!#F1MM$K%+!<%=%k$,(B
+     $B%&%#%s%I%&$N1&$+$i=P$F$7$^$&$H!"(Bemacs-w3m $B$O%&%#%s%I%&$r%9%/%m!<%k(B
+     $B$7!"%+!<%=%k$,%&%#%s%I%&$N1&$+$i%&%#%s%I%&$NI}$N(B 1/N $B$N=j$KCV$+$l(B
+     $B$k$h$&$K$7$^$9!#(B
+
+     `w3m-auto-show' $B$,(B `nil' $B$J$i$P$3$N5!G=$OF0$-$^$;$s!#CM$O(B 1 $B$h$j$b(B
+     $BBg$-$$@0?t$G$J$1$l$P$$$1$^$;$s!#(B
+
+`w3m-horizontal-shift-columns'
+     $B%&%#%s%I%&$r(B shifting $B$9$k;~$K!"%9%/%m!<%k$9$kJ8;z?t!#(B`shifting'
+     $B$H$$$&$N$O!"%9%`!<%:$J%9%/%m!<%k$r0UL#$7$^$9!#(B
+
+`w3m-imitate-widget-button'
+     non-`nil' $B$J$i$P!"%j%s%/(B ($B%"%s%+!<(B) $B%\%?%s$G%&%#%8%'%C%H$N%\%?%s$N(B
+     $BF0:n$r$7$^$9!#$3$l$O(B `<TAB>' $B$r;H$C$F(B Gnus $B$N5-;v%P%C%U%!$NCf$r0\(B
+     $BF0$9$k$N$KJXMx$G$9!#??56CM$rJV$9(B Lisp $B4X?t$r@_Dj$9$k$3$H$b$G$-$^$9!#(B
+
+`w3m-init-file'
+     Your emacs-w3m startup file name.  If a file with the `.el' or
+     `.elc' suffixes exists, it will be read instead.
+
+     Note: This file is used as the startup configuration *NOT* for
+     the `w3m' command but for emacs-w3m.  In order to modify
+     configurations for the `w3m' command, edit the file named
+     `~/.w3m/config' normally.
+
+`w3m-input-coding-system'
+     Coding system used when writing to `w3m' processes.  It overrides
+     `coding-system-for-write' if it is not `binary'.  Otherwise, the
+     value of the `w3m-current-coding-system' variable is used
+     instead.
+
+`w3m-keep-arrived-urls'
+     Maximum number of URLs which the arrived URLs database keeps.
+
+`w3m-keep-cache-size'
+     Maximum number of pages to be cached in emacs-w3m.
+
+`w3m-key-binding'
+     Type of key binding set used in emacs-w3m sessions.  The valid
+     values include `info' which provides `Info-like' keys, and `nil'
+     which provides `Lynx-like' keys.
+
+`w3m-language'
+     Your preferred language used in emacs-w3m sessions.
+
+`w3m-local-directory-view-method'
+     Symbol of the method to view a local directory tree.  The valid values
+     include `w3m-cgi' using the CGI program specified by the
+     `w3m-dirlist-cgi-program' variable (which see), and
+     `w3m-dtree' using the w3m-dtree Lisp module.
+
+`w3m-local-find-file-function'
+     Function used to open local files.  If a url of the `file:'
+     scheme in which you entered agrees with the rule of the
+     `w3m-local-find-file-regexps' variable (which see), it is used to
+     open the file.
+
+     Function should take one argument, the string naming the local
+     file.  It can also be any Lisp form returning a function.  Set
+     this to `nil' if you want to always use emacs-w3m to see local
+     files.
+
+`w3m-local-find-file-regexps'
+     `Cons' of two regexps matching and not matching with local file
+     names.  If a url of the `file:' scheme in which you entered
+     matches the first form and does not match the latter form, it
+     will be opened by the function specified by the
+     `w3m-local-find-file-function' variable.  `Nil' for the regexp
+     matches any file names.
+
+     For instance, the value `(nil . "\\.html?\\'")' allows
+     `file:///some/where/w3m.el', not `file:///any/where/index.html',
+     to open by the function specified by
+     `w3m-local-find-file-function'.  The latter will be opened as a
+     normal web page.  Furthermore, if you would like to view some
+     types of contents in the local system using the viewers specified
+     by the `w3m-content-type-alist' variable, you can add regexps
+     matching those file names to the second element of this variable.
+     For example:
+
+          (setq w3m-local-find-file-regexps
+                '(nil . "\\.\\(?:[sx]?html?\\|dvi\\|ps\\|pdf\\)\\'"))
+
+     It is effective only when the `w3m-local-find-file-function'
+     variable is set properly.
+
+`w3m-mailto-url-function'
+     Function used to handle the `mailto' urls.  Function is called
+     with one argument, just a url.  If it is `nil', a function
+     specified by the `mail-user-agent' variable will be used for
+     composing mail messages.
+
+`w3m-mailto-url-popup-function-alist'
+     Alist of `(MAJOR-MODE . FUNCTION)' pairs used to pop a mail
+     buffer up.  If a user clicks on a `mailto' url and a mail buffer
+     is composed by `mail-user-agent' with the `MAJOR-MODE',
+     `FUNCTION' will be called with a mail buffer as an argument.
+     Note that the variables `special-display-buffer-names',
+     `special-display-regexps', `same-window-buffer-names' and
+     `same-window-regexps' will be bound to `nil' while popping to a
+     buffer up.
+
+`w3m-make-new-session'
+     Non-`nil' means making new emacs-w3m buffers when visiting new
+     pages.  If it is non-`nil' and there are already emacs-w3m
+     buffers, the `w3m' command makes a new emacs-w3m buffer if a user
+     specifies a url string in the minibuffer, and the
+     `w3m-safe-view-this-url' command also makes a new buffer if a
+     user invokes it in a buffer not being running the `w3m-mode'.
+     The default value is `nil'.
+
+`w3m-mbconv-command'
+     Name of the `mbconv' command provided by the `libmoe' package.
+     The `libmoe' package is used when you use the `w3mmee' command
+     instead of the `w3m' command.  See also `w3m-command'.
+
+`w3m-no-proxy-domains'
+     List of domain names for which emacs-w3m will not use a proxy
+     server.  Each element should be exactly a domain name which means
+     the latter common part of the host names, not a regexp.
+
+`w3m-output-coding-system'
+     Coding system used when reading from `w3m' processes.
+
+`w3m-pop-up-frames'
+     Non-`nil' means pop to a new frame up for an emacs-w3m session.
+     This variable is similar to `pop-up-frames' and does override
+     `w3m-pop-up-windows'.  If `w3m-use-tab' is non-`nil' or there is
+     the buffers selection window (for the `w3m-select-buffer'
+     feature), this variable is ignored when creating the second or
+     more emacs-w3m session.
+
+`w3m-pop-up-windows'
+     Non-`nil' means split the windows when a new emacs-w3m session is
+     created.  This variable is similar to `pop-up-windows' and quite
+     overridden by `w3m-pop-up-frames' as if `pop-up-frames'
+     influences.  Furthermore, if `w3m-use-tab' is non-`nil' or there
+     is the buffers selection window (for the `w3m-select-buffer'
+     feature), this variable is ignored when creating the second or
+     more emacs-w3m session.
+
+`w3m-popup-frame-parameters'
+     Alist of frame parameters used when creating a new emacs-w3m
+     frame.  It allows not only the alist form but also XEmacs' plist
+     form.
+
+`w3m-prefer-cache'
+     Non-`nil' means that cached contents are used without checking
+     headers.
+
+`w3m-profile-directory'
+     Directory where emacs-w3m config files are loaded from or saved
+     to.
+
+`w3m-quick-start'
+     Non-`nil' means let emacs-w3m start quickly w/o requiring
+     confirmation.  When you invoke the `w3m' command, it attempts to
+     visit the page of a string like url around the cursor or the
+     value of `w3m-home-page'.  You won't be asked for the
+     confirmation then if this value is non-`nil'.  Otherwise, you
+     will be prompted for that url with the editing form.
+
+`w3m-redirect-with-get'
+     If non-`nil', use the GET method after redirection.  It controls
+     how emacs-w3m works when a server responds the code 301 or 302.
+     Here is an extract from RFC2616:
+
+     Note: RFC 1945 and RFC 2068 specify that the client is not
+     allowed to change the method on the redirected request.  However,
+     most existing user agent implementations treat 302 as if it were
+     a 303 response, performing a GET on the Location field-value
+     regardless of the original request method.
+
+`w3m-relationship-estimate-rules'
+     Rules to estimate relationships between a retrieved page and
+     others.
+
+`w3m-select-buffer-horizontal-window'
+     Non-`nil' means split windows horizontally to open the selection
+     window.
+
+`w3m-select-buffer-window-ratio'
+     The percentage of the selection window to the whole frame.  The
+     car is used when splitting windows horizontally and the cdr is
+     for splitting windows vertically.
+
+`w3m-show-decoded-url'
+     Non-`nil' means show decoded URIs in the echo area, the balloon,
+     etc.  This variable can take one of the following five kinds of
+     forms:
+
+       1. t
+
+          Decode URIs using the encoding guessed from the value of
+          `w3m-coding-system-priority-list'.
+
+       2. Coding system
+
+          Decode URIs using this value.
+
+       3. List of coding systems
+
+          Decode URIs using the encoding assumed based on this list.
+
+       4. Alist of predicates and forms described below:
+
+          Each element looks like the `(PREDICATE . ENCODING)' form.
+          `PREDICATE' should be a regexp, a function or a Lisp form,
+          and `ENCODING' should be one of the forms described here
+          excluding this form.  If `PREDICATE' is a regexp, it will be
+          tested whether it matches to the target url.  If it is a
+          function, it will be called with the target url.  If it is a
+          Lisp form, it will be simply evaluated.  Elements are tested
+          in turn until the result of the test of the predicate is
+          true and the encoding which is associated to the predicate
+          is used for decoding URIs.
+
+       5. nil
+
+          Don't decode URIs.
+
+`w3m-use-title-buffer-name'
+     Non-`nil' means use name of buffer included current title.
+
+`w3m-show-error-information'
+     Non-`nil' means show an error information as a web page.  Page is
+     made when the foreign server doesn't respond to a request to
+     retrieve data.
+
+`w3m-space-before-favicon'
+     String of space char(s) to be put in front of favicon in the
+     mode-line.  It may be better to use two or more spaces if you are
+     using oblique or italic font in the modeline.
+
+`w3m-space-before-modeline-icon'
+     String of space character(s) to be put in front of the modeline
+     icon.  It may be better to use one or more spaces if you are
+     using oblique or italic font in the modeline.
+
+`w3m-terminal-coding-system'
+     Default coding system used when writing to `w3m' processes.  It
+     is just a default value to set process' coding system initially.
+     (This variable name is analogically derived from the behavior of
+     the `w3m' command which accepts data from Emacs just like reads
+     from the terminal.)
+
+`w3m-touch-command'
+     Name of the executable file of the touch command.  Note that the
+     command is required to be able to modify file's timestamp with
+     the `-t' option.
+
+`w3m-track-mouse'
+     Whether to track the mouse and message the url under the mouse.
+     See also `show-help-function' if you are using GNU Emacs.
+
+     A tip for XEmacs users:
+
+     You can also use the `balloon-help' feature by the
+     `M-x balloon-help-mode' command with arg 1.  If the window
+     manager decorates the balloon-help frame, and that is not to your taste,
+     you may strip it off with the following directives:
+
+          For ol[v]wm use this in .Xdefaults:
+             olvwm.NoDecor: balloon-help
+               or
+             olwm.MinimalDecor: balloon-help
+
+          For fvwm version 1 use this in your .fvwmrc:
+             NoTitle balloon-help
+          or
+             Style "balloon-help" NoTitle, NoHandles, BorderWidth 0
+
+          For twm use this in your .twmrc:
+             NoTitle { "balloon-help" }
+
+     See the `balloon-help.el' file for more information.
+
+`w3m-uri-replace-alist'
+     Alist of regexps matching URIs, and some types of replacements.
+     It can be used universally to replace URI strings in the local
+     rule to the valid forms in the Internet.
+
+     Each element looks like the `(REGEXP FUNCTION OPTIONS...)' form.
+     `FUNCTION' takes one or more arguments, a uri and `OPTIONS'.  You
+     can use the grouping constructs `\\(...\\)' in `REGEXP', and they
+     can be referred by the `\N' forms in a replacement (which is one
+     of `OPTIONS').
+
+     Here are some predefined functions which can be used for those
+     ways:
+
+     `w3m-pattern-uri-replace'
+          Replace a URI using PATTERN (which is just an `OPTION').  It
+          is allowed that PATTERN contains the `\N' forms in the same
+          manner of `replace-match'.
+
+     `w3m-search-uri-replace'
+          Generate valid URLs to query words on some specified search
+          engines.  For example, the element
+
+               ("\\`gg:" w3m-search-uri-replace "google")
+
+          makes it possible to replace the URI `gg:emacs' to a query
+          for the word `emacs' on the Google search engine.
+
+`w3m-url-local-directory-alist'
+     Alist of URLs and local directories.  If directory names of a
+     given URL and the car of an element are the same, emacs-w3m
+     assumes that the file exists in the local directory where the cdr
+     of an element points to.  The default value will be set to a
+     value of the `yahtml-path-url-alist' variable which exchanged the
+     car and the cdr in each element if it is available.
+
+`w3m-use-ange-ftp'
+     Non-`nil' means that `ange-ftp' or `efs' is used to access FTP
+     servers.
+
+`w3m-use-cygdrive'
+     If non-`nil', use the `/cygdrive/' rule when performing
+     `expand-file-name'.
+
+`w3m-use-filter'
+     Non-`nil' means use filter programs to convert web contents.  See
+     also `w3m-filter-rules' (the `w3m-filter.elc' module provides
+     it but might have never been loaded.  In that case, to see the default
+     value and the documentation of `w3m-filter-rules', type
+     `M-x load-library <RET> w3m-filter <RET>').
+
+`w3m-use-form'
+     Non-`nil' means make it possible to use form
+     extensions. *(EXPERIMENTAL)*
+
+`w3m-submit-form-safety-check'
+     Non-`nil' means ask you for confirmation when submitting a form.
+     The default value is `nil'.
+
+`w3m-use-header-line'
+     Non-`nil' means display the header line.
+
+`w3m-use-header-line-title'
+     Non-`nil' means display the current title at the header
+     line. This variable is effective only when `w3m-use-tab' is
+     `nil'.
+
+`w3m-use-mule-ucs'
+     Non-`nil' means use the multi-script support with Mule-UCS.
+
+`w3m-use-refresh'
+     Non-`nil' means honor the REFRESH attribute in META tags.
+     Emacs-w3m arbitrarily takes you to a url specified by that
+     attribute.  Note that they may be malicious traps.
+
+`w3m-refresh-minimum-interval'
+     history-back, history-next $B$G%Z!<%8$r8+$?;~$K:GDc8B(B refresh $B$rBT$D(B
+     $BIC?t!#(B
+
+`w3m-use-symbol'
+     Non-`nil' means replace symbols that the `<_SYMBOL>' tags lead
+     into.  It is meaningful only when the `w3m-m17n' command is used
+     and (X)Emacs handles unicode charsets.
+
+`w3m-menu-on-forefront'
+     Non-`nil' means place the emacs-w3m menus on the forefront of the
+     menu bar.  The default value is `nil'.
+
+`w3m-use-tab'
+     Non-`nil' means make emacs-w3m a tab browser.  It makes it possible
+     to show all emacs-w3m buffers in a single window with the tabs line, and
+     you can choose one by clicking a mouse on it.  See also
+     `w3m-use-tab-menubar'.
+
+`w3m-use-tab-menubar'
+     Non-`nil' means use the TAB pull-down menu in the menubar.  It
+     makes it possible to show all emacs-w3m buffers in a single
+     window, and you can choose one by clicking a mouse on it.  This
+     feature requires that Emacs has been built to be able to display
+     multilingual text in the menubar if you often visit web sites
+     written in non-ascii text.  See also `w3m-use-tab'.
+
+`w3m-use-toolbar'
+     Non-`nil' activates toolbar of `w3m'.
+
+`w3m-user-agent'
+     String used for the User-Agent field.  See also
+     `w3m-add-user-agent'.
+
+`w3m-new-session-in-background'
+     Say whether not to focus on a new tab or a new session in target.
+     It influences only when a new emacs-w3m buffer is created.
+
+`w3m-do-cleanup-temp-files'
+     $BHs(B`nil' $B$J$i$P!"(B emacs-w3m $B$O<+F0E*$K:o=|$7$=$3$J$C$?0l;~%U%!%$%k(B
+     $B$r:o=|$7$^$9!#(B $B%G%U%)%k%H$O(B `nil' $B$G$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Image Variables, Next: Form Variables, Prev: General Variables, Up: Customizable Variables
+
+$A;-Oq$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+==================
+
+`w3m-default-display-inline-images'
+     $BHs(B`nil' $B$J$i$P!"%$%s%i%$%s2hA|$r(B emacs-w3m $B$N%P%C%U%!$KI=<($7$^$9!#(B
+     $B2hA|I=<($N(B ON/OFF $B$O(B `w3m-toggle-inline-images' $B$G@Z$jBX$($i$l$^$9!#(B
+     `w3m-toggle-inline-images-permanently' $B$b;2>H$7$F$/$@$5$$!#(B
+
+`w3m-favicon-cache-expire-wait'
+     $B<hF@$+$i$3$NJQ?t$G;XDj$5$l$?IC?t0J>e7P2a$7$?%-%c%C%7%e$O:o=|$5$l$^(B
+     $B$9!#$3$NJQ?t$,(B `nil' $B$J$i$P!":o=|$5$l$k$3$H$O$"$j$^$;$s!#(B
+
+`w3m-favicon-cache-file'
+     favicon $B$N%-%c%C%7%e$rJ]B8$9$k%U%!%$%kL>!#%G%U%)%k%H$O!"JQ?t(B
+     `w3m-profile-directory' $B$G;XDj$5$l$?%G%#%l%/%H%j2<$N(B `.favicon' $B$H(B
+     $B$$$&L>A0$N%U%!%$%k$G$9!#(B
+
+`w3m-favicon-size'
+     favicon $B$N%5%$%:!#$3$NCM$O!"(B`convert' $B$X$N(B geometry $B0z?t$H$7$F;H$o(B
+     $B$l$^$9!#(B
+
+`w3m-favicon-type'
+     favicon $B$rI=<($9$k$N$K;H$o$l$k2hA|$N<oN`!#(B
+
+`w3m-favicon-use-cache-file'
+     $BHs(B`nil' $B$J$i$P!"(Bfavicon $B$N%-%c%C%7%e%U%!%$%k$r;H$$$^$9!#(B
+
+`w3m-favicon-default-background'
+     favicon $B2hA|$NF)2a?'$H$7$F;H$o$l$k?'$NL>A0!#(B`nil' $B$G$"$l$P!"(BEmacs
+     $B$N%U%l!<%`$NGX7J?'$r;H$&!#6uJ8;z$OFCJL$G!"%X%C%@%i%$%s$+%b!<%I%i%$(B
+     $B%s$+$N(B favicon $B$,I=<($5$l$F$$$k$[$&$NGX7J?'$KCV49$($i$l$k!#$3$NJQ(B
+     $B?t$O!"(BEmacs 22 $B0J>e$G$7$+8zNO$r;}$?$J$$$3$H$KCm0U!#(B
+
+`w3m-icon-directory'
+     emacs-w3m $B$,%"%$%3%s$rC5$9%G%#%l%/%H%j!#(B
+
+`w3m-imagick-convert-program'
+     ImageMagick $B$N(B `convert' $B$N%W%m%0%i%`L>!#(B
+
+`w3m-treat-image-size'
+     $BHs(B`nil' $B$J$i$P!"(B`w3m' $B$,2hA|$H%F%-%9%H$NHfN($r9MN8$7$^$9!#%G%U%)%k(B
+     $B%H$O(B `t' $B$G$9!#(B
+
+     $BHs(B-`nil' $B$J$i$P!"(B`w3m' $B2hA|$,CV$+$l$k>l=j$r3NJ]$7$?(B `halfdump' $B$r(B
+     $B@8@.$7!"(B`alt' $B%F%-%9%H$O2hA|$NI=<(I}$KEy$7$/$J$k$h$&$K@Z$j5M$a$i$l(B
+     $B$k!"$"$k$$$O%9$Z!<%9$r5M$a$i$l$^$9!#(B
+
+     `w3m-pixels-per-character' $B$H(B `w3m-pixels-per-line' $B$b;2>H$7$F$/$@(B
+     $B$5$$!#$3$l$i$NCM$,2hA|$,@j$a$k7e$H9T$H$r7W;;$9$k$?$a$K(B `w3m' $B%3%^(B
+     $B%s%I$KEO$5$l$^$9!#(B
+
+`w3m-pixels-per-character'
+     Integer used for the `-ppc' argument of the `w3m' command.  If
+     `nil', the width of the default face is used.  It is valid only
+     when `w3m-treat-image-size' is non-`nil'.  The default value is
+     `nil'.  If you want to use emacs-w3m in a character terminal and
+     make `w3m-treat-image-size' effective, you need to set this
+     variable properly.
+
+`w3m-pixels-per-line'
+     Integer used for the `-ppl' argument of the `w3m' command.  If
+     `nil', the height of the default face is used.  It is valid only
+     when `w3m-treat-image-size' is non-`nil'.  Note that a small
+     value may not induce a good result.  The default value is `64'.
+     If you want to use emacs-w3m in a character terminal and make
+     `w3m-treat-image-size' effective, you need to set this variable
+     properly.
+
+`w3m-resize-image-scale'
+     Number of steps in percent used when resizing images.
+
+`w3m-resize-images'
+     If non-`nil', resize images to the specified width and height.
+
+`w3m-show-graphic-icons-in-header-line'
+     Non-`nil' means show graphic status indicators in the
+     header-line.  If it is `nil', also the favicon won't be shown in
+     the header-line even if `w3m-use-favicon' is non-`nil'.  This
+     variable is currently meaningless under XEmacs.
+
+`w3m-show-graphic-icons-in-mode-line'
+     Non-`nil' means show graphic status indicators in the mode-line.
+     If it is `nil', also the favicon won't be shown in the mode-line
+     even if `w3m-use-favicon' is non-`nil'.
+
+`w3m-toggle-inline-images-permanently'
+     Non-`nil' means let the visibility of images continue
+     permanently.  The visibility of images is initialized according
+     to `w3m-default-display-inline-images' at the first time, and
+     except that it may be toggled by the `w3m-toggle-inline-images'
+     command, it does not change hereafter, if it is non-`nil'.
+     Otherwise, whether images are visible is initialized according to
+     `w3m-default-display-inline-images' whenever you visit a new page
+     or reload the current page in an emacs-w3m buffer.
+
+`w3m-use-favicon'
+     Non-`nil' means show favicon images if they are available.  It
+     will be set to `nil' automatically if ImageMagick's `convert'
+     program does not support the ico format.
+
+`w3m-image-default-background'
+     $B2hA|$NF)2a?'$H$7$F;H$o$l$k?'$NL>A0!#(B`nil' $B$J$i$P!"(BEmacs $B$N%U%l!<%`(B
+     $B$NGX7J?'$,;H$o$l$k!#6uJ8;z(B ("") $B$OFCJL$K!"%P%C%U%!$NGX7J?'$KCV$-49(B
+     $B$($i$l$k!#$3$NJQ?t$O(B Emacs 22 $B0J9_$G$N$_M-8z$G$"$k!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Form Variables, Next: Cookie Variables, Prev: Image Variables, Up: Customizable Variables
+
+$A%U%)$B!<$A%`$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+======================
+
+`w3m-form-input-map-buffer-lines'
+     Buffer lines for form select map buffer.
+
+`w3m-form-input-select-buffer-lines'
+     Buffer lines for form select buffer.
+
+`w3m-form-input-textarea-buffer-lines'
+     Buffer lines for form textarea buffer.
+
+`w3m-form-mouse-face'
+     Mouse face to highlight selected value.
+
+`w3m-form-treat-textarea-size'
+     Non-`nil' means to process textarea size (treat textarea rows).
+
+`w3m-form-use-fancy-faces'
+     Use fancy faces to fontify `<form>' tags.
+
+`w3m-form-use-textarea-backup'
+     Non-`nil' means save and restore backup text saved when you last
+     edited this textarea.  Files to save text are stored in the
+     directory specified by the `w3m-form-textarea-directory'
+     variable.
+
+
+
+File: emacs-w3m-ja.info, Node: Cookie Variables, Next: Bookmark Variables, Prev: Form Variables, Up: Customizable Variables
+
+$A%/%C%-$B!<$A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+======================
+
+`w3m-cookie-accept-bad-cookies'
+     If `nil', don't accept bad cookies.  If `t', accept bad cookies.
+     If ask, ask user whether accept bad cookies or not.
+
+`w3m-cookie-accept-domains'
+     A list of trusted domain name string.
+
+`w3m-cookie-file'
+     File in which cookies are kept.
+
+`w3m-cookie-reject-domains'
+     A list of untrusted domain name string.
+
+`w3m-use-cookies'
+     Non-`nil' means enable emacs-w3m to use cookies.
+     *(EXPERIMENTAL)*
+
+
+
+File: emacs-w3m-ja.info, Node: Bookmark Variables, Next: Search Variables, Prev: Cookie Variables, Up: Customizable Variables
+
+$A%V%C%/%^$B!<$A%/$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+==========================
+
+`w3m-bookmark-file'
+     Bookmark file of w3m.
+
+`w3m-bookmark-file-coding-system'
+     Coding system for a created bookmark file.  This option is used
+     when a new bookmark file is created, or when an existing bookmark
+     file includes ASCII characters only.  If the coding system which
+     is used to encode your using bookmark file is different from the
+     value of this option, emacs-w3m does not change the encoding of
+     your bookmark file.
+
+`w3m-bookmark-default-section'
+     Default section to add new entry.
+
+`w3m-bookmark-menu-open-new-session'
+     If non-`nil', "Bookmark" menu item open new session.
+
+
+
+File: emacs-w3m-ja.info, Node: Search Variables, Next: Weather Variables, Prev: Bookmark Variables, Up: Customizable Variables
+
+$A%&%'%V$(I<D$AKw$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+========================
+
+`w3m-search-default-engine'
+     Name of the default search engine.  The default is `google'.
+
+`w3m-search-engine-alist'
+     An alist of search engines.  Each element looks like `(ENGINE
+     ACTION CODING POST-DATA)'.  ENGINE is a string, the name of the
+     search engine.  ACTION is a string, the URL that performs a
+     search.  ACTION must contain a `"%s"', which is substituted by a
+     query string.  CODING is optional value which is coding system
+     for query string.  POST-DATA is optional value which is a string
+     for POST method search engine.  If CODING is omitted, it defaults
+     to `w3m-default-coding-system'.
+
+`w3m-search-word-at-point'
+     Non-`nil' means that the word at point is used as an initial
+     string.  If `transient-mark-mode', this option is ignored and the
+     region is used as an initial string.  The default is `t'.
+
+`w3m-search-thing-at-point-arg'
+     `w3m-search-read-query' $B$G;H$o$l$k(B `thing-at-point' $B$X$N0z?t!#%G%U%)(B
+     $B%k%H$O(B `word'.
+
+
+
+File: emacs-w3m-ja.info, Node: Weather Variables, Next: Dtree Variables, Prev: Search Variables, Up: Customizable Variables
+
+$ALl$B5$$ASh$(G^^$A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+======================
+
+`w3m-weather-default-area'
+     Default region to check weather.  The default is the southern
+     part of Kyoto city.
+
+`w3m-weather-filter-functions'
+     Filter functions to remove useless tags.  The default value is a
+     list that contains the following function symbols in this order:
+
+     `w3m-weather-extract-contents' `w3m-weather-adjust-contents'
+     `w3m-weather-expand-anchors' `w3m-weather-insert-title'
+
+
+
+File: emacs-w3m-ja.info, Node: Dtree Variables, Next: Antenna Variables, Prev: Weather Variables, Up: Customizable Variables
+
+dtree $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+====================
+
+`w3m-dtree-default-allfiles'
+     If non-`nil', invert the meaning of the prefix argument given to
+     the `w3m-dtree' command, i.e., the command shows not only
+     directories but also files even if you don't give a prefix
+     argument.  The default is `nil'.
+
+`w3m-dtree-directory-depth'
+     Integer that controls how deep `w3m-dtree' shows subdirectories.
+     If it is `nil', files in all subdirectories are shown.  The
+     default is `8'.
+
+`w3m-dtree-indent-strings'
+     Vector containing strings used for the indentation.  The default is
+     `["|-" "+-" "|  " "   "]'.
+
+`w3m-dtree-stop-strings'
+     Vector containing strings used to indent directories under which
+     there are subdirectories hidden because of
+     `w3m-dtree-directory-depth'.  The default is `["|=" "+="]'.
+
+
+
+File: emacs-w3m-ja.info, Node: Antenna Variables, Next: Perldoc Variables, Prev: Dtree Variables, Up: Customizable Variables
+
+$A%"%s%F%J$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+======================
+
+`w3m-antenna-file'
+     Name of the file containing antenna URLs.  The default value is
+     `~/.w3m/.antenna', where `~/.w3m' is the default value of
+     `w3m-profile-directory' (*Note General Variables::).
+
+`w3m-antenna-html-skelton'
+     Skeleton used for making the html contents of antenna pages.
+
+`w3m-antenna-make-summary-function'
+     Function used to make the summary of the site information.  The
+     default is `w3m-antenna-make-summary-like-natsumican'.  The other
+     ready-made function is `w3m-antenna-make-summary'.
+
+`w3m-antenna-sites'
+     List of web sites that `w3m-antenna' watches.  The default is
+     `nil'.
+
+`w3m-antenna-sort-changed-sites-function'
+     Function used to sort a list of sites having been changed.  The
+     default is `w3m-antenna-sort-sites-by-time'.  The other
+     ready-made function is `w3m-antenna-sort-sites-by-title'.
+
+`w3m-antenna-sort-unchanged-sites-function'
+     Function used to sort a list of sites having not been changed.
+     The default is `w3m-antenna-sort-sites-by-time'.  The other
+     ready-made function is `w3m-antenna-sort-sites-by-title'.
+
+
+
+File: emacs-w3m-ja.info, Node: Perldoc Variables, Next: Namazu Variables, Prev: Antenna Variables, Up: Customizable Variables
+
+Perldoc $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+======================
+
+`w3m-perldoc-command'
+     Name of the executable file of `perldoc'.  The default is
+     `"perldoc"'.
+
+`w3m-perldoc-input-coding-system'
+     Coding system used when writing to the `perldoc' command.  The
+     default value is `euc-japan' if you are in the Japanese language
+     environment.  Otherwise it is `utf-8' if it is available, or
+     `iso-latin-1'.
+
+`w3m-perldoc-output-coding-system'
+     Coding system used when reading from the `perldoc' command.  The
+     default is `undecided'.
+
+`w3m-perldoc-pod2html-command'
+     Name of the executable file of `pod2html'.  The default is
+     `"pod2html"'.
+
+`w3m-perldoc-pod2html-arguments'
+     Lisp of arguments passed to the `pod2html' command.  The default is
+     `("--noindex")'.
+
+
+
+File: emacs-w3m-ja.info, Node: Namazu Variables, Next: Octet Variables, Prev: Perldoc Variables, Up: Customizable Variables
+
+Namazu $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+=====================
+
+`w3m-namazu-command'
+     Name of the executable file of Namazu.  The default is `namazu'.
+
+`w3m-namazu-arguments'
+     List of arguments passed to Namazu.  The default value is `("-h"
+     -H" "-n" w3m-namazu-page-max "-w" whence)'.  The symbols
+     `w3m-namazu-page-max' and `whence' will be replaced respectively
+     with the value of that variable and a proper value that the
+     program determines properly.
+
+`w3m-namazu-default-index'
+     An alias for the default index, or the directory name of it.  If this is
+     `nil', you will be prompted for the directory name whenever you
+     invoke the `w3m-namazu' command with no prefix argument.  The
+     default is the value of `namazu-default-dir' if it exists and
+     `namazu-always-query-index-directory' is `nil'.  Otherwise
+     `nil'.
+
+`w3m-namazu-index-alist'
+     Alist of aliases and index directories.  The default value is
+     determined due to `namazu-dir-alist' if any or `nil'.
+
+`w3m-namazu-input-coding-system'
+     Coding system used when reading from the namazu process.  The
+     default is the value of `namazu-cs-read' if it exists, or
+     `undecided'.
+
+`w3m-namazu-output-coding-system'
+     Coding system used when writing to the namazu process.  The default is
+     the value of `namazu-cs-write' if it exists, or is determined to
+     `shift_jis-dos' or `euc-japan-unix' due to the system type.
+
+`w3m-namazu-page-max'
+     The maximum number of documents retrieved in one search.  The
+     default is the value of `namazu-search-num' if any, or `30'.
+
+
+
+File: emacs-w3m-ja.info, Node: Octet Variables, Next: Session Manager Variables, Prev: Namazu Variables, Up: Customizable Variables
+
+Octet $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+====================
+
+There is no user option for the moment.
+
+* Session Manager Variables::
+
+
+File: emacs-w3m-ja.info, Node: Session Manager Variables, Next: Hooks, Prev: Octet Variables, Up: Customizable Variables
+
+$A%;%C%7%g%s%^%M$B!<$A%8%c$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B
+==================================
+
+`w3m-session-file'
+     $B%;%C%7%g%s$rJ]B8$9$k%U%!%$%kL>!#(B
+
+`w3m-session-time-format'
+     $BJ]B8;~4V$N7A<0!#(B
+
+`w3m-session-automatic-title'
+     emacs-w3m $B=*N;;~$N<+F0J]B8%;%C%7%g%s$N%?%$%H%k!#(B
+
+`w3m-session-crash-recovery-title'
+     $B%/%i%C%7%eI|85MQ%;%C%7%g%s$N%?%$%H%k!#(B
+
+`w3m-session-deleted-title'
+     $B%P%C%U%!$rJD$8$?;~$N<+F0J]B8%;%C%7%g%s$N%?%$%H%k!#(B
+
+`w3m-session-deleted-keep-number'
+     $B%P%C%U%!$rJD$8$?;~$N<+F0J]B8%;%C%7%g%s$r$$$/$DJ]B8$7$F$*$/$+!#(B
+
+`w3m-session-automatic-keep-number'
+     emacs-w3m $B=*N;;~$N<+F0J]B8%;%C%7%g%s$r$$$/$DJ]B8$7$F$*$/$+!#(B
+
+`w3m-session-unknown-title'
+     $B%?%$%H%k$,;XDj$5$l$J$+$C$?;~$K;H$o$l$kJ8;zNs!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Hooks, Next: Other Variables, Prev: Session Manager Variables, Up: Customizable Variables
+
+$A%U%C%/(B
+======
+
+`w3m-after-cursor-move-hook'
+     Hook run each time after the cursor moves in emacs-w3m buffers.
+     This hook is called by the `w3m-check-current-position' function
+     by way of `post-command-hook'.
+
+`w3m-delete-buffer-hook'
+     Hook run when every emacs-w3m buffer is deleted.
+
+`w3m-display-hook'
+     Hook run after displaying pages in emacs-w3m buffers.  Each function is
+     called with a url string as the argument.  This hook is evaluated by the
+     `w3m-goto-url' function.
+
+`w3m-fontify-after-hook'
+     Hook run after fontifying emacs-w3m buffers.  This hook is
+     evaluated by the `w3m-fontify' function.
+
+`w3m-fontify-before-hook'
+     Hook run when starting to fontify emacs-w3m buffers.  This hook
+     is evaluated by the `w3m-fontify' function.
+
+`w3m-form-input-map-mode-hook'
+     A hook called after w3m-form-input-map-mode.
+
+`w3m-form-input-map-set-hook'
+     A Hook called before w3m-form-input-map-set.
+
+`w3m-form-input-select-mode-hook'
+     A hook called after w3m-form-input-select-mode.
+
+`w3m-form-input-select-set-hook'
+     A Hook called before w3m-form-input-select-set.
+
+`w3m-form-input-textarea-mode-hook'
+     A hook called after w3m-form-input-textarea-mode.
+
+`w3m-form-input-textarea-set-hook'
+     A Hook called before w3m-form-input-textarea-set.
+
+`w3m-minor-mode-hook'
+     Hook run after `w3m-minor-mode' initialization.
+
+`w3m-mode-hook'
+     Hook run after `w3m-mode' initialization.  This hook is evaluated
+     by the `w3m-mode' function.
+
+`w3m-select-buffer-hook'
+     Hook run when a different emacs-w3m buffer is selected.
+
+`w3m-bookmark-mode-hook'
+     Hook run at the end of function `w3m-bookmark-mode'.
+
+
+
+File: emacs-w3m-ja.info, Node: Other Variables, Prev: Hooks, Up: Customizable Variables
+
+$A$=$NK{$N$(I+y$AJ}(B
+============
+
+`w3m-async-exec'
+     Non-`nil' means execute the `w3m' command asynchronously in Emacs
+     process.
+
+`w3m-broken-proxy-cache'
+     Set it to `t' if the proxy server seems not to work properly in
+     caching.  Note that this may be the double-edged sword; setting
+     it to `t' will likely be harmful if the proxy server sends bad
+     requests (e.g., not including the Host header, see RFC2616
+     section 14.23) to foreign servers when the `w3m' command
+     specifies the `no-cache' directive.  Also note that it may not be
+     effective if you are using old `w3m' command.
+
+`w3m-history-minimize-in-new-session'
+     Non-`nil' means minimize copied history so that there's only
+     current page.  This variable is effective when creating of the new
+     session by copying (i.e., `w3m-copy-buffer').  The default value is
+     `nil'.
+
+`w3m-history-reuse-history-elements'
+     Non-`nil' means reuse the history element when re-visiting the
+     page.  Otherwise, a new history element will be created even if
+     there are elements for the same url in the history.
+
+     Emacs-w3m used to operate as the case in which it is non-`nil',
+     however it sometimes brought about users' dissatisfaction.  For
+     example, if a user visited the pages A -> B -> C -> B in order,
+     performing BACK on the second B would let a user visit A.  The
+     reason why a user was taken to A rather than C is that the
+     `w3m-history' variable only had the list `(A B C)' as a history
+     and B was the current position at that time.
+
+     The default value for this variable is `nil' which allows the
+     `w3m-history' variable to have the list `(A B C B)'.  Where
+     contents of two B's are the identical Lisp objects.  So, too much
+     wasting the Lisp resources will be avoided.
+
+     See the documentation for the variables `w3m-history' and
+     `w3m-history-flat' for more information.
+
+`w3m-process-connection-type'
+     Value for `process-connection-type' used when communicating with
+     `w3m'.
+
+`w3m-process-modeline-format'
+     Format used when displaying the progress of the external `w3m'
+     process.  It shows a percentage of the data loaded from the web
+     server.
+
+`w3m-show-current-title-in-buffer-tab'
+     If non-`nil', show the title strings in the buffers tab.  It has
+     no effect if your XEmacs does not support the gutter items.
+
+
+
+File: emacs-w3m-ja.info, Node: Hooking into MUAs, Next: Frequently Asked Questions, Prev: Customizable Variables, Up: Top
+
+$A%a$B!<$A%k(B/$A%K%e$B!<$A%9%j$B!<$A%@$B!<$A$GJ9$&(B
+*****************************
+
+$B$3$3$G$O;0<oN`$N(B MUA (Message User Agent) $B$r>R2p$7$^$9!#$=$l$i$N(B MUA $B$O(B
+$B$9$Y$F(B emacs-w3m $B$r;H$&$3$H$K$h$C$F(B HTML $B%a!<%k$rE,@Z$KI=<($9$k$3$H$,$G(B
+$B$-$^$9!#$=$l$>$l$N(B MUA $B$H(B emacs-w3m $B$r@_Dj$7$F;H$&$?$a$N(B HowTo $B$H$$$/$D(B
+$B$+$NCm0U$r!"$3$3$G8+$D$1$k$3$H$,$G$-$k$G$7$g$&!#(B
+
+$B0[$J$k=,47$K4X$9$kB(@J$NCm<a(B: `message' $B$C$F2?(B? $B!](B Gnus $B%f!<%6$,(B
+`message' $B$H8@$&$H$-!"$=$l$O$7$P$7$P%a!<%k$^$?$O%K%e!<%9$H$7$FAw?.$9$k(B
+$B%a%C%;!<%8$NAp9F$r0UL#$7$^$9!#$7$+$7!"$=$l$O(B Mew $B$d(B Wanderlust $B$N%f!<%6(B
+$B$,!"<u?.$7$?%a%C%;!<%8$KBP$7$F;H$&MQ8l$G$9!#H`$i$OAw?.$9$k%a%C%;!<%8$K(B
+`draft' $B$r;H$C$F$$$^$9!#0lJ}(B Gnus $B%f!<%6$O!"<u?.$7$?%a%C%;!<%8$r(B
+`article' $B$H8F$S$^$9!#(B
+
+* Menu:
+
+* Gnus::                        Gnus $B$G(B HTML $B%a!<%k$rFI$`(B
+* Mew::                         Mew $B$G(B HTML $B%a!<%k$rFI$`(B
+* SEMI MUAs::                   SEMI MUA $B$G(B HTML $B%a!<%k$rFI$`(B
+* VM::                          VM (vieW maiL) $B$O(B Wanderlust $B$K$"$i$:(B
+
+
+
+File: emacs-w3m-ja.info, Node: Gnus, Next: Mew, Prev: Hooking into MUAs, Up: Hooking into MUAs
+
+Gnus $A$G(B HTML $A%a$B!<$A%k$r$BFI$A$`(B
+=========================
+
+Gnus (Emacs $B$N%K%e!<%:%j!<%@!<(B) $B$,(B emacs-w3m $B$r%5%]!<%H$7$F$$$k$C$F!"CN$C(B
+$B$F$$$^$7$?$+(B?  $B<B$O!"%P!<%8%g%s(B 22.1 $B0J>e$N(B Emacs $B$KF1:-$5$l$F$$$k(B
+Gnus $B$O(B emacs-w3m $B$r%5%]!<%H$9$k$s$G$9!#$b$7$"$J$?$N(B Emacs $B$,$$$/$i$+8E(B
+$B$$$N$J$i$P!":G?7HG$N(B Gnus $B$r;H$&$N$,NI$$$G$7$g$&!#$=$l$O0J2<$N>l=j$G<j(B
+$B$KF~$j$^$9(B:
+
+`ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz'
+
+   * Emacs-w3m $B$G2?$,$G$-$k$N(B?
+
+     HTML $B$N(B spam $B%a!<%k$r!"(Bemacs-w3m $B$r;H$C$F?M4V$,FI$a$k$h$&$KJQ49$9(B
+     $B$k$3$H$,$G$-$^$9!#$b$A$m$s(B HTML $B$N(B ham $B%a!<%k(B (spam $B$G$O$J$$%a!<%k(B)
+     $B$KBP$7$F$bF/$-!"$I$A$i$N>l9g$G$b(B emacs-w3m $B$O%G%U%)%k%H$NJQ494o$h(B
+     $B$j$b$?$V$sB.$$$G$7$g$&!#DI2C$NA`:n$OI,MW$"$j$^$;$s!#$=$l$OC1$KI=<((B
+     $B$5$l$^$9!#(B
+
+     $B5-;v%P%C%U%!$N(B HTML $B$NItJ,$G$O(B `w3m-minor-mode' $B$,(B on $B$K$J$C$F!"(B
+     emacs-w3m $B$N$HF1$8<gMW$J%-!<$r;H$&$3$H$,$G$-$^$9!#Nc$($P(B `<RET>'
+     $B$O!"8=:_0LCV$N%j%s%/$,;X$7<($9%Z!<%8$K9T$-$^$9!#$=$l$i$N%-!<$OJQ?t(B
+     `w3m-minor-mode-command-alist' $B$GDj5A$5$l$F$$$^$9!#J]0B>e$NM}M3$+(B
+     $B$i!"$$$/$D$+$N%3%^%s%I$O$=$l$K;w$?JL$N%3%^%s%I$GCV$-49$($i$l$F$$$k(B
+     $B$3$H$r?4$KN1$a$F$*$$$F$/$@$5$$(B ($B2<5-;2>H(B)$B!#(B
+
+   * $B2?$r$7$J$1$l$P$$$1$J$$$N(B?
+
+     Gnus $B$N%^%K%e%"%k$rFI$s$G$/$@$5$$(B (*Note Display Customization:
+     (emacs-mime)Display Customization.)$B!#:G$b4JC1$JJ}K!$O!"0J2<$N9T$r(B
+     `~/.gnus.el' $B%U%!%$%k$KF~$l$k$3$H$G$9(B:
+
+          (setq mm-text-html-renderer 'w3m)
+
+     $B$5$i$K!"5-;v%P%C%U%!$G2hA|$rI=<($7$?$$>l9g$O!"0J2<$N9T$rF~$l$F$/$@(B
+     $B$5$$!#(B
+
+          (setq mm-inline-text-html-with-images t)
+
+     $B5-;v%P%C%U%!$G(B emacs-w3m $B$N%-!<$r;H$&I,MW$,L5$$$J$i$P!"0J2<$N9T$b(B
+     $BDI2C$7$F$/$@$5$$(B:
+
+          (setq mm-inline-text-html-with-w3m-keymap nil)
+
+   * $B$4Cm0U(B
+
+     $BA0$K(B spam $B$H(B ham $B$N$3$H$r=q$$$?$N$O$U$6$1$F$$$k$o$1$G$O$J$/$F!"$"(B
+     $B$J$?$NCm0U$r4-5/$9$k$?$a$K$^$5$K$3$3$K$"$k$N$G$9!#(BHTML $B%a!<%k$K$O(B
+     `<img>' $B%?%0$r;H$C$?(B spammers (spam $B$r$P$i$^$/$d$+$i(B) $B$NH\Nt$J0-9*(B
+     $B$_$,4^$^$l$F$$$k$+$b$7$l$^$;$s!#$=$l$O(B `Click Here!' $B%\%?%s$h$j$O(B
+     $B$k$+$KM-32$G$9!#:G$b$"$j$=$&$J$N$O!"$=$s$J$?$A$N0-$$(B spam $B$,$"$J$?(B
+     $B$NL\$K;_$^$C$?$+$I$&$+$r8!::$9$k!"$9$J$o$A$3$N>l9g!"$"$J$?$N%a!<%k(B
+     $B%"%I%l%9$,M-8z$G$"$k$3$H$r3NG'$9$k$?$a$N(B spammer $B$N0U?^$,$"$k$3$H(B
+     $B$G$9!#$=$l$O!"2hA|$rI=<($9$k$H$-$K<+F0E*$K<hF@$7$K9T$/$G$"$m$&(B
+     URL $B$K!"<1JLJ8;zNs$rKd$a9~$`$3$H$K$h$C$F9T$J$o$l$^$9!#JQ?t(B
+     `mm-w3m-safe-url-regexp' $B$,%G%U%)%k%HCM$+$iJQ99$5$l$F$$$J$1$l$P!"(B
+     Gnus $B$,>!<j$K(B spammer $B$N%5%$%H$K@\B3$9$k$3$H$O$"$j$^$;$s!#(B
+
+     `mm-inline-text-html-with-images' $B$r(B `t' $B$K$9$l$P!"5-;v%P%C%U%!$K(B
+     $B%$%s%i%$%s2hA|$rI=<($9$k$3$H$,$G$-$^$9$h$M(B?  $B$$$$$(!"CG$8$F0c$$$^(B
+     $B$9!#$"$J$?$O$^$@<i$i$l$F$$$k$N$G$9!#$"$J$?$N%a!<%k%"%I%l%9$,E~C#2D(B
+     $BG=$@$H$$$&;v<B$,O3$l$k$3$H$r5$$K$7$J$$$N$G$"$l$P!"JQ?t(B
+     `mm-w3m-safe-url-regexp' $B$r(B `nil' $B$K$7$F$/$@$5$$!#(B
+     `mm-w3m-safe-url-regexp' $B$N%G%U%)%k%HCM$O(B `"\\`cid:"' $B$G!"$3$l$O;d(B
+     $B$?$A$,(B `cid:' URL $B$K$h$C$F%a!<%k$K4^$^$l$F$$$k2hA|$,0BA4$@$H9M$($F(B
+     $B$$$k$3$H$r0UL#$7$^$9(B ($B$9$J$o$A!"(B`mm-w3m-safe-url-regexp' $B$rJQ99$7(B
+     $B$J$/$F$b!"$=$N$h$&$J2hA|$OI=<($9$k$3$H$,$G$-$^$9(B)$B!#(B
+
+   * $B$*$^$1(B
+
+     $B35N,%P%C%U%!$K$$$k$H$-$G$b!"5-;v%P%C%U%!$N2hA|I=<($r%H%0%k$K@Z$j49(B
+     $B$($k$3$H$,$G$-$^$9!#$=$l$i$N2hA|$,(B emacs-w3m $B$K$h$C$FI=<($5$l$k>l(B
+     $B9g$@$1$G$9$1$l$I$M!#Nc$G$9(B:
+
+          (defun gnus-summary-w3m-safe-toggle-inline-images (&optional arg)
+            "Toggle displaying of all images in the article buffer.
+          If the prefix arg is given, force displaying of images."
+            (interactive "P")
+            (with-current-buffer gnus-article-buffer
+              (let ((st (point-min))
+                    (nd (point-max))
+                    (w3m-async-exec w3m-async-exec))
+                (save-restriction
+                  (widen)
+                  (if (or (> st (point-min)) (< nd (point-max)))
+                      (setq w3m-async-exec nil))
+                  (article-goto-body)
+                  (goto-char (or (text-property-not-all (point) (point-max)
+                                                        'w3m-safe-url-regexp nil)
+                                 (point)))
+                  (if (interactive-p)
+                      (call-interactively 'w3m-toggle-inline-images)
+                    (w3m-toggle-inline-images arg))))))
+
+          (eval-after-load "gnus-sum"
+            '(define-key gnus-summary-mode-map
+               "\C-i" 'gnus-summary-w3m-safe-toggle-inline-images))
+
+*Note Nnshimbun:: $B$b;2>H$7$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Mew, Next: SEMI MUAs, Prev: Gnus, Up: Hooking into MUAs
+
+Mew $A$G(B HTML $A%a$B!<$A%k$r$BFI$A$`(B
+========================
+
+Emacs-w3m $B$r;H$&$3$H$K$h$C$F!"(BText/Html $B$r(B Message $B%b!<%I$KI=<($G$-$k$h(B
+$B$&$K$J$j$^$9!#0J2<$N@_Dj$r(B `~/.mew.el' $B%U%!%$%k$K2C$($F$/$@$5$$(B:
+
+     (require 'mew-w3m)
+
+$B$3$l$G!"$"$?$+$b(B Text/Plain $B$G$"$k$+$N$h$&$K!"(BText/Html $B$r(B Message $B%b!<(B
+$B%I$KI=<($G$-$k$h$&$K$J$j$^$9!#$3$N:]$b!"(B`C-c C-e' $B$NA`:n$OM-8z$G(B
+$B$9!#(B
+
+$B$3$N$4$m!"F1$8>pJs$rFs$D4^$s$G$$$k%a!<%k$rHs>o$K$h$/8+$+$1$^$9!#$=$l$i(B
+$B$O(B `text/plain' $B%Q!<%H$H(B `text/html' $B%Q!<%H$NN>J}$+$i@.$k(B ($B2?$A$e$&%P%s(B
+$B%II}$NL5BL;H$$$@(B) `multipart/alternative' $B%U%)!<%^%C%H$r;H$C$F$$$^$9!#(B
+Mew $B$O%G%U%)%k%H$G$O(B `text/plain' $B%Q!<%H$@$1$rI=<($7$^$9!#$"$J$?$O(B
+emacs-w3m $B$r;H$C$F$$$k$N$G$9$+$i!"(B`text/html' $B%Q!<%H$NJ}$rM%@h$7$?$/$J(B
+$B$k$+$b$7$l$^$;$s!#$=$l$J$i$P!"0J2<$N@_Dj$r(B `~/.mew.el' $B%U%!%$%k$K2C$($F(B
+$B$/$@$5$$(B:
+
+     (setq mew-mime-multipart-alternative-list
+           '("Text/Html" "Text/Plain" ".*"))
+
+Mew $B$K4XO"$9$k$$$/$D$+$N%+%9%?%^%$%:2DG=$JJQ?t$,$"$j$^$9(B:
+
+`mew-use-w3m-minor-mode'
+     $BHs(B-`nil' $B$K$9$k$H!"(Btext/html $B%Q!<%H$,I=<($5$l$F$$$k%a%C%;!<%8%P%C(B
+     $B%U%!$K$*$$$F(B `w3m-minor-mode' $B$,(B on $B$K$J$j!"(Bemacs-w3m $B$N$HF1$8<gMW(B
+     $B$J%-!<$r;H$&$3$H$,$G$-$^$9!#Nc$($P(B `<RET>' $B$O!"8=:_0LCV$N%j%s%/$,(B
+     $B;X$7<($9%Z!<%8$K9T$-$^$9!#$=$l$i$N%-!<$OJQ?t(B
+     `w3m-minor-mode-command-alist' $B$GDj5A$5$l$F$$$^$9!#J]0B>e$NM}M3$+(B
+     $B$i!"$$$/$D$+$N%3%^%s%I$O$=$l$K;w$?JL$N%3%^%s%I$GCV$-49$($i$l$F$$$k(B
+     $B$3$H$r?4$KN1$a$F$*$$$F$/$@$5$$!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B
+
+`mew-w3m-auto-insert-image'
+     $BHs(B-`nil' $B$K$9$k$H!"(Bmultipart/related $B$J%a%C%;!<%8$rFI$s$G$$$k$H$-(B
+     $B$K!"%a%C%;!<%8%P%C%U%!$G2hA|$r%$%s%i%$%sI=<($5$;$k$3$H$,$G$-$^$9!#(B
+     mew-w3m $B$O!"I=<($9$k$?$a$K(B `cid:' URL $B$K$h$C$F%a!<%k$NK\J8$K4^$^$l(B
+     $B$F$$$k2hA|$@$1(B ($B;d$?$A$O$=$l$i$r0BA4$@$H9M$($F$$$^$9(B) $B$r5v2D$9$k$3(B
+     $B$H$KCm0U$7$F$/$@$5$$!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B
+
+     $B$3$3$G!"(B`~/.mew.el' $B$K(B
+
+          (define-key mew-summary-mode-map "T" 'mew-w3m-view-inline-image)
+
+     $B$H=q$/$H!"(B"T" $B$r2!$9$3$H$K$h$C$F!"2hA|I=<($N>uBV$r%H%0%k$9$k$3$H$,(B
+     $B$G$-$^$9!#$^$?!"(B"C-uT" $B$H(B prefix $B$r$D$1$k$H!"%a!<%kK\J8$K4^$^$l$F(B
+     $B$$$J$$2hA|$bI=<($7$^$9!#(B
+
+`mew-w3m-cid-retrieve-hook'
+     `cid:' URL $B$r<h$j=P$7$?8e$G<B9T$5$l$k%U%C%/$G$9!#%G%U%)%k%HCM$O(B
+     `nil' $B$G$9!#(B
+
+*Note Mew Shimbun:: $B$b;2>H$7$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: SEMI MUAs, Next: VM, Prev: Mew, Up: Hooking into MUAs
+
+SEMI MUA $A$G(B HTML $A%a$B!<$A%k$r$BFI$A$`(B
+=============================
+
+Emacs-w3m $B$H(B SEMI MUA$B!"Nc$($P(B Wanderlust $B$r;H$&$3$H$K$h$C$F!"(BHTML $B%a!<(B
+$B%k$r?M4V$,FI$a$k$h$&$KI=<($9$k$3$H$,$G$-$^$9!#$=$&$$$&(B MUA $B$O(B MIME $B$N5!(B
+$BG=$r(B SEMI ($B$=$7$F$5$i$K(B FLIM) $B$KMj$C$F$$$k$N$G!"0lHL$K$=$l$r(B SEMI MUA
+$B$H8F$s$G$$$^$9!#(BSEMI $B$O(B HTML $B%a!<%k$NIA2h$K%G%U%)%k%H$G(B Emacs/W3 $B$r;H$$(B
+$B$^$9$,!"MF0W$K(B emacs-w3m $B$GCV$-49$($k$3$H$,2DG=$G$9!#$=$l$K$h$C$F$"$J$?(B
+$B$NEEG>@83h$O$h$j2wE,$K$J$k$G$7$g$&!#(B
+
+$BC1$K0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$l$PNI$$$N$G$9(B:
+
+     (require 'mime-w3m)
+
+`mime-w3m' $B%b%8%e!<%k$H(B `mime-w3' $B%b%8%e!<%k$O!"$4A[A|$NDL$j5!G=E*$K$[(B
+$B$\F1$8$b$N$G$9(B ($BL>A0$b;w$F$$$k$G$7$g$&(B?)$B!#8e<T$O(B SEMI $B%Q%C%1!<%8$K4^$^(B
+$B$l$F$$$^$9!#(B
+
+$B5-;v%P%C%U%!$N(B HTML $B$NItJ,$G$O(B `w3m-minor-mode' $B$,(B on $B$K$J$C$F!"(B
+emacs-w3m $B$N$HF1$8<gMW$J%-!<$r;H$&$3$H$,$G$-$^$9!#Nc$($P(B `<RET>' $B$O!"8=(B
+$B:_0LCV$N%j%s%/$,;X$7<($9%Z!<%8$K9T$-$^$9!#$=$l$i$N%-!<$OJQ?t(B
+`w3m-minor-mode-command-alist' $B$GDj5A$5$l$F$$$^$9!#J]0B>e$NM}M3$+$i!"$$(B
+$B$/$D$+$N%3%^%s%I$O$=$l$K;w$?JL$N%3%^%s%I$GCV$-49$($i$l$F$$$k$3$H$r?4$K(B
+$BN1$a$F$*$$$F$/$@$5$$!#(B
+
+`mime-w3m' $B%b%8%e!<%k$K4XO"$9$k$$$/$D$+$N%+%9%?%^%$%:2DG=$JJQ?t$,$"$j$^(B
+$B$9(B:
+
+`mime-w3m-display-inline-images'
+     $BHs(B-`nil' $B$@$C$?$i!"2hA|$,(B HTML $B%a!<%k$K%$%s%i%$%sI=<($5$l$^$9!#:G(B
+     $B=i$K(B `default' $B$H$$$&%7%s%\%k$@$C$?$i(B ($B$=$l$,%G%U%)%k%H$G$9(B)$B!"$3$N(B
+     $BJQ?t$NCM$O!"JQ?t(B `w3m-default-display-inline-images' $B$NCM$GCV$-49(B
+     $B$($i$l$^$9!#$?$V$s!"$"$J$?$O$3$l$rJQ99$9$kI,MW$OL5$$$G$7$g$&!#(B
+
+`mime-w3m-safe-url-regexp'
+     $B0BA4$G$"$k$H9M$($i$l$k(B URL $B$K%^%C%A$9$k@55,I=8=$G$9!#%G%U%)%k%HCM(B
+     $B$O(B `"\\`cid:"' $B$G!";d$?$A$O(B `cid:' URL $B$K$h$C$F%a!<%k$K4^$^$l$?2h(B
+     $BA|$,0BA4$@$H9M$($F$$$k$3$H$r0UL#$7$^$9!#0-4A$K$h$k967b$K$D$$$F$O(B
+     *Note Gnus:: $B$r;2>H$7$F$/$@$5$$!#(B
+
+`mime-w3m-setup-hook'
+     `mime-w3m' $B%b%8%e!<%k$H(B SEMI $B$N6(D4F0:n$r@_Dj$7$?D>8e$K<B9T$5$l$k(B
+     $B%U%C%/$G$9!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B
+
+$B$H$3$m$G!"(Bsummary $B%P%C%U%!$K$$$k$H$-$G$b!"(Barticle $B%P%C%U%!(B (Wanderlust
+$B$N%3%_%e%K%F%#$G$O(B message $B%P%C%U%!$H8F$P$l$F$$$k(B) $B$N2hA|I=<($r%H%0%k$K(B
+$B@Z$j49$($k$3$H$,$G$-$^$9!#$=$l$i$N2hA|$,(B emacs-w3m $B$K$h$C$FI=<($5$l$k>l(B
+$B9g$@$1$G$9$1$l$I$M!#(BWanderlust $BMQ$NNc$G$9(B:
+
+     (defun wl-summary-w3m-safe-toggle-inline-images (&optional arg)
+       "Toggle displaying of all images in the message buffer.
+     If the prefix arg is given, all images are considered to be safe."
+       (interactive "P")
+       (with-current-buffer wl-message-buffer
+         (w3m-toggle-inline-images arg)))
+
+     (eval-after-load "wl-summary"
+       '(define-key wl-summary-mode-map
+          "\M-i" 'wl-summary-w3m-safe-toggle-inline-images))
+
+
+
+File: emacs-w3m-ja.info, Node: VM, Prev: SEMI MUAs, Up: Hooking into MUAs
+
+VM (vieW maiL) $A$O(B Wanderlust $A$K$"$i$:(B
+=====================================
+
+VM $B$G(B html $B%a!<%k$rI=<($9$k5!G=$rDs6!$9$k(B vm-w3m.el $B%b%8%e!<%k$H%Q%C%A(B
+$B$O(B VM $B$N?7$7$$%a%$%s%F%$%J!<$K0z$-7Q$,$l$^$7$?$,!"$^$@(B VM $B$N0BDjHG$K8=(B
+$B$l$F$$$^$;$s!#(BVM $A%[$B!<$A%`%Z$B!<$A%8(B (http://www.nongnu.org/viewmail/) $B$rK,$M(B
+$B$F$_$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Frequently Asked Questions, Next: Known Problems, Prev: Hooking into MUAs, Up: Top
+
+$A1X$:4p$,$"$k$H$OO^$i$J$$(B
+************************
+
+* Menu:
+
+* General FAQ::                 $B0lHLE*$J<ALd(B
+* Trouble FAQ::                 $B%H%i%V%k(B
+* Shimbun FAQ::                 Shimbun $B$K4X$9$k<ALd(B
+
+
+
+File: emacs-w3m-ja.info, Node: General FAQ, Next: Trouble FAQ, Prev: Frequently Asked Questions, Up: Frequently Asked Questions
+
+$AR;0c5D$J$(Go3YB(B
+============
+
+   * Q. emacs-w3m $B$C$F2?$G$9$+(B?
+
+     w3m $B$r(B Emacs $B>e$GF0$+$9%$%s%?!<%U%'!<%9%W%m%0%i%`$G$9!#(BEmacs $B>e$G(B
+     $BF0$/%&%'%V%V%i%&%6$H$7$F;H$&$3$H$b$G$-$^$9!#$5$i$J$k>pJs$O(B *Note
+     Introduction:: $B$b;2>H$7$F$/$@$5$$!#(B
+
+   * Q. $BF0:n$9$k(B Emacs $B$O(B?
+
+     $B0J2<$N(B Emacsen $B$GF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#(B
+
+        * Emacs 21
+        * Emacs 22
+        * XEmacs 21.4.17 $B0J>e!"(BMule $BM-$j(B/$BL5$7(B
+        * XEmacs 21.5-b19 $B0J>e!"(BMule $BM-$j(B/$BL5$7(B
+        * Meadow
+
+     $B$J$*!"(BXEmacs $B$G$O(B APEL $B$,I,MW$H$J$j$^$9!#>\$7$/$O(B *Note Other
+     Requirements:: $B$r3NG'$7$F$/$@$5$$!#(B
+
+   * Q. $BF0:n$9$k(B w3m $B$O(B?
+
+     $B0J2<$N(B w3m $B$GF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#(B
+
+        * w3m-0.3
+        * w3mmee-p24-18 + moe-1.5.4
+
+          $BNc$K>e$2$?(B w3mmee $B$O(B `lang=many' $B$G(B configure $B$5$l$F$$$k(B ($B$=(B
+          $B$l$O(B `configure' $B%9%/%j%W%H$,(B `Which language do you
+          prefer?' $B$H?R$M$?$H$-$K(B 3 $B$rF~NO$9$k$3$H$K$h$C$F$G$-$^$9(B) $B$3(B
+          $B$H$KCm0U$7$F$/$@$5$$!#$5$i$K$=$l$O(B `libmoe' $B%Q%C%1!<%8$rI,MW(B
+          $B$H$7$^$9!#(B
+
+   * Q. XEmacs $B$N(B SUMO $B%Q%C%1!<%8$K4^$^$l$F$$$k(B APEL $B$r%$%s%9%H!<%k$7$F(B
+     $B$"$k$N$G$9$,(B?
+
+     XEmacs $B$N(B APEL $B%Q%C%1!<%8(B ($B$9$Y$F$N%b%8%e!<%k$,(B Mule $BIU$-$N(B
+     XEmacs $BMQ$K%3%s%Q%$%k$5$l$F$$$k(B) $B$K$O$$$m$$$mLdBj$,$"$j$^$9!#Nc$((B
+     $B$P(B `std11' $B%b%8%e!<%k$,(B FLIM $B$N$b$N$H$+$A9g$&!"$J$I!#$=$l$G$b(B
+     `apel-1.23-pkg.tar.gz' $B0J>e$N$b$N$@$C$?$i!"$=$7$F(B `shimbun' $B$N5!G=(B
+     $B$N$?$a$K(B FLIM $B$r;H$o$J$$$J$i$P!"(BMule $BIU$-$HL5$7N>J}$N(B XEmacs $B$G;H(B
+     $B$($k$N$G$9$,!"%*%j%8%J%k$N(B APEL $B$GCV$-49$($k$+?75,$K%$%s%9%H!<%k$9(B
+     $B$k$3$H$r4+$a$^$9!#<hF@>l=j$O(B *Note Other Requirements:: $B$r8+$F$/$@(B
+     $B$5$$!#(B
+
+   * Q. CVS $B$G:G?7HG$r<hF@$7$?$N$G$9$,!"(B`configure' $B%9%/%j%W%H$,8+$D$+(B
+     $B$j$^$;$s!#(B
+
+     `autoconf' $B$r<B9T$7$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Trouble FAQ, Next: Shimbun FAQ, Prev: General FAQ, Up: Frequently Asked Questions
+
+$A%H%i%V%k(B
+========
+
+   * Q. $BG'>Z$NI,MW$J%Z!<%8$N%Q%9%o!<%I$,F~NO$G$-$^$;$s!#(B
+
+     $BJQ?t(B `w3m-async-exec' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'(B
+     $B$7$F$/$@$5$$!#(B
+
+   * Q. $BG'>Z$NI,MW$J(B proxy $B%5!<%P!<$N%Q%9%o!<%I$,F~NO$G$-$^$;$s!#(B
+
+     $BJQ?t(B `w3m-async-exec' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'(B
+     $B$7$F$/$@$5$$!#(B
+
+   * Q. $B%j%s%/$,$?$I$l$^$;$s!#(B
+
+     `-header' $B%*%W%7%g%s$r<u$1IU$1$k(B w3m $B%3%^%s%I$,I,MW$G$9!#(Bw3m $B$N%P!<(B
+     $B%8%g%s$r3NG'$7$F$/$@$5$$!#(B
+
+   * Q. $BJ8;z2=$1$7$^$9!#(B
+
+     $B$$$/$D$+$N860x$,$"$j$^$9!#(B
+
+       1. HTML $B%U%!%$%k$NLdBj(B
+
+          HTML $B%U%!%$%kCf$G(B `<meta>' $B%?%0$K$h$C$F;XDj$5$l$F$$$kJ8;z%3!<%I$H!"(B
+          $B<B:]$NJ8;z%3!<%I$,0[$J$k$H!"@5>o$KI=<($5$l$^$;$s!#(B
+          `M-x w3m-redisplay-with-charset <RET>' $B$^$?(B
+          $B$O(B `C c' $B%3%^%s%I$r;H$C$F!"@5$7$$J8;z%3!<%I$r;XDj$7$F:FIA2h$7$F(B
+          $B$/$@$5$$!#(B
+
+       2. $BJ8;z%3!<%I(B
+
+          ISO-2022-JP(jis), EUC-JP $B$^$?$O(B SHIFT_JIS $B0J30$NJ8;z%3!<%I$G(B
+          $B5-=R$5$l$?%Z!<%8$K$D$$$F$O!"I=<($G$-$J$$>l9g$,$"$j$^$9!#<!$N(B
+          $B$$$:$l$+$NJ}K!$GBP=h$7$F$/$@$5$$!#(B
+
+            a. Mule-UCS (*Note Other Requirements::) $B$r%$%s%9%H!<%k$9$k(B
+               $B$H!"(BUnicode $B$GDj5A$5$l$F$$$kHO0O$NJ8;z$OI=<($G$-$k$h$&$K(B
+               $B$J$j$^$9!#%$%s%9%H!<%k8e!"JQ?t(B `w3m-use-mule-ucs' $B$,(B
+               `nil' $B0J30$NCM$K@_Dj$5$l$F$$$k$3$H$r3NG'$7$F$/$@$5$$!#$J(B
+               $B$*!"(BEmacs ($B$=$l$K(B emacs-w3m $B$b(B) $B$,(B EUC-JISX0213 $B$*$h$S(B
+               ISO-2022-JP-3 $B$NJ8;z%3!<%I$r07$($k$h$&$K$9$k$K$O!"(B
+               Mule-UCS $B$KImB0$7$F$$$k(B `jisx0213' $B%b%8%e!<%k$r%$%s%9%H!<(B
+               $B%k$9$kI,MW$,$"$j$^$9(B ($B;DG0$J$,$i(B XEmacs $B$G$O;H$($^$;$s(B
+               $B$,(B)$B!#(B
+
+            b. w3mmee $B$d(B w3m-m17n $B$r%$%s%9%H!<%k$7$F!"JQ?t(B
+               `w3m-command' $B$KE,@Z$JCM$r@_Dj$7$F$/$@$5$$!#$3$N$h$&$K@_(B
+               $BDj$9$k$H!"(Bemacs-w3m $B$O$3$l$i$N%W%m%0%i%`$,Ds6!$9$kB?8@8l(B
+               $B5!G=$rMxMQ$9$k$h$&$K$J$j$^$9!#$?$@$7!"(BEmacs $B$,07$($kJ8;z(B
+               $B%3!<%I$K8B$i$l$^$9$N$G!"I,MW$K1~$8$F(B Mule-UCS $B$b%$%s%9%H!<(B
+               $B%k$7$F$/$@$5$$!#(B
+
+       3. Emacsen $B$NLdBj(B
+
+          XEmacs 21.1 $B$G$O(B SHIFT_JIS $B$N%Z!<%8$,2=$1$k$3$H$,$"$j$^$9!#$^(B
+          $B$?!"(BXEmacs 21.2 $B$G$b(B beta36 $B0JA0$G$OLdBj$,$"$j$^$9!#$=$&$$$&(B
+          $B$b$N$r;H$C$F$$$k>l9g$O(B XEmacs $B$r%"%C%W%0%l!<%I$7$F$/$@$5$$!#(B
+
+          XEmacs 21.1 $B$H(B 21.2 $B$O!"$9$G$K8x<0$K$*Lr8fLH$K$J$C$?$3$H$rG'(B
+          $B<1$7$F$/$@$5$$!#(B
+
+       4. `standard-display-european' $B$r;H$o$J$$$G$/$@$5$$(B
+
+          $B$=$l$O$7$P$7$P(B Latin $BJ8;z$r@5$7$/I=<($5$;$J$$$N$G!"35$7$FM-32(B
+          $B$G$9!#Nc$($P!"(B`&#8217' $B$H$7$F%(%s%3!<%I$5$l$?%"%]%9%H%m%U%#J8(B
+          $B;z(B (`'') $B$O!"$=$l$,$"$?$+$b(B `&#249' $B$H$7$F%(%s%3!<%I$5$l$?$+(B
+          $B$N$h$&$K!"Dc%"%/%;%s%H(B (a grave accent) $B$,IU$$$?J8;z(B `u' $B$H$7(B
+          $B$FI=<($5$l$k$G$7$g$&!#$"$J$?$N(B `~/.emacs' $B%U%!%$%k$+!"(BEmacs
+          $B$,5/F0;~$KFI$_9~$`(B site $B%U%!%$%k$K!"2?$+0J2<$N$h$&$J9T$,$"$k(B
+          $B$J$i$P!"$=$l$r<h$j=|$/$3$H$r6/$/4+$a$^$9!#(B
+
+               (standard-display-european 1)
+
+          $B$=$3$G$O!"0z?t$O(B `1' $B$G$O$J$/$F(B `t' $B$+$b$7$l$^$;$s!#(B
+
+   * Q. $B2hA|I=<($G$-$^$;$s!#(B
+
+     $B$$$/$D$+$N860x$,$"$j$^$9!#(B
+
+     $B8E$$%P!<%8%g%s$N(B `libungif' $B%i%$%V%i%j$K$O%P%0$,$"$j$^$9!#(B
+     `libungif-4.1.0b1' $B0J9_$N$b$N$r%$%s%9%H!<%k$7$J$1$l$P$J$j$^$;$s!#(B
+
+     XEmacs $B$G$OI,$:(B `gifsicle' $B%W%m%0%i%`$r%$%s%9%H!<%k$7$F$/$@$5$$!#(B
+     $B8=:_MxMQ$G$-$k$9$Y$F$N(B XEmacs 21.x $B$K$O%P%0$,$"$j!"(Bemacs-w3m $B$G$O(B
+     $B$3$l$r;H$C$FBP:v$7$F$$$^$9(B (*Note Other Requirements::)$B!#(B
+
+     $B8E$$(B w3m $B%3%^%s%I$G$O@5>o$KI=<($G$-$^$;$s!#(Bw3m $B$N%P!<%8%g%s$r3NG'(B
+     $B$7$F$/$@$5$$!#(B
+
+   * Q. Cookie $B$,I,MW$J%Z!<%8$r1\Mw$G$-$^$;$s!#(B
+
+     ($B$^$@<B83E*$J5!G=$G$9!#(B)
+
+     $BJQ?t(B `w3m-use-cookies' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'(B
+     $B$7$F$/$@$5$$!#(B
+
+   * Q. $B%U%)!<%`$KF~NO$G$-$^$;$s!#(B
+
+     ($B$^$@<B83E*$J5!G=$G$9!#(B)
+
+     $BJQ?t(B `w3m-use-form' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'$7(B
+     $B$F$/$@$5$$!#(B
+
+   * Q. $B%U%)!<%`$rAw?.$G$-$^$;$s!#(B
+
+     ($B$^$@<B83E*$J5!G=$G$9!#(B)
+
+     $BJQ?t(B `w3m-use-form' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'$7(B
+     $B$F$/$@$5$$!#$3$N5!G=$r;H$&$K$O!"(B`-post' $B%*%W%7%g%s$rG'<1$9$k(B w3m
+     $B%3%^%s%I$,I,MW$G$9!#(Bw3m $B$N%P!<%8%g%s$r3NG'$7$F$/$@$5$$!#(B
+
+   * Q. $B%U%l!<%`$,%l%s%@%j%s%0$5$l$^$;$s!#(B
+
+     w3mmee $B$r%$%s%9%H!<%k$7$F!"0J2<$N@_Dj$r(B `~/.emacs' $B%U%!%$%k$KF~$l(B
+     $B$F$/$@$5$$(B:
+
+          (setq w3m-command "w3mmee")
+
+   * Q. GNU Emacs $B$N(B tab $B9T$K(B favicon $B$,I=<($5$l$J$$$N$G$9$,!#(B
+
+     Image Magick $B$K4^$^$l$F$$$k(B `convert' $B%W%m%0%i%`$r%$%s%9%H!<%k$7$F(B
+     $B$/$@$5$$!#(B`http://www.imagemagick.org/' $B$+$iF~<j$G$-$^$9!#(B
+
+   * Q. GNU Emacs $B$G(B favicon $B$rI=<($7$h$&$H$7$?$N$G$9$,!"(BEmacs $B$,%m%C%/(B
+     $B$7$^$7$?!#(B
+   * Q. Emacs-w3m $B$rN)$A>e$2$h$&$H$7$?$i!"7c$7$/%G%#%9%/%"%/%;%9$7$?8e!"(B
+     `process convert exited abnormally with code 10' $B$J$I$HI=<($5$l$^(B
+     $B$7$?!#$I$&$J$C$F$$$k$s$G$7$g$&(B?
+
+     $B8E$$%P!<%8%g%s$N(B Image Magick $B$r;H$C$F$$$^$;$s$+(B?
+     ImageMagick-5.2.1 $B$KIUB0$7$F$$$k(B `convert' $B$r;H$C$F$$$k$H!"$=$&$J(B
+     $B$k$3$H$,CN$i$l$F$$$^$9!#(BImageMagick-5.4.0-5 ($B0J>e(B) $B$KIUB0$7$F$$$k(B
+     `convert' $B$G$O!"@5>oF0:n$,3NG'$5$l$F$$$^$9!#(B
+
+     $B$b$7(B ImageMagick $B$,;H$($J$$!"$^$?$O;H$$$?$/$J$$>l9g$O(B
+     `~/.emacs-w3m' $B%U%!%$%k$K(B
+
+          (setq w3m-use-favicon nil)
+
+     $B$N@_Dj$rDI2C$7$F$/$@$5$$!#(B
+
+   * Q. $B$J$<(B emacs-w3m $B$,(B w3mmee $B$GF0:n$7$J$$$N$G$9$+(B?
+
+     $B$b$7(B `lang=en' $B$^$?$O(B `lang=ja' $B$G(B configure $B$5$l$?(B w3mmee $B$r;H$C(B
+     $B$F$$$k$N$J$i$P!"(B`lang=many' $B$G(B configure $B$7D>$7$F(B ($B$=$l$O(B
+     `configure' $B%9%/%j%W%H$,(B `Which language do you prefer?' $B$H?R$M$?(B
+     $B$H$-$K(B 3 $B$rF~NO$9$k$3$H$K$h$C$F$G$-$^$9(B)$B!"(Bw3mmee $B$r:F9=C[$7$F$/$@(B
+     $B$5$$!#(B
+
+   * Q. $B$J$<(B emacs-w3m $B$G(B web $B%Z!<%8$,8+$($J$$$N$G$7$g$&$+(B?  $B%m!<%+%k$J(B
+     html $B%U%!%$%k$r8+$?$j!"AG$N(B w3m $B$r;H$&>l9g$OLdBjL5$$$N$G$9$,!#(B
+
+     $B$"$k(B Linux $B$NG[I[(B ($BNc$($P(B Gentoo Linux) $B$,4^$s$G$$$k(B w3m $B%3%^%s%I(B
+     $B$K$O!"(Basync $B%Q%C%A(B (1) (*Note Trouble FAQ-Footnotes::) $B$H$$$&$b$N(B
+     $B$,Ev$?$C$F$$$^$9!#$=$l$OAG$N(B w3m $B%3%^%s%I$r;H$&$H$-$KM-MQ$J$N$G$9(B
+     $B$,!"(Bemacs-w3m $B$r%O%s%0$5$;$k$+$b$7$l$^$;$s!#$=$l$,5?$o$l$k$J$i$P!"(B
+     w3m $B%3%^%s%I$r%=!<%9$+$i:F%$%s%9%H!<%k$9$k$3$H$r4+$a$^$9!#(B
+
+   * Q. $B$J$<(B emacs-w3m $B$N%U%l!<%`$,%]%C%W%"%C%W$7$J$$$N$G$9$+(B?
+
+     Emacs-w3m $B$N%U%l!<%`$,B>$N%U%l!<%`$N2<$K1#$l$F$$$F$b!"$=$l(B
+     $B$,(B `M-x w3m <RET>' $B%3%^%s%I$G%]%C%W%"%C%W$9$k$N$O!"$+$J$jJX(B
+     $BMx$G$9!#$7$+$7!"(B`metacity' $B%&%#%s%I%&!&%^%M!<%8%c!<$,;H$o$l$k$$$/$D(B
+     $B$+$N%W%i%C%H%U%)!<%`(B ($BNc$($P(B Fedora Linux) $B>e$G:n$i$l$?(B Emacs $B$rAv$i$;$k(B
+     $B>l9g$K!"$=$l$,F/$+$J$$$H$$$&Js9p$,$"$j$^$7$?!#$=$l$i$N%7%9%F%`$G$O!"(B
+     Emacs $B$N%U%l!<%`$r%]%C%W%"%C%W$5$;$kB>$N5!G=$bF0$+$J$$$G$7$g$&!#$b$7$"$J(B
+     $B$?$,$=$s$J;4$a$J6-6x$K$"$k$J$i$P!"0J2<$N(B advice $B$r;n$92ACM$,$"$k$+$b$7$l(B
+     $B$^$;$s!#(B
+
+          (if (or (not window-system) (featurep 'xemacs))
+              nil
+            (defadvice raise-frame
+              (after make-it-work (&optional frame) activate)
+              "Make it work with the aid of wmctrl."
+              (call-process
+               "wmctrl" nil nil nil "-i" "-R"
+               (frame-parameter (or frame (selected-frame))
+                                'outer-window-id))))
+
+     $B$3$3$G(B `wmctrl' $B$O!"0J2<$N>l=j$G<hF@$G$-$k30It%3%^%s%I$G$9!#(B
+
+     `http://sweb.cz/tripie/utils/wmctrl/'
+
+     Advice $B$r(B `~/.emacs' $B%U%!%$%k$K=q$-9~$`A0$K!"(B`wmctrl' $B%3%^%s%I$r%$(B
+     $B%s%9%H!<%k$7$J$1$l$P$J$i$J$$$3$H$K!"Cm0U$7$F$/$@$5$$!#(B
+
+     $B<!$N$b$N$O:#$N$H$3$m(B emacs-w3m $B$G$OITMW$G$9$,!"$"$k<o$N%"%W%j%1!<(B
+     $B%7%g%s$,F0:n$9$k$?$a$KI,MW$G$9!#(B($BA0$N$b$N$,I,MW$J4D6-$G$O!"$3$l$r(B
+     $B2C$($F$b<:$&$b$N$O$"$j$^$;$s!#(B)
+
+          (if (or (not window-system) (featurep 'xemacs))
+              nil
+            (defadvice pop-to-buffer (after enable-it-to-forcus-frame
+                                            activate)
+              "Enable it to focus frame if `pop-up-frames' is non-nil."
+              (when pop-up-frames
+                (let ((id (condition-case nil
+                              (frame-parameter
+                               (window-frame
+                                (get-buffer-window (ad-get-arg 0)))
+                               'outer-window-id)
+                            (error nil))))
+                  (when id
+                    (call-process
+                     "wmctrl" nil nil nil "-i" "-R" id))))))
+
+     $B:G8e$N$b$N$O$?$V$sMW$i$J$$$G$7$g$&!#$7$+$7!"$$$/$D$+$N%W%i%C%H%U%)!<(B
+     $B%`$G$O;n$7$F$_$k2ACM$,$"$k$+$b$7$l$^$;$s!#(B
+
+          (if (or (not window-system) (featurep 'xemacs))
+              nil
+            (defadvice select-frame (around set-input-focus
+                                            (frame) activate)
+              "Run `select-frame-set-input-focus'."
+              (setq ad-return-value (and (framep frame)
+                                         (frame-live-p frame)
+                                         frame))
+              (ad-deactivate 'select-frame)
+              (unwind-protect
+                  (select-frame-set-input-focus frame)
+                (ad-activate 'select-frame))))
+
+     $B$3$l$i$NBP:v$O!"<!$N(B Emacs $B$N%j%j!<%9(B (22.2 $B$^$?$O(B 23.1) $B$G$OITMW(B
+     $B$K$J$k$G$7$g$&!#(B
+
+
+File: emacs-w3m-ja.info  Node: Trouble FAQ-Footnotes, Up: Trouble FAQ
+
+(1) w3m on cygwin (http://www.page.sannet.ne.jp/knabe/w3m/w3m.html)
+
+
+
+File: emacs-w3m-ja.info, Node: Shimbun FAQ, Prev: Trouble FAQ, Up: Frequently Asked Questions
+
+Shimbun $A$K$(IJ=$A$9$k$(Go3YB(B
+====================
+
+   * Q. $B$J$<(B `shimbun' $B%b%8%e!<%k$,%$%s%9%H!<%k$5$l$J$$$N$G$9$+(B?
+
+     FLIM $B%Q%C%1!<%8$,%$%s%9%H!<%k$5$l$F$$$J$$$H!"(B`shimbun' $B%b%8%e!<%k(B
+     (`shimbun/' $B%G%#%l%/%H%j$K$"$k%U%!%$%k72(B) $B$O%$%s%9%H!<%k$5$l$J$$$3(B
+     $B$H$KCm0U$7$F$/$@$5$$!#(B
+
+     `configure' $B%9%/%j%W%H$O<+F0E*$K(B FLIM $B$NM-L5$rH=Dj$9$k$h$&@_7W$5$l(B
+     $B$F$$$^$9$,!"I8=`E*$G$O$J$$%G%#%l%/%H%j$K(B FLIM $B$,%$%s%9%H!<%k$5$l$F(B
+     $B$$$k$H!"H=Dj$K<:GT$7$^$9!#$=$N>l9g$O(B `--with-addpath' $B%*%W%7%g%s$r(B
+     $B;H$C$F!"(BFLIM $B$,%$%s%9%H!<%k$5$l$F$$$k%G%#%l%/%H%j$rL@<(E*$K;XDj$7(B
+     $B$F$/$@$5$$!#Nc$G$9(B:
+
+          % ./configure --with-addpath=$HOME/share/emacs/site-lisp/flim
+
+
+
+File: emacs-w3m-ja.info, Node: Known Problems, Next: Shimbun Library, Prev: Frequently Asked Questions, Up: Top
+
+$A$"$J$?$J$i$-$C$H=b$(GJn$A$G$-$k(B
+**************************
+
+
+
+
+File: emacs-w3m-ja.info, Node: Shimbun Library, Next: Tips, Prev: Known Problems, Up: Top
+
+$A%&%'%VIO$NPB$(GjL$A$r$BFI$A$`$?$a$N5@>_(B
+******************************
+
+$B%&%'%V$G$O!"$^$9$^$9B?$/$N?7J9!"%a!<%j%s%0%j%9%H$N%"!<%+%$%V!"7G<(HD!"(B
+$B$"$k$$$O8D?M$NF|5-(B (hyper nikki system$B!"(Bweblogs $B$^$?$O(B blogs) $B$,8x3+$5(B
+$B$l$F$$$^$9!#(B`Shimbun' $B%i%$%V%i%j$O!"$=$l$i$N%3%s%F%s%D$r5.J}$N9%$_$N%a!<(B
+$B%i!<$GFI$`$3$H$,$G$-$k$h$&$K$7$^$9!#6qBNE*$K$O!"$=$l$i$N%3%s%F%s%D$r!"(B
+$B%a!<%k$N$h$&$K@07A!&@0M}$9$k5!G=$rDs6!$7$^$9!#(B
+
+$B$9$Y$F$N(B `shimbun' $B%b%8%e!<%k$O!"IaDL$N%a!<%k$d%K%e!<%9$N$h$&$KFI$`$3$H(B
+$B$,$G$-$k5-;v$r@8@.$9$k$3$H$rL\I8$K$7$F$$$^$9!#$7$+$7$J$,$i!"%&%'%V%5%$(B
+$B%H$,$=$l$i$N5-;v$N(B html $B$r$7$P$7$PJQ99$9$k$N$G!"$=$NEY$K;d$?$A$O:$Fq$K(B
+$B$V$D$+$j$^$9!#(B
+
+$B$b$7!"L50UL#$J2hA|$d!"5-;v$H$O4X78$NL5$$%F%-%9%H$,8=$l$k$N$K5$$,$D$$$?(B
+$B$i!"(B($B$?$H$(:3:Y$J$b$N$G$b(B) `report-emacs-w3m-bug' (*Note Mailing
+List::) $B$r;H$C$FJs9p$7$F$/$@$5$$!#(B
+
+`Shimbun' $B%i%$%V%i%j$O!"8=:_!"D+F|?7J9!"FIGd%*%s%i%$%s!"(BEmacs Devel$B!"(B
+XEmacs Beta$B!"(BGnus/Mew/Wanderlust $B$J$I$N%a!<%j%s%0%j%9%H!"(BSlashdot$B!"(B
+Slashdot Japan$B!"$*$h$SB>$N$?$/$5$s$N$b$N$KBP1~$7$F$$$^$9!#6qBNE*$K$O!"(B
+*Note Shimbun Sites:: $B$r;2>H$7$F$/$@$5$$!#(B
+
+$B$H$3$m$G!"(B`Shimbun' $B%i%$%V%i%j$rMxMQ$9$k;~$O!"Cx:n8"$K$D$$$FCm0U$,I,MW(B
+$B$G$9!#(B`Shimbun' $B%i%$%V%i%j$K$h$C$F2C9)!&@8@.$5$l$?5-;v$NCx:n8"$O!"$=$N(B
+$B5-;v$r@8@.$9$k85$K$J$C$?%G!<%?$NCx:n<T$K5"B0$7$^$9!#$7$?$,$C$F!"F@$i$l(B
+$B$?5-;v$rMxMQ$9$k>l9g$O!"85$N%G!<%?$NCx:n<T$N8"Mx$r?/32$7$J$$HO0O$r<i$k(B
+$BK!N'>e$N5AL3$,$"$j$^$9!#$D$^$j!"Cx:n8"K!$KDj$a$i$l$?!V;dE*MxMQ!W$NHO0O(B
+$B$r<i$i$J$1$l$P$J$i$J$$!"$H$$$&$3$H$G$9!#(B
+
+`Shimbun' $B%i%$%V%i%j$rMxMQ$7$?$3$H$K$h$C$F!"K|$,0l$"$J$?$,ITMx1W$rHo$C(B
+$B$?$j!"$"$J$?$,B><T$N8"Mx$r?/32$7$?$3$H$K$h$C$F$"$J$?$,AJ$($i$l$?$H$7$F(B
+$B$b!"(Bemacs-w3m $B3+H/%A!<%`$O0l@Z$N@UG$$rIi$$$^$;$s!#(B
+
+`Shimbun' $B%i%$%V%i%j$O$?$/$5$s$N%b%8%e!<%k$N%3%l%/%7%g%s$G!"$=$l$i$N3F!9(B
+$B$OC1FH$G$O2?$NLr$K$bN)$A$^$;$s!#$3$3$G$OBeI=E*$J;0$D$N(B `Shimbun' $B$N%"%W(B
+$B%j%1!<%7%g%s%W%m%0%i%`(B ($B$=$l$i$N$&$A$NFs$D$O(B `Shimbun' $B%i%$%V%i%j$K4^$^(B
+$B$l$F$$$^$9(B) $B$H!"$"$J$?$,<+J,$G(B `Shimbun' $B%b%8%e!<%k$r:n$kJ}K!$K$D$$$F@b(B
+$BL@$7$^$9(B (Emacs Lisp $B%W%m%0%i%`$r=q$/$3$H$,$G$-$kI,MW$,$"$j$^$9(B)$B!#(B
+
+* Menu:
+
+* Nnshimbun::                   Gnus $B$r%&%'%V%V%i%&%6$K$9$k(B!
+* Mew Shimbun::                 Mew $B$G?7J9$rFI$`(B
+* Shimbun with Wanderlust::     Wanderlust $B$G?7J9$rFI$`(B
+* Shimbun local mode::          $B?7J9$N<hF@$K%7%'%k%9%/%j%W%H$r;H$&(B
+* Shimbun Sites::               $B?7J9$,FI$a$k%5%$%H(B
+* Shimbun Basics::              $B?7J9%b%8%e!<%k$N:n$jJ}(B
+
+`Shimbun' $B%i%$%V%i%j$rMxMQ$9$k$?$a$K$O!"(Bemacs-w3m $B$r9=C[$7$F%$%s%9%H!<(B
+$B%k$9$kA0$K(B FLIM $B%Q%C%1!<%8(B ($B2C$($F(B `nnshimbun' $B$r;H$$$?$1$l$P(B Gnus) $B$r(B
+$B%$%s%9%H!<%k$9$kI,MW$,$"$k$3$H$KCm0U$7$F$/$@$5$$!#(BFLIM $B%Q%C%1!<%8$K$O(B
+APEL $B%Q%C%1!<%8$,I,MW$G$9!#$"$J$?$O(B *Note Other Requirements:: $B$b8+$k$Y(B
+$B$-$+$b$7$l$^$;$s!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Nnshimbun, Next: Mew Shimbun, Prev: Shimbun Library, Up: Shimbun Library
+
+Gnus $A$r%&%'%V%V%i%&%6$K$9$k(B!
+============================
+
+`Nnshimbun' $B$O(B Gnus $B$N%P%C%/%(%s%I$G$9!#$7$+$7$J$,$i!"Nc30E*$K(B Gnus $B$G(B
+$B$O$J$/$F(B emacs-w3m $B$H$H$b$KG[I[$5$l$F$$$^$9!#(B`Nnshimbun' $B$O(B Gnus $B$rJB30(B
+$B$l$FJXMx$J%&%'%V%V%i%&%6$K$9$k$3$H$,$G$-$^$9!#$9$Y$F$N9-9p$KHQ$o$5$l$:(B
+$B$K?7J9<R$N%&%'%V%5!<%P$G5-;v$r=&$$FI$_$9$k$3$H$,$G$-$^$9!#%a!<%j%s%0%j(B
+$B%9%H$N5-;v%"!<%+%$%V$r!"$=$N%j%9%H$K9VFIEPO?$7$F$$$k$h$&$KFI$`$3$H$,$G(B
+$B$-$^$9!#7G<(HD$N=q$-9~$_$bFI$`$3$H$,$G$-$^$9!#Ey!9(B... $B$G$b(B Gnus $B$O(B
+`nnshimbun' $B$G%&%'%V$r2p$7$?Ej9F$,$G$-$J$$$N$G!"%U%)%m!<$7$?$$$H$-$O(B
+emacs-w3m $B$r;H$o$J$1$l$P$$$1$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B
+
+$B$5$i$K(B emacs-w3m $B$G(B HTML $B%a%C%;!<%8$r@07A$9$k$K$O(B *Note Gnus:: $B$b;2>H$7(B
+$B$F$/$@$5$$!#(B
+
+`Nnshimbun' $B$r;O$a$k$?$a$N0lHV4JC1$JJ}K!$O!"%0%k!<%W%P%C%U%!$G0J2<$N$h(B
+$B$&$J$3$H$r$9$k$3$H$G$9(B:
+
+`M-x gnus-group-make-shimbun-group <RET> asahi <RET> national <RET>'
+
+`asahi' $B$H(B `national' $B$O!"@\B3$7$?$$%5!<%P!<$KBP1~$7$?%-!<%o!<%I$H6=L#(B
+$B$N$"$k%0%k!<%W$K!"$=$l$>$lCV$-49$($F$/$@$5$$!#(B`<TAB>' $B$+(B `<SPC>' $B$r%?%$(B
+$B%W$9$k$3$H$K$h$C$F!"$=$l$i$NL>A0$rN>J}$H$bJd40$9$k$3$H$,$G$-$^$9!#(B
+
+$B$b$7(B `gnus-group-mode-map' $B$K==J,$J6u$-$,$"$k$J$i$P!"0J2<$N$h$&$J$b$N$r(B
+`~/.gnus.el' $B%U%!%$%k$K2C$($F$/$@$5$$(B:
+
+     (eval-after-load "gnus-group"
+       '(define-key gnus-group-mode-map "Gn"
+          'gnus-group-make-shimbun-group))
+
+$B$9$k$H!"(B`M-x gnus-group-make-shimbun-group' $B$NBe$o$j(B
+$B$K(B `G n' $B$r;H$&$3$H$,$G$-$^$9!#(B
+
+*$(Go!$A$+$3$N%-$B!<$A$r(B Gnus $A%?%o$B!<$A$KSh$(GR|$A$7$F$/$l$^$;$s$+(B?*
+
+
+$B$3$NB>$K!"(B`gnus-group-make-shimbun-groups' $B%3%^%s%I$r;H$C$F!";XDj$7$?%5!<(B
+$B%P!<$N$9$Y$F$N%0%k!<%W$r:n$k$3$H$,$G$-$^$9!#(B
+
+`Nnshimbun' $B$OC1$K%&%'%V%5!<%P$+$i(B HTML $B%3%s%F%s%D$r<h$j4s$;$F!"$=$l$r(B
+$B5-;v$H$7$FI=<($7$^$9$,!"1JB35-;v(B (*Note Persistent Articles:
+(gnus)Persistent Articles.) $B$r:n$k>l9g$r=|$$$F!"%m!<%+%k%U%!%$%k$K5-;v(B
+$B$r%;!<%V$9$k$3$H$O$"$j$^$;$s!#(B`Nnshimbun' $B$O(B NOV $B%U%!%$%k$r!"$=$l$>$l$N(B
+`nnshimbun' $B%0%k!<%W$G;H$$$^$9!#$=$N%P%C%/%(%s%I$O(B `nnml' $B$H$[$\F1$8$G(B
+$B$9!#(B
+
+$B0J2<$N(B `nnshimbun' $B$K4X$9$kJQ?t$r%+%9%?%^%$%:$9$k$3$H$,2DG=$G$9(B:
+
+`nnshimbun-keep-backlog'
+     $B$3$NJQ?t$O(B `nnshimbun' $B%0%k!<%W$G(B `gnus-keep-backlog' $BJQ?t(B (*Note
+     Article Backlog: (gnus)Article Backlog.) $B$r>e=q$-$7$^$9!#$b$7(B
+     `nnshimbun-keep-backlog' $B$r?t;z(B N $B$K@_Dj$9$k$H!"(B`nnshimbun' $B$O:GBg(B
+     $B$G(B N $B$N8E$$5-;v$r8e$N:F<hF@$N$?$a$K%P%C%U%!$KN/$a$F$*$-$^$9!#$3$N(B
+     $BJQ?t$,(B `nil' $B$G$O$J$/!"?t;z$G$b$J$$>l9g!"(B`nnshimbun' $B$O(B *$A$9$Y$F(B*
+     $B$N4{FI5-;v$rC_$($^$9(B ($B$3$l$ONI$$9M$($G$O$"$j$^$;$s(B)$B!#%G%U%)%k%HCM(B
+     $B$O(B 300 $B$G$9!#(B
+
+     `Nnshimbun' $B$O$"$i$+$8$a<hF@$7$?(B (prefetched) $B5-;v$NJ]B8$K(B
+     backlog $B$r;H$&$N$G!">.$5$9$.$kCM$O(B `prefetch-articles' $B5!G=(B ($B2<5-(B
+     $B;2>H(B) $B$rB;$J$&$+$b$7$l$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B
+
+`nnshimbun-directory'
+     `Nnshimbun' $B$,(B NOV $B%U%!%$%k$H0u%U%!%$%k$rJ]B8$9$k%G%#%l%/%H%j$G$9!#(B
+     $B%G%U%)%k%HCM$O(B `~/News/shimbun/' $B$G$9!#$3$l$O%5!<%P!<JQ?t(B (*Note
+     Server Variables: (gnus)Server Variables.) $B$G$9!#(B
+
+`nnshimbun-default-group-level'
+     `gnus-level-default-subscribed' $B$r>e=q$-$9$k!"%G%U%)%k%H$N%0%k!<%W(B
+     $B%l%Y%k$G$9!#?7$?$K:n$i$l$?(B `nnshimbun' $B%0%k!<%W$KE,MQ$5$l$^$9!#%G(B
+     $B%U%)%k%HCM$O(B `nil' $B$G$9!#$3$l$O%5!<%P!<JQ?t(B (*Note Server
+     Variables: (gnus)Server Variables.) $B$G$9!#(B
+
+`nnshimbun-marks-is-evil'
+     $B$b$7(B `nil' $B$G$J$1$l$P!"(BGnus $B$O(B `shimbun' $B%9%W!<%k$N$?$a$K0u(B
+     (marks) $B%U%!%$%k$r:n$j$b;H$$$b$7$^$;$s!#0u%U%!%$%k$r;H$&$3$H$K$h$C(B
+     $B$F!"(B`shimbun' $B%0%k!<%W$r(B `.newsrc.eld' $B$+$i@Z$jJ|$7$F%P%C%/%"%C%W(B
+     $B$7!"I|85$9$k$3$H$,2DG=$K$J$j$^$9!#2?$i$+$NM}M3$G$3$l$r(B `t' $B$K@_Dj(B
+     $B$7$?8e$G!":F$S(B `nil' $B$K$9$k>l9g$O$$$D$b!"%0%k!<%W$N0u%U%!%$%k$r>C(B
+     $B$5$J$1$l$P$J$j$^$;$s(B ($BIaDL$=$l$O(B `shimbun' $B%0%k!<%W$N%G%#%l%/%H%j(B
+     $B$K$"$k(B `.marks' $B$H$$$&L>A0$N%U%!%$%k$G$9$,!"@53N$K$O(B
+     `nnshimbun-marks-file-name' $B$NCM$r;2>H$7$F$/$@$5$$(B)$B!#$=$&$9$l$P(B
+     Gnus $B$K$h$C$F0u%U%!%$%k$,:F@8@.$5$l$k$G$7$g$&!#%G%U%)%k%HCM$O(B
+     `nil' $B$G$9!#$3$l$O%5!<%P!<JQ?t(B (*Note Server Variables:
+     (gnus)Server Variables.) $B$G$9!#(B
+
+`Nnshimbun' $B$O(B Gnus $B$,Ds6!$9$kI8=`$N%0%k!<%W%Q%i%a!<%?(B (1) (*Note
+Nnshimbun-Footnotes::) $B$K2C$($F!"(B`nnshimbun' $B@lMQ$K@_$1$i$l$?%0%k!<(B
+$B%W%Q%i%a!<%?$rMxMQ$9$k$3$H$,$G$-$^$9!#J#?t$N(B `nnshimbun' $BMQ$N%Q%i(B
+$B%a!<%?$,(B `nnshimbun-group-parameters' $B$H$$$&C10l$N%0%k!<%W%Q%i%a!<(B
+$B%?(B ($B$9$Y$F$N%0%k!<%W$G0c$&CM$r;}$D$3$H$,$G$-$k(B) $B$K$^$H$a$i$l$F$$$^$9!#(B
+$B$=$l$O%W%m%Q%F%#%j%9%H$G!"Nc$($P<!$N$h$&$JCM$G$9(B:
+
+     '(index-range all prefetch-articles off encapsulate-images on
+                   expiry-wait 6)
+
+$B0J9_$O$3$l$i$N%0%k!<%W%Q%i%a!<%?$H!"4XO"$9$kJQ?t$N@bL@$G$9!#(B
+
+`prefetch-articles'
+     $B$3$N%0%k!<%W%Q%i%a!<%?$,(B `off' $B$^$?$O(B `nil' $B0J30$N2?$+$K@_Dj$5$l$F(B
+     $B$$$k%0%k!<%W$G$O!"(B`nnshimbun' $B$O?7$7$$5-;v$rC5$9$@$1$G$O$J$/!"$=$l(B
+     $B$i$N5-;v$N%@%&%s%m!<%I$b9T$$$^$9!#$3$l$O?7$7$$5-;v$N8!:w$rCY$/$7$^(B
+     $B$9$,!"5-;v$r1\Mw$9$k$H$-$KBT$?$5$l$^$;$s!#$3$N%0%k!<%W%Q%i%a!<%?$,(B
+     $B@_Dj$5$l$F$$$J$$$+!"$=$NCM$,(B `nil' $B$K$J$C$F$$$k%0%k!<%W$G$O!"Be$o(B
+     $B$j$KJQ?t(B `nnshimbun-pre-fetch-article' $B$NCM(B ($B%G%U%)%k%H$O(B `off')
+     $B$,;H$o$l$^$9!#(B
+
+`encapsulate-images'
+     $B$3$N%0%k!<%W%Q%i%a!<%?$,(B `off' $B$^$?$O(B `nil' $B0J30$N2?$+$K@_Dj$5$l$F(B
+     $B$$$k%0%k!<%W$G$O!"(B`nnshimbun' $B$O85$N5-;v$KKd$a9~$^$l$F$$$k2hA|%G!<(B
+     $B%?$r(B MIME $B$N(B `multipart/related' $B%Q!<%H$H$7$F5-;v$K$O$a9~$_$^$9!#(B
+     $B$3$N%0%k!<%W%Q%i%a!<%?$,@_Dj$5$l$F$$$J$$$+!"$=$NCM$,(B `nil' $B$K$J$C(B
+     $B$F$$$k%0%k!<%W$G$O!"Be$o$j$KJQ?t(B `nnshimbun-encapsulate-images' $B$N(B
+     $BCM$,;H$o$l$^$9!#$3$NJQ?t(B `nnshimbun-encapsulate-images' $B$N%G%U%)%k(B
+     $B%HCM$O!"(B`shimbun' $B%i%$%V%i%j$K$h$C$FDs6!$5$l$kJQ?t(B
+     `shimbun-encapsulate-images' $B$NCM$G$9(B ($B$?$V$s%G%U%)%k%HCM$O(B `t' $B$G(B
+     $B$9(B)$B!#(B
+
+`index-range'
+     $B%0%k!<%W%Q%i%a!<%?(B `index-range' $B$G!"%&%'%V%5!<%P!<$+$i<hF@$5$l$k(B
+     $B5-;v$NHO0O$r;XDj$9$k$3$H$,$G$-$^$9!#HO0O$N;XDj$K$O0J2<$NCM$r;H$C$F(B
+     $B$/$@$5$$(B:
+
+     `nil'
+     `all'
+          $B$9$Y$F$N%Z!<%8(B
+
+     `last'
+          $B:G?7$N%Z!<%8$@$1(B
+
+     `integer N'
+          $B:G?7$N(B N $B%Z!<%8(B
+
+     `Nnshimbun' $B$O%5!<%P!<>e$KB8:_$9$kL\<!%Z!<%8$r2r@O$7$F?7$7$$5-;v$N(B
+     $BM-L5$rD4$Y$^$9!#%5!<%P!<$K$h$C$F$O$=$N$h$&$JL\<!%Z!<%8$,J#?tB8:_$9(B
+     $B$k>l9g$,$"$j$^$9!#Nc$($P!"%a!<%j%s%0%j%9%H$N5-;v$rDs6!$7$F$$$k%5!<(B
+     $B%P!<$N>l9g$O!"$=$N5-;v$,Ej9F$5$l$?F|IU$K$h$C$FJ,N`$5$l$?L\<!$K$J$C(B
+     $B$F$$$k$3$H$,0lHLE*$G$9!#FC$KCY$$2s@~$rMxMQ$7$F$$$k;~$K!"$=$l$i$9$Y(B
+     $B$F$N5pBg$JL\<!$rD4$Y$k$K$O!"AjEv$J;~4V$,$+$+$k$G$7$g$&!#(B
+
+     `Nnshimbun' $B$OA02s$N@\B3;~$KD4$Y$?L\<!$K$D$$$F$O!"$J$k$Y$/D4$Y$:$K(B
+     $B:Q$^$;$k$h$&$K$J$C$F$$$^$9!#99$K;~4V$r@aLs$7$?$$>l9g$O(B `last' $B$r;H$C(B
+     $B$F$/$@$5$$!#$3$l$O(B `nnshimbun' $B$K!":G?7$NL\<!$@$1$r;2>H$7$F?7$7$$(B
+     $B5-;v$N8!::$r9T$J$o$;$^$9!#(B
+
+     $B%0%k!<%W%Q%i%a!<%?(B `index-range' $B$,@_Dj$5$l$F$$$J$$$+!"CM$,(B `nil'
+     $B$K$J$C$F$$$k%0%k!<%W$G$O!"JQ?t(B `nnshimbun-index-range' $B$NCM(B ($B%G%U%)(B
+     $B%k%H$O(B `2') $B$,;H$o$l$^$9!#(B
+
+`nnshimbun-group-parameters-alist'
+     $B$3$l$O(B Emacs Lisp $BJQ?t$G!"%0%k!<%WL>$N@55,I=8=$H(B `nnshimbun' $BMQ%0(B
+     $B%k!<%W%Q%i%a!<%?$NO"A[%j%9%H$G$9!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#3F!9(B
+     $B$NMWAG$O(B `(REGEXP KEYWORD VALUE KEYWORD VALUE...)' $B$N7A<0$r;}$A$^(B
+     $B$9!#Nc$($P(B:
+
+          '("^nnshimbun\\+asahi:" index-range all prefetch-articles off
+            encapsulate-images on expiry-wait 6)
+
+     $B;w$?L>A0$r;}$D(B ($B$9$J$o$A!"8_$$$K;w$?@-3J$r;}$C$F$$$=$&$J(B) $BJ#?t$N%0(B
+     $B%k!<%W$KBP$7$FF1$8(B `nnshimbun' $B%0%k!<%W%Q%i%a!<%?$r;XDj$9$k$3$H$,(B
+     $B$G$-$k$N$G!"8D!9$N%0%k!<%W$KBP$7$F$=$l$>$l%0%k!<%W%Q%i%a!<%?$r@_Dj(B
+     $B$9$kBe$o$j$K;H$&$3$H$,$G$-$FJXMx$G$9!#$b$7%0%k!<%W$G$9$G$K%0%k!<%W(B
+     $B%Q%i%a!<%?$N@_Dj$,9T$J$o$l$F$$$?>l9g$O!"$3$NJQ?t$h$j$b$=$A$i$,M%@h(B
+     $B$5$l$^$9!#(B
+
+`Nnshimbun' $B$K$O5-;v$N4|8B@Z$l>C5n$r9T$J$o$;$k$3$H$,$G$-$^$9(B (2)
+(*Note Nnshimbun-Footnotes::)$B!#5-;v$,4|8B@Z$l>C5n$5$l$k$H8@$C$F$b!"$=$l(B
+$B$,1s3V%5!<%P!<$+$i:o=|$5$l$k$o$1$G$O$J$/!"$=$l$O$:$C$H$=$3$+$i<hF@2DG=(B
+$B$G$"$k$3$H$r3P$($F$*$$$F$/$@$5$$!#>C$($k$N$O$"$J$?<+?H$N(B `nnshimbun' $BMQ(B
+$B$N(B NOV $B%U%!%$%k(B (3) (*Note Nnshimbun-Footnotes::) $B$N!">C5n$5$l$k5-;v$K(B
+$B3:Ev$9$k9T$G$9!#$=$l$K$h$C$F$=$N5-;v$OFsEY$H35N,%P%C%U%!$K8=$l$J$/$J$j(B
+$B$^$9!#(B
+
+`Nnshimbun' $B%0%k!<%W$G5-;v$N4|8B@Z$l>C5n$r9T$J$o$J$$$H(B NOV $B%U%!%$%k$,:](B
+$B8BL5$/B@$jB3$1!"Hs>o$K8E$$5-;v$,$"$?$+$bB8:_$7$F$$$k$h$&$K8+$($k$+$b$7(B
+$B$l$^$;$s(B ($B<B:]$K$O!"$=$l$i$O?7J9<R$N%5!<%P!<$G;0G/A0$K4|8B@Z$l>C5n$5$l(B
+$B$F$7$^$C$F$$$k$+$b$7$l$J$$(B!)$B!#$=$l$rFI$b$&$H$7$F$b5-;v%P%C%U%!$K$O2?$b(B
+$B8=$l$J$$$G$7$g$&!#0lJ}!"%a!<%j%s%0%j%9%H$N5-;v$rDs6!$7$F$$$k$?$$$F$$$N(B
+$B%5!<%P!<$O!"0lHLE*$K2a5n$NA45-;v$rDs6!$7$F$$$^$9!#M+=%$NH`J}$K5n$j$78E(B
+$B$-NI$-;~Be$K!"$"$J$?$,6=$8$?5-;v$r2{$+$7$/$&$k$&$k$7$FFI$_JV$9$3$H$,$G(B
+$B$-$k$h$&$K!"$=$&$$$&%0%k!<%W$G$O4|8B@Z$l>C5n$O$5$;$?$/$J$$$H;W$&$+$b$7(B
+$B$l$^$;$s!#(B
+
+$BB>$N%a!<%k%P%C%/%(%s%I$HF1MM$K!"(B`nnshimbun' $B$N%0%k!<%WKh$K5-;v$K<+F04|(B
+$B8B@Z$l>C5n$N0u$rIU$1$F!";D$7$F$*$/4|4V$r@_Dj$9$k$3$H$,$G$-$^$9!#$?$@$7(B
+`nnshimbun' $B%P%C%/%(%s%I$HB>$N%a!<%k%P%C%/%(%s%I$K$O!">/$70c$$$,$"$j$^(B
+$B$9(B:
+
+   * $BBh0l$K!";D$7$F$*$/4|4V$N%G%U%)%k%HCM$O0J2<$NM%@hEY$G7hDj$5$l$^$9!#(B
+     $B%0%k!<%W$K$h$C$F%G%U%)%k%HCM$,0[$J$k$+$b$7$l$J$$$3$H$KCm0U$7$F$/$@(B
+     $B$5$$!#(B
+
+       1. $B%0%k!<%W$K$*$1$k(B `expiry-wait' $B%0%k!<%W%Q%i%a!<%?$NCM!#(B
+
+       2. $B$=$N%0%k!<%W$rBP>]$H$7$F!"JQ?t(B `nnmail-expiry-wait-function'
+          $B$rI>2A$9$k$3$H$K$h$C$FF@$i$l$?CM!#(B
+
+       3. $B%0%k!<%W$KBP1~$9$k(B `shimbun' $B%b%8%e!<%k$,Ds6!$9$k%G%U%)%k%HCM!#(B
+
+       4. $BJQ?t(B `nnmail-expiry-wait' $B$NCM!#(B
+
+     $BBhFs$K!"JQ?t(B `nnmail-expiry-wait-function' $B$K$h$C$F@_Dj$5$l$k4X?t(B
+     $B$KM?$($i$l$k0z?t$K!"(B"nnshimbun+asahi:national" $B$N$h$&$K%P%C%/%(%s(B
+     $B%I$H%5!<%P!<$NL>A0$,4^$^$l$k$3$H$G$9!#B>$N%a!<%k%P%C%/%(%s%I$N>l9g(B
+     $B$K$O%0%k!<%WL>$@$1$,M?$($i$l$k$N$K!"$G$9!#Nc$r5s$2$^$7$g$&(B:
+
+          (setq nnmail-expiry-wait-function
+                (lambda (group)
+                  (cond ((string-equal group "ding") 7)
+                        ((string-equal group "nnshimbun+ding:ding") 'never))))
+
+     $B$3$l$O!"F1$8(B ding $B%a!<%j%s%0%j%9%HMQ$KFs$D$N%0%k!<%W$,$"$k$3$H$r0U(B
+     $BL#$7$^$9(B: $B0l$D$O%j%9%H$N%a%s%P!<$H$7$F9VFIEPO?$7$F$$$^$9!#$b$&0l$D(B
+     $B$O(B Gnus $B%?%o!<$N%a!<%j%s%0%j%9%H%"!<%+%$%V$+$iFI$`$?$a$N$b$N$G$9!#(B
+     $B$I$&$G$9!"$J$+$J$+8-$$$G$7$g(B?  "ding" $B%0%k!<%W$N%m!<%+%k$J%a!<%k%U%!(B
+     $B%$%k$O<7F|$G4|8B@Z$l>C5n$5$l!"%m!<%+%k%G%#%9%/$NMFNL$,@aLs$5$l$^$9!#(B
+     $B$7$+$7Fs$DL\$N%0%k!<%W$G$O!"A0@$5*$N5-;v$G$5$(FI$`$3$H$,$G$-$^$9(B
+     ($B$=$l$,K\Ev$KI,MW$J$i$P!"$G$9$,(B)$B!#(B
+
+     $BBh;0$K!"$3$l$O$"$J$?$K5?G0$,J($$$?$H$-$K;W$$=P$9$3$H$,$G$-$k$h$&$K(B
+     $B=q$-N1$a$i$l$F$$$^$9(B: `nnshimbun' $B%0%k!<%W$N$9$Y$F$N5-;v$,4|8B@Z$l(B
+     $B>C5n$5$l$k$Y$-$H$-$G$b!":G?7$N0lDL$@$1$O>C$5$:$K;D$7$F$*$-$^$9!#$3(B
+     $B$l$O$"$J$?$NL$N}?4$rK~B-$5$;$k$?$a$G$O$J$/!"<!2s$K$3$N%0%k!<%W$N?7(B
+     $B$7$$5-;v$r<hF@$7$h$&$H$7$?$H$-$K!"(B`nnshimbun' $B$,$I$3$+$i;O$a$k$+$r(B
+     $BCN$C$F!"$9$Y$F$N5-;v$r<hF@$7D>$5$J$$$h$&$K$9$k$?$a$G$9!#(B
+
+`Nnshimbun' $B$N4|8B@Z$l>C5n$K4X78$9$k%0%k!<%W%Q%i%a!<%?$HJQ?t$O0J2<$NDL(B
+$B$j$G$9(B:
+
+`expiry-wait'
+     $B$I$&$+:.Mp$J$5$i$J$$$h$&$K!#(B`expiry-wait' $B%0%k!<%W%Q%i%a!<%?$,(B
+     `nnshimbun' $B@lMQ$K:n$i$l$?%0%k!<%W%Q%i%a!<%?(B
+     `nnshimbun-group-parameters' $B$NMWAG$N0l$D$H$7$FDs6!$5$l$^$9!#$=$l(B
+     $B$OI8=`$N%0%k!<%W%Q%i%a!<%?$HF1$8L>A0$r;}$A!"0UL#$bF1$8$G$9!#$"$J$?(B
+     $B$O$I$A$i$r;H$C$F$b9=$$$^$;$s!#$b$7(B `nnshimbun' $B@lMQ$N$b$N$,(B `nil'
+     $B0J30$NCM$K@_Dj$5$l$k$H!"I8=`$N$b$N$h$j$bM%@h$5$l$^$9!#$3$l$O(B
+     `nnshimbun' $B$K4X78$9$k$b$N$r(B "Gnus Customize" $B%P%C%U%!(B ($B%0%k!<%W%P%C(B
+     $B%U%!$G(B `G c' $B$r%?%$%W$9$k$H8=$l$k(B) $B$N0l2U=j$K=8$a$k$?$a$H!"JQ?t(B
+     `nnshimbun-group-parameters-alist' $B$G0l3g$7$F4IM}$G$-$k$h$&$K$9$k(B
+     $B$3$H$rL\E*$KMQ0U$7$?$b$N$G$9(B (4) (*Note Nnshimbun-Footnotes::)$B!#@_(B
+     $BDj$G$-$kCM$OI8=`$N%0%k!<%W%Q%i%a!<%?$HF1MM$K!";~8B>C5n$NF|?t!"(B
+     `never' $B$^$?$O(B `immediate' $B$G$9!#(B
+
+`nnshimbun-keep-unparsable-dated-articles'
+     $B$3$NJQ?t$NCM$,(B `nil' $B$G$J$$>l9g$O!":n@.$5$l$?(B ($B$^$?$OE~Ce$7$?(B) $B;~(B
+     $B9o$,$o$+$i$J$$5-;v$O4|8B@Z$l>C5n$5$l$^$;$s!#$J$K$7$m$I$N$/$i$$8E$$(B
+     $B$N$+$o$+$i$J$$$s$G$9$+$i!#%G%U%)%k%HCM$O(B `t' $B$G$9!#(B`nil' $B$K@_Dj$9(B
+     $B$k$H!"4|8B@Z$l>C5n$N=hM}$,9T$J$o$l$k$H$-$K!"4|8B$,$o$+$i$J$$5-;v$G(B
+     $B$bL5>r7o$G>C$5$l$F$7$^$$$^$9!#$^$"!"G/$NJk$l$NBgA]=|$NLr$K$ON)$D$3(B
+     $B$H$,H=L@$9$k$+$b$7$l$^$;$s!#(B
+
+
+File: emacs-w3m-ja.info  Node: Nnshimbun-Footnotes, Up: Nnshimbun
+
+(1) $A%0%k$B!<$A%W%Q%i%a$B!<$A%?$r$(G]C$A6($9$k$?$a$NWn$bJV$(I?I$A$J7=7($O!"%0%k$B!<$A%W%P%C%U%!(B
+$A$G!"$(G]C$A6($7$?$$%0%k$B!<$A%W$N$(G^[$AKy$KRF$(GY/$A$7$F$+$i(B `G c' $A$r%?%$%W$9$k$3(B
+$A$H$G$9(B (*Note Group Parameters: (gnus)Group Parameters.)$A!#(B
+
+(2) `Nnshimbun' $A%0%k$B!<$A%W$GWT$(GY/$AFZO^GP$lO{H%$rPP$J$&7=7($OVw$K6~$D$"(B
+$A$j$^$9!#R;$D$O%0%k$B!<$A%WC{$NU}$(G]=$A1m$(G\"(B ("^nnshimbun\\+" $A$GJ<$^$i$J$1$l$P$J(B
+$A$j$^$;$s(B) $A$r$(I+y$AJ}(B `gnus-auto-expirable-newsgroups' $A$KW7<S$7$F!"O{H%(B
+$A$9$k$^$G$NHUJ}$r8w%0%k$B!<$A%W$(I#z$A$K(B `nnmail-expiry-wait-function' $A$GV8(B
+$A6($9$k$3$H$G$9!#$b$&R;$D$O!"WT$(GY/$AFZO^GP$lO{H%$rPP$J$o$;$?$$$?$$$9$Y$F$N(B
+`nnshimbun' $A%0%k$B!<$A%W$G!"%0%k$B!<$A%W%Q%i%a$B!<$A%?(B `auto-expire' $A$r(B
+`t' $A$K$(G]C$A6($7$F!"%0%k$B!<$A%W%Q%i%a$B!<$A%?(B `expiry-wait' $A$GO{H%$9$k$^(B
+$A$G$NFZO^$rV86($9$k$d$j7=$G$9!#$(Gf[$A$7$$$3$H$O(B *Note $A%a$B!<$A%k(B $A$NFZO^GP$lO{H%(B: (gnus-ja)Expiring Mail, $A$r2NUU$7$F$/$@$5$$!#(B
+`expiry-wait' $A%0%k$B!<$A%W%Q%i%a$B!<$A%?$,$(G]C$A6($5$l$F$$$J$$%0%k$B!<$A%W$G$O!"%G(B
+$A%U%)%k%H$N$(I/N$A$,$(GoK$ASC$5$l$^$9!#(B
+
+(3) `Nnshimbun'$ASC$N(B NOV $A%U%!%$%k(B
+$A$O(B~/News/shimbun/asahi/national/.overview" $A$N$h$&$JC{G0$G$9!#(B
+
+(4) $A$J$<(B `auto-expire' $A$J$I$,(B `nnshimbun' $B@l$ASC$N%0%k$B!<$A%W(B
+$A%Q%i%a$B!<$A%?$K:,$^$l$J$$$N(B? $A$H$$$&$(GYB$A$$$K$(I%\$A$9$k4p$($r$9$G$KSCRb$7$F$$(B
+$A$^$9!#$=$N4p$($H$O!"(B`expiry-wait' $A$,(B `nnshimbun' $A%P%C%/(B
+$A%(%s%I$K$h$C$FH!$j$(H$/$A$o$l$k$N$K$(I%\$A$7$F!"(B`auto-expire' $A$O(B Gnus
+$A$NVPJ`$,H!$j$(H$/$A$$$^$9!#$7$?$,$C$F!"(BGnus $A$,R;$D$NLX6($N%P%C%/%(%s%I(B
+$A$N$?$a$K$(I@>$A$/(B ($A$9$J$o$A!"(B`nnshimbun' $B@l$ASC$N%0%k$B!<$A%W%Q%i%a$B!<$A%?(B
+$A$+$i$(I/N$A$r$BFI$A$`(B) $A$h$&$K(B Gnus $A$NVPJ`$(Gq"$AD\$r$(I)/$(GZ/$A$9$k$3$H$O!"(BGnus $A$N$(G]CSS(B
+$A%]%j%7$B!<$A$K74$9$k$N$G$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Mew Shimbun, Next: Shimbun with Wanderlust, Prev: Nnshimbun, Up: Shimbun Library
+
+Mew $A$GPB$(GjL$A$r$BFI$A$`(B
+================
+
+Mew Shimbun $B$O(B `shimbun' $B$H(B Mew (version 2.1 $B0J9_(B) $B$H$H$b$K;H$&$3$H$r0U(B
+$B?^$7$?(B Emacs Lisp $B%W%m%0%i%`$G$9!#(BMew, APEL $B$*$h$S(B FLIM $B$b%$%s%9%H!<%k(B
+$B$5$l$F$$$l$P!"(Bemacs-w3m $B$r%$%s%9%H!<%k$9$k$H$-$K0l=o$K%$%s%9%H!<%k$5$l(B
+$B$^$9!#(B
+
+*Note Mew:: $B$b;2>H$9$k$3$H$r$*4+$a$7$^$9!#(B
+
+  1. $B=t@_Dj(B
+
+     $B0J2<$N3F9T$r(B `~/.mew.el' $B%U%!%$%k$N:G8e$K=q$$$F$/$@$5$$(B:
+
+     ;;; mew-shimbun $B$N%m!<%I!"%-!<Dj5A(B
+
+     ;; (setq mew-shimbun-use-unseen t) ;; (1) (*Note Mew
+     Shimbun-Footnotes::)
+     (require 'mew-shimbun)
+     (define-key mew-summary-mode-map "G"  (make-sparse-keymap))
+     (define-key mew-summary-mode-map "Gg" 'mew-shimbun-goto-folder)
+     (define-key mew-summary-mode-map "GG" 'mew-shimbun-goto-unseen-folder)
+     (define-key mew-summary-mode-map "Gi" 'mew-shimbun-retrieve)
+     (define-key mew-summary-mode-map "GI" 'mew-shimbun-retrieve-all)
+     (define-key mew-summary-mode-map "Gr" 'mew-shimbun-re-retrieve)
+     (define-key mew-summary-mode-map "GR" 'mew-shimbun-re-retrieve-all)
+     (define-key mew-summary-mode-map "Ge" 'mew-shimbun-expire)
+     (define-key mew-summary-mode-map "GE" 'mew-shimbun-expire-all)
+
+     ;; `mew-shimbun-folder-groups' $B$K(B Mew $B$G9XFI$9$k(B `shimbun' servers $B5Z$S(B
+     ;; group $B$r@_Dj$7$^$9!#$=$l$>$l$NMWAG$O(B
+     ;; `("folder" ("server.group" . range) ...)' $B$N7A<0$G$9!#(B`range' $B$K$O(B
+     ;; `all', `last', $B$*$h$S?t;z$,;XDj$G$-$^$9!#(B
+
+     (setq mew-shimbun-folder-groups
+           '(;; `+shimbun/yomiuri' $B$H$$$&(B folder $B$K(B `yomiuri.national',
+             ;; `yomiuri.sports' $B$J$I$r0l3g$7$F<hF@$7$^$9!#(B
+             ("yomiuri"
+              ("yomiuri.national" . 2)
+              ("yomiuri.sports". 2)
+              ("yomiuri.world". 2))
+             ;; `+shimbun/security-memo' $B$K(B `security-memo.memo' $B$r<hF@$7$^$9!#(B
+             ("security-memo"
+              ("security-memo.memo" . 2))
+             ("slashdot-jp"
+              ("slashdot-jp.story" . last))
+             ;; $B$3$N$h$&$K!"0[$J$k(B server $B$N(B group $B$b0l$D$N(B folder
+             ;; (`+shimbun/emacs') $B$GFI$`$3$H$,$G$-$^$9!#(B
+             ("emacs"
+              ("airs.wl" . last)
+              ("emacs-w3m.emacs-w3m" . last))
+             ;; `+shimbun/hns/arisawa', `+shimbun/hns/miyoshi' $B$K$=$l$>$l$N(B
+             ;; $BF|5-$r<hF@$7$^$9!#(B
+             ("hns/arisawa"
+              ("hns.arisawa" . last))
+             ("hns/miyoshi"
+              ("hns.miyoshi" . last))))
+
+     $B0J>e$G4pK\E*$J@_Dj$O=*N;$G$9!#B>$N%f!<%6Dj5AJQ?t$O(B `mew-shimbun' $B%0(B
+     $B%k!<%W$r(B `M-x customize-group' $B$9$k$+!"%=!<%9$r8+$F$/$@$5$$!#(B
+
+  2. $B5-;v$N9XFI(B
+
+       a. $B:G=i$N9XFI(B
+
+          $B>e5-$N@_Dj$r$7$?$"$H!"$^$:(B `G I' $B$7$^$7$g(B
+          $B$&(B (`mew-shimbun-retrieve-all')$B!#(B
+          `mew-shimbun-folder-groups' $B$G<o!9$N@_Dj$r9T$J$C$?(B `shimbun'
+          folder $B$,(B `+shimbun' $B0J2<$K=PMh$^$9!#$^$?!"?7$?$K(B group $B$rDI2C$7$?(B
+          $B$H$-$b(B `G I' $B$9$k$HJXMx$G$9!#$J$*!"(B
+          `+shimbun' $B$O(B `mew-shimbun-folder' $B$H$$$&JQ?t$G9%$_$N$b$N$KJQ(B
+          $B99$G$-$^$9!#(B
+
+       b. `shimbun' folder $B$X$N0\F0(B
+
+          $BDL>o$N(B `g' (`mew-summary-goto-folder') $B$G$b(B `shimbun'
+          folder $B$X$N0\F0$O$G$-$^$9$,!"(B
+          `G g' (`mew-shimbun-goto-folder') $B$r;H$&$H(B `shimbun'
+          folder $B8BDj$G0\F0$G$-$^$9!#$^$?(B `C-u G g' $B$H(B prefix $B$r$D$1$?$H$-(B
+          $B$O!"?75,5-;v$N$"$k(B folder ($B$^$@(B scan $B$r$7$F$$$J$$(B folder) $B$N$_I=<($7$^$9!#(B
+          `G G' $B$G$bF1MM$G$9!#(B
+
+       c. folder $BC10L$G$N5-;v$N<hF@(B
+
+          `shimbun' folder $B$G(B `G i' (`mew-shimbun-retrieve') $B$9(B
+          $B$k$H!"8=:_$N(B `shimbun' folder $B$G?75,5-;v$r<hF@$7$^$9!#(B
+
+       d. $B99?7$5$l$?5-;v$N<hF@(B
+
+          $BFCDj$N5-;v$rI=<($7$?>uBV(B
+          $B$G(B `G r' (`mew-shimbun-re-retrieve') $B$9$k$H!"$=$N5-;v$,99?7(B
+          $B$5$l$F$$$?$i99?7$7!"F1;~$K?75,5-;v$b<hF@$7$^$9!#(B`C-u G r' $B$H$9$k(B
+          $B$H!"(B`mew-shimbun-mark-re-retrieve' $B$K;XDj$7$?%^!<%/(B ($B%G%U%)%k%HCM(B
+          $B$O(B `@') $B$N5-;v$N99?7$r;n$_$^$9!#(BCNET $B$J$I$G;H$&$HJXMx$G$7$g$&!#(B
+
+          `G R' (`mew-shimbun-re-retrieve-all') $B$G$O!"$9$Y$F$N5-;v$N(B
+          $B?75,@-$rD4$Y<hF@$7$J$*$7$^$9!#(B`C-u G R' $B$G$O%j!<%8%g%s$G;XDj$7$?(B
+          $BHO0O$N5-;v$rBP>]$H$7$^$9!#$*$=$i$/%O%$%Q!<F|5-%7%9%F%`$,2TF/$7$F$$$kF|5-(B
+          $B%5%$%H$G$OM-0U5A$J%3%^%s%I$G$7$g$&!#(B
+
+  3. $BL$FI4IM}(B
+
+     `~/.mew.el' $B%U%!%$%k$G0J2<$N@_Dj$r9T$J$C$F$$$k$H!"(B
+
+          (setq mew-shimbun-use-unseen t)
+
+     $B?75,$K<hF@$7$?5-;v$K(B `mew-shimbun-mark-unseen' $B$G@_Dj$7$?%^!<%/(B
+     ($B%G%U%)%k%H$O(B `*') $B$,$D$/$h$&$K$J$j!"FI$`$H<+F0E*$K>C$($^$9!#(B
+
+     $BDL>o!"(BMew $B$N(B summary $B%b!<%I$G%^!<%/$r$D$1$k!"$"$k$$$O>C$7$?8e!"(B
+     scan $B$r$7$J$$$H(B `.mew-cache' $B%U%!%$%k$KH?1G$5$l$^$;$s$,!"(B
+     `~/.mew.el' $B%U%!%$%k$G0J2<$N@_Dj$r9T$J$&$3$H$K$h$j!"(B
+
+          (setq mew-shimbun-use-unseen-cache-save t)
+
+     Mew $B$N=*N;;~$d(B folder $B$N(B kill $B;~(B (`C-c C-q' $B$r;H$C$?$H$-(B) $B$K(B
+     `shimbun' folder $B$O<+F0E*$K(B `.mew-cache' $B%U%!%$%k$rJ]B8$9$k$h$&$K(B
+     $B$J$j$^$9!#$?$@$7!"3N<B(B (2) (*Note Mew Shimbun-Footnotes::)$B$KJ]B8$9(B
+     $B$k$o$1$G$O$"$j$^$;$s!#4{FI$K$J$C$?>pJs$r3N<B$K(B cache $B$KJ]B8$9$k$K(B
+     $B$O!"$=$N(B folder $B$rFI$_=*$o$C$?$H$-$K(B `scan update' $B$r$9$k=,47(B
+     $B$r$D$1$k$HNI$$$G$7$g$&!#(B
+
+     $BL$FI$K;H$&%^!<%/$,(B `*' $B$8$c%@%a!"$H$$$&J}$O!"JQ(B
+     $B?t(B `mew-shimbun-mark-unseen' $B$r%+%9%?%^%$%:$7$F$/$@$5$$(B ($B>e=R(B)$B!#(B
+     `C-u N' $B$G$=$N%^!<%/$r;XDj$9$k$H3Z$7$$L$FI%i%$%U$r$*$/$k$3$H$,$G(B
+     $B$-$k$H;W$$$^$9!#(B
+
+  4. $B4|8B@Z$l5-;v$N>C5n(B
+
+     $B;vA0$K(B `mew-shimbun-expires' $B$r@_Dj$7$F$*$/$H!"4|8B@Z$l5-;v$N>C5n(B
+     $B$r9T$J$&$3$H$,$G$-$^$9!#Nc$($P(B:
+
+          (setq mew-shimbun-expires
+                '(("yomiuri" . 7)
+                  ("asahi" . 1)
+                  ("slashdot-jp" . 7)
+                  ("emacs" . 7)))
+
+     $B>e5-$N$h$&$K@_Dj$7$F$*$/$H!"(B`+shimbun/yomiuri' $B$O(B 7$BF|!"(B
+     `+shimbun/asahi' $B$O(B 1$BF|$H4|8B$r@_Dj$9$k$3$H$,$G$-$^$9!#;XDj$5$l$F$$(B
+     $B$J$$(B `shimbun' folder $B$O>C5n$7$^$;$s!#(B`G e'
+     (`mew-shimbun-expire') $B$G$=$N(B folder $B$N4|8B@Z$l5-;v$r>C5n$7$^$9!#(B
+     `G e' (`mew-shimbun-expire') $B$G@_Dj$7$?$9$Y$F$N(B folder $B$G5-(B
+     $B;v$N>C5n$r<B9T$7$^$9!#$J$*!"0lEY>C5n$7$?5-;v$OI|5l=PMh$^$;$s$N$GCm0U$7$F(B
+     $B$/$@$5$$!#(B
+
+  5. $BL$FI%^!<%/$H$7$F(B `$' $B$rDI2C$9$kJ}K!(B
+
+     `$' $B%^!<%/$r?7$?$K:n@.$7!"(B`$' $B%^!<%/$rL$FI%^!<%/$H$7$F;H$&$K$O!"<!(B
+     $B$N5-=R$r(B `~/.mew.el' $B%U%!%$%k$K5-=R$7$F$/$@$5$$!#$J$*!"(B`$' $B0J30$N(B
+     $B5-9f$K$7$?$1$l$P!"(B
+     `http://www.mew.org/ml/mew-dist-2.0/msg01251.html' $B$r;2>H$7$F5-=R(B
+     $B$r@8@.$7$F$/$@$5$$!#(B
+
+     ;;----------------------------------------------------------------------
+     ;;; `$' $B$rL$FI%^!<%/$H$7$F;H$&$?$a$N5-=R(B
+     (setq mew-mark-unseen ?$)
+     (setq mew-shimbun-mark-unseen mew-mark-unseen)
+     (setq mew-mark-show-list (cons mew-mark-unseen mew-mark-show-list))
+     (setq mew-mark-afterstep-spec
+           (cons (cons mew-mark-unseen '(1 0 1 0 0 0 0))
+                 mew-mark-afterstep-spec))
+     (setq mew-mark-spec
+           (cons (list mew-mark-unseen "unseen" 0 nil nil nil nil nil)
+                 mew-mark-spec))
+     (setq mew-highlight-mark-keywords
+           (cons
+            (cons mew-mark-unseen 'mew-face-mark-unseen)
+            mew-highlight-mark-keywords))
+     (defface mew-face-mark-unseen
+       '((((class color) (type tty))
+          (:foreground "green"))
+         (((class color) (background light))
+          (:foreground "deep pink" :bold t :italic t))
+         (((class color) (background dark))
+          (:foreground "thistle"))
+         (t (:bold t)))
+       "*Face to highlight the unseen mark"
+       :group 'mew-highlight)
+     (defun mew-summary-unseen (&optional count)
+       "Put the unseen mark(default is '$') in COUNT times."
+       (interactive "P")
+       (mew-mark-put-mark-loop (function mew-summary-unseen-one) count nil))
+     (defun mew-summary-unseen-one (&optional no-msg)
+       "Put the unseen mark(default is '$') on this message."
+       (mew-mark-put-mark mew-mark-unseen no-msg))
+     (defun mew-summary-mark-unseen ()
+       "Change the '*' mark into the '$' mark."
+       (interactive)
+       (mew-summary-exchange-mark mew-mark-review mew-mark-unseen))
+     (defun mew-thread-mark-unseen ()
+       "Put the '$' mark on all messages of the current sub-thread."
+       (interactive)
+       (mew-thread-mark mew-mark-unseen))
+
+     (define-key mew-summary-mode-map "$"  'mew-summary-unseen)
+     (define-key mew-summary-mode-map "m$" 'mew-summary-mark-unseen)
+     (define-key mew-summary-mode-map "t$" 'mew-thread-mark-unseen)
+     ;;----------------------------------------------------------------------
+
+
+File: emacs-w3m-ja.info  Node: Mew Shimbun-Footnotes, Up: Mew Shimbun
+
+(1) $AN4$BFI$A9\@m$r$9$k$H$-$O%3%a%s%H$rMb$7$F$/$@$5$$!#$3$N$(I+y$AJ}$O1X$:(B
+`(require 'mew-shimbun)' $A$NG0$G$(G]C$A6($7$J$$$H$$$1$^$;$s!#(B
+
+(2) `mew-touch-folder-p' $A$,(B `t' $A$NHK$O$[$\(B 100% $A1#4f$G$-(B
+$A$^$9$,!"(B`nil' $A$NHK$,1#4f$G$-$k?ID\PT$O$[$H$s$I(B 0% $A$@$HK<$o$l(B
+$A$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Shimbun with Wanderlust, Next: Shimbun local mode, Prev: Mew Shimbun, Up: Shimbun Library
+
+Wanderlust $A$GPB$(GjL$A$r$BFI$A$`(B
+=======================
+
+Wanderlust $B$K$O(B ELMO $B%b%8%e!<%k$N0l$D$H$7$F(B `elmo-shimbun' $B$,4^$^$l$F$$(B
+$B$k$N$G!"L>A0$,(B `@' $B$G;O$^$k%U%)%k%@$K%"%/%;%9$9$k$@$1$G(B `shimbun' $B$rFI(B
+$B$`$3$H$,$G$-$^$9(B (*Note Shimbun Folder: (wl-ja)Shimbun Folder.)$B!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Shimbun local mode, Next: Shimbun Sites, Prev: Shimbun with Wanderlust, Up: Shimbun Library
+
+$APB$(GjL$A$NH!5C$K%7%'%k%9%/%j%W%H$rJ9$&(B
+==================================
+
+$B$?$/$5$s$N?7J9$rFI$s$G$$$k$H!"?7$7$$5-;v$r%A%'%C%/$9$k$N$K$$$/$i$+;~4V(B
+$B$,$+$+$k$G$7$g$&!#$=$l$O(B emacs-w3m $B$,:w0z$r0l$D$:$D<hF@$9$k$+$i$G$9!#$3(B
+$B$l$r9bB.$K9T$J$$$?$$$J$i!":w0z$N<hF@$K%7%'%k%9%/%j%W%H$r;H$&$3$H$,$G$-(B
+$B$^$9!#%9%/%j%W%H$O<jF0$G(B ($BNc$($P(B Emacs $B$NCf$+$i(B) $B:nF0$5$;$F$bNI$$$7!"(B
+cron $B$N$h$&$J%9%1%8%e!<%i$r2p$7$F<+F0$GAv$i$;$k$3$H$b$G$-$^$9!#:w0z$OFC(B
+$BJL$JL>A0$N%U%!%$%k$K%;!<%V$5$l!"$=$N8e(B emacs-w3m $B$O(B w3m $B$r8F$VBe$o$j$K(B
+$B$=$l$i$N%U%!%$%k$r;H$&$h$&$K$J$j$^$9!#(B
+
+$B0J2<$NJQ?t$G!"$=$N!V%m!<%+%k%b!<%I!W$r@)8f$7$^$9(B:
+
+`shimbun-use-local'
+     $B$3$l$r(B `t' $B$K@_Dj$9$k$3$H$K$h$C$F%m!<%+%k%b!<%I$rM-8z$K$7$^$9!#$=(B
+     $B$&$9$k$H!"$b$7%m!<%+%k%U%!%$%k$H$7$F:w0z$,MQ0U$G$-$F$$$l$P!"(B
+     emacs-w3m $B$O:G=i$K$=$l$r%A%'%C%/$7$^$9!#$b$7$=$l$,8+$D$+$i$J$+$C$?(B
+     $B$i!"DL>oDL$j(B w3m $B$rDL$7$F<hF@$7$^$9!#(B
+
+`shimbun-local-path'
+     $B?7J9$N(B ($B:w0z$N(B) $B%U%!%$%k$r3JG<$9$k%G%#%l%/%H%j$G$9!#%G%U%)%k%H$O(B
+     `w3m-default-save-directory' $B$G$9!#(B
+
+$B:w0z$N$?$a$N%U%!%$%k$NL>A0$O!"(BURL $B$N(B MD5 $B$r:G=i$N(B 10 $BJ8;z$K@Z$j5M$a$?$b(B
+$B$N$N8e$m$K(B `_shimbun' $B$H$$$&J8;zNs$r$/$C$D$1$?$b$N$K$J$j$^$9!#<!$N$h$&(B
+$B$K(B Emacs $B$G4JC1$K:w0z$N$?$a$N%U%!%$%k$r@8@.$9$k$3$H$,$G$-$^$9(B:
+
+     (concat (substring (md5 "http://example/feed") 0 10) "_shimbun")
+
+Gnus $B$H(B `nnshimbun' $B$r;H$C$F$$$k?M$?$A$N$?$a$K!"%7%'%k%9%/%j%W%H$r@8@.(B
+$B$9$k4X?t$,$9$G$K$"$j$^$9!#$=$l$r;H$C$F!"8=:_9VFI$7$F$$$k$9$Y$F$N(B
+shimbun $B%0%k!<%W$N:w0z$r%@%&%s%m!<%I$9$k$3$H$,$G$-$^$9!#C1$K(B
+`nnshimbun-generate-download-script' $B$r8F$s$G$/$@$5$$!#$9$k$H?7$7$$%P%C(B
+$B%U%!$K%7%'%k%9%/%j%W%H$,@8@.$5$l$k$N$G!"8e$G%;!<%V$7$F$/$@$5$$!#@\F,0z(B
+$B?t$rIU$1$F$=$N4X?t$r8F$V$H!":w0z$N<hF@$rJB9T$7$F9T$J$&$?$a$K!"$9$Y$F$N(B
+w3m $B8F$S=P$7$K(B `&' $B$rIU$1$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Shimbun Sites, Next: Shimbun Basics, Prev: Shimbun local mode, Up: Shimbun Library
+
+$APB$(GjL$A$,$BFI$A$a$k%5%$%H(B
+==================
+
+`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k%5%$%H$N0lMwI=$G$9!#(B
+
+* Menu:
+
+* Newspapers Supported by Shimbun::     $B?7J9<R(B
+* News Sites Supported by Shimbun::     $B%K%e!<%9%5%$%H(B
+* Mailing Lists Supported by Shimbun::  $B%a!<%j%s%0%j%9%H(B
+* Sport Sites Supported by Shimbun::    $B%9%]!<%D(B
+* Misc Sites Supported by Shimbun::     $B$=$NB>(B
+
+
+
+File: emacs-w3m-ja.info, Node: Newspapers Supported by Shimbun, Next: News Sites Supported by Shimbun, Prev: Shimbun Sites, Up: Shimbun Sites
+
+$APB$(GjL$AIg(B
+------
+
+`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k?7J9<R$G$9!#(B
+
+$A3/HUPB$(GjL(B (http://www.asahi.com/)
+     asahi.book asahi.book.column asahi.book.news asahi.book.paperback
+     asahi.book.review asahi.book.special asahi.business asahi.car
+     asahi.culture asahi.digital asahi.editorial asahi.edu
+     asahi.english asahi.food asahi.health asahi.housing asahi.igo
+     asahi.international asahi.international.asia
+     asahi.international.column asahi.international.special
+     asahi.international.world asahi.job asahi.kansai
+     asahi.kansai.entertainment asahi.kansai.kokoro asahi.kansai.sumai
+     asahi.kansai.taberu asahi.komimi asahi.life asahi.life.column
+     asahi.national asahi.politics asahi.rss asahi.science
+     asahi.shopping asahi.shopping.column asahi.shopping.yakimono
+     asahi.shougi asahi.sports asahi.sports.baseball
+     asahi.sports.battle asahi.sports.etc asahi.sports.football
+     asahi.sports.golf asahi.sports.rugby asahi.sports.usa
+     asahi.sports.winter asahi.tenjin asahi.travel asahi.wakata
+
+     $B$3$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G%F%-%9%H$@$1$N5-;v$r:n$j$^$9!#$=$l(B
+     $B$i$K!"%F%-%9%H$@$1$G$J$/<L??$r$b4^$`(B HTML $B$N5-;v$r@8@.$5$;$?$$$J$i(B
+     $B$P!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$K2C$($F$/$@$5$$!#(B
+
+          (setq shimbun-asahi-prefer-text-plain nil)
+
+     $B0lJ}!"(BHTML $B$N5-;v$r:n$k$?$a$K(B `asahi-html' $B%P%C%/%(%s%I$r;H$&$3$H(B
+     $B$b$G$-$^$9!#$=$l$r;H$&$K$O!"Nc$($P%0%k!<%WL>$H$7$F(B
+     `asahi.business' $B$NBe$o$j$K(B `asahi-html.business' $B$r;XDj$7$F$/$@$5(B
+     $B$$!#(B
+
+$A3/HUPB$(GjL(B (http://mytown.asahi.com/)
+     asahi-mytown.(hokkaido...okinawa)
+
+     $BF|K\$NA4ETF;I\8)$rLVMe$9$kD+F|?7J9$NCOJ}HG$G$9!#(B
+
+BBC (http://www.bbc.co.uk/)
+     bbc.news
+
+$A%G%#$B!<$A!$%t%'%k%H(B (http://www.welt.de/)
+     welt-de.news
+
+$A%G%#$B!<$A!$%D%!%$%H(B (http://www.zeit.de/)
+     zeit-de.auto zeit-de.computer zeit-de.deutschland
+     zeit-de.feuilleton zeit-de.gesundheit zeit-de.international
+     zeit-de.leben zeit-de.literatur zeit-de.musik zeit-de.news
+     zeit-de.reisen zeit-de.schule zeit-de.sport zeit-de.studium
+     zeit-de.wirtschaft zeit-de.wissen zeit-de.zuender
+
+$A%2%s%@%$%M%C%H(B (http://gendai.net/)
+     gendai-net.today gendai-net.syakai gendai-net.sports
+     gendai-net.geino gendai-net.wadai gendai-net.kenko
+     gendai-net.syoku gendai-net.book
+
+$(I#z$AHU(Bjp (http://mainichi.jp/)
+(2007$ADj(B10$ATB$K(B MSN $A$+$iWTIg%5%$%H$KRFPP(B)
+     mainichi.flash mainichi.sports mainichi.entertainment
+     mainichi.entertainment.art mainichi.mantan mainichi.electronics
+     mainichi.weekly mainichi.opinion.editorial
+     mainichi.opinion.yoroku mainichi.opinion.hasshinbako
+     mainichi.opinion.eye mainichi.opinion.hito mainichi.opinion.kinji
+     mainichi.opinion.yuraku mainichi.opinion.closeup
+     mainichi.opinion.kaisetsu mainichi.opinion.newsup
+
+     $B$3$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G<L??$r$b4^$`(B HTML $B$N5-;v$r:n$j$^$9!#(B
+     $B$=$l$i$K!"%F%-%9%H$@$1$N5-;v$r@8@.$5$;$?$$$J$i$P!"0J2<$N9T$r(B
+     `~/.emacs' $B%U%!%$%k$K2C$($F$/$@$5$$!#(B
+
+          (setq shimbun-mainichi-prefer-text-plain t)
+
+$A%K%e$B!<$A%h$B!<$A%/%?%$%`%:(B (http://www.nytimes.com/)
+     nytimes.homepage nytimes.news.business
+     nytimes.news.business.media&advertising
+     nytimes.news.business.worldbusiness
+     nytimes.news.business.smallbusiness
+     nytimes.news.business.yourmoney nytimes.news.business.dealbook
+     nytimes.news.education nytimes.news.health
+     nytimes.news.health.policy nytimes.news.health.psychology
+     nytimes.news.world nytimes.news.world.africa
+     nytimes.news.world.americas nytimes.news.world.asia
+     nytimes.news.world.europe nytimes.news.world.middleeast
+     nytimes.news.us nytimes.news.newyork nytimes.news.newyork.thecity
+     nytimes.news.newyork.metro nytimes.news.obituaries
+     nytimes.news.science nytimes.news.science.earth
+     nytimes.news.science.nutrition nytimes.news.science.space
+     nytimes.news.sports nytimes.news.sports.basketball.college
+     nytimes.news.sports.football.college nytimes.news.sports.golf
+     nytimes.news.sports.hockey nytimes.news.sports.other
+     nytimes.news.sports.baseball.pro
+     nytimes.news.sports.basketball.pro
+     nytimes.news.sports.football.pro nytimes.news.sports.soccer
+     nytimes.news.technology nytimes.news.technology.bits
+     nytimes.news.technology.circuits nytimes.news.technology.pogue
+     nytimes.news.washington nytimes.features.arts
+     nytimes.features.arts.design nytimes.features.arts.music
+     nytimes.features.arts.television nytimes.features.automobiles
+     nytimes.features.books nytimes.features.books.review
+     nytimes.features.dining&wine nytimes.features.fashion
+     nytimes.features.fashion.thursdaystyles
+     nytimes.features.fashion.weddings nytimes.features.home&garden
+     nytimes.features.jobs nytimes.features.magazine
+     nytimes.features.movie.news nytimes.features.movie.reviews
+     nytimes.features.realestate nytimes.features.theater
+     nytimes.features.travel nytimes.features.travel.escapes
+     nytimes.features.week_in_review nytimes.additional.pop_top
+     nytimes.opinion.editorial
+
+     2007$BG/(B9$B7n(B19$BF|!"%K%e!<%h!<%/%?%$%`%:$OL5NA$G%K%e!<%95-;v$rDs6!$7;O(B
+     $B$a$^$7$?!#(B`charset=iso-8859-1' $B$H8@$C$?$N$K$b$+$+$o$i$:!"$3$N%5%$(B
+     $B%H$O$7$P$7$P(B `iso-8859-1' $B$N>e0L8_49J8;z%;%C%H$G$"$k(B
+     `windows-1252' $B$r;H$$$^$9!#;HMQ$7$F$$$k(B (X)Emacs $B$K(B
+     `windows-1252' coding system $B$,$"$l$P!"(B`shimbun' $B$O(B ($B$=$7$F(B
+     emacs-w3m $B$b(B) $B$=$N$h$&$J>l9g$G$bF0:n$7$^$9!#(B
+
+$AHU?/%9%]$B!<$A%D(B (http://www.nikkansports.com/)
+     nikkansports.flash nikkansports.baseball
+     nikkansports.baseball.highschool nikkansports.baseball.amateur
+     nikkansports.baseball.mlb nikkansports.soccer
+     nikkansports.soccer.japan nikkansports.soccer.world
+     nikkansports.sports nikkansports.sumo nikkansports.nba
+     nikkansports.nfl nikkansports.nhl nikkansports.rugby
+     nikkansports.golf nikkansports.motor nikkansports.battle
+     nikkansports.race nikkansports.race.kka
+     nikkansports.entertainment nikkansports.cinema
+     nikkansports.general
+
+$AHU1>$(I8+6v$APB$(GjL(B (http://www.nikkei.co.jp/)
+     nikkei.top nikkei.main nikkei.keizai nikkei.sangyo nikkei.tento
+     nikkei.kansai nikkei.it.business nikkei.it.busi_gyoukai
+     nikkei.it.biz-system nikkei.it.sox nikkei.it.data
+     nikkei.it.taidan nikkei.it.internet nikkei.it.broad
+     nikkei.it.net_gyoukai nikkei.it.iptel nikkei.it.tele
+     nikkei.it.broadcast nikkei.it.internet-column nikkei.it.contents
+     nikkei.it.ec nikkei.it.policy nikkei.it.e-gov nikkei.it.mobile
+     nikkei.it.mob_gyoukai nikkei.it.mobsoft nikkei.it.mobcon
+     nikkei.it.money nikkei.it.one nikkei.it.security
+     nikkei.it.net_crime nikkei.it.digital nikkei.it.pc nikkei.kokunai
+     nikkei.markets nikkei.kawase nikkei.kinri nikkei.ft nikkei.dj
+     nikkei.ngyoseki nikkei.gyosuuchi nikkei.gyoseki nikkei.china
+     nikkei.market nikkei.kaigai nikkei.seiji nikkei.shakai
+     nikkei.retto nikkei.sports nikkei.newpro nikkei.release
+     nikkei.release.it.comp nikkei.release.it.peri
+     nikkei.release.it.sys nikkei.release.it.cont
+     nikkei.release.it.net nikkei.release.it.lsi
+     nikkei.release.it.game nikkei.release.it.etc
+     nikkei.release.dist.depart nikkei.release.dist.ryohan
+     nikkei.release.dist.zakka nikkei.release.dist.cosme
+     nikkei.release.dist.car nikkei.release.dist.book
+     nikkei.release.dist.record nikkei.release.dist.food
+     nikkei.release.dist.mercha nikkei.release.dist.mail
+     nikkei.release.dist.netshop nikkei.release.dist.etc
+     nikkei.release.money.bank nikkei.release.money.sec
+     nikkei.release.money.am nikkei.release.money.insu
+     nikkei.release.money.etc nikkei.release.maker.chemi
+     nikkei.release.maker.mecha nikkei.release.maker.car
+     nikkei.release.maker.elec nikkei.release.maker.food
+     nikkei.release.maker.sports nikkei.release.maker.apparel
+     nikkei.release.maker.commu nikkei.release.maker.etc
+     nikkei.release.service.medic nikkei.release.service.rest
+     nikkei.release.service.trans nikkei.release.service.energy
+     nikkei.release.service.enter nikkei.release.service.env
+     nikkei.release.service.consul nikkei.release.service.edu
+     nikkei.release.service.haken nikkei.release.service.life
+     nikkei.release.service.media nikkei.release.service.lease
+     nikkei.release.service.travel nikkei.release.service.etc
+     nikkei.release.const.const nikkei.release.const.house
+     nikkei.release.const.etc nikkei.shasetsu
+
+MSN $(I7E8+$A%K%e$B!<$A%9(B (http://sankei.jp.msn.com/)
+(2007$ADj(B10$ATB$+$i(B MSN $A$KRFPP(B)
+     sankei.points sankei.affairs sankei.politics sankei.economy
+     sankei.world sankei.sports sankei.entertainments sankei.life
+     sankei.culture sankei.release sankei.region sankei.usatoday
+     sankei.usatoday.ja sankei.column.sankeisho sankei.column.shucho
+     sankei.column.seiron
+
+Spiegel Online (http://www.spiegel.de/)
+     spiegel.news
+
+$A%9%]%K%A(B (http://www.sponichi.co.jp/)
+     sponichi.baseball sponichi.soccer sponichi.usa sponichi.others
+     sponichi.society sponichi.entertainment sponichi.horseracing
+
+$ADO%I%$%DPB$(GjL(B (http://www.sueddeutsche.de/)
+     sueddeutsche-de.alles sueddeutsche-de.nachrichten
+     sueddeutsche-de.politik sueddeutsche-de.wirtschaft
+     sueddeutsche-de.finanzen sueddeutsche-de.kino
+     sueddeutsche-de.kultur sueddeutsche-de.sport
+     sueddeutsche-de.muenchen sueddeutsche-de.panorama
+     sueddeutsche-de.leben sueddeutsche-de.gesundheit
+     sueddeutsche-de.computer
+
+$(G{t$(I%D$APB$(GjL(B (http://www.yomiuri.co.jp/)
+     yomiuri.atmoney yomiuri.editorial yomiuri.entertainment
+     yomiuri.iryou yomiuri.kyoiku yomiuri.kyoiku.children
+     yomiuri.kyoiku.english yomiuri.kyoiku.qanda
+     yomiuri.kyoiku.renaissance yomiuri.kyoiku.special
+     yomiuri.national yomiuri.politics yomiuri.science yomiuri.sports
+     yomiuri.world
+
+     $B$3$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G%F%-%9%H$@$1$N5-;v$r:n$j$^$9!#$=$l(B
+     $B$i$K!"%F%-%9%H$@$1$G$J$/<L??$r$b4^$`(B HTML $B$N5-;v$r@8@.$5$;$?$$$J$i(B
+     $B$P!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$K2C$($F$/$@$5$$!#(B
+
+          (setq shimbun-yomiuri-prefer-text-plain nil)
+
+     $B0lJ}!"(BHTML $B$N5-;v$r:n$k$?$a$K(B `yomiuri-html' $B%P%C%/%(%s%I$r;H$&$3(B
+     $B$H$b$G$-$^$9!#$=$l$r;H$&$K$O!"Nc$($P%0%k!<%WL>$H$7$F(B
+     `yomiuri.atmoney' $B$NBe$o$j$K(B `yomiuri-html.atmoney' $B$r;XDj$7$F$/$@(B
+     $B$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: News Sites Supported by Shimbun, Next: Mailing Lists Supported by Shimbun, Prev: Newspapers Supported by Shimbun, Up: Shimbun Sites
+
+$A%K%e$B!<$A%9%5%$%H(B
+--------------
+
+`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k%K%e!<%9%5%$%H$G$9!#(B
+
+Al Jazeera (http://english.aljazeera.net/)
+     aljazeera.news aljazeera.africa aljazeera.america
+     aljazeera.asia-pacific aljazeera.central-asia aljazeera.europe
+     aljazeera.middle-east aljazeera.focus aljazeera.business
+     aljazeera.sport aljazeera.programmes
+
+CNET (http://news.com.com/)
+     cnet.news cnet.enterprise.software cnet.enterprise.hardware
+     cnet.security cnet.networking cnet.personal.technology
+     cnet.newsmakers cnet.perspectives
+
+CNET Japan (http://japan.cnet.com/)
+     cnet-jp.general cnet-jp.news cnet-jp.special cnet-jp.opinion
+     cnet-jp.blog.geetstate cnet-jp.blog.kenn cnet-jp.blog.lessig
+     cnet-jp.blog.matsumura cnet-jp.blog.nakajima cnet-jp.blog.saeki
+     cnet-jp.blog.sakamoto cnet-jp.blog.sasaki cnet-jp.blog.sentan
+     cnet-jp.blog.staff cnet-jp.blog.takawata cnet-jp.blog.watanabe
+
+CNN Japan (http://www.cnn.co.jp/)
+     cnn-jp.business cnn-jp.fringe cnn-jp.science cnn-jp.showbiz
+     cnn-jp.sports cnn-jp.top cnn-jp.usa cnn-jp.world
+
+De-Bug Magazine (http://www.de-bug.de/)
+     debugmagazin-de.frontpage debugmagazin-de.musik
+     debugmagazin-de.reviews debugmagazin-de.magazin
+     debugmagazin-de.medien debugmagazin-de.podcast
+     debugmagazin-de.musiktechnik debugmagazin-de.screen
+     debugmagazin-de.gadgets debugmagazin-de.games
+     debugmagazin-de.mode
+
+Engadget Japanese (http://japanese.engadget.com/)
+     engadget-ja.top
+
+$A%(%-%5%$%H(B $A%K%e$B!<$A%9(B (http://www.excite.co.jp/)
+     excite.bit-koneta excite.world-odd
+
+$AWTSI$(I$b@>$AU_M,CK%I%$%D(B (http://www.fau.org/)
+     fau.news
+
+$A%O%$%<!$%*%s%i%$%s(B (http://www.heise.de/)
+     heise.news heise.telepolis
+
+Infoshop News (http://news.infoshop.org/)
+     infoshop.news
+
+$A%$%s%W%l%9(B (http://www.watch.impress.co.jp/)
+     impress.enterprise impress.pc impress.dc impress.akiba impress.av
+     impress.game impress.k-tai impress.internet impress.bb
+     impress.forest impress.robot impress.kaden impress.car
+
+ITmedia (http://www.itmedia.co.jp/)
+     itmedia.news.bursts itmedia.news.domestic itmedia.news.foreign
+     itmedia.news.products itmedia.news.technology itmedia.news.web20
+     itmedia.news.nettopics itmedia.news.society itmedia.news.security
+     itmedia.news.industry itmedia.news.research itmedia.news.sp_amd
+     itmedia.anchordesk itmedia.bizid itmedia.enterprise
+     itmedia.+D.plusd itmedia.+D.mobile itmedia.+D.pcupdate
+     itmedia.+D.lifestyle itmedia.+D.games itmedia.+D.docomo
+     itmedia.+D.au_kddi itmedia.+D.vodafone itmedia.+D.shopping
+     itmedia.+D.lifestyle.column.asakura
+     itmedia.+D.lifestyle.column.honda
+     itmedia.+D.lifestyle.column.kobayashi
+     itmedia.+D.lifestyle.column.kodera
+     itmedia.+D.lifestyle.column.nishi
+     itmedia.+D.lifestyle.column.ogikubo
+     itmedia.+D.lifestyle.column.tachibana
+     itmedia.+D.lifestyle.column.takemura
+     itmedia.+D.lifestyle.column.unakami
+
+Japan Times (http://www.japantimes.co.jp/)
+     japantimes.general japantimes.business
+
+LAUT AG (http://www.laut.de/)
+     laut-de.news laut-de.platten laut-de.platten_alternative
+     laut-de.platten_dance laut-de.platten_hiphop platten_jazz
+     laut-de.platten_metal laut-de.platten_pop laut-de.platten_rnb
+     laut-de.platten_rock
+
+N24 (http://www.n24.de/)
+     n24-de.boerse n24-de.boulevard n24-de.nachrichten n24-de.netnews
+     n24-de.politik n24-de.sport n24-de.wirtschaft
+
+Open Tech Press (http://opentechpress.jp/)
+     opentechpress-jp.general opentechpress-jp.enterprise
+     opentechpress-jp.opensource opentechpress-jp.security
+     opentechpress-jp.news opentechpress-jp.pr
+
+Perlentaucher ($AUfVi$(GZh$A$j(B) (http://www.perlentaucher.de/)
+     perlentaucher-de.aktuell
+
+Rediff.com (http://www.rediff.com/)
+     rediff.news
+
+Slashdot (http://www.slashdot.org/)
+     slashdot.frontpage slashdot.apple slashdot.askslashdot
+     slashdot.books slashdot.developers slashdot.games
+     slashdot.hardware slashdot.interviews slashdot.IT slashdot.linux
+     slashdot.mobile slashdot.politics slashdot.science
+
+     Slashdot shimbun $B$N%3%a%s%H$NItJ,$r@_Dj$9$k$?$a$N0J2<$NJQ?t$,$"$j(B
+     $B$^$9(B:
+
+     `shimbun-slashdot-get-comments'
+          $B$b$7(B `t' $B$K@_Dj$5$l$F$$$k$H(B ($B$=$l$,%G%U%)%k%H$G$9(B)$B!"$9$Y$F$N(B
+          $B5-;v$N%3%a%s%H$r<hF@$7$^$9!#$=$l$i$O%U%)!<%`%U%#!<%IJ8;z(B
+          ("^L" $B$N$3$H(B) $B$G%$%s%H%m!&%F%-%9%H$+$iJ,N%$5$l$^$9!#$=$l$i$r(B
+          $B8+$k$K$O!"$$$D$b$N$h$&$K5-;v%P%C%U%!$r%9%/%m!<%k$7$F$/$@$5$$(B
+          (Gnus $B$G$O(B "Next page" $B%\%?%s$H(B "Previous page" $B%\%?%s$r;H$&(B
+          $B$3$H$,$G$-$^$9(B)$B!#$3$NJQ?t$r(B `nil' $B$K@_Dj$9$k$H!"5-;v$N%3%a%s(B
+          $B%H$r<hF@$7$J$/$J$j$^$9!#(B
+
+     `shimbun-slashdot-comment-threshold'
+          $BI=<($5$l$k%3%a%s%H$NogCM$G$9(B ($B%G%U%)%k%H$O(B 3)$B!#(B-1 ($B$9$Y$F$N%3(B
+          $B%a%s%H(B) $B$+$i(B 5 ($B:G9b%l!<%H(B) $B$^$G$N4V$N?t$K$7$F$/$@$5$$!#(B
+
+     `shimbun-slashdot-comment-display'
+          $B%3%a%s%H$rI=<($9$k7A<0$G$9(B ($B%G%U%)%k%H$O(B "flat")$B!#(B"flat"$B!"(B
+          thread" $B$^$?$O(B "nested" $B$N$I$l$+$K$7$F$/$@$5$$!#$3$l$O%7%s%\(B
+          $B%k$G$O$J$/J8;zNs$G$J$1$l$P$J$j$^$;$s!#(B
+
+Slashdot Japan (http://slashdot.jp/)
+     slashdot-jp.story slashdot-jp.askslashdot slashdot-jp.bookreview
+     slashdot-jp.bsd slashdot-jp.developers slashdot-jp.interview
+     slashdot-jp.linux slashdot-jp.mac slashdot-jp.mobile
+     slashdot-jp.science slashdot-jp.security slashdot-jp.slash
+     slashdot-jp.it slashdot-jp.hardware slashdot-jp.diary.oliver
+
+     $BJQ?t(B `shimbun-slashdot-jp-group-alist' $B$KE,@Z$J@_Dj$r2C$($k$H!"$=(B
+     $B$NB>$N%f!<%6!<$NF|5-$b1\Mw$G$-$^$9!#(B
+
+Tech-On! $AHU$(I8+(BBP$AIg(B (http://techon.nikkeibp.co.jp/)
+     tech-on.latestnews tech-on.mobile tech-on.bbint tech-on.d-ce
+     tech-on.AT tech-on.edaonline tech-on.device tech-on.lsi
+     tech-on.silicon tech-on.observer tech-on.fpd tech-on.mono
+     tech-on.embedded tech-on.mecha tech-on.MEMS tech-on.nano
+     tech-on.carele tech-on.board tech-on.mcu tech-on.PLM
+     tech-on.memory tech-on.measurement tech-on.column.mot
+
+     Tech-On! $B$OF|7P(BBP$B<R$,Ds6!$9$k5;=Q%K%e!<%9%5%$%H$G$9!#0JA0$O5-;v$N(B
+     $BFbMF$rA4ItFI$`$?$a$K%m%0%$%s!&%"%+%&%s%H(B ($BL5NA(B) $B$,I,MW$G$7$?$,!">/(B
+     $B$J$/$H$b(B 2007$BG/$N=)$K$*$$$F$OMW$i$J$$$h$&$K8+$($^$9!#>-Mh$b$7:F$S(B
+     $BI,MW$K$J$C$?$i(B $A5G$(IS:$A%Z$B!<$A%8(B
+     (http://techon.nikkeibp.co.jp/guide/inf_regi.html) $B$K9T$C$F<hF@$7(B
+     $B$F$/$@$5$$!#<!$NFs$D$NJQ?t$G!"$I$&$d$C$F%m%0%$%s$9$k$+$r@)8f$7$^$9(B:
+
+     `shimbun-tech-on-user-name'
+          Tech-On! $B$K%m%0%$%s$9$k$?$a$N%f!<%6!<L>$G$9!#(B`nil' $B$@$H(B
+          Tech-On! $B$K%m%0%$%s$9$k$H$-$K!"%f!<%6!<L>$NF~NO$rMW5a$5$l$^$9!#(B
+          $BJ8;zNs$@$C$?$i$=$l$,%f!<%6!<L>$H$7$F;H$o$l!"F~NO$rMW5a$5$l$k(B
+          $B$3$H$O$"$j$^$;$s!#(B`nil' $B$G$bJ8;zNs$G$b$J$$>l9g(B ($B$3$l$,%G%U%)(B
+          $B%k%H$G$9(B)$B!"%m%0%$%s$r9T$J$$$^$;$s!#(B
+
+     `shimbun-tech-on-password'
+          Tech-On! $B$K%m%0%$%s$9$k$?$a$N%Q%9%o!<%I$G$9!#(B`nil' $B$@$H(B
+          Tech-On! $B$K%m%0%$%s$9$k$H$-$K!"%Q%9%o!<%I$NF~NO$rMW5a$5$l$^$9!#(B
+          $BJ8;zNs$@$C$?$i$=$l$,%Q%9%o!<%I$H$7$F;H$o$l!"F~NO$rMW5a$5$l$k(B
+          $B$3$H$O$"$j$^$;$s!#(B`nil' $B$G$bJ8;zNs$G$b$J$$>l9g(B ($B$3$l$,%G%U%)(B
+          $B%k%H$G$9(B)$B!"%m%0%$%s$r9T$J$$$^$;$s!#(B
+
+     $B$3$l$i$NF~NO$O!"$=$N(B Emacs $B%;%C%7%g%s$G:G=i$K(B Tech-On! $B$N5-;v$rFI(B
+     $B$_;O$a$k$H$-$K0l2s$@$1MW5a$5$l$^$9!#(B
+
+HotWired Japan (http://hotwired.goo.ne.jp/)
+     wired-jp.news wired-jp.business wired-jp.culture
+     wired-jp.technology wired-jp.blog.ogura wired-jp.blog.sasaki
+     wired-jp.blog.takahashi
+
+Yahoo! Japan (http://headlines.yahoo.co.jp/)
+     yahoo.topnews yahoo.news yahoo.politics yahoo.society
+     yahoo.people yahoo.business-all yahoo.market yahoo.stock
+     yahoo.industry yahoo.international yahoo.entertainment
+     yahoo.sports yahoo.computer yahoo.zenkoku yahoo.hokkaido
+     yahoo.aomori yahoo.iwate yahoo.miyagi yahoo.akita yahoo.yamagata
+     yahoo.fukushima yahoo.tokyo yahoo.kanagawa yahoo.chiba
+     yahoo.saitama yahoo.ibaraki yahoo.tochigi yahoo.gunma
+     yahoo.yamanashi yahoo.nagano yahoo.niigata yahoo.toyama
+     yahoo.ishikawa yahoo.fukui yahoo.aichi yahoo.gifu yahoo.shizuoka
+     yahoo.mie yahoo.osaka yahoo.hyogo yahoo.kyoto yahoo.shiga
+     yahoo.nara yahoo.wakayama yahoo.tottori yahoo.shimane
+     yahoo.okayama yahoo.hiroshima yahoo.yamaguchi yahoo.tokushima
+     yahoo.kagawa yahoo.ehime yahoo.kochi yahoo.fukuoka yahoo.saga
+     yahoo.nagasaki yahoo.kumamoto yahoo.oita yahoo.miyazaki
+     yahoo.kagoshima yahoo.okinawa
+
+     yahoo.news $B%0%k!<%W$O<gMW$J5-;v$H!"$5$i$KB.Js5-;v$r8!:w$7$^$9!#$3(B
+     $B$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G(B HTML $B$N5-;v$r:n$j$^$9!#$=$l$i$K%F%-(B
+     $B%9%H$@$1$N5-;v$r@8@.$5$;$?$$$J$i$P!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k(B
+     $B$K2C$($F$/$@$5$$!#(B
+
+          (setq shimbun-yahoo-prefer-text-plain t)
+
+ZDNet Japan (http://japan.zdnet.com/)
+     zdnet-jp.news zdnet-jp.news.network zdnet-jp.news.hardware
+     zdnet-jp.news.software zdnet-jp.news.manage
+     zdnet-jp.news.security zdnet-jp.news.internet zdnet-jp.news.os
+     zdnet-jp.news.db zdnet-jp.news.system zdnet-jp.column
+     zdnet-jp.column.sp1 zdnet-jp.column.netsecurity1
+     zdnet-jp.column.ea1 zdnet-jp.column.btl
+     zdnet-jp.column.solutionIT zdnet-jp.channel.security
+     zdnet-jp.channel.ilm zdnet-jp.blog.iida zdnet-jp.blog.mhatta
+     zdnet-jp.blog.kurei zdnet-jp.blog.opensource zdnet-jp.blog.soa
+     zdnet-jp.blog.dp
+
+The Onion (http://www.theonion.com/)
+     the-onion.news
+
+
+
+File: emacs-w3m-ja.info, Node: Mailing Lists Supported by Shimbun, Next: Sport Sites Supported by Shimbun, Prev: News Sites Supported by Shimbun, Up: Shimbun Sites
+
+$A%a$B!<$A%j%s%0%j%9%H(B
+----------------
+
+$B:G6a$G$O!"%a!<%j%s%0%j%9%H$KEj9F$5$l$?2a5n5-;v$N%"!<%+%$%V$,(B WEB $B>e$K4v(B
+$B$D$b8x3+$5$l$F$$$^$9!#(B`Shimbun' $B%i%$%V%i%j$O!"0J2<$N%"!<%+%$%V$r07$&$3(B
+$B$H$,$G$-$^$9!#(B
+
+Semi-gnus Mailing List in Japan (http://lists.airs.net/semi-gnus/archive/)
+     airs.semi-gnus-ja
+
+Wanderlust Mailing List (http://lists.airs.net/)
+     airs.wl airs.wl-en
+
+Big Brother DataBase Mailing List (http://www.rc.tutrp.tut.ac.jp/bbdb-ml/)
+     bbdb-ml.bbdb-ml
+
+GNOME Mailing List (http://mail.gnome.org/archives/)
+     gnome.balsa-list gnome.calendar-list gnome.cvs-commits-list
+     gnome.foundation-announce gnome.foundation-list gnome.fplan-list
+     gnome.gconf-list gnome.gdome gnome.gnome-1.4-list
+     gnome.gnome-announce-list gnome.gnome-components-list
+     gnome.gnome-db-list gnome.gnome-de gnome.gnome-debugger-list
+     gnome.gnome-devel-list gnome.gnome-doc-list gnome.gnome-gui-list
+     gnome.gnome-hackers gnome.gnome-hackers-readonly
+     gnome.gnome-hackers-test gnome.gnome-i18n gnome.gnome-i18n-tools
+     gnome.gnome-kde-list gnome.gnome-list gnome.gnome-office-list
+     gnome.gnome-pilot-list gnome.gnome-sound-list
+     gnome.gnome-themes-list gnome.gnome-ui-hackers
+     gnome.gnome-web-list gnome.gnome-webmaster-list
+     gnome.gnome-workshop-list gnome.gnomecc-list gnome.gnumeric-list
+     gnome.gtk-app-devel-list gnome.gtk-devel-list gnome.gtk-doc-list
+     gnome.gtk-i18n-list gnome.gtk-list gnome.gtk-perl-list
+     gnome.guppi-list gnome.libart gnome.libart-hackers
+     gnome.orbit-list gnome.vote gnome.wm-spec-list gnome.xml
+     gnome.xslt
+
+Java $A%+%s%U%!%l%s%9(B Mailing List (http://www.java-conf.gr.jp/archives/)
+     javaconf.servlet-ml javaconf.business-ml
+     javaconf.duke-in-the-box-ml javaconf.jfriends-ml javaconf.JGT-ml
+     javaconf.jini-ml javaconf.ejb-ml javaconf.cm-ml javaconf.horb-ml
+     javaconf.talk-ml
+
+LinuxCE JP Mailing List (http://www.peanuts.gr.jp/~kei/ml-archive/)
+     linuxce-jp.users
+
+Mule Mailing List (http://www.m17n.org/)
+     m17n.mule-ja m17n.mule
+
+Meadow Mailing List (http://www.ysnb.net/meadow/)
+     meadow.meadow-develop meadow.meadow-users-jp
+
+Mew Mailing List (http://www.mew.org/ml/)
+     mew.mew-dist mew.mew-win32 mew.mew-int
+
+MagicPoint Mailing List (http://www.mew.org/ml/)
+     mew.mgp-users mew.mgp-users-jp
+
+www.namazu.org Mailing Lists (http://www.namazu.org/cgi-bin/mailman/listinfo)
+     namazu.kakasi-commits namazu.kakasi-dev namazu.migemo
+     namazu.namazu-users-en namazu.namazu-users-ja
+     namazu.namazu-devel-ja namazu.namazu-devel-en
+     namazu.namazu-win32-users-ja namazu.sary
+
+emacs-w3m Mailing List (http://emacs-w3m.namazu.org/ml/)
+     emacs-w3m.emacs-w3m
+
+NetBSD JP Mailing List (http://www.jp.netbsd.org/ja/JP/ml/)
+     netbsd.announce-ja netbsd.junk-ja netbsd.tech-misc-ja
+     netbsd.tech-pkg-ja netbsd.port-arm32-ja netbsd.port-hpcmips-ja
+     netbsd.port-mac68k-ja netbsd.port-mips-ja netbsd.port-powerpc-ja
+     netbsd.hpcmips-changes-ja netbsd.members-ja netbsd.admin-ja
+     netbsd.www-changes-ja
+
+Ruby Mailing List (http://blade.nagaokaut.ac.jp/)
+     ruby.comp.lang.ruby ruby.fj.comp.lang.ruby ruby.ruby-dev
+     ruby.ruby-ext ruby.ruby-list ruby.ruby-math ruby.ruby-talk
+
+Toshiba Linux Users JP Mailing List (http://linux.toshiba-dme.co.jp/ML/tlinux-users-j/)
+     toshiba.linux-users-j
+
+w3m-dev Mailing List (http://mi.med.tohoku.ac.jp/~satodai/w3m-dev/)
+     w3m-dev.w3m-dev w3m-dev.w3m-dev-en
+
+digiko Mailing List (http://yar-3.net/digiko/)
+     digiko.digiko
+
+XEmacs Mailing List (http://list-archive.xemacs.org/)
+     xemacs.xemacs-announce xemacs.xemacs-beta-ja xemacs.xemacs-beta
+     xemacs.xemacs-build-reports xemacs.xemacs-cvs
+     xemacs.xemacs-design xemacs.xemacs-mule xemacs.xemacs-nt
+     xemacs.xemacs-patches xemacs.xemacs-users-ja xemacs.xemacs
+
+$A%;%-%e%j%F%#$B!<(BMEMO Mailing List (http://memo.st.ryukoku.ac.jp/archive/)
+     security-memo.memo security-memo.free-memo
+     security-memo.social-memo
+
+     $B$J$*!"(B`security-memo.*' $B$O%"%I%l%92s<}%m%\%C%HBP:v$G(B userid $B$H(B
+     passowrd $B$r5a$a$i$l$k$N$G(B `~/.w3m/passwd' $B$K(B
+
+          machine memo.st.ryukoku.ac.jp
+          realm input username/password = archives/archives
+          login archives
+          passwd archives
+
+          machine memo.st.ryukoku.ac.jp
+          realm input user: archives / password: archives
+          login archives
+          passwd archives
+
+     $B$H=q$-!">e5-%U%!%$%k$+$i(B group, others $B$N%"%/%;%98"$r<h$j=|$$$F$*(B
+     $B$/I,MW$,$"$j$^$9!#(B
+
+Debian JP Mailing List (http://lists.debian.or.jp/)
+     debian-jp.debian-announce debian-jp.debian-devel
+     debian-jp.debian-www debian-jp.debian-users
+     debian-jp.debian-policy debian-jp.jp-qa
+
+Debian Mailing List (http://lists.debian.org/)
+     debian.debian-announce debian.debian-commercial
+     debian.debian-firewall debian.debian-french debian.debian-isp
+     debian.debian-italian debian.debian-kde debian.debian-laptop
+     debian.debian-news debian.debian-news-german
+     debian.debian-news-portuguese debian.debian-security-announce
+     debian.debian-testing debian.debian-user
+     debian.debian-user-catalan debian.debian-user-french
+     debian.debian-user-polish debian.debian-user-portuguese
+     debian.debian-user-spanish debian.debian-user-swedish
+     debian.debian-admintool debian.debian-apache
+     debian.debian-autobuild debian.debian-beowulf debian.debian-boot
+     debian.debian-cd debian.debian-ctte debian.debian-debbugs
+     debian.debian-devel debian.debian-devel-announce
+     debian.debian-devel-french debian.debian-devel-games
+     debian.debian-devel-spanish debian.debian-doc debian.debian-dpkg
+     debian.debian-emacsen debian.debian-events-eu
+     debian.debian-events-na debian.debian-faq debian.debian-gcc
+     debian.debian-glibc debian.debian-gtk-gnome debian.debian-hams
+     debian.debian-ipv6 debian.debian-java debian.debian-jr
+     debian.debian-med debian.debian-mentors debian.debian-newmaint
+     debian.debian-newmaint-admin debian.debian-ocaml-maint
+     debian.debian-openoffice debian.debian-perl debian.debian-pilot
+     debian.debian-policy debian.debian-pool debian.debian-python
+     debian.debian-qa debian.debian-qa-private debian.debian-release
+     debian.debian-security debian.debian-snapshots
+     debian.debian-tetex-maint debian.debian-toolchain
+     debian.debian-vote debian.debian-wnpp debian.debian-www
+     debian.debian-x debian.deity debian.debian-chinese
+     debian.debian-chinese-big5 debian.debian-chinese-gb
+     debian.debian-esperanto debian.debian-i18n debian.debian-japanese
+     debian.debian-l10n-catalan debian.debian-l10n-dutch
+     debian.debian-l10n-english debian.debian-l10n-french
+     debian.debian-l10n-italian debian.debian-l10n-portuguese
+     debian.debian-l10n-spanish debian.debian-laespiral
+     debian.debian-russian debian.debian-simplified-chinese
+     debian.debian-68k debian.debian-alpha debian.debian-arm
+     debian.debian-bsd debian.debian-hppa debian.debian-hurd
+     debian.debian-ia64 debian.debian-mips debian.debian-parisc
+     debian.debian-powerpc debian.debian-s390 debian.debian-sparc
+     debian.debian-superh debian.debian-ultralinux debian.debian-win32
+     debian.debian-all-changes debian.debian-alpha-changes
+     debian.debian-arm-changes debian.debian-books
+     debian.debian-cd-vendors debian.debian-changes
+     debian.debian-consultants debian.debian-curiosa
+     debian.debian-devel-all-changes debian.debian-devel-alpha-changes
+     debian.debian-devel-arm-changes debian.debian-devel-changes
+     debian.debian-devel-hurd-i386-changes
+     debian.debian-devel-i386-changes debian.debian-devel-m68k-changes
+     debian.debian-devel-powerpc-changes
+     debian.debian-devel-sparc-changes debian.debian-hurd-i386-changes
+     debian.debian-i386-changes debian.debian-legal
+     debian.debian-m68k-changes debian.debian-mirrors
+     debian.debian-powerpc-changes debian.debian-project
+     debian.debian-publicity debian.debian-sgml
+     debian.debian-sparc-changes debian.lcs-eng debian.lsb-confcall
+     debian.lsb-discuss debian.lsb-impl debian.lsb-spec
+     debian.lsb-test debian.spi-announce debian.spi-general
+     debian.vgui-discuss
+
+KDE Mailing List in Japan (http://www.kde.gr.jp/ml/)
+     kde.Kuser kde.Kdeveloper
+
+Geocrawler (http://www.geocrawler.com/)
+     Geocrawler $B$KJ]B8$5$l$F$$$k$9$Y$F$N%a!<%j%s%0%j%9%H$r1\Mw$G$-$^$9!#(B
+     `M-x shimbun-geocrawler-add-group <RET>' $B$H$$$&%3%^%s%I$r;H$C(B
+     $B$F!"1\Mw$7$?$$%0%k!<%W$rJQ?t(B `shimbun-geocrawler-group-alist' $B$KEP(B
+     $BO?$7$F$/$@$5$$!#(B
+
+Mailing list ARChives (http://marc.theaimsgroup.com/)
+     Mailing list ARChives (MARC) $B$KJ]B8$5$l$F$$$k$9$Y$F$N%a!<%j%s%0%j(B
+     $B%9%H$r1\Mw$G$-$^$9!#1\Mw$7$?$$%0%k!<%W$N%0%k!<%WL>$H(B URL $B$r!"JQ?t(B
+     `shimbun-marc-aims-group-alist' $B$KEPO?$7$F$/$@$5$$!#(B
+
+RedHat Mailing List (http://sources.redhat.com/ml/)
+     redhat.automake redhat.bug-automake redhat.automake-prs
+     redhat.automake-cvs redhat.binutils redhat.binutils-cvs
+     redhat.c++-embedded redhat.crossgcc redhat.cgen redhat.cgen-prs
+     redhat.cgen-cvs redhat.cygwin redhat.cygwin-xfree
+     redhat.cygwin-announce redhat.cygwin-xfree-announce
+     redhat.cygwin-apps redhat.cygwin-patches redhat.cygwin-developers
+     redhat.cygwin-cvs redhat.cygwin-apps-cvs
+     redhat.docbook-tools-discuss redhat.docbook-tools-announce
+     redhat.docbook-tools-cvs redhat.docbook redhat.dssslist
+     redhat.sgml-tools redhat.docbook-apps redhat.ecos-announce
+     redhat.ecos-devel redhat.ecos-discuss redhat.ecos-maintainers
+     redhat.ecos-patches redhat.elix redhat.elix-announce redhat.gdb
+     redhat.gdb-announce redhat.gdb-testers redhat.gdb-testresults
+     redhat.gdb-patches redhat.gdb-cvs redhat.bug-gdb redhat.gdb-prs
+     redhat.libc-alpha redhat.libc-hacker redhat.bug-glibc
+     redhat.glibc-cvs redhat.glibc-linux redhat.bug-gnats
+     redhat.gnats-devel redhat.gnats-announce redhat.gnats-cvs
+     redhat.gsl-discuss redhat.gsl-announce redhat.gsl-cvs
+     redhat.guile redhat.guile-emacs redhat.guile-prs redhat.guile-gtk
+     redhat.bug-guile redhat.guile-cvs redhat.guile-emacs-cvs
+     redhat.insight redhat.insight-announce redhat.insight-prs
+     redhat.installshell redhat.inti redhat.kawa redhat.libffi-discuss
+     redhat.libffi-announce redhat.libstdc++ redhat.libstdc++-cvs
+     redhat.libstdc++-prs redhat.mauve-discuss redhat.mauve-announce
+     redhat.newlib redhat.pthreads-win32 redhat.rhdb
+     redhat.rhdb-announce redhat.rhug-rhats redhat.rpm2html-cvs
+     redhat.rpm2html-prs redhat.rpm2html redhat.sid
+     redhat.sid-announce redhat.sid-cvs redhat.sourcenav
+     redhat.sourcenav-announce redhat.sourcenav-prs redhat.win32-x11
+     redhat.xconq7 redhat.xconq-announce redhat.xconq-cvs
+
+MacOSX JP Mailing List (http://www.tech-arts.co.jp/macosx/)
+     macosx-jp.macosx-jp macosx-jp.macosx-dev-jp
+     macosx-jp.macosx-ws-jp macosx-jp.webobjects-jp
+
+SourceForge JP (http://sourceforge.jp)
+     SourceForge JP $B$KJ]B8$5$l$F$$$k%a!<%j%s%0%j%9%H$N$9$Y$F$N8x3+=q8K(B
+     $B$r1\Mw$G$-$^$9!#1\Mw$7$?$$%0%k!<%W$rJQ?t(B
+     `shimbun-sourceforge-jp-mailing-lists' $B$KEPO?$7$F$/$@$5$$!#(B
+
+Elips Mailing List (http://heimat.jp/~nakaji/elips/)
+     elips.elips
+
+Squeak-ja Mailing List (http://lists.squeakfoundation.org/pipermail/squeak-ja/)
+     squeak-ja.main
+
+Smalltalkers' Salon Mailing List (http://www.sra.co.jp/smalltalk/SML/archives/)
+     sml.main
+
+Squeak-dev Mailing List (http://lists.squeakfoundation.org/pipermail/squeak-dev/)
+     squeak-dev.main
+
+Plucker Mailing List (http://www.mail-archive.com/plucker-*@rubberchicken.org/maillist.html)
+     plucker.announce plucker.list plucker.dev
+
+pilot-link Mailing List (http://www.pilot-link.org/pipermail/)
+     pilot-link.announce pilot-link.devel pilot-link.general
+     pilot-link.unix-ng
+
+Coldsync Mailing List (http://www.thedotin.net/maillists/coldsync-hackers/maillist.html)
+     coldsync.main
+
+J-Pilot Mailing List (http://www.jpilot.org/pipermail/jpilot/)
+     jpilot.main
+
+pilot-mailsync Mailing List (http://lists.gnu-designs.com/pipermail/pilot-mailsync/)
+     pilot-mailsync.main
+
+Mozilla Users Mailing List in Japan (http://www.mozilla.gr.jp/ml/logs/moz-users/)
+     mozilla-jp.users
+
+     $B$J$*!"(B`mozilla-jp.users' $B$O%"%I%l%92s<}%m%\%C%HBP:v$G(B userid $B$H(B
+     passowrd $B$r5a$a$i$l$k$N$G(B `~/.w3m/passwd' $B$K(B
+
+          machine www.mozilla.gr.jp
+          realm Please Enter mozilla mozilla
+          login mozilla
+          passwd mozilla
+
+     $B$H=q$-!">e5-%U%!%$%k$+$i(B group, others $B$N%"%/%;%98"$r<h$j=|$$$F$*(B
+     $B$/I,MW$,$"$j$^$9!#(B
+
+tDiary Developers Mailing List in Japan (http://www.tdiary.org/)
+     tdiary-ml.devel tdiary-ml.theme
+
+arch.bluegate.org Mailing Lists (http://arch.bluegate.org/mailman/listinfo)
+     arch-bluegate.subversion-jp arch-bluegate.arch-jp
+     arch-bluegate.mailman arch-bluegate.viewarch
+
+Tigris.org:Open Source Software Engineering (http://www.tigris.org/)
+     Tigris.org $B$KJ]B8$5$l$F$$$k$9$Y$F$N%a!<%j%s%0%j%9%H$r1\Mw$G$-$^$9!#(B
+     $B1\Mw$7$?$$%0%k!<%W$rJQ?t(B `shimbun-tigris-group-alist' $B$KEPO?$7$F$/(B
+     $B$@$5$$!#%0%k!<%WL>$O(B tigris.<project>.<mailinglist> $B$K$J$j$^$9!#(B
+
+www.SciPy.net Mailing Lists (http://www.scipy.net/mailman/listinfo)
+     scipy.astropy scipy.ipython-user scipy.ipython-dev
+     scipy.scipy-user scipy.scipy-dev scipy.scipy-testlog
+     scipy.scipy-chaco scipy.scipy-cvs
+
+
+
+
+File: emacs-w3m-ja.info, Node: Sport Sites Supported by Shimbun, Next: Misc Sites Supported by Shimbun, Prev: Mailing Lists Supported by Shimbun, Up: Shimbun Sites
+
+$A%9%]$B!<$A%D(B
+--------
+
+`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k%9%]!<%D4X78$N%5%$%H$G$9!#(B
+
+makanai (http://www.makanai.com/)
+     makanai.f1news
+
+F1 $A%U%!%s(B (http://www.ksky.ne.jp/~tahara/f1/)
+     f1fan.news
+
+@nifty:$A%b$B!<$A%?$B!<$A%9%]$B!<$A%D(B (http://forum.nifty.com/fmotor/)
+     msports-nifty.F1 msports-nifty.IRL msports-nifty.WRC
+     msports-nifty.Europe msports-nifty.USA
+
+Yahoo!$A%9%]$B!<$A%D(B (http://sports.yahoo.co.jp/)
+     yahoo-sports.F1 yahoo-sports.baseball yahoo-sports.keiba
+     yahoo-sports.NBA yahoo-sports.NFL yahoo-sports.rugby
+
+$B$?$@$7!"(BEmacs-21.4 $B$^$?$O$=$l0JA0$NHG$G(B @nifty: $B%b!<%?!<%9%]!<%D$r1\Mw(B
+$B$9$k$K$O!"(BMule-UCS (*Note Other Requirements::) $B$,I,MW$G$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Misc Sites Supported by Shimbun, Prev: Sport Sites Supported by Shimbun, Up: Shimbun Sites
+
+$A$=$NK{(B
+------
+
+`Shimbun' $B%i%$%V%i%j$NBP1~$7$F$$$k$=$NB>$N%5%$%H$G$9!#7G<(HD$d!"O":\5-(B
+$B;v$r<gBN$H$9$k$h$&$J%5%$%H$,4^$^$l$F$$$^$9!#(B
+
+Tea Cup $(I6-$AJ>0e(B (http://www.tcup.com/)
+     Tea Cup Communication $B$K$h$C$FDs6!$5$l$k!"MM!9$J7G<(HD$r9VFI$9$k$3(B
+     $B$H$,$G$-$^$9!#%G%U%)%k%H$G$O!"0J2<$N;0$D$N7G<(HD$,MQ0U$5$l$F$$$^$9!#(B
+
+     tcup.meadow
+          Meadow $(I6-$AJ>0e(B (http://www66.tcup.com/6629/yutopia.html)
+
+     tcup.skk
+          SKK $(I6-$AJ>0e(B (http://www67.tcup.com/6718/yutopia.html)
+
+     tcup.yutopia
+          $A$f$&,Ftopia$(I6-$AJ>0e(B (http://www61.tcup.com/6116/yutopia.html)
+
+     $B?7$?$K7G<(HD$r%j%9%H$KDI2C$9$k$K$O!"$=$l$i$NL>A0$H(B URL $B$rD4$Y$F!"(B
+     `shimbun-tcup-group-alist' $B$rJQ99$7$F$/$@$5$$!#Fs$D$N7G<(HD(B `foo'
+     $B$H(B `bar' $B$rDI2C$9$kNc$G$9!#(B
+
+          (eval-after-load "sb-tcup"
+            '(setq shimbun-tcup-group-alist
+                   (append
+                    '(("foo" "http://MMMM.teacup.com/foo/bbs2")
+                      ("bar" "http://NNNN.teacup.com/bar/bbs2"))
+                    shimbun-tcup-group-alist)))
+
+2ch
+     $B%0%k!<%WL>$H(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B
+
+          (setq shimbun-2ch-group-alist
+                '(("Meadow" .
+                   "http://pc.2ch.net/test/read.cgi/software/1005469775")
+                  ("emacs-w3m" .
+                   "http://pc.2ch.net/test/read.cgi/unix/1013710106")))
+
+CGI_Board $A$rJ9$C$F$$$k$(I6-$AJ>0e(B (http://www.math.tohoku.ac.jp/~kuroki/support/)
+
+     CGI_Board $B$r;H$C$F$$$k7G<(HD$N(B URL $B$rD4$Y$F!"(B
+     `shimbun-cgi-board-group-alist' $B$KE,@Z$J@_Dj$r2C$($F;H$$$^$9!#(B
+
+HNS $A$K$h$kHU$(GX4(B
+     $B1\Mw$7$?$$F|5-$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B
+
+          (setq shimbun-hns-group-alist
+                '(("arisawa"                            ;; $B%0%k!<%WL>(B
+                   "http://nijino.homelinux.net/diary/" ;; URL
+                   "[e-mail]")              ;; $B%a!<%k%"%I%l%9(B
+                  ("miyoshi"
+                   "http://www.be.wakwak.com/cgi-bin/sbox/~miyoshi/hns/"
+                   "[e-mail]")))
+
+tDiary $A$K$h$kHU$(GX4(B
+     $B1\Mw$7$?$$F|5-$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B
+
+          (setq shimbun-tdiary-group-alist
+                '(("henahena"                          ;; $B%0%k!<%WL>(B
+                   "http://www.fan.gr.jp/~ring/d/")    ;; URL
+                  ("yoichi"
+                   "http://yoichi.geiin.org/d/")))
+
+$(IA{$ALl$(I"H$(G^[(B (http://plaza.rakuten.co.jp/) $A$NHU$(GX4(B
+     $B1\Mw$7$?$$F|5-$r3+@_$7$F$$$k?M$N3ZE7(B ID $B$H%a!<%k%"%I%l%9$rD4$Y$F!"(B
+     $B0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B
+
+          (setq shimbun-rakuten-group-alist
+                '(("rakuten-id" . "email-address")))
+
+EmacsWiKi (http://www.emacswiki.org/)
+     emacswiki.changes emacswiki.diff
+
+$A%3%s%F%s%D$r:,$`(B RSS $A%U%#$B!<$A%I(B
+     $B1\Mw$7$?$$7G:\%3%s%F%s%D$,4^$^$l$k$h$&$J(B RSS $B%U%#!<%I$rD4$Y$F!"(B
+     `shimbun-rss-hash-group-path-alist' $BJQ?t$r0J2<$N$h$&$K@_Dj$7$F;H$$(B
+     $B$^$9!#%P%C%/%(%s%IL>$O(B `rss-hash' $B$G$9!#<g$K8D?M$N%V%m%0$J$I$,BP>](B
+     $B$K$J$k$G$7$g$&!#(B
+
+     $B%Q%i%a!<%?$O%0%k!<%WL>!"(BRSS $B%"%I%l%9!"%a!<%k%?%$%W(B (`t' $B$G(B html)$B!"(B
+     $B@07A;~$N3+;O@55,I=8=!"@07A;~$N=*N;@55,I=8=$H$J$j$^$9!#%0%k!<%WL>!"(B
+     RSS $B%"%I%l%90J30$O%*%W%7%g%s$G$9!#(B
+
+     $B0J2<$O%5%s%W%k$G$9!#$3$N>l9g$O(B `rss-hash.sampleblog1' $B$*$h$S(B
+     `rss-hash.sampleblog2' $B$H$7$F1\Mw$G$-$^$9!#(B
+
+          (setq shimbun-rss-hash-group-path-alist
+                '(;; text mail
+                  ("sampleblog1" "http://www.example.com/index1.rss")
+                  ;; html mail
+                  ("sampleblog2" "http://www.example.com/index2.rss"
+                   t "</title>" "<!-- start ads")))
+
+$A%3%s%F%s%D$r:,$`(B Atom $A%U%#$B!<$A%I(B
+     $BA09`(B ($B%3%s%F%s%D$r4^$`(B RSS $B%U%#!<%I(B) $B$HF1MM$K!"7G:\$5$l$?%3%s%F%s(B
+     $B%D$r4^$`(B Atom $B%U%#!<%I$b1\Mw$9$k$3$H$,$G$-$^$9!#$=$l$r9T$J$&$K$O!"(B
+     shimbun-rss-hash-* $B$HF1MM$N$d$jJ}$GJQ?t(B
+     `shimbun-atom-hash-group-path-alist' ($B$R$g$C$H$9$k$H(B
+     `shimbun-atom-hash-x-face-alist' $B$J$I$b(B) $B$r@_Dj$7$F$/$@$5$$!#%P%C(B
+     $B%/%(%s%IL>$O(B `atom-hash' $B$G$9!#(B
+
+$A%3%s%F%s%D$N$J$$(B RSS $A%U%#$B!<$A%I(B
+     $BB?$/$N%U%#!<%I$K$O5-;v$N40A4$J%3%s%F%s%D$,L5$$$+!"$^$?$O$$$B$o$k$K(B
+     $B>.=P$7$K$7$^$9!#%5%$%H$,$A$c$s$H5-;v$r=q$+$:$K!"$=$N$h$&$J%U%#!<%I(B
+     $B$7$+Ds6!$7$J$$>l9g$G$b!"B?$/$N>l9g(B `rss-blogs' $B$r;H$C$F@Z$jH4$1$k(B
+     $B$3$H$,$G$-$^$9!#@_Dj$O(B `rss-hash' $B$N$b$N$H;w$F$$$^$9!#Nc$r<($7$^$7$g(B
+     $B$&(B:
+
+          (setq shimbun-rss-blogs-group-url-regexp
+            '(("first-feed" "http://example/wordpressfeed")
+              ("second-feed" "http://example/somefeed"
+               "<div name=\"content\">" "<div name=\"comments\">")
+              ("third-feed" "http://example/someotherfeed" 'none)))
+
+     $B:G=i$NFs$D$N%"%$%F%`$O%U%#!<%I$NL>A0$H(B URL $B$G$9!#$=$N%U%#!<%I$,;X(B
+     $B$7<($9(B HTML $B%Z!<%8$K$*$$$F!"<B:]$N%3%s%F%s%D$N;O$a$H=*$j$rC5$9$?$a(B
+     $B$NFs$D$N@55,I=8=$r!"G$0U$GM?$($k$3$H$,$G$-$^$9!#$=$3$GC1$K(B `none'
+     $B$H$$$&%7%s%\%k$r;H$&$H!"$$$+$J$k_I2a$b9T$J$o$l$^$;$s!#(B
+
+     $B2C$($F!"(B`rss-blogs' $B$O$$$/$D$+$N%]%T%e%i!<$J%V%m%0!&%(%s%8%s$r<+F0(B
+     $BE*$K07$&$3$H$,$G$-$^$9!#$9$J$o$A(B Google $B$N(B Blogger/Blogspot ($B%3%a(B
+     $B%s%H!&%U%#!<%I$r4^$_$^$9(B)$B!"(BWordPress$B!"$*$h$S(B TypePad $B$G$9!#%U%#!<(B
+     $B%I$r<h$j4s$;$k%5%$%H$,$=$l$i$N0l$D$r;H$C$F$$$k$J$i(B (`generator' $B%?(B
+     $B%0$rD/$a$l$P$o$+$j$^$9(B)$B!"C1$KG$0U$N%Q%i%a!<%?$r>JN,$9$k$@$1$G!"<+(B
+     $BF0E*$K%3%s%F%s%D$r@Z$j=P$=$&$H$9$k$G$7$g$&!#(B
+
+Wiki $A%3%s%F%s%D(B
+     $B1\Mw$7$?$$(B Wiki $B$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B
+     PukiWiki $B$H(B Hiki $B$KBP1~$7$F$$$^$9!#$b$7!"3FFbB&$N%j%9%H$N(B 4 $BHVL\!"(B
+     5 $BHVL\$NMWAG$N@55,I=8=$K2?$r;XDj$7$FNI$$$+J,$+$i$J$$$H$-$O!"(B`nil'
+     $B$r;XDj$9$l$PNI$$$G$7$g$&!#5-;v$N<hF@;~$K@07A$,9T$o$l$:!"$?$@%Z!<%8(B
+     $BA4BN$,8+$($k$@$1$G$9!#(B
+
+          (setq shimbun-wiki-group-alist
+                '(("pukiwiki" ;; $B%0%k!<%WL>(B
+                   "http://pukiwiki.org/index.php?cmd=rss10" ;; URL
+                   "[e-mail]" ;; $B%a!<%k%"%I%l%9(B
+                   nil ;; X-Face
+                   "\n<h3 id=\"" ;; contents $B$N(B start $B$r<($9(B regexp
+                   "</address>") ;; contents $B$N(B end $B$r<($9(B regexp
+                  ("hiki"
+                   "http://www.namaraii.com/hiki/?c=rss"
+                   "[e-mail]"
+                   nil
+                   "<div class=\"section\">"
+                   "<div class=\"sidebar\">")
+                  ("apollo"
+                   "http://wiki.fdiary.net/apollo/?c=rss"
+                   "[e-mail]"
+                   nil
+                   "<div class=\"section\">"
+                   "<div class=\"sidebar\">")
+                  ))
+
+Yahoo!$A%*$B!<$A%/%7%g%s(B (http://auctions.yahoo.co.jp/)
+     $B1\Mw$7$?$$%+%F%4%j$d8!:w7k2L$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F(B
+     $B;H$$$^$9!#(B
+
+          (setq shimbun-yahoo-auctions-group-alist
+                '(("mp3player" . "http://list3.auctions.yahoo.co.jp/jp/show/catleaf_rss?category=2084039708&alocale=0jp")
+                  ("iPod" . "http://search3.auctions.yahoo.co.jp/search_rss?p=iPod&auccat=2084039708&alocale=0jp&acc=jp")))
+
+VineLinux Errata (http://www.vinelinux.org/)
+     vinelinux.errata.4x.i386 vinelinux.errata.4x.ppc
+     vinelinux.errata.3x.i386 vinelinux.errata.3x.ppc
+     vinelinux.errata.3x.alpha vinelinux.errata.2x.i386
+     vinelinux.errata.2x.ppc vinelinux.errata.2x.sparc
+     vinelinux.errata.2x.alpha vinelinux.errata.1x
+
+$ADZ$(Gk^$A%a$B!<$A%k%^%,%8%s(B (http://www.mmz.kantei.go.jp/)
+     kantei.m-magazine-en kantei.m-magazine-ja
+     kantei.m-magazine-cn.hatoyama kantei.m-magazine-kr.hatoyama
+     kantei.m-magazine-en.hatoyama kantei.m-magazine-ja.hatoyama
+     kantei.m-magazine-en.aso kantei.m-magazine-ja.aso
+     kantei.m-magazine-en.fukuda kantei.m-magazine-ja.fukuda
+     kantei.m-magazine-en.abe kantei.m-magazine-ja.abe
+     kantei.m-magazine-en.koizumi kantei.m-magazine-ja.koizumi
+
+     $B8eJ}8_49@-$N$?$a(B `kantei.m-magazine'$B!"(B`kantei.m-magazine-cn' $B$*$h(B
+     $B$S(B `kantei.m-magazine-kr' $B$bMxMQ2DG=$K$J$C$F$$$^$9!#(B
+
+$ALX$(G]B$(I"G(B (http://www.jpo.go.jp/)
+     jpo.news jpo.revision jpo.lawguide jpo.details
+
+IBM developerWorks (http://www-6.ibm.com/jp/developerworks/)
+     ibm-dev.autonomic ibm-dev.java ibm-dev.linux ibm-dev.opensource
+     ibm-dev.webservices ibm-dev.xml
+
+Pocketgames (http://www.pocketgames.jp/)
+     pocketgames.news
+
+Wincefan (http://www.wince.ne.jp/)
+     wincefan.news
+
+PalmFan (http://www.palmfan.com/)
+     palmfan.news
+
+$(GgY$BG>$A=V$N$(G\"^[$A%l%]$B!<$A%H(B (http://homepage1.nifty.com/akiba/plat.html)
+     dennou.report
+
+PCWEB COLUMN Square (http://pcweb.mycom.co.jp/column/)
+     pcweb-column.jsr pcweb-column.yume pcweb-column.hreceipe
+     pcweb-column.kita pcweb-column.shonanlife pcweb-column.kaden
+     pcweb-column.nemurenai pcweb-column.komono pcweb-column.js
+     pcweb-column.en pcweb-column.motherboard pcweb-column.svalley
+     pcweb-column.architecture pcweb-column.motorlife
+     pcweb-column.nihongoprog pcweb-column.objc pcweb-column.ide
+     pcweb-column.music pcweb-column.itsecurity
+     pcweb-column.soundvisual pcweb-column.osx pcweb-column.sopinion
+     pcweb-column.ebook pcweb-column.orerobo pcweb-column.zsh
+     pcweb-column.rikei pcweb-column.lifehack pcweb-column.world
+     pcweb-column.guutara pcweb-column.volt pcweb-column.textclean
+     pcweb-column.person pcweb-column.web20 pcweb-column.system
+
+     $B8eJ}8_49@-$N$?$a!"0J2<$N%"%$%F%`$bMxMQ2DG=$K$J$C$F$$$^$9!#(B
+     pcweb-column.itshihonron pcweb-column.yetanother
+     pcweb-column.asia pcweb-column.benri pcweb-column.bytes
+     pcweb-column.game pcweb-column.hitech pcweb-column.java
+     pcweb-column.jisakuparts pcweb-column.scramble
+     pcweb-column.toolexp pcweb-column.winvista pcweb-column.winxp
+     pcweb-column.interview pcweb-column.ityougo pcweb-column.kimeuchi
+     pcweb-column.stratesys pcweb-column.toyagain
+
+$A%N$B!<$A%D$(G]s$AAP$(Gs((B (http://tsuruo.dominohosting.biz/members/tsuruo/)
+     lotusex.news lotusex.library lotusex.operation lotusex.primer
+     lotusex.tips lotusex.practical lotusex.qanda lotusex.lounge
+     lotusex.bbs
+
+$A#@(BIT$A%U%)$B!<$A%i%`(B (http://www.atmarkit.co.jp)
+     atmarkit.news atmarkit.fwin2k atmarkit.fdotnet atmarkit.fsys
+     atmarkit.fxml atmarkit.fdb atmarkit.flinux atmarkit.fnetwork
+     atmarkit.fjava atmarkit.fsecurity atmarkit.farc atmarkit.fbiz
+     atmarkit.fwcr atmarkit.jibun
+
+TeX Q&A $(I6-$AJ>0e(B (http://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/)
+     texfaq.qanda
+
+X51.org (http://x51.org/)
+     x51.anima x51.art x51.auction x51.blow x51.cabal x51.crime
+     x51.disaster x51.edge x51.enema x51.ghost x51.homme x51.info
+     x51.life x51.love x51.media x51.medical x51.military
+     x51.northkorea x51.oparts x51.phallic x51.psychics x51.religion
+     x51.science x51.top x51.ufo x51.uma x51.xfiles
+
+eXperts Connection (eXConn) (http://www.exconn.net/)
+     exconn.news
+
+MSDN (http://msdn.microsoft.com/)
+     msdn.all msdn.netframework msdn.architecture msdn.asp.net
+     msdn.data msdn.longhorn msdn.mobility msdn.subscriptions
+     msdn.msdntv msdn.office msdn.security msdn.sql msdn.theshow
+     msdn.vbasic msdn.vcsharp msdn.visualc msdn.vfoxpro msdn.vjsharp
+     msdn.vstudio msdn.vs2005 msdn.webservices msdn.embedded msdn.xml
+     msdn.japan.msdn msdn.japan.msdn-us
+
+Haiku OS (http://haiku-os.org/)
+     haiku-os.news haiku-os.forums haiku-os.newsletters
+
+Foundation for a Free Information Infrastructure (http://www.ffii.org/)
+     ffii.en.software-patents ffii.en.software-patents.ffii
+     ffii.en.information-infrastructure ffii.en.project
+     ffii.de.software-patente ffii.de.software-patente.ffii
+     ffii.de.informations-infrastruktur ffii.fr.brevets-logiciels
+     ffii.fr.brevets-logiciels.ffii ffii.nl.softwarepatenten
+     ffii.nl.softwarepatenten.ffii
+
+
+
+File: emacs-w3m-ja.info, Node: Shimbun Basics, Prev: Shimbun Sites, Up: Shimbun Library
+
+$APB$(GjL$A%b%8%e$B!<$A%k$NWw$j7=(B
+======================
+
+`Shimbun' $B$O(B emacs-w3m $B$NIUB0%i%$%V%i%j$G!"(BGnus $B$d(B Wanderlust$B!"(BMew $B$J$I(B
+$B$N(B MUA $B$rMxMQ$7!"%&%'%V%3%s%F%s%D$r%a!<%k$HF1$8%f!<%6%$%s%?!<%U%'!<%9$G(B
+$BFI$`$3$H$r2DG=$K$9$k$b$N$G$9!#$3$3$G$O(B `shimbun' $B%b%8%e!<%k$r:n@.$9$kE5(B
+$B7?E*$JJ}K!$r@bL@$7$^$9!#(B
+
+* Menu:
+
+* Overview::                    $B35N,(B
+* Getting web page and header information::  $B%&%'%V%Z!<%8$N%=!<%95Z$S%X%C%@>pJs$r<hF@$9$k(B
+* Displaying an article::       $B5-;v$NI=<((B
+* Inheriting shimbun module::   shimbun $B%b%8%e!<%k$N7Q>5(B
+* Making text/plain articles::  text/plain $B$N5-;v$r:n$k$K$O(B
+* Zenkaku to hankaku conversion:: $BA43QJ8;z$rH>3QJ8;z$KJQ49$9$k(B
+* Coding convention of Shimbun:: $B%3!<%G%#%s%05,Ls(B
+
+
+
+File: emacs-w3m-ja.info, Node: Overview, Next: Getting web page and header information, Prev: Shimbun Basics, Up: Shimbun Basics
+
+$A8EBT(B
+----
+
+`http://www.foobar.net' $B$N%3%s%F%s%D$r1\Mw$9$k?7$?$J(B `shimbun' $B%b%8%e!<(B
+$B%k(B `foobar' $B$r:n@.$9$k$H$7$F!"$^$::G=i$K5.J}$,$7$J$l$P$J$i$J$$$3$H$O!"(B
+`sb-foobar.el' $B$NKAF,$K(B
+
+     (require 'shimbun)
+     (luna-define-class shimbun-foobar (shimbun) ())
+
+$B$N$h$&$J@k8@$rF~$l$F$*$/$3$H$G$9!#=y!9$KJ,$+$k$H;W$$$^$9$N$G!":#$O$*$^(B
+$B$8$J$$$H;W$C$F$*$$$F$/$@$5$$!#Cm0U$9$Y$-$3$H$O!"(B`shimbun' $B%b%8%e!<%k$r(B
+$BF~$l$k%U%!%$%kL>$N(B `sb-foobar.el' $B$N(B `foobar' $B$NL>A0$H!"(B
+`luna-define-class' $B$NBh0l0z?t$N(B `shimbun-foobar' $B$N(B `foobar' $B$NL>A0$O(B
+$B9g$o$;$F$*$/I,MW$,$"$k$3$H$G$9!#(B
+
+`Shimbun' $B%b%8%e!<%k(B `shimbun-foobar' $B$,$3$J$9$Y$-;E;v$OBg$-$/;M$D$"$j(B
+$B$^$9(B ($B$"$J$?$,(B Gnus $B$N%f!<%6$J$i$P!"!V%U%)%k%@!W$r!V%0%k!<%W!W$KFI$_49(B
+$B$($F$/$@$5$$(B):
+
+  1. MUA $B$,(B `foobar' $B%U%)%k%@$r3+$$$?$i!"5-;v$NI8Bj$J$I$r%j%9%H%"%C%W$9(B
+     $B$k$?$a$K(B `http://www.foobar.net' $B$+$i%&%'%V%Z!<%8$N%=!<%9$r<hF@$9(B
+     $B$k$3$H!#(B
+
+  2. $B<hF@$7$?%&%'%V%Z!<%8$N%=!<%9$KBP$7!"5-;v$N8+=P$7$KI,MW$J$$$/$D$+$N(B
+     $B>pJs$H$H$b$K<hF@$7$F!"(B`headers' $B$H$$$&%j%9%H$KBeF~$7$FJV$9$3$H!#(B
+
+  3. MUA $B$,(B `foobar' $B%U%)%k%@$N5-;v$N1\Mw$rMW5a$7$?$i!"<B:]$N5-;vFbMF$r(B
+     $B5-:\$7$?%&%'%V%Z!<%8$N%=!<%9$r(B ($BNc$($P(B
+     `http://www.foobar.net/030530.html' $B$+$i(B) $B<hF@$9$k$3$H!#(B
+
+  4. `http://www.foobar.net/030530.html' $B$+$i<hF@$7$?%&%'%V%Z!<%8$N%=!<(B
+     $B%9$r!"I,MW$K1~$81\Mw$7$d$9$$$h$&$K@07A$9$k$3$H!#(B
+
+$B:G=i$N:n6H$O(B `shimbun.el' $B$N(B `shimbun-headers' $B$,!"FsHVL\$N:n6H$O(B
+`shimbun-get-headers' $B$,C4Ev$7$^$9!#$=$7$F;0HVL\$N:n6H$O(B
+`shimbun-article' $B$,!":G8e$N:n6H$O(B `shimbun-make-contents' $B$,C4Ev$7$^$9!#(B
+
+`shimbun.el' $B$NCf$r$4Mw$/$@$5$$!#(B`defun' $B$K$h$k4X?tDj5A$NB>$K!"(B
+$B8+47$l$J$$(B `luna-define-generic', `luna-define-method' $B$J$I$N(B
+$B@k8@$,$"$j$^$9$h$M!#$I$&$b;HMQJ}K!$O(B `defun' $B$N$=$l$H;w$F$$$k$h$&$G(B
+$B$9!#$=$7$F!"A0<T$O2?$@$+(B doc-string $B$@$1$r=q$$$F$"$k$h$&$G!"F1L>$N%7%s%\(B
+$B%k$K$D$$$F8e<T$K$h$C$F:FEY@k8@$7$F$$$k$h$&$K8+$($^$9!#99$K!"$"$k%7%s%\%k(B
+$B$K$D$$$F!"(B`luna-define-generic' $B$N@k8@$@$1$,$"$C$F!"(B
+`luna-define-method' $B$N@k8@$,$J$$$b$N$b$"$j$^$9!#(B
+
+$B<B$O!"(B`shimbun.el' $B5Z$S3F(B `shimbun' $B%b%8%e!<%k$O!"(BEmacs Lisp $B$K$F%*%V%8%'(B
+$B%/%H;X8~%W%m%0%i%_%s%0$r2DG=$H$9$k(B `luna.el' (1) (*Note
+Overview-Footnotes::) $B$rMxMQ$7$F=q$+$l$F$$$^$9!#(B
+
+`shimbun.el' $B$NCf$G$O!"(B`shimbun-headers' $B$,$"$k(B URL $B$N%&%'%V%Z!<%8$N%=!<(B
+$B%9$r<hF@$7!"(B`shimbun-get-headers' $B$,$=$N%&%'%V%Z!<%8$N%=!<%9$+$iI8Bj$J(B
+$B$I$rH4$-=P$7(B... $B$H$$$&A0=R$N<j=g$,%O!<%I%3!<%G%#%s%0$5$l$F$$$^$9!#$7$+(B
+$B$7!"7h$aBG$A$9$k$@$1$G$O!"@i:9K|JL$N%&%'%V%Z!<%8$N%=!<%9$r!"$=$N9=B$$K(B
+$B9g$o$;$FJQ2=$5$;$k$3$H$,$G$-$^$;$s!#(B
+
+$B$=$3$G(B `luna' $B$K$h$j!"%a%=%C%I$,%3!<%k$5$l$k<j=g$@$17h$a$F$*$$$F!"(B
+`shimbun' $B$K$h$jJQ2=$5$;$k$Y$-%a%=%C%I$N<BBNDj5A$r3F(B `shimbun' $B%b%8%e!<(B
+$B%k$KG$$;$F$$$k$N$G$9!#3F(B `shimbun' $B%b%8%e!<%k$G6&DL$G;H$($=$&$J%a%=%C%I(B
+$B$O(B `shimbun.el' $B$NCf$K%a%=%C%I$N<BBN$bDj5A$7$F$"$j$^$9$,!"$=$l$9$i3F(B
+`shimbun' $B%b%8%e!<%k$K$*$$$F:FDj5A$r$9$k$3$H$,2DG=$G$9!#(B
+
+$B$b$&$*J,$+$j$N$h$&$K!"(B`luna-define-generic' $B$O!"8@$o$P]W$@$1$N@k8@!"(B
+`luna-define-method' $B$O(B `shimbun' $B%b%8%e!<%kKh$K:n@.$G$-$k<BBN$N@k8@!#(B
+$B$=$7$F(B `sb-foobar.el' $B$NKAF,$KF~$l$?(B `luna-define-class' $B$G$N@k8@$O!"(B
+`luna' $B>e$G$N?7$?$J%/%i%9$N@k8@$@$C$?$o$1$G$9!#(B
+
+
+File: emacs-w3m-ja.info  Node: Overview-Footnotes, Up: Overview
+
+(1) FLIM $A$K:,$^$l$F$$$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Getting web page and header information, Next: Displaying an article, Prev: Overview, Up: Shimbun Basics
+
+$A%&%'%V%Z$B!<$A%8$N%=$B!<$A%9<0$S%X%C%@Gi$(G^^$A$rH!5C$9$k(B
+--------------------------------------------
+
+$B$^$:5-;v8+=P$7$r<hF@$9$kBP>]$H$J$k%&%'%V%Z!<%8$r7h$a$k$3$H$+$i;O$a$^$9!#(B
+$B%U%l!<%`I=<($5$l$F$$$k>l9g$O!"%U%l!<%`$NCf$GI,MW$J%Z!<%8$@$1$rC1FH$G;X(B
+$B$7<($9(B URL $B$rFCDj$9$k$Y$-$G$9!#FCDj$G$-$?$i!"?7$?$K:n@.$9$k(B `shimbun'
+$B%b%8%e!<%k$NCf$G(B `luna-define-method' $B$r;H$$!"(B`shimbun-index-url' $B$NDj(B
+$B5A$r:n@.$7$^$7$g$&!#C1=c$K(B URL $B$rJV$9$h$&$K$9$l$PNI$$$G$9$h!#8e$G@bL@$7(B
+$B$^$9$N$G!"JQ?t(B `shimbun-foobar-groups' $B$bMQ0U$7$F$*$-$^$7$g$&(B (1)
+(*Note Getting web page and header information-Footnotes::)$B!#(B
+
+     (defvar shimbun-foobar-url "http://www.foobar.net")
+
+     (luna-define-method shimbun-index-url ((shimbun shimbun-foobar))
+       shimbun-foobar-url)
+
+     (defvar shimbun-foobar-groups '("news"))
+
+`shimbun-headers' $B%a%=%C%I$O(B `shimbun.el' $B$NCf$K4{$KDj5A$5$l$F$$$^$9$+(B
+$B$i!"(B`sb-foobar.el' $B$G(B `shimbun-index-url' $B%a%=%C%I$NDj5A$r:n@.$9$l$P%&%'(B
+$B%V%Z!<%8$N%=!<%9$N<hF@$,$G$-$k$h$&$K$J$j$^$9!#(B`shimbun-headers' $B$O%&%'(B
+$B%V%Z!<%8$N%=!<%9$r<hF@$7$?8e!"(B`shimbun-get-headers' $B%a%=%C%I$r8F$S!"%X%C(B
+$B%@>pJs$N<}=8$KF~$j$^$9!#(B`shimbun.el' $B$NCf$K$O(B `shimbun-get-headers' $B$N(B
+$B%a%=%C%I@k8@$,$"$j$;$s$+$i!"(B`sb-foobar.el' $B$NCf$GFH<+$K%a%=%C%I$r:n@.$7(B
+$B$J$1$l$P$J$j$^$;$s!#(B
+
+`sb-foobar.el' $B$K(B `shimbun-get-headers' $B$N%a%=%C%I$r:n@.$9$k$?$a$K!"<h(B
+$BF@$7$?%Z!<%8$N%=!<%9$rJ,@O$7$^$7$g$&!#$I$N$h$&$J@55,I=8=$G5-;v$N%X%C%@(B
+$B>pJs$r<}=8$9$k$+$r8!F$$7$^$9!#5-;v$N8+=P$7$H$7$FFC$KI,MW$J>pJs$O!"I8Bj!"(B
+$BF|IU!":n@.<T!"$=$N5-;v$N(B URL$B!"$=$7$F(B `message-id' $B$G$9!#$3$l$i$N>pJs$O!"(B
+$B$=$l$>$l$N(B MUA $B$K$*$$$F!"(BSubject, Date, From, Xref, Message-ID $B$H$7$FI=(B
+$B<($5$l$^$9!#Nc$($P!"2<5-$N(B
+
+     <a href="030530.html">5$B7n(B30$BF|$NOCBj(B($BEj9F<T(B-$B$_$-$*(B &lt;[e-mail]&gt;)</a>
+
+$B$N$h$&$J9T$r=8$a$F5-;v$K$7$?$$$N$G$7$?$i!"(B
+
+     "<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)[0-9][0-9]\\.html\\)\">\\([^<(]+\\)($BEj9F<T(B-\\([^<]+\\))<\/a>"
+
+$B$N$h$&$J@55,I=8=$K$J$k$G$7$g$&!#$=$7$F5-;v$N(B Xref $B$NCM$O(B
+`(match-string 1)' $B$G<hF@$G$-$^$9!"(BDate $B$O(B
+`(match-string 2)' $B$NCM$r2C9)$9$l$PNI$$$G$7$g$&!#(BSubject $B$O(B
+`(match-string 3)' $B$G<hF@$G$-$^$9$M!#(BFrom $B$O(B
+`(match-string 4)' $B$r2C9)$9$l$PNI$$$G$7$g$&!#$3$l$i$NCM(B
+$B$O(B MUA $B$G8+0W$$$h$&$K99$K2C9)$7$F$b9=$$$^$;$s!#(B
+
+$B>e5-$N$h$&$K5-;v$N(B URL $B$,AjBP%Q%9I=<($5$l$F$$$k>l9g$O!"(B
+`shimbun-expand-url' $B$r;HMQ$7!"@dBP%Q%9I=<($KJQ99$7$F$+$i%X%C%@$K<}$a$^(B
+$B$7$g$&!#5-;v$N(B URL $B$,%X%C%@$N(B URL $B$HF1$8!"$D$^$j5-;vKh$K8DJL$K(B URL $B$r;}(B
+$B$?$J$$9=B$$N%&%'%V%Z!<%8$b$"$j$^$9!#$3$N>l9g$O>/$7$d$C$+$$$G!"%X%C%@>p(B
+$BJs<hF@$NCJ3,$G!"5-;v$NFbMF$b<hF@$7$F$*$-!"(BEmacs $B$N%a%b%j$K<}$a$F$*$/I,(B
+$BMW$,$"$j$^$9!#6qBNE*$K$O(B `sb-palmfan.el', `sb-dennou.el', `sb-tcup.el'
+$B$N(B `shimbun-headers' $B%a%=%C%I$NDj5A$r;2>H$7$F$/$@$5$$!#(B
+
+$B%&%'%V%Z!<%8$K$h$C$F$O(B Date $B$,FCDj$G$-$J$$$b$N$,$"$j$^$9!#$=$&$$$&>l9g(B
+$B$OL5M}$KFCDj$;$:$H$b(B `""' $B$rF~$l$F$*$1$P(B OK $B$G$9!#5-;v$NFbMF$r8+$F=i$a(B
+$B$F(B Date $B$,FCDj$G$-$k$J$i!"(B`shimbun-make-contents' $B%a%=%C%I$NCf$G2~$a$F(B
+$B%X%C%@$K(B Date $B$N>pJs$rF~$l$F$b(B OK $B$G$9!#$=$l$+$i!"(BFrom $B$r7h$aBG$A$7$F$b(B
+$BNI$$>l9g$b$"$j$^$9!#(B
+
+`message-id' $B$N:n@.$K$OCm0U$rMW$7$^$9!#0lIt$N5-;v$,FI$a$J$+$C$?$j$7$^$9(B
+$B$N$G(B (2) (*Note Getting web page and header information-Footnotes::)$B!"(B
+$BI,$:C10l@-(B (uniqueness) $B$rJ]>Z$7$J$1$l$P$J$j$^$;$s!#F|IU$d%I%a%$%s!"$=(B
+$B$N%Z!<%8$N(B URL $B$N0lIt$r;H$C$FJ8;zNs$r@8@.$9$k$3$H$GC10l@-$r3NJ]$7$^$7$g(B
+$B$&!#$=$NB>!"(B`message-id' $B$N0lIt$KI,$:(B `@' $B$r4^$a$k$h$&$K$7!"5U$K(B `:' $B$O(B
+$B4^$^$J$$$h$&$K$7$^$7$g$&!#$3$N%k!<%k$r<i$i$J$$$H%$%s%i%$%s2hA|$,$-$A$s(B
+$B$H=PNO$5$l$^$;$s$h!#>\$7$/$O(B RFC2387, RFC822 $B$r;2>H$7$F$/$@$5$$!#(B
+
+$B6lO+$7$F<hF@$7$?$3$l$i$N>pJs$O(B `shimbun-create-header' $B$H$$$&4X?t$rMxMQ(B
+$B$7$F%X%C%@$K<}$a$^$9!#(B
+
+$B7k6I(B `sb-foobar.el' $B$NCf$G$N(B `shimbun-get-headers' $B$NDj5A$N9|AH$_$O$3$s(B
+$B$JIw$K$J$j$^$9$M!#(B
+
+     (luna-define-method shimbun-get-headers ((shimbun shimbun-foobar)
+                                              &optional range)
+       (let ((regexp "....")
+             subject from date id url headers)
+         ...
+         (catch 'stop
+           (while (re-search-forward regexp nil t nil)
+             ...
+             (when (shimbun-search-id shimbun id)
+               (throw 'stop nil))
+             (push (shimbun-create-header
+                    0 subject from date id "" 0 0 url)
+                   headers)))
+         headers))
+
+$B$J$*!"$3$N%a%=%C%I$NCf$G$O(B `shimbun' $B$H$$$&0l;~JQ?t$G!"(B`shimbun' $B%b%8%e!<(B
+$B%k(B `shimbun-foobar' $B$N%$%s%9%?%s%9$K%"%/%;%9$G$-$^$9!#(B
+
+$B$H$3$m$G!"@hDxJ]N1$K$7$?JQ?t(B `shimbun-foobar-groups' $B$K$D$$$F@bL@$7$^$7$g(B
+$B$&!#(B
+
+$B2>$K(B `http://www.foobar.net' $B$NCf$KFI$_$?$$5-;v%0%k!<%W$,Fs$D$"$C(B
+$B$F!"$=$l$>$l$N5-;v$N%X%C%@>pJs$rF@$k%&%'%V%Z!<%8$,JL!9$N>l=j$K$"$C$?$H$7(B
+$B$^$7$g$&!#(B`http://www.foobar.net/whatsnew/index.hmtl' $B$K%5%$%H(B
+$B$N99?7>pJs$,!"(B`http://www.foobar.net/ml/index.html' $B$K(B ML $B$N5-(B
+$B;v%"!<%+%$%V$N0lMw$,$"$k$H$-$J$I$G$9!#$3$&$$$&>l9g$O!"(B`shimbun' $B%b(B
+$B%8%e!<%k(B `foobar' $B$N%0%k!<%W$H$7$F!"(B`foobar.whatsnew',
+`foobar.ml' $B$H$7$F%"%/%;%9$G$-$k$HJXMx$G$9$h$M!#$=$&$$$&>l9g$O2<5-(B
+$B$N$h$&$K$7$F$_$^$7$g$&!#(B
+
+     (defvar shimbun-foobar-url "http://www.foobar.net")
+
+     (defvar shimbun-foobar-group-path-alist
+       '(("whatsnew" . "/whatsnew/index.html")
+         ("ml" . "/ml/index.html")))
+
+     (defvar shimbun-foobar-groups
+       (mapcar 'car shimbun-foobar-group-path-alist))
+
+     (luna-define-method shimbun-index-url ((shimbun shimbun-foobar))
+       (concat shimbun-foobar-url
+               (cdr (assoc (shimbun-current-group-internal shimbun)
+                           shimbun-foobar-group-path-alist))))
+
+$B8=:_%f!<%6$,%"%/%;%9$7$F$$$k%0%k!<%W$K$O(B
+`shimbun-current-group-internal' $B$r;H$($PJ,$+$j$^$9!#(B
+`shimbun-get-headers' $B$J$I$G$b%0%k!<%W$,0c$($P:n6HFbMF$,0c$C$F$/$k2DG=(B
+$B@-$b$"$j$^$9$M!#(B
+
+$B$J$*!"(B`shimbun' $B%b%8%e!<%k0l$D$K$D$-!":GDc$G$b0l$D$N%0%k!<%W$,I,MW$G$9!#(B
+$B%0%k!<%W$NL>A0$N7h$aJ}$KFC$K7h$^$j$O$"$j$^$;$s$,!"%0%k!<%WL>$KG:$s$@$i!"(B
+`news' $B$H$+(B `main' $B$J$I$HIU$1$F$*$-$^$7$g$&!#(B
+
+
+File: emacs-w3m-ja.info  Node: Getting web page and header information-Footnotes, Up: Getting web page and header information
+
+(1) `Shimbun' $A%b%8%e$B!<$A%kR;$D$K$D$-!"Wn5M$G$bR;$D$N%0%k$B!<$A%W$,1XR*$G(B
+$A$9!#(B
+
+(2) shimbun $A$NR;2?$N$(GX4$AJB$,$BFI$A$a$J$$$@$1$J$i$^$@$7$b!"OBJV$K(B
+`message-id' $A$rWw3I$9$k$H!"$(Gb8$A7=$,J\$(Gkk$A$9$k4sJB$J%a$B!<$A%k$N$=$l$H$+$A(B
+$A:O$C$F$7$^$$!"$=$N%a$B!<$A%k$,$BFI$A$a$J$/$J$k?ID\PT$9$i$"$j$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Displaying an article, Next: Inheriting shimbun module, Prev: Getting web page and header information, Up: Shimbun Basics
+
+$(GX4$AJB$N1mJ>(B
+----------
+
+`shimbun.el' $B$KDj5A$5$l$?(B `shimbun-article' $B%a%=%C%I$O!"%X%C%@>pJs$+$i(B
+Xref $B$r<h$j=P$7!"$=$N(B URL $B$N%&%'%V%Z!<%8$N%=!<%9$r<hF@$7$?8e$K!"$=$N%=!<(B
+$B%9$rF~$l$?%o!<%-%s%0%P%C%U%!$NCf$G(B `shimbun-make-contents' $B$r8F$S$^$9!#(B
+$B6qBNE*$J5-;v$N2C9)$O(B `shimbun-make-contents' $B$N;E;v$G$9!#(B
+
+$B5-;v$H$J$k%&%'%V%Z!<%8$N%=!<%9$,!"$I$P$C$H%o!<%-%s%0%P%C%U%!$K$V$A$^$1(B
+$B$i$l$F$$$k$HA[A|$7$F$/$@$5$$!#(B`shimbun.el' $B$NI8=`$N(B
+`shimbun-make-contents' $B$O!"$=$N%P%C%U%!$N@hF,$K$^$:%X%C%@>pJs$rA^F~$7!"(B
+$B$=$ND>8e$K(B `<html>' $B$d(B `<body>' $B$J$I$r!"$^$?!"%P%C%U%!$NKvHx$K(B
+`</body>', `</html>' $B$rA^F~$7$F$/$l$^$9!#$=$&$d$C$F(B HTML $B%a!<%k$H$7$FI=(B
+$B<($5$;$k$N$G$9!#(B
+
+     HTML $B$N5-;v$@$1$G$J$/!"(B`text/plain' $B7A<0$N5-;v$,@8@.$5$l$k$h$&$K$9(B
+     $B$k$3$H$b$G$-$^$9!#(B*Note Making text/plain articles::.
+
+$B5-;v$r2?$b2C9)$9$kI,MW$,$J$1$l$P(B `sb-foobar.el' $B$NCf$G$O(B
+`shimbun-make-contents' $B$K$D$$$F?7$?$KDj5A$9$kI,MW$O$"$j$^$;$s!#(B
+
+$BC1=c$K5-;v$NA08e$K<N$F$?$$ItJ,$,$"$k$@$1$J$i$P!"(B
+`shimbun-foobar-content-start', `shimbun-foobar-content-end' $B$K<N$F$?$$(B
+$BItJ,$r8!:w2DG=$J@55,I=8=$r;XDj$7$F$*$-$^$7$g$&!#(B
+
+     (defvar shimbun-foobar-content-start "^<body>$")
+     (defvar shimbun-foobar-content-end "^<\/body>$")
+
+$BI8=`$N(B `shimbun-make-contents' $B$+$i8F$S=P$5$l$?(B
+`shimbun-clear-contents' $B$O!"$3$l$i$N@55,I=8=$rMxMQ$7$F!"(B`point-min' $B$+(B
+$B$i(B `shimbun-foobar-content-start' $B$^$G!"(B`shimbun-foobar-content-end' $B$+(B
+$B$i(B `point-max' $B$^$G$r@Z$j<N$F$F$/$l$^$9$h!#C"$7!"$3$l$iFs$D$N%^%C%A$O$$(B
+$B$:$l$+$,@.8y$7$J$$$H@Z$j<N$F$O9T$o$l$^$;$s$N$GCm0U$,I,MW$G$9!#(B
+
+$B9-9p$J$I$NITMW$J>pJs$,$"$C$F!"$=$l$r:Y$+$/8!:w$7$F<N$F$?$$>l9g$O!"(B
+`sb-foobar.el' $B$NCf$GFH<+$N(B `shimbun-clear-contents' $B$rDj5A$7$F$*$-$^$9!#(B
+
+     (luna-define-method shimbun-clear-contents :around ((shimbun shimbun-foobar)
+                                                         header)
+       ;; cleaning up
+       (while (re-search-forward "..." nil t nil)
+         (delete-region (match-beginning 0) (match-end 0)))
+       (luna-call-next-method))
+
+$B$h$j6qBNE*$JJ}K!$O!"(B`sb-ibm-dev.el' $B$,;29M$K$J$k$+$b$7$l$^$;$s!#(B
+
+$B@hDx!"(B*Note Getting web page and header information:: $B$N@a$G!"5-;vKh$K(B
+$B8DJL$K(B URL $B$r;}$?$J$$9=B$$N%&%'%V%Z!<%8$N>l9g!"%X%C%@>pJs<hF@$NCJ3,$G!"(B
+$B5-;v$NFbMF$b<hF@$7$F$*$-!"(BEmacs $B$N%a%b%j$K<}$a$F$*$/I,MW$,$"$k$H?=$7>e(B
+$B$2$^$7$?!#$3$N>l9g!"(B`shimbun-article' $B$G$O>e5-$N$h$&$J(B Xref $B>pJs$+$i$N(B
+web page $B$N<hF@$OI,MW$K$J$j$^$;$s$N$G!"$?$@(B Emacs $B$N%a%b%j$+$i<h$j=P$7(B
+$B$F!"%P%C%U%!$K@07A$7$FA^F~$9$l$PB-$j$^$9!#6qBNE*$K$O(B `sb-palmfan.el',
+`sb-dennou.el', `sb-tcup.el' $B$N(B `shimbun-article' $B%a%=%C%I$NDj5A$r;2>H(B
+$B$7$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Inheriting shimbun module, Next: Making text/plain articles, Prev: Displaying an article, Up: Shimbun Basics
+
+Shimbun $A%b%8%e$B!<$A%k$N$(ICc$A3P(B
+------------------------
+
+$B%a!<%j%s%0%j%9%H%^%M!<%8%c(B ($B%"!<%+%$%P(B) $B$H$7$FM-L>$J$b$N$,$$$/$D$+$"$j(B
+$B$^$9!#(B
+
+   * Mailman The GNU Mailing List Manager. $B0JA0$O(B `pipermail' $B$H8F$P$l(B
+     $B$F$$$^$7$?!#>\:Y$O(B
+     `http://www.gnu.org/software/mailman/index.html' $B$r$4Mw$/$@$5$$!#(B
+
+   * MHonArc$B>\:Y$O(B `http://www.oac.uci.edu/indiv/ehood/mhonarc.html' $B$r(B
+     $B$4Mw$/$@$5$$!#(B
+
+   * fml fml mailing list server/manager.  $B>\:Y$O(B
+     `http://www.fml.org/software/fml/' $B$r$4Mw$/$@$5$$!#(B
+
+   * mailarc$B>\:Y$O(B `http://cvs.namazu.org/mailarc/' $B$r$4Mw$/$@$5$$!#(B
+
+$B5.J}$,(B *Note Getting web page and header information:: $B$N%9%F%C%W$G<hF@(B
+$B$7$?%&%'%V%Z!<%8$N%=!<%9$rJ,@O$7$F$$$k$H$-$K!"$=$N%=!<%9$NCf$K$3$l$i%a!<(B
+$B%j%s%0%j%9%H%^%M!<%8%c$NL>A0$r8+$D$1$?$i(B (1) (*Note Inheriting shimbun
+module-Footnotes::)$B!"$=$l$O$9$4$/%i%C%-!<$J$3$H$G$9!#(B`sb-mailman.el',
+`sb-mhonarc.el', `sb-fml.el', `sb-mailarc.el' $B$K4{$K(B
+`shimbun-get-headers' $B$J$I$NI,MW$J%a%=%C%I$,Dj5A$5$l$F$$$^$9!#$3$l$i$r(B
+$BMxMQ$7$F$J$*B-$j$J$$ItJ,$@$1$N:9J,%W%m%0%i%_%s%0$r$9$l$P!"5.J}$N(B
+`sb-foobar.el' $B$OAaB.F0$-$^$9!#(B
+
+$BNc$($P(B `sb-mailman.el' $B$rMxMQ$9$k$J$i(B `sb-foobar.el' $B$NKAF,$O!"(B
+
+     (require 'sb-mailman)
+     (luna-define-class shimbun-foobar (shimbun-mailman) ())
+
+$B$3$s$JIw$K$J$j$^$9!#$3$l$G(B `shimbun' $B%b%8%e!<%k(B `shimbun-foobar' $B$O(B
+`shimbun-mailman' $B%/%i%9$r7Q>5$7(B (2) (*Note Inheriting shimbun
+module-Footnotes::)$B!"(B`shimbun-foobar' $B$NCf$G$O!"(B`sb-mailman.el' $B$NCf$G(B
+$BDj5A$5$l$F$$$k%a%=%C%I$,I8=`$G;HMQ$5$l$k$3$H$H$J$j$^$9(B ($B99$K%a%=%C%I$N(B
+$B0lIt$r>e=q$-$9$k$3$H$b2DG=$G$9(B)$B!#(B
+
+`sb-mailman.el' $B$r<B:]$KMxMQ$7$?%5%s%W%k$H$7$F!"(B`sb-pilot-mailsync.el'
+$B$J$I$r$4Mw$/$@$5$$!#G!2?$K3Z$,$G$-$k$+$,$*J,$+$j$K$J$k$G$7$g$&!#(B
+
+$B5$$rIU$1$k$3$H$,0l$D$"$k$H$9$l$P!"$3$l$i$N%a!<%j%s%0%j%9%H%^%M!<%8%c$N(B
+$BCf$K$OCO0h2=(B (localize) $B$5$l$F!"Nc$($PF|IUI=<($rF|K\8l$G9T$&$h$&$K2~B$(B
+$B$5$l$F$$$k$b$N$,$"$k$3$H$G$9!#(B`sb-mailman.el', `sb-mhonarc.el',
+`sb-fml.el', `sb-mailarc.el' $B$O$$$:$l$bI8=`$N!"1Q8lHG$N$b$N$KBP1~$7$F$$(B
+$B$^$9!#$3$l$iCO0h2=$5$l$?%a!<%j%s%0%j%9%H%^%M!<%8%c$rMxMQ$7$F$$$k%&%'%V(B
+$B%5%$%H$r(B `shimbun' $B$GFI$_$?$$$H$-$O!"$$$/$D$+$N%a%=%C%I$r>e=q$-$7$J$1$l(B
+$B$P$J$i$J$$$+$b$7$l$^$;$s!#(B
+
+
+File: emacs-w3m-ja.info  Node: Inheriting shimbun module-Footnotes, Up: Inheriting shimbun module
+
+(1) $A%&%'%V%Z$B!<$A%8$N%=$B!<$A%9$NVP$K$3$l$i%a$B!<$A%j%s%0%j%9%H%^%M$B!<$A%8%c$NC{G0$,(B
+$A1mJ>$5$l$F$$$k$3$H$,6`$$$G$9!#(B
+
+(2) $A$D$^$j(B `shimbun-mailman' $A%/%i%9$,$(Gr5$A%/%i%9$K$J$j$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Making text/plain articles, Next: Zenkaku to hankaku conversion, Prev: Inheriting shimbun module, Up: Shimbun Basics
+
+text/plain $A$N$(GX4$AJB$rWw$k$K$O(B
+---------------------------
+
+$B$?$H$((B MUA $B$,(B HTML $B$N5-;v$rFI$`$3$H$,$G$-$k$h$&$K(B emacs-w3m $B$K$h$C$F6/(B
+$B2=$5$l$F$$$F$b!"$$$/$D$+$N>l9g$K$O(B `text/plain' $B$N5-;v$,JXMx$J$3$H$b$"(B
+$B$k$+$b$7$l$^$;$s!#(B`sb-foobar' $B%b%8%e!<%k$K(B `text/html' $B$G$O$J$/$F(B
+`text/plain' $B$N5-;v$r:n$i$;$k$K$O!"Fs$D$NJ}K!$,$"$j$^$9!#(B
+
+   * $B0l$D$O(B `sb-foobar' $B%b%8%e!<%k$K(B `sb-text' $B%b%8%e!<%k$r7Q>5$5$;$k(B
+     (*Note Inheriting shimbun module::) $B$3$H$G$9!#0J2<$O(B `sb-foobar'
+     $B%b%8%e!<%k$NKAF,$KCV$/$3$H$,$G$-$kNc$G$9!#(B
+
+          (require 'sb-text)
+          (luna-define-class shimbun-foobar (shimbun-text) ())
+
+     `sb-text' $B%b%8%e!<%k$O!"(B`text/plain' $B7A<0$G5-;v$r@8@.$9$k(B
+     `shimbun-make-contents' $B%a%=%C%I$rDs6!$7$^$9!#%F%-%9%H$@$1$N5-;v$r(B
+     $B7G<($9$k%5%$%H$r07$&(B `shimbun' $B%b%8%e!<%k$K$O!"Lr$KN)$D$G$7$g$&!#(B
+
+   * $B$b$&0l$D$O!"JQ?t(B `shimbun-foobar-prefer-text-plain' $B$rHs(B-`nil' $B$K(B
+     $B@_Dj$9$k$3$H$G$9!#$3$l$O(B `shimbun-make-contents' $B%a%=%C%I$K!"(B
+     `text/plain' $B7A<0$G5-;v$r@8@.$5$;$^$9(B ($B<B:]$K$O!"$=$l$O(B `sb-text'
+     $B%b%8%e!<%k$,Ds6!$9$k4X?t$r;H$$$^$9(B)$B!#$3$l$O!"%G%U%)%k%H$N(B
+     `shimbun-make-contents' $B$r7Q>5$9$k%b%8%e!<%k$@$1$K8z2L$,$"$k$3$H$K(B
+     $BCm0U$7$F$/$@$5$$(B ($BFC$K(B `sb-text' $B%b%8%e!<%k$r7Q>5$9$k%b%8%e!<%k$O!"(B
+     $B1F6A$5$l$^$;$s(B)$B!#$3$NJ}<0$NMxE@$O!"%f!<%6$,4JC1$K(B `text/plain' $B$N(B
+     $B5-;v$H(B `text/html' $B$N5-;v$r@Z$jBX$($k$3$H$,$G$-$k$3$H$G$9!#(B
+
+     $B$=$l$,L$Dj5A$G$"$k>l9g!"JQ?t(B `shimbun-foobar-prefer-text-plain' $B$N(B
+     $B%G%U%)%k%HCM$O(B `nil' $B$G$9!#$7$?$,$C$F!"(B`sb-asahi.el' $B$*$h$S(B
+     `sb-yomiuri.el' $B0J30$N$"$i$f$k(B `shimbun' $B%b%8%e!<%k$K$*$$$F!"$=$N(B
+     $B%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B
+
+     $B2C$($F!"(Bweb $B%Z!<%8$+$i0UL#$N$"$k%F%-%9%H$r@Z$j=P$9$?$a$K!"JQ?t(B
+     `shimbun-foobar-content-start' $B$*$h$S(B
+     `shimbun-foobar-content-end' $B$NBe$o$j$K!"(B
+     `shimbun-foobar-text-content-start' $B$*$h$S(B
+     `shimbun-foobar-text-content-end' $B$r;H$&$3$H$,$G$-$^$9(B (*Note
+     Displaying an article::)$B!#A0<T$,L$Dj5A$@$C$?$i!"$=$l$i$NCM$O%G%U%)(B
+     $B%k%H$G8e<T$NCM$K$J$j$^$9!#(B
+
+$B$I$A$i$NJ}<0$r;H$&$K$7$F$b!"(B`text/plain' $B$N5-;v$O!"2hA|$d%j%s%/$J$I$r4^(B
+$B$`$3$H$,$G$-$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Zenkaku to hankaku conversion, Next: Coding convention of Shimbun, Prev: Making text/plain articles, Up: Shimbun Basics
+
+$AH+=GNDWV$r0k=GNDWV$K$(I+y$(G_P$A$9$k(B
+----------------------------
+
+$B!VA43Q!W$^$?$O!VA43QJ8;z!W$O!"I}$,9-$$F|K\8l$NJ8;z$r8F$V$?$a$NB/>N$G$9!#(B
+$B$^$?!VH>3Q!W$O!"DL>o$N(B ASCII $BJ8;z$N$?$a$NBP8l$G$9!#>/$J$/$H$b(B ASCII $BJ8(B
+$B;z%;%C%H$KBP1~$9$k!"A43QJ8;z$N40A4$J%;%C%H$,$"$j$^$9!#(B
+
+$B$$$/$D$+$NF|K\$N%&%'%V%5%$%H$OA43QJ8;z$rB?MQ$9$k798~$,$"$j!"$=$l$i$N5-(B
+$B;v$OI,$:$7$bFI$_0W$/$J$$$+$b$7$l$^$;$s!#$b$7$=$&46$8$?$i!"$=$l$iA43Q$N(B
+$B1Q?t;z$rH>3Q$KJQ49$9$k$3$N5!G=$r;H$&$3$H$,$G$-$^$9!#$=$l$K$O(B
+`shimbun-foobar-japanese-hankaku' $BJQ?t$r(B `t' $B$K@_Dj$7$F$/$@$5$$!#$3$3$G(B
+`foobar' $B$O!"?7J9$N5-;v$r9VFI$9$k%5!<%P!<L>$G$9!#$D$^$j!"%5!<%P!<Kh$K$=(B
+$B$&$7$J$1$l$P$J$i$J$$$H$$$&$3$H$G$9!#(B
+
+$BA43Q$+$iH>3Q$X$NJQ49$r5-;v$N%\%G%#$@$1$G9T$J$o$;$?$$$J$i$P!"(B`t' $B$NBe$o(B
+$B$j$KCM(B `body' $B$r;H$C$F$/$@$5$$!#5U$KCM(B `header' $B$^$?$O(B `subject' $B$O!"%5(B
+$B%V%8%'%/%H$@$1$G$=$l$r9T$J$&$3$H$r;XDj$7$^$9!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Coding convention of Shimbun, Prev: Zenkaku to hankaku conversion, Up: Shimbun Basics
+
+Shimbun $A%i%$%V%i%j$N%3$B!<$A%G%#%s%0$(G]=R|(B
+------------------------------------
+
+   * `shimbun.el' $B$G$O!"(Bemacs-w3m $B$N4X?t$r(B*$AWTSI$K(B*$B;H$C$FNI$$!#(B
+
+   * `sb-*.el' $B$G$O!"$3$l$^$G$HF1MM$K(B emacs-w3m $B$N4X?t$rD>@\8F$S=P$9$3(B
+     $B$H$O$7$J$$!#(B`sb-*.el' $B$GI,MW$K$J$k(B emacs-w3m $B$N4X?t$K$D$$$F$O(B
+     `shimbun.el' $B$K%9%?%V$rMQ0U$9$k!#(B
+
+   * SpeedBar $B$GMxMQ$5$l$F$$$k%U%!%$%kL>$OHr$1$J$1$l$P$J$i$J$$!#(B
+     `speedbar-0.14beta4' $B$GMQ$$$i$l$F$$$k%U%!%$%kL>$r0J2<$K<($9!#(B
+
+     sb-ant.el     sb-html.el    sb-info.el    sb-texinfo.el
+     sb-gud.el     sb-image.el   sb-rmail.el   sb-w3.el
+
+   * $B;2>H$7$F$$$k(B WEB $B%5!<%P$N(B URI $B$rO"A[$5$;$k$h$&$J%U%!%$%kL>$rA*$V$Y(B
+     $B$-$G$"$k!#$?$@$7!"[#Kf$K$J$i$J$$HO0O$G!"9qJL%3!<%I(B
+     (Ex. jp,de,uk,etc) $B$d!"AH?%%3!<%I(B (Ex. edu,com,org,net,etc)$B!"M>J,(B
+     $B$JItJ,(B (Ex. www) $B$r<h$j=|$$$F$bNI$$!#(B
+
+   * $B%0%k!<%WL>$K$O(B USENET $B$K;w$?7A<0$N$b$N$rA*$V$Y$-$G$"$k!#$9$J$o$A!"(B
+     $B%0%k!<%WL>$K$O>.J8;z$,9%$^$l$k!#$^$?!"%0%k!<%W$N3,AX9=B$$rI=$9$?$a(B
+     $B$N6h@Z$jJ8;z$H$7$F$O!"%T%j%*%I(B (.) $B$,9%$^$l$k!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Tips, Next: Mailing List, Prev: Shimbun Library, Up: Top
+
+Emacs-w3m $A$rJ9$&HwBd$?P!No$?$A(B
+******************************
+
+$BB>$N(B Emacs $B$N1~MQ5!G=$H$H$b$K(B emacs-w3m $B$rJXMx$K;H$&$?$a$N%R%s%H=8$G$9!#(B
+
+   * browse-url
+
+     `browse-url' $B$N5!G=$H$H$b$K(B emacs-w3m $B$r;H$&$3$H$,$G$-$^$9!#Nc$($P!"(B
+     $B0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$F$/$@$5$$(B:
+
+          (setq browse-url-browser-function 'w3m-browse-url)
+          (global-set-key "\C-xm" 'browse-url-at-point)
+
+     $B$3$&$9$k$3$H$K$h$C$F!"(BEmacs $B$N$I$N%P%C%U%!$G$b!"(BURL $B$N$h$&$JJ8;zNs$N>e(B
+     $B$G(B `C-x m' $B%-!<$r%?%$%W$9$k$H!"(Bemacs-w3m $B$,5/F0$5$l$^$9!#2C$($F!"(B
+     `C-c C-v' $B%-!<$r%?%$%W$9$k$3$H$K$h$C$F!"$^$5$KJT=8Cf$N(B HTML $B%U%!(B
+     $B%$%k$r(B emacs-w3m $B$G2<8+(B (preview) $B$9$k$3$H$,$G$-$^$9(B (HTML $B%U%!%$%k$NJT(B
+     $B=8$K!"(BEmacs $B$H(B `html-mode' $B%a%8%c!<%b!<%I$r;H$&I,MW$,$"$j$^$9(B)$B!#(B
+
+     Emacs-w3m $B$N%P%C%U%!$K$$$k$H$-$K!"(B`C-x m' $B%-!<$r%?%$%W$9$k$3$H$K(B
+     $B$h$C$F!"(Bemacs-w3m $B$NBe$o$j$KB>$N%&%'%V%V%i%&%6$r;H$$$?$$>l9g$O(B ($B$=$s$J$3(B
+     $B$H$r$7$?$$?M$,$$$k$N$+$J(B?)$B!"0J2<$N%"%I%P%$%9$r(B `~/.emacs' $B%U%!%$%k(B
+     $B$K2C$($F$/$@$5$$(B:
+
+          (defadvice browse-url-at-point
+            (around change-browse-url-browser-function activate)
+            "Use Netscape only when it is invoked in an emacs-w3m buffer."
+            (let ((browse-url-browser-function
+                   (if (eq major-mode 'w3m-mode)
+                       'browse-url-netscape
+                     'w3m-browse-url)))
+              ad-do-it))
+
+   * dired
+
+     `dired' $B$N%P%C%U%!$G(B `C-x m' $B%-!<$r%?%$%W$9$k$3$H$K$h$C$F!"(B
+     emacs-w3m $B$r;H$C$F(B HTML $B%U%!%$%k$r1\Mw$9$k$3$H$,$G$-$^$9!#(B
+     `~/.emacs' $B%U%!%$%k$G!"0J2<$N@_Dj$r;H$C$F$/$@$5$$(B:
+
+          (eval-after-load "dired"
+            '(define-key dired-mode-map "\C-xm" 'dired-w3m-find-file))
+
+          (defun dired-w3m-find-file ()
+            (interactive)
+            (require 'w3m)
+            (let ((file (dired-get-filename)))
+              (if (y-or-n-p (format "Use emacs-w3m to browse %s? "
+                                    (file-name-nondirectory file)))
+                  (w3m-find-file file))))
+
+   * hnf-mode
+
+     $B%O%$%Q!<F|5-%7%9%F%`$H(B emacs-w3m $B$r;H$C$F!":G?7$NF|5-$r8+$k$3$H$,$G$-$^(B
+     $B$9!#0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$F!"(B`hnf-mode' $B$N%P%C(B
+     $B%U%!$G(B `C-c C-b' $B%-!<$r%?%$%W$7$F$/$@$5$$(B:
+
+          (defun w3m-hnf-browse-url-w3m (url &optional new-window)
+            (interactive (browse-url-interactive-arg "URL: "))
+            (save-selected-window
+              (pop-to-buffer (get-buffer-create "*w3m*"))
+              (w3m-browse-url url new-window)))
+          (setq hnf-browse-url-browser-function #'w3m-hnf-browse-url-w3m)
+
+   * Gnus
+
+     $B$"$J$?$,(B Gnus $B$N%f!<%6$G!"$3$N9`$,$3$N(B Info $B$G=i$a$FFI$`%Y!<%8$G$"(B
+     $B$k$N$J$i$P!"$"$J$?$OF~$j8}$r4V0c$($^$7$?$M!#:G=i$K(B *Note Hooking
+     into MUAs:: $B$r8+$F$/$@$5$$!#(B
+
+     $B%G%U%)%k%H$G$O!"(BGnus $B$ONc$($P(B `gnus-treat-strip-banner' $B$N$h$&$J(B
+     treatment $BJQ?t$r(B `text/html' $B%Q!<%H$KE,MQ$7$^$;$s!#<+F0E*$K9T$J$o(B
+     $B$;$k$K$OFs$D$NJ}K!$,$"$j$^$9(B:
+
+          ;; $B$9$Y$F$N(B treatment $B$r(B text/html $B%Q!<%H$KE,MQ$9$k!#(B
+          (eval-after-load "gnus-art"
+            '(add-to-list 'gnus-article-treat-types "text/html"))
+
+          ;; $BFCDj$N(B treatment $B$r(B text/html $B%Q!<%H$KE,MQ$9$k!#(B
+          (setq gnus-treat-strip-banner '(or t (typep "text/html")))
+
+     $B>\$7$$$3$H$O(B *Note Customizing Articles: (gnus)Customizing
+     Articles, $B$r8+$F$/$@$5$$!#(B
+
+     $B2C$($F!"0J2<$N<B83E*$J%3!<%I$O(B `multipart/related' $B$J3($r8+$k$?$a(B
+     $B$N$b$N$G$9!#I=<($5$l$k>l=j$KFq$,$"$j$^$9!#(B
+
+          (eval-after-load "gnus-art"
+            '(or (assoc "multipart/related" gnus-mime-multipart-functions)
+                 (setq gnus-mime-multipart-functions
+                       (cons
+                        (cons
+                         "multipart/related"
+                         (byte-compile
+                          (lambda (handle)
+                            (gnus-mime-display-mixed (cdr handle)))))
+                        gnus-mime-multipart-functions))))
+
+   * yahtml-mode
+
+     Emacs-w3m $B$r;H$C$F!"(B`yahtml-mode' $B$G$^$5$KJT=8Cf$N(B HTML $B%U%!%$%k$r(B
+     $B2<8+(B (preview) $B$9$k$3$H$,$G$-$^$9!#Nc$G$9(B:
+
+          (defadvice yahtml-browse-html
+            (around w3m-yahtml-browse-html activate compile)
+            (w3m-goto-url (ad-get-arg 0) t))
+
+   * jisx0213
+
+     Emacs $B$G$O(B Mule-UCS $B%Q%C%1!<%8$K4^$^$l$F$$$k(B `jis0213' $B%b%8%e!<%k(B
+     $B$r;H$&$3$H$K$h$C$F!"(BJIS X 0213 $BJ8;z%;%C%H$r;H$&$3$H$,$G$-$^$9!#(B
+     `decode-char' $B4X?t$,(B `mucs' $B$K$h$C$F>e=q$-$5$l$F$7$^$&(B (`jis0213'
+     $B$,(B `mucs' $B$rFI$_9~$`(B) $B$?$a$K!"(B`ucs' CCS $B$KBP$7$F@5$7$/F0:n$7$J$/$J$C(B
+     $B$F$7$^$$$^$9$,!"$5$i$K(B `unicode' $B%b%8%e!<%k$rFI$_9~$`$3$H$K$h$C$F!"(B
+     $B$=$NLdBj$,2r7h$5$l$k$h$&$K8+$($k$H$$$&Js9p$,$"$j$^$7$?!#M}M3$O$^$@(B
+     $B2rL@$5$l$F$$$^$;$s!#(B`~/.emacs' $B%U%!%$%kMQ$NNc$G$9(B:
+
+          (require 'unicode)
+          (require 'un-define)
+          (require 'jisx0213)
+
+
+
+File: emacs-w3m-ja.info, Node: Mailing List, Next: Emacs-w3m Functions, Prev: Tips, Up: Top
+
+$A%a$B!<$A%j%s%0%j%9%H!"%P%0%j%]$B!<$A%H(B
+******************************
+
+Emacs-w3m $B$K4X$9$k$9$Y$F$N$3$H$,$i$rOC$79g$&$?$a$N%a!<%j%s%0%j%9%H$,MQ(B
+$B0U$5$l$F$$$^$9!#9VFI$7$F$$$J$$?M$bEj9F$G$-$^$9!#%P%0$r8+$D$1$?$j!"$3$s(B
+$B$J5!G=$,M_$7$$$J$H;W$C$?$j!"$"$k$$$O%3!<%I$r=q$-$^$7$?$H$$$&?M$O$I$&$>(B
+$BEj9F$7$F$/$@$5$$!#C1$J$k%f!<%6$@$1$l$I$b%W%m%0%i%`$K6=L#$,$"$k$H$$$&?M(B
+$B$b!"$<$R;22C$7$F$/$@$5$$!#%"%I%l%9$O0J2<$NDL$j$G$9(B:
+
+     Emacs-w3m $B%a!<%j%s%0%j%9%H(B <[e-mail]>
+
+$B$b$7(B `mail-user-agent' $B$r@5$7$/F0:n$9$k$h$&$K@_Dj$7$F$"$l$P!"(B
+`report-emacs-w3m-bug' $B%3%^%s%I(B ($B$^$?$O(B `C-c C-b' $B%-!<(B) $B$r(B
+$B;H$C$F%P%0%j%]!<%H$rAw$k$3$H$b$G$-$^$9!#(B
+
+$B$3$N%j%9%H$KEj9F$9$k$H$-$O!"F|K\8l$+1Q8l$r;H$C$F$/$@$5$$!#B?$/$N%a%s%P!<(B
+$B$OF|K\?M$G$9!#Ej9F$5$l$?5-;v$O8x3+$5$l$F$$$F!"%&%'%V(B
+(`http://emacs-w3m.namazu.org/ml/') $B$d(B NetNews ($B%5!<%P(B
+`news.gmane.org' $B>e$N(B `gmane.emacs.w3m' $B$H$$$&%0%k!<%W(B) $B$G$bFI$`$3$H$,(B
+$B$G$-$^$9!#(B
+
+$B$3$N%j%9%H$N%a%C%;!<%8$r%a!<%k$G<u$1<h$j$?$$?M$O!"K\J8$K(B
+
+     subscribe ANATANO Namae
+
+$B$N$h$&$K=q$$$F(B ($B%a!<%k%"%I%l%9$G$O$J$/$F$"$J$?$NL>A0$r=q$-$^$9(B)$B!"(B
+`[e-mail]' $B08$K%a!<%k$rAw$k$H%a!<%j%s%0%j%9%H$KEPO?$5$l(B
+$B$^$9!#$^$?!"%a!<%k$r<u$1<h$k$N$r$d$a$k$K$O!"K\J8$K(B
+
+     # bye
+
+$B$H=q$$$?%a!<%k$r(B `[e-mail]' $B08$KAw$C$F$/$@$5$$!#(B
+
+
+
+File: emacs-w3m-ja.info, Node: Emacs-w3m Functions, Next: External Packages, Prev: Mailing List, Up: Top
+
+Emacs-w3m $A$N$(IJ=$AJ}$N$(Gf[$A$7$$$(IIf$ACw(B
+****************************
+
+
+
+
+File: emacs-w3m-ja.info, Node: External Packages, Next: Authors, Prev: Emacs-w3m Functions, Up: Top
+
+$A$*VY$(Gbf$A$N%Q%C%1$B!<$A%8$?$A(B
+**********************
+
+Emacs-w3m $B$O=aBt$J5!G=$rDs6!$7$^$9$,!"$5$i$KJXMx$K$9$k$?$a$K0J2<$N30It(B
+$B%Q%C%1!<%8$r;H$&$N$bNI$$$+$b$7$l$^$;$s!#(B
+
+   * w3m-type-ahead.el
+
+     w3m-type-ahead.el $B%Q%C%1!<%8$O(B "type ahead" $B8!:w5!G=(B (Mozilla $B%V%i(B
+     $B%&%6$KF1$8L>A0$N;w$?5!G=$,$"$j$^$9(B) $B$rDs6!$7$^$9!#$=$l$O(B isearch
+     $B$K;w$?A`:n$G%"%s%+!<$rC5$9$3$H(B ($B$?$@$77k2L$O%P%C%U%!Fb$N%"%s%+!<$K(B
+     $B8BDj$5$l$^$9(B) $B$r2DG=$K$7$^$9!#(B
+
+     w3m-type-ahead.el $B$N%@%&%s%m!<%I(B:
+     `http://alioth.debian.org/project/showfiles.php?group_id=30594'
+
+   * newsticker.el
+
+     Emacs 22 $B0J>e$GAH$_9~$^$l$F$$$k(B newsticker.el $B$O(B rss $B%U%#!<%I$d$5(B
+     $B$i$K(B atom $B%U%#!<%I$rD/$a$k$?$a$NF;6q$G$9!#0J2<$O(B emacs-w3m $B$H$H$b(B
+     $B$K(B newsticker.el $B$r;H$&$?$a$N@_DjNc$G$9(B (`~/.emacs' $B%U%!%$%k$KCV$$(B
+     $B$F$/$@$5$$(B):
+
+          (require 'w3m-load)
+          (setq newsticker-html-renderer 'w3m-region
+                browse-url-browser-function 'w3m-browse-url)
+
+     $B>\$7$/$O(B: *Note Top: (Newsticker)Top.
+
+
+
+File: emacs-w3m-ja.info, Node: Authors, Next: Index, Prev: External Packages, Up: Top
+
+$A$3$N%^%K%e%"%k$r$(GUs$A$$$?HK$?$A(B
+****************************
+
+   * $BGr0f(B $B=(9T(B
+   * $BEZ20(B $B2mL-(B
+   * $BCfEg(B $B44IW(B
+   * $BCf;3(B $BMN0l(B
+   * Romain Francoise
+   * $B;32,(B $B9nH~(B
+   * $BBgOB(B $B@5Ip(B
+   * $B@DED(B $BD>Bg(B
+
+
+
+File: emacs-w3m-ja.info, Node: Index, Prev: Authors, Up: Top
+
+$AKwR}(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
+
+
+
+File: emacs-w3m-ja.info, Node: Concept Index, Next: Key Index, Prev: Index, Up: Index
+
+$A8EDnKwR}(B
+========
+
+* Menu:
+
+* about://antenna/:             Using Antenna.          (line   5)
+* $A%/%C%-$B!<$A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B:       Cookie Variables.       (line   5)
+* Adding a bookmark:            Adding Bookmarks.       (line   5)
+* Adding autoload settings:     Minimal Settings.       (line  12)
+* Adding new search engines:    Adding New Search Engines.  (line   5)
+* $A$=$NK{$N$(I+y$AJ}(B:                 Other Variables.        (line   5)
+* Antenna:                      Using Antenna.          (line   5)
+* $A;-Oq$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B:           Image Variables.        (line   5)
+* APEL package:                 Other Requirements.     (line   5)
+* $AR;0c5D$J$(I+y$AJ}(B:                 General Variables.      (line   5)
+* Arrived URLs:                 Tracing History.        (line   5)
+* article expiry:               Nnshimbun.              (line 168)
+* $A%U%)$B!<$A%`$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B:       Form Variables.         (line   5)
+* $A%U%C%/(B:                       Hooks.                  (line   5)
+* auto-expire:                  Nnshimbun.              (line 168)
+* $A%V%C%/%^$B!<$A%/$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B:   Bookmark Variables.     (line   5)
+* Bookmarks:                    Managing Bookmarks.     (line   5)
+* Browsing history:             Tracing History.        (line   5)
+* codepage-ex:                  Other Requirements.     (line   5)
+* Consulting bookmarks:         Consulting Bookmarks.   (line   5)
+* Creating new buffers:         Creating and killing buffers.  (line   5)
+* Customizing user options:     Customizable Variables.  (line   5)
+* Displaying images:            Inline Images.          (line   5)
+* Downloading files:            Downloading.            (line   5)
+* Editing bookmarks:            Editing Bookmarks.      (line   5)
+* expiry-wait:                  Nnshimbun.              (line 168)
+* expiry-wait:                  Nnshimbun.              (line 234)
+* Firewall:                     Minimal Settings.       (line  33)
+* FLIM package:                 Other Requirements.     (line   5)
+* Functions details:            Emacs-w3m Functions.    (line   5)
+* Getting started:              Getting Started.        (line   5)
+* Gifsicle program:             Other Requirements.     (line   5)
+* group parameters:             Nnshimbun.              (line  89)
+* Grouping URLs:                Grouping URLs.          (line   5)
+* ImageMagick package:          Other Requirements.     (line   5)
+* Info-like keymap:             Key Binding.            (line   5)
+* Installing emacs-w3m:         Installing Emacs-w3m.   (line   5)
+* Installing on non-UNIX-like systems: Non-UNIX-like systems.  (line   5)
+* Introduction:                 Introduction.           (line   5)
+* Key binding:                  Key Binding.            (line   5)
+* Killing buffers:              Creating and killing buffers.  (line   5)
+* Lynx-like keymap:             Key Binding.            (line   5)
+* Moving in a page:             Moving in a page.       (line   5)
+* Mule-UCS package:             Other Requirements.     (line   5)
+* nnshimbun:                    Nnshimbun.              (line   5)
+* Possible Emacs versions:      Required Emacs Version.  (line   5)
+* Proxy gateways:               Minimal Settings.       (line  33)
+* Proxy servers:                Minimal Settings.       (line  33)
+* Quick Searching:              Quick Searching.        (line   5)
+* Reading HTML mails in Gnus:   Gnus.                   (line   5)
+* Reporting bugs:               Mailing List.           (line   5)
+* rfc2368.el:                   Other Requirements.     (line   5)
+* Saving images:                Inline Images.          (line  74)
+* Search engines:               Using Search Engines.   (line   5)
+* Searching:                    The Search Interface.   (line   5)
+* Shimbun library:              Shimbun Library.        (line   5)
+* `shimbun.el':                 Shimbun Basics.         (line   5)
+* Showing the tree structure of local directories: Showing Directory Tree.  (line   5)
+* Special URLs:                 Quick Searching.        (line   5)
+* Starting up:                  Getting Started.        (line   5)
+* Startup file:                 Minimal Settings.       (line  24)
+* Subscribing to the emacs-w3m mailing list: Mailing List.  (line   5)
+* Switching buffers using the buffer list: Selecting buffers.  (line  46)
+* Switching buffers using the minibuffer: Selecting buffers.  (line  41)
+* The Antenna interface:        Daily web tracking.     (line   5)
+* Tips:                         Tips.                   (line   5)
+* Tracking changes in web pages: Using Antenna.         (line   5)
+* Using emacs-w3m as a batch command: Launching and Jumping.  (line  20)
+* Variables related to antenna: Antenna Variables.      (line   5)
+* Variables related to namazu:  Namazu Variables.       (line   5)
+* Variables related to perldoc: Perldoc Variables.      (line   5)
+* Variables related to searching the web: Search Variables.  (line   5)
+* Variables related to session manager: Session Manager Variables.  (line   5)
+* Variables related to the dtree feature: Dtree Variables.  (line   5)
+* Variables related to the octet feature: Octet Variables.  (line   5)
+* Variables related to weather information: Weather Variables.  (line   5)
+* Viewing images:               Inline Images.          (line  70)
+* w3m:                          You Need w3m.           (line   5)
+* Web Newspaper:                Nnshimbun.              (line   5)
+* Zooming images:               Inline Images.          (line  79)
+
+
+
+File: emacs-w3m-ja.info, Node: Key Index, Next: Variable Index, Prev: Concept Index, Up: Index
+
+$A%-$B!<$A%P%$%s%IKwR}(B
+================
+
+* Menu:
+
+* \:                            HTML File Information.  (line  28)
+* =:                            HTML File Information.  (line  33)
+* |:                            HTML File Information.  (line  58)
+* >:                            Moving in a page.       (line  41)
+* <:                            Moving in a page.       (line  47)
+* ]:                            Moving in a page.       (line  93)
+* [:                            Moving in a page.       (line  98)
+* }:                            Moving in a page.       (line 103)
+* {:                            Moving in a page.       (line 108)
+* ^:                            Moving over pages.      (line  46)
+* +:                            Setting up Antenna.     (line  14)
+* . (Lynx-like $A%-$B!<$A%^%C%W(B):     Moving in a page.       (line  55)
+* , (Lynx-like $A%-$B!<$A%^%C%W(B):     Moving in a page.       (line  63)
+* a:                            Adding Bookmarks.       (line   5)
+* A:                            Daily web tracking.     (line  35)
+* b:                            Moving in a page.       (line  35)
+* b:                            Moving over pages.      (line 118)
+* B (Lynx-like $A%-$B!<$A%^%C%W(B):     Moving over pages.      (line  24)
+* <backspace>:                  Moving in a page.       (line  35)
+* <backspace>:                  Moving over pages.      (line 118)
+* <backtab>:                    Moving in a page.       (line  88)
+* C-?:                          Moving in a page.       (line  35)
+* C-?:                          Moving over pages.      (line 118)
+* c (Lynx-like $A%-$B!<$A%^%C%W(B):     Launching and Jumping.  (line  97)
+* C-c C-@:                      Tracing History.        (line  61)
+* C-c C-a:                      Selecting buffers.      (line  41)
+* C-c C-n:                      Moving across buffers.  (line  28)
+* C-c C-p:                      Moving across buffers.  (line  22)
+* C-c C-s:                      Selecting buffers.      (line  46)
+* C-c C-<SPC>:                  Tracing History.        (line  61)
+* C-c C-t:                      Creating and killing buffers.  (line  19)
+* C-c C-v:                      Tracing History.        (line  65)
+* C-c C-w:                      Creating and killing buffers.  (line  25)
+* C-c M-w:                      Creating and killing buffers.  (line  29)
+* C-S-l (Info-like $A%-$B!<$A%^%C%W(B): Launching and Jumping.  (line 110)
+* C-u a:                        Adding Bookmarks.       (line   5)
+* C-u o (Info-like $A%-$B!<$A%^%C%W(B): Tracing History.        (line  53)
+* C-u s (Lynx-like $A%-$B!<$A%^%C%W(B): Tracing History.        (line  53)
+* D (Info-like $A%-$B!<$A%^%C%W(B):     Downloading.            (line  23)
+* d (Info-like $A%-$B!<$A%^%C%W(B):     Downloading.            (line  30)
+* d (Lynx-like $A%-$B!<$A%^%C%W(B):     Downloading.            (line  23)
+* D (Lynx-like $A%-$B!<$A%^%C%W(B):     Showing Directory Tree.  (line  51)
+* <DEL>:                        Moving in a page.       (line  35)
+* <DEL>:                        Moving over pages.      (line 118)
+* <down> (Lynx-like $A%-$B!<$A%^%C%W(B): Moving in a page.      (line  77)
+* e (Info-like $A%-$B!<$A%^%C%W(B):     HTML File Information.  (line  40)
+* E (Info-like $A%-$B!<$A%^%C%W(B):     HTML File Information.  (line  46)
+* E (Lynx-like $A%-$B!<$A%^%C%W(B):     HTML File Information.  (line  40)
+* e (Lynx-like $A%-$B!<$A%^%C%W(B):     HTML File Information.  (line  46)
+* g:                            Launching and Jumping.  (line  79)
+* G:                            Launching and Jumping.  (line  86)
+* H:                            Moving over pages.      (line  40)
+* I (Info-like $A%-$B!<$A%^%C%W(B):     Inline Images.          (line  31)
+* i (Info-like $A%-$B!<$A%^%C%W(B):     Inline Images.          (line  54)
+* I (Lynx-like $A%-$B!<$A%^%C%W(B):     Inline Images.          (line  70)
+* l (Info-like $A%-$B!<$A%^%C%W(B):     Moving over pages.      (line  24)
+* <left> (Lynx-like $A%-$B!<$A%^%C%W(B): Moving over pages.     (line  24)
+* M:                            HTML File Information.  (line  51)
+* M-[:                          Inline Images.          (line  81)
+* M-]:                          Inline Images.          (line  86)
+* M-a:                          Adding Bookmarks.       (line   5)
+* M-d (Lynx-like $A%-$B!<$A%^%C%W(B):   Downloading.            (line  30)
+* M-i:                          Inline Images.          (line  74)
+* M-I (Info-like $A%-$B!<$A%^%C%W(B):   Inline Images.          (line  65)
+* M-l:                          Moving in a page.       (line  69)
+* M-n:                          Creating and killing buffers.  (line  19)
+* mouse-2:                      Browsing With Mouse Operations.  (line  20)
+* `M-S':                        Session Manager.        (line   8)
+* `M-s':                        Session Manager.        (line  11)
+* M-T (Lynx-like $A%-$B!<$A%^%C%W(B):   Inline Images.          (line  65)
+* M-<TAB>:                      Moving in a page.       (line  88)
+* n (Info-like $A%-$B!<$A%^%C%W(B):     Moving over pages.      (line  32)
+* N (Lynx-like $A%-$B!<$A%^%C%W(B):     Moving over pages.      (line  32)
+* o (Info-like $A%-$B!<$A%^%C%W(B):     Tracing History.        (line  53)
+* p (Info-like $A%-$B!<$A%^%C%W(B):     Moving over pages.      (line  24)
+* q:                            Going back to daily hacking and/or daily writing.  (line  19)
+* Q:                            Going back to daily hacking and/or daily writing.  (line  24)
+* R:                            Launching and Jumping.  (line 110)
+* <RET>:                        Launching and Jumping.  (line  58)
+* <RET>:                        Launching and Jumping.  (line  70)
+* <right> (Lynx-like $A%-$B!<$A%^%C%W(B): Launching and Jumping.  (line  58)
+* s (Info-like $A%-$B!<$A%^%C%W(B):     The Search Interface.   (line  32)
+* S (Lynx-like $A%-$B!<$A%^%C%W(B):     The Search Interface.   (line  32)
+* s (Lynx-like $A%-$B!<$A%^%C%W(B):     Tracing History.        (line  53)
+* S-<left> (Info-like $A%-$B!<$A%^%C%W(B): Moving in a page.    (line  55)
+* S-<mouse-2>:                  Browsing With Mouse Operations.  (line  25)
+* <SPC>:                        Moving in a page.       (line  21)
+* <SPC>:                        Moving over pages.      (line  63)
+* S-<right> (Info-like $A%-$B!<$A%^%C%W(B): Moving in a page.   (line  63)
+* S-<SPC>:                      Moving in a page.       (line  35)
+* S-<SPC>:                      Moving over pages.      (line 118)
+* S-<TAB>:                      Moving in a page.       (line  88)
+* T (Info-like $A%-$B!<$A%^%C%W(B):     Showing Directory Tree.  (line  51)
+* T (Lynx-like $A%-$B!<$A%^%C%W(B):     Inline Images.          (line  31)
+* t (Lynx-like $A%-$B!<$A%^%C%W(B):     Inline Images.          (line  54)
+* <TAB>:                        Moving in a page.       (line  77)
+* u (Info-like $A%-$B!<$A%^%C%W(B):     Moving over pages.      (line  46)
+* u (Lynx-like $A%-$B!<$A%^%C%W(B):     Launching and Jumping.  (line 104)
+* <up> (Lynx-like $A%-$B!<$A%^%C%W(B):  Moving in a page.       (line  88)
+* v:                            Consulting Bookmarks.   (line   5)
+* y (Info-like $A%-$B!<$A%^%C%W(B):     Launching and Jumping.  (line  97)
+* Y (Info-like $A%-$B!<$A%^%C%W(B):     Launching and Jumping.  (line 104)
+
+
+
+File: emacs-w3m-ja.info, Node: Variable Index, Next: Function Index, Prev: Key Index, Up: Index
+
+$(I+y$AJ}KwR}(B
+========
+
+* Menu:
+
+* gnus-keep-backlog:            Nnshimbun.              (line  54)
+* mm-inline-text-html-with-images: Gnus.                (line   5)
+* mm-inline-text-html-with-w3m-keymap: Gnus.            (line   5)
+* mm-text-html-renderer:        Gnus.                   (line   5)
+* nnmail-expiry-wait:           Nnshimbun.              (line 168)
+* nnmail-expiry-wait-function:  Nnshimbun.              (line 168)
+* nnshimbun-default-group-level: Nnshimbun.             (line  74)
+* nnshimbun-directory:          Nnshimbun.              (line  68)
+* nnshimbun-encapsulate-images: Nnshimbun.              (line 113)
+* nnshimbun-group-parameters-alist: Nnshimbun.          (line 157)
+* nnshimbun-index-range:        Nnshimbun.              (line 125)
+* nnshimbun-keep-backlog:       Nnshimbun.              (line  54)
+* nnshimbun-keep-unparsable-dated-articles: Nnshimbun.  (line 249)
+* nnshimbun-marks-is-evil:      Nnshimbun.              (line  81)
+* nnshimbun-pre-fetch-article:  Nnshimbun.              (line 103)
+* shimbun-local-path:           Shimbun local mode.     (line  25)
+* shimbun-slashdot-comment-display: News Sites Supported by Shimbun.  (line 146)
+* shimbun-slashdot-comment-threshold: News Sites Supported by Shimbun.  (line 141)
+* shimbun-slashdot-get-comments: News Sites Supported by Shimbun.  (line 131)
+* shimbun-tech-on-password:     News Sites Supported by Shimbun.  (line 184)
+* shimbun-tech-on-user-name:    News Sites Supported by Shimbun.  (line 176)
+* shimbun-use-local:            Shimbun local mode.     (line  18)
+* w3m-accept-languages:         General Variables.      (line   8)
+* w3m-add-referer:              General Variables.      (line  14)
+* w3m-add-user-agent:           General Variables.      (line  42)
+* w3m-after-cursor-move-hook:   Hooks.                  (line   8)
+* w3m-antenna-file:             Antenna Variables.      (line   8)
+* w3m-antenna-html-skelton:     Antenna Variables.      (line  14)
+* w3m-antenna-refresh-interval: Antenna Variables.      (line  18)
+* w3m-antenna-refresh-interval: Daily web tracking.     (line  30)
+* w3m-antenna-sites:            Setting up Antenna.     (line   5)
+* w3m-antenna-sort-changed-sites-function: Antenna Variables.  (line  29)
+* w3m-antenna-sort-unchanged-sites-function: Antenna Variables.  (line  35)
+* w3m-arrived-file:             General Variables.      (line  47)
+* w3m-async-exec:               Other Variables.        (line   8)
+* w3m-auto-show:                General Variables.      (line  51)
+* w3m-bookmark-default-section: Bookmark Variables.     (line  21)
+* w3m-bookmark-file:            Bookmark Variables.     (line   8)
+* w3m-bookmark-file-coding-system: Bookmark Variables.  (line  12)
+* w3m-bookmark-menu-open-new-session: Bookmark Variables.  (line  25)
+* w3m-bookmark-mode-hook:       Hooks.                  (line  71)
+* w3m-broken-proxy-cache:       Other Variables.        (line  13)
+* w3m-charset-coding-system-alist: General Variables.   (line  62)
+* w3m-coding-system:            General Variables.      (line  67)
+* w3m-coding-system-priority-list: General Variables.   (line  72)
+* w3m-command:                  General Variables.      (line  76)
+* w3m-command-arguments:        Minimal Settings.       (line  33)
+* w3m-command-arguments-alist:  General Variables.      (line  94)
+* w3m-command-environment:      General Variables.      (line 115)
+* w3m-confirm-leaving-secure-page: General Variables.   (line 119)
+* w3m-content-type-alist:       General Variables.      (line 126)
+* w3m-cookie-accept-bad-cookies: Cookie Variables.      (line   8)
+* w3m-cookie-accept-domains:    Cookie Variables.       (line  13)
+* w3m-cookie-file:              Cookie Variables.       (line  17)
+* w3m-cookie-reject-domains:    Cookie Variables.       (line  21)
+* w3m-correct-charset-alist:    General Variables.      (line 154)
+* w3m-db-history-display-size:  General Variables.      (line 158)
+* w3m-decoder-alist:            General Variables.      (line 162)
+* w3m-default-coding-system:    Quick Searching.        (line   5)
+* w3m-default-content-type:     General Variables.      (line 171)
+* w3m-default-directory:        General Variables.      (line 176)
+* w3m-default-display-inline-images: Image Variables.   (line   8)
+* w3m-default-save-directory:   General Variables.      (line 189)
+* w3m-delete-buffer-hook:       Hooks.                  (line  14)
+* w3m-delete-duplicated-empty-lines: General Variables.  (line 193)
+* w3m-dirlist-cgi-program:      General Variables.      (line 197)
+* w3m-display-hook:             Hooks.                  (line  18)
+* w3m-do-cleanup-temp-files:    General Variables.      (line 718)
+* w3m-doc-view-content-types:   General Variables.      (line 202)
+* w3m-dtree-default-allfiles:   Dtree Variables.        (line   8)
+* w3m-dtree-directory-depth:    Dtree Variables.        (line  15)
+* w3m-dtree-indent-strings:     Dtree Variables.        (line  21)
+* w3m-dtree-stop-strings:       Dtree Variables.        (line  26)
+* w3m-edit-function:            General Variables.      (line 207)
+* w3m-edit-function-alist:      General Variables.      (line 212)
+* w3m-enable-google-feeling-lucky: General Variables.   (line 220)
+* w3m-encoding-type-alist:      General Variables.      (line 226)
+* w3m-favicon-cache-expire-wait: Image Variables.       (line  14)
+* w3m-favicon-cache-file:       Image Variables.        (line  19)
+* w3m-favicon-default-background: Image Variables.      (line  38)
+* w3m-favicon-size:             Image Variables.        (line  25)
+* w3m-favicon-type:             Image Variables.        (line  30)
+* w3m-favicon-use-cache-file:   Image Variables.        (line  34)
+* w3m-file-coding-system:       General Variables.      (line 230)
+* w3m-file-name-coding-system:  General Variables.      (line 235)
+* w3m-fill-column:              General Variables.      (line 240)
+* w3m-follow-redirection:       General Variables.      (line 247)
+* w3m-fontify-after-hook:       Hooks.                  (line  24)
+* w3m-fontify-before-hook:      Hooks.                  (line  29)
+* w3m-form-input-map-buffer-lines: Form Variables.      (line   8)
+* w3m-form-input-map-mode-hook: Hooks.                  (line  34)
+* w3m-form-input-map-set-hook:  Hooks.                  (line  38)
+* w3m-form-input-select-buffer-lines: Form Variables.   (line  12)
+* w3m-form-input-select-mode-hook: Hooks.               (line  42)
+* w3m-form-input-select-set-hook: Hooks.                (line  46)
+* w3m-form-input-textarea-buffer-lines: Form Variables.  (line  16)
+* w3m-form-input-textarea-mode-hook: Hooks.             (line  50)
+* w3m-form-input-textarea-set-hook: Hooks.              (line  54)
+* w3m-form-mouse-face:          Form Variables.         (line  20)
+* w3m-form-textarea-directory:  Form Variables.         (line  32)
+* w3m-form-treat-textarea-size: Form Variables.         (line  24)
+* w3m-form-use-fancy-faces:     Form Variables.         (line  28)
+* w3m-form-use-textarea-backup: Form Variables.         (line  32)
+* w3m-history-minimize-in-new-session: Other Variables.  (line  23)
+* w3m-history-reuse-history-elements: Other Variables.  (line  30)
+* w3m-home-page:                Launching and Jumping.  (line  20)
+* w3m-horizontal-scroll-columns: Moving in a page.      (line  41)
+* w3m-horizontal-scroll-columns: Moving in a page.      (line  47)
+* w3m-horizontal-scroll-division: General Variables.    (line 264)
+* w3m-horizontal-shift-columns: Moving in a page.       (line  55)
+* w3m-horizontal-shift-columns: Moving in a page.       (line  63)
+* w3m-icon-directory:           Image Variables.        (line  45)
+* w3m-image-default-background: Image Variables.        (line 123)
+* w3m-imagick-convert-program:  Image Variables.        (line  49)
+* w3m-imitate-widget-button:    General Variables.      (line 286)
+* w3m-init-file:                Customizable Variables.  (line   5)
+* w3m-init-file:                Minimal Settings.       (line  24)
+* w3m-input-coding-system:      General Variables.      (line 302)
+* w3m-keep-arrived-urls:        General Variables.      (line 309)
+* w3m-keep-cache-size:          General Variables.      (line 313)
+* w3m-key-binding:              Key Binding.            (line   5)
+* w3m-language:                 General Variables.      (line 323)
+* w3m-local-directory-view-method: General Variables.   (line 327)
+* w3m-local-find-file-function: General Variables.      (line 334)
+* w3m-local-find-file-regexps:  General Variables.      (line 346)
+* w3m-mailto-url-function:      General Variables.      (line 371)
+* w3m-mailto-url-popup-function-alist: General Variables.  (line 378)
+* w3m-make-new-session:         General Variables.      (line 389)
+* w3m-mbconv-command:           General Variables.      (line 399)
+* w3m-menu-on-forefront:        General Variables.      (line 683)
+* w3m-minor-mode:               Gnus.                   (line   5)
+* w3m-minor-mode-command-alist: Gnus.                   (line   5)
+* w3m-minor-mode-hook:          Hooks.                  (line  58)
+* w3m-mode-hook:                Hooks.                  (line  62)
+* w3m-namazu-arguments:         Namazu Variables.       (line  12)
+* w3m-namazu-command:           Namazu Variables.       (line   8)
+* w3m-namazu-default-index:     Namazu Variables.       (line  20)
+* w3m-namazu-default-index:     Using Namazu.           (line  38)
+* w3m-namazu-index-alist:       Namazu Variables.       (line  29)
+* w3m-namazu-index-alist:       Using Namazu.           (line  23)
+* w3m-namazu-input-coding-system: Namazu Variables.     (line  34)
+* w3m-namazu-output-coding-system: Namazu Variables.    (line  40)
+* w3m-namazu-page-max:          Namazu Variables.       (line  46)
+* w3m-new-session-in-background: General Variables.     (line 713)
+* w3m-no-proxy-domains:         Minimal Settings.       (line  33)
+* w3m-output-coding-system:     General Variables.      (line 411)
+* w3m-perldoc-command:          Perldoc Variables.      (line   8)
+* w3m-perldoc-input-coding-system: Perldoc Variables.   (line  13)
+* w3m-perldoc-output-coding-system: Perldoc Variables.  (line  20)
+* w3m-perldoc-pod2html-arguments: Perldoc Variables.    (line  30)
+* w3m-perldoc-pod2html-command: Perldoc Variables.      (line  25)
+* w3m-pixels-per-character:     Image Variables.        (line  66)
+* w3m-pixels-per-line:          Image Variables.        (line  75)
+* w3m-popup-frame-parameters:   General Variables.      (line 434)
+* w3m-pop-up-frames:            General Variables.      (line 415)
+* w3m-pop-up-windows:           General Variables.      (line 424)
+* w3m-prefer-cache:             General Variables.      (line 440)
+* w3m-process-connection-type:  Other Variables.        (line  52)
+* w3m-process-modeline-format:  Other Variables.        (line  57)
+* w3m-profile-directory:        General Variables.      (line 445)
+* w3m-quick-start:              Launching and Jumping.  (line  20)
+* w3m-quick-start:              Moving over pages.      (line  40)
+* w3m-redirect-with-get:        General Variables.      (line 459)
+* w3m-refresh-minimum-interval: General Variables.      (line 672)
+* w3m-relationship-estimate-rules: General Variables.   (line 471)
+* w3m-resize-images:            Image Variables.        (line  89)
+* w3m-resize-image-scale:       Image Variables.        (line  85)
+* w3m-search-default-engine:    The Search Interface.   (line  32)
+* w3m-search-engine-alist:      Quick Searching.        (line   5)
+* w3m-search-thing-at-point-arg: Search Variables.      (line  29)
+* w3m-search-word-at-point:     Search Variables.       (line  23)
+* w3m-select-buffer-hook:       Hooks.                  (line  67)
+* w3m-select-buffer-horizontal-window: General Variables.  (line 476)
+* w3m-select-buffer-window-ratio: General Variables.    (line 481)
+* w3m-session-automatic-keep-number: Session Manager Variables.  (line  32)
+* w3m-session-automatic-save:   Session Manager.        (line  40)
+* w3m-session-automatic-title:  Session Manager Variables.  (line  16)
+* w3m-session-crash-recovery:   Session Manager.        (line  54)
+* w3m-session-crash-recovery-title: Session Manager Variables.  (line  20)
+* w3m-session-deleted-keep-number: Session Manager Variables.  (line  28)
+* w3m-session-deleted-save:     Session Manager.        (line  40)
+* w3m-session-deleted-title:    Session Manager Variables.  (line  24)
+* w3m-session-file:             Session Manager Variables.  (line   8)
+* w3m-session-load-crashed-sessions: Session Manager.   (line  54)
+* w3m-session-load-last-sessions: Session Manager.      (line  46)
+* w3m-session-time-format:      Session Manager Variables.  (line  12)
+* w3m-session-unknown-title:    Session Manager Variables.  (line  36)
+* w3m-show-current-title-in-buffer-tab: Other Variables.  (line  63)
+* w3m-show-decoded-url:         General Variables.      (line 487)
+* w3m-show-error-information:   General Variables.      (line 527)
+* w3m-show-graphic-icons-in-header-line: Image Variables.  (line  93)
+* w3m-show-graphic-icons-in-mode-line: Image Variables.  (line 100)
+* w3m-space-before-favicon:     General Variables.      (line 533)
+* w3m-space-before-modeline-icon: General Variables.    (line 539)
+* w3m-submit-form-safety-check: General Variables.      (line 647)
+* w3m-tab-mouse-position-adjuster: Using Tabs.          (line  63)
+* w3m-tab-track-mouse:          Using Tabs.             (line  56)
+* w3m-terminal-coding-system:   General Variables.      (line 545)
+* w3m-toggle-inline-images-permanently: Image Variables.  (line 106)
+* w3m-touch-command:            General Variables.      (line 553)
+* w3m-track-mouse:              General Variables.      (line 559)
+* w3m-treat-image-size:         Image Variables.        (line  53)
+* w3m-uri-replace-alist:        Quick Searching.        (line   5)
+* w3m-url-local-directory-alist: General Variables.     (line 615)
+* w3m-use-ange-ftp:             General Variables.      (line 624)
+* w3m-use-cookies:              Cookie Variables.       (line  25)
+* w3m-use-cygdrive:             General Variables.      (line 629)
+* w3m-use-favicon:              Image Variables.        (line 117)
+* w3m-use-filter:               General Variables.      (line 634)
+* w3m-use-form:                 General Variables.      (line 642)
+* w3m-use-header-line:          General Variables.      (line 652)
+* w3m-use-header-line-title:    General Variables.      (line 656)
+* w3m-use-mule-ucs:             General Variables.      (line 662)
+* w3m-user-agent:               General Variables.      (line 708)
+* w3m-use-refresh:              General Variables.      (line 666)
+* w3m-use-symbol:               General Variables.      (line 677)
+* w3m-use-tab:                  Using Tabs.             (line  47)
+* w3m-use-tab-menubar:          General Variables.      (line 695)
+* w3m-use-title-buffer-name:    General Variables.      (line 523)
+* w3m-use-toolbar:              General Variables.      (line 704)
+* w3m-weather-default-area:     Weather Variables.      (line   8)
+* w3m-weather-filter-functions: Weather Variables.      (line  13)
+
+
+
+File: emacs-w3m-ja.info, Node: Function Index, Prev: Variable Index, Up: Index
+
+$(IJ=$AJ}KwR}(B
+========
+
+* Menu:
+
+* gnus-group-make-shimbun-group: Nnshimbun.             (line  18)
+* gnus-group-make-shimbun-groups: Nnshimbun.            (line  40)
+* nnshimbun-generate-download-script: Shimbun local mode.  (line  32)
+* octet-find-file:              Octet.                  (line   5)
+* w3m:                          Launching and Jumping.  (line  20)
+* w3m-antenna:                  Daily web tracking.     (line  35)
+* w3m-antenna-add-current-url:  Setting up Antenna.     (line  14)
+* w3m-bookmark-add-current-url: Adding Bookmarks.       (line   5)
+* w3m-bookmark-add-this-url:    Adding Bookmarks.       (line   5)
+* w3m-bookmark-edit:            Editing Bookmarks.      (line  24)
+* w3m-bookmark-kill-entry:      Editing Bookmarks.      (line  20)
+* w3m-bookmark-undo:            Editing Bookmarks.      (line  29)
+* w3m-bookmark-view:            Consulting Bookmarks.   (line   5)
+* w3m-browse-url:               Launching and Jumping.  (line  41)
+* w3m-close-window:             Going back to daily hacking and/or daily writing.  (line  19)
+* w3m-copy-buffer:              Creating and killing buffers.  (line  19)
+* w3m-delete-buffer:            Creating and killing buffers.  (line  25)
+* w3m-delete-other-buffers:     Creating and killing buffers.  (line  29)
+* w3m-download:                 Downloading.            (line  30)
+* w3m-download-this-url:        Downloading.            (line  23)
+* w3m-dtree:                    Showing Directory Tree.  (line  51)
+* w3m-edit-current-url:         HTML File Information.  (line  40)
+* w3m-edit-this-url:            HTML File Information.  (line  46)
+* w3m-fb-mode:                  Frame Local Buffers.    (line  10)
+* w3m-find-file:                Launching and Jumping.  (line  36)
+* w3m-gohome:                   Moving over pages.      (line  40)
+* w3m-goto-url:                 Launching and Jumping.  (line  79)
+* w3m-goto-url-new-session:     Launching and Jumping.  (line  86)
+* w3m-history:                  Tracing History.        (line  53)
+* w3m-history-restore-position: Tracing History.        (line  65)
+* w3m-history-store-position:   Tracing History.        (line  61)
+* w3m-horizontal-recenter:      Moving in a page.       (line  69)
+* w3m-mouse-view-this-url:      Browsing With Mouse Operations.  (line  20)
+* w3m-mouse-view-this-url-new-session: Browsing With Mouse Operations.  (line  25)
+* w3m-next-anchor:              Moving in a page.       (line  77)
+* w3m-next-buffer:              Moving across buffers.  (line  28)
+* w3m-next-form:                Moving in a page.       (line  93)
+* w3m-next-image:               Moving in a page.       (line 103)
+* w3m-pattern-uri-replace:      General Variables.      (line 601)
+* w3m-pipe-source:              HTML File Information.  (line  58)
+* w3m-previous-anchor:          Moving in a page.       (line  88)
+* w3m-previous-buffer:          Moving across buffers.  (line  22)
+* w3m-previous-form:            Moving in a page.       (line  98)
+* w3m-previous-image:           Moving in a page.       (line 108)
+* w3m-print-current-url:        Launching and Jumping.  (line  97)
+* w3m-print-this-url:           Launching and Jumping.  (line 104)
+* w3m-quit:                     Going back to daily hacking and/or daily writing.  (line  24)
+* w3m-reload-this-page:         Launching and Jumping.  (line 110)
+* w3m-save-image:               Inline Images.          (line  74)
+* w3m-scroll-down-or-previous-url: Moving in a page.    (line  35)
+* w3m-scroll-down-or-previous-url: Moving over pages.   (line 118)
+* w3m-scroll-left:              Moving in a page.       (line  41)
+* w3m-scroll-right:             Moving in a page.       (line  47)
+* w3m-scroll-up-or-next-url:    Moving in a page.       (line  21)
+* w3m-scroll-up-or-next-url:    Moving over pages.      (line  63)
+* w3m-search:                   The Search Interface.   (line  32)
+* w3m-search-uri-replace:       General Variables.      (line 607)
+* w3m-select-buffer:            Selecting buffers.      (line  46)
+* w3m-session-select:           Session Manager.        (line  11)
+* w3m-session-select-delete:    Session Manager.        (line  26)
+* w3m-session-select-next:      Session Manager.        (line  38)
+* w3m-session-select-open-session-group: Session Manager.  (line  21)
+* w3m-session-select-previous:  Session Manager.        (line  42)
+* w3m-session-select-quit:      Session Manager.        (line  46)
+* w3m-session-select-rename:    Session Manager.        (line  30)
+* w3m-session-select-save:      Session Manager.        (line  34)
+* w3m-session-select-select:    Session Manager.        (line  17)
+* w3m-shift-left:               Moving in a page.       (line  55)
+* w3m-shift-right:              Moving in a page.       (line  63)
+* w3m-switch-buffer:            Selecting buffers.      (line  41)
+* w3m-tab-move-left:            Moving across buffers.  (line  45)
+* w3m-tab-move-right:           Moving across buffers.  (line  37)
+* w3m-toggle-inline-image:      Inline Images.          (line  54)
+* w3m-toggle-inline-images:     Inline Images.          (line  31)
+* w3m-turnoff-inline-images:    Inline Images.          (line  65)
+* w3m-view-header:              HTML File Information.  (line  33)
+* w3m-view-image:               Inline Images.          (line  70)
+* w3m-view-next-page:           Moving over pages.      (line  32)
+* w3m-view-parent-page:         Moving over pages.      (line  46)
+* w3m-view-previous-page:       Moving over pages.      (line  24)
+* w3m-view-source:              HTML File Information.  (line  28)
+* w3m-view-this-url:            Launching and Jumping.  (line  58)
+* w3m-view-this-url:            Launching and Jumping.  (line  70)
+* w3m-view-url-with-external-browser: HTML File Information.  (line  51)
+* w3m-zoom-in-image:            Inline Images.          (line  86)
+* w3m-zoom-out-image:           Inline Images.          (line  81)
+
+Tag table:
+Node: Top514
+Node: Introduction5491
+Node: Getting Started6129
+Node: Required Emacs Version6775
+Node: You Need w3m7575
+Node: Other Requirements7988
+Node: Installing Emacs-w3m11664
+Node: Non-UNIX-like systems14254
+Node: Minimal Settings14817
+Node: Basic Usage16589
+Node: Browsing Web Pages17142
+Node: Key Binding17704
+Node: Launching and Jumping18681
+Node: Moving in a page21862
+Node: Moving over pages24555
+Node: Browsing With Mouse Operations28005
+Node: Going back to daily hacking and/or daily writing29388
+Node: Inline Images30140
+Node: Tracing History32421
+Node: Managing Bookmarks35729
+Node: Adding Bookmarks36170
+Node: Consulting Bookmarks37129
+Node: Editing Bookmarks37644
+Node: Using Tabs38340
+Node: Working with buffers40675
+Node: Creating and killing buffers41101
+Node: Moving across buffers41818
+Node: Selecting buffers43436
+Node: Downloading44976
+Node: Submitting Forms45826
+Node: HTML File Information46965
+Node: Pretty Good Features48506
+Node: Using Search Engines49160
+Node: The Search Interface50133
+Node: Quick Searching51166
+Node: Adding New Search Engines52715
+Node: Grouping URLs54492
+Node: Weather Information55252
+Node: Using Antenna55415
+Node: Setting up Antenna55887
+Node: Daily web tracking56360
+Node: Showing Directory Tree57303
+Node: Viewing Perl Documents58556
+Node: Using Namazu58734
+Node: Octet60152
+Node: Frame Local Buffers60517
+Node: Session Manager61553
+Node: Customizable Variables63162
+Node: General Variables65218
+Node: Image Variables87455
+Node: Form Variables91362
+Node: Cookie Variables92256
+Node: Bookmark Variables92877
+Node: Search Variables93673
+Node: Weather Variables94821
+Node: Dtree Variables95405
+Node: Antenna Variables96362
+Node: Perldoc Variables97641
+Node: Namazu Variables98553
+Node: Octet Variables100257
+Node: Session Manager Variables100500
+Node: Hooks101157
+Node: Other Variables102954
+Node: Hooking into MUAs105435
+Node: Gnus106233
+Node: Mew109701
+Node: SEMI MUAs111348
+Node: VM113295
+Node: Frequently Asked Questions113596
+Node: General FAQ113886
+Node: Trouble FAQ115287
+Node: Shimbun FAQ122292
+Node: Known Problems122850
+Node: Shimbun Library123009
+Node: Nnshimbun124779
+Node: Mew Shimbun133784
+Node: Shimbun with Wanderlust141257
+Node: Shimbun local mode141580
+Node: Shimbun Sites142771
+Node: Newspapers Supported by Shimbun143193
+Node: News Sites Supported by Shimbun152877
+Node: Mailing Lists Supported by Shimbun161380
+Node: Sport Sites Supported by Shimbun174370
+Node: Misc Sites Supported by Shimbun175115
+Node: Shimbun Basics185379
+Node: Overview186002
+Node: Getting web page and header information188280
+Node: Displaying an article192952
+Node: Inheriting shimbun module194967
+Node: Making text/plain articles196855
+Node: Zenkaku to hankaku conversion198522
+Node: Coding convention of Shimbun199165
+Node: Tips200009
+Node: Mailing List204115
+Node: Emacs-w3m Functions205005
+Node: External Packages205165
+Node: Authors206032
+Node: Index206267
+Node: Concept Index206503
+Node: Key Index212227
+Node: Variable Index219805
+Node: Function Index234946
+
+End tag table

Binary file share/info/emacs-w3m.info has changed